home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / RAMTEST2-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  512 b   |  14 lines
  1. 20 PRINT"[147]"
  2. 30 A=A+1:IFA=1THEN:LOAD "RAMTEST2 64.BIN",8,1 : REM     LOAD MACHINE CODE
  3. 50 SYS5184:S$=STR$((PEEK(5290))*64+64)+"K":S$=RIGHT$(S$,LEN(S$)-1)
  4. 55 IFLEFT$(S$,2)="64"THENS$="0K
  5. 110 [151]1024,0:[158]5088
  6. 120 [153]"
  7. 210 PRINT"   RAM EXPANSION TEST SIZE = "+S$:
  8. 220 PRINT"   TEST IS RUNNING WHEN UPPER LEFT"
  9. 230 PRINT"   LOCATION ON SCREEN IS FLICKERING"
  10. 1000 SYS4992:X=PEEK(5046): REM RUN TEST, GET RESULT
  11. 1010 IF X=0 THEN PRINT "TEST COMPLETED SUCCESSFULLY":END
  12. 1020 PRINT "ERROR !  BANK = ";PEEK(5062);
  13. 1030 PRINT " ADDRESS = ";(256*PEEK(5061))+PEEK(5060)
  14.