home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / xr4ts2.xr4 < prev    next >
Text File  |  2006-10-19  |  2KB  |  36 lines
  1. 1 CLS:PRINT" XR4TS2.BA for M100/102"
  2. 2 PRINT" (c) 1989,1992 Tracy Allen, 76670,326
  3. 3 PRINT"XR4 memory test--destroys current
  4. 4 PRINT"contents of XR... Proceed (Y/N)?"
  5. 5 R$=INKEY$:IFR$=""THEN5ELSEIF INSTR("Yy",R$)THEN10ELSEMENU
  6. 10 CLS:PRINT"XR memory test.":GOSUB200
  7. 15 FORBN=1TO4:OUT128,(BN-1)*8:IFBN=1THEN30
  8. 20 PRINTUSING"Bank #) switching.";BN;:PRINTCHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%)
  9. 25 IFY%=0THENPRINTUSING"Bank #) Switching error";BN:GOTO50
  10. 30 PRINTUSING"Bank #) loading...";BN;:PRINTCHR$(13);
  11. 35 L%=1:GOSUB200:CALL 63173,,PEEK(63791)+256*PEEK(63791)
  12. 40 PRINTUSING"Bank #) testing...";BN;:PRINTCHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%)
  13. 45 PRINTUSING"Bank #) ##### errors detected";BN,Y%
  14. 50 NEXTBN
  15. 55 PRINT"Wait 1 min., turn on power"CHR$(13);:FORK=1TO500:NEXT:POWEROFF,RESUME
  16. 60 PRINTCHR$(27)"lXPower) testing..."CHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%)
  17. 65 PRINTUSING"XPower) ##### errors detected";Y%
  18. 70 PRINT"space bar->rerun test, other key->MENU";
  19. 75 A$=INKEY$:IFA$=""THEN75ELSEIFA$=" "THENRUNELSEMENU
  20. 200 REM m/l loader
  21. 210 RESTORE 250:CS=0
  22. 215 FOR AD= 63173 TO 63248 
  23. 220 READ D%:POKE AD,D%:CS=CS+D%
  24. 225 NEXT AD
  25. 230 IF CS<> 12135 THEN BEEP :PRINT"Typo in data!!?"
  26. 235 RETURN
  27. 250 DATA 34,241,246,205,240,246,113,205,252,246
  28. 251 DATA 202,203,246,195,235,246,229,17,0,0
  29. 252 DATA 205,240,246,126,185,202,226,246,19,205
  30. 253 DATA 252,246,202,220,246,235,209,217,175,211
  31. 254 DATA 232,251,201,1,179,21,33,0,0,62
  32. 255 DATA 1,243,211,232,201,120,230,96,55,226
  33. 256 DATA 4,247,63,121,23,79,120,23,230,127
  34. 257 DATA 71,35,124,230,128,201
  35.  
  36.