Radio Shack TRS-80 Model II Reference Manual page 166

Modell! TRSDOS
DATM
12/10/79-15'00 PAGE
7
LOC OBJ CODE
'I
sTMT SOURCE STATEMENT
ASM 5."
0239
78
349
LD A,E
I MONTHS
023A 322202
R
350
LD (MONI ) ,A ISAVE MONTHS
0230 3E2F 351
LD A,I/A
IDATE DELIMITER
1r23f'
BE
352 CP (HL)
ICOMPARE TO STRING
024» 2043
353 JR NZ,EDITOR
I QUIT ON ERROR
0242 23 354 __INC. I,L
IBUMP PO INTER
0243 CO 11202 R 355
CALL DTBCVT
I CONVERT STRI NG
0241:> 2030 351:> JR NZ,EDITOR
IQUIT ON ERROR
0248
B8 357 CP E ICP DAY TO ZERO
0249
283A 358 JR Z,EDITOR IQUIT r]N ERRrJR
0248 7B
359
LD A,E IClAY
024C 322302 R
360 LD (DAY! ) ,A ; SAVE DAY
024F 3E2F
31:>1 LD
A. ' /.. IDATE DELIMITER
0251 8E 31:>2 CP (HL)
ICP TO STRING
0252 2031
363 JR
NZ,EDITOR IQUIT rJN ERROR
0254
23 364 INC
HL I RUMP PnINTEr-i
0255 CD0202 R
365 CALL DTRCVT ;CONVERT STRING
0258 2028 366
JR NZ,EDITOR
lo'UlT ON ERROR
11J25A 3E0F
367 LD A,I5
I 15TH CENTURY
025C
B8
368 CP
E ICENTURY
0250 3026 369 JR
NC,EDITOR
I QUIT rJN ERROR
025F 78 370
LD A,E ;CENTURY
0260 322002
R
371
LD (CEN! ) ,A ISAVE CENTURY
0263
CD0202 R 372 CALL DTBCVT
ICONVERT STRING
0266 2010 373
JR NZ,EDITOR I QUIT ON ERROR
0268 :78 374 LD
A,E IYEAR
0269 322102
R
375
LD
(YR1) ,A
ISTORE YEAR
026C
ES
376
PUSI,
HL
; SA VE pm NTER TO I NFrlRMAT ION
0260 CDF601
R
377
CALL FIXFE8
IFIX FE'S.
0270 3A2202 R
378 LD A,('ION! )
; MONTf-j
-~~------~- 0273 210.101
R 379
LD HL,MONTHS
I MONTHS TA8LE
0276
85 380 ADD A,L
I ADJUST TA8LE ADDRESS
0277 6F
381
LD L,A
I MOVE LS8 OF MONTH ADDRESS
0278 3001 382 JR
NC,OVFLOW IJUMP rJN NO OVERFLOW
027A
24 383 INC H
IMSS FOR OVERFLOW
/~
0278
3A2302 R 384 OVFLOW LD
A
,(DAY!
IDAY
11J27E
3D 385 DEC A
I ADJUST FOR COMPARE
027F BE
386 CP (HL)
ICOMPARE DAY
0280 EI
387 POP
HL I RESTORF POINTER
0281 3002
388 JR NC,EDITOR IQUIT ON ERROR
0283 AF
389 XOR A
ICLEAR FLAGS
0284 C9 390
RET
0285
3E03 391 EDITOR LD A,3
IERROR ON CALL
0287 87
392 OR A
ISET FLAG
0288 C9 393
RET
394 I
0289
~04 395 LOADR
LD 8,4 I LOOP crJUNT
028B 212002
R 396 LD
HL,CEN! I FRONT OF FIRST DATE INFO.
028E 112902 R 397
LD DE,CEN2 IFRONT OF SECOND DATE INFO.
0291 C9
398 RET IRETURN TO SENDER
399
I
0292 0E05
400 EDITM LD C,S
I
#
SIGN. DIGITS COUNT
"294
0604
4"1 L.D 8,4 IMAX SPACES
Tel INSERT
0296 3E3.,
402 LD A, '0' ILEADING ZERO VALUE
0298
BE
403
EDlTMI
CP
(HLl I ASC II ZERO ?
10299 ClO 404
RET NZ ILEAVE IF NOT
02.9A 00 405 DEC
C IDEC SIGN. DIGIT COUNT
0298 3620 406
LD
(HL) ,
,
IPUT IN LEADING SPACE
202