80-Bus News

  

January–February 1984, Volume 3, Issue 1











Page 42 of 55











Z2 ASSEMBLY LISTING «++eeee+ PAGE

1

OF35 j RERRMRIARARARRRARA AAA RRR OF35 3* DISK UPDATE ROUTINE *

OF35 3 OF35 3*

mene ne ei ie sermon anne mmo HE

&

OF35 3* M.J.R GIBBS 29-12-82 * OF35 j ARRAAKARER RARER RIK

0018 NASSYS EQU #18 0028 PRS EQqU #28 0030 ROUT EQU #30 0030

0078 BLINK EQU #73 0068 B2HEX EQU #68 0065 CRT = EQU «#65 0063 INLIN EQU #63 0064 NUM EQU #64 0058 RETNAS EQU #58 0066 TBCD3 EQU #66 005D TDEL EQU #5D o0sD

0080 ZDSIZE EQU #80 0081 ZDRD EQU #81 0082 ZDWR EQU #82 0083 ZRDIR EQU #83 0084 ZWDIR EQU #84 0085 ZCFS EQU #85 0087 ZENTER EQU 487 0088 ZCOV EQU #88 0089 ZCOVR EQU #89 008A ZCKER EQU #8A 0088 ZCBRK EQU #88 008c ZCRMA EQU #8C 0086 ZLOOK EQU #86 0063 ZINLIN EQU #63 0063

C055 SLFCB EQU #055 C069 S2FCB EQU #069 cool DDRV EQU C001 C414 NXTSEC EQU #C414 C414

C055 ORG c055 LOAD co55 FNAM DS cos5p FEXT DS coSsF FSFL DS c060 FUFL DS C061 FSEC DS C063 FNSC DS £065 FLDA DS. C067 FEXA DS C067

C067

080A LINEL EQU #0804 0c29 CURSOR EQU #0029

9 & Fre ad wn

ODN ste ANN OF

;NASSYS COMMANDS

;DISK COMMANDS

;DISK SIZE

READ

s;WRITE

;READ DIRECTORY

sWRITE DIRECTORY s;CONVET FILE SPECIFIER sUPDATE DIRECTORY ;CALL OVERLAY

s;CALL OVERLAY RESTORE ;CHECK FOR ERRORS ;CHECK FOR BREAK sABORT COMMAND MODE 3LOOKUP FILE DIRECTORY sMONITOR INPUT LINE ;DISK LOCATIONS

;DIRECTORY DRIVE ;NEXT FREE SECTOR ;DUMMY FCB

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

Z2 ASSEMBLY LISTING »«.eeee. PAGE 2

OC21 NUMV EQU #0C21 000c CLEAR EQU #0C 000D cr EQqU = #0D 0018 ESC EqU o#IB 0018

0C80 ORG #0C80 0c80 LoaD #8000 0c80

0c80

0c80

0C80 CD230E UPDATE CALL HEAD 0C83 EF RST = PRS 0C84 44697368

0C88 20557064

OC8C 61746520

0C90 46696C65

0C94 204E616D

0C98 65202E2E

O0C9C 2E3A2D20

wom DISK UPDATE -=—

. ? . » : $ * s

WRITE HEADINGS

OCAO 00 DB "Disk Update File Name ...:= ‘,0

OCAL DF RST NASSYS OCA2 63 DB ZINLIN OCA3 211C€00 LD HL, 28 OCA6 19 ADD HL,DE OCA7 1155c0 LD DE, FNAM OCAA 010800 LD BC,8 OCAD EDBO LDIR

OCAF EF RST = PRS OCBO OD DB cR QOCB1 46696C65

OCBS 20457874

OCB9 656E7369

OCBD 6F6E202E

OCC1 2R2E2E2E

OCC5 2R2E2E2E

OCC9 283A 2D20

sGET REPLY

sHL = A(START OF REPLY) 3;DE = A(S1FCB)

3LOAD NAME

occD 00 DB "File Extension ..cssceseet= 7,0

OCCE DF RST NASSYS OCCR 63 DBs INLIN ocnd 211C00 LD HL, 28 ocD3 19 ADD HL, DE OcD4 115DC0 LD «ODE, FEXT ocD7 010200 LD BC, 2 OCDA EDBO LDIR

OcDC EF RST PRS OcpD oD DB ORR OCDE 52414D20

OCE2 53746172

OCE6 74204164

OCEA 64726573

OCEE 73202E2E

OCF2 282E2E2E

OCF6 2E3A2D20 |

3HL = A(EXT) 3DE = A(FEXT)

sLOAD FEXT

42


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











Page 42 of 55