80-Bus News

  

November–December 1984, Volume 3, Issue 6











Page 20 of 55











A0DO AOD4 AODS AODC AODD AQDF AQEL AQE3 AQE7 AOEB AOEF AOF3

AOF6 AOFA AOFE AlOL

A103 A105 A106 A108

A109 Al10C

A10E AlLO

Al12 All3 AlL5S All16 ALL8

AlL9 ALIB

AllD ALLE A120 AL21 A122 A123

AlL25 Al27

A129

Al2c Al2E

A130

27207768 656E2072 65616479 00

DF 7B FESO 20FA

EF ODOD50 726F 6772 616D6D69 6E67 2E 2E 2E0D00

DD2A3A43 EDSB3EA3 244443 OE 28

ED6L oc ED6S oD

DD7EOO D320

3E05 D32C

23 DD23 13 7A B3 20DE

3E4F D32F

3448A3

FE32 2043

EFOD4550

CARYON PRS \ DB NL,"Switch to PROGRAM and press “P” when ready",0

WAIT2

PROGR2

LOOPX

DELAY

SCAL BLINK ce No JR NZ,WAIT2

PRS \ DB NL,NL,"Programming...",NL,O sInitialise registers

LD LX, (RAMSTA)

LD DE, (RAMLEN)

LD HL, (ROMSTA)

LD C,MSBADD

;Output address

OUT (C),H

INC c

OUT (C),L

DEC C

;Output data

LD A,(1X+0)

OUT (DATA_D),A

,

sKeep OE high (inactive)

;Set PGM high (active), and PGM low (active) LD A,OLIB

OuT (CONT_D),A

;50ms delay

PUSH BC

LD B,10

RDEL

DINZ DELAY

POP BC

,

sKeep OE high (inactive) ;Set PGM low (inactive) and PGM high (inactive) LD A,101B

OUT (CONT_D),A ;Do next byte INC HL

INC 1X

INC DE

LD A,D

OR E

JR NZ, LOOPX ;When finished, ;verify correct programming ;Set DATA port to INPUT LD A, 4FH

OUT (DATA C),A

;Check if 2532 EPROM

LD A,(ROMTYP)

CP 32H

JR NZ, RESTOF

;1f it is, print message sand wait for keypress

;Change to 20 for 4MHz

sif not finished

sJump if not 2532

A134 A138 A13C A140 Al44 A148 Al14c A150 A154 A158 A15C A160 Al64 Al68 A16C Al6D Al6F AIT7L

A173 A177 Al7B ALTE

Al80 A182

A185 A188

ALBA A18E A192 A196 ALIA ALIE AlA2 AlA4 AlA7

A1A9 AIAB AAD AIAF

AlBL A1B2 AlB4 AlB5 A1B6 AIB7

A1B9 AIBB ALBC ABE A1C2 A1lCc6 AICA A1CE

524F4D20 69732061 20323533 32202D20 0D537769 74636820 746F 2052 45414420 616E6420 70726573 73202743 27207768 656E 2072 65616479 00

DF7B FE43 20FA

DD2A3AA3 ED5B3EA3 244443 0600

0E28 CD19A3

DDBEOO 281F

EF50726F 6772616D 6D696E67 20666169 60656420 61742000 DF 66 EFODOO O6OFF

DF62 3004 FE 1B 2808

23 DD23 13 7A B3 20C7

3EFF

BS

202F EFOD5072 6P677261 6D6D696E 67206661 69606564

WAITS

RESTOF

LOO PZ

NEXTI

NEXT 2

ESCAP2

PRS \ DB NL,"EPROM is a 2532 = “,NL,"Switch |

SCAL BLINK | to READ and press “C” when ready",0

cP Not

JR NZ,WAITS sInitialise registers LD IX, (RAMSTA)

LD DE, (RAMLEN)

LD HL, (ROMSTA)

LD B,0

;Read in byte

LD C,MSBADD

CALL RDBYTE

;Verify byte

CP (1X+0)

JR Z,NEXTL

;Otherwise print message

;Clear not-programmed flag

sIf OK

PRS \ DB “Programming failed at “,0 SCAL TBCD3

PRS \ DB NL,O

LD B,OFFH ;Set failed-flag s1f ESCAPE pressed then quit

SCAL INP

JR NC, NEXT2

CP ESC

JR Z,ESCAP2

;Otherwise do next byte

INC HL

INC IX

INC DE

LD A,D

OR E

JR NZ, LOOPZ 3if not finished ;Lf any failures go back to program again LD A, OFFH

cP B

JR NZ, PROGOK

20


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











Page 20 of 55