home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU11.ARC / PEZRO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  850 b   |  29 lines
  1. 10 REM: PEZRO--PRG TO FLASH MSD DIAGNOSTIC ERROR PATTERN
  2. 15 GOSUB 200
  3. 20 N=8:D$=""
  4. 30 FOR A=1 TO N:READ B:D$=D$+CHR$(B):NEXT
  5. 40 DATA 169,73,133,65,120,76,48,232
  6. 50 REM:LDA#$49 STA$41 SEI JMP E830
  7. 60 OPEN 15,8,15
  8. 70 PRINT#15, "M-W"CHR$(0)CHR$(64)CHR$(N)D$
  9. 80 PRINT#15, "M-R"CHR$(0)CHR$(64)CHR$(N)
  10. 90 FOR B=1 TO N:GET#15, C$:PRINT ASC(C$+"0");:NEXT
  11. 100 PRINT#15,"M-E"CHR$(0)CHR$(64)
  12. 110 CLOSE15
  13. 120 END
  14. 130 CLOSE15
  15. 140 END
  16. 150 REM:RUNS OKAY
  17. 200 PRINT"[147]PEZRO IS A DOS PROGRAMMING DEMO"
  18. 210 PRINT"IT FLASHES THE MSD DIAGNOSTIC ERROR CODE"
  19. 220 PRINT"THE DIAGNOSTIC TESTS ARE EXECUTED"
  20. 230 PRINT"BY DOS AT POWERUP OR RESET ONLY"
  21. 240 PRINT"THE 3 FLASH ERROR CODE INDICATES"
  22. 260 PRINT"A FAILING RAM CHIP--U3--IF IT FLASHES   AT POWERUP."
  23. 270 PRINT"THIS CODE MAY BE INCLUDED IN A DOS       PROGRAM TO TEST EXECUTION."
  24. 280 PRINT"        PRESS RETURN TO CONTINUE[146]"
  25. 290 GET Z$:IF Z$=""THEN 290
  26. 300 PRINT"     RUNNING     "
  27. 310 PRINT"TURN OFF DRIVE POWER TO CONTINUE"
  28. 320 RETURN
  29.