X;SAVE #D9:FMSCLOSE.M65 ACLOSEAX;X; DFMCLOSE - CLOSE A FILEX; DFMCLS$ SETUP.QFCBOTC9;;GET OPEN CODE8M>OPOUT;;IF NOT OUTPUTBFCLDONE;;THEN DONELX;V&UFCBFLG9;;IF NOT ACQUIRING SECTORS`DCLUPDT;;THEN IS UPDATEjX;t WRTLSEC;;WRITE LAST SECTOR~X; RRDIR;;GO GET DIRECTORY#QFCBCNT9;;GET CNT OF SECTORS5 QFCBCNT95X;QFCBOTC9;;GET OPEN CODEM>OPAPND;;IF NOT APPENDFCLOUT;;BRX;QFCBEFLAG9;; SAVE FILE TYPE5! DFRDSU;;ELSE SET UP FOR READ 7;; AND RESTORE ITPFCBEFLAG9X;(APP1 RDNXTS;;READ TO EOF2 DAPP1<X;FQFCBSSN9;;MOVE START SECTORPPFCBLSN9;TO EOF LINK SECTORZQFCBSSN9dPFCBLSN9n! WRTN2;;THEN WRITE AS NOT EOFxX;CLOUT%CDIRD;;GET DIR DISPL,7OFILDIRDFDCNT8PFILDIRDFDCNT87OFILDIRDFDCNT8PFILDIRDFDCNT8X;'QFCBEFLAG9;; GET FILE TYPE FROM FCBPFILDIRDFDFL18 WRTDIR;;WRITE DIR WRTVTOC;;WRITE VTOCX;CLDONEQ>;;CLEAR OPEN CODE PFCBOTC9" !FGREAT,X;6 CLUPDT @$UFCBFLG9;;IF SECTOR NOT MODIFIEDJDCLDONE;;THEN DONET WRCSIO;;ELSE WRITE IT^!CLDONE;; THEN DONEhX;r|X;X; RE-READ DIR RECORDX; RRDIR QFCBFNO9;;GET FILE NUMBERV?V? PSFNUMX;X; FNSHFT;;SET ACU=FILE NO/64PCDIRS;;TO GET DIR SECTOR FNSHFT;;SET ACU TO REM=16 FNSHF1T?PCDIRD;;TO GET DIR DISPLX;& !RDDIR0FNSHFTQ>:FNSHF1%>;;SHIFT 3 BITS OFD%FNSHF2TFCBFNO9;;FILE NO INTO ACUNU?X1b HFNSHF2l: