80-Bus News

  

November–December 1984, Volume 3, Issue 6











Page 21 of 55











AlD2 AlD6 ALDA AIDE AlEl AlE3 A1E5 A1E8 ALEB

AlED ALFL AIF5 AlF9 ALFD A201 A205 A206 A20A A20E A212 A215 A216 A218 A2lc A220 A224 A228

A22C A2aF A231 A235 A239 A23D A241 A245 A247 A249 A24B A24E A251 A255 A259 A25D A261 A265 A267 A269 A26B A26E

A271 A274 A277 A274

202D2054 72792061 6761696E 3F 2000 DF7B FE59 CAE 3A0 EF ODOO 1864

EF50726F 677261 6D 6D696E67 20737563 63657373 66756CO0D oD 40617374 206C6F 63 6174696F 6£ 2000 2B

DE66 EF70726F 67726160 6D6 56420 77697468 2000

DD 2B DD7E00 DF68

EF ODODOO EF41 6E6F 74686572 20455052 4P 4D203F 2000

DF 7B FE59 C29C9C C31L1L9F EFOD5472 792061 6E 6F 746865 72204550 524F 4D 3F 2000 DF7B FE59 829C 9C C3B0A0

EFOCOO 11D80B 21L4PA3 011000

WAIT3

PROGOK

ANOTHA WAIT4

CLSTIT

PRS \ DB NL,"Programming failed – Try again? “,0 SCAL BLINK

cP trytt

JP 2%, PROGR2

PRS \ DB NL,O

JR ANOTHA

sProgramming OK

PRS \ DB “Programming successful” ,NL, NL

DB “Last Location “,0 DEC HL SCAL TBCD3

PRS \ DEC IX LD A, (1X+0)

SCAL B2HEX

PRS \ DB NL,NL,O

DB “programmed with “,0

PRS \ DB “Another EPROM ? “,0 SCAL BLINK

cP nytt

JP NZ,BEGINA

JP PROGRA

PRS \ DB NL,"Try another EPROM? “,0 SCAL BLINK

cP ity

JP NZ,BEGINA

JP CARYON

gRRKHERRAKKEARARRREARE

3;* SUBROUTINES *

ote ok iit dei ai ii

;Clear screen and write title PRS \ DB CLS,0

LD DE, TOPLIN+14

LD HL, TITLE

LD BC, 16

A27D A27F

A280 A284 A288 A28C A290 A294

A295 A298 A299 A296 A29D A29E A29F A2A0 A2Al A2A4& A2A5

A2A8 A2AB A2AE A2B0 A2B3 A2B4 A2B5 A2B7 A2B9 A2BC A2BE

A2C0 A2C3 A2C6 A2C8 A2CB A2CcD A2D0 A2D2 A2D5 A207 A2DA

A2DC A2DF A2E2 A2E4

A2E6 A2E7 A2E9 A2EC

A2ED

EDBO cg

EF 547970 65206F 66 20455052 4F4D203F 20203237 00

2A48A3

iF iF CD13A3 7D CD13A3

21DD08 22290C DF63 211300 19

EB DF64 38EF 3A200C FEO4 30E8

242108 2248A3 3£00 CDEDA2 OE 64 CDEDA2 OEOA CDEDA2 OEOL CDEDA2 CBILF

214AA3 010500 EDBL 2062

67 2£00 224043 cy

1600

TYPROM

TRYAG7

CNVERT

BCDBIN

LDIR RET sGet EPROM type

PRS \ DB “Type of EPROM ? sPrint default value LD HL, (ROMTYP)

LD A,H

CALL PRLSB

LD A,L

RRA

RRA

RRA

RRA

CALL PRLSB

LD A,L

CALL PRLSB 33rd digit

;Read in decimal value

LD AL, LINE2+64*2419

LD (CURSOR) ,HL

SCAL INLIN

LD HL, 19

ADD HL, DE

EX DE, HL

SCAL NUM

JR C, TRYAG7

LD A, (NUMN)

cp 4

JR NC, TRYAG7 sTry again if over 3 digits s;Convert ROM type to ROM size in bytes

LD HL, (NUMV) sGet “BCD” value

LD (ROMTYP) ,HL ;Put in workspace

LD A,O 3Zero byte count

CALL BCDBIN ;First call is a dummy

Lb C,100 sHundreds

CALL BCDBIN LD C,10 CALL BCDBIN LD C,1

CALL BCDBIN RRA sDivide by 2

jAcc now has EPROM size DIV 256

sCheck that this size is allowed

LD HL,EPRTAB

LD BC,5

CPIR

JR NZ, TRYAG7 sTry again if it doesn’t 3;If OK, load value into ROMSIZ

LD H,A

LD L,O

LD (ROMS1Z),HL

RET

3;BCD to binary conversion

sShift next most significant digit

sinto reg D

LD D,0

27",0

sist digit

32nd digit

;Tens

s;Units

21


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











Page 21 of 55