80-Bus News

  

July-August 1984, Volume 3, Issue 4











Page 32 of 43











22 ASSEMBLY LISTING

we eeeree

PAGE 1

OF 35 OF35 OF35 OF35 OF 35 OF35 0018 0028 0030 0030 0078 0068 0065 0063 0064 005B 0066 005D 005D 0080 0081 0082 0083 0084 0085 0087 0088 0089 008A 0088 008c 0086 0063 0063 c055 C069 cool C44 C414 c055 C055 c055 co5D COSF C060 coel C063 c065 C067 C067 C067 080A 0C29

NASSYS PRS ROUT

BLINK B2HEX CRT INLIN NUM RETNAS TBCD3 TDEL

ZDS 1ZE ZDRD ZDWR ZRDIR ZWDIR ZCFS ZENTER ZCOV ZCOVR ZCKER ZCBRK ZCFMA ZLOOK ZINLIN

S1FCB S2FCB DDRV NXTSEC

FNAM FEXT FSFL FUFL FSEC FNSC FLDA FEXA

LINEL CURSOR

EQU EQu

EQU

EQ

EQU EQU

f RRR RRR KR RRR RRR IRR IK REE ;* DISK UPDATE ROUTINE *

2 cere na sms a tt ne mt i no cee OE

’ 7 *

5* M.J.R GIBBS 29-12-82 * RRKRRREKRKERREKRERERERERE £18 £28 £30 ;NASSYS COMMANDS £7B £68 £65 £63 £64 £58 £66 £5D ;DISK COMMANDS £80 ;DISK SIZE £81 ;READ £82 ;WRITE £83 ;READ DIRECTORY £84 ;WRITE DIRECTORY £85 ;CONVET FILE SPECIFIER £87 ;UPDATE DIRECTORY £88 ;CALL OVERLAY £89 ;CALL OVERLAY RESTORE £8A ;CHECK FOR ERRORS £8B ;CHECK FOR BREAK £8C ;ABORT COMMAND MODE £86 ;LOOKUP FILE DIRECTORY £63 ;MONITOR INPUT LINE ;DISK LOCATIONS £0055 £0069 £C001 ;DIRECTORY DRIVE £C414 ;NEXT FREE SECTOR ;DUMMY FCB LFCB

;FILE NAME ;FILE EXTENSION ;SYSTEM FLAG ;USER FLAG ;SECTOR ADDRESS ;NUMBER SECTORS ;LOAD ADDRESS sEXEC ADDRESS ;SCREEN ADDRESSES

*

NODA HH AA NN

£080A £0C29

Z2 ASSEMBLY LISTING «esceeee

PAGE 2

0c21 000c ooeD 0018 OO1B 0c 80 0c 80 0c80 0c80 0c80 oc8o 0c83 0c 84 0C88 ocec 0c 90 0094 0c98 oc9c OCcAO OCAl OCA2 0CA3 OCA6 OCA7 OCAA QCAD OCAF oOcBo ocBl OCB5 ocB9 ocBD o0ccl occs occ9 occD OCCE OCcCcF ocDo ocD3 ocD4 OCcD7 OCDA ocDC OCDD OCDE OCE2 OCE6 OCEA OCEE OCF2 OCF6

CD230E EF 4469736B 20557064 61746520 46696C65 204E616D 65202E2E 2E3A.2D20 00

DF

63 211C00 19 1155C0 010800 EDBO

EF

oD 46696C65 20457874 656E 7369 6F 6E202E 2E 2B 2E 2E 2E 2E 2B 2E 2E3A2D20 00

DF

63 211000 19 115DC0 010200 EDBO

EF

oD

5241 4D20 53746172 74204164 64726573 73202E2E 2E 2E 2E2E 2E3A2D20

NUMV CLEAR cR Esc

UPDATE

EQU EQ EQU EQU

ORG LOAD

CALL RST

DB RST DB LD ADD LD LD LDIR

DB

DB RST DB LD ADD LD LD LDIR RST DB

£0C21 £0c £0D £1B

£0C80 £8000

--- DISK UPDATE ---

en em ow

HEAD sWRITE HEADINGS PRS

“Disk Update File Name ...:- “,0 NASSYS ZINLIN sGET REPLY HL, 28 HL, DE ;HL = AC(START OF REPLY) DE, FNAM ;DE = A(SLFCB) BC,8 s;LOAD NAME PRS cR

“File Extension esessseccotâ„¢ 40 NASSYS INLIN HL, 28 HL, DE sHL = ACEXT) DE, FEXT ;DE = A(FEXT) BC,2 ;LOAD FEXT PRS CR

32


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











Page 32 of 43