Code: Select all
10 ' INTERRUPT DRIVEN
20 ' REAL-TIME-CLOCK V1.0
30 ' BY STEVE EVANS
40 ' 30TH MARCH, 2012
50 '
60 'LOCATION 252 = IRQ COUNT
70 'LOCATION 253 = SECONDS
80 'LOCATION 254 = MINUTES
90 'LOCATION 255 = HOURS
100 '
110 CLEAR200,32691:START=32692
120 FOR I=0 TO 75:READ A$:X=VAL("&H"+A$):CH=CH+X:POKE START+I,X:NEXT
130 IF CH<>7542 THEN PRINT"ERROR IN DATA LINES.":END
140 '
150 'CHANGE "POKE START+28,49"
160 'TO "POKE START+28,59" FOR
170 '60HZ TANO DRAGON 64
180 '
190 POKE START+28,49:EXEC START:END
200 DATA 1A,50,30,8D,0,12,BC,1,D,27,A,FC,1,D,BF,1,D,ED,8D,0,35,1C,AF,39,96,FC
210 DATA 4C,81,31,25,28,F,FC,96,FD,4C,81,3C,25,1B,F,FD,96,FE,4C,81,3C,25,E,F,FE
220 DATA 96,FF,4C,81,18,25,1,4F,97,FF,20,A,97,FE,20,6,97,FD,20,2,97,FC,7E,9D,3D