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