80-Bus News

  

November-December 1984, Volume 3, Issue 6











Page 22 of 55











A2EF A2Fi A2F3 A2F5 A2F7

A2F9 A2FA A2FC A2FD

A2FF A300 ASOL A302 A304 A305 A306

A307 A30A A30E A30F A312

A313 A315 A316 A318

A319 A31B A3IC A31E

A31F A321

A323

A325 A326 A328 A324 A32B

A32C A32F A331 A334 A336 A337

0604 CB25 LOOPB CB14 cB12 LOF8

F5 3£00

2806

81 LOO PW

Fl SKIPPY

242900 RETCUR 28 2B2B2B

2B

222906

co

E60F PRLSB c8

DF 7A

cg

ED61 RDBYTE oc

ED69

oD

3E04 D32C

DB2D

FS 3E05 D32C FL cy

2A290C DELETE DF7C

22290C

3E 18

F7

c9

LD B,4

SIA L

RL H

RL D

DJINZ LOOPB

;If it is zero then return

PUSH AF

LD A,O

cP D

JR Z,SKIPPY

;Add “D’ decimal weightings to byte count POP AF

LD B,D

ADD C

DJINZ LOOPW

PUSH AF

POP AF

RET

;Return cursor (move back 5 spaces) LD HL,C( CURSOR)

DEC HL \ DEC HL \ DEC HL \ DEC HL \ DEC HL LD (CURSOR) ,HL

RET

3Print LSB of accumulator ;suppress leading zeroes AND OFH

RET Z

SCAL BLHEX

RET

sRead in byte from EPROM ;Output address

OUT (C),H

INC c

OUT (C),L

DEC C

Set OF low, keep PGM low (inactive)

and PGM high Cinactive, LD A,100B

OUT (CONT_D),A

;Read in data byte

IN A,(DATA_D)

Set OE high, keep PGM low (inactive)

; and PGM highCinactive) PUSH AP

LD A, 101B

out (CONT _D),A POP AF

RET

sDelete line LD HL,(CURSOR) SCAL CPOS

LD (CURSOR) ,HL sHL points to LHS of line LD A,ESC 3Send ESCAPE

ROUT

RET

A338

A342

A348

A34A A34E

A34F A353 A357 A35B

00D8

0000

1600

08102040 80

4550524F 4D205052 4P475241 4D4D4552

RAMTAB RAMSTA RAMEND RAMLEN ROMS IZ, ROMBAS ROMS TA ROMEND ROMT YP

EPRTAB

TITLE

END

g BRAK R RAH R AE RR RRR

3* Data tables * j RR AH RRR RR RR EKER

DW OD800H ;Tabulate address DS sStart of RAM block DS 3End of RAM block DS sLength of RAM block ;Size of EPROM in bytes ;Base address of EPROM ;Start address for programming ;End address 6H ;Type of EPROM (default 2716)

NAN NON N + RAB

Ds DW

sAllowable EPROM sizes (DIV 256) DB 8, 10H, 20H, 40H, 808

;Title

DB "EPROM PROGRAMMER"

Workarea – 95D3 to 9B14 ORG end – A35F LOAD end =- 9C8C

22


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 22 of 55