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 |
|
|
|
---|