Radio Shack TRS-80 Model II Reference Manual page 164

Modell! TRSDOS
DAHl
12/10/79-1')'00
PAGE
')
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.8
-----13i(;4-
0600 233 LD B,0 ICONVERSION PARAMETER
0166 E5 234 PUSH HL ISAVE ADDRESS
0167 F5
235
PUSH AF
ISAVE FLAGS
0168 3E15 236 LD A,I5H I CONVERT
016A CF
237 RST 8 ISVC
0161:3 Fl
238
POP AF
I GET FLAGS
016C D49202 R 239 CALL NC,EDITM IEDIT CONVERSION rJN NO CAClRY
01 bF 2A9301 R 240 LD HL. ,(TABDRS) ITABLE COUNT
0172 4E 241 LD
C,(HL)
ILENGTH TO MOVE
0173
23 242 INC HL I BUMP
0174 229301 R 243
LD (TABDRS) .HL ISAVE ADDRESS
------'ll 77 AF
24."-----
XOR A 17ERrJ ACCLJM
- - - - - - - - - - - - -
0178 47
245 LD B,A I ZERO B
10179 57
246 LD D,A IZERO D
017A
3E05 247 LO A,5 ILENGTH OF CONVERSION BUFFER
017C
91
248 SUB
C
IDISPLACEMENT IN CONVERSION BUFFER
017D
5F
249 LD E,A IGET VALUE
017E EI 250 POP HL I FRONT OF CONVERSION BUFFER
1Il17F
19 251 ADD HL,OE IFIND FIRST DIGIT
252 LOADSS
EQU
$
10,180
110000 253 LD DE,0 IGET BUFFER ADDRESS
254 OUTDSS EQU
$-;>
0183
EDB0 255 LDIR I MOVE
0185
ED538101 R 256 LD (OUTDSS). DE ISAVE ADDRESS
0189 C9 257 RET
258 I
01BA 02
259 TABLX OEFB 2
01~B
02
260
DEFB
2
1Il18C
02 261 DEFB
2
01BD
03 262 DEFB
3
.0HlE 102 263 OEFB 2
01BF 02 264 OEFB
2
10190 02 265 OEFB
2
0191 02 266 DEFB
2
~:1' 92
01
267 DEFB I
268
I
~.
0193 8A01 R
269
TABORS OEFW
TABLX
270
I
0195 404F4E54 271 NAMDAY DEFM 'MONTUEWEOTHUFRISATSUN'
272 I
0lAA 2020204A
273 NAMONT DEFM JANFEBMARAPRMAYJUNJULAUGSEPOCTNClVDEC'
274
I
0101 00
275 MONTHS DEFB 00 INO MONTH
0102 IF 276 DEEB 31 IJAN
10103 IC 277 FEB DEFB 28
IFEB
0104
IF
278 DEFB 31 IMAR
01D5 IE 279 DEFB 30 I APR
0106 IF 280 DEFB
31
I MAY
0107 IE
281 DEFB 30 IJUN
0108 IF
282
DEFB 31
IJUL
0109
IF
283 DEFB 31 IAUG
01DA IE 284 DEFI:3 30 ;SEP
010B IF 285 DEEB
31 IOCT
01DC
IE 286 DEFB 30 INOV
0100 IF 287 DEFB 31
IDEC
288 I
010E 3A2102 R 289 LPORNT
LO
A,(YR1)
I YEAR
- - - - - -
~---- ~-
--
01 El 6F 290 LD
L,A IMOVE IT
200