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