Radio Shack TRS-80 Model II Reference Manual page 161

Utility Programs
iii:
LoC
DATM
oBJ CODE
M
STMT SOURCE STATEMENT
1 ;:>/10/79--1 '1'00 PAGE ;:>
ASM 'i. R
_ _ _-"__ S ":AVE GAY nF MONTH
I MfJVE IT
'ZERO MSB
IMO~I_':i~~!\.Elb.E:~
I MnNTH
'MOVE IT
'DAYS IN MONTH
-- -;A-66
UP
-JIUAN
6A,
YS-------
'SFT FLAGS
,REsTnRE REGISTERS
,
-----~~-~-------~
- - - - - - 1 - - - -
'RETURN Tn CALLFR
A
BC
OF
HL
<DAY1),A
L,-A- --
H,0
DE,MoNTHS
A;TMONiT
B,A
A, (DE)
A-~L-
POP
RET
OR
POP
POP
LD
u5-----
LD
LD
LD
LD
LD
- - - A ~
59
60 ALEXIT
61
E1
C9
87
CI
DJ
002F
1010310
002C
1002D
002E
62
63
- - ~ - - - - -
.tL'L._J.
~
__ _
~
_
10031 CDF601 R 65 JULT CALL FIXFEB 'LEAP YEAR?
0034 3A22102
R
66 LD A,(MoNI IGET MONTH
0037 1600 67 AGAIN LD 0,0
~~~_~~~E:~:;~~
01039 'OF 68 LD
------r:;A----
'Mf.lVE MIJN TH
0103 A 21Dl101 R 69 LD HL,MoNTHS 'MIJNTH TABLE
003D 19 710 ADD HL,DE 'FIND MONTH IN TA'3LF
flJ03E 5E 71 LD ..
-E, (
HL
j - - -
IDA YS~ TN-MO~----·
003F 2A2702 R 72 LD HL, (JUL
1 )
I JULI AN SPAN
0042 AF 73 XoR A
ICLE':AR FLAG~S,,---
_
0043 I
3
74 I NC DE I ADJUST FOR CIJMPARE
0044 ED 52 75 SSC HL,DE 'QEDUCE GlUNT BY MONTH"S LENGTH IN DAVs
01046 23 76
I~~_~~Hh_~
IREAQJUST
RE~AlHING SPA"_~ ~~_~~
_
0047 3011
--------~-7T
JR NC,i'oOTYET
'JUMP IF IJVER MONTH'S LE~IGTH
0049 2A2702
R
78 LD HL, (JULI ) 'JULIAN SPAN
11IlIJ4C 3A23102 R 79 LD A,(DAY1) 'DAY OF MONTH
004F 85
-~8'l
-ADD A,L
·-~---~-----'I-"A'-'-D6-6AYrlFMONTH
rn-c;PAN--
1010510 6F 81 LD L,A IMoVE SPAN
0051 ED52 B2 SBC HL,DE ISEE IF OVER A MoNLH"--- _
01053 23 83 INC HL 'READJUST REMAINING SPAN
0054 382A 84 JR C,FINISH 'LEAVE LOOP IF NIJT nVER A MONTH
0056 AF 85
)([]~
A. tzERO ACCII,
~~_
101057 3223102 R 86 LD (DA,YI ),
A
I ZERIJ DAY IJF MIJNTH Tn GET nUT IJF Lnop
1005A 222702 R 87 NOTYET LD (JULI),HL 'SAVE Lonp CClUNT
1000D 2122102 R 88 LD HL,MfJNI IADDRESS IJF
MnNTH~
__
~ ~_~ ~_~~
0060
34 89 INC
CHC-) -----~~~
'SUMP MnNTH
0061 7E 90 LD A, (HL ) 'GET MONTH
0062 FE0D 91 CP 13 '13 MONTHS
~ ~
__ ._
0064 38DI 92 JR C,AGAlr;T
~------ILOOPnNCARRY-
101066 D610C 93 SUB 1;:> I ADJUST MnNTH
0068 77 94 LD (rlL )
,~"'----__
_
1_2t>YE
MoNItt
006Q 212102 R 95 - LD HL,YRI 'YEAR ADDRESS
006<: 34 96 INC (HL) 'BUMP YEAR
0060
7£ 97 LD A_L!-f.jbL
~ JQ~L YEAR_~ ~
--00b~E----FE-64- 98-
CP I
00
I I 00 YEARS
00710 38BF 99 JR C ,JUL T I Lnnp nN CARRY
0072 D664 100
_----"1Jf:i__
1 00 __
~_i.!'-QJUST
rr",H
0074
77
------'-1101 LD
~CHL),A 'SAV~
YEAR
0075 212121102 R 11212 LD HL,CENI 'ADDRESS OF CENTURY
12112178 34 1 1213
~
II'J{;__
~_~ l_'?lI~£:ENTl)P'(
_
121079
7E~~
11214 LD
A,·(
~iL
) I r;ET CENTURY
0107A FE64 1105 CP 100
I
S~E IF 7~QO
1211217C 28AC 106
~ __ ~~ JR ~~BROR _~_._ . . __LOJJlT ON. .E8BD.."'------ ~ __ ~_
12107E 18Bl 1107
JR
JlJLT 'Lmp
10B
121080 32231212 R 109 FINISH
----r"'''''''~8,-3.,---·---,6'"F:--------.l~---~-
0084 2600 III
1211086 IID101 R 112
0089
3~A~22=0=2-~R~
1 I 3
008C 47 114
12108D I A 115 NEXT!
----,0"'07.8;;;E"--
--as - - - -
I
n;
197