80-Bus News

  

April-June 1982, Volume 1, Issue 2











Page 40 of 55











D3

D4

D5

D6

D7

D8

9

og pe

D1

LD LD INC SUB SUB LD LD : LD INC OR JR DEC LD : RST DINZ RST DB LD ADD DAA LD SCAL SCAL SCAL : POP PUSH SCAL POP EX PUSH LD : LD AND JR SCAL : LD SCAL SCAL INC DJINZ SCAL POP POP LD : LD CP JR CP JR LD RST INC INC DINZ SCAL INC DEC JP JP l: CALL SCAL

se a

HL,PCPL A, (HL)

HL

(HL)

24

B,A

HL, (CLINP) A, (HL)

HL

A

NZ,D4

HL

A,’ ‘

ROUT

D3

PRS

’ PAGE ‘,0 A,l

C,A ZB2HEX ZCRLF ZCRLF HL

BC ZTBCD3 BC (SP) ,HL HL B,16 A,B

7 NZ,D7 ZSPACE A, (HL) ZB2HEX ZSPACE HL

D6 ZSPACE HL

DE B,16 A, (HL) ’ ‘

Cc,bD9 7FH C,D10 A,’.’ ROUT HL

DE

D8 ZCRLF E

E Z2,D1 D2 TOPPG Z2MRET

:Length of user heading sis PCPL-PBMG-24

;Put length in B ;Point to heading :Get character Point to next sEnd of string? sNo => skip

3;Back to the null s:Load a blank sPrint character ;Loop

;Print PAGE message

;Get page number sIncrement (must ADD) :Keep it in decimal

;Print page number ;Do CR/LF 7Do CR/LF :Get dump address

+Print dump address

3Save addr and get buffer ptr ;Save buffer pointer

7Print 16 bytes

;First or ninth byte?

;No => skip

3;Print a blank

7Get byte

:Print it

;Print a blank ;Point to next byte ;Repeat 16 times 7Print a blank ;Restore buffer pointer ;Get dump address ;Print 16 characters 7Get byte

;Control character? 7Yes => skip :Graphic or DEL?

:;No => printable sNot printable 3Print it

:Point to next byte ;Increment dump address ;Repeat 16 times

7Do CR/LF

;Need a new sector?

7Yes => go get it :Print next line ;Move to top of page Back to PolyDos

If paginated output is requested, ensure that the printer is at the top of a form


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











Page 40 of 55