ô > Time20/s /ô Intercept RTC calls to force 21st century "ô Must operate in sideways RAM (: 2Þ mcode% &400 < ã P=0 ¸ 1 FP%=&8000:O%=mcode% P[OPT P*3+4 ZEQUB 0:EQUW 0 dJMP Service n(EQUB &82:EQUB Copyright-&8000:EQUB 1 xEQUS "TIME20":EQUB 0 ‚EQUS "1.00" Œ.Copyright –EQUB 0:EQUS "(C)"   EQUB 0 ª: ´ .Service ¾CMP #&27:BNE ServiceExit È.ServReset Ò LDA &20D Ü-INC A:BEQ Serv27Exit :\ Already claimed æ,LDA oldword+1:STA &DB1 :\ Extended WORDV ðLDA oldword+2:STA &DB2 ú STX &DB3 (LDA &20C:STA oldword+1 :\ Save WORDV LDA &20D:STA oldword+2 ,LDA #&12:STA &20C :\ Redirect WORDV "LDA #&FF:STA &20D ,.Serv27Exit 6 LDA #&27 @.ServiceExit JRTS T: ^ .newword hCMP #14:BEQ newword14 r .oldword |JMP newword †: .newword14 šSTX &F0:STY &F1 ¤LDA (&F0):PHA ®LDA #14:JSR oldword ¸PLA:BNE exit Â!LDY #11:LDA #—"2":STA (&F0),Y ÌINY:LDA #—"0":STA (&F0),Y Ö LDY &F1 à .exit êLDA #14:RTS ô: þ]:í 4A$="SAVE TIME20 "+Ã~mcode%+" "+Ã~O%+" 8000 8000" ñ A$;:ÿ A$:ñ ÿ