home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / far.demo_test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  954b  |  36 lines
  1. 100 rem *** far-sys demo/test ***
  2. 110 far=51200
  3. 120 ck=0
  4. 130 readd:ifd=-1then150
  5. 140 ck=ck+d:goto130
  6. 150 ifck<>6830thenprint"data statement error!":end
  7. 160 restore
  8. 170 rem *** poke routine to $f000 ***
  9. 180 fori=0to55:readd:poke61440+i,d:next
  10. 190 rem *** poke routine d-block ***
  11. 200 poke56334,peek(56334)and254:rem turn off timer irqs
  12. 210 poke1,peek(1)and251:rem switch in chr rom
  13. 220 fori=0to8:readd:poke53248+i,d:next
  14. 230 poke1,peek(1)or4:rem put back i/o
  15. 240 poke56334,peek(56334)or1:rem enable irq
  16. 250 printchr$(147);
  17. 260 poke far+6,3:sys far,61440:rem execute routine under kernal
  18. 270 gosub320
  19. 280 printchr$(19);:fori=0to255:print"a";:next
  20. 290 gosub320
  21. 300 poke far+6,5:sys far,53248:rem execute routine in d-block
  22. 310 end
  23. 320 for t=0to1500:next
  24. 330 return:rem waste some time
  25. 340 rem *** underkern ***
  26. 350 data238,32,208,169,255,160,240,132
  27. 360 data20,133,21,24,8,104,141,15
  28. 370 data3,162,10,160,17,32,44,240
  29. 380 data169,189,160,205,132,20,133,21
  30. 390 data8,104,141,15,3,169,255,170
  31. 400 data32,44,240,96,141,12,3,142
  32. 410 data13,3,140,14,3,76,3,200
  33. 420 rem *** move under d-block ***
  34. 430 data162,0,254,0,4,232,208
  35. 440 data250,96,-1
  36.