home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_23_1988_Transactor_Publishing.d64 / create (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 1000 rem ** this program will create a
  2. 1010 rem ** machine language program
  3. 1020 rem ** which modifies the irq
  4. 1030 rem ** routine to set  ti$=tod cia#1
  5. 1040 :
  6. 1050 open15,8,15: open8,8,1,"0:new-irq": ck=0
  7. 1060 input#15,e,e$,b,c: if e then close15: print e;e$;b;c:stop
  8. 1070 input "starting address: ";s$
  9. 1080 s=val(s$): if s<1 goto1090
  10. 1090 def fnh(x)=int(x/256): def fnl(x)=x-256*int(x/256)
  11. 1100 print#8,chr$(fnl(s));:print#8,chr$(fnh(s));
  12. 1110 if fnl(s+25)=255 then print#8,chr$(234);:s=s+1
  13. 1120 for x=1 to 5: read a: ck=ck+a: print#8,chr$(a);: next
  14. 1130 print#8,chr$(fnl(s+25));:print#8,chr$(fnh(s+25));
  15. 1140 for x=1 to 4: read a: ck=ck+a: print#8,chr$(a);: next
  16. 1150 print#8,chr$(fnl(s+26));:print#8,chr$(fnh(s+26));
  17. 1160 print#8,chr$(169);chr$(fnl(s+27));chr$(141);chr$(20);chr$(3);
  18. 1170 print#8,chr$(169);chr$(fnh(s+27));
  19. 1180 for x=1 to 66:read a: ck=ck+a: print#8,chr$(a);:next
  20. 1190 print#8,chr$(fnl(s+112));:print#8,chr$(fnh(s+112));
  21. 1200 for x=1 to 3: read a: ck=ck+a: print#8,chr$(a);:next
  22. 1210 print#8,chr$(fnl(s+137));:print#8,chr$(fnh(s+137));
  23. 1220 for x=1 to 3: read a: ck=ck+a: print#8,chr$(a);:next
  24. 1230 print#8,chr$(fnl(s+162));:print#8,chr$(fnh(s+162));
  25. 1240 for x=1 to 12: read a: ck=ck+a: print#8,chr$(a);:next
  26. 1250 print#8,chr$(fnl(s+25));:print#8,chr$(fnh(s+25));
  27. 1260 for x=1 to 75: read a: ck=ck+a: print#8,chr$(a);:next
  28. 1270 close8:close15
  29. 1280 if ck<>18314 then print "---error in data statements!---": end
  30. 1290 print "***irq module created***": end
  31. 1300 :
  32. 1310 data 120,173,20,3,141,173
  33. 1320 data 21,3,141,141,21,3,88
  34. 1330 data 96,0,0,165,251,72,165,252
  35. 1340 data 72,173,11,220,133,251
  36. 1350 data 173,10,220,208,57
  37. 1360 data 173,9,220,208,52
  38. 1370 data 173,8,220,208,47,165,251,41
  39. 1380 data 15,133,252,165,251,41,16,240
  40. 1390 data 7,24,169,10,101,252,133,252
  41. 1400 data 165,251,16,7,24,169,12,101
  42. 1410 data 252,133,252,164,252,185
  43. 1420 data 133,160,185,133,161,185
  44. 1430 data 133,162,173,8,220,104
  45. 1440 data 133,252,104,133,251,108
  46. 1450 data 0,3,6,9,13,16,19,23
  47. 1460 data 26,29,32,36,0,42,46,49
  48. 1470 data 52,56,59,62,65,69,72,75
  49. 1480 data 39,0,75,151,227,47,122,198
  50. 1490 data 18,94,169,245,65,0,216,36
  51. 1500 data 112,188,7,83,159,235,54,130
  52. 1510 data 206,141,0,192,128,64,0,192
  53. 1520 data 128,64,0,192,128,64,0,192
  54. 1530 data 128,64,0,192,128,64,0,192
  55. 1540 data 128,64,0
  56.