Radio Shack TRS-80 Model II Reference Manual page 163

Utility Programs
LoC
DATM
oBJ CODE M STMT SOUqCE STATEMENT
1;>./10/79--1 <0:00 PAGE 4
ASM <0. R
~--=c=;---:-o:-------:c;::--------:=-~-----~---
- - - - - - - - - - - - --------.----------.
03EB 19
175
ADO HL.DE IADD JULIAN D.AYS
00EC 1ilE07 170 LD C. 7 1/7
00EE 0001 177 LD B,
I
I DI VIDE PARAM
00FI1 3EI7 178 LD A,17H IDIVIDE
00F2 CF 179 RST
fJ
I SVC
00F3 212002 R 180 LD HL.WKI IDAY OF WEEK
00Fo 71 181 LD (HLl.C ISAVE ABOVr::
00F7
0600
182 LD B.0 IDATE PARAMETER
"'0F9 2A8101 R 183 LD HL.<OUTDSS) IOUTPUT BUFFER AOORESS . . _
00FC 3E2D 184 LD A.2DH IDATE
0I'JFE CF 185 RST 8 'SVC
00FF C22A00 R 180 JP NZ,ERROR 'OUIT DN ERRllR
=,-;=_ _ .
~
_
-~;{);.:;.10;;..,2---.;2~1;:;9~5,;.0;;:;.1---rR;.--1~8:;-7;r---------.L::,Dr;--------i:H:iiL=---'-;.N~A·.
"M"'DAY I GET DAY OF WEEK TABLE
0105 79 '88 LD A.C IMOVE DAY OF wEEK
0Hlo CB07 189 RLC A IDOUBLE IT
0108 81 190 ADO A.C !TRIPLE IT
0109 85 191 ADD A.L 'ADD TABLE ADDRESS
_~0~1:--:0~A;_-_::0;F=c__---~1__:9:_'2c:__-------'L::D::___------"L'_!.'_'_A'=_==C:_---_I:-,F,-:;I.ND
TABLE ADD RE SS .
~
_
0108 3001 '93 JR NC.DAYOFW I,JUMP IF MSB NC
01.0D 24 194 INC H I BUMP MSB ON C
_~0~1--'0~E'---~0~1:__:0~3~00~-~--'-1.;9-='5~.':'D::.A:...'Y-'=O~F
....
W~~L"'D:,._,-~-BC
• 3 I 3
L."O"'O~p"'S'_____~
_
01 11 CD80.01 R 190 CALL LOADSS I LD BUFFER
0114 3A2202 R 197 LD A.(MONI) 'GET MONTH
_---:0;...;..';...'
~7-----;2r.:l.:_A~A:"0"--
'...'
_--"R'-----;1"9;,;8~-----~L=iD:(___--__icHi'Lo".~N,,A.::M"'o=N-'-T-
I
GE"'TC=-'-T7iA"'8~L~Ec__;_----- ~._.
. . _
01tA
47
199 LD B,A ,MDVE MONTH
011 B CB07 200 RLC A I DOUBLE IT
0110 80 20' ----'=A"'OO"'-_ _---C' A --' - .' = ..B
!TRIP~E
IT
-----C0;.';...I;...E~--;:B;-;:5'-----------:2C:'0~2c;---
ADD A.L I ADD TABLE ADDRESS
011F of 203 LD L ,A 'FIND TABLE ADDREss
0120 3001 204 JR NC.MONDFY IJUMP IF MSB
"!c . _
0122 24 205 INC H I INC MSB ON C
0123 0J0300 200 MONOFY LD BC.3 13 LOOPS
_-:;0~1~2~0;____--cC~DC';8:c:0;:0;;_;,.1
__
R;o--=2~0_:::7------"C:;:A"'LO'L~-
... L ;' O "-' A 7' D :cS":S"_:_ 'LOAD 8UFF.fE_R
~~
.. .. _
0129 3A2302 R 208 LD A, (DAYI 'GET DAY
012C CD5D01 R 209 CALL CONSUB
I
CONVFRT
_~0~1~2~F:o;_--;:3:=A~2~0:"0~2~-eR:____'!,2~1:_'0~----____';L='D'!_c_c:___- --::A~'c'("C",E:,-,N:.'-'-1
- '--_ I GIE T CIENT UR\,
~
__
111132 CD5A0l R 2 I I CALL C O N C A R - I CO N
VErn-- -
IlL35 3A21 102 R212 LD A.(YR1) I GET YEAR
0138 CD5A01 R 213 CALL CONCAR ,CONVERT
0138 ED5B2402 R 214 LD DE. (JULIAN) IJULIAN DAY
013F B7 215 OR A 'CLEAR CARRY
0140 CDbllill R 2 to CALL C'lNSUI I CONVERT AND MOVE
--:"'~14-;;.3;r-.;;E;;;B;..='..::.:...-.:c:........;2<-:1.-'7;;..---------;E;;X~. =---O:D~E;...:.:HL~:...---
'OUTPUT BUFFER ADORESSm--HL------
11144 010800 218 LD BC.8 'COUNT FOR MOVE
_-:IO~l;..4.;....;.7_.....;C;;[J'.:8;.;1l:;;0;;..;,1. _---;;R~..;2~1~9~------CC~A:;:L::-,L=--__':L:.:o"-A?_':D"'S;cS"_:_,_-~
'BUMP OVER
TI
ME
AI_RIEA.Q~_QlJTPlrr BUFF£~
__
014A 3A221il2 R 2210 LD A. (MONI 'GET MDNTH
014D CD5D01 R 22' CALL CONSUR I CONVERT
0150 3A2b02 R 222 LD A, (WKI) 'DAY OF WEEK
01S3 CDSD"l
R 223 CALL CONSUB
-~NVERT------·------
10150 AF 224 XOR A I CLEAR ACCUM
0J57 C32DOO R 225 JP
__ ALEXIT~_ .. ~JUMP.T.Q_IE)(J_:r
220 ,
"15A 37 227 CONCAR SCF ISET CARRY FLAG (DON'T CALL FDlTM)
0158 1801 228 JR NDCARY 'JUMP OVER CLEARI"iG CARRY FLAG
015D B7 229 CONSUB DR A ICLEAR CARRY FLAG (CALL- f7DIi;,o--··-----
015E 1 bOO 2310 NOCARY LD D.0 'ZERO MSB FOR CONVERT
_~0'-'l-'0'-"0'---~5"'F'__
.<2""3...,1 --'L"oD-'--_ _ . < ; ; E ....."-A'---_ _ . ....1JL!>,LUE TD
CQ~_\!EHI
_
0101 211 B02 R 232 CONSUl LD HL, BUFF5 '5UFFFR CONVERT ADDRE 5S
199