80-Bus News

  

April–June 1982, Volume 1, Issue 2











Page 39 of 55











us Ne SS NE SE

me

D1:

D2:

PolyDos 2.0 DUMP utility

by Anders Hejlsberg, June 1982

REFS REF

ORG IDNT

LD LD LD SCAL SCAL LD SCAL SCAL SET SET SCAL SCAL LD SCAL CALL LD LD LD LD OR JP DEC LD PUSH PUSH LD LD LD LD LD SCAL SCAL INC LD POP POP PUSH PUSH LD LD OR JR LD LD INC OR JR RST DB DB

SYSEQU

1000H $,$

B,110B

DE, (CLINP) HL,FCB ZCFS

ZCKER (CLINP) ,DE ZRDIR ZCKER

4,B

5,B

ZLOOK ZCKER

HL, POUTT ZNOM

TOPPG

DE,0

C,E

HL, (FCB+FNSC) A,H

L

z,D11

HL (FCB+FNSC) ,HL DE

BC

HL, BUFFER DE, (FCB+FSEC) A, (DDRV) C,A

B,l

ZDRD

ZCKER

DE (FCB+FSEC) ,DE BC

DE

HL

DE

HL, (CLINP) A, (HL)

A

Z,D5 HL,PLCT

A, (HL)

HL

(HL)

NZ,D5

PRS

‘DUMP V1.0’ TAB,0

eee ee eee cee nee meer es Sn sh ee hm tS ee ey tr Sem sh ene ts ry Ar ml a mem ih, ey

;Get symbols from SYSEQU 7Get all of them

;Define program origin and ;load/execute addresses

:Type and drive optional ;Pick up command line ptr :Point to FCB

;Convert file name

;Check for error

;Save new command line ptr Read directory

;Check for error

:Copy dir info to FCB sInclude locked files ;Look up file

;Check for error

7Point to output table sActivate printer

:Move to top of form sInit dump address

:Init page number

3;Get sector counter

; Zero?

7Yes => done ;Decrement

:Save it

;Save dump address ;Save page number sPoint to RAM buffer 3Get sector address :Read from dir drive

;One sector

3Go read

sCheck for error Point to next sector +Save address ;Restore page number :Restore dump address ;Save buffer pointer ;Save dump address :Point to heading sLoad first character ;Empty?

7Yes => skip

;Point to PLCT

tLoad it

Point to PPOS

:Zero if PLCT=PPOS=0 ;Not at top of form => skip Print DUMP message


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











Page 39 of 55