Radio Shack TRS-80 Model II Reference Manual page 160

odell! TRSDOS
LoC
DATM
oBJ CODE M STMT SOURCE STATEMENT
12/10/79-15:00 PAGE 1
ASM 5. fl
- - - - - - - - - - - ---_
..
--~
IF 6=Z THEN MM/OO/Y.YYY+,JJJ,),J=NEW I)A TE
ISAVE CALLER'S REGISTERS
I
_ L _
8=FUNCT ION SW ITCH
I.\M= MO NTH
OO=DAY
YYYY=YEAR (1000 <= YYYY <= 9999)
___
.,J.J~J,J"'..JL11-IAN
TIME SPAN IN DAYS
(.),JJJ,J
<= /)5535)
, DE-=>5 BY TE OUTPUT FIELD
(,JJ,JJ,J)
H~=~_~~/DD/Y'{YY~M{r:D~YYYY
(EARLIER
DATE,-LAli;pDATE)~
_
I
A=Z GOOD INDICATION
_
A=NZ~QbG:A
IN_;>__,,-RROR CODE
~
_
ExIT
PUSH tiL
PUSH DE
___
PiL'i~
_
1 1==============================================================================
2 I JULIAN DATE MATH ROUTINE
~ ~~ ~ ==-==-=-=~=-",==-",~====== ==== ====-=~=-=-= ==== ====:-------- ---- -==--- ---- --=- -- -- -- --------
~ I
5 I
~~_tL
__
~L
__
~~
7 1
8 1
9
~_L ~ ~_
. _
10 1
11 1
__________
~2._
1
~R"'l
__
~I'{LRY
I
D~~2J)
BYTLDIJTEVT..£.LEII)
(SEE~.sYSTEM
DATE RoUTINF:l
13 1 HL=>MM/OO/YYYY JJJJJ
14 I
~----~-_ .._- --~~--~-------~ I __ ~ __-
16
I
17 1
18 1
19
1
20 1 B=NZ ENTRY
21 1
- - - - _ ..•
_--
22 I
23
I
2!l_~
__1
25 I
26 1==============================================================================
_______
n_~!
_
~
_
28 I FOR
6~K
VERSION RELOCATE AT EC60H
29
I
30 I
- - - - - - - - - ---
-------3T~-'
-- - - - - -
32 1==============================================================================
~~ ~~ __ ~~_._. ~_l ~_
0000 E5
3~
DATM
"''''01 05 35
_
0(3~2_C5 ;36.
37
0003 7C 38 LD A,H ICHECK FOR BAD BUFFER ADDRESS
0004 FE28 39 CP 28H 1
~~0006
3822
~0
JR C,ERRoR IQUIT ON ERROR
0008 lA 41 LD A ,I) I CHECK FOR BAI) BUFFER AOOR;=SS
0009
~~8_ ~2
CP _ _--"2"'S!t: H '--
i l ----cc---::c__- - - - - - - - - - - - - - - - - - - -
--00138---
3810 43 JR C,ERROR IQUIT ON ERRrJR
13000 E05381I2JI R
~~
LD (QUTDSS),OE ISAVE OUTPUT BUFFER POINTER
00 11_~_F_____
4 5 )(Q8 1'._________ _ lZJ"J:lI:LAlXlh.
~0012---
88
~6
CP B ILOrJK AT OPTION SWITCH
0013 C2AI02 R
~7
JP NZ,TwrJDAT IACT ON OPTIrJN
0016 CD2E02 R
~8
JULQ,\J __CA.I-_[,, E:!)IT ,-I<ccF"Dc'cI-'T---'I-'N"P-'l"-JT'-- _
--0019-
-2~
49 JR NZ,ERPOR IQUlT ON ERqnR
001 B 3E20 513 LO A,' , I BLANK
001 D BE 51
c:E' .
~!::!hl__ ~ u::ttE~c:~K__"81,LAA""N""K,
_
--001-E~-2-'00A--~-----~52
JR NZ,EPROR IQUIT C)N ERRc:R
0"'20 23 53 INC HL '''lUMP I NFORMA T I ON POI NTER
0021 3El 5
5~ ~
["Q__
_A,L~tL_
I CONVERT
0023- - -
d' ------------55
PST
8
,svc
002~
E0532702 R 56 LD (JUL1 ), DE 1 SAVE JULI AN SPAN
10026
2.8137 57 JR
~.'-JULT ~
,QUIT ON ERROR
~
0021\-
---3~---------sil-TRROR
--1..0
A, 3 'PARAMETER
196