home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / ciatest64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  881b  |  24 lines
  1. 500 rem  "ciatest64"  for 64 mode only.
  2. 510 rem  * = interrupt flag error.
  3. 520 rem  reset after test.
  4. 530 rem
  5. 540 n=12800:fori=nton+103:reada:pokei,a:z=z+a
  6. 550 next:ifz<>11949thenprint"data error":end
  7. 560 sys65412:x=notx:poke251,xand255
  8. 570 printchr$(147);"any key switches timer."
  9. 580 print"testing timer ";chr$(65-x):sysn
  10. 590 wait198,7:poke198,0:goto560
  11. 600 data 169,  84, 162,  98,  36, 251,  48,   3
  12. 610 data 170, 169,  98, 160,   3, 141,   4, 221
  13. 620 data 140,   5, 221, 142,   6, 221, 140,   7
  14. 630 data 221, 169,  17, 141,  14, 221, 141,  15
  15. 640 data 221, 162,   2, 160,   7,  36, 251,  48
  16. 650 data   3, 202, 160,   5, 134, 252, 140,  77
  17. 660 data  50, 140,  85,  50, 138,  73, 131, 162
  18. 670 data  72, 160,  50, 142,  24,   3, 140,  25
  19. 680 data   3, 174,  13, 221, 141,  13, 221,  96
  20. 690 data  72, 138,  72, 152, 172,   7, 221,  72
  21. 700 data 173,  13, 221, 216, 204,   7, 221, 176
  22. 710 data  12,  13,  13, 221,  37, 252, 208,   5
  23. 720 data 169,  42,  32, 210, 255,  76, 188, 254
  24.