80-Bus News

  

November-December 1984, Volume 3, Issue 6











Page 17 of 55











9D54 9D57 9D5B 9D5F 9D63 9D67

9068

9D6B 9D6F 9D73 9077 9D7B 9D7F 9D83 9D87 9D&B 9D8F 9093 9D95 9D97 9099 9D 9B

9DOF 9DA3 9DA6 9DA8

SDAA

9DAD QDAF

9DB1 9DB2 9DBE 9DBA SDBE 9pc2 9DC4 9DC7 90C8

9DCA 9DCC 9DCE 90D0

9DD2 9DD3 9DD4

CD71A2 EF 564552 4946590D 2D2D2D 2D 2D2D0D0D 00

CD80A2

EFOD5377 69746368 20746F20 52454144 2061 6E64 20707265 73732027 56272077 68656E20 72656164 7900

DF7B

FES6

20FA

EFODODO0O

ED5B40A3 210000 OE 28 0600

CDL9A3

FEFF 2819

C5 EFGEGE74 20657261 73656420 61742000 DE O66 EFODOO cl

OOFF

DF 62 3004 FELB 2827 23

B7

VERIFY

VERIFL WAITL

LOOPY

PASSED

PASS2

gRRAERAAK ARERR AR ERK RRR RRR

3% Verify EPROM * 5 BAIR AIA RR RIK RRR RR RRR E

;Clear screen and write title CALL CLSTIT

PRS \ DB "VERIFY",NL

DB "----=="’, NL, NL, 0

3;Get type of EPROM CALL TYPROM ;Wait for keypress

PRS \ DB NL,"Switch to READ and press “V“ when ready",0 SCAL BLINK

cP ryt

JR NZ,WAITL

PRS \ DB NL,NL,O

sInitialise registers

LD DE, CROMSIZ) 3;Size of EPROM

LD HL,O ;EPROM address

LD C,MSBADD 3;4ddress line port

LD B,O ;Clear not-erased flag ;Read in byte

CALL RDBYTE

s;Test for erased

CP OFFH

JR Z, PASSED sif so carry o s;Otherwise print message

PUSH BC

PRS \ DB Not erased at ",(

SCAL TBCD3

PRS \ DB NL,O

POP BC

LD 8,OFFH sset not-erased flag ;Check if ESCAPE pressed

SCAL INP

JR NC, PASS2

CP ESC

JR Z,FALLED s1lf yes, jump out of loop sOtherwise increment pointers

;for next location, and check for end

INC HL

PUSH HL

OR A

9DD5 9DD7 9DD8

9DDA 9DDC 9DDD

9DDF 9DE3 9DE7 9DEB 9DEF 9DF3 ODF4 9DF6

9DF9 9DFD 9E01 9E05 9E09 9EOD SELL 9E15 9E19 OE 1B 9E1D SELF 9E22

9625 9E 28 9E2C 9£ 30 9E31 9E35 9E39

9E 3B

9E3E 9E41 9E44 9E48 EAC 9E50 9E54 9E58 9E5C 9ESF 9E61 9E64 9E66

ED52 El 38D0

3EFF B8 281A

EFOD4550 524F4D20 66756C6C 79206572 61736564 00

DF5D c39C9C

EFOD4550 524F4D20 6E6F7420 65726173 65642020 20747279 2061 6E6F 74686572 3F00 DE7B FES9 CA549D C39C9C

CD71A2 EF 524541 4420494E oD 2D2D2D2D 2D2D2D0D ob00

CD80A2

214409 22290C EF537461 72742061 64647265 7373206F 66205241 4D3F 2000 2A38A3 DF 66 CDO7A3 DF63 211600

SBC HL, DE

POP HL

JR C, LOOPY jsLoop back 1f not finished sWhen finished, check not-erased flag

LD A, OFFH

cP B

JR Z,FAILED

;1f fully erased, print message

sand return to menu

PRS \ DB NL,"EPROM fully erased" ,0 SCAL TDEL

JE BEGINA

;Otherwise print message

sand go back to verify again

FAILED PRS \ DB NL,"EPROM not erased – try another?",0 WAITS SCAL BLINK

cP tytn

JP Z, VERIFY

JP BEGINA

pA RAR A RRR aR Ri 3* Read in to RAM * fp RAKRARRARKRAARRRR RRR ER ;Clear screen and write title READIN CALL CLSTIT

PRS \ DB "READ IN" NL

DB "-——=--="’ NL,NL,O ;Get type of EPROM CALL TYPROM sGet start address of RAM block TRYAG9 LD HL, LINE2+64%4 LD (CURSOR) ,HL

PRS \ DB "Start address of RAM? ",0

LD HL, (RAMTAB) ;Display default value SCAL TBCD3

CALL RETCUR

SCAL INLIN yWait for entry

LD HL, 22

17


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











Page 17 of 55