home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / 1581CHECK64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  38 lines
  1. 100 REM  CHECK 1581 DISK FOR CONTROLLER TYPE & J1 JUMPER
  2. 110 REM  12/09/87  FRED BOWEN
  3. 111 REM MODIFIED FOR THE C64 BY HOWARD ROSENMAN
  4. 115 :
  5. 120 PRINT"INSERT ANY FORMATTED DISK IN DRIVE."
  6. 121 INPUT"CHECK WHICH UNIT";U: PRINT
  7. 125 :
  8. 130 OPEN 1,U,15      :L=474AND255: H=474/256
  9. 140 OPEN 2,U,2,"#"
  10. 145 PRINT#1,"M-R"CHR$(0)CHR$(192)CHR$(1): GET#1,A$
  11. 150 IF ASC(A$)<>192 THEN PRINT"DEVICE"U"IS NOT A 1581.": GOTO360
  12. 155 :
  13. 160 PRINT#1,"M-R"CHR$(L)CHR$(H)CHR$(5):         REM  MODIFY CONTROLLER CMDS
  14. 170 FORI=1TO5:GET#1,A$:B$=B$+CHR$(ASC(A$)OR3):C$=C$+A$:NEXT
  15. 180 PRINT#1,"M-W"CHR$(L)CHR$(H)CHR$(5)B$
  16. 190 :
  17. 200 PRINT#1,"U1";2;0;1;0       :GOSUB500:       REM  SEEK TRACK 1  & RESET
  18. 210 PRINT#1,"U1";2;0;80;0      :GOSUB600:       REM  SEEK TRACK 80 & READ 
  19. 220 :
  20. 230 PRINT#1,"M-W"CHR$(8)CHR$(64)CHR$(1)CHR$(0): REM  TEST JUMPER J1
  21. 240 PRINT#1,"M-R"CHR$(8)CHR$(64)CHR$(1): GET#1,J$
  22. 250 :
  23. 260 PRINT#1,"M-W"CHR$(L)CHR$(H)CHR$(5)C$:       REM  RESTORE CONTROLLER CMDS
  24. 270 IF VAL(F$)>0 THEN PRINT"SEEK ERROR- CHECK DISKETTE.": PRINT: RUN
  25. 285 :
  26. 290 PRINT"UNIT"U" CONTAINS A ";:                REM  REPORT
  27. 300 IF T>20 THEN PRINT"WD1770";
  28. 310 IF T<20 THEN PRINT"WD1772";
  29. 320 PRINT" AND J1 IS ";
  30. 330 IF J$="" THEN PRINT"OPEN"
  31. 340 IF J$>"" THEN PRINT"CLOSED"
  32. 360 :
  33. 370 CLOSE2: CLOSE1: END
  34. 380 :
  35. 390 :
  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.