80-Bus News

  

November–December 1984, Volume 3, Issue 6











Page 18 of 55











969 9E6A 9E 6B GE6D GSE OF 9E72 9E73 9E75

9E78 9E7B 9E7F 9E8O 9E83 9E86

9E89 9B 8D 9E91 9E95 9E99 9E 9D SEAL 9EA5 SEAY SEAD 9EBL 9EB3 SEBS 9EB7

9EB9 9EBC

SEBE

SECI

9EC4 9EC5 SEC? 9EC8 9EC9 GECB SECC

9ECE 9EDL 9ED3 9EDS 9EDO 9EDD 9EEL 9EE5 9EE9 SEED GEPL 9EF5 GEES SEFD

19

EB DF64 38CF 2A2 1 0C E5

DDE 1 2238A3

220C0C ED5B40A3 19 220E0C 210E00 2216006

EFOD5377 69746368 20746F20 52454144 20616864 20707265 73732027 52272077 68656E20 72656164 7900

DF7B

FE52

20FA

210000 OF 28

CDL9A3

DD7700

23 0D23 £5 B7 EDS52 El 38FO

EFODOO DF60 DF54 EFOD5072 65737320 27542720 T4&6P 2054 4142554C 4154450D 6F 722061 6E7 9206F 74686572 206B6579 20666F 72

WALT?

LOOPRD

TABULT

ADD HL, DE EX DE, HL SCAL NUM

JR C,TRYAG9 LD HL, (NUMV) PUSH HL

POP IX sand IX

LD (RAMTAB) , HL sand workspace ;Load arguments ready for Tabulate command LD (ARGL),HL

LD DE, (ROMSIZ)

ADD HL, DE

LD CARG2),HL

LD HL, OEH

LD (ARG3),HL

;Wait for keypress

;DE points to start of entry ;Get Hex value

s;Jump if invalid

sStart address in HL

PRS \ DB NL,"Switch to READ and press “R” when ready",0

SCAL BLINK

cP te

JR NZ,WALT?

;Set up regs ready for loop

LD HL,O ;EPROM address LD C,MSBADD sAddress line port addr. ;Read in each byte

CALL RDBYTE

;Put into RAM

LD (1X+0),A

sIne pointers and check for end

INC HL

INC IX

PUSH HL

OR A

SBC HL, DE

POP HL

JR C,LOOPRD ;Tabulate RAM contents PRS \ DB NL,O SCAL ARGS SCAL “T”

sLoop back if not finished

9FO1 9FO5 9FO7 9FO9 OF OB SF OE

OF LI OF14 OF 18 9F 1C OF 1D 9F21 9F25

OF 27 OF 29

OF 2B 9F 2D

OF 2F

9F 32 9F35 9F38 OF 3C 9F 40 OF 44 OF 48 OF 4C SF50 OF 54 OF 58 9F59 OF 5B OF SE OF SF SF 60 OF 62 OF 64 OF 67 OF 6A OF 6C OF 66 9F70 9F74 SF76 9F77 9F78 OF7A 9F7C 9F 80 OF 81 OF 84 9F85

204D454E 5500 DF7B FE5S4 CACE 9E C39C9C

CD71A2 EF50524F 4752414) oD 2D2D2D 2D 2D2D2D0D opoo

PROGRA

3E05 D32C

3E0F D32F

CD80A2

214409 22290C EF537461 72742061 6£642065 66642061 64647265 7373206F 66205241 4D 3F 2020 00

DF63 211E00 19

EB

DF 64 38CE 2A2108 223AA3 E5C1

DF 64 3802 ED5B210C C5E1

TRYAGI

30B6

ED533CA3

EB

2440A3

19 ‘ 3841

PRS \ DB NL,"Press “T’ to TABULATE",NL,"or any other key For MENU",

SCAL BLINK

CP Wapty

JP Z,TABULT

JP BEGINA

RHI RIK RRR RER RIA RRR RE

;* Program EPROM *

RAR RR RIK RRR RR IRI IIR

;Clear the screen and write title CALL CLSTIT

PRS \ DB “PROGRAM” ,NL

DB “--=----",NL, NL, 0

+ aneiisen ;Set Of high PGM low and PGM high LD A,101B

OUT (CONT_D),A

;Set DATA lines to output

LD A, OFH

OUT (DATA_C),A

;Get EPROM type

CALL TYPROM

3;Get RAM addresses

LD HL, LINE2+6444

-LD (CURSOR) ,HL

PRS \ DB “Start and end address of RAM? “,0 SCAL INLIN ;Wait for entry

LD HL, 30

ADD HL, DE

EX DE,HL

SCAL NUM

JR C,TRYAGL

LD HL, (NUMV)

LD (RAMSTA) ,HL PUSH HL \ POP BC SCAL NUM

JR C,TRYAG1

LD DE, (NUMV) PUSH BC \ POP HL INC DE

OR A

SBC HL, DE

JR NC, TRYAGL

LD (RAMEND), DE EX DE, HL

LD HL, (ROMSIZ) ADD HL, DE

JR C,SIZOK

;DE points to firet digit 3;Get start address ;Try again if invalid

jLoad value into workspace sand save in BC

3Get end address

3Try again if invalid

;DE has end address

;HL has start address

;Try again if end jaddress < start ;DE = -length of block

;Jump if RAM <= ROM size

18


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











Page 18 of 55