home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 March
/
64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64
/
uhr.lst
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
72 lines
100 rem uhr
110 data a,c,i,aptr,cptr
120 data todptr,contirq
130 data *=,49152,0
190 data ,gosub,44797,
200 data ,cmove#,128,56590
210 data ,cmove#,0,56591
220 data ,gosub,57943,
230 data ,move#,0,c
240 data ,cmove,183,c
250 data ,add#,-6,c
260 data ,if,c,exit
270 data ,move#,c,cptr
272 data ,move#,a,aptr
274 data ,move#,56587,todptr
278 data ,move#,3,i
280 data loop1,cmove(),187,cptr
285 data ,move,c,a
290 data ,gosub,a=16*a,
295 data ,add#,1,187
300 data ,cmove(),187,cptr
305 data ,add#,-48,c
310 data ,add,c,a
320 data ,cmove(),aptr,todptr
330 data ,move#,0,c
340 data ,add#,1,187
350 data ,add#,-1,todptr
360 data ,add#,-1,i
370 data ,if,i,loop1
375 data ,cmove#,0,56584
377 data ,cmove,56584,c
380 data ,gosub,sei,
390 data ,move,788,contirq
400 data ,move#,irqrout,788
410 data ,gosub,cli,
420 data exit,return,,
490 rem
500 data a=16*a,add,a,a
510 data ,add,a,a
520 data ,add,a,a
530 data ,add,a,a
540 data ,return,,
550 rem
560 data sei,word,24696,
570 data cli,word,24664,
590 rem
600 data irqrout,move#,0,c
610 data ,cmove,56587,c
620 data ,gosub,toscrn,
630 data ,move,245,1058
640 data ,cmove,56586,c
650 data ,gosub,toscrn,
660 data ,move,245,1060
670 data ,cmove,56585,c
680 data ,gosub,toscrn,
690 data ,move,245,1062
700 data ,cmove,56584,c
710 data ,goto(),contirq,
790 rem
800 data toscrn,move,c,a
810 data ,gosub,a=16*a,
820 data ,move,a,245
830 data ,cmove,246,245
840 data ,cmove#,0,246
850 data ,move,245,a
860 data ,gosub,a=16*a,
870 data ,sub,a,c
880 data ,cmove,c,246
890 data ,add#,12336,245
900 data ,return,,
1000 data _