80-Bus News |
November–December 1983, Volume 2, Issue 6 |
|
|
|
Page 59 of 67 |
|
|
|
---|
59
INTEL-HEX dump program
80D1 80D2
80D5 s0De 80D7T
SODA 80DC 80DE 80E1 8083
7D CD 808E
AF 92 cD 8096
06 3C 1E 00 CD 8075 10 F9 cg
INTEL-HEX dump program
Macros:
Symbols:
8400 BOAD EOoO 8880 8007 8096 8083 80BE
BUFFER HEXAS NEWSTACK RECCNT1 START TRYTE TCRLF TYPENDFL
No Fatal error(s)
null: nulli:
8075 OOOA B0DA 9010
80B5 B0A3 804A
M-80 20 Nov 1983
ld a,l
call tebyte
xor a
sub d
call tbyte
ld b,60
1d e,0
call conout
djnz nullt
ret
end M-80 20 Nov 1983 CONOUT oooD LF 8015 NULL 80DC RECONT2 g000 STARTADD 9200 TCADDR 808E THEX 8068 TYPEREC
00:45 PAGE 1-3
Load HOF rec. type in <A> Send it
Clear <A> Get checksum .. +» and send it
Send 60 nulls
00:43 PAGE 8
cR LOADBUPFF NULL1 RECNUM STCKSV TCBYTE TYPEBYTE
INTEL-HEX dump program
807B 807E 807F 8080 8081 8082
8083 8085 8088 808A 808D
808E 808F 8090 8091
8092 8095
8096 8097 8098 8099 809A 809B 8098 809F BOA2
BOA3 80A5 80A8 80A9 80AC
BOAD 80AF 80Bi 8082 BOB4
80B5 80B6 80B9 BOBA 8OBD
80BE 8001 8003 80C6 8007 80c8 80CB 80CE
cD Fi ct Di Et cg
iE cD 1E cD cg
4F B2 57 79 cD 69
cD 1B cD AF 57 cD 21
cD
0005
oD 8075 OA 8075
8096
8043, 8043, OF 80AD 8075 30 BA O07
808E
808E
8083 8075 808E
0000 80B5
M-80
eall pop pop pop pop ret
terif: ld call ld eall ret
tebyte: ld add ld ld eall ret tbyte: push rlca rlca Tica rlca eall pop call ret
thex: and call 1d eall ret
hexas: add cp ret add ret
teaddr: ld call ld eall ret
typendfl: call 1d call xor ld eall ld call
20 Nov 1983
0005h af be de hi
e,cer conout e,lf
conout
c,a a,d d,a a,c tbyte
af
thex af thex
Oth hexas @,a conout
a,h tcbyte al tcbyte
terlf e,’:’ conout a
d,a tebyte hi,o0 teaddr
wee we
00:43 PAGE 1-2
Call FDOS
Send a CR
Send a LF
Save the byte in <C> Add to checksum in <D>
Swop byte back to <A>
Save the byte Rotate high nibble .. +» into low nibble ..
+. and send it Get back byte .. +» and send low nibble
Mask high nibble Convert to ASCII
Send it
Convert to ASCII
See if > 9
Return if not ..
+.else convert to letter
Get hi. byte of address Convert to ASCII & send Get low byte of address Convert to ASCII & send
Send a CR LF Send a block marker
Clear <A> and <D> Send a zero record length
Clear HL, thus current address
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 59 of 67 |
|
|
|
---|