80-Bus News

  

September–October 1984, Volume 3, Issue 5











Page 40 of 47











PolyZap V2.2

ASSEMBLER PAGE

0000

0000

0000

0080 ZDSIZE EQU 0081 ZDRD = EQU 0082 ZDWR = -EQU 0083 ZRDIR – EQU 0084 ZWDIR _EQU 0085 ZCFS EQU 0087 ZENTER EQU 0088 ZcOoV. —- EQU 0089 ZCOVR QU 008A ZCKER EQU 008B ZCBRK – EQU 008cC ZCEMA _ EQU 0086 ZLOOK —-EQU 0063 ZINLIN EQU 008E ZJUMP -EQU 008F POUT EOQU

DUMP V1.0 DUMP DIRECTORY 1380 C9 75 00 10 27 E8 03 64 1390 00 00 00 00 00 49 4E 44 13A0 00 00 00 00 00 00 00 00

NASCOM BASIC LISTING ..... PAGE

£80 £81 £82 £83 £84 £85 £87 £88 £89 £BA £8B £8C £86 £63 £8E £8F

PROGRAM

DISK COMMANDS

enn ne

;DISK SIZE ;READ

WRITE

;READ DIRECTORY

SWRITE DIRECTORY ;CONVET FILE SPECIFIER ;UPDATE DIRECTORY ;CALL OVERLAY

;CALL OVERLAY RESTORE ;CHECK FOR ERRORS ;CHECK POR BREAK sABORT COMMAND MODE ;LOOKUP FILE DIRECTORY ;MONITOR INPUT LINE

; JUMP ROUTINE

SPRINTER OUTPUT

PAGE 02

00 OA 00 O1 00 00 00 00 suse eedeceosees 58 44 41 54 41 44 54 00) «+++. INDXDATADT. 00 00 00 00 00 00 00 00) csceesevevessecs

1- 04

20000 PRINT CHRS(4);”

20010 PRINT CHRS(4);” 20020 RETURN

SER SS oe oe ae oR Ee som ee ee

DISK INDEX LISTING”

PolyZap V2.2

ASSEMBLER

PAGE 3

9000 0000 0000 co000 C000 cool c002 c003 C004 coos C006 c008 cOOA COOB cooc coop COOF c010 coll c012 c013 col4 c016 col7 c018 colo CO1B CO4B cQ55 C055 cO5D COSF c060 c06l C063 C065 C067 C069 C069 co7l c073 C074 c075 C077 co79 CO7B co7D C083 coco coco coco C400 C414 C416 C418

teh etree Et Hee tet eteeerets

tetteegt

+e bree eee tse

0001 0001 0001 0001 0001

MDRV DDRV DRVCOD FIRST ERRFLG ERRCOD BREAK BRAM BNSC CFFLG CFDRV CFSEC CFNSC CFSBP RKROW RKBIT RKVAL RKCNT BLINKF PLCT PPOS CLINP CLIN OVFCB SIFCB FLNAM PIEXT F1SFL FIUFL F1SEC FINSC FALLDA FLEXA S2FCB F2NAM F2EXT F2SFL F2UFL F2SEC F2NSC F2LDA F2EXA DSKWSP SYSWSP

DIRBUF N&ETSEC NXTFCB FCBS

EQU Ds DS DS ps DS DS DS DS EQU DS DS DS DS DS DS DS DS DS DS

EQU EQU EQU EQU

£0000

oo weed ed ed ed mt met OP AD et EO et ee HE tH ST OH ON NNN NON HH NAN NOOO

£0400 £0414 £C416 £C418

POLYDOS WORKAREA

;MASTER DIRECTORY DRIVE sMASTER DIRECTORY NUMBER ;DRIVE CODE

;POWER UP FLAG

sERROR FLAG

;ERROR CODE

sBREAK ADDRESS

;RAM BUFFER ADDRESS ;RAM BUFFER LENGTH ;COMMAND FILE FLAG ;COMMAND FILE DRIVE sCOMMAND SECTOR ADDRESS ;COMMAND SECTOR COUNTER ;COMMAND SECTOR POINTER :KEYBOARD ROW

;KEYBOARD BIT MASK +REPEAT KEY VALUE ;REPEAT DELAY COUNT ;BLINK ROUTINE FLAG ;PRINT LINE COUNTER ;PRINT HEAD POSITION [COMMAND LINE POINTER ;COMMAND LINE BUFFER ;OVERLAY FCB

;FILE NAME ‘FILE EXTENSION ;SYSTEM FLAG ;USER FLAG :SECTOR ADDRESS ;NUMBER SECTORS ;LOAD ADDRESS ,EXEC ADDRESS

;FILE NAME

;FILE EXTENSION ;SYSTEM FLAG

;USER FLAG

;SECTOR NUMBER

;NUMBER SECTORS

;LOAD ADDRESS

; EXEC ADDRESS

;DISK I-0 WORKSPACE ;MISC COMMAND WORKSP

DIRECTORY BUFFER

eR en ee

;DIRECTORY BUFFER s;NEXT AVAILABLE SECTOR s;A(NEXT FCB)

350 FCBS

40


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











Page 40 of 47