Radio Shack TRS-80 Model II Reference Manual page 162

Modell! TRSDOS
DATM
12/10/79-15 :100
PAGE 3
LoC oBJ CODE M STMT SOURCE STATEMENT
ASM 5.R
!'l0aF 3001 117 JR NC,NEXT2
lJUMP IF NO CARRY
0091 24 118 INC H
I BUMP MSB
0092 of 119 NEXT2
LD
L,A
I MOVE LSB
0093
13 120 INC DE !BUMP TABLE ADORESS
0094 10F7 121 DJNZ NEXTI
!LOOP
10096 222402 R 122
LD
( JULI AN ) , HL
!SAVE JULIAN DAYS
123
I
0099 218A01
R 124 LDBUFF LD HL, TABLX !LENGTH TABLE
009C 229301 R 125 ID (TABDRS),HI
1SAVE
TABI E
AOO9FSS
009F 212002 R
126 LD HL,CENI l ADDRESS rJF CENTURY
00A2 6E
127 LD L,(HL)
I CENTiJRY
00A3 0E64
128 LD C,100
1*100
00AS 0600
129
LD
B,0
I MULTIPLY PARAMETER
ooA7 60
130
LD
H,B I ZERO H
OOA8 3E17 131
LD A ,17H _.-'J~\JL
T IPLY
00AA CF
132 RsT 8
ISVC
00AB 3A2102
I,
133
LD
A, (YRI)
!GET YEAR
00AE 1000
134
_LQ.----
D,0 I ZERO MSB
- - - - - _ .
0000
SF
135 LD E,A
I MOVE YEAR
00Bl
19
130 ADO HL,DE
I GET TOTAL YEAR
0062 114000 137
LD D_L.1600 ISASE YEAR 1600
01OB5 B7
138 DR A IZERO CARRY
00B6 ED52 139
SBC HL,DE
! YEARS SINCE BASE
00B8 E5
140 PUSH 11L
! SAVE YEARS SINCE BASE
- - - - - - -
3389 3601
141 LD B,I !DIVIDE PARAM
101088 0E04 142
LD C,4 l/4
0106D 3E17
143 LD A ,17H
IDIVIDE
OOBF CF 144
RsT 8
! SVC
00C0 23 145
INC HL
! ADJUST FOR DAY ZERO SAT->MON
100Cl 23 146
INC H1,
lSAME
OOC2
23 147 INC HL
!SAME
00C3 23
148 INC HL
!SAME
00C4 23 149
INC HL ISAME
00C5 E5 1510
PUSH HL lSAVE MOD 4 YEARS
010Cb 3A2002
R
151
LD A, (CFNI )
! GET CENTURY
.~
00C9
0610
152 SUB
16 IEJASE CENTURY
00C6
F5
153
PUSH AF
lSAVE DIFFERENCE
00CC
OF 154
LD
L,A
lMoVE DIFFERENCE
IOOCD 2600 155
LD H,0 lZERO MSB FOR DIVIDE
00CF 0E04
156
LD C,4 ! /4
0001 3E 17 157
LD
A,17H IDIVIDE
0003 CF
158
.BSI
8
I SVC
0004 F1 159
POP AF
IDIFFERENCE
100D5
95
160
SUB L ISUB
#
OF QUADRfi:NNI ALS
00Do of 161
LD L,A !MOVE ADJUSTMENT FOR CENTURY
- 00D-7
E5 162 PUSH HL
!SAVE ADJUST<.IENT
00D8 CDDE01 R 163
CALL LPClRNT !DET"RMINE PROPER AD,JUSTMENT (LEAP OR NOT)
10 "D
1:3
E1 164
POP HL
l ADJUSTMENT
010DC
2001
165 JR NZ,UPDAT3
INOT QUADRENNIAL
00DE 2C
166 INC
L ! INC ADJUSTMENT
00DF EB
167 UPDAT3
EX DE,HL I ADJUST MENT TO DE
00E0
EI
168 POP HL
110100 4 YEARS
00EI AF 169
XOR A
I ZERO FLAGS
100E2 ED52
170
SBC HL,DE I ADJUST MClD 4 YEARS
00£4 EB
171 EX DE,HL lMOD 4 YEARS TO DE
00E5 EI 172
POP HL !TOTAL YEARS
0faE6
19 173 ADO HL,DE
nOTAL DAYS OFF FROM BASE TO YEAR IN ?
iJ0E7 ED5B2402
R
174 LD DE, (JULIA'J)
! GET JULIAN DAY
198