80-Bus News

  

November-December 1984, Volume 3, Issue 6











Page 19 of 55











OF 87 OF 8B OF SF OF 93 OF 97 OF 9B OF OF 9FA3 OFA? OF AB OF AF 9FB3 OFB7 SEBO OFBB SFBC OF BE 9FCO 9FC2 9FC5 9OFCE

9FCC OFCF OFD2 OF D6 OF DA OF DE OFE2 OF EG OF EA OFEE OFF 2 9EF3 OFF 6 OFFS OFEB OFFD AQ00 AOOL A002 A004 A006 AQ09 AG0C AOOF AQL2 A016 AQLA AOIE A022 A026 AOD2A AQ2E A032 A033 A036 A038 AQ3B

EFODOD52 414D2062 6C OF 636B 206C6172 67657220 74686165 20524F4D 20202063 6861 6867 65204550 524F 4020 74797065 3F00

DP 7B

C332 9F ED533EA3

21CA09 22290C EF426173 65206164 64726573 73206F 66 20524F 4D 3F 202020 20202020 20202020 00

2A4 243 DF 66 CDO7A3 DF 63 211£00 19

EB

DF 64 3806

2A2 10C 2242A3 214A0A 22290C EF 537461 72742061 66642065 6£642061 64647265 7373206F 6620524F 4D3F 2020 00 244243 DF 66 244243 ED5B3EA3

SIZOK

TRYAG2

TRYAG3

;Otherwise print message \

PRS \ DB NL,NL,"RAM block larger than ROM – change EPROM SCAL BLINK type?",0 PUSH AF CALL DELETE POP AF

CP irytt

JP Z,PROGRA sIf yes start again

JP TRYAGL sElse reenter RAM addresses LD (RAMLEN) , DE ;Store block length in wspace ;Get ROM start and end addresses

LD HL, LINE2+64*6

LD CCURSOR) ,HL

PRS \ DB “Base address of ROM? "40 LD HL, (ROMBAS) ;Display default value SCAL TBCD3

CALL RETCUR SCAL INLIN

LD HL, 30

ADD HL, DE

EX DE,HL

SCAL NUM

JR C, TRYAG2

LD HL, (NUMV)

LD CROMBAS),HL LD HL, LINE2+64*8 LD (CURSOR) ,HL

sWait for input

;DE points to first digit 3;Get value ;Try again if invalid

;Put value in workspace

PRS \ DB "Start and end address of ROM? ",0 LD HL, (ROMBAS) ;Display default values SCAL TBCD3

LD HL, CROMBAS)

LD DE, CRAMLEN)

AO3F A040 Ad4l A043 A045 A048 AO4B A04D A050 A051 A052 A054 A056 A059 AO5D AQSE A060 A062 A065 A067 A069 AQ6C AO6D AO6F A073 A074 A076 AQ78 A079 AO7A AO7B AO7D

A081 A085 A086 A087 A089 AQ8A AO8B

AO8D AO9L A095 A099 AOSD AOAL AOA5 AOA8 AQAA AQAD

AOBO AOB4 AOBS AOBC A0CO A0C4

AOCC

13

B7 EDS2 DF 66 CDO7A3 CDO7A3 DF 63 211200 19

EB

DF 64 38B6 2A210€ ED4B42A3 B7 ED42 38AA 224443 DF 64 3843 2A210C B7 ED42 ED5B44A3 B7 ED52 3894 19

EB

B7 ED52 ED5346A3

ED5SB3EA3 2B

B7

ED52

7C

B5

2823

EFOD426C 6F 636B20 60656E67 74687320 64696666 6572656E 742100 DF 5D CcD2CA3 C3329F

EFOD5377 69746368 20746F 20 50524F47 52414D20 616£6420 70726573 73202750

INC DE

OR A

SBC HL, DE SCAL TBCD3 CALL RETCUR CALL RETCUR SCAL INLIN

LD HL, 30

ADD HL, DE

EX DE, HL

SCAL NUM

JR C, TRYAG3 LD HL, (NUMV) LD BC, CROMBAS) OR A

SBC HL, BC

JR C,TRYAG3 LD (ROMSTA),HL SCAL NUM

JR C, TRYAG3 LD HL, (NUMV) OR A

SBC HL, BC

LD DE, (ROMSTA) OR A

SBC HL, DE

JR C,TRYAG3 ADD HL, DE

EX DE,HL

OR A

SBC HL, DE s;HL = – ROM block length LD (ROMEND), DE ;Store in workspace sCheck ROM and RAM block lengths are same

LD DE, (RAMLEN)

DEC HL

OR A

SBC HL, DE

LD A,H

OR L

JR Z,CARYON

;Otherwise print message

jWait for input

;DE points to first digit 3Get Hex value 3Try again if invalid

sHL = STA – BAS

;Try again if STA < BAS Store in workspace 3Get ROMEND

3HL = END – BAS

HL = END – BAS – STA ;Try again if END < STA 3HL = END – BAS

;DE = END – BAS, HL = STA

sCarry on Lf Ol

PRS \ DB NL,"Block lengths different!",0 SCAL TDEL

CALL DELETE

JP TRYAGL

sWait for keypress

sand try again

19


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











Page 19 of 55