home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / utilities / svnt128d.sfx / 1581.diag (.txt) < prev    next >
Commodore BASIC  |  1992-10-05  |  1KB  |  38 lines
  1. 100 rem   check 1581 disk for controller type & j1 jumper
  2. 110 rem   12/09/87  fred bowen
  3. 115 :
  4. 120 print"insert any formatted disk in drive."
  5. 121 input"check which unit";u: print
  6. 125 :
  7. 130 open 1,u,15      :l=218 : h=1
  8. 140 open 2,u,2,"#"
  9. 145 print#1,"m-r"chr$(0)chr$(192)chr$(1): get#1,a$
  10. 150 if asc(a$)<>192 then print"device"u"is not a 1581.": goto360
  11. 155 :
  12. 160 print#1,"m-r"chr$(l)chr$(h)chr$(5):         rem  modify controller cmds
  13. 170 fori=1to5:get#1,a$:b$=b$+chr$(asc(a$)or3):c$=c$+a$:next
  14. 180 print#1,"m-w"chr$(l)chr$(h)chr$(5)b$
  15. 190 :
  16. 200 print#1,"u1";2;0;1;0       :gosub500:       rem  seek track 1  & reset timer
  17. 210 print#1,"u1";2;0;80;0      :gosub600:       rem  seek track 80 & read  timer
  18. 220 :
  19. 230 print#1,"m-w"chr$(8)chr$(64)chr$(1)chr$(0): rem  test jumper j1
  20. 240 print#1,"m-r"chr$(8)chr$(64)chr$(1): get#1,j$
  21. 250 :
  22. 260 print#1,"m-w"chr$(l)chr$(h)chr$(5)c$:       rem  restore controller cmds
  23. 270 if val(f$)>0 then print"seek error- check diskette.": print: run
  24. 285 :
  25. 290 print"unit"u"contains a ";:                rem  report
  26. 300 if t>20 then print"wd1770";
  27. 310 if t<20 then print"wd1772";
  28. 320 print" and j1 is ";
  29. 330 if j$="" then print"open"
  30. 340 if j$>"" then print"closed"
  31. 360 :
  32. 370 close2: close1: end
  33. 380 :
  34. 390 :
  35. 474 -256
  36. 500 fori=11to8step-1: poke56320+i,0: next: return
  37. 600 input#1,f$,r$,e$,d$: t=peek(56329)*10+peek(56328): return
  38.