Radio Shack TRS-80 Model II Reference Manual page 165

Utility Programs
DATM 12/10/79-15: 00 PAGE 6
LoC
oBJ CODE M STMT SOURCE STATEMENT
ASM
5.'3
"'IE2
FEOO 291
CP
' "
ISEE IF QUAD DR CEN
IOIE4 2004
292 JR NZ,LPI
IJUMP IF NOT
"lEo
2121002 R
293
LD
HL,CENI
I CENTURY
01E9 6E 294 LD
L, (HLl I MOVE II
01EA 26160 295 LPI
LD
H,0
IZERO MSB
01 EC 10601 296 LD 8,1
!DIVIDE PARAMETER
_._----
0lEE klE04 297 LD C,4
1/4
01FIO 3EI7 298 LD A,I7H
IDIVIDE
IOIF2
CF
299 RsT 8
ISVC
01F3 AF 31010
XOR A IZERo ACCU.
01F4 B9 301 CP C
IREMAINDER
01F5 C9 302
RET
303
I
101F6
CooE01
R 3104 FIXFEB CALL LPoRNT
ILEAP YEAR ?
IOIF9 3E1C
3105
LD
A,28
ITWENTY EIGHT DAYS OF FEB.
01FB 2001 306 JR NZ,NTLPYR
; JUMP IF NOT LEAP YEAR
0lFD 3C 307 INC A
129 DAYS OF FEB.
101FE 32D301 R 308 NTLPYR LD
(FEB) ,A IMOD MONTHS TABLE
02101 C9 3109 RET
310 I
0202
0603 311 DTBCVT
LD
B,3 1COUNT FOR LEADING ZEROS
02'14 3E30 312 LD A,10"
ILEADING ZEROS
0206 l11B02 R 313 LD DE,BUFF5
I CONVERT BUFFER
0209 12 314 LooPl LD
(DE) ,A ILOAD LEADING ZEROS
020A
13
315 INC
DE
IBUMP
020B llOFC 316 DJNZ LooPl
I LOOP
"'200
0E02 317
LD
C,2
ICoUNT FOR
MOVE
020F EDBIO 318 LDIR
1MOVE
0211 E5 319 PUSH HL
ISAVE POINTER TO INFORMATION
0212 211 B02 R 320 LD 'iL, BUFF5
IFRONT OF BUFFER
0215 04 321 INC B ICONVERSIoN PARAMETER
0216 3E15
322 LD
A,15H ICoNVERT
0218 CF
323 RST 8
ISVC
0219 E:l 324 POP HL
1PC1lNTER TO INFrJRMATION
021A
C9 325 RET
326 I
021B 327 BUFFS DEFS 05 I CONVERS ION BUFFER
328 I
10220 00 329 CENI DEFB 00 ICENTURY STORE
0221 00 330 YRI DEFB 00 ;YEAR STORE
0222 110 331 MONI DEFB 00 I MONTH STORE
0223 00 .332 DAYI DEFB 00 IDAY STORE
02.24
0000
333 JULIAN DEFW 100
IJULIAN DAYS IN Yf:AR
0226 00 334 WKI DEFB 01il
IDAY OF WEEK STORE
0227 0000 335 JULI DEFW 00 IJULIAN DAYS STORE
0229 00 336 CEN2 DEFR 010
ICENTURY STORE
022A
00 337 YR2 DEFB
00 ; YFAR STORE
0221:3
00 338 MoN2 DEFB
00
IMONTH STORE
022C
00 339
DAY2
DEFB
00 IDAY STORE
340
I
022D 00
341
CARRY DEFB 00 I CARRY ACCUMULA TOR
342
I
022E CD0202
R
343
EDIT
CALL DTBCvT ;CONVERT STRING INFORMATION
0231
BB
344 CP
E
ICP MONTH TO ZERO
0232 2851 345 JR Z,EDITOR IQUIT ON ERROR
10234 3EIOC 346 LD A,12 112 MONTHS
10236 BB 347 CP E I MONTHS
0237 384C 348 JR C,EDIToR 1QUIT ON ERPOR
201