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 211C800 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