 
ô >HADFS5 v5.78 >ô OSARGS, OSFIND, OSBGET, OSBPUT - File open/close/get/put >ô ======================================================== (ô 01/01/1992, 9:45pm 2ô BootOpt moved to H2 <"ô FindSect sets sect and &C2/3 Fô Can openin($) P6ô v5.30 Accesses context variables in new location Z'ô v5.51 OSARGS &FD moved to &FD/&FE dJô v5.53 Updating for 24-bit disks, CheckOpen starts at CHNINFO not &90 n=ô Also need to ensure all OSARGS calls return A correctly x+ô v5.63 Channel buffers can be in Hazel ‚/ô v5.66 Removed code for NotHazel, WS=&1000 ŒIô v5.78 fptr stored in channel information, extends zero-length files –:  0D=3:ô Offset to drive number in channel info ª: ´ñ "Assembling S.HADFS5" ¾O%=P%-Block%+mcode% È	[OPT0 Ò: Ü	.args æJSR GrabAbs ðSTA argnum:CLC:ADC #3 úCMP #10:BCS args_exit/STA ws                     :\ Save function,TXA:PHA:TYA:TAX:PLA:TAY    :\ Swap X & Y,PHA:TXA:PHA                :\ Save X & Y"9BEQ args2                  :\ Y=0, no handle supplied,?LDA ws:CLC:ADC #10:PHA     :\ Add offset to argsY functions68CMP #12:BCC args1          :\ Not a channel function@:JSR CheckChannelX          :\ This corrupts argtmp/bufJJSR clearEOFT
.args1^:PLA:STA ws                 :\ Get function offset backh
.args2rSTY ws+1:LDA ws:ASL A:TAY|LDA argsTable,Y:STA ws†'LDA argsTable+1,Y:LDY ws+1:STA ws+1JLDA argnum:JSR JumpWS      :\ Enter with A=function, X=handle, Y=>datašSTA argnum¤/PLA:TAY:PLA:TAX            :\ Restore X & Y®.args_exit¸LDA argnum:RTSÂ:Ì.argsTableÖEQUW args0_FD:EQUW args0_FEàEQUW args0_FF:EQUW args0_00êEQUW args0_01:EQUW args0_02ôEQUW args0_03:EQUW args0_04þEQUW args0_05:EQUW args0_06\EQUW argsY_FD:EQUW argsY_FEEQUW argsY_FF:EQUW argsY_00&EQUW argsY_01:EQUW argsY_020EQUW argsY_03:EQUW argsY_04:EQUW argsY_05:EQUW argsY_06D:N8\ --------------------------------------------------X8\ OSARGS &FD,0 - Read version number and informationb8\ --------------------------------------------------l6\ On exit, A=xx from version x.xz, eg 54 for v5.42vA\          zp=&yzxxaabb from version x.yz and capability aabb€,\          eg &4205aabb for version 5.42Š8\ --------------------------------------------------”.args0_FDžLDA #able% € &FF:STA 0,Y¨LDA #able%  256:STA 1,Y²LDA # ("&"+ver$):STA 2,Y¼"LDA # ("&"+Áver$,3,2)):STA 3,YÆ1LDA #¨ » ver$*10+» Áver$,1+§ver$,"."))/10:RTSÐ:Ú/\ -----------------------------------------ä/\ OSARGS &FD/&FE,Y - Read/Write system infoî/\ -----------------------------------------ø+\ OSARGS &FD - Write system information*\ OSARGS &FE - Read system information%\ Y=25-29 - CSD/LIB/URD/USER/CURR/\ ----------------------------------------- .argsY_FD:.argsY_FE*-\         25   26   27   28            2945\         CSD  LIB  URD  º/OPT/PRV  CURR  FLG/¨/¢>6\         &70  &74  &78  &7C           &80     &84H\R.PHA:TXA:JSR ChannelRange   :\ Check handle\<PLA:BCC args_exit          :\ Out of range, exit cleanlyf4LSR A:PHP                  :\ Cy=Read/Write flagpFTXA:ASL A:ASL A            :\ Convert channel to offset to contextz/ADC #(CSD-25*4-5) € &FF  :\ Offset from CSD„;TAX:PLP:BCC argsY_00       :\ CC - jump to read settingŽ/JSR argsY_01c              :\ Write context˜6LDA #0:STA VFLG:RTS        :\ Clear validity flags¢:¬\ ---------------------¶\ OSARGS 0,Y - Read À\ OSARGS 2,Y - Read ¢Ê\ ---------------------Ô.argsY_02Þ,INX:INX:INX:INX            :\ Point to ¢è.argsY_00òLDA WS+&05,X:STA 0,YüLDA WS+&06,X:STA 1,YLDA WS+&07,X:STA 2,YLDA WS+&08,X:STA 3,YLDA #0:RTS$:.-\ ---------------------------------------8-\ OSARGS &FE,0 - Read last drive accessedB-\ ---------------------------------------L$\ On exit, zp holds drive numberV-\          A holds a copy of drive number`;\          Consequently, A<&80 is test for valid returnj-\ ---------------------------------------t.args0_FE~LDA drive:STA 0,Y:RTSˆ:’2\ --------------------------------------------œ,\ OSARGS 0,0 - Read filing system number¦2\ OSARGS 3,0 - Read libfs filing system number°2\ --------------------------------------------º.args0_00:.args0_03Ä?JSR FindWS:LDY #myfs:LDA (ws),Y :\ Get configured FS numberÎ<CMP #5:BCC args0_03a            :\ Can't be DFS or lowerØ7CMP #20:BCC args0_03b           :\ Only 4-bit rangeâ.args0_03aìCLDA #HADFSnum:STA (ws),Y        :\ Reset to default HADFS fsnumö.args0_03b RTS
:,\ --------------------------------------,\ OSARGS 1,0 - Read command line address(,\ --------------------------------------2.args0_01<)LDA cptr+0:STA 0,Y:LDA cptr+1:STA 1,YFLDA #&FF:STA 2,Y:STA 3,YP:Z&\ --------------------------------d&\ OSARGS 2,0 - Return version flagn&\ --------------------------------x.args0_02‚LDA #0:RTSŒ:–'\ --------------------------------- '\ OSARGS 4,0 - Read disk used spaceª'\ OSARGS 5,0 - Read disk free space´'\ ---------------------------------¾.args0_04:.args0_05ÈILSR A:PHP:DEX:STX catex           :\ CC=used, CS=free, &FF=no displayÒGLDA CSD+d:STA drive:JSR AddUpFree :\ Add up free space on CSD driveÜCPLP:BCS P%+5:JSR AddUpUsed:LDX #3 :\ If ARGS 5, convert to usedæ.args0_04lpð>LDA numstore,X:STA 3,Y            :\ Copy to returned dataúDEY:DEX:BNE args0_04lp:TXA:STA 3,Y                       :\ Clear bottom byte:\ -------------------"\ OSARGS 6,0 - Unused,\ -------------------6.args0_06@RTSJ:T\ ------------------------^\ OSARGS 4,Y - Read Alloch\ OSARGS 6,Y - Write Allocr\ ------------------------|.argsY_06†7JSR argsY_06a              :\ Write file allocation.argsY_04šLDA WS+&14,X:STA 3,Y¤LDA WS+&13,X:STA 2,Y®LDA WS+&12,X:STA 1,Y¸:LDA #0:BEQ argsY_05a       :\ Write &00 as bottom byteÂ:Ì\ ---------------------Ö\ OSARGS 5,Y - Read Åà\ ---------------------ê.argsY_05ô3JSR CheckEOF               :\ Read Å on channelþ:STA 3,Y:STA 2,Y:STA 1,Y    :\ Write &00 or &FF to data.argsY_05aSTA 0,Y.ChkEOFne&/LDA #0:RTS                 :\ Å false, EQ=10::#\ -----------------------------D!\ FSC 1 (OSBYTE &7F) - Read ÅN#\ -----------------------------X.eofb\TXA:JSR CheckChannelXl/JSR CheckEOF:TAX:RTS       :\ Return Å in Xv:€%\ -------------------------------Š!\ CheckEOF - Compare  with ¢”%\ -------------------------------ž.CheckEOF¨*LDA WS+&08,X:CMP WS+&0C,X:BCC ChkEOFne²*LDA WS+&07,X:CMP WS+&0B,X:BCC ChkEOFne¼*LDA WS+&06,X:CMP WS+&0A,X:BCC ChkEOFneÆ*LDA WS+&05,X:CMP WS+&09,X:BCC ChkEOFneÐ.LDA #&FF:RTS               :\ Å true, EQ=0Ú:ä.cmp_allocî\ lo byte must be zeroedø#INX:INX:INX:INX:INX:INX:INX:INX.cmp_EXTINX:INX:INX:INX.cmp_PTR .LDA WS+&08,X:CMP 3,Y:BCC cmp_xt:BNE cmp_xt*.LDA WS+&07,X:CMP 2,Y:BCC cmp_xt:BNE cmp_xt4.LDA WS+&06,X:CMP 1,Y:BCC cmp_xt:BNE cmp_xt>LDA WS+&05,X:CMP 0,YH.cmp_xtRRTS\\ CC= M>, M>¢f\ CS= M<=, M<=¢p:z.cmp_PTRhi„&LDA 3,Y:CMP WS+&08,X:BNE cmp_PTRloŽ&LDA 2,Y:CMP WS+&07,X:BNE cmp_PTRlo˜LDA 1,Y:CMP WS+&06,X¢.cmp_PTRlo¬RTS¶\ EQ= PTRhi=MhiÀ:Ê.IncPTRÔSECÞ&LDA WS+&05,X:ADC #0:STA ptrstore+0è&LDA WS+&06,X:ADC #0:STA ptrstore+1ò&LDA WS+&07,X:ADC #0:STA ptrstore+2ü&LDA WS+&08,X:ADC #0:STA ptrstore+3	LDY #ptrstore:BNE argsY_01a	:	\ --------------------	$\ OSARGS 1,Y - Set 	.\ --------------------	8.argsY_01	BJSR CheckDir2	L.argsY_01a	VJSR cmp_PTRhi:BEQ argsY_01b	`.JSR argsY_FF       :\ Flush buffer to disk	j.argsY_01b	tLDA #&FF:PHA	~JSR cmp_EXT:DEX:DEX:DEX:DEX	ˆ/BCS argsY_01d      :\  is moving backwards	’.JSR CheckPTRset    :\ Can I move  past ¢?	œ0PLA:JSR argsY_03a  :\  moving past ¢, do ¢=	¦DEX:DEX:DEX:DEX	°.argsY_01c	ºPHA	Ä.argsY_01d	ÎLDA 0,Y:STA WS+&05,X	ØLDA 1,Y:STA WS+&06,X	âLDA 2,Y:STA WS+&07,X	ìLDA 3,Y:STA WS+&08,X	öPLA
 .argsY_01e

RTS
:
\ --------------------
(\ OSARGS 3,Y - Set ¢
2\ --------------------
<.argsY_03
FJSR CheckDir2
P.argsY_03a
ZJSR CheckOut2
dMLDA #&FF:PHA                :\ Prepare to return A=&FF, file not extended
n@JSR cmp_PTR:BCC argsY_03b   :\ new ¢ >= , leave  unchanged
x:JSR argsY_01a:BMI argsY_03c :\ new ¢ < , push  lower
‚.argsY_03b
Œ@JSR cmp_EXT:DEX:DEX:DEX:DEX :\ Compare new ¢ with existing ¢
–MBCS argsY_03c               :\ new ¢ < ¢, file shrinking, Alloc unchanged
 HPLA:JSR argsY_06b           :\ new ¢ > ¢, ensure Alloc is big enough
ª\ Should pad with zeros
´GLDA #0:PHA                  :\ Prepare to return A=0, file extended
¾.argsY_03c
È!INX:INX:INX:INX:BNE argsY_01d
Ò:
Ü\ ---------
æ\ Set alloc
ð\ ---------
ú#\ On entry, X=>channel, Y=>data-\ On exit,  A=0, X,Y preserved for caller-\ ---------------------------------------.argsY_06a"JSR CheckDir2:JSR CheckOut2,.argsY_06b6PJSR cmpAllocs                  :\ Compare requested Alloc with current Alloc@[BCS argsY_01e:TYA:PHA          :\ Requested Alloc <= Existing Alloc, nothing to be doneJKLDA CURR+0:PHA:LDA CURR+1:PHA  :\ Save to protect SPOOLing of *CAT, etcTILDA CURR+2:PHA:LDA CURR+3:PHA  :\ Can't use loop as need both X and Y^VLDA fptr+1:PHA:LDA fptr+0:PHA  :\ Save file pointer to protect SPOOLing *CAT, etc.heJSR CheckDskChg0               :\ Read FSM, load directory, check disk not changed, X Y preservedr=LDA HDR+&0C:BMI argsY_06c      :\ BigDir, up to 4G length|;LDA 3,Y:BNE errCantExtend      :\ SmallDir, 16M maximum†$LDA 2,Y:CMP #8:BCS errCantExtend:š.argsY_06c¤.z%®H  TYA:PHA:TXA:PHA              :\ Save data pointer and info pointer¸  LDA WS+&14,X:„A WS+&13,XÂA  „A WS+&12,X:BNE argsY_06d   :\ File not zero length, use itÌG  JSR C8to16K:JSR FindFreeSpace:\ Look for 16K space, AXY corruptedÖ=  PLA:PHA:TAX                  :\ Get channel offset backà6  LDA start+0:STA WS+&01,X     :\ Set start sectorê  LDA start+1:STA WS+&02,Xô  LDA start+2:STA WS+&03,Xþ  JMP argsY_06h/:]:ç »base$<5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%:.argsY_06d&CLC0ULDA WS+&01,X:ADC WS+&12,X:STA start+0  :\ start=sector after end of existing file:)LDA WS+&02,X:ADC WS+&13,X:STA start+1D)LDA WS+&03,X:ADC WS+&14,X:STA start+2N.z%XP  TYA:PHA:TXA:PHA                      :\ Save data pointer and info pointerb0:]:ç »base$>=5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%lMJSR FindFSMEntry:BEQ argsY_06e         :\ Returns X=>FSM entry, Y=BigDiskv.errCantExtend€>LDA #119:JSR OSBYTE                    :\ Close Spool/ExecŠ/JSR errors:EQUB 191:EQUS "Can't extend":BRK”:ž.argsY_06e¨CJSR C8to16K                           :\ Prepare to ask for 16K²D\LDA #0:\STA len+2:\LDA #&40:\STA len+1:\ Prepare to ask for 16K¼8TYA:BPL argsY_06f                      :\ 16-bit FSMÆEINX:LDA &F24,X:BNE argsY_06g           :\ >16M available, use 16KÐ.argsY_06fÚELDA &F23,X:BNE argsY_06g               :\ >64K available, use 16KäELDA &F22,X:CMP #&40:BCS argsY_06g      :\ >16K available, use 16KîKSTA len+1                              :\ Less than 16K, use it insteadø.argsY_06gBJSR FindFreeSub                        :\ Claim space from FSM.argsY_06h>JSR SaveFSM                            :\ Save updated FSM TPLA:TAX:PLA:TAY:CLC                    :\ Get info pointer and data pointer back*DLDA WS+&12,X:ADC len+1:STA WS+&12,X    :\ Update channel's Alloc4'LDA WS+&13,X:ADC len+2:STA WS+&13,X>$LDA WS+&14,X:ADC #0:STA WS+&14,XH[CLC:JSR UpdateFromAlloc                :\ Look for my directory entry and update lengthRRJSR cmpAllocs:BCS P%+5:JMP argsY_06c   :\ 16K wasn't enough, claim another 16K\:fQPLA:STA fptr+0:PLA:STA fptr+1:LDY #3   :\ Restore fptr for SPOOLed *CAT, etc.p.argsY_06lp2z:PLA:STA sect,Y:DEY:BPL argsY_06lp2     :\ Restore CURR„;„A sect+1:„A sect+2                  :\ Was CURR valid?ŽaBEQ P%+5:JSR GetDir                    :\ Refetch if valid so SPOOLed *CAT, etc, can continue˜<PLA:TAY:LDA #0:RTS                     :\ Return claimed¢:¬.cmpAllocs¶5LDA WS+&11,X:PHA               :\ Save part of IDÀELDA #0:STA WS+&11,X            :\ Temp'y use as low byte of AllocÊ4JSR cmp_alloc                  :\ Returns X=X+12Ô/PHP:TXA:SEC:SBC #12:TAX:PLP    :\ Restore XÞ5PLA:STA WS+&11,X:RTS           :\ Restore ID partè:ò*\ ------------------------------------ü*\ OSARGS &FF,Y - Ensure buffer to disk*\ ------------------------------------.argsY_FF5CLC                            :\ CLC=Not closing$.argsY_FFa.PHP:LDA WS+&00,X:€ #&828@CMP #&82:BNE UpdateDone        :\ Not output or not modifiedB1PLP:PHP:BCC argsY_FFd          :\ Not closingLDLDA WS+&00,X:PHA:JSR zero_flag :\ If close fails, already zeroedVBJSR CheckDskChg0               :\ Check drive contains my disk`EPLA:STA WS+&00,X               :\ Restore flag, it's still neededj.argsY_FFdt3LDA #&FF:JSR AccessBuffer      :\ Write to disk~.UpdateDoneˆBLDA #&DC:JSR clear_flag        :\ Clear 'buffer modified' flag’RPLP:BCS P%+4:LDA #0:RTS        :\ Ensure returns 0, close returns channel flagœ:¦'\ ---------------------------------°'\ OSARGS &FF,0 - Ensure all buffersº'\ ---------------------------------Ä.args0_FFÎLDY #25Ø.args0_FFlpâH\TYA:JSR ChannelAddrY:JSR argsY_FF :\ Loop through channels 25 to 29ìINY:CPY #30:BNE args0_FFlpöLDA #0:RTS :
.AccessBuffer\ A= R/W flagSTA action(LDA #1:STA num:\ one page2JSR FindSector<LDA buf+1:STA addr+1FJMP DiskAccIO:\DIR2P:Z.FindSectordCLCn4LDA WS+&01,X:ADC WS+&06,X:STA sect+0:STA start+0x4LDA WS+&02,X:ADC WS+&07,X:STA sect+1:STA start+1‚4LDA WS+&03,X:ADC WS+&08,X:STA sect+2:STA start+2Œ.FindDriveNumber– LDA WS+&01+D,X:STA drive:RTS :ª.errEOF´<JSR errors:EQUB 223:EQUS "EOF":BRK  :\ Was "End of file"¾:È	.bgetÒ?CLC:EQUB &A9                   :\ CLC=š, skip following SECÜ	.bputæ+SEC                            :\ SEC=ÕðJSR GrabAbsú:)\ Enter here when AbsWs already owned"\ OSGBPB needs len+0 preserved.putget1"ASTA buf:TXA:PHA:LDA shadow:PHA:LDX #0       :\ Save X, shadow,.putgetlp16ILDA addr,X:PHA:INX:TXA:‚ #4:BNE putgetlp1 :\ Save addr, preserving Cy@,TYA:PHA:BCS bput1              :\ Save YJ;JSR CheckInput                 :\ X=info, (buf)=>bufferT"LDA WS+&00,X:€ #&20:BNE errEOF^.JSR CheckEOF:BEQ bget2         :\ Not at Åh0LDA #&20:JSR set_flag          :\ Set Å flagr1LDA #254:SEC:BCS putget_end    :\ Return Cy=1|
.bget2†>JSR InputUpdate                :\ Read from disk if needed:LDA WS+&05,X:TAY:LDA (buf),Y   :\ Get byte from bufferš1PHA:JSR IncPTR:PLA:CLC         :\ Increment ¤9BCC putget_end                 :\ Return Cy=0, A=byte®:¸
.bput1Â;LDA buf:PHA:TYA:JSR CheckOutput:\ X=info, (buf)=>bufferÌ7LDA WS+&05,X:PHA               :\ Get buffer offsetÖ>BNE P%+5:JSR IncPTR            :\ Flush buffer if offset=0à;PLA:STA WS+&05,X               :\ Restore buffer offsetê>JSR InputUpdate                :\ Read from disk if neededô;LDA WS+&05,X:TAY:PLA:STA (buf),Y:\ Store byte in bufferþ5PHA:LDA #2:JSR set_flag        :\ Buffer modified1JSR IncPTR:JSR clearEOF:PLA:CLC:\ Increment :.putget_end&/STA buf:PLA:TAY:LDX #3         :\ Restore Y0.putget_lp2:EPLA:STA addr,X:DEX:BPL putget_lp2  :\ Restore addr, preserving CyD;PLA:STA shadow:PLA:TAX:LDA buf:RTS :\ Restore shadow, XN:X.InputUpdateb&\LDA WS+&00,X:\€ #1:\BNE InputUpOklRLDA WS+&00,X:€ #&41          :\ Test if b6=open for input and b1=buffer loadedvTCMP #&40:BNE InputUpOk         :\ If not (open for input and buffer empty), skip€[LDA #0:JSR AccessBuffer:LDA #1 :\ Open for input, and buffer empty, need to load bufferŠ.set_flag”8„A WS+&00,X:STA WS+&00,X      :\ Update channel flagž.InputUpOk¨RTS²:¼.zero_flagÆLDA #0:BEQ clr_flag2Ð.clearEOFÚLDA #&DFä.clear_flagî€ WS+&00,Xø.clr_flag2STA WS+&00,X.CheckIsOkRTS :*.CheckDir:JSR CheckChannel4.CheckDir2>%LDA WS+&00,X:€ #&10:BEQ CheckIsOkH.ChIsADirR!JSR zero_flag:\ Close channel\1JSR errors:EQUB 181:EQUS "Is a directory":BRKf:p.CheckInputzJSR CheckDir„LDA WS+&00,X:€ #&7F:CMP #64Ž"BCC NOFRead:€ #4:BNE CheckIsOk˜.NOFRead¢7JSR errors:EQUB 189:EQUS "Not open for reading":BRK¬:¶.CheckOutputÀJSR CheckDir:.CheckOut2Ê!LDA WS+&00,X:BPL errNotUpdateÔ.CheckWriteÞ€ #8:BNE CheckIsOkè.errNotUpdateò6JSR errors:EQUB 193:EQUS "Not open for update":BRKü:.CheckPTRsetLDA WS+&00,X:BMI CheckWrite/JSR errors:EQUB 183:EQUS "Outside file":BRK$:..UpdateLength8SECB'\.UpdateWithAlloc:\   Enter with CCL&.UpdateFromAlloc:\   Enter with CCVTXA:PHA:TYA:PHA:PHP`\\LDA WS+&01+D,X:\STA drivej.z%tH  JSR CheckDskChg0            :\ Check disk, load FSM, get directory~0:]:ç »base$>=5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%ˆ-\ Alloc  -> disk has already been checked’-\ Length -> disk has already been checkedœLDA WS+&03,X:STA start+2¦LDA WS+&02,X:STA start+1°LDA WS+&01,X:STA start+0º.z%Ä:  JSR LookForEntry            :\ fptr=>directory entryÎ0:]:ç »base$>=5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%Ø.z%â5  LDA WS+&16,X:STA fptr+1     :\ fptr=>file entryì  LDA WS+&15,X:STA fptr+0öB  JSR CreatePutSector         :\ Set start sector in file info /:]:ç »base$<5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%
LDY #&12:LDA WS+&09,X5PLP:BCS UpdateLengthLow       :\ CS=make length=¢KTXA:ADC #8:TAX:LDA #0         :\ CC=make length=Alloc, low byte is zero(.UpdateLengthLow2+STA (fptr),Y:INY              :\ byte 0<+LDA WS+&0A,X:STA (fptr),Y:INY :\ byte 1FLDA HDR+&0C:BPL UpdateLen1P+INY:LDA WS+&0C,X:STA (fptr),Y :\ byte 3ZDEY:LDA #0:BEQ UpdateLen2d.UpdateLen1nLDA (fptr),Y:€ #&F8x.UpdateLen2‚*„A WS+&0B,X:STA (fptr),Y     :\ byte 2ŒJSR SaveThisDir–PLA:TAY:PLA:TAX .UpdateOkªRTS´:¾.CheckDskChg0ÈJSR FindDriveNumberÒ&TXA:PHA:JSR CheckHADFSDisk:PLA:TAXÜ.CheckDskChgæ\ drive already setðLDA WS+&0D,X:STA sect+0úLDA WS+&0E,X:STA sect+1LDA WS+&0F,X:STA sect+2JSR GetDir,LDA WS+&10,X:CMP HDR+&10:BNE DiskChanged")LDA WS+&11,X:CMP HDR+&11:BEQ UpdateOk,.DiskChanged6\JSR ClearDIR:\STA VFLG@LDA #0:STA VFLGJ1JSR errorDIR:EQUB 200:EQUS "Disk changed":BRKT:^.FindZerohLDA #0:RTSr	.find|#JSR GrabAbs:STX blk+0:STY blk+1†CMP #0:BEQ close"CMP #&40:BCC FindZero:JMP openš:¤
.close®TYA:BNE CloseOne¸\ Close allÂ;LDA #119:JSR OSBYTE:\ Ask MOS to close SPOOL/EXEC filesÌLDY #25Ö.CloseAllLpà\TYA:JSR ChannelAddrYêBEQ ClosedôJSR CloseChn:.ClosedþINY:CPY #30:BNE CloseAllLpLDY #0:BEQ Closed_Ok.CloseOneJSR CheckChannel&.CloseChn0HSEC:JSR argsY_FFa:BPL CloseInput:\ Update buffer, flagged as closing::DTYA:PHAN.z%X.  JSR CheckDskChg0 :\ check disk, load FSMb/:]:ç »base$<5.78:z%=P%-z%:P%=P%-z%:O%=O%-z%lLJSR UpdateLength   :\ load directory, update file length, save directoryv/LDA WS+&09,X:PHA   :\ save bottom byte of ¢€2CMP #1             :\ C=1, extra sector neededŠ)LDA WS+&01,X:ADC WS+&0A,X:STA start+0”)LDA WS+&02,X:ADC WS+&0B,X:STA start+1ž)LDA WS+&03,X:ADC WS+&0C,X:STA start+2¨PLA:‚ #255:CMP #255²'LDA WS+&12,X:SBC WS+&0A,X:STA len+1¼'LDA WS+&13,X:SBC WS+&0B,X:STA len+2Æ]LDA WS+&14,X:SBC WS+&0C,X:BEQ P%+5:JMP errTooLong:\ Can't return len>16M to FSM in one goÐ\TYA:\PHAÚTXA:PHAäJSR AddToFSM:JSR SaveFSMîPLA:TAX:PLA:TAYø:.CloseInputJSR zero_flag:CPY &256BNE CloseNotExec !STA &256:BEQ Closed_Ok:\ EXEC*.CloseNotExec4CPY &257:BNE Closed_Ok>STA &257:\ SPOOLH.Closed_OkRLDX blk+0:RTS:\ A=0, Y=chn\:f	.openpSTA buf+0:JSR XYtoF2z#JSR SearchPathBad:JSR CheckPath„"JSR CheckDirInfo:\ A=0/1/2/&82Ž € #&7F:\ Root is just a dir.˜.OpenInX:\ ù-EXEC¢:¬\ Find a channel¶\ --------------À"\ Search for an unused channelÊ2\ On exit,  Y=channel, X=>channel, A=corruptedÔ2\ --------------------------------------------Þ@PHA:LDY #25                         :\ Start with channel 25è.FindChanLpò:LDX ChnInfo-25,Y                    :\ X=>channel infoü?LDA WS,X:BEQ FindChkChn1            :\ Channel already open.FindChanNxtINY:CPY #30:BCC FindChanLp0JSR errors:EQUB 192:EQUS "Too many open":BRK$.FindChkChn1..z%8<JSR WhatMOS:BCC FindChanOk          :\ CC=Master, CS=BBCB0:]:ç »base$>=5.79:z%=P%-z%:P%=P%-z%:O%=O%-z%L.z%V;BIT WHATOS:BMI FindChanOk          :\ MI=Master, PL=BBC`/:]:ç »base$<5.79:z%=P%-z%:P%=P%-z%:O%=O%-z%j>LDA OPTFLG:€ #&40                 :\ Check if &10xx usablet7CPX #CHN26 € 255:BCC FindChanOk   :\ Chn>26, use it~>BEQ FindChkChn2                     :\ Chn26, check OPTFLGˆDLDA buf+0:€ #&80:‚ #&80         :\ Chn25, can only use for input’.FindChkChn2œQ€ #&FF:BEQ FindChanNxt            :\ Chn25 or Chn26 unusable, try another one¦.FindChanOk°:ºSTY argchn:PLAÄBNE open_file_foundÎ"BIT buf+0:BVC open_create_fileØ\ IN or UPâLDA buf+0:€ #8:BEQ OpenExitìJMP errNotFoundö.OpenExit LDX blk+0:LDY blk+1:RTS
.open_create_file\ OUT & no file, A=0JSR C8to16K(\STA len+0:\STA len+22\LDA #&40:\STA len+1<TXA:PHAF2LDA #&FF:CLC:JSR CreateEntry:\ Create 16K filePPLA:TAXZ"LDA #&C:STA WS+&00,X:\ WR bitsdBNE open_acc_okn.open_file_foundxCMP #2:BNE OpenNotDir‚BIT buf+0:BMI IsADirErrorŒ\ IN(dir)–!LDA buf+0:€ #4:BEQ OpenNotDir .IsADirErrorªJMP errNotFile´.OpenNotDir¾STXA:PHA                             :\ OpenIn multiple times, OpenOut once onlyÈGLDA buf+0:LSR A:„A #&80:€ #&C0   :\ Work out open flag to check forÒGJSR CheckNotOpen                    :\ Check if I can open this wayÜ8JSR YDoIOwn:INY:INY:PLA:TAX         :\ Y->my 'E' bitæ LDA (fptr),Y:ROL A:ROL attrsð$DEY:LDA (fptr),Y:ROL A:ROL attrsú$DEY:LDA (fptr),Y:ROL A:ROL attrs+LDA attrs:€ #3:‚ #3:PHA   :\ A=000000WR:$LDY #8:LDA (fptr),Y:BPL open_noD".PLA:„A #5:PHA                :\ A=00000DWR,.open_noD6 PLA:ASL A:ASL A:STA WS+&00,X@&LDA buf+0:CMP #&C0:BCS open_acc_okJLSR A:LSR A:LSR A:LSR AT€ WS+&00,X:€ #&0C^BNE open_acc_okh STA WS+&00,X:JMP errNoAccessr:|\ Set up channel buffer†\ ---------------------.open_acc_okš:¤
LDY #2®.openlp1¸.LDA CURR,Y   :STA WS+&0D+2,X  :\ DirectoryÂ,LDA HDR+&10,Y:STA WS+&10+2,X  :\ Disk IDÌ4LDA fptr,Y   :STA WS+&15+2,X  :\ Directory entryÖ1DEX:DEY:BPL openlp1           :\ X is now X-3à:êLDY #&12:\ Y=>lengthôJLDA (fptr),Y:STA WS+&09+3,X:CMP #1:INY            :\ CS=round alloc upþYLDA (fptr),Y:STA WS+&0A+3,X:ADC #0:STA WS+&12+3,X :\ ¢=length, Alloc=(length+255)256INY:LDA HDR+&0C:PHP"LDA (fptr),Y:PLP:BMI P%+4:€ #7,STA WS+&0B+3,X:ADC #0:STA WS+&13+3,X:INY&,LDA HDR+&0C:€ #&80:BPL P%+4:LDA (fptr),Y0(STA WS+&0C+3,X:ADC #0:STA WS+&14+3,X::DCINY:LDA (fptr),Y:STA WS+&01+3,X             :\ Set start sectorN'INY:LDA (fptr),Y:STA WS+&02+3,X:INYX,LDA HDR+&0C:€ #&80:BPL P%+4:LDA (fptr),Yb+STA WS+&03+3,X:LDA drive:STA WS+&04+3,Xl:v\LDY #2€\.openlp1Š<\LDA CURR,Y:\STA WS+&0F,X                   :\ Directory”?\DEX:\DEY:\BPL openlp1                      :\ X is now X-3ž:\LDA HDR+&10:\STA WS+&10+3,X                :\ Disk ID¨ \LDA HDR+&11:\STA WS+&11+3,X²:¼"LDA buf+0:€ #&C0:„A WS+&00+3,XÆGSTA WS+&00+3,X:ASL A:ASL A                :\ Set OUT/IN, Cy=not OUTÐILDA #0:LDY #8:BCC P%+4:LDY #4             :\ OUT, ¢=0/=0; IN/UP, =0Ú.openlp2ä9STA WS+&05+3,X:INX:DEY:BNE openlp2        :\ =0, ¢=0îLDA argchn:JMP OpenExitø:.ChannelRangeCMP #25:BCC ChnRangeOk‚ #&FF:CMP #&E2:‚ #&FF .ChnRangeOk*5RTS:\ Returns CS=25..29, CC=outside channel range4:>$\ Offsets to channel informationH.ChnInfoREQUB CHN25 € 255\EQUB CHN26 € 255f"EQUB CHN26-(CHN25-CHN26) € 255p$EQUB CHN26-2*(CHN25-CHN26) € 255zEQUB CHNINFO € 255„:Ž"\ Addresses of channel buffers˜0EQUB &0F:EQUB &10:EQUB &14:EQUB &15:EQUB &16¢:¬.ChannelAddrY¶TYAÀ.ChannelAddrÊ\ On entry, A=channelÔ;\ On exit,  WS,X=channel info, (buf),Y points to bufferÞ#JSR ChannelRange:BCC errChannelè.z%ò=TAX:JSR WhatMOS                      :\ CC=Master, CS=BBCüILDA ChnInfo+5-25,X                   :\ A=high byte of channel buffer?BCS P%+4:ADC #&B1:STA buf+1          :\ buf=>channel buffer0:]:ç »base$>=5.79:z%=P%-z%:P%=P%-z%:O%=O%-z%.z%$=TAX:LDA ChnInfo+5-25,X:BIT WHATOS    :\ MI=Master, PL=BBC.?BPL P%+4:ADC #&B0:STA buf+1          :\ buf=>channel buffer8/:]:ç »base$<5.79:z%=P%-z%:P%=P%-z%:O%=O%-z%B>LDA ChnInfo+0-25,X:TAX               :\ WS,X=>channel infoLLDA #0:STA buf+0V<LDA WS+&00,X                         :\ Get channel flag`.CheckChnOkjRTSt:~.CheckChannelXˆTXA’.CheckChannelœJJSR ChannelAddr:BNE CheckChnOk       :\ Exit if channel valid and open¦.Channel_Not_Open°7\JSR errors:\EQUB 222:\EQUS "Channel not open":\BRKº:Ä.errChannelÎ*JSR errors:EQUB 222:EQUS "Channel":BRKØ:â.CheckNotOpenFFìLDA #&FFö.CheckNotOpen PHA:LDY #4
.CheckNotOpLpLDX ChnInfo,Y$PLA:PHA:€ WS+&00,X:BEQ F_NotOpen()LDA WS+&01,X:CMP sect+0:BNE F_NotOpen2)LDA WS+&02,X:CMP sect+1:BNE F_NotOpen<)LDA WS+&03,X:CMP sect+2:BNE F_NotOpenF*LDA WS+&01+D,X:CMP drive:BNE F_NotOpenP,JSR errors:EQUB 194:EQUS "File open":BRKZ.F_NotOpendDEY:BPL CheckNotOpLp:PLAn
.gbpb0xRTS‚:Œ]–$ñ ½11;Ä20,½9);O%-mcode%;" bytes" Gÿ"SAVE ROMb "+Ã~mcode%+" "+Ã~O%+" 3000 "+Ã~(Block%-&5000):Block%=P%ª4ç O%>&7BFF:ñ"Writing over screen.":ç O%>L%:L%=O%´/ç O%>M%:ñ"Overwriting screen output":ï7:Ù#0¾>"S.HADFS6"ÿ