ô >HADFS2 v5.69 Uô File System Control - display file, directory, disk, free space map information Uô =============================================================================== (Bô This file is now too big to edit on a standard BBC or Master 2ô <.ô v5.26 *Info $ copes with new-style disks F8ô v5.27 *Opt6/*Opt7 select internal/external drivers P2ô v5.30 BitTable reversed to use in DRVINT/EXT Z%ô v5.65 Recoded start24/add24/etc d4ô v5.66 Removed code for NoHazel, IDE16, OldVRAM n7ô v5.68 DRVINT set by OPT6/7 stored in my CMOS byte x*ô v5.69 DoIOwn also checks aux account ‚Pô v5.76 FindFreeSpace first looks for exact match, prioritises shrinking FSM Œ: –ñ "Assembling S.HADFS2" O%=P%-Block%+mcode% ª [OPT0 ´: ¾.fsc ÈCMP #13:BCC P%+3:RTS ÒICMP #6:BEQ P%+5:JSR GrabAbs :\ Don't grab w/s if FS starting up ÜSTA &B0:TXA:PHA æLDA &B0:ASL A:TAX ðLDA fscTable,X:STA &B0 úLDA fscTable+1,X:STA &B1 PLA:TAX:JMP (&B0) : .fscTable " EQUW opt:EQUW eof:EQUW slash ,!EQUW fscCmd:EQUW run:EQUW cat 6%EQUW NewFSStart:EQUW QueryHandles @#EQUW StarComm:EQUW ex:EQUW info JEQUW lib_run:EQUW rename T: ^.fscCmd h'JSR XYtoF2:LDX #FileTable-CommTable r%LDA (&F2),Y:CMP #—"\":BNE fscCmd2 |JSR SkipSpc1 †.fscCmd2 6JSR Serv4Try:TAX:BNE P%+5:JMP RunFinish:\ All done šHTYA:BNE Bad_Command :\ was *\name, so don't check disk ¤JSR F2toXY:JMP slash ®.lib_run ¸.Bad_Command Â.JSR errors:EQUB 254:EQUS "Bad command":BRK Ì: Ö \.lib_run à\\ LibRun should do ê\\ Same as */filename ô,\\ If nothing found, jump to Bad Command þ\\ \\ */filename should do \\ Try to run command +\\ If nothing, jump to FSC to do LibRun &\\ 0(\TXA:\PHA:\TYA:\PHA:\JSR WhatFS:\PHA : \LDA #3:\JSR OSARGS:\STA tmp D"\PLA:\CMP tmp:\BEQ Bad_Command NO\PLA:\TAY:\PLA:\TAX :\ libfs<>currfs, try running from me X: b .slash l4JSR CheckContextXY:\JSR CheckContext:\JSR XYtoF2 vLDX #CSD-CSD:JSR TryRun2 €CLC:BNE RunDone Š;BIT pathflg:BVS NotRun :\ Path used absolute specifier ”\ Should also try &.Library žLDX #LIB-CSD:JSR TryRun ¨CLC:BNE RunDone ².NotRun ¼SEC Æ.RunDone ÐBCC RunFinish Ú@LDY #0:JSR F2toXY:LDA #11:JMP (&21E) :\ Pass to LibFS to try ä+\ NB ANFS seems not to implement RunLib î: ø.run JSR CheckContextXY *LDX #CSD-CSD:JSR TryRun2:BNE RunFinish JMP errNotFound : *.TryRun 4%LDA CSD+0,X:CMP CSD+0:BNE TryRun2 >%LDA CSD+1,X:CMP CSD+1:BNE TryRun2 H%LDA CSD+2,X:CMP CSD+2:BNE TryRun2 R%LDA CSD+d,X:CMP CSD+d:BNE TryRun2 \.RunFinish fRTS p: z.TryRun2 „LDA &F2:PHA:LDA &F3:PHA ŽJSR DIRtoSect:JSR SetDrives ˜LDY #0:JSR SearchPathEntry ¢BPL P%+5:JMP errBadFilename ¬TAX:BEQ TryRunNone ¶"CMP #1:BEQ P%+5:JMP errNotFile ÀTYA:CLC:ADC &F2:STA cptr+0 ÊALDA #0:ADC &F3:STA cptr+1 :\ Command line pointer Ô>JSR YDoIOwn:LDA (fptr),Y:BPL TryRunOk :\ 'R', can run file Þ>INY:INY:LDA (fptr),Y:BMI TryRunOk :\ 'E', can run file èJMP errNoAccess ò: ü.TryRunNone PLA:STA &F3:PLA:STA &F2 LDA #0:RTS:\ No run .TryRunOk $+LDY #17:LDA (fptr),Y:DEY:€ (fptr),Y:DEY .7€ (fptr),Y:DEY:€ (fptr),Y :\ Check exec address 8CCMP #&FF:BEQ TryRunExec :\ exec=&FFFFFFFF, *Exec file B9JSR GetLoadHigh:DEY:€ (fptr),Y :\ Is load=&FFFFxxxx? LCCMP #&FF:BNE TryRunLoad :\ load<>&FFFFxxxx, load file VCDEY:LDA (fptr),Y:CMP #&FE :\ Is load=&FFFFFExx or FFxx? `HBCC TryRunLoad :\ load<>&FFFFFExx/FFxx, load file j: t.TryRunExec ~=LDA #0:LDY &256:BEQ P%+5:JSR OSFIND :\ Close Exec if open ˆ.TryRunExec2 ’LDA #&40:STA buf+0:LDA #1 œJSR OpenInX:STA &256 ¦.TryRunExit °PLA:STA &F3:PLA:STA &F2 ºLDA #&FF:RTS:\ Run ok Ä: Î.TryRunLoad ØLLDA #&FF:STA blk+1 :\ Stop Load from returning ctrl block âELDX #3:JSR GetLoadHigh:PHA :\ Get load address memory area ìLLDY #17:CMP (fptr),Y:BNE CantRun :\ Exec in different memory, can't run öILDY #16:CMP #&FF:BNE TryRunLoad2 :\ Not I/O memory, use this address ECMP (fptr),Y:BNE CantRun :\ I/O not &FFFFxxxx, can't run .TryRunLoad2 :LDA (fptr),Y:PHA:DEY :\ Save exec address BDEX:BNE TryRunLoad2 :\ Now pointing to load addr (: 2GLDX #3:JSR UseFileAddr:LDX #0 :\ Load file to it's load address <.TryRunLoad3 F=PLA:STA addr+0,X:INX :\ Recover exec address PCPX #4:BNE TryRunLoad3 ZCBIT &27A:BPL TryRunIO :\ No Tube, run in I/O memory dICMP #&FF:BEQ TryRunIO :\ Exec=FFxxxxxx, run in I/O memory n?LDA #4:JSR TubeClaimDo :\ Run in language memory xJMP TryRunExit ‚ .TryRunIO Œ:LDA #1:JSR CallC4:JMP TryRunExit :\ Run in I/O memory –.CallC4 JMP (addr) ª: ´.CantRun ¾7JSR errors:EQUB &93:EQUS "Cannot run this code":BRK È: Ò .StarComm Ü;LSR ENABLE:RTS :\ Update Enable flag æ: ð%.QueryHandles:LDX #25:LDY #29:RTS ú: M\ On Master workspace is in high memory and owned by filing system owner. B\ So, have to relinquish it when new filing system taken over. C\ On BBC, workspace in low memory and owned by workspace owner. ":\ So, have to relinquish it when workspace taken over. ,.NewFSStart 6.z% @OJSR WhatMOS:BCS opt40 :\ Not Master, don't relinquish workspace J0:]:ç »base$>=5.79:z%=P%-z%:P%=P%-z%:O%=O%-z% T.z% ^OBIT WHATOS:BPL opt40 :\ Not Master, don't relinquish workspace h/:]:ç »base$<5.79:z%=P%-z%:P%=P%-z%:O%=O%-z% rLDA ws:PHA:LDA ws+1:PHA |ILDA #&77:JSR OSBYTE:JSR ServA :\ Close Spool/Exec, save workspace †PLA:STA ws+1:PLA:STA ws .opt40 š .opt80 ¤RTS ®: ¸.opt Â8\ -------------------------------------------------- H .opt5 R.optIgnore \RTS f: p .OptError z-JSR errors:EQUB 203:EQUS "Bad option":BRK „: Ž\ ------------------------ ˜\ *OPT 4 - SET BOOT OPTION ¢\ ------------------------ ¬ .opt4 ¶CPY #16:BCS OptError À'JSR CheckContext:JSR CheckHADFSDisk ÊJSR XYtoF2:JSR SearchPathNF :\ Sect0/1/2/3=dir start n!CMP #1:BNE P%+5:JMP errNotDir xMJSR CheckNames2 :\ Check names without checking context ‚ .CatHead3 ŒIJSR get_chk_dir:JSR dirInit :\ Point to start of directory, Y=0 –.CatHeadLp =LDA (fptr),Y:JSR OSWRCH:INY :\ Print directory name ªCPY #10:BNE CatHeadLp ´JSR PrText:EQUS " (":BRK ¾LDA HDR+&0D:JSR PrHex È JSR PrText:EQUS ") ":BRK ÒYJSR GetOptNum:PHA :\ Need to call GetOptNum here to fetch user number ÜJSR DoIOwn:BEQ CatHeadOwn æ JSR PrText:EQUS "Public":BRK ðBNE CatHead4 ú.CatHeadOwn JSR PrText:EQUS "Owner ":BRK LDA HDR+&12:JSR HexTopDigit $JSR OSWRCH:LDA HDR+&13:JSR PrHex " .CatHead4 ,(JSR OSNEWL:LDX #0:LDY #16:JSR PrName 6%JSR PrText:EQUS " Option ":BRK @PLA:TAX:„A #48 J'JSR OSWRCH:JSR PrText:EQUS " (":BRK TTXA:ASL A:ASL A:TAX:LDY #4 ^ .CatOptLp hLDA OptText,X:JSR OSWRCH rINX:DEY:BNE CatOptLp |'‚ #&09:CMP #—" ":BEQ P%+4:LDA #—")" †JSR OSWRCH $JSR PrText:EQUS " Dir. ":BRK šLDX #&10:JSR PrName10 ¤$JSR PrText:EQUS " Lib. ":BRK ®%LDX #&1A:JSR PrName10:JSR Pr2Newl ¸: Â=LDX #0 :\ Start in column zero Ì .CatStart Ö7BIT &FF:BMI CatEnd :\ Escape occured àAJSR dirInit:BEQ CatChunk :\ No entries in this chunk ê.CatLoop ô9JSR dirNext:BEQ CatNext :\ This entry empty þ>JSR DoIOwn:BPL CatOwn :\ Jump if own all files ILDY #7:LDA (fptr),Y:BMI CatStep :\ Private file, step to next entry .CatOwn =LDA catex:BEQ CatDisp :\ Jump to list entries &7JSR DisplayInfo:JMP CatStep :\ List full info 0.CatDisp :LJSR PrFilename:JSR PrAccess:INX :\ Print filename...access, inc column DJLDY #13:TXA:€ #3:BEQ P%+4 :\ Print spaces or to next column NGLDY #32:TYA:JSR OSASCI :\ Col=4x, print , else X.CatStep b DEC files l.CatNext v9LDA files:BNE CatLoop :\ Still more to do € .CatChunk ŠOTXA:PHA:JSR NextChunk :\ Save column counter and get next chunk ”AASL A:PLA:TAX:BCS CatStart :\ Loop to do another chunk ž.CatEnd ¨DLDA #134:JSR OSBYTE:TXA :\ Print NL if not in column 0 ²BEQ CatDone:JMP OSNEWL ¼: Æ.OptText ÐEQUS"Off)LoadRun)Exec" Ú: ä: î\ ====================== ø\ Check object ownership \ ====================== J\ DoIOwn - Check if directory is owned, corrupts Y, fetches USERNUM /\ DoIOwnFSM - Check directory in FSM buffer M\ Assumes USERNUM is valid, GetOptNum has already been called *\ 4 \ DoIOwn: >\ On exit, A=&00 EQ - Owner H \ A=&FF NE - Public R\ Y corrupted \\ X preserved f\ YDoIOwn: p\ On exit, Y=>my 'R' bit z\ X preserved „\ A=&00 - Owner Ž\ A=&FF - Public ˜;\ ----------------------------------------------------- ¢.YDoIOwn ¬"JSR DoIOwn:TAY:BEQ P%+4:LDY #4 ¶.CatDone ÀRTS Ê: Ô.DoIOwnFSM ÞGSEC:BCS DoIOwn2 :\ CS=Check in FSM buffer è: ò.DoIOwn ü^JSR GetOptNum:CLC :\ Update USERNUM, CC=Check in directory header : .DoIOwn2 :JSR AccountAux :\ Y=>AuxAcc $ .DoIOwnLp .FLDA HDR+0,Y:BCC P%+5:LDA FSM+0,Y :\ A=Account Number high 8#‚ USERNUM+1:€ #&F0:BNE DoIOwnNo BELDA HDR+1,Y:BCC P%+5:LDA FSM+1,Y :\ A=Account Number low L‚ USERNUM+0:BEQ DoIOwnYes V .DoIOwnNo `$TYA:LDY #&12:‚ #&12:BNE DoIOwnLp j:LDA USERNUM+1:€ #8:‚ #8:BEQ DoIOwnYes :\ Syst flag set t;LDA #&FF :\ &FF=Public ~.DoIOwnYes ˆRTS ’: œ%\ Get address of directory buffer ¦%\ ------------------------------- °.dirAddr º.z% ÄFJSR WhatMOS:LDA #&11 :\ BBC directory buffer at &1100 ÎIBCS P%+4:LDA #&11-&B2*(DIR=0):RTS :\ Master directory buffer at &C300 Ø0:]:ç »base$>=5.79:z%=P%-z%:P%=P%-z%:O%=O%-z% â.z% ìFLDA #&11:BIT WHATOS :\ BBC directory buffer at &1100 öIBPL P%+4:LDA #&11-&B2*(DIR=0):RTS :\ Master directory buffer at &C300 /:]:ç »base$<5.79:z%=P%-z%:P%=P%-z%:O%=O%-z% : 4\ Initialise fptr to point to start of directory 4\ ---------------------------------------------- (@\ On exit, fptr=>DIR (ie, one entry before start of entries) 2\ Y=0 <0\ A=number of files, EQ=no files F\ X=preserved P.dirInit ZDLDY #0:STY fptr+0 :\ Point to start of directory dJSR dirAddr:STA fptr+1 n>LDA HDR+&0C:€ #31:STA files :\ Fetch number of objects xRTS ‚: Œ'\ Step fptr to next directory entry –'\ --------------------------------- \ On exit, fptr=>next entry ª\ Y=0 ´,\ A=(fptr),Y, EQ=entry empty ¾\ X=preserved È.dirNext ÒJSR dirSize:LDY #0 Ü directory entry Š2\ -------------------------------------------- ”.DisplayInfo ž6TXA:PHA:JSR PrFilename :\ Display filename ¨@JSR GetLoadHigh :\ Get load address high byte ²>LDX #4:JSR Pr4HexA:JSR Pr4Hex :\ Print load, exec address ¼>LDA HDR+&0C:ASL A:PHP :\ Get BigDir flag to Carry ÆALDX #4:LDA (fptr),Y :\ Get 32-bit length high byte ÐCBCS DisplayLen24 :\ Jump to display 32-bit length ÚJSR Pr2Space ä?DEX:DEY:LDA (fptr),Y:€ #7 :\ Get 24-bit length high byte î.DisplayLen24 øEJSR Pr4HexA:JSR Pr2Space :\ Display 24-bit or 16-bit length 9JSR PrAccess:JSR PrSpace :\ Print access string =PLP:PHP:LDY #md+1:JSR PrDate2 :\ Print modification date : \\ Print cdate and mdate *;\\PLP:\PHP:\LDY #cd+1:\JSR PrDate2 :\ Print first date 4G\\PLP:\PHP:\BCC P%+7 :\ Print date, skip if SmallDir >I\\LDY #md+1:\JSR PrDate :\ Print BigDir modification date H: R4\\LDY #&12:\JSR PrUser :\ Account \(\\JSR PrSpace:\LDA #—"(":\JSR OSWRCH f1\\LDY #&12:\JSR PrUser :\ Aux. p\\LDA #—")":\JSR OSWRCH z: „;PLP:JSR GetSectorHigh2 :\ Get sector byte three Ž=LDX #3:JSR Pr4HexA :\ Print three-byte sector ˜.PLA:TAX:JMP OSNEWL :\ Finished ¢: ¬.GetSectorHigh ¶>LDA HDR+&0C:ASL A :\ Get BigDir flag to Carry À.GetSectorHigh2 Ê;LDY #&18:LDA (fptr),Y :\ Get sector byte three ÔBBCS P%+4:LDA #0:RTS :\ Zero third byte if small dir Þ: è.GetSectAddr ò=JSR GetSectorHigh:STA sect+2 :\ Get object sector start üDEY:LDA (fptr),Y:STA sect+1 DEY:LDA (fptr),Y:STA sect+0 RTS : $: .\ Print hex addresses 8\ ------------------- B.Pr4Hex L LDX #4 V.PrHexLp `LDA (fptr),Y j.Pr4HexA t>JSR PrHex:DEY:DEX:BNE PrHexLp :\ Print hex, loop for next ~;TYA:CLC:ADC #8:TAY:BNE PrSpace :\ Point to next address ˆ: ’.Pr3SpaceNL œLDA &30A:SBC &318 ¦SBC #16:BCC Pr1Newl °.Pr3Space:JSR PrSpace º.Pr2Space:JSR PrSpace Ä .PrSpace :LDA #32:JMP OSWRCH Î.Pr2Newl :JSR OSNEWL Ø.Pr1Newl :JMP OSNEWL â: ì .PrName10 öLDY #10 .PrName LDA WS,X:JSR OSWRCH:INX:DEY BNE PrName:RTS .InfoF00 (LDA &F00,X:JMP PrHex 2 .PrDrvChr <JSR GetDrvChr:JMP OSWRCH F: P\ Print object filename Z\ --------------------- d.PrFilename nLDY #0:.PrNameLp x"LDA (fptr),Y:€ #127:JSR OSWRCH ‚INY:CPY #10:BNE PrNameLp ŒBEQ PrSpace –: +\ Print object access string PDLWRE/wre ª+\ ------------------------------------- ´ .PrAccess ¾:TXA:PHA:LDX #0 :\ 0 characters printed È.z% Ò7TXA :\ Clear A for tests Ü/:]:ç »base$<5.76:z%=P%-z%:P%=P%-z%:O%=O%-z% æ)LDY #7:JSR TryAccChar :\ 'P' ð)INY:JSR TryAccChar:PHP :\ 'D' ú)LDY #3:JSR TryAccChar :\ 'L' PLP:BCS PrAccSlash:DEY .PrAccPublic )DEY:JSR TryAccCharX :\ 'W' ")DEY:JSR TryAccCharX :\ 'R' ,BCS PrAccSlash 6)INY:INY:JSR TryAccChar:DEY:DEY :\ 'E' @.PrAccSlash J#CPY #4:BCS PrAccEnd:JSR PrSlash T!CPY #3:LDY #6:BCC PrAccPublic ^ .PrAccEnd hLDA #32 r.PrAccSpcs |JSR OSWRCH:INX:CPX #7 †BNE PrAccSpcs PLA:TAX:RTS š: ¤.TryAccCharX ®LDA #&FF ¸.TryAccChar ÂCLC:‚ (fptr),Y:BPL TryAccNo ÌLDA PrAccChars,Y:JSR OSWRCH ÖINX:SEC à .TryAccNo êRTS ô .PrAccChars:EQUS "RWELrwePD" þ: .PrDecS JSR PrDec .PrSlash &LDA #—"/":JMP OSWRCH 0: :: D \ -------------------------- N \ DISPLAY DATE IN FILE ENTRY XA\ ----------------------------------------------------------- b;\ On entry, (fptr),Y -> top byte of two-byte date entry lA\ CC -> date split over locations (small DIR) v=\ CS -> year compacted (FSM or large DIR) €A\ ----------------------------------------------------------- ŠF\.PrDate :\ Enter here to print compacted date ”\SEC ž.PrDate2 ¨JSR ReadInfoDate ²$PHA:€ #31:JSR PrDecS :\ Day ¼&TXA:€ #15:JSR PrDecS :\ Month Æ-TXA:LSR A:LSR A:LSR A:LSR A :\ Year b0-b3 Ð+STA tmp:PLA:€ #&E0:LSR A :\ Year b4-b6 Ú?„A tmp:ADC #81:LDY #19 :\ A = 81..208, prepare for 19xx ä .PrDateLp î=CMP #100:BCC PrDateCC :\ Year<100, use this century ø@SBC #100:INY:BNE PrDateLp :\ Reduce year, increase century .PrDateCC ;PHA:TYA:JSR PrDec :\ Print the century number 9PLA:JSR PrDec:JMP PrSpace :\ ...and the year number : *\.PrUser 4/\LDA HDR+&00,Y:\JSR HexTopDigit:\JSR OSWRCH >\LDA HDR+&01,Y:\JMP PrHex H: R: \-\ ======================================= f+\ FREE SPACE MAP DISPLAY € MANIPULATION p-\ ======================================= z: „\ -------------- Ž\ *FREE and *MAP ˜\ -------------- ¢ .Free ¬=LDX #&FF:EQUB &2C :\ X=&FF - *FREE ¶.Map À bytes ' &JSR PrText:EQUS "free":EQUB 13:BRK PLA:STA numstore+3 $HPLA:STA numstore+2:PLA:STA numstore+1 :\ Restore total free space .?PLA:BPL MapDone :\ *map, so finish 8HJSR AddUpUsed:JSR PrSect :\ Calculate and print used BEJSR PrFreeNum :\ Print ' bytes ' L&JSR PrText:EQUS "used":EQUB 13:BRK V.MapDone `DRTS :\ Restore numflg/drive j: t.AddUpUsed ~SEC ˆ*LDA &F1C:SBC numstore+1:STA numstore+1 ’*LDA &F1D:SBC numstore+2:STA numstore+2 œ*LDA &F1E:SBC numstore+3:STA numstore+3 ¦LDA FSM+31 °L€ #&80:BNE P%+4:STA numstore+3:RTS :\ If SmallDisk, set used=&00xxxx º*\\LDA &F1E:\BIT &F1F:\BMI P%+4:\LDA #0 Ä)\\SBC numstore+3:\STA numstore+3:\RTS Î: Ø\ --------------------- â\ Print ' bytes ' ì\ Corrupts numsub/catex ö\ --------------------- .PrFreeNum ELDA #0:STA numstore:JSR PrDec32 :\ Print number of bytes !JSR PrText:EQUS " bytes ":BRK RTS (: 2.PrSect <LDA numstore+3:JSR PrHex FLDA numstore+2:JSR PrHex PLDA numstore+1:JSR PrHex Z#JSR PrText:EQUS " Sectors ":BRK dLDA #32:STA numflg nRTS x: ‚.AddUpFree Œ?JSR CheckHADFSDisk :\ Load free space map –KBIT catex:BMI Map3 :\ Jump to add up without printout 3\JSR PrText:\EQUS "Free Space Map, drive ":\BRK ª\JSR PrDrvChr:\JSR Pr2Newl ´8JSR PrText:EQUS "Free Space Map":EQUB 58:EQUB 13:BRK ¾ .Map3 È:LDA #0:STA numstore+1:STA numstore+2 :\ Clear numstore ÒSTA numstore+3:LDX #&20 Ü: æ .MapLp ðBIT catex:BMI Map4 úCJSR MapBytes:LDA #—"+":JSR OSWRCH :\ Print FSM entry start .Map4 EJSR MapNextEntry:CLC :\ Point to entry length DLDA &F00,X:ADC numstore+1:STA numstore+1 :\ Add to current count ",LDA &F01,X:ADC numstore+2:STA numstore+2 ,JSR MapTopByte:PHA 6!ADC numstore+3:STA numstore+3 @BPLA:„A &F01,X:„A &F00,X:PHA :\ Check for end of FSM JBIT catex:BMI Map5 TFJSR MapBytes:JSR Pr3SpaceNL :\ Print FSM entry length ^ .Map5 hHJSR MapNextEntry:PLA:BNE MapLp :\ Loop for all FSM entries r: |)BIT catex:BMI MapTopByteOk:JMP OSNEWL †: .MapBytes š@JSR MapTopByte:JSR PrHex :\ Top byte or zero ¤@LDA &F01,X:JSR PrHex:JMP InfoF00 :\ Bottom two bytes ®: ¸.MapTopByte Â'LDA &F02,X:BIT &F1F:BMI P%+4:LDA #0 Ì.MapTopByteOk ÖRTS à: ê.MapNextEntry2 ôINX:INX þ.MapNextEntry %INX:INX:BIT &F1F:BPL P%+3:INX:RTS : : &\ ============= 0\ FindFreeSpace :\ ============= D\ On entry, FSM in memory N=\ len=length required, rounded to whole sectors X\ On exit, FSM adjusted b1\ start=start sector of space found l\ A,X,Y corrupted v=\ ------------------------------------------------------- €C\ Multiple JSR FindFreeCheck/bcc/inx/lda f22 could be optimised Š.FindFreeSpace ”.z% ž" \ First look for exact match ¨" \ -------------------------- ²@ LDX #0:LDY FSM+31 :\ X=start, Y=BigDisk flag ¼ .FindFreeLp0 ÆH JSR FindFreeChk:BEQ FindFree1 :\ End of FSM, look for big enough ÐG BCC P%+3:INX :\ Cy=BigDisk flag, point to size Ú+ LDA &F22,X:CMP len+1:BNE FindFreeNext ä+ LDA &F23,X:CMP len+2:BNE FindFreeNext îD TYA:BPL FindFreeSub :\ Found matching 16-bit entry øD LDA &F24,X:BEQ FindFreeSub :\ Found matching 24-bit entry .FindFreeNext JSR MapNextEntry2 JMP FindFreeLp0 /:]:ç »base$<5.76:z%=P%-z%:P%=P%-z%:O%=O%-z% *: 4&\ Then look for a big enough match >&\ -------------------------------- H.FindFree1 R8LDX #0:LDY FSM+31 :\ Get BigDisk flag \.FindFreeLp1 fFSM entry, len=length required ¢.FindFreeSub ¬SEC ¶4LDA &F22,X:SBC len+1:PHA :\ Push size-len ÀLDA &F23,X:SBC len+2:PHA ÊBTYA:BPL FindFree2 :\ SmallDisk, just 16-bit size ÔALDA &F24,X:SBC #0:PHA :\ BigDisk, subtract top byte Þ.FindFree2 è@BCS FindFreeFound :\ size>=len, use this entry ò4PLA:PLA :\ Drop size-len üBTYA:BPL P%+3:PLA :\ If BigDisk, drop third byte 9JSR MapNextEntry2 :\ Step to next entry =CPX #&D8:BCC FindFreeLp1 :\ Step through whole FSM .errCompact $\JSR ClearDIR .8JSR errorDIR:EQUB 152:EQUS "Compaction required":BRK 8.errDiskFull B\JSR ClearDIR L.JSR errorDIR:EQUB 198:EQUS "Disk full":BRK V: `*\ Found a FSM entry big enough for len j*\ ------------------------------------ t.FindFreeFound ~TYA:BPL FindFree3 ˆCPLA:STA &F24,X :\ BigDisk, top byte of newsize ’.FindFree3 œ:PLA:STA &F23,X:PLA:STA &F22,X :\ newsize=oldsize-len ¦:CLC:TYA:BPL P%+3:DEX :\ Adjust X if BigDisk °2LDA &F20,X:STA start+0 :\ start=space º0, return (GTYA:ASL A:TXA:TAY :\ newsize=0, merge entry with next 2OBCC FindFreeLp2:INY:DEX :\ BigDisk, point X and Y to 24-bit entries <.FindFreeLp2 FFSM entry just after start/len space to be released ŠZLDA start+0:ADC len+1:‚ &F20,X:BNE AddFSMprevJmp:\ Can't merge with this entry, try to ”QLDA start+1:ADC len+2:‚ &F21,X:BNE AddFSMprevJmp:\ merge with previous entry žTYA:BPL AddFSMb ¨1LDA start+2:ADC #0:‚ &F22,X:BNE AddFSMprevJmp ²: ¼)\ start+len joins onto this FSM entry Æ.AddFSMb ÐSEC ÚLLDA &F20,X:SBC len+1:STA &F20,X :\ Move this FSM entry's start backwards ä#LDA &F21,X:SBC len+2:STA &F21,X îTYA:BPL AddFSMc ø$LDA &F22,X:SBC #0:STA &F22,X:INX !.AddFSMc !CLC !ILDA &F22,X:ADC len+1:STA &F22,X :\ Extend this FSM's length backwards ! #LDA &F23,X:ADC len+2:STA &F23,X !*TYA:BPL AddFSMjoin !4$LDA &F24,X:ADC #0:STA &F24,X:DEX !>: !HC\ Space has been returned by extending this FSM entry backwards !R4\ Can we now merge this with previous FSM entry? !\.AddFSMjoin !fRTXA:BEQ AddFSMdone :\ No previous entry, finished !pCLC:TYA:BPL AddFSM16 !z[LDA &F1A,X:ADC &F1D,X:‚ &F20,X:BNE AddFSMdone :\ laststart+lastlen<>thisstart, finished !„1LDA &F1B,X:ADC &F1E,X:‚ &F21,X:BNE AddFSMdone !Ž1LDA &F1C,X:ADC &F1F,X:‚ &F22,X:BNE AddFSMdone !˜: !¢C\ laststart+lastlen=thisstart, merge last entry with this entry !¬.AddFSMmerge24 !¶CLC !À$LDA &F1D,X:ADC &F23,X:STA &F1D,X !Ê$LDA &F1E,X:ADC &F24,X:STA &F1E,X !Ô$LDA &F1F,X:ADC &F25,X:STA &F1F,X !ÞMTXA:TAY:INY:INY:JMP FindFreeLp2 :\ Move entries downwards !è: !ò .AddFSM16 !ü[LDA &F1C,X:ADC &F1E,X:‚ &F20,X:BNE AddFSMdone :\ laststart+lastlen<>thisstart, finished "1LDA &F1D,X:ADC &F1F,X:‚ &F21,X:BNE AddFSMdone ": "C\ laststart+lastlen=thisstart, merge last entry with this entry "$.AddFSMmerge16 ".CLC "8$LDA &F1E,X:ADC &F22,X:STA &F1E,X "B$LDA &F1F,X:ADC &F23,X:STA &F1F,X "L=TXA:TAY:JMP FindFreeLp2 :\ Move entries downwards "V.AddFSMdone "`RTS "j: "t@\ See if we can merge released space with previous FSM entry "~.AddFSMprev "ˆLTXA:BEQ AddFSMnew :\ Start of FSM, need to add a new entry "’CLC:TYA:BMI AddFSM24 "œ1LDA &F1C,X:ADC &F1E,X:‚ start+0:BNE AddFSMnew "¦1LDA &F1D,X:ADC &F1F,X:‚ start+1:BNE AddFSMnew "°NBEQ AddFSM24b :\ Point to previous entry and lengthen it "º: "Ä .AddFSM24 "Î1LDA &F1A,X:ADC &F1D,X:‚ start+0:BNE AddFSMnew "Ø1LDA &F1B,X:ADC &F1E,X:‚ start+1:BNE AddFSMnew "â1LDA &F1C,X:ADC &F1F,X:‚ start+2:BNE AddFSMnew "ìDEX "ö.AddFSM24b #NDEX:DEX:DEX:DEX:JMP AddFSMc :\ Point to previous entry and lengthen it # : #:\ Couldn't merge released space with previous or next, #(\ so need to create a new FSM entry #(.AddFSMnew #2WSTX len:TYA:PHA :\ Save current FSM entry in len, save BigDisk flag #<.AddFSMlp2 #F@INX:INX:INX:INX :\ Step to next 16-bit entry #PATYA:ASL A :\ Move BigDisk flag to Carry #ZLDA &F1D,X:BCC AddFSMe #d;INX:INX:LDA &F1A,X:„A &F1B,X :\ Get next 24-bit entry #n.AddFSMe #xD„A &F1C,X:BEQ AddFSMf :\ Found zero entry at end of FSM #‚9CPX #&D8:BCC AddFSMlp2 :\ Loop to end of FSM #ŒJMP errCompact #–: # .AddFSMf #ª3TXA:TAY:BCC P%+4:INY:INY :\ Y=next entry #´.AddFSMlp3 #¾;LDA &F1F,X:STA &F23,Y:DEY :\ Move entries upwards #ÈDEX:CPX len+0:BNE AddFSMlp3 #ÒAPLA:TAY :\ Get BigDisk flag back to Y #Ü.AddFSMins #æ@LDA start+0:STA &F20,X :\ Store new FSM entry start #ðLDA start+1:STA &F21,X #ú6TYA:ASL A:BCC AddFSMg :\ Cy=BigDisk flag $LDA start+2:STA &F22,X:INX $.AddFSMg $ALDA len+1:STA &F22,X :\ Store new FSM entry length $"LDA len+2:STA &F23,X $,LDA #0:BCC AddFSMok $6STA &F24,X:INX $@ .AddFSMok $J>RTS :\ A=0, &F24,X=>next entry $T: $^: $h4\ ============================================== $r4\ FindFSMEntry - Find a FSM entry to extend into $|4\ ============================================== $†\ On entry, FSM in memory $.\ start=FSM start sector to find $š\ On exit, A,Y corrupted $¤"\ NE = FSM not found $®$\ EQ = FSM entry found $¸\ X=>FSM entry $Â \ Y=BigDisk flag $Ì/\ ----------------------------------------- $Ö\ Called from HADFS6 $à.FindFSMEntry $êJSR AddFSMinit $ô.FindFSMlp $þLJSR FindFreeChk:BEQ FindFSMend :\ Check for end of FSM, Cy=BigDisk flag %(LDA &F20,X:‚ start+0:BNE FindFSMnext %(LDA &F21,X:‚ start+1:BNE FindFSMnext %BCC FindFSMok %&&LDA &F22,X:‚ start+2:BEQ FindFSMok %0.FindFSMnext %: JSR AddFSMnext:BCC FindFSMlp %D.FindFSMend %N LDA #&FF :\ NE=Not found %X.FindFSMok %b RTS :\ X=>FSM entry %l: %v] %€$ñ ½11;Ä20,½9);O%-mcode%;" bytes" %Š:ÿ"SAVE ROMa "+Ã~mcode%+" "+Ã~O%+" 3000 3000":Block%=P% %”6ç O%>&7BFF:ñ"Writing over screen":ï7:ç O%>L%:L%=O% %ž/ç O%>M%:ñ"Overwriting screen output":ï7:Ù#0 %¨>"S.HADFS3" ÿ