þþÕèX;SAVE #D9:FMSSETUP.M65òASETUP ROUTINEAüX;-X; SETUP - A ROUTINE USED FOR ALL COMMANDS"X; TO SET UP FMS CONTROLL CELLS"X; TO ACCESS A PARTICULAR FILE.$X;. …SETUP8&†CURFCBB@L2V2`&†ENTSTKjX;t$†ICDNOZ;;MOVE DRIVE NO~&†DCBDRV;;TO DCBˆ0;;DEC FOR ACCESS TO TABLES’Q†DBUFAL9;;MOVE WRITE BUFFERœ"P‡VTOCPTR;;ADD TO ZERO PAGE PTR¦Q†DBUFAH9°P‡VTOCPTRºX;ÄQ†DRVTBL9;;GET DRIVE TYPEÎF†ERRDNO;;BR IF NOT EXISTSØ0P‡MAXVTOC;; otherwise, set maximum VTOC indexâX;ì$†CURFCB;; GET CHANNEL AGAINö%†FCBBUF9;;GET SECTOR BUF #!H„:SU3;;BR IF ONE IS ALLOCATED X;"„:SU1Q†SECTBL8;;TRY TO FIND ONEI„:SU2;;BR ONE FOUND(3;;DEC TRY COUNT2)><D„:SU1;;BR MORE TO TRYFX;P2†ERRNSB‡@ERROR …E.NSB;;NO SECTOR BUFFERS AVAILZX;d„:SU2Q>€;;ALLOCATE BUFFERnP†SECTBL8x3‚CŒ!P†FCBBUF9;;PUT BUF NO INTO FCB–X; &„:SU31;; NOW COMPUTE BUFFER ADDRESSª"C;; BY MULTIPLYING INDEX BY 128´V?¾5ÈQ>ÒW?;; A NOW = 0 OR $80, C = 0Ü0O‰SBUFSTART;; AND ADDING BUFFER START ADDRESSæ P„ZSBAð7úO‰SBUFSTARTP„ZSBAX;JMP SUVTOC:"X;,'†ERRDNO‡@ERROR …E.DNO;;BAD DRIVE NO6@X;JX; FREE SECTOR BUFFERSTX;^ ‡FRESBUF h%†FCBBUF9;;GET BUF NOrF„FSBR;;BR IF NONE|1;;DEC FOR TBL ACCESS† Q>;;FREEP†FCBBUF9;;IN FCBšP†SECTBL8;;AND TABLE¤ „FSBR:®X;¸ADATA SECTOR I/OAÂX;ÌX; DSIO - DATA SECTOR I/OÖX;à„DSIOê$„ZSBA;;WRITE SECTOR BUFô&†DCBBUF;;ADR MOVED TOþ$„ZSBA;;DCB&†DCBBUF!„BSIO;;DO THE I/OX;