80-Bus News

  

September-October 1984, Volume 3, Issue 5











Page 42 of 47











PolyZap V2.2

ASSEMBLER

PAGE 6

1117 1119 11138 llic 111) 1121

1125 1129 112D 1131

1135 1139 113D 113F 1141 1143 1144 1146 1147 1148 1149 114A 1148 114D 1150 1151 1152 1156 115A 115 1162 1166 116A 116E 1170 1174 1178 117B 117c 117D 11L7E 117F 1181 1182 1184 1186 1187 118A 118c 118F 1190 1192 1194 1195 1196 1197

3E33

20 2B

EF

oD 20202020 20202020 20202020 3C3D204F 40442046 494C4520 44454045 54454420 3D3E oD00 CBCE

El

18c0

El ENT30 DF

8A

OF STOPIT 5B

183D DIR cppc12 DIRLO EF

oD 20202020 20446973 6B206E6F 74204C6F 61646564 20436F 72 72656374 6C79 20547279 20414741 494E00 DF

7B

F5

EF

opoo

Fl

FELB 2004

FL C36F10 3EFF DIR20 3201C0 EF

0co0 300

OF

DF

83

20B4

LD JR RST DB DB

DB SET POP

POP RST DB RST DB JR CALL RST DB DB

DB

RST DB PUSH RST DB POP

POP JP LD LD RST DB LD LD RST DB JR

A, £33 NZ, ENT30 PRS

CRET

}YES STOP

<= OLD FILE DELETED =>*

* Try AGAIN’ ,O

NASSYS BLINK

AF

PRS CRET, 0 AF

ESC

NZ, DIR20 AF

ENDIT A,£PF (DDRV) ,A PRS CLEAR, 0 A,O

C,A NASSYS ZRDIR NZ, DIR10

:DELETE OLD FILE ;RECOVER

;TRY AGAIN sRECOVER HL

;CANNOT OVERWRITE LOCKED

;RET TO NASSYS 3; JUMP OVER ERROR

Disk not Loaded Correctly”

;GET REPLY sKEEP REPLY

;RECOVER REPLY 31S ESC 3;NO

; TERMINATE ;FORCE DIRECTORY READ

;READ DIRECTORY DRIVE 0 3C) «= DRIVE NUMBER

;READ DIRECTORY

PolyZap V2.2

ASSEMBLER

PAGE 7

1199 218113

119C DF

119D 71

119E 0673

1LAO C5 DIR30 1iAl EF

11A2 44726976

1146 652000

11A9 3A01C0

11AC C630

LIAE F7

LIAF EF

11B0 3A20

11B2 00

11B3 0614

11B5 2100C4

11B8 7E DIR40 11B9 F7

1IBA 23

11BB 10OFB

11BD DF

11BE 6A

LIBF 218D13

11€2 0608

11C4 3600 DIR50O 11C6 23

1107 10FB

11c9 0673

11CB 2169C0 DIR60 LICE DF

11CF 86

11D0 2027

11D2 D5

11D3 3A73c0

11D6 ED5B77C0

11DA CB4F

1ipe 200D

11DE 218D13

11E1 34

11E2 249113

11E5 19

11E6 229113

11E9 180B

11EB 218F13 DIR70 1lIEE 34

1LLEF

1LEF 249313

11F2 19

11F3

11F3 229313

11F6 DL DIR80 11F7 18D2

11F9 2A8D13 DIR90 l1lFC E5

11FD CD4F13

1200 EF

LD RST DB LD PUSH RST DB

LD ADD RST RST DB DB LD LD LD RST INC DINZ RST DB LD LD LD INC DINZ LD LD RST DB

PUSH LD LD BIT

LD INC LD ADD LD

LD INC

LD ADD

LD POP

Lb PUSH CALL RST

HL, OUTTAB NASSYS

NOM

B,£73

BC

PRS

“Drive “ ,00

A, CDDRY) A,70* CRT

PRS

B, 20

HL, DIRBUF A, CHL) CRT

HL

DIR40 NASSYS CRLF

HL, NUMFL B,8

(AL) ,O HL

DIR50 B,£73

HL, $2FCB NASSYS ZLOOK NZ,DIR9O DE A,(F2SFL) DE, ( F2NSC) 1,A

NZ, DIR70 HL, NUMFL CHL)

HL, (NUMSC) HL, DE CNUMSC) , HL DIR80

HL, NUMFLD CHL)

HL, (NUMSCD) HL, DE

(NUMSCD) , HL DE

DIR60

HL, (NUMFL) aL

PRINUM

PRS

;SETUP OUTPUT TABLES

s;CHANGE TO LOAD RAM 3 SCAN

;LOOKUP FILE DIRECTORY

; DELETED 5; YES ; INCREMENT NUMBER FILES

3;ADD NUMBER SECTORS

3; INCREMENT NUMBER FILES 3 DELETED

;ADD NUMBER OF SECTORS ; DELETED

42


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











Page 42 of 47