Radio Shack TRS-80 Model II Reference Manual page 168

Modell! TRSDOS
DATM
12/10/7Q-15'00
PAGE
Q
LoC oBJ CODE M STMT SOURCE STATEMENT ASM 5.8
0301 El 465 POP HL
'TOTAL
0302 3A2C02 R 466 oVERIT LD
A,(DAY2)
'THE OTHER DAY
0305 5F 467 LD E,A , MOVE IT
2'306 19 468 ADD HL,DE 'ADf1 DAYS I'J 'KlNTH TO JIJLIAN TOTAL
0307 EB
46Q
EX DE,HL , Tr:JT
AL TO DE
030B 3EOO 470
LD
A,0 ; 7ERO ACOJ. (KFEP FLAGS)
030A
212002 R
471
LD
HL,CARRY IcARPY AccUMULAloR
10300
3001 472
JR NC,ONOuT
IGO ON IF NO CARRY
1030F 34 473 INC (rill IBUMP CARRY ACCUMULATOR
0310 BE 474 oNoUT CP
(riL)
;SEE IF ANY CARRYS ARE LEFT
0311
C22A00
R
475 JP
NZ,ERROR
;fJUIT ON ERROR
0314 211B02 R 476 LD HL,8UFF5 ICONVERSION BUFFER
0317 06010
477
LD 8,0
ICONVERSIoN PARAMETER
031Q
E5
478
PUSH HL
ISAVE FRONT OF 8UFFER
031A 3E15
47Q
LD
A,15H ICoNVERT
031C
CF 480
RST 8 ISVC
0310
CDQ202
R 481 CALL EDITM I EDIT CONVERSION
0320 El 482 POP HL 'FRONT OF BUFFER
0321 010500 483 LD BC,5 I COUNT
1<1324 CD8001 R 484 CALL LoADSS I MOVE TO OIJTPUT BUFFER
1<1327 AF 485 xoR A I GOOD INDICATION
0328 C32D0fO R
486
JP ALEXIT lEND
487
,
0328 CDF601 R 488 CoMPAR CALL FIXFEB 'FIX FFB.
032£ 3A2202 R 48Q LD A, (MoNI
'MONTH
0331 1600 4Q0 MORE
LD
D,0 , ZERO MSB
0333 5F
4Ql
LD E,A 'MOVE MONTH
0334 21D101 R 492 LD HL,MONTHS
, MONTHS TABLE
0337
1Q 4Q3 ADD
HL,DE
'FIND MONTH
0338 5E
4Q4
LD
E ,(HL)
'GFT
#
rJF DAYS IN MONTH
"'339
2A2702 R
4Q5
LD
HL, (JUL I ) 'TOTAL FOR JllLI AN DAYS
033C 19 496 ADD HL,DE IADD tJP TOTAL
0330
3006 497 JR NC,FLoW 'JUMP IF NO OVERFLOW
033F
E5 4Q8
PUSH HL 'SAVF TOTAL
0340 212002 R
4QQ
LD
HL,CARRY , CARRY ACCUMULA TOR
0343 34 500 INC (HLl 'BUMP CARRY
0344
El 501 POP
HL ITOTAL
1:1345
222702 R 502 FLOW LD (JULI ) ,HL ISAVE TOTAL
0.348 212202 R 503 LD HL,MONI I MONTH
0348 34 504 INC
(HL)
IBUMP MoNTH--
034C 7E 505 LD
A, (tiL) 'MONTH TO ACCU.
0340 FE0D 506 CP 13
113 MONTHS
0304F 38Q2 507 JR C,GooD I LOOP ON CARRY
0351
D60C 508
SUB
12
'READJUST
0353 77 509 LD
(HL),A , STORE IT
0354 212102 R 510 LD HL, yr<1 I YEAR
0357 34 511 INC (HL) IBUMP YEAR
0358 7E 512 LD A, (HL) 'YEAR TO ACCU.
0359 FE64 513
CP
100 '100 YEARS
0358 3886 514 JR C ,GOOD I LOOP ON CARRY
0350 0664 515 SUB
100
I READJUST
J35F
77
516
LD
(HL) ,A
'STORE IT
0360 212002 R 517 LD
'jL,CE'~1
'CENTURY
0363 34 51R INC (HL.) 'BUMP CENTURY
0364 C3E302 R
51Q JP
GOOD I LOOP
204