80-Bus News

  

September-October 1984, Volume 3, Issue 5











Page 41 of 47











PolyZap V2.2

ASSEMBLER

PAGE 4

1900 1000 1800 1000 1004 1007 100A 100D LOOE 1012 1016 101A 101E 1022 1026 102A 102D 1031 1035 1039 103D 1041 1045 1049 104D 1051 1055 1058 105c 1060 1063 1064 1065 1067 1069 106C 1LO6F 1072 1073 1074 1075 1076 107A 107B 107c

108C 1090 1094 1098

DD210018 217B13 22780C cppCc 12 EF 20202020 204C6F61 64204469 736B2069 6E 204472 69766520 30205072 657373 2022456E 74657220 222E0D0D 20202020 20546F 20 456E6420 74686520 50726F 67 72616D6D 65205072 657373 20224573 63617065 222E00 DF

7B

FELB 2806 CD4B11 C30A10 218113 DF

71

EF

OD 454F460D

20202020 20202020 20202020 4C6F6164

START

OUTLOC

LOOP

ENDIT

ORG IDNT EQU LD LD LD CALL RST DB

DB

DB

DB

RST DB cP JR CALL JP LD RST DB RST DB DB

RST DB LD LD Lb INC DINZ CALL RST DB

DB

£1000 £1000, £1000 £1800

IX, OUTLOC HL, OUTPUT (£0078) , HL PAGE

PRS

’ Load Disk in Drive 0 Press”

3LOAD OUTPUT AREA

;POINT TO USER OUTPUT

* “Enter ‘".’,CRET,CRET

To End the Programme Press”

-

"Escape".’ ,0

NASSYS BLINK

ESC 31S ESCAPE Z,ENDIT

DIR

LOOP ;NEXT DISK HL, OUTTAB ;FLIP OUTPUT NASSYS

NOM

PRS

CRET

“EOF’ ,CRET, 0

NASSYS NNOM ;BACK TO NORMAL A,O

B, 0 (1X40), A IX

L10

PAGE

PRS

– va

;OUTPUT NULLS

“Load File Insert disk.

PolyZap V2.2

ASSEMBLER

PAGE 5

109C 10A0 10A4 10A8 10AC 10AE LOAF 10B3 10B7 10BB 1OBF 10€3 10C7 10CB LOCF 10D1 10D2 10D3 10D4 10D6 10D9 LODA 10DB LODC 10DD 1ODF 10E1 10E2 L0E5 1lOE6 10E8 10E9 1OEC LOFO 1OF4 1OF5 10F6 10F8 LOFC 10FD 1OFF 1100 1101 1102 1103 1106 1107 1108 110A 110€ 1LOE 110F 1110 llli 1114 L1L5

2046696C 6520496E 73657274 20646973 6B2E

oD 20202020 20202020 20202020 2D2D2D2D 2D2D2D2D 2D 2D 2D 2D 2D2D2D2D 2D 2D 2D 2D 2D2D

00

DF

7B

3EFF 3201C0 AF

4F

210018

ED5B14C4 ED53A113

cl

48

0600

ED43A313

41

0E00

DF

82

DE

8A

219513

DF ENTER 87

283F

FE31

2802

DF ENT10 8A : E5 ENT20 210A00

19

CB46

DB DB

DB

DB RST DB LD LD XOR Ub RST DB

PUSH POP LD OR SBC PUSH LD LD LD POP LD Lb LD LD LD RST DB RST DB LD RST DB

cP JR RST DB PUSH Lb ADD BIT

CRET

+

0

NASSYS BLINK

A, EFF (DDRV),A A

CA NASSYS ZRDIR NZ,L20

1X

HL

DE, OUTLOC A

HL, DE

HL

HL, OUTLOC DE, (NXTSEC) (FXSEC) , DE BC

C,B

B,O (EXNSC) ,BC B,C

c,0 NASSYS ZDWR NASSYS ZCKER

HL, FXFCB NASSYS ZENTER

Z, STOPIT £31 Z,ENT20 NASSYS ZCKER

aL

HL, PXSFL-FXNAM HL, DE

0, (CHL)

;FORCE DIR READ ;DIRECTORY DRIVE IN 0 sREAD DIRECTORY

$READ DIRECTORY ;ERROR TRY AGAIN

;CALC NUMBER OF SECTORS 3HL = ACEND)

3DE = A(START)

;HL = L(DATA)

;KEEP LENGTH

sHL = ACSTART)

;DE = AC(NEXT FREE SECTR) 3;LOAD FCB

;RECOVER NUMBER OF SECTS 3;C = NUMBER OF SECTORS

5B = 0

sLOAD FCB

3B = NUMBER OF SECTORS

3C = DDRV ie 0

;WRITE IT OUT

;HL = ACFCB) sTRY ENTER IN DIRECTORY

;FILE EXISTS

sANOTHER ERROR ;KEEP HL

;REL POS OF SYSTEM ;FIND SAME NAME FCB 318 IT LOCKED

41


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











Page 41 of 47