home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / memtst.100 < prev    next >
Text File  |  2006-10-19  |  1KB  |  36 lines
  1. 1  REM program MEMTST.BA for M100/102
  2. 2  REM (c) 1989 Tracy Allen, 76670,326
  3. 5  CLS:PRINT"ExtRAM memory test--destroys current
  4. 6  INPUT"contents of extRAM... Proceed (Y/N)";R$
  5. 7  IF INSTR("Yy",R$) THEN 10 ELSE MENU
  6. 10 CLS:PRINT"Extram memory test.  When your 100/102"
  7. 15 PRINT"turns itself OFF, wait one minute,"
  8. 20 PRINT"    ...then turn it back ON."
  9. 25 PRINT"loading...  ";
  10. 30 GOSUB 100
  11. 35 L%=1:CALL 63173,,peek(63791)+256*peek(63791)
  12. 40 PRINT"testing..."
  13. 45 Y%=0:CALL 63189,,VARPTR(Y%)
  14. 50 PRINTUSING"test #) ##### errors detected";L%,Y%
  15. 55 IFL%=2THEN70
  16. 60 L%=2:FORI=1TO500:NEXTI
  17. 65 POWEROFF,RESUME:GOTO40
  18. 70 PRINT"space bar->rerun test, other key->MENU";
  19. 75 A$=INKEY$:IFA$=""THEN75
  20. 80 IF A$=" " THEN 10 ELSE MENU
  21. 100 REM m/l loader
  22. 110 RESTORE 150:CS=0
  23. 115 FOR AD= 63173 TO 63248 
  24. 120 READ D%:POKE AD,D%:CS=CS+D%
  25. 125 NEXT AD
  26. 130 IF CS<> 12135 THEN BEEP :PRINT"Typo in data!!?"
  27. 135 RETURN
  28. 150 DATA 34,241,246,205,240,246,113,205,252,246
  29. 151 DATA 202,203,246,195,235,246,229,17,0,0
  30. 152 DATA 205,240,246,126,185,202,226,246,19,205
  31. 153 DATA 252,246,202,220,246,235,209,217,175,211
  32. 154 DATA 232,251,201,1,179,21,33,0,0,62
  33. 155 DATA 1,243,211,232,201,120,230,96,55,226
  34. 156 DATA 4,247,63,121,23,79,120,23,230,127
  35. 157 DATA 71,35,124,230,128,201
  36.