Instruction manual

OgG $OFS4
!lIN * $OFFO
HR * $OFFl
DAY * $OFn
MaN * $OFF)
CaMP * $OFED
ACCESS * $8B86
OFS4 8C FO OF Setime
OFS? 68
OFS8 80 Fl OF
OFSB 68
OFSC 68
OF SO 80 F2 OF
OF60 68
oF61 68
OF62 80 F) OF
OF6S 68
OF66 20 86 8B
OF69 A9 90
OF6B 8D 7E A6
OF6E A9 OF
OnO 8D?F A6
OF?) A9 CO
0F7S 80 OE AC
On8 AD 00 AC
OF7B 29 BF
OF7D 80 00 AC
OF80 A9 CO
OF82 8D OB AC
OF'8S A9 SO
OF8? 8D 06 AC
oF'8A A9 C)
OF8c 8D OS AC
OF8F 60
OF90 08 Introt
OF91 48
OF92 SA
OF9) 48
OF94 98
OF9S 48
OF96 08 INCR
OF97 AO 00
OF99 A9 00 LOOP
OF9B 99 ED OF
OF9E C8
OF9F CO OS
OFAl FO lA
OFA) 18
OFA4 B9 ED OF
OFA? 69 01
OFA9 09 E8 OF
OFAC FO EB
OFAE 99 ED OF
OFBl A9 C) RETN
OFB) 8D O? AC
OFB6 68
OFB? A8
oFBB 68
OFB9 AA
OFBA 68
OFBB 28
OFBC 40
onD 18 ADDA Y
OJ'llE AD n OF
OFCl 69 01
OFC) AE F) OF
OFc6 DO F) OF
OFC9 FO 06
OFCB 80 n OF
OFeE 4c Bl OF
OFDl A9 01 REDAY
OFD) 8D n OF
OFD6 E8
OFD? EO 00
OFD9 FO 06
ornB 8E F) OF
OFDE 4c Bl OF
OFEl A2 01 END
OFE) 8E F) OF
OFEP 4c Bl OF
Listing. Time-of-Day Clock and Calendar
Table of highest values of
fractions, seconds, JJI1nutes, hours,(dullUlly)
followed by storage area for fractions,
seconds, m1nutes, hours, days., IIIOnths
Table of EX days in each .anth
(plUS one) fat the twelve aonths.
next
system RAM
X reg
1m
Set
AC'l
Set
and
start
timer
return
Push processor
Accum
X reg
ACOUJl
Processor
Leave
Clear e&rry
Get day
increment
Put month in x reg
See if at last day
Yes, go to month chenge
Save new day
Leave
Back to day one!
save
To next month
At end of year (I))?
Go to reset year
Save new month
Leave
Back to January (1)
Save
Leave
STY !'!IN Stores minutes
PLA Pulls hours
STA HR and stores
PLA Pulls Day
PLA and
STA DAY stores
PLA Pulls month
PLA and
STA MaN stores
PLA Clears stack
JSH ACCESS Unwrite protect the
LDAim $90 Store low
STA $A6?E byte IRQ
LDAim $OF Store high
STA $A6?F byte InQ
LDAim $CO Set
STA $ACOE IE8
LDA $ACOD Set
AND $BF
STA $ACOD
LDAim $CO
STA $A COB
LDAim $SO
STA $Aco6
LDAim jiC)
STA $ACOS
RTS
PHP
PHA
TXA
PHA
TYA
PHA Y reg
CLD Clear dec flag
LDYim $00 Zero Y
LDAim $00 A
STAy COHP Zeros counter
INY To next counter
CPYim $OSNeed new day'?
BEQ ADDAY Go to it
CLC Clear carry
LDAy COMP cat coUnter value
ADCim $01 incre-ent
CHPy HIGH-l Como with highest
BEQ LOOP Go to zero and carry to
STAy COMP Store new value
LDAiJI $C) Finished I clear
STA $A CO? interrupt flag
PLA Restore
TAY Y reg
?LA
TAX
?LA
PLP
RTI
CLC
LDA DAY
ADCilI $01
LOX MON
CMPx MON
BEQ REIlAY
STA DAY
JMP RJmI
LDAim
$01
STA DAY
INX
CPX $00
BEQ END
STX PlON
JMP RETN
LDXiIl $01
STX MaN
JMP RETN
HIGH
14 )C )C
18 00 00
00 00 00
00 00
20 10 20
lF 20 lF
20 20 IF
20 lF 20
OFE9
OFEC
OFEF
OFn
OF"F4
om
OFFA
OFPD