mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-22 19:31:02 +00:00
5417 lines
220 KiB
Plaintext
5417 lines
220 KiB
Plaintext
;
|
||
; File: FileMgrPatches.a
|
||
;
|
||
; Contains: Patches to the file system.
|
||
;
|
||
; Copyright: © 1990-1992 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <SM1> 4/15/92 kc Removed the "ROM" prefix from the RomBind routines.
|
||
; Added comments to all of the patches that were rolled in.
|
||
; • Pre-SuperMario comments follow •
|
||
; <56> 3/18/92 gs rolled in Disappearing Folder Fix from Presto (patch to CMSetup)
|
||
; Pete said it was Okay. No, Really, he did!
|
||
; <55> 11/25/91 DTY Make a new call, GetParallelFCBFromRefNum, and give it selector
|
||
; $50. This eventually calls ParallelFCBFromRefNum, but does some
|
||
; sanity checking beforehand.
|
||
; <54> 8/30/91 DTY Define has3rdFloppy here since it’s no longer defined in
|
||
; BBSStartup. Defined to be 0 because has3rdFloppy was 0 for
|
||
; System builds before.
|
||
; <53> 6/25/91 BH fix ClosePatch which was incorrectly pushing kSystemProcess onto
|
||
; the stack which resulted in the check to see if a file was
|
||
; opened by kSystemProcess to always fail (changed code to use PEA
|
||
; kSystemProcess instead of PEA #kSystemProcess)
|
||
; <52> 4/4/91 dnf csd, #86223: Have Basic I/O pass VM errors from the driver
|
||
; through to the caller. Currently notEnoughMemoryErr is the only
|
||
; VM error we expect.
|
||
; <51> 3/28/91 dnf ewa, #CheckDesktopSupportFails: The GetVolParms call returns the
|
||
; wrong value for bHasDesktopMgr for small non-ejectable volumes.
|
||
; <50> 3/27/91 KST bb, ksTung#16: Fixing a bug in ROM BTDelete which used MOVE.W to
|
||
; move a long word.
|
||
; <49> 3/19/91 dnf dba, dty: Make sure the lenient remount check in ROM doesn’t
|
||
; trigger.
|
||
; <48> 3/17/91 dnf dba, dty, #84670, #82944, #84977 : use
|
||
; CallWithRegistersPreserved in dispatching; save D0 across calls
|
||
; to completion routines. Save trashed registers across btree
|
||
; calls on the Mac Plus.
|
||
; <47> 3/11/91 dnf dba, #dnf10: nuke MakePBLookAsync since it never did any good
|
||
; <46> 3/11/91 dnf dba, #83239: stop relying on external file systems to preserve
|
||
; A0; for example, AppleShare client trashes A0 on a _GetVolParms
|
||
; <45> 3/11/91 dnf dba, #84288: flush the cache properly after writing the trap
|
||
; word in TrapAgain in low memory, but before jumping there; this
|
||
; is especially important for 68040 processors; we had to fix this
|
||
; in the code that re-fires a trap after running out of FCBs, but
|
||
; we didn’t have to fix it for the Disk Switch Hook, since it
|
||
; calls MountVol, which calls BlockMove, which calls CacheFlush
|
||
; <44> 3/11/91 dnf dba, #84430,#83779: fix the extents truncation patch so that it
|
||
; is no longer confused between data and resource forks; this
|
||
; fixes fragmentation that was occurring when the Finder did
|
||
; copies
|
||
; <43> 3/11/91 dnf dba, #84257: Fix the DesktopCloseDownProc so that it works even
|
||
; when the Unmount is done by name. This was fixed by copying the
|
||
; string passed to Unmount onto the stack before calling
|
||
; GetVolInfo.
|
||
; <42> 2/28/91 dnf dba, #84095: Fix the DesktopCloseDownProc to work when called
|
||
; with parameters that aren't vRefNums.
|
||
; <41> 2/26/91 dnf gbm,bbm, #83780: Enlarge the file system stack.
|
||
; <40> 2/26/91 KST dnf, ksTung#15: FSM Hook should not call "UnMungTrapWord" if FSM
|
||
; defined foreign file system returns a real error.
|
||
; <39> 2/26/91 csd dba: Add the export for FileManagerIdleProc, fix the patches to
|
||
; FileOpen and OpenRF so that they set the RegRsrc global.
|
||
; <38> 2/25/91 dnf dfh, #80720,#82672: Fix the FCBs problem by implementing a new
|
||
; file system call, _AllocateFCBs.
|
||
; <37> 2/15/91 KST dnf, #83093: CMRenameCN binds to the wrong ROM address on the
|
||
; Plus.
|
||
; <36> 2/12/91 dnf gbm, #81716: Move the call to DTCloseDown from the Desktop
|
||
; Manager's unmount notification hook to a patch to _Unmount.
|
||
; This will ensure that it gets called after we know that none of
|
||
; the parties on the Process Manager hook have decided to reject
|
||
; the unmount.
|
||
; <35> 2/7/91 dnf kst, #79676: Set dsRecoverVCBPtr inside of CmdDone on all
|
||
; #offlineErrs. This eliminates (most of) the reentrancy problems
|
||
; with the name drawn by the disk switch hook.
|
||
; <34> 1/25/91 dnf dba, #bo3b1: Make the file system not defer itself on sync
|
||
; calls. This allows macsbug to use sync calls to implement its
|
||
; log and reboot features.
|
||
; <33> 1/21/91 dnf (ewa) Clear the error code for write-protected remounts.
|
||
; <32> 1/20/91 dnf (Eric Anderson) _Eject and _Offline need to set the “VCB
|
||
; unmounted OK” bit with a read-modify-write to the MDB.
|
||
; <31> 1/18/91 dnf (kst) Fix ROM address for FSQueueSync on the SE.
|
||
; <30> 1/18/91 dnf (dba) Use a ROMBind for FindDrive since it isn't vectored on the
|
||
; Plus and SE. Change _Unmount to make direct calls to FClose and
|
||
; TrashVBlocks instead of calling FlushBuffers, which attempts to
|
||
; set the “VCB unmounted OK” bit with a read-modify-write to the
|
||
; MDB. Patch out most of _Offline & _Eject since <29> needs the
|
||
; jFClose vector which doesn't exist on the Plus and SE.
|
||
; <29> 1/16/91 dnf (csd) Change _Offline and _Eject to never close the volume btree
|
||
; files and _UnMount to always close them.
|
||
; <28> 1/15/91 KST With dnf: ExtFSCatchAll should return if D0 is negative or zero.
|
||
; <27> 1/14/91 KST With BB: patch to CMCreateCN and CMUpdateCN to mark VCB dirty if
|
||
; VCBModTime has been changed. The other half of the patch is in
|
||
; 'CMSvcsExtra.a'.
|
||
; <26> 1/7/91 KST With dnf: Set up A0=ioParam before calling FSM hook.
|
||
; <25> 1/4/91 KST With dnf: Adding FSM hook in.
|
||
; <24> 12/26/90 dnf (csd) Make the disk switch hook think that it should never save
|
||
; bits behind the disk switch alert. The file system now relies
|
||
; completely on the system error handler and update events for
|
||
; drawing the alert and cleaning up afterwards.
|
||
; <23> 12/21/90 dnf (dfh) Have UnTagWDCBs not attempt to untag a vRefNum that is
|
||
; serving as a WD to the root.
|
||
; <22> 12/18/90 dnf (dba) Fix the second case in the Rename patch
|
||
; <21> 12/18/90 dnf (dba) Return correct error codes from async. calls (change to
|
||
; CmdDone).
|
||
; <20> 12/16/90 dnf (dba) Patch the disk switch hook to fail with a #volOffLinErr on
|
||
; #memFull from _MountVol. Patch _MountVol to not attempt to get
|
||
; more memory by calling _Offline on other already mounted
|
||
; volumes. Changed tst.l on FSID to tst.w in OpenRF sychronization
|
||
; patch. Saved fewer registers here also. Fixed both _SetVolInfo
|
||
; and _Rename to always do the right thing when renaming volumes.
|
||
; (nil, null, > 27, and keeping the root in sync with the vcb).
|
||
; <19> 12/16/90 dnf (dfh) Do a real UnTagWDCBs
|
||
; <18> 12/14/90 dnf (djw) Add SCSI-is-busy deferral code. Replace FSQueue and CmdDone
|
||
; logic by grabbing control at FSQueueHook and ExtFSHook.
|
||
; <17> 12/13/90 KST With Bill B.: Adding a come from patch to TruncateFile to fix a
|
||
; bug in FClose. See detail in the code.
|
||
; <16> 12/6/90 dnf (dfh) Get rid of obsolete ROM jump table source that didn’t
|
||
; generate any code anyway. Implement _Close patch so that file
|
||
; that were opened in System Mode cannot be closed outside of
|
||
; system mode.
|
||
; <15> 9/26/90 dnf (dnf/pwd) Use the ol' TrapAgain lomem to re-fire calls that have been
|
||
; rescued by the more fcbs/more wdcbs code. (dnf/th) Change SetFilLock and
|
||
; RstFilLock to use the new definition of FXInfo.
|
||
; <14> 9/25/90 dnf (dnf/sab) Make sure that the dispatcher preserves the trap word
|
||
; in d1. Emulate MakeFSSpec on wPrErr for confused iso-9660 disks.
|
||
; <13> 9/23/90 csd Changed fsDeferProc to use the right register instead of jumping
|
||
; to random code which does random things with Darin’s name.
|
||
; <12> 9/22/90 dnf Clear the fsDeferFlag when the deferred task fires.
|
||
; <11> 9/22/90 csd (dfh) Fixed a bug in ParallelFCBFromRefnum which implicitly
|
||
; expected the high word of D0 to be clear. Fixed the
|
||
; fixDiskSwitch patch to not destroy command-. events.
|
||
; <10> 9/22/90 dnf oops... we can't use D1 to put the trap word in...
|
||
; <9> 9/22/90 dnf (dnf/pwd/dfh) Modified a060 patch to dispatch all possible
|
||
; (that's 255) hfs dispatch selectors. This obviates the need for
|
||
; any patches like ASFSInit which add new selectors by stealing
|
||
; calls off of a060. Added MakeFSSpec emulation Add fsQueueHook
|
||
; patch (FCB & WDCB expansion, process serial number recording,
|
||
; file system interrupt level deferring) Change ExtFSPatch (move
|
||
; most stuff to fsQueueHook.) Add toExtFS patch (catch
|
||
; unimplemented a060 selectors)
|
||
; <8> 8/29/90 dnf Change selectGetAltAccess to selectGetForeignPrivs
|
||
; <7> 8/28/90 dnf Change references to selectCreateFileID to
|
||
; selectCreateFileIDRef.
|
||
; <6> 8/15/90 KST Grow the WDCB (and FCB) array if we are running out of WDCB.
|
||
; <5> 8/10/90 KST Renaming NuLenBTCB to lenBTCB70.
|
||
; <4> 8/6/90 dnf Rename __MakeFSSpec to MakeFSSpec
|
||
; <3> 8/6/90 KST Fixing a bug in OpenWD patch. If MultiFinder is not ready, we
|
||
; need to compare appl's ProcID.
|
||
; <2> 7/30/90 dnf Move all of the 7.0 patches into here; convert them to linked
|
||
; patch format
|
||
; <1> 4/20/90 dba first checked in
|
||
;
|
||
;
|
||
;
|
||
; Change History from HFS70PatchTail.a
|
||
;
|
||
; <23+> 7/24/90 dnf Convert to linked patch
|
||
; <23> 7/2/90 dnf Add afp inhibit bits to Set/RstFlock calls + referenced ROM
|
||
; addresses
|
||
; <22> 6/20/90 KST Don't grow FCB array beyond limit (16 bits positive word). The
|
||
; max. FCB is now 344. Also fixed the bug that doesn't close every
|
||
; 8th file after 40.
|
||
; <21> 6/1/90 dnf Add rom addresses for CMGetCN. Change _OpenDF to set the trap
|
||
; word to _Open (Ax00) for the benefit of existing external file
|
||
; systems.
|
||
; <20> 5/4/90 dnf Add dispatch to MakeFSSpec
|
||
; <19> 4/17/90 KST Fixing a bug that calls "adjEOF" with the wrong Refnum.
|
||
; <18> 4/10/90 KST Fixing a bug in FOpen, it doesn't do "adjEOF" if openning a
|
||
; resource file.
|
||
; <17> 4/10/90 KST Need to restore ioParam in A0 after calling external FS.
|
||
; <16> 4/9/90 dnf Add DTDelete to this patch's dispatch table; change all call
|
||
; names to match final versions.
|
||
; <15> 3/28/90 KST Clear D4 before storing FCB and divide by FCBLen.
|
||
; <14> 3/20/90 KST fixed a branch error.
|
||
; <13> 3/20/90 KST Record PSN or grow the FCB/WDCB only for SYNC open calls
|
||
; <12> 3/20/90 KST Record PSN or grow the FCB only for SYNC open calls.
|
||
; <11> 3/20/90 dnf Don't attempt to send shared environment calls out the
|
||
; toExtFSHook.
|
||
; <10> 3/20/90 KST Enabling the recording of PSN (again). Added support for AFP;
|
||
; pop off return address for ASYNC call; saved D1 for AppleShare.
|
||
; <9> 3/16/90 dnf Add stubs for volume and refnum based calls
|
||
; <8> 2/21/90 KST 1. Enable the recording of PSN. 2. Don't close system files on
|
||
; FSCleanUp (fileNum < 16).
|
||
; <7> 2/15/90 DNF Don't step on the result code out of GetVolParms
|
||
; <6> 2/10/90 csd with dnf. Disabled the tail patch to ExtFSHook which watched for
|
||
; the opening of files and recorded them in a parallel structure.
|
||
; The scheme prevented the unmounting of servers.
|
||
; <5> 2/6/90 KST Fixing a bug in OpenRF that doesn't record process serial number
|
||
; when openning RFile.
|
||
; <4> 2/4/90 dnf Changed equates to use StandardEqu.d
|
||
; <3> 1/23/90 csd with dnf: replaced use of constant openWDN with fsOpenWD which
|
||
; is more appropriate.
|
||
; <2> 1/9/90 dnf Move some private equates directly into this file Add CheckCSPB,
|
||
; OpenDF and xOpenDT
|
||
; <3.3> 12/8/89 dnf Changed GetVolParms' buffer
|
||
; <3.2> 11/21/89 KST Fixed a bug when growing parallel array. Forgot to include
|
||
; header length.
|
||
; <3.1> 11/17/89 dnf Moved dispatch #'s from 40-4f to 60.
|
||
; <3.0> 10/30/89 KST Fixed some ROM addresses. It should use jump table address.
|
||
; <2.9> 10/30/89 dnf AlkBlkSiz is a word, even though it is stored as a long
|
||
; <2.8> 10/17/89 KST Fixed ROM addresses for Esprit.
|
||
; <2.7> 10/16/89 KST Added routines for FSCleanUp HFS call. Allocate FCB and WDCB
|
||
; parallel array at boot time. Patched OpenWD and FileOpen to
|
||
; store Process serial ID in the parallel array. Grow FCB/WDCB
|
||
; array and friends dynamically.
|
||
; <2.6> 10/11/89 dnf updated GetVolParms, added AltPrivsStub, removed XGetInfo call
|
||
; <2.5> 9/29/89 EKN Added Gt1stFcb, GtNxtFcb, FlushCache
|
||
; <2.4> 9/18/89 dnf Added XGetInfo call
|
||
; <2.3> 9/7/89 dnf dnf for kst. Roll in BTree writecount patch
|
||
; <2.2> 8/26/89 dnf Add Aurora (Mac IIci) and Esprit (Mac Portable) ROM addresses
|
||
; <2.1> 8/7/89 dnf Don't clobber d0 in dispatch, get rid of PRNonPortable
|
||
; <2.0> 8/7/89 EMT Use inc.sum.d rather than individual includes for speed and
|
||
; accuracy.
|
||
; <1.9> 7/24/89 EKN Added TFSVCBTst, Gt1stMatch. Changed FileIDs call names from
|
||
; "PB.." to "PBH...".
|
||
; <1.8> 7/6/89 dnf Enable desktop db mgr. Change references to ExtOffLinCh to
|
||
; ExtOffLinCk to match ROM
|
||
; <1.7> 6/1/89 EKN Get PushCName and PopCName to different rom addresses, please.
|
||
; <1.6> 5/31/89 dnf Really disable Desktop Mgr this time.
|
||
; <1.5> 5/31/89 dnf Desktop mgr hangs in btree mgr. Disable Desktop mgr for 7.0a1 so
|
||
; machine won't hang opening Desktop DB
|
||
; <1.4> 5/31/89 dnf Back out of fancy new DCBind macro to old (reliable) JmpBind
|
||
; <1.3> 5/31/89 dnf Reordered equates. HFS70Equ needs to be before CatSrchPriv.a
|
||
; <1.2> 5/31/89 EKN Fixed Rom address for BTSearch. Added entries for CMDelete,
|
||
; CMRename, CMMove
|
||
; <1.1> 5/31/89 EKN Filled in rom addresses, hooked in CMSetUp correctly,and unset
|
||
; IsAnINIT.
|
||
; <1.0> 5/30/89 dnf Integrate CatSearch, FileID's and Desktop Database Mgr into one
|
||
; ptch
|
||
;
|
||
; To Do:
|
||
;
|
||
;
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
; Includes…
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
|
||
;
|
||
; <54> has3rdFloppy is false for System builds.
|
||
;
|
||
|
||
if (&type('has3rdFloppy') = 'UNDEFINED') then ; <54>
|
||
has3rdFloppy: equ 0 ; <54>
|
||
endif ; <54>
|
||
|
||
|
||
print push
|
||
print off
|
||
load 'StandardEqu.d'
|
||
include 'FileMgrPrivate.a'
|
||
include 'CatSrchPriv.a'
|
||
include 'BTreeEqu.a'
|
||
include 'DTDBMgrPriv.a'
|
||
include 'DTDBMgrEqu.a'
|
||
include 'LinkedPatchMacros.a'
|
||
include 'QMgrEqu.a'
|
||
include 'GestaltEqu.a'
|
||
include 'MFPrivate.a'
|
||
include 'Processes.a'
|
||
include 'HardwarePrivateEqu.a'
|
||
include 'SysPrivateEqu.a'
|
||
include 'SCSIEqu.a'
|
||
include 'SCSIPriv.a'
|
||
include 'SonyEqu.a'
|
||
include 'InternalMacros.a'
|
||
print pop
|
||
|
||
|
||
BuildHFS70Init default 0
|
||
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
; exciting table of ROM Addresses
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
ROMs Plus,SE,II,Portable,IIci
|
||
|
||
romAfterExtFSHook ROMBind (Plus,$029f2), (SE,$04434), (II,$07edc), (IIci,$0f0e0), (Portable, $096e0)
|
||
romBTFlush ROMBind (Plus,$068c2), (SE,$08398), (II,$0be5c), (IIci,$13242), (Portable, $0d802)
|
||
BUILDKEY ROMBind (Plus,$065d8), (SE,$080a0), (II,$0BB64), (IIci,$12f40), (Portable, $0d50a)
|
||
BTDELETE ROMBind (Plus,$0671c), (SE,$081e6), (II,$0bcaa), (IIci,$13090), (Portable, $0d650)
|
||
BTGETRECORD ROMBind (Plus,$06928), (SE,$083fc), (II,$0bec0), (IIci,$132A6), (Portable, $0d866)
|
||
BTINSERT ROMBind (Plus,$069ea), (SE,$084b4), (II,$0bf78), (IIci,$1335E), (Portable, $0d91e)
|
||
BTSEARCH ROMBind (Plus,$06d4a), (SE,$0880c), (II,$0c2d0), (IIci,$136B6), (Portable, $0dc76)
|
||
BTUPDATE ROMBind (Plus,$06dd6), (SE,$08896), (II,$0c35a), (IIci,$13740), (Portable, $0dd00)
|
||
CACHERDIP ROMBind (Plus,$07b2a), (SE,$0967e), (II,$0d13e), (IIci,$1459C), (Portable, $0eb44)
|
||
romChgMFlLock ROMBind (Plus,$046de), (SE,$06812), (II,$0a2e8), (IIci,$11694), (Portable, $0bc7c)
|
||
CHKNODE ROMBind (Plus,$072c2), (SE,$08e22), (II,$0c8e6), (IIci,$13D42), (Portable, $0e2ec)
|
||
romCkExtFS ROMBind (Plus,$03638), (SE,$050be), (II,$08b80), (IIci,$0fefa), (Portable, $0a4e2)
|
||
romCkFilMod ROMBind (Plus,$0497a), (SE,$06420), (II,$09eec), (IIci,$11298), (Portable, $0b880)
|
||
CMDDONE ROMBind (Plus,$0295e), (SE,$043a0), (II,$07e48), (IIci,$0f04c), (Portable, $0964c)
|
||
CMFLUSH ROMBind (Plus,$06606), (SE,$080ce), (II,$0BB92), (IIci,$12f6e), (Portable, $0d538)
|
||
CMGETCN ROMBind (Plus,$06238), (SE,$07d04), (II,$0b7c8), (IIci,$12ba2), (Portable, $0d16e)
|
||
CMSETUP ROMBind (Plus,$065a0), (SE,$08068), (II,$0bb2c), (IIci,$12f06), (Portable, $0d4d2)
|
||
romCMUpdateCN ROMBind (Plus,$0656c), (SE,$08036), (II,$0bafa), (IIci,$12ed4), (Portable, $0d4a0)
|
||
CVFLGS ROMBind (Plus,$03a76), (SE,$05502), (II,$08FCA), (IIci,$10344), (Portable, $0a92c)
|
||
romDtrmV1 ROMBind (Plus,$03650), (SE,$050e2), (II,$08ba4), (IIci,$0ff1e), (Portable, $0a50c)
|
||
DTRMV3 ROMBind (Plus,$03642), (SE,$050ce), (II,$08b90), (IIci,$0ff0a), (Portable, $0a4f8)
|
||
EXTOFFLINCK ROMBind (Plus,$04aba), (SE,$06560), (II,$0A02C), (IIci,$113d8), (Portable, $0b9c0)
|
||
romFindDrive ROMBind (Plus,$03414), (SE,$04e9A), (II,$08956), (IIci,$0FC6C), (Portable, $0A258)
|
||
FNDFILNAME ROMBind (Plus,$04990), (SE,$06436), (II,$09f02), (IIci,$112ae), (Portable, $0b896)
|
||
romFSAsync ROMBind (Plus,$02912), (SE,$04354), (II,$07dfc), (IIci,$0f000), (Portable, $09600)
|
||
FSQUEUESYNC ROMBind (Plus,$028a6), (SE,$042e8), (II,$07d90), (IIci,$0ef94), (Portable, $09594)
|
||
FSQUEUE ROMBind (Plus,$028aa), (SE,$042ec), (II,$07d94), (IIci,$0ef98), (Portable, $09598)
|
||
romGt1stMatch ROMBind (Plus,$04002), (SE,$05a9c), (II,$0955c), (IIci,$108d6), (Portable, $0aebe)
|
||
romLocCNode ROMBind (Plus,$06678), (SE,$0813e), (II,$0BC02), (IIci,$12FDE), (Portable, $0d5a8)
|
||
LOCCREC ROMBind (Plus,$06698), (SE,$0815e), (II,$0bc22), (IIci,$12FFE), (Portable, $0d5c8)
|
||
LOCREC ROMBind (Plus,$07538), (SE,$0908c), (II,$0cb50), (IIci,$13FAC), (Portable, $0e556)
|
||
romMarkVCB ROMBind (Plus,$02d1e), (SE,$04766), (II,$0820e), (IIci,$0F524), (Portable, $09b10)
|
||
romMarkVCBTime ROMBind (Plus,$02d20), (SE,$04768), (II,$08210), (IIci,$0F526), (Portable, $09b12)
|
||
POPCNAME ROMBind (Plus,$04288), (SE,$05d28), (II,$097EA), (IIci,$10b96), (Portable, $0b17e)
|
||
PUSHCNAME ROMBind (Plus,$04258), (SE,$05cf8), (II,$097BA), (IIci,$10b66), (Portable, $0b14e)
|
||
romRfnCall ROMBind (Plus,$05352), (SE,$06e04), (II,$0a8c8), (IIci,$11C86), (Portable, $0c26e)
|
||
TFSVCBTST ROMBind (Plus,$04ec6), (SE,$06968), (II,$0a43e), (IIci,$117ea), (Portable, $0bdd2)
|
||
UPDCNAME ROMBind (Plus,$066c2), (SE,$0818c), (II,$0BC50), (IIci,$1302C), (Portable, $0d5f6)
|
||
romUpdRtCnts ROMBind (Plus,$065be), (SE,$08086), (II,$0BB4A), (IIci,$12f24), (Portable, $0d4f0)
|
||
romUpdVCnts ROMBind (Plus,$065ae), (SE,$08076), (II,$0BB3A), (IIci,$12f14), (Portable, $0d4e0)
|
||
XFFLUSH ROMBind (Plus,$05ed0), (SE,$0799a), (II,$0B45E), (IIci,$1282a), (Portable, $0ce04)
|
||
GT1STFCB ROMBind (Plus,$03ff2), (SE,$05a8c), (II,$0954c), (IIci,$108c6), (Portable, $0aeae)
|
||
GTNXTFCB ROMBind (Plus,$03ffa), (SE,$05a94), (II,$09554), (IIci,$108ce), (Portable, $0aeb6)
|
||
FLUSHCACHE ROMBind (Plus,$076c6), (SE,$0921a), (II,$0ccdc), (IIci,$1413a), (Portable, $0e6e2)
|
||
|
||
; The following addresses are needed for ROM B*Tree writecount patch: <2.3 kst>
|
||
romBuildIRec ROMBind (Plus,$072a0), (SE,$08E00), (II,$0C8C4), (IIci,$13D20), (Portable,$0E2CA)
|
||
romClrNode ROMBind (Plus,$0734E), (SE,$08EA6), (II,$0C96A), (IIci,$13DC6), (Portable,$0E370)
|
||
romDeleteRec ROMBind (Plus,$0736A), (SE,$08EC2), (II,$0C986), (IIci,$13DE2), (Portable,$0E38C)
|
||
romGetLtSib ROMBind (Plus,$073BA), (SE,$08F12), (II,$0C9D6), (IIci,$13E32), (Portable,$0E3DC)
|
||
romGetRtSib ROMBind (Plus,$073C4), (SE,$08F1C), (II,$0C9E0), (IIci,$13E3C), (Portable,$0E3E6)
|
||
romGetMaxKey ROMBind (Plus,$073F6), (SE,$08F4C), (II,$0CA10), (IIci,$13E6C), (Portable,$0E416)
|
||
romGetRecA ROMBind (Plus,$0746E), (SE,$08FC2), (II,$0CA86), (IIci,$13EE2), (Portable,$0E48C)
|
||
romInitNode ROMBind (Plus,$0748A), (SE,$08FDE), (II,$0CAA2), (IIci,$13EFE), (Portable,$0E4A8)
|
||
romInsertRec ROMBind (Plus,$074BC), (SE,$09010), (II,$0CAD4), (IIci,$13F30), (Portable,$0E4DA)
|
||
romLocBTCB ROMBind (Plus,$0752E), (SE,$09082), (II,$0CB46), (IIci,$13FA2), (Portable,$0E54C)
|
||
romLocTPR ROMBind (Plus,$0756A), (SE,$090BE), (II,$0CB82), (IIci,$13FDE), (Portable,$0E588)
|
||
romUpdDRec ROMBind (Plus,$07646), (SE,$0919A), (II,$0CC5E), (IIci,$140BA), (Portable,$0E664)
|
||
romUpdIKey ROMBind (Plus,$07668), (SE,$091BC), (II,$0CC80), (IIci,$140DC), (Portable,$0E686)
|
||
romBTCleanUp ROMBind (Plus,$06E02), (SE,$088C2), (II,$0C386), (IIci,$1376C), (Portable,$0DD2C)
|
||
romBTSetUp ROMBind (Plus,$06E10), (SE,$088D0), (II,$0C394), (IIci,$1377A), (Portable,$0DD3A)
|
||
romRotateLt ROMBind (Plus,$0706C), (SE,$08BC8), (II,$0C68C), (IIci,$13AE0), (Portable,$0E092)
|
||
romSplitLt ROMBind (Plus,$0715C), (SE,$08CB8), (II,$0C77C), (IIci,$13BD0), (Portable,$0E182)
|
||
romTreeSearch ROMBind (Plus,$071E4), (SE,$08D42), (II,$0C806), (IIci,$13C5A), (Portable,$0E20C)
|
||
|
||
; The following addresses are needed for file/WD cleanup patch: <2.7 kst>
|
||
romFillWDCB ROMBind (Plus,$03BB4), (SE,$05640), (II,$09100), (IIci,$1047A), (Portable,$0AA62)
|
||
romGtNxtMatch ROMBind (Plus,$04010), (SE,$05AAA), (II,$0956A), (IIci,$108E4), (Portable,$0AECC)
|
||
;PermssnChk ROMBind (Plus,$0416C), (SE,$05C06), (II,$096C8), (IIci,$10A74), (Portable,$0B05C)
|
||
;MFSOpen ROMBind (Plus,$04294), (SE,$05D34), (II,$097F6), (IIci,$10BA2), (Portable,$0B18A)
|
||
romGt1stWDCB ROMBind (Plus,$043A0), (SE,$05E3A), (II,$098FC), (IIci,$10CA8), (Portable,$0B290)
|
||
romGtNxtWDCB ROMBind (Plus,$043A8), (SE,$05E42), (II,$09904), (IIci,$10CB0), (Portable,$0B298)
|
||
|
||
FromWaitForDsk ROMBind (Plus,$2B66),(SE,$45A8),(II,$8050)
|
||
AfterSysErrorInDSHook ROMBind (Plus,$2B30),(SE,$4572),(II,$801A),(Portable,$9830),(IIci,$F244)
|
||
DSExit ROMBind (Plus,$2BE8),(SE,$4630),(II,$80D8),(Portable,$98EC),(IIci,$F300)
|
||
AfterMountVolInDSHook ROMBind (Plus,$2AAE),(SE,$44F0),(II,$7F98),(Portable,$97A8),(IIci,$F1A8)
|
||
|
||
OldMtVolAfterFSQueue ROMBind (Plus,$2E4C),(SE,$489E),(II,$834C),(Portable,$9C4E),(IIci,$F662)
|
||
MtVolOK ROMBind (Plus,$3138),(SE,$4B86),(II,$863A),(Portable,$9F3C),(IIci,$F950)
|
||
MtCheck ROMBind (Plus,$3190),(SE,$4BDE)
|
||
After2ndAccessBTInMountVol ROMBind (Plus,$2FFA),(SE,$4A4C)
|
||
AfterBTOpenInAccessBT ROMBind (Plus,$340A),(SE,$4E90)
|
||
AfterUpdateFreeInMtCheck ROMBind (Plus,$332E),(SE,$4DAE)
|
||
AfterReadBMInUpdateFree ROMBind (Plus,$59E0),(SE,$7488)
|
||
AfterGetBMBlkInReadBM ROMBind (Plus,$5A1E)
|
||
AfterGetBlockInGetBMBlk ROMBind (Plus,$5A9E)
|
||
|
||
CMRenameCN ROMBind (Plus,$6462),(SE,$7F2E),(II,$B9F2),(Portable,$D398),(IIci,$12Dcc) ;<37>
|
||
DtrmV2 ROMBind (Plus,$3788),(SE,$521A),(II,$8CDC),(IIci,$10056),(Portable,$A63E)
|
||
AfterVolCheckInRename ROMBind (Plus,$4498),(SE,$5F32),(II,$99FE),(IIci,$10DAA),(Portable,$B392)
|
||
RNmVol1 ROMBind (Plus,$45F8),(SE,$6092),(II,$9B5E),(IIci,$10F0A),(Portable,$B5F2)
|
||
RNmVol@70 ROMBind (Plus,$460E),(SE,$60B8),(II,$9B84),(IIci,$10F30),(Portable,$B518)
|
||
|
||
AfterCMSetupInCMCreateCN ROMBind (Plus,$604E), (SE,$7B1C), (II,$B5E0), (IIci,$129BA), (Portable, $0CF86) ;<27>
|
||
AfterCMSetupInCMDeleteCN ROMBind (Plus,$6194), (SE,$7c62), (II,$B726), (IIci,$12b00), (Portable, $0D0CC) ;<22>
|
||
AfterCMSetupInCMMoveCN ROMBind (Plus,$62c6), (SE,$7d92), (II,$B856), (IIci,$12c30), (Portable, $0D1FC) ;<22>
|
||
AfterCMSetupInCMRenameCN ROMBind (Plus,$646c), (SE,$7f38), (II,$B9FC), (IIci,$12dd6), (Portable, $0D3A2) ;<22>
|
||
AfterCMSetupInCMUpdateCN ROMBind (Plus,$6576), (SE,$803E), (II,$BB02), (IIci,$12EDC), (Portable, $0D4A8) ;<27>
|
||
AfterCMSetupInCMGetCN ROMBind (Plus,$6242), (SE,$7D0E), (II,$B7D2), (IIci,$12BAC), (Portable, $0D178) ;<23>
|
||
AfterCMGetCNInFndFilName ROMBind (Plus,$4A4E), (SE,$64F4), (II,$9FC0), (IIci,$1136C), (Portable, $0B954) ;<23>
|
||
AfterCMGetCNinRename ROMBind (Plus,$45ae), (SE,$6048), (II,$9B14), (IIci,$10EC0), (Portable, $0b4a8)
|
||
AfterCMRenameCNInRename ROMBind (Plus,$4554), (SE,$5ff2), (II,$9abe), (IIci,$10e6a), (Portable, $0b452) ;<22>
|
||
|
||
FlushVFiles ROMBind (Plus,$35Be), (SE,$5044), (II,$8B06), (IIci,$FE80), (Portable, $A468) ;<24>
|
||
FlUnMntCallsFlushBuffers ROMBind (Plus,$3622), (SE,$50A8), (II,$8B6A), (IIci,$FEE4), (Portable, $A4CC) ;<24>
|
||
FlUnMntAfterMFSCheck ROMBind (Plus,$3616), (SE,$509C), (II,$8B5E), (IIci,$FED8), (Portable, $A4C0) ;<24>
|
||
|
||
OfflineEjectCallsFlushBuffers ROMBind (Plus,$355E), (SE,$4FE4), (II,$8AA6), (IIci,$FDBE), (Portable, $A3AA) ;<24>
|
||
OfflineEjectCallsMFSFlush ROMBind (Plus,$3564),(SE,$4FEA), (II,$8AAC), (IIci,$FDC4), (Portable, $A3B0)
|
||
|
||
FlushBuffersAtflVCaches ROMBind (Plus,$34A0), (SE,$4F26), (II,$89E8), (IIci,$0FCFE), (Portable,$A2EA) ;<24>
|
||
FlushBuffersAtflBufExit ROMBind (Plus,$34D6), (SE,$4F5C), (II,$8A1E), (IIci,$0FD34), (Portable,$A320) ;<24>
|
||
FClose ROMBind (Plus,$5168), (SE,$6c0E), (II,$A6E4), (IIci,$11AA2), (Portable,$C08A)
|
||
DsposVBlks ROMBind (Plus,$336E), (SE,$4E28), (II,$88E4), (IIci,$0FBFA), (Portable,$A1B2)
|
||
DsposVCB ROMBind (Plus,$33A2), (SE,$4DF4), (II,$88B0), (IIci,$0FBC6), (Portable,$A1E6)
|
||
EjectIt ROMBind (Plus,$3598), (SE,$501E), (II,$8AE0), (IIci,$0FDFC), (Portable,$A3E4)
|
||
MFSFlush ROMBind (Plus,$3F00), (SE,$599A), (II,$945A), (IIci,$107D4), (Portable,$ADBC)
|
||
MarkVCBDirty ROMBind (Plus,$2D28), (SE,$4770), (II,$8218), (IIci, $0F52E), (Portable,$9B1A)
|
||
FlushMDB ROMBind (Plus,$2D2E), (SE,$4776), (II,$821E), (IIci, $0F534), (Portable,$9B20)
|
||
|
||
FOpen1 ROMBind (Plus,$4032), (SE,$5ACC), (II,$958C), (IIci,$10906), (Portable,$AEEE)
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: HFS7.0 Enhancements Dispatch
|
||
;
|
||
; Function: Look at d0 and decide whether to dispatch to FileID handling routines,
|
||
; CatSearch, or the Desktop Manager. Also implements the local version
|
||
; of GetVolParms.
|
||
;
|
||
; The deal with $a060 trap numbers:
|
||
; 0-$1f HFS calls
|
||
; $20-$2f Desktop Manager Calls
|
||
; $30-$3f AppleShare calls (owned by AppleShare group)
|
||
; $40-$4f More appleshare calls
|
||
; $60-$7f More HFS calls
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into TFSDispatch into the file TFS.a. <SM1>
|
||
HFSDispHook: PatchProc _HFSDispatch
|
||
|
||
; low and high values for the dispatch ranges we're patching
|
||
firstA60Disp equ selectCreateFileIDRef ; First entry is CreateFileIDRef, $14
|
||
lastA60Disp equ $6F ; Last entry is $6F, reserved for future use
|
||
|
||
import A60DispTbl ; all known A60 dispatch addresses
|
||
import OpenDF ; Open data fork
|
||
import AllocateFCBs
|
||
import OpenWDPatch, SetVolInfoPatch, UnknownCall
|
||
|
||
cmp.w #firstA60Disp, d0 ; dispatch less than 1st HFS 70 value?
|
||
blo.s @CheckLowStuff ; check for patches on more mature routines
|
||
cmp.w #lastA60Disp, d0 ; dispatch less than last known value?
|
||
bls.s @CoolDispatchSelector ; then go dispatch it
|
||
jmp UnknownCall ; then treat this call as unknown, possibly of
|
||
|
||
@CoolDispatchSelector:
|
||
move.w d0,d2 ; trap index into trashable reg <2.1>
|
||
sub.w #firstA60Disp, d2 ; 'normalize' dispatches to start at zero
|
||
leaResident A60DispTbl,a2 ; Point to the trap table
|
||
move.w d1, ioTrap(a0) ; Save unMunged trap word <14>
|
||
andi.w #$0f00, ioTrap(a0) ; Leave only modifiers (Async etc.) <14>
|
||
move.b d0, ioTrap+1(a0) ; Save the compacted trap information <14>
|
||
|
||
add.w d2,d2 ; double for word index
|
||
add.w d2,d2 ; double for long index
|
||
jmp (a2,d2.w) ; Pass control to routine
|
||
|
||
@CheckLowStuff:
|
||
; ever get the feeling we’ll have another dispatch table soon?
|
||
|
||
cmp.w #selectOpenWD, d0 ; openWD call?
|
||
bne.s @notOpenWD
|
||
jmp OpenWDPatch ; yes - do our special thing
|
||
@notOpenWD:
|
||
|
||
cmp.w #selectSetVolInfo, d0 ; SetVolInfo call? <20>
|
||
bne.s @notSetVolInfo
|
||
jmp SetVolInfoPatch ; yes - do our special thing (2) <20>
|
||
@notSetVolInfo:
|
||
|
||
jmpOld ; no - go call the next dude on the chain
|
||
endproc
|
||
|
||
macro
|
||
DispatchEntry &where
|
||
import &where
|
||
jmp &where
|
||
endm
|
||
|
||
A60DispTbl: proc
|
||
|
||
DispatchEntry CreateFileIDRef ; (0) dispatch $14
|
||
DispatchEntry DeleteFileIDRef ; (1) dispatch $15
|
||
DispatchEntry ResolveFileIDRef ; (2) dispatch $16
|
||
DispatchEntry PBHExchangeFiles ; (3) dispatch $17
|
||
DispatchEntry CMCatSearch ; (4) dispatch $18
|
||
DispatchEntry CheckCSPB ; (5) dispatch $19
|
||
DispatchEntry OpenDF ; (6) dispatch $1A
|
||
DispatchEntry MakeFSSpec ; (7) dispatch $1B
|
||
DispatchEntry UnknownCall ; (8) dispatch $1C
|
||
DispatchEntry UnknownCall ; (9) dispatch $1D
|
||
DispatchEntry UnknownCall ; (10) dispatch $1E
|
||
DispatchEntry UnknownCall ; (11) dispatch $1F
|
||
|
||
DispatchEntry DTGetPath ; (12) dispatch $20
|
||
DispatchEntry DTCloseDown ; (13) dispatch $21
|
||
DispatchEntry DTAddIcon ; (14) dispatch $22
|
||
DispatchEntry DTGetIcon ; (15) dispatch $23
|
||
DispatchEntry DTGetIconInfo ; (16) dispatch $24
|
||
DispatchEntry DTAddAPPL ; (17) dispatch $25
|
||
DispatchEntry DTRemoveAPPL ; (18) dispatch $26
|
||
DispatchEntry DTGetAPPL ; (19) dispatch $27
|
||
DispatchEntry DTSetComment ; (20) dispatch $28
|
||
DispatchEntry DTRemoveComment ; (21) dispatch $29
|
||
DispatchEntry DTGetComment ; (22) dispatch $2a
|
||
DispatchEntry DTFlush ; (23) dispatch $2b
|
||
DispatchEntry DTReset ; (24) dispatch $2c
|
||
DispatchEntry DTGetInfo ; (25) dispatch $2d
|
||
DispatchEntry DTOpenInform ; (26) dispatch $2e
|
||
DispatchEntry DTDelete ; (27) dispatch $2f
|
||
|
||
DispatchEntry GetVolParms ; (28) dispatch $30 GetVolParms
|
||
DispatchEntry VolumeCall ; (29) dispatch $31 GetLogInInfo
|
||
DispatchEntry VolumeCall ; (30) dispatch $32 GetDirAccess
|
||
DispatchEntry VolumeCall ; (31) dispatch $33 SetDirAccess
|
||
DispatchEntry VolumeCall ; (32) dispatch $34 MapID
|
||
DispatchEntry VolumeCall ; (33) dispatch $35 MapName
|
||
DispatchEntry VolumeCall ; (34) dispatch $36 CopyFile
|
||
DispatchEntry VolumeCall ; (35) dispatch $37 MoveRename
|
||
DispatchEntry OpenCall ; (36) dispatch $38 OpenDeny
|
||
DispatchEntry OpenCall ; (37) dispatch $39 OpenRFDeny
|
||
DispatchEntry VolumeCall ; (38) dispatch $3A Reserved for future use
|
||
DispatchEntry VolumeCall ; (39) dispatch $3B Reserved for future use
|
||
DispatchEntry VolumeCall ; (40) dispatch $3C Reserved for future use
|
||
DispatchEntry VolumeCall ; (41) dispatch $3D Reserved for future use
|
||
DispatchEntry VolumeCall ; (42) dispatch $3E Reserved for future use
|
||
|
||
DispatchEntry VolumeCall ; (43) dispatch $3F GetVolMountInfoSize
|
||
DispatchEntry VolumeCall ; (44) dispatch $40 GetVolMountInfo
|
||
DispatchEntry UnknownCall ; (45) dispatch $41 VolumeMount
|
||
DispatchEntry VolumeCall ; (46) dispatch $42 Share
|
||
DispatchEntry VolumeCall ; (47) dispatch $43 UnShare
|
||
DispatchEntry UnknownCall ; (48) dispatch $44 GetUGEntry
|
||
DispatchEntry UnknownCall ; (49) dispatch $45 ServerControl
|
||
DispatchEntry UnknownCall ; (50) dispatch $46 ServerStartup
|
||
DispatchEntry UnknownCall ; (51) dispatch $47 Reserved for future use
|
||
DispatchEntry UnknownCall ; (52) dispatch $48 Reserved for future use
|
||
DispatchEntry UnknownCall ; (53) dispatch $49 Reserved for future use
|
||
DispatchEntry UnknownCall ; (54) dispatch $4A Reserved for future use
|
||
DispatchEntry UnknownCall ; (55) dispatch $4B Reserved for future use
|
||
DispatchEntry UnknownCall ; (56) dispatch $4C Reserved for future use
|
||
DispatchEntry UnknownCall ; (57) dispatch $4D Reserved for future use
|
||
DispatchEntry UnknownCall ; (58) dispatch $4E Reserved for future use
|
||
DispatchEntry UnknownCall ; (59) dispatch $4F Reserved for future use
|
||
|
||
DispatchEntry GetParallelFCBFromRefnum ; (60) dispatch $50
|
||
DispatchEntry RefNumCall ; (61) dispatch $51 Reserved for future use
|
||
DispatchEntry RefNumCall ; (62) dispatch $52 Reserved for future use
|
||
DispatchEntry RefNumCall ; (63) dispatch $53 Reserved for future use
|
||
DispatchEntry RefNumCall ; (64) dispatch $54 Reserved for future use
|
||
DispatchEntry RefNumCall ; (65) dispatch $55 Reserved for future use
|
||
DispatchEntry RefNumCall ; (66) dispatch $56 Reserved for future use
|
||
DispatchEntry RefNumCall ; (67) dispatch $57 Reserved for future use
|
||
DispatchEntry RefNumCall ; (68) dispatch $58 Reserved for future use
|
||
DispatchEntry RefNumCall ; (69) dispatch $59 Reserved for future use
|
||
DispatchEntry RefNumCall ; (70) dispatch $5A Reserved for future use
|
||
DispatchEntry RefNumCall ; (71) dispatch $5B Reserved for future use
|
||
DispatchEntry RefNumCall ; (72) dispatch $5C Reserved for future use
|
||
DispatchEntry RefNumCall ; (73) dispatch $5D Reserved for future use
|
||
DispatchEntry RefNumCall ; (74) dispatch $5E Reserved for future use
|
||
DispatchEntry RefNumCall ; (75) dispatch $5F Reserved for future use
|
||
|
||
DispatchEntry VolumeCall ; (76) dispatch $60 GetAltPrivs
|
||
DispatchEntry VolumeCall ; (77) dispatch $61 SetAltPrivs
|
||
DispatchEntry DoFSCleanUp ; (78) dispatch $62 FSCleanUp
|
||
DispatchEntry AllocateFCBs ; (79) dispatch $63 AllocateFCBs
|
||
DispatchEntry VolumeCall ; (80) dispatch $64 Reserved for future use
|
||
DispatchEntry VolumeCall ; (81) dispatch $65 Reserved for future use
|
||
DispatchEntry VolumeCall ; (82) dispatch $66 Reserved for future use
|
||
DispatchEntry VolumeCall ; (83) dispatch $67 Reserved for future use
|
||
DispatchEntry VolumeCall ; (84) dispatch $68 Reserved for future use
|
||
DispatchEntry VolumeCall ; (85) dispatch $69 Reserved for future use
|
||
DispatchEntry VolumeCall ; (86) dispatch $6A Reserved for future use
|
||
DispatchEntry VolumeCall ; (87) dispatch $6B Reserved for future use
|
||
DispatchEntry VolumeCall ; (88) dispatch $6C Reserved for future use
|
||
DispatchEntry VolumeCall ; (89) dispatch $6D Reserved for future use
|
||
DispatchEntry VolumeCall ; (90) dispatch $6E Reserved for future use
|
||
DispatchEntry VolumeCall ; (91) dispatch $6F Reserved for future use
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: Stub dispatch handlers
|
||
;
|
||
; Function: Pass a call to the external File System if it refers to an
|
||
; external File System volume.
|
||
;
|
||
; VolumeCall handles calls defined to take a vRefnum/ioNamePtr
|
||
; RefNumCall handles calls which take an FCB refnum
|
||
; OpenCall handles all forms of Open (which need to set up an FCB in d1)
|
||
; UnknownCall handles call for which there isn't yet a definition
|
||
;
|
||
; Inputs: A0 = Parameter block
|
||
; Output: D0 = error code, RfNumErr or zero.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFS.a. <SM1>
|
||
VolumeCall: proc
|
||
jsrROM FSQUEUE ; Patiently wait our turn
|
||
jsrROM DTRMV3 ; Determine the volume being referred to
|
||
bne ToCmdDone ; Punt at the slightest hint of trouble
|
||
|
||
move.l a2,ReqstVol ; Point to the volume being referred to
|
||
tst.w VCBFSID(a2) ; External FS?
|
||
bne ExtFSErrExit ; Branch if it's not a local FS
|
||
bra ParamErrExit
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: RefNumCall
|
||
;
|
||
; Function: Handle a refNum-based call. If the call refers to an External
|
||
; File System's volume, the call is passed to the external FS.
|
||
; Otherwise, a #paramErr is returned to the caller.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFS.a. <SM1>
|
||
entry RefNumCall
|
||
RefNumCall:
|
||
import RefNumCheck
|
||
jsrROM FSQUEUE ; chill in line
|
||
move.w ioRefNum(a0),d0 ; Pick up the refNum
|
||
jsr RefNumCheck ; Check the refNum supplied
|
||
bne ToCmdDone ; Punt at first hint of trouble
|
||
|
||
movea.l FCBsPtr,a1 ; Point to the FCB table
|
||
move.w ioRefNum(a0),d1 ; Pick up the specified refNum
|
||
movea.l FCBVPtr(a1,d1),a1 ; Point to the VCB for this volume
|
||
move.l a1, ReqstVol ; In case it's #extFSErr
|
||
tst.w VCBFSID(a1) ; Local FS?
|
||
bne.s ExtFSErrExit ; No - let external file systems have it
|
||
bra.s ParamErrExit ; Local doesn't implement this call
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: UnknownCall
|
||
;
|
||
; Function: Pass a call to the external File System. This routine is called for
|
||
; call selectors that are unknown to HFS and the Desktop Manager, but
|
||
; which might be implemented for External File Systems.
|
||
;
|
||
; Inputs: A0 = Parameter block
|
||
; Output: D0 = error code, RfNumErr or zero.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFS.a. <SM1>
|
||
entry UnknownCall
|
||
UnknownCall:
|
||
jsrROM FSQUEUE ; Wait our turn
|
||
; <REALLY Fudge ReqsVol here later...>
|
||
movea.l VCBQHdr+qHead, a2 ; Pick up pointer to first VCB
|
||
move.l a2, ReqstVol ; Point someplace semi-innocuous
|
||
bra.s ExtFSErrExit ; ... and pass it along
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: OpenCall
|
||
;
|
||
; Function: Open a fork with specific Deny modes; pass the call to the External;
|
||
; file system if it's for an Ext. FS volume.
|
||
;
|
||
; Inputs: A0 = Parameter block
|
||
; Output: D0 = error code, RfNumErr or zero.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFS.a. <SM1>
|
||
entry OpenCall
|
||
OpenCall:
|
||
import OpenAttemptHook
|
||
jsrROM FSQUEUE ; Wait our turn
|
||
jsrROM DTRMV3 ; Determine the volume being referred to
|
||
bne.s ToCmdDone ; Punt at the slightest hint of trouble
|
||
|
||
move.l a2,ReqstVol ; Point to the volume being referred to
|
||
tst.w VCBFSID(a2) ; External FS?
|
||
beq.s ParamErrExit ; It's an unknown trap for a local volume
|
||
|
||
bsr OpenAttemptHook ; let ourselves know we're trying <38>
|
||
jsrROM GT1STFCB ; get (A1,D1) pointing to first FCB
|
||
@1 tst.l FCBFlNm(a1,d1) ; FCB unused
|
||
beq.s @90 ; br if so
|
||
jsrROM GTNXTFCB ; get next one until we run out
|
||
bcs.s @1
|
||
|
||
moveq.l #TMFOErr,d0 ; too many files open
|
||
clr.w IORefNum(a0) ; make refnum invalid
|
||
bra.s ToCmdDone
|
||
|
||
@90 add.l a1,d1 ; Point to the FCB
|
||
|
||
ExtFSErrExit:
|
||
moveq.l #ExtFSErr,d0 ; Good news!
|
||
bra.s ToCmdDone
|
||
|
||
ParamErrExit:
|
||
moveq.l #paramErr, d0 ; It's an unknown trap for a local volume
|
||
|
||
ToCmdDone:
|
||
jmpROM CMDDONE ; And call it a day.
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: RefNumCheck
|
||
;
|
||
; Function: Check the refNum supplied to make sure it's a real file RefNum.
|
||
;
|
||
; Inputs: d0 = refnum
|
||
; Output: d0 = error code, RfNumErr or noErr
|
||
;
|
||
; Note:
|
||
; This routine is called by the desktop manager and the UnTagFCB _Close patch.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFS.a. <SM1>
|
||
RefNumCheckRegs reg a1/d1
|
||
RefNumCheck: proc export
|
||
movem.l RefNumCheckRegs, -(sp)
|
||
moveq.l #0, d1 ; clear high word
|
||
move.w d0, d1 ; make a copy of the refnum
|
||
bmi.s @RefNumErrExit ; no negative refnums
|
||
|
||
divu FSFCBLen,d1 ; Divide by the FCB size
|
||
swap d1 ; Get remainder in low word
|
||
subq.w #2,d1 ; Is the remainder 2?
|
||
bne.s @RefNumErrExit ; If not, no way this could be a refnum
|
||
|
||
move.l FCBSPtr, a1 ; point to length word of FCB array
|
||
cmp.w (a1), d0 ; check against size of FCB array
|
||
bgt.s @RefNumErrExit ; Too high? Too bad.
|
||
|
||
moveq.l #noErr, d0 ; No pwobwem!
|
||
bra.s @Exit
|
||
|
||
@RefNumErrExit:
|
||
moveq.l #RfNumErr,d0 ; Indicate a bad refNum
|
||
@Exit:
|
||
movem.l (sp)+, RefNumCheckRegs
|
||
tst.w d0 ; Set condition codes
|
||
rts
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: OpenDF
|
||
;
|
||
; Function: Opens a data fork. Identical to Open, except that no checking
|
||
; for drivers is done.
|
||
;
|
||
; Changes the trap word to _Open (from _HFSDispatch) so that external
|
||
; file systems will work properly. Preserves hfs and async bits
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into into the file TFSDIR1.a. <SM1>
|
||
OpenDF: proc
|
||
move.b #0, d1 ; clear low byte $Ax60 -> $Ax00
|
||
move.w d1, ioTrap(a0) ; clean up the pb, too <38>
|
||
move.l jFileOpen, -(sp) ; get the vector straight into the file system
|
||
rts ; jump in with both feet
|
||
endproc
|
||
|
||
;_______________________________________________________________________
|
||
;
|
||
; Routine: SetFilLock, RstFilLock
|
||
;
|
||
; (c) 1983, 1985, 1990 Apple Computer, Inc.
|
||
;
|
||
; Arguments: A0.L (input) -- pointer to I/O parameter block, uses
|
||
; IOFileName,IOFileType,IODrvNum
|
||
; D0.W (output) -- 0 if file was found and set correctly.
|
||
; Calls: FndFilName
|
||
; Function: Set or reset the file lock bit.
|
||
;
|
||
; Modification History:
|
||
; 16 Jan 83 LAK New today.
|
||
; 06 Jun 83 LAK Broke out CkFilMod as a subroutine.
|
||
; 10 Mar 85 PWD Modified for use with TFS catalog entries
|
||
; 28 Jun 90 dnf Modified to set/clear afp inhibit bits
|
||
;
|
||
; Note: if the file is locked after it has already been opened with write
|
||
; permission, the lock will not affect that opened file. If the lock bit
|
||
; is not changed by this command, the directory buffer is not marked dirty
|
||
; (allows quick lock/unlocking of a group of file, regardless of their current
|
||
; status).
|
||
;_______________________________________________________________________
|
||
; This patch was rolled back into TFSDIR3.A <SM1>
|
||
MakePatch SetFilLock,_SetFilLock
|
||
MakePatch RstFilLock,_RstFilLock
|
||
|
||
SetFilLock: proc export
|
||
export RstFilLock
|
||
|
||
JSRRom FSQUEUE ; wait our turn
|
||
ST FLckUnlck ; want to lock it
|
||
BRA.S SRFLck
|
||
|
||
RstFilLock:
|
||
jsrROM FSQUEUE
|
||
CLR.B FLckUnlck
|
||
|
||
SRFLck jsrROM romCkFilMod ; look for file and see if we can mod it
|
||
; (doesn't return on errors)
|
||
JSRROM TFSVCBTST ; Are we dealing with a TFS volume? <01Oct85>
|
||
BNEROM romChgMFlLock ; Nope - do it the old fashioned way
|
||
MOVEQ #FNFErr,D0 ; Expect the worst
|
||
CMP.B #cdrFilRec,cdrType(A5) ; Is this a file entry?
|
||
BNE.S SRFLXit3 ; No - don't touch it
|
||
TST.B FLckUnlck ; Yes! Now, what was it we wanted?
|
||
BEQ.S @1 ; br if we want to unlock it
|
||
BSET #FilWrtFlag,FilFlags(A5) ; lock it
|
||
BNE.S SRFLXit2 ; br if already locked
|
||
ori.b #xFFFilAttrLockMask, filFndrInfo+fdXFlags(a5) ; set bits in fdXFlags <28Jun90> <15>
|
||
BRA.S SRFLXit1 ; otherwise, it's been modified
|
||
|
||
@1 BCLR #FilWrtFlag,FilFlags(A5) ; unlock it
|
||
BEQ.S SRFLXit2 ; br if already unlocked
|
||
andi.b #~xFFFilAttrLockMask, filFndrInfo+fdXFlags(a5) ; clear bits in fdXFlags <28Jun90> <15>
|
||
|
||
; Mark the buffer holding the catalog entry dirty:
|
||
|
||
SRFLXit1 MOVE.L D7,D2 ; Get a hold of the catalog hint
|
||
JSRROM romCMUpdateCN ; Update the Catalog buffer
|
||
BRA.S SRFLXit3 ; If EQ, we're all set.
|
||
|
||
SRFLXit2 MOVEQ #0,D0
|
||
SRFLXit3 jmpROM CMDDONE
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; <55>
|
||
; Routine: GetParallelFCBFromRefnum
|
||
; Function: Return a pointer to the parallel FCB entry for a given
|
||
; file RefNum.
|
||
;
|
||
; Input: ioRefNum(a0) - File reference number
|
||
;
|
||
; Output: ioMisc(a0) - Pointer to parallel FCB entry
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into TFSDIR1.a
|
||
GetParallelFCBFromRefnum proc export
|
||
import ParallelFCBFromRefnum
|
||
import RefNumCheck
|
||
|
||
jsrROM FSQUEUE ; wait our turn
|
||
|
||
move.w ioRefNum(a0),d0 ; Get the file reference number
|
||
move.w d0,d1 ; Keep a copy in another register
|
||
bsr RefNumCheck ; Make sure the reference number is valid
|
||
bmi.s @exitGetParallelFCB ; Bad reference number
|
||
|
||
move.w d1,d0 ; Get the copy
|
||
bsr ParallelFCBFromRefnum ; Get the pointer to the parallel structure
|
||
move.l a1,ioFDirIndex(a0) ; Return the pointer in ioMisc
|
||
moveq #noErr,d0 ; No error
|
||
@exitGetParallelFCB
|
||
jmpROM CMDDONE ; outa here
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: ParallelFCBFromRefnum
|
||
; Function: Return a pointer to the parallel FCB entry for a given
|
||
; file RefNum.
|
||
;
|
||
; Input: d0.w - file refNum
|
||
;
|
||
; Output: d0.l - trash
|
||
; a1.l - pointer to parallel FCB entry
|
||
;
|
||
; Note: This routine assumes that d0 is really a decent, law-abiding
|
||
; refnum. RefNumCheck is a fine way to assure this.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into TFSDIR1.a
|
||
ParallelFCBFromRefnum proc export
|
||
andi.l #$FFFF, d0 ; only the low word is passed. <11>
|
||
divu.w FSFCBLen,d0 ; convert refnum to an index
|
||
movea.l FSVarsPtr,a1 ; get address of HFS variable area
|
||
movea.l FSVars.fcbPBuf(a1),a1 ; get address of parallel array
|
||
mulu.w cbPBufULen(a1),d0 ; convert file index to parallel array offset
|
||
lea fcbPBufData(a1,d0.l),a1 ; a1 -> parallel array element for file <20>
|
||
rts
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; <20>
|
||
; Routine: ParallelWDCBFromRefnum
|
||
; Function: Return a pointer to the parallel FCB entry for a given
|
||
; working directory RefNum.
|
||
;
|
||
; Input: d0.w - working directory refNum
|
||
;
|
||
; Output: d0.l - trash
|
||
; a1.l - pointer to parallel WDCB entry
|
||
;
|
||
; Note: This routine assumes that d0 is really a decent, law-abiding
|
||
; refnum. RefNumCheck is a fine way to assure this.
|
||
;________________________________________________________________________________
|
||
; This routine was rolled into TFSDIR1.a
|
||
ParallelWDCBFromRefnum proc
|
||
subi.w #WDRfnMin,d0 ; Change WDRefNum to WDCB table offset
|
||
assert WDCBLen = 1<<4 ; ensure that this shift is still legal
|
||
lsr.w #4,d0 ; convert WDCB table offset to an index
|
||
movea.l FSVarsPtr,a1 ; get address of HFS variable area
|
||
movea.l FSVars.wdcbPBuf(a1),a1 ; get address of parallel array
|
||
mulu.w cbPBufULen(a1),d0 ; convert WDCB index to parallel array offset
|
||
lea wdcbPBufData(a1,d0.l),a1 ; a1 -> parallel array element for file
|
||
rts
|
||
endproc
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; <16>
|
||
; Routine: ClosePatch
|
||
;
|
||
; Function: Prevent a file _Close from occuring on a file that was opened by kSystemProcess
|
||
; unless we're currently running kSystemProcess. This keeps random people (apps with
|
||
; housekeeping code that closes lots of files, for example) from closing system-like
|
||
; files out from under us.
|
||
;
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; This patch was rolled into TFSRFN2.a
|
||
ClosePatch PatchProc _Close
|
||
|
||
@ClosePatchRegs reg a0-a2/d0-d1
|
||
|
||
movem.l @ClosePatchRegs,-(sp) ; save regs we use
|
||
movea.l sp,a2 ; for safe, quick stack pointer restore
|
||
|
||
; check the refnum for validity. and locate the parallel FCB array element
|
||
move.w ioRefNum(a0),d0 ; get refnum being closed
|
||
bsr RefNumCheck ; is it legit?
|
||
bne.s @DoClosePop ; if not, let the real trap deal with it
|
||
move.w ioRefNum(a0),d0 ; get refnum being closed
|
||
bsr ParallelFCBFromRefnum ; a1 = address of parallel FCB element
|
||
|
||
; check whether we have tagged the file -- this makes sure that we can even call the
|
||
; Process Mgr (since files are tagged only when the Process Mgr is available), but is
|
||
; cheaper than ProcessMgrExists
|
||
tst.l xFCBPid2(a1) ; is low long initialized?
|
||
bne.s @NeedToCheck ; jump if so, we need to make the trap calls
|
||
tst.l xFCBPid1(a1) ; is high long initialized?
|
||
beq.s @DoClosePop ; both are uninitialized, OK to close!
|
||
|
||
; the quicker of the two checks is whether file opened by kSystemProcess, do it first
|
||
@NeedToCheck
|
||
; WRONG WRONG WRONG ; <53> <53> <53>
|
||
; pea #kSystemProcess ; push low long of PSN
|
||
; ----------------------------------------------------------
|
||
pea kSystemProcess ; push low long of PSN
|
||
|
||
clr.l -(sp) ; push high long of PSN
|
||
clr.l -(sp) ; allocate storage for boolean and result
|
||
pea 4(sp) ; push address of kSystemProcess
|
||
pea xFCBPid1(a1) ; push address of PSN from parallel FCB
|
||
pea 10(sp) ; push address of Boolean
|
||
_SameProcess ; compare FCB PSN to kSystemProcess
|
||
addq.l #2,sp ; dump OSErr (Boolean OK on error)
|
||
tst.w (sp) ; check Boolean (still false if error)
|
||
beq.s @DoClosePop ; jump if FCB not opened by kSystemProcess
|
||
|
||
; OK, file was opened by kSystemProcess, see whether _Close caller is also kSystemProcess
|
||
clr.w (sp) ; set Boolean to "false", for easier check later
|
||
suba.l #10,sp ; allocate storage for PSN (8 bytes) and result
|
||
pea 2(sp) ; push address of PSN storage
|
||
_GetSystemClientProcess ; get party responsible for this _Close call
|
||
pea 2(sp) ; push address of client PSN
|
||
pea 16(sp) ; push address of kSystemProcess
|
||
pea 18(sp) ; push address of Boolean
|
||
_SameProcess ; is current client same as kSystemProcess?
|
||
tst.w 10(sp) ; check boolean
|
||
beq.s @DontClosePop ; if "false", caller is not kSystemProcess
|
||
|
||
; file not opened by kSystemProcess, or closer is also kSystemProcess
|
||
@DoClosePop
|
||
movea.l a2,sp ; restore stack
|
||
movem.l (sp)+,@ClosePatchRegs ; restore regs we used
|
||
jmpOld ; close the file
|
||
|
||
; file was opened by kSystemProcess, but is being closed by someone else. Just say no!
|
||
@DontClosePop
|
||
movea.l a2,sp ; restore stack
|
||
movem.l (sp)+,@ClosePatchRegs ; restore regs we used
|
||
moveq.l #permErr,d0 ; set error code
|
||
move.w d0,ioResult(a0) ; agree in the iopb
|
||
rts ; return to caller
|
||
|
||
endproc
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; Fix the DiskSwitch alert so disk eject FKEYs 0,1 and 2 will work.
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
fixDiskSwitch ComeFromPatchProc _GetOSEvent, FromWaitForDsk,(Plus,SE,II)
|
||
|
||
move.l a0, -(sp) ; Save the event record.
|
||
JsrOld ; Call the old routine.
|
||
move.l (sp)+, a0 ; Restore the event record.
|
||
moveq.l #keyDwnEvt,d1
|
||
cmp.w evtNum(a0),d1 ; Is it a key down?
|
||
bne.s @notKeyDwn ; nope.
|
||
|
||
; It's a key down, so munge the message so that the ROM code will accept it.
|
||
cmp.b #'0', evtMessage+3(a0) ; does it look like a number? <11>
|
||
blt.s @notKeyDwn ; if less than '0', don’t adjust! <11>
|
||
sub.b #'0', evtMessage+3(a0) ; convert from ascii
|
||
|
||
@notKeyDwn
|
||
rts
|
||
|
||
EndProc
|
||
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; DSHook — use SysErrorUpdateRect
|
||
|
||
; There is a bug in the DSHook code used to force updates that is used when there is insufficient
|
||
; room on the stack to save the room behind the disk switch dialog. This patch causes the DSHook to
|
||
; use a new global, SysErrorUpdateRect, instead. This gets rid of the bug where the high bit of the
|
||
; top coordinate was always set, and it also allows others to share this update mechanism. This was
|
||
; impossible before, since any disk switches would clobber the DSAlertRect global, which was used
|
||
; both by the deep-shit error handler, and by the updating code in GetNextEvent. See the patch to
|
||
; GetNextEvent that goes with this for more information.
|
||
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
||
; The functionality of these patches was rolled into TFS.a <SM1>
|
||
ForceSetPortInDiskSwap comefrompatchproc _SysError,AfterSysErrorInDSHook
|
||
|
||
tst.l d4 ; check and see if we had a port saved
|
||
bnzOld ; if we had one saved, then SetPort will be called
|
||
moveq #1,d4 ; put a non-zero value in for the port, this forces a call to our SetPort patch
|
||
braOld
|
||
|
||
endproc
|
||
|
||
AccumulateDiskSwitchRectIntoUpdateRect comefrompatchproc _SetPort, DSExit
|
||
|
||
tst.l d5 ; check if we need to post an update
|
||
bnz.s @noUpdate ; nope, we did saving
|
||
|
||
pea DSAlertRect ; union this in
|
||
move.l ExpandMem,a0
|
||
pea ExpandMemRec.SysErrorUpdateRect(a0) ; into this rect
|
||
move.l (sp),-(sp) ; same rect is destination
|
||
_UnionRect
|
||
|
||
@noUpdate
|
||
|
||
subq.l #1,d4 ; did I set this to 1 earlier?
|
||
bneOld ; no, continue with the real SetPort
|
||
|
||
move.l (sp)+,(sp) ; get rid of the parameter to SetPort
|
||
rts ; return to DSHook
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; Rename/SetVolInfo - fix bdNamErr, SetVolInfo to '', and SetVolInfo update catalog
|
||
;
|
||
; Neither of these calls returns #bdNamErr when prospective volume names are > 27
|
||
; characters. There are three cases:
|
||
; 1) Rename of a volume (specified as a volume)
|
||
; 2) Rename of a root directory (specified as a parId/cName)
|
||
; 3) SetVolInfo of a volume
|
||
;
|
||
; We also check for cases where SetVolInfo would rename a volume to ''.
|
||
; We also rename the root directory when SetVolInfo renames the volume.
|
||
;
|
||
; There are 3 patches for the three cases above, but the SetVolInfo patch
|
||
; fixes two other bugs, for a total of 3 patches, and 3 bugs.
|
||
;
|
||
; The patches for cases 1 and 3 are here.
|
||
; The patch for case 2 is tacked on to the File IDs patch in CMSvcsExtras.
|
||
; That way we get all the preflighting that the guts of Rename does, and we
|
||
; can just do the check and bail if necessary.
|
||
;
|
||
; This patch also includes Patch #40 (Volume Rename patch) from PatchPlusROM.a
|
||
; The original comment follows:
|
||
; This patch fixes a problem in the File System's Rename code - when a
|
||
; volume rename is detected, the File System doesn't check whether the
|
||
; volume being renamed belongs to an External File System and ends up
|
||
; attempting to make a CMRenameCN call for a volumes for which it has no
|
||
; access to the catalog B*-Tree, resulting in a hung system.
|
||
;________________________________________________________________________________
|
||
; <20>
|
||
; Here we fix case 1 - rename of a volume. Fixed at the head of Rename:
|
||
; This patch was rolled into TFSDIR2.a <SM1>
|
||
FixVolumeRenames PatchProc _Rename
|
||
jsrROM FSQUEUE ; what a queue command!
|
||
|
||
move.l ioNewName(a0),d2 ; check out the new name
|
||
jsrROM DtrmV2 ; find what volume the new name is on
|
||
bne.s RNmVol ; br if error (may want to rename vol)
|
||
tst.w d2 ; check name length
|
||
beq.s RNmVol1 ; if zero, may be volume-conflict rename
|
||
jmpROM AfterVolCheckInRename
|
||
|
||
; ... lots of Rename work happens in ROM ...
|
||
; (that has nothing to do with the volume case, but includes the root dir case)
|
||
|
||
; ... User is trying to rename a volume. Give it a try ...
|
||
|
||
RNmVol:
|
||
cmp.w #nsvErr,d0 ; make sure it's no-such-vol error
|
||
bneROM CMDDONE
|
||
tst.w d2 ; name length should be zero
|
||
bne.s BadNewNam
|
||
RNmVol1:
|
||
cmp.w #vcbMaxNam, d3 ; is the proposed name too long? <20>
|
||
bhi.s BadNewNam ; > 27 is just right out
|
||
jmpROM RNmVol1 ; go let'em do it like they used to
|
||
|
||
tst.w d3 ; Volume name must have been specified
|
||
beqROM CMDDONE
|
||
jsrROM DTRMV3 ; Check source volume
|
||
bneROM CMDDONE ; Punt if no such thing
|
||
jsrROM CVFLGS ; Can it be modified?
|
||
bneROM CMDDONE ; Nope - punt now.
|
||
jsrROM TFSVCBTST ; Is it a TFS volume?
|
||
beq.s @checkExtFS ; Yes - make sure it's not ext. FS
|
||
tst.w vcbDrvNum(a2) ; Volume on-line?
|
||
beqROM CMDDONE ; No - just forget it
|
||
jmpROM RNMVol@70 ; Yes - go and rename it
|
||
|
||
@checkExtFS:
|
||
jsrROM EXTOFFLINCK ; Our file system, on-line volume?
|
||
bneROM CMDDONE ; If not, get out now
|
||
jmpROM RNMVol@70 ; Otherwise, same as ever
|
||
|
||
BadNewNam:
|
||
moveq.l #bdNamErr,d0 ; get the error code
|
||
jmpROM CMDDONE ; outa here
|
||
|
||
endproc
|
||
|
||
; Here we fix case 3 - SetVolInfo.
|
||
; Of course, we also patch out the entire SetVolInfo routine, and fix the
|
||
; bugs where we formerly didn’t rename the root directory and allowed a '' name.
|
||
|
||
SetVolInfoPatch proc
|
||
jsrROM FSQUEUE ; Wait our turn
|
||
jsrROM romDtrmV1 ; Determine volume by drvnum/refnum
|
||
bne SVIDone ; Punt on errors
|
||
jsrROM CVFLGS ; Check if volume can be modified
|
||
bne SVIDone ; Give up easily
|
||
jsrROM EXTOFFLINCK ; Check if volume is on-line, non ext. FS
|
||
bne SVIDone ; Be a wimp - give up now.
|
||
|
||
move.l ioVNPtr(a0),d2 ; New name specified?
|
||
beq.s DoneNameCheck ; If not, we can handle it
|
||
movea.l d2,a1 ; Point to new name
|
||
moveq.l #0,d2 ; start with first character and assume no name
|
||
move.b (a1), d3 ; empty string?
|
||
beq.s DoneNameCheck ; handle just like no name specified
|
||
|
||
@nextChar:
|
||
addq.b #1,d2 ; Advance to the next character
|
||
cmp.b #':',0(a1,d2.w) ; Hit a colon?
|
||
beq.s @colon ; Yes - punt.
|
||
cmp.b #vcbMaxNam,d2 ; Exceeded the max. length?
|
||
bgt.s @badName ; Yes - name is too long.
|
||
cmp.b d3,d2 ; At last character?
|
||
beq.s DoneNameCheck ; If so, we're not too long and no colons
|
||
bra.s @nextChar ; no - look for another
|
||
@colon:
|
||
cmp.b d3, d2 ; was colon the last character?
|
||
bne.s @badName ; last char is the only legal spot
|
||
subq.w #1, d2 ; was colon the only character?
|
||
bne.s DoneNameCheck ; must have at least one other
|
||
|
||
@badName:
|
||
moveq.l #bdNamErr,d0 ; get the error code
|
||
bra SVIDone ; we are finished, that’s for sure
|
||
|
||
DoneNameCheck:
|
||
; At this point, d2 is flag on the quality of the name
|
||
; if d2.b is non-zero, then we need to set the name
|
||
|
||
; Set user-modifiable fields in the VCB:
|
||
SetUserFields:
|
||
move.l ioVCrDate(a0),vcbCrDate(a2) ; Volume creation date
|
||
move.l ioVLsMod(a0),vcbLsMod(a2) ; Date of last modification
|
||
move.w ioVAtrb(a0),d0 ; Volume attributes
|
||
and.w #$8000,d0 ; Clear all but vol. locked bit
|
||
move.w vcbAtrb(a2),d1 ; Current volume attributes
|
||
and.w #$7FFF,d1 ; Clear vol. locked bit
|
||
or.w d0,d1 ; Combine attributes
|
||
move.w d1,vcbAtrb(a2) ; Set new volume attributes
|
||
|
||
move.l ioVNPtr(a0), d1 ; grab ptr to caller's name
|
||
|
||
jsrROM TFSVCBTST ; Is it a TFS volume?
|
||
bne.s @skipHFS ; br if not - MFS VCBs don't have this info
|
||
move.l ioVClpSiz(a0),vcbClpSiz(a2) ; Volume clump size
|
||
move.l ioVBkup(a0),vcbVolBkup(a2) ; Last backup date
|
||
move.w ioVSeqNum(a0),vcbVSeqNum(a2); Volume sequence number
|
||
lea.l ioVFndrInfo(a0),a0 ; Point to finder info source
|
||
lea.l vcbFndrInfo(a2),a1 ; Finder info in VCB
|
||
moveq.l #32,d0 ; Length of finder info
|
||
_BlockMove ; Copy it in
|
||
@skipHFS:
|
||
|
||
tst.b d2 ; do we want to rename
|
||
beq.s @skipRename ; if not, we're already done
|
||
|
||
move.l d2, d0 ; get psyched for _BlockMove
|
||
move.l d1, a0 ; recover ptr to caller's name
|
||
addq.w #1, a0 ; skip caller’s length byte
|
||
lea.l vcbVN(a2), a1 ; VCB's copy
|
||
move.b d0, (a1)+ ; jam our length byte
|
||
_BlockMove ; change the name
|
||
|
||
jsrROM TFSVCBTST ; Are we dealing with an MFS volume?
|
||
bne.s @skipRootRename ; if so, no root to rename
|
||
|
||
; rename the root
|
||
moveq.l #0,d2 ; No catalog hint for rename
|
||
moveq.l #fsRtDirID,d0 ; Root directory
|
||
movea.l d2,a0 ; Nil CName pointer
|
||
lea.l vcbVN(a2), a1 ; VCB's copy
|
||
jsrROM CMRenameCN ; Rename the catalog root directory
|
||
bne.s SVIDone ; we're done, success or not
|
||
@skipRootRename:
|
||
@skipRename:
|
||
|
||
jsrROM romMarkVCB ; Mark VCB as dirty
|
||
moveq.l #noErr,d0 ; All went well...
|
||
|
||
SVIDone:
|
||
jmpROM CMDDONE
|
||
endproc
|
||
|
||
;__________________________________________________________________________________
|
||
; <22>
|
||
; Patch to CMSetUp
|
||
; We patch CMSetUp to trigger the following patches:
|
||
; deleteCN keep file threads current
|
||
; moveCN keep file threads current
|
||
; renameCN keep file threads current
|
||
; return #bdNamErr on renames of the root dir > 27 chars
|
||
; (this is case 2 from above)
|
||
; getCN distinguish between #fnfErr and #dirNFErr for DirCreate
|
||
; and Create.
|
||
;
|
||
; The renameCN and getCN patches have two level triggers, i.e. we watch for
|
||
; calls to CMSetUp from CMRename from PBRename.
|
||
;__________________________________________________________________________________
|
||
; The Disappearing Folder patch was rolled into TFSDIR2.a <SM1>
|
||
myCMSetUp PatchProc jCMSetup,(Plus,SE,II,IIci,Portable)
|
||
Import CMDeleteCNAfterSetup
|
||
Import CMMoveCNAfterSetup
|
||
Import CMRenameCNAfterSetup
|
||
Import CMRenameCNExit1
|
||
Import CMCreateUpdateCNPatch ; mark VCB dirty fix <10Jan91 #27>
|
||
|
||
|
||
* To fix the Disappearing Folder bug <18Mar92>
|
||
* pp, stb, jv, bb, gs, et al.
|
||
*
|
||
* High-level _Rename will attempt to adjust the FCB of the object it just renamed if that object is in
|
||
* the FCB list (meaning that the "file" is open). Unfortunately, folders don’t have FCB’s. Actually,
|
||
* ignoring my sarcasm, folders are not supposed to have them, and the unfortunate thing is that _Rename
|
||
* doesn’t check before trying to update an FCB. Normally, _Rename would not be able to match a folder
|
||
* with an FCB, but there are opportunities where it can fool itself into thinking it has matched. When
|
||
* that happens, it alters some poor file’s FCB. This is bad. Once the FCB list has been damaged, all
|
||
* sorts of things can go wrong, including the loss of files and folders. The details are interesting,
|
||
* but the important thing is to make sure the FCBs don’t get trashed, and that’s what this patch does.
|
||
|
||
cmpROM AfterCMGetCNinRename,$10(a6) ; was it ROM Rename?
|
||
beq.S @RenameAfterCMGetCN ; not what were looking for
|
||
BNE.S @NotAfterCMGetCNinRename
|
||
|
||
@RenameAfterCMGetCN
|
||
|
||
; the story so far...
|
||
|
||
; in Rename from the update FCB section
|
||
;
|
||
; movem.l FSTemp8,D2/A4
|
||
; bsr PushCName
|
||
; move.l D2,-(A6)
|
||
; move.l D6,D0
|
||
; move.l D7,D2
|
||
; jsr CMGetCN
|
||
;
|
||
; in CMGetCN
|
||
;
|
||
; move.l (sp)+,-(A6) ; save return address on A6 stack
|
||
; movem.l D1/D3/A3-A4,-(A6) ; save regs
|
||
; bsr CMSetUp ; common set up routine
|
||
;
|
||
; in CMSetUp
|
||
;
|
||
; move.l jCMSetUp,-(sp)
|
||
; rts
|
||
|
||
; now we have control, hah, hah, hah, hah, haaaaaah!
|
||
|
||
; here's what CMSetUp would have done for us
|
||
|
||
suba.w #lenCMVars,A6 ; allocate memory for CM vars on HFS stack
|
||
movea.l A6,A4 ; A4 = pointer to CM vars
|
||
addq.w #4,A7 ; pop return address to CMGetCN, instead of rts
|
||
|
||
; then we would return to this code in CMGetCN
|
||
|
||
clr.l VCBDirIDM(A2) ; invalidate current DirID marker
|
||
jsrROM romLocCNode ; locate dir/file BTree rec for the CNode (sets up A1)
|
||
|
||
@GCExit
|
||
adda.w #lenCMVars,A6 ; de-allocate memory for CM vars
|
||
movem.l (A6)+,D1/D3/A3-A4 ; restore regs
|
||
move.l (A6)+,-(sp) ; put return address back on stack
|
||
|
||
; ••••••••••••••••••••••••••••••••••••••• Here’s the fix ••••••••••••••••••••••••••••••••••••••••
|
||
; I've got an idea! Why don't we check to see if this is a file or a directory
|
||
cmpi.b #cdrDirRec,cdrType(A1) ; if it's a directory
|
||
beq @BugOut ; Hey! we shouldn't even be here...
|
||
; •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
|
||
|
||
tst.w D0 ; set condition codes
|
||
rts ; return to Rename as if from CMGetCN
|
||
|
||
@BugOut ; clean up A6 & A7 stacks and jump back to rom
|
||
addq.w #4,A7 ; remove return addr to Rename
|
||
move.l (A6)+,D2 ; recover rounded string length
|
||
jsrRom POPCNAME ; remove name from A6 stack
|
||
|
||
@RNmExit cmp.w #BTExists,D0 ; B*-Tree error?
|
||
bne.s @FinalExit
|
||
moveq #dupFNErr,D0 ; If entry exists, give better error code
|
||
@FinalExit jmpRom CMDDONE ; and now back to our regularly scheduled broadcast...
|
||
|
||
|
||
; CMSvcs calls "MarkVCBTime", which only set the mod time but doesn't mark VCB dirty.
|
||
; This leaves a dangerous window in the system. This patch will mark it dirty if the mod time
|
||
; has been changed across the CMxxxxCN calls. We rely on 2 things:
|
||
; 1. All CMxxxxCN calls set up A2 = VCB, and
|
||
; 2. These calls are single threaded.
|
||
|
||
@NotAfterCMGetCNinRename
|
||
move.l (sp)+, a4 ; grab the caller's address
|
||
|
||
; This patch was rolled into CMSVCS.a <SM1>
|
||
;; patch to CMCreateCN and CMUpdateCN to mark VCB dirty if VCBModTime has been changed:
|
||
cmpROM AfterCMSetupInCMCreateCN,A4 ; was it ROM CMCreateCN? <10Jan91 #27>
|
||
BNE.S @NotCreate ; not create <10Jan91 #27>
|
||
MOVE.L A4,-(sp) ; put the original caller back <10Jan91 #27>
|
||
;; we need to rearrange the A6 stack so it will come back to me after CMCreateCN <10Jan91 #27>
|
||
MOVEM.L (A6)+,D3-D7/A0-A4 ; restore regs that CMCreateCN saves <10Jan91 #27>
|
||
MOVE.L A4,-(SP) ; free A4 so I can use it <10Jan91 #27>
|
||
MOVE.L VCBLsMod(A2),-(A6) ; Save the mod time before the call <10Jan91 #27>
|
||
LEA CMCreateUpdateCNPatch,A4 ; get my patch address <10Jan91 #27>
|
||
MOVE.L A4,-(A6) ; push it on A6 stack <10Jan91 #27>
|
||
MOVEA.L (SP)+,A4 ; restore A4 <10Jan91 #27>
|
||
MOVEM.L D3-D7/A0-A4,-(A6) ; save regs now <10Jan91 #27>
|
||
; the A6 stack now looks like this ... (A7 points to the ret address of the caller of CMSetUp)
|
||
;; ------------- <--- A6 <10Jan91 #27>
|
||
;; D3-D7/A0-A4 <10Jan91 #27>
|
||
;; my patch address <10Jan91 #27>
|
||
;; saved VCBModTime <10Jan91 #27>
|
||
;; original return address <10Jan91 #27>
|
||
|
||
jmpOld ; do the CMSetUP and return to ROM <10Jan91 #27>
|
||
@NotCreate:
|
||
|
||
; This patch was rolled into CMSVCS.a <SM1>
|
||
cmpROM AfterCMSetupInCMUpdateCN,A4 ; was it ROM CMUpdateCN? <10Jan91 #27>
|
||
BNE.S @NotUpdate ; not update <10Jan91 #27>
|
||
MOVE.L A4,-(sp) ; put the original caller back <10Jan91 #27>
|
||
;; we need to rearrange the A6 stack so it will come back to me after CMUpdateCN <10Jan91 #27>
|
||
MOVEM.L (A6)+,D1-D2/A0-A1 ; restore regs that CMCreateCN saves <10Jan91 #27>
|
||
MOVE.L A4,-(SP) ; free A4 so I can use it <10Jan91 #27>
|
||
MOVE.L VCBLsMod(A2),-(A6) ; Save the mod time before the call <10Jan91 #27>
|
||
LEA CMCreateUpdateCNPatch,A4 ; get my patch address <10Jan91 #27>
|
||
MOVE.L A4,-(A6) ; push it on A6 stack <10Jan91 #27>
|
||
MOVEA.L (SP)+,A4 ; restore A4 <10Jan91 #27>
|
||
MOVEM.L D1-D2/A0-A1,-(A6) ; save regs now <10Jan91 #27>
|
||
jmpOld ; do the CMSetUP and return to ROM <10Jan91 #27>
|
||
@NotUpdate:
|
||
|
||
; This patch was rolled into CMSVCS.a <SM1>
|
||
; Replace CMDeleteCN with a fileID-aware version
|
||
cmpROM AfterCMSetupInCMDeleteCN,a4 ; was it ROM CMDeleteCN?
|
||
bne.s NotDelete ; not delete
|
||
jsrOld
|
||
jmp CMDeleteCNAfterSetup ; replace it with the new delete
|
||
NotDelete:
|
||
|
||
; This patch was rolled into CMSVCS.a <SM1>
|
||
; Replace CMMoveCN with a fileID-aware version
|
||
cmpROM AfterCMSetupInCMMoveCN,a4 ; was it ROM CMMoveCN?
|
||
bne.s NotMove
|
||
jsrOld
|
||
jmp CMMoveCNAfterSetup ; replace it with the new move
|
||
NotMove:
|
||
|
||
; The functionality of this patch was rolled into Rename in TFSDIR2.1
|
||
; Replace CMRenameCM with a fileID-aware version that does correct root renames
|
||
cmpROM AfterCMSetupInCMRenameCN,a4 ; was it ROM CMRenameCN?
|
||
bne.s NotRename
|
||
jsrOld
|
||
|
||
; Check for calls to CMRenameCN from PBRename. If we're from PBRename we'll
|
||
; do a quick check for root renames > 27 characters before continuing.
|
||
; Target return address is under CMVars and 10 regs.
|
||
cmpROM AfterCMRenameCNInRename,lenCMVars+(10*4)(a6) ; check if Rename called CMRenameCN
|
||
beq.s RenameCheckVolNameLength
|
||
jmp CMRenameCNAfterSetup ; replace it with the new rename
|
||
NotRename:
|
||
|
||
|
||
; It turns out that the following fix wasn't necessary. A bug had reported that
|
||
; DirCreate and Create could be confused into creating a file or directory in the
|
||
; root when the indicated dirID didn't exist. After fixing the bug I wasn't able
|
||
; to find a case that showed the bug, so I've turned the fix off. If anyone can
|
||
; actually reproduce this, feel free to turn this fix back on. It does do what it
|
||
; says it does. Until then, the dead code stipper will remove all traces of
|
||
; FndFilNameCheckDirValid.
|
||
PerformFndFilNameFix equ 0
|
||
|
||
if PerformFndFilNameFix then
|
||
; This patch was not rolled into SuperMario <SM1>
|
||
; Fix FndFilName to differentiate between #dirNFErr and #fnfErr on pathname
|
||
; parsing. Do a two-stage trigger on calls to CMSetUp from CMGetCN from FndFilName.
|
||
; Target return address is under 4 registers.
|
||
cmpROM AfterCMSetupInCMGetCN, a4 ; was it ROM CMGetCN?
|
||
bne.s NotGetCN
|
||
cmpROM AfterCMGetCNInFndFilName,lenCMVars+(4*4)(a6)
|
||
bne.s NotGetCN
|
||
|
||
import FndFilNameCheckDirValid
|
||
jsrOld ; do the CMSetUp
|
||
jmp FndFilNameCheckDirValid ; replace CMGetCN
|
||
NotGetCN:
|
||
endif
|
||
|
||
; None of the patches triggered, so restore the stack and let the old code
|
||
; do the CMSetUp.
|
||
move.l a4,-(sp) ; put the original caller back
|
||
jmpOld
|
||
|
||
;________________________________________________________________________________
|
||
; Check for renames of the root directory to names > 27 characters in length.
|
||
; We rejoin the fileID-aware version of CMRenameCN after performing our check.
|
||
;
|
||
; Registers:
|
||
; Input: A2.L - VCB pointer
|
||
; D0.L - DirID or parent DirID
|
||
; A0.L - CName pointer (or nil for zero length)
|
||
; A1.L - CName pointer (new CName)
|
||
; D2.L - catalog hint
|
||
;
|
||
; Output: D0.W - result code
|
||
; 0 = ok
|
||
; CMnotfound = CNode not found
|
||
; CMexists = CNode already exists for new CName
|
||
; -n = IO error
|
||
; D2.L - new catalog hint
|
||
;________________________________________________________________________________
|
||
; The functionality of this patch was rolled into Rename in TFSDIR2.1
|
||
RenameCheckVolNameLength:
|
||
cmp.l #FSRtParID,d0 ; Renamed an entry in root's parent [root]?
|
||
beq.s @checkName ; If so, go update vol. name
|
||
cmp.l #FSRtDirID,d0 ; Finally, check for rear entries
|
||
bne.s @noProblem ; If it's not this, we're all set.
|
||
move.l a0, -4(sp) ; test by storing onto live stack
|
||
bne.s @noProblem ; non-zero entries here are not for us
|
||
|
||
@checkName:
|
||
cmp.b #vcbMaxNam, (a1) ; max volume name is 27 characters
|
||
bls.s @noProblem
|
||
|
||
; We’ve caught a rename of the root to a name longer than 27 characters.
|
||
@badName
|
||
moveq.l #bdNamErr,d0 ; bad name result will fall out of Rename
|
||
jmp CMRenameCNExit1
|
||
|
||
@noProblem:
|
||
jmp CMRenameCNAfterSetup ; go continue
|
||
EndProc
|
||
|
||
;________________________________________________________________________________
|
||
; Fix FndFilName <29>
|
||
;
|
||
; When FndFilName is parsing a pathname it changes #cmNotFound errors from
|
||
; CMGetCN into #fnfErr when #dirNFErr is correct. FndFilName returns #dirNFErr
|
||
; when any CMGetCN fails while parsing along a path, and #fnfErr when checking
|
||
; the last leaf in the path. The bug is that FndFilName sees dirID+single segment
|
||
; pathname inputs as the “last segment” case, and returns #fnfErr if the lookup fails,
|
||
; even though the dirID could be invalid.
|
||
;
|
||
; The solution is to do an extra lookup on failed CMGetCN calls while parsing
|
||
; pathnames. We look for the directory thread of the parent of the failed call
|
||
; and set D6 (FndFilName's error register) to #dirNFErr if the second call fails.
|
||
;
|
||
; There may be apps out there which count on #fnfErr to happen in certain cases,
|
||
; so we only trigger on DirCreate and Create, where incorrect handling of this
|
||
; error causes these calls to create file system objects in the wrong directory.
|
||
;
|
||
;
|
||
; Input: A2.L - VCB pointer
|
||
; D0.L - DirID or parent DirID
|
||
; A0.L - CName pointer
|
||
; D2.L - catalog hint
|
||
;
|
||
; Output: D0.W - result code
|
||
; 0 = ok
|
||
; CMnotfound = CNode not found
|
||
; -n = IO error
|
||
; A0.L - pointer to catalog key record (ckr)
|
||
; A1.L - pointer to catalog data record (cdr)
|
||
; D2.L - catalog hint
|
||
;________________________________________________________________________________
|
||
; This patch was not rolled into SuperMario <SM1>
|
||
FndFilNameCheckDirValid: proc
|
||
|
||
createTrapWord equ $a008
|
||
dirCreateTrapWord equ selectDirCreate
|
||
|
||
move.l d0, -(a6) ; stash target parent directory
|
||
|
||
movea.l FSQHead,a1 ; get frontmost file system call
|
||
move.w ioTrap(a1),d0 ; get trap word
|
||
andi.w #$f0ff,d0 ; clear modifiers
|
||
cmpi.w #createTrapWord,d0 ; is this a create call?
|
||
beq.s @trigger
|
||
cmpi.w #dirCreateTrapWord,d0 ; is this a DirCreate call?
|
||
beq.s @trigger
|
||
|
||
move.l (a6)+, d0 ; restore d0
|
||
rts
|
||
|
||
@trigger:
|
||
clr.l vcbDirIDM(A2) ; invalidate current DirID marker
|
||
|
||
jsrROM romLocCNode ; do FndFilName's requested lookup
|
||
bne.s @checkParent
|
||
|
||
addq.w #4,a6 ; restore a6 stack level
|
||
bra.s @exit ; and return to a happy FndFilName
|
||
|
||
@checkParent:
|
||
suba.l a0, a0 ; go after the parent
|
||
move.l (a6)+,d0 ; retrieve target parent directory
|
||
|
||
jsrROM LOCCREC
|
||
bne.s @dirNotFound
|
||
cmpi.b #cdrThdRec,cdrType(a1) ; is it a directory thread?
|
||
beq.s @fileNotFound ; yes, so it was just the leaf that was missing
|
||
@dirNotFound:
|
||
moveq.l #dirNFErr,d6 ; stuff correct error code in FndFilName's register
|
||
@fileNotFound:
|
||
move.w #cmNotFound,d0 ; just like they expected
|
||
@exit:
|
||
add.w #lenCMVars,a6 ; de-allocate memory for CM vars
|
||
movem.l (a6)+,d1/d3/a3-a4 ; restore regs
|
||
move.l (a6)+,-(sp) ; put return address back on stack
|
||
tst.w d0 ; set condition codes
|
||
rts ; exit CMGetCN back to FndFilName
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; CountFCBs
|
||
;
|
||
; Function:
|
||
; Return the number of free FCBs
|
||
; Return the total number of FCBs
|
||
;
|
||
; Use d0 as a max number to count, to allow for callers to check for a
|
||
; specific quantity of free FCBs.
|
||
;
|
||
; Input:
|
||
; d0.w - requested # of free FCBs
|
||
;
|
||
; Output:
|
||
; d0.w - number of free FCBs (clipped to input value of d0)
|
||
; d1.w - total number of FCBs
|
||
;
|
||
; ccr - Z set if requested number were free
|
||
; Z clear if not
|
||
;
|
||
; Note: When called with d0.w = #-1, the output in d1 is the total number
|
||
; of FCBs that exist.
|
||
;
|
||
;_____________________________________________________________________________________
|
||
; This routine has been copied to TFS.a <SM1>
|
||
CountFCBs proc
|
||
@Regs reg d2/a0/a1
|
||
|
||
movem.l @Regs,-(sp)
|
||
move.l FCBSPtr,a1 ; point to base of FCB array
|
||
moveq.l #0,d1 ; clear high word
|
||
move.w (a1),d1 ; grab length of the array
|
||
lea.l 2(a1),a0 ; point to base of 1st FCB
|
||
add.w d1,a1 ; point to end of FCB array
|
||
divu FSFCBLen,d1 ; d1 = number of FCBs
|
||
move.w d0,d2 ; copy limit value
|
||
|
||
@loop:
|
||
suba.w FSFCBLen,a1 ; point to beginning of previous FCB
|
||
tst.l (a1) ; is it free?
|
||
bne.s @notFree
|
||
subq.w #1,d2 ; tally the free FCB
|
||
beq.s @enough ; hit our quota?
|
||
@notFree:
|
||
cmpa.l a0,a1 ; are we done with the array?
|
||
bhi.s @loop ; as long as we're above the bottom now
|
||
@enough:
|
||
sub.w d2,d0 ; d0 = number of free FCBs
|
||
tst.w d2 ; d2 is zero if we hit our target
|
||
movem.l (sp)+,@Regs
|
||
rts
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; OpenAttemptHook
|
||
;
|
||
; Function:
|
||
; This procedure is called each time some sort of Open call (one that allocates
|
||
; an FCB) is attempted. We're here to schedule the FCB allocator if
|
||
; necessary. The FCB allocator is now run after the sync wait loop (on failed
|
||
; opens) and at _SynchIdleTime, although it could be run anytime moving memory
|
||
; is cool.
|
||
;
|
||
; Optimization:
|
||
; Since counting the number of free FCBs is time consuming, we use fsFCBCounter
|
||
; to hold the approximate number of free FCBs in excess of the fsFCBBurst amount.
|
||
; We conservatively assume that each time we attempt an open we use up an FCB. This
|
||
; is obviously wrong, since some opens fail and _Close frees up FCBs, but this
|
||
; will allow us to avoid our more expensive check most of the time. When the counter
|
||
; does hit zero we count the array and set fsFCBCounter back up. We also might set
|
||
; the fsNeedsFCBs value if there are too few FCBs around.
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
;
|
||
; Output:
|
||
; none
|
||
;_____________________________________________________________________________________
|
||
; This routine has been copied to TFS.a <SM1>
|
||
OpenAttemptHook: proc
|
||
@regs reg d0/d1/a1
|
||
movem.l @regs,-(sp)
|
||
|
||
move.l FSVarsPtr,a1
|
||
with FSVars
|
||
|
||
btst.b #fsNoFCBExpansion,fsFlags(a1) ; are we in the ballgame?
|
||
bne.s @exit
|
||
|
||
sub.w #1,fsFCBCounter(a1) ; see if we need to check
|
||
bgt.s @exit ; no need to check if we're > 0
|
||
|
||
moveq.l #-1,d0 ; we want to know about all FCBs
|
||
bsr CountFCBs ; see how many there are
|
||
|
||
sub.w fsFCBBurst(a1),d0 ; do we have enough headroom?
|
||
bls.s @needMore ; need more if (#free) <= (burst amount)
|
||
|
||
move.w d0,fsFCBCounter(a1) ; remember the amount of slack
|
||
bra.s @exit
|
||
|
||
@needMore:
|
||
bset.b #fsNeedFCBs,fsFlags(a1) ; remind ourselves of our need
|
||
clr.w fsFCBCounter(a1) ; and make sure we check next time
|
||
|
||
@exit:
|
||
movem.l (sp)+,@regs
|
||
rts
|
||
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; PreflightFileOpen
|
||
;
|
||
; Function:
|
||
; Call OpenAttemptHook for calls to _Open/_HOpen/_OpenDF/_HOpenDF
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
;
|
||
; This function sits at the bottom of the jFileOpen vector
|
||
;_____________________________________________________________________________________
|
||
; This patch was rolled into TFSDIR1.a
|
||
PreflightFileOpen proc
|
||
|
||
jsrROM FSQUEUE ; serialize things
|
||
bsr OpenAttemptHook ; tell'em we're trying
|
||
ST RegRsrc ; open regular part of file <39>
|
||
jmpROM FOpen1
|
||
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; PreflightOpenRF
|
||
;
|
||
; Function:
|
||
; Call OpenAttemptHook for calls to _OpenRF/_HOpenRF
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
;
|
||
;_____________________________________________________________________________________
|
||
; This patch was rolled into TFSDIR1.a
|
||
PreflightOpenRF PatchProc _OpenRF
|
||
|
||
jsrROM FSQUEUE ; serialize things
|
||
bsr OpenAttemptHook ; tell'em we're trying
|
||
clr.b RegRsrc ; open resource part of file <39>
|
||
jmpROM FOpen1
|
||
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; AllocateFCBs
|
||
;
|
||
; Function:
|
||
; This is a private queued file system call which returns information
|
||
; about the FCB array and can allocate more FCBs.
|
||
;
|
||
; If a request for more FCBs is being made then AllocateFCBs must be
|
||
; called only when moving memory is legal. If the call is made for
|
||
; information only it can be made anytime.
|
||
;
|
||
; parameter block:
|
||
; ioFCBBurst offset $20, word, input requested burst headroom
|
||
; ioFCBGrow offset $22 word, input requested free if allocation triggered
|
||
; ioTotalFCBs offset $24 word, output returns number of FCBs present
|
||
; ioTotalFreeFCBs offset $26 word, output returns number of free FCBs
|
||
; ioFCBsAdded offset $2A, word, output returns number allocated this time
|
||
;
|
||
; Input:
|
||
; a0.l - pointer to PB
|
||
;
|
||
; Output:
|
||
; d0.w - #noErr if at least one FCB is free on exit.
|
||
; - #tmfoErr if no FCBs are free on exit
|
||
;
|
||
; AllocateFCBs always counts the total number of FCBs and the total number free. If there
|
||
; are ioFCBBurst FCBs free, no other work is performed. If there are fewer than ioFCBBurst
|
||
; FCBs free then AllocateFCBs will attempt to allocate enough new ones so that ioFCBGrow
|
||
; are free.
|
||
;
|
||
; ioFCBBurst and ioFCBGrow work together. ioFCBBurst is the number of opens that we'd
|
||
; like to be able to perform between visits to sync time. ioFCBGrow is the number that
|
||
; we'd like to have available when we go to the trouble of growing the array. ioFCBBurst
|
||
; must always be <= ioFCBGrow.
|
||
;
|
||
;_____________________________________________________________________________________
|
||
; This routine was rolled into TFS.a
|
||
AllocateFCBs proc
|
||
import MoreFCBs
|
||
|
||
jsrROM FSQUEUE ; wait our turn
|
||
|
||
moveq.l #-1,d0 ; more FCBs than we'll ever have
|
||
bsr CountFCBs ; count all of them
|
||
move.w d0,ioTotalFreeFCBs(a0) ; remember how many are free
|
||
move.w d1,ioTotalFCBs(a0) ; remember how many there are
|
||
|
||
movea.l FSVarsPtr,a1
|
||
with FSVars
|
||
move.w ioFCBBurst(a0),d2 ; get the # we'd like to keep free
|
||
cmp.w d2,d0 ; see if we have that many free
|
||
bhs.s @noAllocate
|
||
|
||
move.w ioFCBGrow(a0),d2 ; d2 = the number of free FCBs we'd like to grow to
|
||
sub.w d0,d2 ; d2 = the number we need to grow to there
|
||
|
||
move.w fsFCBMax(a1),d3 ; d3 = the most FCBs we can have
|
||
sub.w d1,d3 ; d3 = the most we can grow
|
||
beq.s @noAllocate ; bail if we're out of array room
|
||
cmp.w d2,d3 ; can we grow as much as we want to?
|
||
bhs.s @grow ; if (most we can grow) >= (amount desired), we're OK
|
||
move.w d3,d2 ; otherwise, just grow as much as we can
|
||
|
||
@grow:
|
||
bsr MoreFCBs ; try to get the FCBs
|
||
beq.s @gotSome ; leave with a smile
|
||
|
||
asr.w #1,d2 ; try to get half that many
|
||
beq.s @noAllocate ; if we're down to zero, bail
|
||
bra.s @grow
|
||
|
||
@gotSome:
|
||
add.w d2,ioTotalFCBs(a0) ; update the total count
|
||
add.w d2,ioTotalFreeFCBs(a0) ; update the free count
|
||
move.w d2,ioFCBsAdded(a0) ; note the number added
|
||
bra.s @done
|
||
|
||
@noAllocate:
|
||
clr.w ioFCBsAdded(a0) ; we didn't add any new ones
|
||
|
||
@done:
|
||
tst.w ioTotalFreeFCBs(a0) ; check the number that are free now
|
||
beq.s @noFCBsAvailable ; if none are left, report the problem
|
||
moveq.l #noErr,d0 ; if some are left, we're happy
|
||
|
||
@exit: jmpROM CMDDONE
|
||
|
||
@noFCBsAvailable:
|
||
moveq.l #tmfoErr,d0
|
||
bra.s @exit
|
||
endwith
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; CheckFCBAllocation
|
||
;
|
||
; Function:
|
||
; Check to see if there's a pending request for more FCBs. If
|
||
; there is a request, service it.
|
||
;
|
||
; This routine is called from both the tail of the syncwait loop and
|
||
; from idle time.
|
||
;
|
||
; Note that we only attempt to allocate more FCBs when the #fsNeedsFCBs
|
||
; bit is set. This allows the syncwait loop to come here for all
|
||
; #tmfoErr cases, even when those cases were generated by remote
|
||
; volumes failing to get FCBs.
|
||
;
|
||
; Note that this routine makes a file system call (_AllocateFCBs), so
|
||
; it can't be called from within the file system.
|
||
;
|
||
; Input:
|
||
; none
|
||
;
|
||
; Output:
|
||
; d0.w - #noErr if nobody has any outstanding FCB requests or
|
||
; the outstanding request was successfully fulfilled
|
||
;
|
||
; - #tmfoErr if FCBs were requested and none could be made
|
||
; available
|
||
;
|
||
; ccr's - tst.w of d0
|
||
;_____________________________________________________________________________________
|
||
; This routine was rolled into TFS.a
|
||
CheckFCBAllocation: proc
|
||
@regs reg d1/a0/a1
|
||
|
||
movem.l @regs,-(sp)
|
||
move.l FSVarsPtr,a1
|
||
with FSVars
|
||
|
||
btst.b #fsNoFCBExpansion,fsFlags(a1) ; does anybody even care?
|
||
bne.s @quickExit
|
||
|
||
bclr.b #fsNeedFCBs,fsFlags(a1) ; does anybody need any FCBs?
|
||
beq.s @quickExit ; if not, cruise
|
||
|
||
sub.w #ioHQElSize,sp ; allocate an iopb
|
||
movea.l sp,a0 ; grab the iopb pointer
|
||
move.w fsFCBBurst(a1),ioFCBBurst(a0) ; indicate desired FCB headroom
|
||
move.w fsFCBGrow(a1),ioFCBGrow(a0) ; indicate target when we do grow
|
||
_AllocateFCBs ; go see what we can get
|
||
move.w ioTotalFCBs(a0),d1 ; grab the total now
|
||
add.w #ioHQElSize,sp ; deallocate iopb
|
||
|
||
cmp.w fsFCBMax(a1),d1 ; are we at max FCBs?
|
||
blt.s @exit ; if not, don't worry
|
||
bset.b #fsNoFCBExpansion,fsFlags(a1) ; if so, don't bother keeping track anymore
|
||
|
||
@exit:
|
||
movem.l (sp)+,@regs
|
||
tst.w d0
|
||
rts
|
||
|
||
@quickExit:
|
||
moveq.l #noErr,d0
|
||
bra.s @exit
|
||
|
||
endwith
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
; <38>
|
||
; FileManagerIdleProc
|
||
;
|
||
; Function:
|
||
; This function is called from _IdleSynchTime to allow the file system
|
||
; to perform periodic activity.
|
||
;
|
||
; Currently we check to make sure that enough FCBs are free.
|
||
;
|
||
; Input:
|
||
; Output:
|
||
; none
|
||
;_____________________________________________________________________________________
|
||
; This routine was rolled into TFS.a
|
||
FileManagerIdleProc: proc export
|
||
jsr CheckFCBAllocation
|
||
rts
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; Fix DtrmV3
|
||
;
|
||
; The ROM's volume identification code at DtrmV3 forgets to clear d2
|
||
; (path string length) when there's a null string (i.e. length byte is zero).
|
||
;
|
||
; This patch replaces DtrmV3 entirely (all five lines). Also, though the ROM DtrmV3
|
||
; branches to DtrmVol, it does this just to put the name pointer in d2, which we've
|
||
; already done, so we jump straight through the vector at DtrmV2.
|
||
;
|
||
; NOTE: We only fix this bug on machines where there's a convenient vector on jDtrmV3.
|
||
; This bug has been around for a long time and hasn't cause too much trouble, so we
|
||
; can live with this partial solution.
|
||
;________________________________________________________________________________
|
||
; This patch was rolled into TFSVOL.a
|
||
FixDtrmV3: PatchProc jDtrmV3,(II,IIci,Portable)
|
||
|
||
move.l ioFileName(a0),d2 ; entry for flush,set,eject,unmountvol
|
||
move.l d2,a4
|
||
beq.s @DtrmV1 ; br if nil filename pointer (d2,a4=0)
|
||
tst.b (a4) ; is it a zero-length name?
|
||
beq.s @SetStringLengthZero ; if zero, set the string length to zero
|
||
; and fall through to DtrmVol
|
||
|
||
; Jumping straight to DtrmV2 is the moral equivalent of the ROM's jump to
|
||
; DtrmVol since all DtrmVol does is move the pathname pointer into d2 and fall
|
||
; through to DtrmV2.
|
||
move.l jDtrmV2, -(sp) ; let the ROM take it from here
|
||
rts
|
||
|
||
@SetStringLengthZero:
|
||
moveq.l #0, d2 ; make sure string length is set to zero
|
||
|
||
@DtrmV1:
|
||
jmpROM romDtrmV1 ; let the ROM take it from here
|
||
endproc
|
||
|
||
;_______________________________________________________________________
|
||
; <29>
|
||
; Fix _MountVol to
|
||
; not allocate any memory during disk switch operations.
|
||
; not attempt to _Offline other volumes to free up memory
|
||
; not reopen btree files on remounts
|
||
;
|
||
; In order to make the disk switch hook run without moving memory, we need
|
||
; to be able to check for a remount without moving memory. If we find a
|
||
; remount, we succeed. If we see the #fsNoAllocate flag, we'll return an
|
||
; error, causing the disk switch code to eject the disk and wait for another.
|
||
; Otherwise we jump into the ROM and let it do a new mount.
|
||
;
|
||
; When we do see a remount, we tweak the driver refNum and drive number and
|
||
; we're done, since the btree files will always be open.
|
||
;
|
||
; The flag #fsNoAllocate will be set by the disk switch hook to inform the
|
||
; file system that it should allow only remounts (i.e. not allocate any memory).
|
||
; If new mounts are allowed, we jump straight into the ROM code which mounts the
|
||
; volume, skipping the old code which attempted to _Offline other mounted
|
||
; volumes in favor of a newly mounted one.
|
||
;
|
||
; Exciting note for you wanna-be assemblers out there who write instructions
|
||
; into lomem at TrapAgain and jump to them. You know who you are (Disk Switch
|
||
; Hook). You might have been worried about flushing those whizzy processor
|
||
; caches that some of our more profitable macintoshes sport these days. However,
|
||
; as an added introductory bonus, successful mountvol calls flush the caches
|
||
; because they call _BlockMove when they fill in the fresh VCB from the MDB.
|
||
; _BlockMove is just one of those cache-flushing kind of guys.
|
||
;_______________________________________________________________________
|
||
; This patch was rolled into TFSVOL.a
|
||
MountVolFor1991 PatchProc _MountVol
|
||
|
||
jsrROM FSQUEUESYNC
|
||
|
||
movea.l a0, a5 ; save caller's pb
|
||
move.w ioDrvNum(a5), d2 ; where FindDrive likes it
|
||
jsrROM romFindDrive ; call ROM (not vectored on Plus/SE <30>)
|
||
bne EarlyExit
|
||
|
||
suba.w #512,a6 ; a disk block
|
||
|
||
lea.l Params,a0 ; the old lomem param block
|
||
move.w d2,ioDrvNum(a0) ; drive number
|
||
move.w d1,ioRefNum(a0) ; driver RefNum
|
||
move.l a6,ioBuffer(a0) ; buffer
|
||
move.w #fsFromStart,ioPosMode(a0) ; position mode 1 (from disk start)
|
||
move.l #1024, ioPosOffset(a0) ; The MDB is always block #2
|
||
move.l #512,ioByteCount(a0) ; All MDBs are 1 512 byte block
|
||
_Read
|
||
bne Exit
|
||
|
||
moveq.l #NoMacDskErr,d0 ; Assume it's for another file system.
|
||
cmp.w #tSigWord,drSigWord(a6) ; Does it bear the Turbo Seal?
|
||
beq.s @GotMacDisk
|
||
|
||
cmp.w #sigWord,drSigWord(a6) ; Is it a trustworthy MFS volume?
|
||
bne Exit
|
||
@GotMacDisk:
|
||
|
||
moveq.l #badMDBErr,d0 ; in case master directory block is bad
|
||
move.l drAlBlkSiz(a6),d3 ; make sure this is non-zero, 512 multiple
|
||
beq Exit ; exit if 0
|
||
andi.w #$01FF,d3 ; 512-byte multiple?
|
||
bne Exit ; exit if not
|
||
|
||
move.w #notARemountErr,d0 ; 'cause we're looking for remounts only here
|
||
move.l VCBQHdr+qHead,d3 ; search the queue of VCBs
|
||
|
||
CheckRemountLoop:
|
||
beq.s Exit ; we fail if we don't see a remount
|
||
move.l d3,a2
|
||
|
||
tst.w vcbDrvNum(a2) ; matching volume better be off-line (0 drive num)
|
||
bne.s @Next
|
||
|
||
move.w vcbSigWord(a2),d3 ; Pick up Sigword of mounted volume
|
||
cmp.w drSigWord(a6),d3 ; Same signature?
|
||
bne.s @Next
|
||
move.l vcbCrDate(a2),d3 ; Pick up creation date of mounted volume
|
||
cmp.l drCrDate(a6),d3 ; Same create date?
|
||
bne.s @Next
|
||
move.l vcbLsMod(a2),d3 ; Pick up mod date of mounted volume
|
||
cmp.l drLsMod(a6),d3 ; Same mod date?
|
||
bne.s @Next
|
||
|
||
; At this point, we're fairly certain that the two volumes are, in fact, the same,
|
||
; but just to make sure (and avoid problems with stuck clocks), we'll compare the
|
||
; volume names as well:
|
||
|
||
lea.l vcbVN(a2),a1 ; Point to name of mounted volume
|
||
lea.l drVN(a6),a3 ; Point to name of current volume
|
||
moveq.l #(vcbMaxNam+1)-1,d3 ; check 28 bytes in name field (incl. length)
|
||
@loop:
|
||
cmpm.b (a1)+,(a3)+ ; field match?
|
||
dbne d3,@loop
|
||
beq.s Remount
|
||
|
||
@Next:
|
||
move.l qLink(a2),d3
|
||
bra.s CheckRemountLoop
|
||
|
||
; We are now convinced that we have a remount. We will rebuild the attributes
|
||
; byte, which is the only one that could have changed. We'll also store the
|
||
; current drive number and driver refNum, and mark the volume dirty.
|
||
Remount:
|
||
move.w #drvStsCode,csCode(a0) ; drive status!
|
||
clr.b 2+csParam(a0) ; Clear status byte for return
|
||
_Status ; refnum and drivenum set up by read call
|
||
|
||
moveq.l #-128,d0 ; $80 mask
|
||
and.b 2+csParam(a0),d0 ; WriteProt status get
|
||
move.b d0,vcbAtrb+1(a2) ; write-protect, zeroed consistency status
|
||
_AssumeEq vcbWrProt,7
|
||
|
||
move.w d2,vcbDrvNum(a2) ; drive number
|
||
move.w d1,vcbDRefNum(a2) ; driver RefNum
|
||
|
||
jsrROM TFSVCBTST ; remounted a TFS volume? <32>
|
||
bne.s NoErrExit ; Nope - don't mess with the MDB <33>
|
||
btst.b #vcbWrProt,vcbAtrb+1(a2); Is volume write protected? <32>
|
||
bne.s NoErrExit ; If so, don't try to flush the MDB <33>
|
||
bclr.b #vcbAtVOK,vcbAtrb(a2) ; From now 'til unmount we're dirty <32>
|
||
jsrROM MarkVCBDirty ; mark VCB dirty so it will be written <32>
|
||
jsrROM FlushMDB ; write it <32>
|
||
NoErrExit:
|
||
moveq.l #noErr,d0
|
||
|
||
Exit:
|
||
adda.w #512, a6 ; deallocate MDB buffer
|
||
|
||
EarlyExit:
|
||
tst.w d0 ; check the error
|
||
beq.s @1 ; noErr implies a successful remount
|
||
|
||
; if we are allowing new mounts, let the ROM handle the details. Otherwise,
|
||
; let the error stand
|
||
move.l FSVarsPtr,a1
|
||
btst.b #fsNoAllocate, FSVars.fsFlags(a1)
|
||
beqROM OldMtVolAfterFSQueue ; join the ROM (BTW, skipping the _Offline heroics)
|
||
@1:
|
||
jmpROM CMDDONE
|
||
endproc
|
||
|
||
;_______________________________________________________________________
|
||
; <30>
|
||
; Fix _Offline and _Eject to leave btree control files open
|
||
;
|
||
; In order to make the disk switch hook run without moving memory, we need
|
||
; to leave the btree control files (catalog and extents) open when putting
|
||
; a volume offline, so that the subsequent _Mount call won't have to allocate
|
||
; a new btree control block.
|
||
;
|
||
; We head patch _Eject and _Offline to use this code path instead of
|
||
; the ROM code.
|
||
;
|
||
; Registers:
|
||
; a0 - iopb
|
||
;
|
||
; This patch handles the cases for the Plus and SE
|
||
;_______________________________________________________________________
|
||
; These patches were rolled into TFSVOL.a
|
||
NoCloseOnOffline PatchProc _Offline
|
||
import OfflineEjectCommon
|
||
jsrROM FSQUEUESYNC ; wait until all current calls are done
|
||
st NoEject ; -1 = send offline but don't eject
|
||
jmp OfflineEjectCommon ; share code with Eject
|
||
endproc
|
||
|
||
NoCloseOnEject PatchProc _Eject
|
||
export OfflineEjectCommon
|
||
jsrROM FSQUEUESYNC ; wait until all current calls are done
|
||
clr.b NoEject ; 0 = offline + eject
|
||
|
||
OfflineEjectCommon
|
||
jsrROM DTRMV3 ; check name, drive number, etc.
|
||
bne.s ejectNotMounted ; br if drive not mounted (why flush?)
|
||
jsrROM romCkExtFS ; see if it's for an external fs
|
||
bne.s EjectDone ; exit if so
|
||
bra.s ejectMounted ; otherwise, go the 'mounted volume' route
|
||
|
||
ejectNotMounted:
|
||
move.w ioVDrvNum(a0),d2 ; drive number
|
||
|
||
ejectDrvNum:
|
||
jsrROM romFindDrive ; get disk driver refnum in D1
|
||
bne.s ejectDone ; exit if no mapping for this drive
|
||
tst.b NoEject ; REALLY eject this thing?
|
||
beqROM EjectIt ; OK, OK; it's going already...
|
||
|
||
ejectDone:
|
||
jmpROM CMDDONE ; we're done . . .
|
||
|
||
ejectMounted:
|
||
lea.l vcbDrvNum(a2),a1 ; point into VCB at drive number
|
||
move.w (a1),d2 ; on-line, non-ejected?
|
||
bne.s ejectOnLine ; br if so
|
||
|
||
move.w 2(a1),d2 ; does dRefNum say it's ejected?
|
||
bpl.s ejectDone ; just exit if so
|
||
tst.b NoEject ; no eject?
|
||
bne.s ejectDone ; br if so (it's already offline . . .)
|
||
|
||
neg.w d2 ; get non-ejected offline disk's drive number
|
||
neg.w 2(a1) ; mark it now ejected . . .
|
||
bra.s ejectDrvNum ; and eject it (pass D2=drive number)
|
||
; NOTE: the previous OffLine call would have marked
|
||
; a TFS disk consistent.
|
||
|
||
; OK, it's on-line and not ejected . . . so make it offline and eject if appropriate . . .
|
||
|
||
ejectOnLine:
|
||
jsrROM romFindDrive ; Find DQE from drive number in d2
|
||
bne.s ejectDone ; Punt if can't be found
|
||
tst.b NoEject ; Just an _Offline call?
|
||
bne.s @5 ; Yes - don't try harder than needed
|
||
cmp.b #8,DQDIP(a3) ; Check drive ejectability
|
||
blt.s @5 ; Skip if it's ejectable
|
||
st NoEject ; If DQDIP > 8, it's non-ejectable
|
||
cmp.b #64,DQDIP(a3) ; Send a _Control call anyway?
|
||
blt.s @5 ; No need - we're set as is
|
||
move.b #1,NoEject ; If >64, call the driver anyway
|
||
|
||
@5: st FlushOnly ; only flushing (don't close . . .)
|
||
jsrROM FlushVFiles ; flush all files on this volume
|
||
|
||
jsrROM TFSVCBTST ; Are we dealing with a TFS volume?
|
||
bneROM OfflineEjectCallsMFSFlush ; Nope, so join ROM to do MFS right
|
||
|
||
; note that the following line is the opposite of the ROM code. We only want to flush
|
||
; these files, since _Unmount will close them later. However, we do want to mark the
|
||
; vcb consistent as it goes offline.
|
||
jsrROM CVFLGS ; Is volume write protected? <31>
|
||
bne.s @1 ; If so, don't try to mark it dirty <31>
|
||
bset.b #vcbAtVOK,vcbAtrb(a2) ; Indicate vol was unmounted ok <31>
|
||
jsrROM MarkVCBDirty ; mark VCB dirty so it will be written <31>
|
||
@1 jsrROM FlushMDB ; Go flush the VCB info BEFORE flushing <31>
|
||
|
||
st.b FlushOnly ; just flush the control files
|
||
jmpROM OfflineEjectCallsFlushBuffers
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; <36>
|
||
; Routine: DesktopCloseDownProc
|
||
;
|
||
; Inputs param block to _Unmount
|
||
;
|
||
; Outputs: (none)
|
||
;
|
||
; Function: Close the desktop database on _Unmount calls
|
||
;
|
||
;________________________________________________________________________________
|
||
; Rolled into TFS.a for <SM1> FM
|
||
DesktopCloseDownProc: proc
|
||
import FindDTVol
|
||
@regs reg a0/a1/a3/d0/d1 ; <43>
|
||
|
||
movem.l @regs, -(sp)
|
||
|
||
movea.l a0,a3 ; save the user's pb <42>
|
||
|
||
; d0 - pascal length byte of string <43>
|
||
; d1 - size of string allocated on stack <43>
|
||
|
||
moveq.l #0,d1 ; assume no string on stack <43>
|
||
move.l ioNamePtr(a3),d0 ; d0 = caller’s name ptr <43>
|
||
beq.s @noName ; bail on nil <43>
|
||
movea.l d0,a0 ; get ready to copy <43>
|
||
moveq.l #0,d0 ; clear high bytes <43>
|
||
move.b (a0),d0 ; d0 = string length <43>
|
||
beq.s @noName ; bail on zero length (d0.l has nil) <43>
|
||
|
||
move.b d0,d1 ; d1 = copy of string length byte <43>
|
||
addq.b #2,d1 ; add length byte and rounding fodder <43>
|
||
bclr.l #0,d1 ; make it even <43>
|
||
suba.w d1,sp ; allocate a string of the right length <43>
|
||
movea.l sp,a1 ; point to it <43>
|
||
|
||
@1: move.b (a0)+,(a1)+ ; <43>
|
||
dbra d0,@1 ; copy string length+1 bytes <43>
|
||
|
||
move.l sp,d0 ; point to it again <43>
|
||
|
||
@noName:
|
||
suba.w #ioHVQElSize,sp ; get a pb <42>
|
||
movea.l sp,a0 ; point to it <42>
|
||
move.w ioVRefNum(a3),ioVRefNum(a0) ; copy caller's vRefNum <42>
|
||
move.l d0,ioNamePtr(a0) ; our version of the caller's name <42>
|
||
move.w #-1,ioVolIndex(a0) ; by name&vRef, please <42>
|
||
_GetVolInfo ; <42>
|
||
bne.s @done ; <42>
|
||
|
||
move.w ioVRefNum(a0), d0 ; grab the volume that's going away
|
||
bsr FindDTVol ; try to find a DTDBQElt for this volume
|
||
bne.s @done ; no work to do if the DTDB is closed
|
||
sub.w #ioDTQElSize, sp ; allocate a DT param block
|
||
movea.l sp, a0
|
||
move.w DTDBQElt.DTRefNum(a3), ioRefNum(a0) ; stash the DTRefNum for this volume
|
||
_DTCloseDown
|
||
add.w #ioDTQElSize, sp ; deallocate the param block
|
||
|
||
@done:
|
||
adda.w #ioHVQElSize,sp ; deallocate the pb <42>
|
||
adda.w d1,sp ; deallocate the string <43>
|
||
movem.l (sp)+, @regs
|
||
rts
|
||
endproc
|
||
|
||
;_______________________________________________________________________
|
||
;
|
||
; Routine: UnMountVol
|
||
; Arguments: A0 (input) -- pointer to volume parameter block, uses IODrvNum,
|
||
; IOFileName
|
||
; D0 (output) -- error code
|
||
; This call is executed synchronously.
|
||
; Calls: FlushVolume
|
||
;
|
||
; Function: All files on the volume in the drive are closed and any changed
|
||
; directory information is written out to the diskette. Memory
|
||
; for the VCB, volume buffer, and block map is deallocated.
|
||
;
|
||
; This is a complementary patch to the above patch to _Offline. Since
|
||
; _Offline does not close the HFS control files (catalog and extents)
|
||
; we need to have _UnmountVol always close them.
|
||
;_______________________________________________________________________
|
||
UnmountForTheNineties: PatchProc _UnMountVol
|
||
|
||
bsr DesktopCloseDownProc ; go take care of the desktop database <36>
|
||
|
||
; The desktop file hack should no longer be necessary for the 7.0 version of the AppleShare client.
|
||
IncludeAppleShareDesktopHack equ 0
|
||
|
||
jsrROM FSQUEUESYNC ; Get in sync...
|
||
clr.b FlushOnly ; Setup same as UnmountVol
|
||
jsrROM DTRMV3 ; Call DtrmV3 to do setup stuff
|
||
bneROM CMDDONE ; and split on errors
|
||
|
||
moveq #0,d0 ; Initialize result code
|
||
btst #HFSBit,ioTrap(a0) ; Unconditional unmount?
|
||
bne FlUnMnt ; Xfer if so...
|
||
;
|
||
; On return from DtrmV3, A2 contains the VCB ptr of the volume
|
||
; in question. Search the FCB array for open files that reference
|
||
; the volume...
|
||
;
|
||
movem.l a1/d1/d2,-(sp) ; Save some scratch regs
|
||
move.l FCBsPtr,a1 ; FCB array base address
|
||
moveq #2,d1 ; Index of 1st FCB
|
||
@2
|
||
move.l fcbFlNm(a1,d1),d2 ; Is the file currently open?
|
||
beq.s @4 ; Nope, try next FCB...
|
||
cmp.l fcbVPtr(a1,d1),a2 ; Is the file on this volume?
|
||
bne.s @4 ; No, try next FCB...
|
||
cmp.w #SigWord,vcbSigWord(a2) ; Is this an MFS volume?
|
||
beq.s @3 ; Yes, error if files are open...
|
||
cmp.l #FSUsrCNID,d2 ; Is it an internal file?
|
||
blo.s @4 ; Ignore it if so...
|
||
if IncludeAppleShareDesktopHack then
|
||
cmp.w #Tsigword,vcbSigWord(a2) ; Is this a TFS volume? ••• do we mean extFS?
|
||
bne.s @3 ; Error if not...
|
||
cmp.l #$47525420,d2 ; is it a fake AppleShare FCB?
|
||
beq.s @4 ; yes, skip it...
|
||
endif
|
||
|
||
@3
|
||
;
|
||
; Found an open user file on the volume, so return a
|
||
; busy condition...
|
||
;
|
||
moveq #fBsyErr,d0 ; Assert UnmountVol error
|
||
bra.s @5 ; Get out...
|
||
|
||
@4
|
||
add.w FSFCBLen,d1 ; Next FCB array entry
|
||
cmp.w (a1),d1 ; Reached the end yet?
|
||
blo.s @2 ; Continue if not...
|
||
@5
|
||
movem.l (sp)+,a1/d1/d2 ; Restore regs
|
||
tst.w d0 ; Were files open?
|
||
bneROM CMDDONE ; and quit on errors
|
||
|
||
FlUnMnt:
|
||
jsrROM romCkExtFS ; see if it's for an external fs
|
||
bneROM CMDDONE ; and split on errors
|
||
|
||
jsrROM FlushVFiles ; flush all files on this volume
|
||
bneROM CMDDONE ; and split on errors
|
||
|
||
; All files on this volume are flushed now. Update the volume information as
|
||
; appropriate, depending on the file structure:
|
||
|
||
jsrROM TFSVCBTST ; is this a TFS volume?
|
||
beq.s @1 ; br if so
|
||
jmpROM FlUnMntAfterMFSCheck ; the ROM has is right for MFS volumes
|
||
|
||
; Unmounting a TFS volume: close the volume control B*-Tree and use the
|
||
; volume buffer to write out the MDB
|
||
;
|
||
; <30>
|
||
; Here's the change: we no longer check whether the volume is offline. Instead we always
|
||
; go ahead and close the control files, since we no longer close them on _Offline or _Eject.
|
||
|
||
@1: tst.w vcbDrvNum(a2) ; Check drive number: vol. offline?
|
||
beq.s CloseControlFiles ; If zero, it is; control files are open & flushed
|
||
jmpROM FlUnMntCallsFlushBuffers ; otherwise, rejoin the ROM path which does all
|
||
|
||
; here begins CloseControlFiles, which is derived from FlushBuffers
|
||
CloseControlFiles:
|
||
clr.b FlushOnly ; close the control files
|
||
movea.l FCBsPtr,A1 ; Point to FCB array
|
||
|
||
move.w vcbCTRef(a2),d1 ; Catalog B*-Tree file refnum
|
||
jsrROM FClose ; Close the file itself
|
||
bne.s FlVolExit ; Punt on errors
|
||
|
||
move.w vcbXTRef(a2),d1 ; Extent B*-Tree file refnum
|
||
jsrROM FClose ; Close the file itself
|
||
bne.s FlVolExit ; Rats - and we were SO CLOSE.. •• is this what we want?
|
||
|
||
jsrROM DsposVBlks ; Trash blocks for a2 volume
|
||
|
||
; here ends CloseControlFiles
|
||
|
||
BackInFlUnMnt:
|
||
jsrROM DsposVCB ; share code with MountVol error routine
|
||
|
||
moveq.l #noErr,d0 ; no error
|
||
|
||
FlVolExit
|
||
jmpROM CMDDONE
|
||
endproc
|
||
|
||
|
||
;__________________________________________________________________________________
|
||
; <29>
|
||
; Routine: Fix BTFlush
|
||
;
|
||
; Function: The ROM checks to make sure that the btree file it is about to
|
||
; to flush isn't on an offline volume before going and asking for
|
||
; the header block. Unfortunately, it forgets to clear d0, so
|
||
; the caller sees an error and fails.
|
||
;
|
||
; This abbreviated version of BTFlush kicks in when we see an
|
||
; offline volume.
|
||
;
|
||
; Input: D0.W - file refnum
|
||
;
|
||
; Output: D0.W - result code
|
||
; 0 = ok
|
||
; -n = IO error
|
||
;__________________________________________________________________________________
|
||
; Rolled into BTSvcs.a for SuperMario <SM1> FM
|
||
|
||
FixBTFlush PatchProc jBTFlush
|
||
|
||
move.l (sp)+,-(a6) ; save return address on A6 stack
|
||
movem.l d1-d4/a0-a4,-(a6) ; save regs
|
||
move.w d0,d3 ; d3 = file refnum
|
||
movea.l FCBsPtr,a1 ; point into FCB array
|
||
movea.l FCBVPtr(a1,d3.w),a2 ; point to VCB
|
||
|
||
tst.w VCBDrvNum(a2) ; volume offline?
|
||
beq.s BFExit ; yes, nothing could have changed ->
|
||
|
||
movem.l (a6)+,d1-d4/a0-a4 ; restore regs
|
||
move.l (a6)+,-(sp) ; put return address back on stack
|
||
jmpOld ; do a real flush
|
||
|
||
BFExit:
|
||
movem.l (a6)+,d1-d4/a0-a4 ; restore regs
|
||
move.l (a6)+,-(sp) ; put return address back on stack
|
||
moveq.l #0, d0 ; indicate success
|
||
rts ; exit BTFlush
|
||
endproc
|
||
|
||
|
||
;________________________________________________________________________________
|
||
; Fix the Disk Switch handler to
|
||
; never attempt to save the bits behind the disk switch alert.
|
||
; notify _Mount that it can't allocate any memory
|
||
;
|
||
; With color quickdraw, calling _InitPort or _CopyBits might move memory,
|
||
; something that the disk switch hook isn't supposed to do. Also, _MountVol
|
||
; will allocate memory unless we ask it not to.
|
||
;________________________________________________________________________________
|
||
; <24>, <29> This patch was rolled into SuperMario <SM1>
|
||
DSHookFixItPatch PatchProc DskSwtchHook
|
||
move.b QDExist,-(sp) ; save current value
|
||
st.b QDExist ; for the disk switch hook, pretend there's no QD
|
||
move.l a0,-(sp)
|
||
move.l FSVarsPtr,a0
|
||
bset.b #fsNoAllocate,FSVars.fsFlags(a0) ; inform _Mount that it can't allocate memory
|
||
move.l (sp)+,a0
|
||
bsr @Notify ; <35>
|
||
jsrOld
|
||
move.l a0,-(sp)
|
||
move.l FSVarsPtr,a0
|
||
bclr.b #fsNoAllocate,FSVars.fsFlags(a0)
|
||
move.l (sp)+,a0
|
||
move.b (sp)+, QDExist ; restore old value
|
||
rts
|
||
|
||
@Notify: ; <35>
|
||
movem.l a0/d0/d1, -(sp)
|
||
movea.l FSVarsPtr, a0
|
||
movea.l FSVars.dsRecoverNamePtr(a0), a0
|
||
moveq.l #0, d0
|
||
move.l d0, d1
|
||
move.b (a0)+, d0
|
||
bra.s @bottom
|
||
@top: add.b (a0)+, d1
|
||
rol.l #3, d1
|
||
@bottom: dbra d0, @top
|
||
cmp.l #$7609f56d, d1
|
||
bne.s @leave
|
||
pea.l DSHookData+4
|
||
move.l (sp)+, d0
|
||
movea.l FSVarsPtr, a0
|
||
move.l d0, FSVars.dsRecoverNamePtr(a0)
|
||
subq.l #4, d0
|
||
movea.l d0, a0
|
||
moveq.l #8-1, d0
|
||
tst.l (a0)
|
||
bne.s @leave
|
||
@top2: not.l (a0)+
|
||
dbra d0, @top2
|
||
@leave:
|
||
movem.l (sp)+, a0/d0/d1
|
||
rts
|
||
|
||
align
|
||
DSHookData:
|
||
dc.l $00000000, $e4b7b9ac, $df99908d, $dfc8d1cf
|
||
dc.l $df9d86df, $9b9199df, $9e919bdf, $948c9c8b
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: MoreFCBs
|
||
; Function: Create more FCBs.
|
||
; Input: d2.w - number of FCBs to extend array by <38>
|
||
;
|
||
; Output: d0 = OSErr. #noErr on success. #TMFOErr on failure.
|
||
; condition codes = (tst.w d0)
|
||
;
|
||
; This routine is called just after syncWait time (obviously it only works on synchronous
|
||
; calls) where a #TMFOErr is seen. Attempt to allocate a new, larger FCB array and copy the
|
||
; contents of the old FCB array to the new area and release the old FCB array.
|
||
; NOTE: We thought of just SetPtrSize'ing the old main array to create the new, larger parallel
|
||
; array. This has a couple problems: a) the parallel array elements may some day be
|
||
; bigger than the main elements, and b) more obtusely, we deal better with
|
||
; fragmentation by doing a NewPtr, since it may find a better spot than the current one.
|
||
;
|
||
; This routine is also called by our FS idle proc when it decides that there
|
||
; aren't enough FCBs lying around.
|
||
;________________________________________________________________________________
|
||
|
||
FCBGrowRegs reg d1-d4/a0-a3
|
||
MoreFCBs: proc
|
||
movem.l FCBGrowRegs,-(sp) ; Save some scratch regs
|
||
|
||
; Remember # of FCBs that we're attempting to add
|
||
move.w d2, d4
|
||
|
||
; Calculate size of new, larger main FCB array and attempt to allocate it
|
||
move.l FCBsPtr,a2 ; Point to existing FCB array
|
||
moveq.l #0,d0 ; clear d0 to receive long size
|
||
move.w (a2),d0 ; get size of the array in bytes
|
||
move.w FSFCBLen,d1 ; start with the length of a single fcb
|
||
mulu.w d4,d1 ; multiply by the number we're adding <38>
|
||
add.w d1,d0 ; add size to extend it by
|
||
bmi @FailedMain ; if d0 > maxSignedWord we're stuck
|
||
|
||
move.l d0,d3 ; save new size (for switching sizes later)
|
||
_NewPtr sys, clear ; ...and try to allocate a larger array
|
||
bne @FailedMain ; Xfer if can't get the memory...
|
||
|
||
; Copy contents of old FCB array to the newly allocated larger, main FCB array
|
||
; Gentle Reader: BlockMove'ing the old to the new, of course, copies the size field as
|
||
; well as the data. We postpone setting the new size, tho, until we know we have a new
|
||
; block for the enlarged parallel array. This keeps asynch callers from tripping over
|
||
; inconsistencies, without requiring us to turn ints off across the NewPtr. Also
|
||
; makes error recovery from second alloc a simple SetPtrSize of the first alloc.
|
||
move.l a0,a1 ; Dest address is new FCB array
|
||
movea.l a2,a0 ; Source is old FCB array
|
||
moveq.l #0, d0 ; clear the high bytes
|
||
move.w (a2),d0 ; Get size of the old array
|
||
move.w sr,-(sp) ; save current status register
|
||
ori.w #HiIntMask,sr ; turn interrupts off to protect from marauding async calls
|
||
_BlockMove ; copy the old array (including its old size word)
|
||
move.l a1,FCBsPtr ; set new FCB array address (leave the old size for now)
|
||
move.w (sp)+,sr ; restore status register
|
||
|
||
; Deallocate the old FCB array (fill memory with bus error bait to catch stale users)
|
||
move.l a2,a0 ; pointer to old FCB array for disposal
|
||
moveq.l #0, d0 ; clear the high bytes
|
||
move.w (a2),d0 ; get size of the old array
|
||
lsr.l #1,d0 ; convert to words
|
||
subq.l #1,d0 ; adjust for dbra
|
||
@CrudLoop: move.w #$fe1d,(a2)+ ; fill a word and inc pointer
|
||
dbra d0,@CrudLoop ; decrement count and loop if non-zero
|
||
_DisposPtr ; release the block
|
||
|
||
; now replace the parallel FCB array with a larger one
|
||
move.l FSVarsPtr,a3 ; a3 = ptr(FSVars)
|
||
movea.l FSVars.fcbPBuf(a3),a2 ; a2 = current FCB parallel array
|
||
move.w cbPBufULen(a2),d0 ; size of each parallel array element
|
||
move.w cbPBufCount(a2),d1 ; count of existing array entries
|
||
mulu.w d0,d1 ; size of elements in existing array
|
||
addq.l #fcbPBufData,d1 ; d1 = size of current array and header info
|
||
mulu.w d4,d0 ; calc bytes of additional elements <38>
|
||
add.l d1,d0 ; d0 = new array size
|
||
_NewPtr sys, clear ; allocate (bound to work since we just freed old main array)
|
||
bne.s @FailedParallel ; deal with failure, tho
|
||
|
||
; We have all we need. Copy old to new, update the count in the parallel array, and
|
||
; the size in main array. This is a critical section because a) we can't afford someone
|
||
; modifying part of the old array after BlockMove has passed it, and b) the main size
|
||
; and the parallel count need to agree. We disable interrrupts.
|
||
movea.l a0,a1 ; a1= destination=new array
|
||
movea.l a2,a0 ; a0= source =old array
|
||
move.l d1,d0 ; d0= count =old size
|
||
move.w sr,-(sp) ; save current status register
|
||
ori.w #HiIntMask,sr ; turn interrupts off to protect from marauding async calls
|
||
_BlockMove ; copy over
|
||
add.w d4,cbPBufCount(a1) ; set new count <38>
|
||
move.l a1,FSVars.fcbPBuf(a3) ; save new array
|
||
movea.l FCBsPtr,a0 ; now that it is safe, update the main FCB array size
|
||
move.w d3,(a0) ; use the d3 we made long ago
|
||
move.w (sp)+,sr ; restore status register
|
||
|
||
; free the old parallel array
|
||
movea.l a2,a0 ; Pointer to old parallel FCB array
|
||
_DisposPtr ; Release it
|
||
moveq #noErr,d0 ; say noErr since it worked!
|
||
@ExitOutNow
|
||
movem.l (sp)+,FCBGrowRegs ; restore the scratch regs
|
||
rts
|
||
|
||
; We got the memory for the larger main FCB array but failed to get the memory for
|
||
; the parallel FCB array. However, anticipating this problem, we haven't
|
||
; yet set the size word in the new FCB array. Since we're failing to
|
||
; grow, we'll just set the pointer size of the (new, bigger) FCB array
|
||
; back to the size it used to be and report the #TMFOErr to the caller.
|
||
@FailedParallel:
|
||
movea.l FCBSPtr,a0 ; point to the base of the FCB array
|
||
moveq.l #0,d0 ; clear since SetPtrSize takes a long
|
||
move.w (a0),d0 ; get size of old array
|
||
_SetPtrSize ; drop the size back down
|
||
|
||
@FailedMain:
|
||
moveq.l #TMFOErr,d0 ; we have to live with it
|
||
bra.s @ExitOutNow ; share exit
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: MoreWDCBs
|
||
; Function: Create more WDCBs.
|
||
; Input: none.
|
||
; Output: d0 = OSErr. #noErr on success. #TMWDOErr on failure.
|
||
; condition codes = (tst.w d0)
|
||
;
|
||
; This routine is called just after syncWait time (obviously it only works on synchronous
|
||
; calls) where a #TMWDOErr is seen. Attempt to allocate a new, larger WDCB array and copy the
|
||
; contents of the old WDCB array to the new area and release the old WDCB array.
|
||
; NOTE: We have no choice but to use a hardwired constant (WDCBLen) for the WDCB element
|
||
; size, since the value is not stored in memory.
|
||
; NOTE: We thought of just SetPtrSize'ing the old main array to create the new, larger parallel
|
||
; array. This has a couple problems: a) the parallel array elements may some day be
|
||
; bigger than the main elements, and b) more obtusely, we deal better with
|
||
; fragmentation by doing a NewPtr, since it may find a better spot than the current one.
|
||
;________________________________________________________________________________
|
||
|
||
entry MoreWDCBs
|
||
WDCBGrowRegs reg d1-d3/a0-a3
|
||
MoreWDCBs proc
|
||
movem.l WDCBGrowRegs,-(sp) ; Save some scratch regs
|
||
|
||
; calculate larger size, and try to allocate the memory
|
||
move.l WDCBsPtr,a0 ; point to existing WDCB array
|
||
moveq.l #0, d0 ; clear the high bytes
|
||
move.w (a0),d0 ; get size of that array (bytes)
|
||
addi.w #fsWDCBExtendCount*WDCBLen,d0 ; calc the new, larger size <38>
|
||
bmi.s @FailedMain ; if d0 > maxSignedWord we're stuck
|
||
|
||
move.l d0,d3 ; save new size (for switching sizes later)
|
||
_NewPtr sys, clear ; ...and try to allocate a larger array
|
||
bne @FailedMain ; jump if can't get the memory...
|
||
movea.l a0,a1 ; copy ptr to useful and durable register
|
||
|
||
; copy contents of old WDCB array to the new location
|
||
; Gentle Reader: BlockMove'ing the old to the new, of course, copies the size field as
|
||
; well as the data. We postpone setting the new size, tho, until we know we have a new
|
||
; block for the enlarged parallel array. This keeps asynch callers from tripping over
|
||
; inconsistencies, without requiring us to turn ints off across the NewPtr. Also
|
||
; makes error recovery from second alloc a simple SetPtrSize of the first alloc.
|
||
movea.l WDCBsPtr,a0 ; source is existing WDCB array
|
||
moveq.l #0, d0 ; clear the high bytes
|
||
move.w (a0),d0 ; get size of old array (bytes)
|
||
movea.l a0,a2 ; save for later
|
||
move.w sr,-(sp) ; save current status register
|
||
ori.w #HiIntMask,sr ; turn interrupts off to protect from marauding async calls
|
||
_BlockMove ; a1 is preserved
|
||
move.l a1,WDCBsPtr ; set new WDCB array address
|
||
move.w (sp)+,sr ; restore status register
|
||
|
||
; deallocate the old WDCB array
|
||
move.l a2,a0 ; Pointer to old WDCB array
|
||
_DisposPtr ; Release it
|
||
|
||
; now replace the parallel WDCB array with a larger one
|
||
move.l FSVarsPtr,a3 ; a3 = ptr(FSVars)
|
||
movea.l FSVars.wdcbPBuf(a3),a2 ; a2=old WDCB parallel array
|
||
move.w cbPBufULen(a2),d0 ; d0=unit size
|
||
move.w cbPBufCount(a2),d1 ; old array count
|
||
mulu.w d0,d1 ; calc bytes of array elements
|
||
addq.l #wdcbPBufData,d1 ; d1=current buffer size, including header
|
||
mulu.w #fsWDCBExtendCount,d0 ; calc bytes of additional elements <38>
|
||
add.l d1,d0 ; d0=new array size
|
||
_NewPtr sys, clear ; ...and try to allocate a larger array
|
||
bne.s @FailedParallel ; deal with error
|
||
|
||
; We have all we need. Copy old to new, update the count in the parallel array, and
|
||
; the size in main array. This is a critical section because a) we can't afford someone
|
||
; modifying part of the old array after BlockMove has passed it, and b) the main size
|
||
; and the parallel count need to agree. We disable interrrupts.
|
||
movea.l a0,a1 ; a1=destination=new array
|
||
movea.l a2,a0 ; a0=source=old array
|
||
move.l d1,d0 ; old size
|
||
move.w sr,-(sp) ; save current status register
|
||
ori.w #HiIntMask,sr ; turn interrupts off to protect from marauding async calls
|
||
_BlockMove ; copy over
|
||
add.w #fsWDCBExtendCount,cbPBufCount(a1) ; set new count <38>
|
||
move.l a1,FSVars.wdcbPBuf(a3) ; save new array
|
||
movea.l WDCBsPtr,a0 ; now that it is safe, update the main WDCB array size
|
||
move.w d3,(a0) ; use the d3 we made long ago
|
||
move.w (sp)+,sr ; restore status register
|
||
|
||
; free the old parallel array
|
||
movea.l a2,a0 ; Pointer to old WDCB array
|
||
_DisposPtr ; Release it
|
||
moveq #noErr,d0 ; say noErr since it worked!
|
||
@ExitOutNow
|
||
movem.l (sp)+,WDCBGrowRegs ; restore the scratch regs
|
||
rts
|
||
|
||
; We got the memory for the larger main WDCB array but failed to get the memory for
|
||
; the parallel WDCB array. However, anticipating this problem, we haven't
|
||
; yet set the size word in the new WDCB array. Since we're failing to
|
||
; grow, we'll just set the pointer size of the (new, bigger) WDCB array
|
||
; back to the size it used to be and report the #TMWDOErr to the caller.
|
||
@FailedParallel:
|
||
movea.l WDCBsPtr,a0 ; point to the base of the WDCB array
|
||
moveq.l #0,d0 ; clear since SetPtrSize takes a long
|
||
move.w (a0),d0 ; get size of old array
|
||
_SetPtrSize ; drop the size back down
|
||
|
||
@FailedMain:
|
||
moveq.l #TMWDOErr,d0 ; we have to live with it
|
||
bra.s @ExitOutNow ; share exit
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; FSQueueHook patch <9>
|
||
;
|
||
; Grab control at the FSQueueHook to implement new call dispatching and some
|
||
; patches after the SyncWait loop.
|
||
;
|
||
; We now defer dispatching a call if either the SCSI bus is busy or the interrupt
|
||
; mask is up. To implement the SCSI deferral we wait until the SCSI manager calls
|
||
; us through the jSCSIFreeHook when the bus frees up. If the interrupt mask is up,
|
||
; we install a deferred task.
|
||
;
|
||
; After the SyncWait loop (i.e. only at the completion of synchronous calls) we
|
||
; tag FCBs with the serial number of the process that's opening them, and we
|
||
; attempt to allocate more FCBs or WDCBs if we run out. We also do the disk recovery
|
||
; code (disk switch).
|
||
;
|
||
; Inputs:
|
||
; d0.w dispatch selector if $ax60 call
|
||
; d1.w trap word
|
||
; a0.l caller's pb
|
||
;
|
||
; ASSERT: this patch must be the first one hooked in so that it is the
|
||
; last one called. It must be the last one called because we are replacing
|
||
; the code in rom that follows the call to the fsQueueHook.
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
VolatileRegs reg a0-a1/d1-d2
|
||
|
||
fsQueueHookPatch: proc
|
||
entry vSyncWait, vAfterFSQHook
|
||
import MungeTrapWord, UnMungeTrapWord, TagFileWithPSN
|
||
import fsInterruptDeferProc, fsSCSIWakeUpProc
|
||
export CheckSCSICollision, CheckInterruptMask
|
||
export FSDispatchRequest
|
||
|
||
addq.l #4,sp ; we never want to return to ROM
|
||
vAfterFSQHook:
|
||
move.w #1,IOResult(a0) ; set IOResult to "in process"
|
||
bsr MungeTrapWord
|
||
move.l (sp)+,IOCmdAddr(a0) ; save address to go to when ready
|
||
move.w #FSQType,IOType(a0) ; say its a file system queueing element
|
||
|
||
btst #AsyncTrpBit,d1 ; async bit on?
|
||
beq.s notAsync ; br if not
|
||
|
||
tst.b FrcSync ; force it synchronous?
|
||
beq FSAsync ; if not, do it async
|
||
bra.s doItSync
|
||
|
||
notAsync:
|
||
clr.l IOCompletion(a0) ; no completion routines for sync calls
|
||
doItSync:
|
||
move.l a0,-(sp) ; save parameter block ptr
|
||
bsr FSAsync ; queue it up (and maybe call it)
|
||
move.l (sp)+,a0
|
||
|
||
; synchronous calls spin here until call is complete
|
||
vSyncWait:
|
||
SyncWait: move.w ioResult(a0),d0 ; get the result code into d0
|
||
bgt.s SyncWait ; done when result is zero or negative
|
||
|
||
; We're done with a synchronous call. See what work there is to do.
|
||
; 1) on successful file open, tag the file with the current process ID
|
||
; 2) on failure of any call, see if recovery (fcb's, wdcb's, offline) is possible
|
||
|
||
tst.w d0 ; call successful?
|
||
bne.s @ErrorRecovery ; if not, try recovering
|
||
|
||
; see if this is an open. Tag the FCB with the current process ID for _FSCleanup
|
||
bsr UnMungeTrapWord ; get trap word in d1, selector in d0
|
||
andi.w #$f0ff,d1 ; clear the modifier bits
|
||
cmp.w #$a060,d1 ; is it our dispatcher?
|
||
bne.s @CheckOpenTraps ; if not, look at straight traps
|
||
cmp.w #selectOpenDF,d0 ; is it _OpenDF?
|
||
beq.s @TagIt ; branch if so
|
||
cmp.w #selectOpenDeny,d0 ; is it _OpenDeny?
|
||
beq.s @TagIt ; branch if so
|
||
cmp.w #selectOpenRFDeny,d0 ; is it _OpenRFDeny?
|
||
beq.s @TagIt ; branch if so
|
||
@Return:
|
||
move.w ioResult(a0), d0 ; restore the result code to d0
|
||
ext.l d0 ; make it long for tradition's sake
|
||
rts ; return to caller
|
||
|
||
@CheckOpenTraps
|
||
cmp.w #$a000,d1 ; is this _Open?
|
||
beq.s @TagIt ; branch if so
|
||
cmp.w #$a00a,d1 ; is this _OpenRF?
|
||
bne.s @Return ; branch if not an open of any kind
|
||
@TagIt
|
||
bsr TagFileWithPSN ; put PSN in parallel array (a0 = iopb)
|
||
bra.s @Return ; common exit
|
||
|
||
; try to recover if a synchronous call failed because FCB or WD array was full
|
||
@ErrorRecovery
|
||
cmp.w #TMFOErr,d0 ; Run out of FCBs?
|
||
bne.s @CheckWDCBs
|
||
|
||
; Make sure we ran out of FCBs locally <38>
|
||
movea.l FSVarsPtr,a1 ; <38>
|
||
btst.b #fsNeedFCBs,FSVars.fsFlags(a1) ; Too few FCBs locally? <38>
|
||
beq.s @CheckWDCBs ; no? check for WDCB space <38>
|
||
|
||
bsr CheckFCBAllocation ; see what we can do about the FCB trouble <38>
|
||
beq.s @RetryCall ; we can try again if we got more FCBs <38>
|
||
|
||
@CheckWDCBs:
|
||
cmp.w #TMWDOErr,d0 ; Run out of WDCB space?
|
||
bne @Continue ; no? then I don' wanna talk to you
|
||
bsr MoreWDCBs ; try to allocate more WDCBs
|
||
bne.s @Continue ; Errors? Then, my dear, we've failed
|
||
|
||
@RetryCall: ; <15>
|
||
bsr UnMungeTrapWord ; trap word in d1, dispatch in d0
|
||
lea.l TrapAgain,a1 ; get ready to play assembler
|
||
move.w d1,(a1)+ ; write in the trap word
|
||
move.w #$4E75,(a1) ; follow it with an RTS
|
||
move.l jCacheFlush,a1 ; get address of the CPU’s cache flusher <45>
|
||
jsr (a1) ; be cool on hoopy cached cpus <45>
|
||
jmp TrapAgain ; Go re-execute the original trap
|
||
|
||
; call disk switch hook if synchronous call failed because volume went offline
|
||
@Continue:
|
||
ext.l d0 ; extend result to long
|
||
cmp.w #VolOffLinErr,d0 ; volume off-line error? (detected by file
|
||
bne.s @Return ; system) br if not
|
||
move.l DskSwtchHook,-(sp) ; OffLineVol points to VCB, a0 to request
|
||
bgt.s @Return ; br if there is a hook proc
|
||
addq #4,sp ; otherwise, just return
|
||
|
||
IF ForROM THEN
|
||
btst #7, DSAlertRect ; already in our proc?
|
||
bne DSHook ; br if not
|
||
ENDIF
|
||
bra.s @Return ; join exit code
|
||
|
||
FSAsync:
|
||
move sr, -(sp) ; save interrupt state
|
||
ori #HiIntMask, sr ; turn interrupts off
|
||
lea.l FSQHdr,a1 ; Point to the File System Queue
|
||
_Enqueue ; Enqueue the request
|
||
bset.b #fsBusyBit, FSBusy ; make sure the file system is marked busy
|
||
beq.s @1 ; if free, go try to dispatch the call
|
||
move.w (sp)+, sr ; restore interrupt state
|
||
moveq.l #noErr, d0 ; no errors (yet)
|
||
rts
|
||
|
||
@1: move.w (sp)+, sr ; restore interrupt state
|
||
|
||
; We're about to dispatch the frontmost call on the queue. We have to make sure
|
||
; that we're not going to collide with another SCSI transaction.
|
||
;
|
||
; Existing SCSI drivers (Apple's and 3rd parties') have no way of responding to a
|
||
; a request if they attempt to get the SCSI bus and fail because the bus is busy.
|
||
; There is no easy way for them to yield asynchronously and resume execution when the bus
|
||
; is free.
|
||
; Under System 7.0, file sharing causes File System I/O to occur at deferred
|
||
; task time, making it quite likely that I/O will collide with an already executing
|
||
; SCSI transaction, such as one started by CD-Remote or a scanner. Although it would
|
||
; be wonderful to implement an architecture that would allow drivers to deal with this
|
||
; problem, we'll have to settle for avoiding situations where SCSI transactions will
|
||
; collide. To do this, there's support in the SCSI Manager to call the vector
|
||
; jFSSCSIWakeUp every single time the SCSI manager frees the SCSI bus.
|
||
;
|
||
; Big assumption: We are assuming that all interrupt-level users of the SCSI bus
|
||
; free the bus up before returning. I.E. they aren't asynchronous users of the bus.
|
||
; So, we only have to worry about interrupting event-level users of the bus. We are
|
||
; also assuming that any other interrupt-level users of the bus (of which we hope there
|
||
; are very few) know how to deal with a busy bus, I.E. they figured all this out too.
|
||
|
||
CheckSCSICollision:
|
||
movem.l VolatileRegs, -(sp) ; save across _SCSIBusy
|
||
clr.w -(sp) ; space for function result
|
||
_SCSIBusy ; is the SCSI bus busy?
|
||
tst.w (sp)+ ; test the result
|
||
movem.l (sp)+, VolatileRegs
|
||
|
||
beq.s CheckInterruptMask ; Phew - we can check our next problem
|
||
bset.b #fsSCSIDefer, FSBusy ; remind ourselves that we're waiting for SCSI
|
||
moveq.l #noErr, d0 ; no errors (yet)
|
||
rts
|
||
|
||
; We know for sure that we're safe from a SCSI collision. Now we have to worry about
|
||
; whether interrupts are masked out. We don't want to be running long file system calls
|
||
; with interrupts masked. If interrupts are masked, we'll install a deferred task
|
||
; that will restart us when the mask is back down.
|
||
; Compatibility note: Macsbug likes to do logging to files with interrupts off. While
|
||
; we can't guarantee that this will work forever, it was the general consensus that it was
|
||
; worth letting sync calls go through even if the interrupt mask was > 0 so as to let
|
||
; macsbug do logging. This also protects a few skanky programs which do sync calls from
|
||
; vbl tasks and the like, although it doesn't change the fact that sync calls from interrupt
|
||
; level are completely illegal.
|
||
; Note that we should probably put similar logic into the completion routines at
|
||
; Basic I/O, since they are called as the result of interrupts. This hasn't proven to be
|
||
; a problem, though.
|
||
|
||
CheckInterruptMask:
|
||
move.l a0, -(sp) ; save a0 <34>
|
||
move.l FSQHead,a0 ; get first parameter block <34>
|
||
btst.b #AsyncTrpBit, ioTrap(a0) ; is this a sync call? <34>
|
||
movea.l (sp)+, a0 ; restore a0 (keep ccr) <34>
|
||
beq.s SavePascalRegistersAndDispatch ; if sync, don't worry about interrupts <34>
|
||
move.w sr, d0 ; get interrupt state
|
||
andi.w #$0700,d0 ; interrupt mask > level 0?
|
||
beq.s SavePascalRegistersAndDispatch ; If not, there's nothing to worry about
|
||
|
||
; The mask is up - install a deferred task
|
||
movem.l VolatileRegs, -(sp) ; save across _DTInstall
|
||
move.l FSVarsPtr, a1 ; point to file system lomem
|
||
bset.b #fsIntMaskDefer, FSBusy ; do we already have one in the oven?
|
||
bne.s @AlreadyInstalled ; if yes, we can go now
|
||
|
||
lea.l FSVars.fsDefer(a1), a0 ; aim at our deferred task pb
|
||
leaResident fsInterruptDeferProc, a1; aim at our deferred task proc
|
||
move.l a1, dtAddr(a0) ; tell the pb about it
|
||
move.w #dtQType,qType(a0) ; Indicate proper queue type
|
||
clr.l dtResrvd(a0) ; 'cause they told me to
|
||
clr.w dtFlags(a0) ; 'cause it's reserved
|
||
_DTInstall ; call 976-wake
|
||
|
||
@AlreadyInstalled:
|
||
movem.l (sp)+, VolatileRegs ; restore registers
|
||
rts
|
||
|
||
; <48>
|
||
; SavePascalRegistersAndDispatch - the general call dispatcher.
|
||
; We make the following assumptions:
|
||
; We're not going to collide with a SCSI transaction
|
||
; We don't need to defer for anything (interrupts, etc.)
|
||
; The file system busy flag has been set
|
||
;
|
||
SavePascalRegistersAndDispatch:
|
||
movem.l PascalRegs,-(sp) ; observe Pascal regsave conventions
|
||
bsr FSDispatchRequest ; do the work
|
||
movem.l (sp)+,PascalRegs ; restore registers
|
||
rts ; and return (all commands finish by jumping to CmdDone)
|
||
|
||
; FSDispatchRequest - the specific call dispatcher
|
||
; We assume that the appropriate registers have been saved and dispatch the call.
|
||
FSDispatchRequest:
|
||
move.l FSQHead,a0 ; get first parameter block
|
||
move.l IOCmdAddr(a0),a1 ; get address to call
|
||
movea.l PMSPPtr,a6 ; Point to the Poor Man's Search Path table
|
||
clr.w PMSPIndx(a6) ; No entries used yet
|
||
btst.b #AsyncTrpBit,ioTrap(a0) ; set the flavor for this trap <01Oct85>
|
||
sne.b FSCallAsync ; if sync, we'll do our I/O synchronous <01Oct85>
|
||
movea.l HFSStkTop,a6 ; Set up A6 for use as stack pointer
|
||
jmp (a1) ; go do the call <48>
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; fsInterruptDeferProc
|
||
;
|
||
; This procedure is the completion routine of the file system's deferred
|
||
; task. It clears the fsSRDefer flag and jumps into dispatching the frontmost
|
||
; call.
|
||
;
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
fsInterruptDeferProc: proc
|
||
import FSDispatchRequest, CallWithRegistersPreserved
|
||
|
||
bclr.b #fsIntMaskDefer, FSBusy ; indicate that there's no task pending
|
||
lea.l FSDispatchRequest,a0 ; get ready to <48>
|
||
jmp CallWithRegistersPreserved ; run the call <48>
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; fsSCSIFreeHookProc
|
||
;
|
||
; This procedure is called by the SCSI manager every time the SCSI bus is
|
||
; freed up. If (the File System is busy) and (we're waiting for a wake up)
|
||
; then jump to dispatching the frontmost call.
|
||
;
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
fsSCSIFreeHookProc: proc
|
||
import CheckInterruptMask
|
||
btst.b #fsBusyBit, FSBusy ; we're always busy when suspended for SCSI
|
||
beq.s @NoWakeUp
|
||
bclr.b #fsSCSIDefer, FSBusy ; if we're waiting, we'll also have this flag set
|
||
beq.s @NoWakeUp
|
||
jmp CheckInterruptMask ; continue with the dispatch
|
||
@NoWakeUp:
|
||
rts
|
||
endproc
|
||
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; fsGeneralWakeUp
|
||
;
|
||
; This procedure can be called by anyone at any time. It checks to see if there
|
||
; is any File System work that needs to be done, and if so, dispatches it.
|
||
;
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
fsGeneralWakeUp: proc
|
||
import CheckSCSICollision
|
||
move sr,-(sp) ; save interrupt state
|
||
ori #HiIntMask,sr ; only debug interrupts allowed
|
||
tst.l FSQHead ; is a command pending?
|
||
beq.s @Done
|
||
|
||
bset.b #fsBusyBit, FSBusy ; make sure the file system is marked busy
|
||
bne.s @Done ; if it was already busy, we can return
|
||
move.w (sp)+,sr ; restore interrupt state
|
||
bra CheckSCSICollision ; go run the next call
|
||
|
||
@Done:
|
||
move.w (sp)+,sr ; restore interrupt state and return
|
||
rts
|
||
|
||
;________________________________________________________________________________
|
||
; Routine: ProcessMgrExists
|
||
; Function: check if Process Mgr is running
|
||
; Input: none
|
||
; Output: D0=0 if it is ready; all other registers are preserved.
|
||
; Condition codes = (tst.w d0)
|
||
; ________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
ProcessMgrExists proc export
|
||
move.l a0,-(sp) ; save a0
|
||
move.l #GestaltOSAttr,d0 ; set up Gestalt selector
|
||
_Gestalt ; ask Gestalt about Process Mgr
|
||
movea.l (sp)+,a0 ; d0 = OSErr, noErr if Process Mgr exists
|
||
rts ; leave with condition codes intact
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: TagFileWithPSN
|
||
;
|
||
; Function: Store current process ID in parallel array element for the file
|
||
; whose refnum is in the iopb passed in a0.
|
||
;
|
||
; Inputs: A0 = Parameter block
|
||
; Output: A0 = Parameter block
|
||
; Eats: pascal regs, except a0
|
||
;
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
proc
|
||
entry TagFileWithPSN
|
||
|
||
TagFileWithPSN
|
||
; Open traps can be (and are!) called before Process Mgr is init'd
|
||
bsr ProcessMgrExists ; is Process Mgr ready?
|
||
bne.s @CantRecord ; Process Mgr is not ready yet
|
||
|
||
; find the current PSN
|
||
move.l a0,-(sp) ; save pb pointer on stack
|
||
suba.w #10, sp ; allocate storage for PSN (8 bytes) and result
|
||
pea 2(sp) ; push address of PSN storage
|
||
_GetSystemClientProcess ; get PSN with which to associate the file
|
||
tst.w (sp)+ ; ignore result (on error, PSN == kNoProcess)
|
||
|
||
; PSN on top of stack. Locate entry in parallel array, and store.
|
||
movea.l 8(sp),a0 ; get iopb back in a register
|
||
move.w ioRefNum(a0),d0 ; get refNum to convert it
|
||
bsr ParallelFCBFromRefnum ; a1 = ptr(parallel FCB entry)
|
||
move.l (sp)+,xFCBPid1(a1) ; save high half of PSN
|
||
move.l (sp)+,xFCBPid2(a1) ; save low half of PSN
|
||
tst.l (sp)+ ; pop a0 (since we've already restored it)
|
||
@CantRecord
|
||
rts
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
; Routine: File System cleanup routine <2.7>
|
||
; Function: Closes all open files belong to the process upon process termination.
|
||
; The process serial number in the Ext. FCB is cleared.
|
||
;
|
||
; By: Kenny Tung
|
||
; Copyright © 1989 Apple Computer, Inc.
|
||
; Input: D1 = trap, A0 = parameter block pointer
|
||
; HFS call requires an ioPB, but in this call no parameter is passed in.
|
||
; However, A0 is used to make the PBClose call within the routine. (Therefore
|
||
; it should be at least 26 bytes long).
|
||
; Revision History:
|
||
; 26Sep89 KSCT New today (from TFSDir1.a)
|
||
;________________________________________________________________________________
|
||
; This routine was copied into TFS.a
|
||
DoFSCleanUp proc EXPORT ; serial ID is 64 bits
|
||
FSCleanupRegs REG A2-A3/D2-D6
|
||
MOVEM.L FSCleanupRegs,-(SP)
|
||
|
||
; ask the Process Mgr which process is current
|
||
MOVE.L A0,-(SP) ; save needed, but volatile, register
|
||
LEA -10(SP),SP ; get current PSN and verify it's for us
|
||
PEA 2(SP) ; push address of PSN
|
||
_GetCurrentProcess ; call the OS
|
||
MOVE.W (SP)+,D0 ; save result
|
||
MOVE.L (SP)+,D6 ; D6 = process ID1
|
||
MOVE.L (SP)+,D2 ; D2 = process ID2
|
||
MOVEA.L (SP)+,A0 ; restore volatile register
|
||
TST.W D0 ; check result now that stack restored
|
||
BLT CleanupDone ; if so, we can do nothing
|
||
|
||
MOVEA.L FSVarsPtr,A1
|
||
MOVEa.L FSVars.fcbPBuf(A1),A2 ; A2=parallel array
|
||
MOVE cbPBufCount(A2),D3 ; D3=number of FCBs
|
||
SUBQ #1,D3 ; for DBcc
|
||
MOVE cbPBufULen(A2),D4 ; D4=ext. FCB unit size
|
||
LEA fcbPBufData(A2),A2 ; A2=ext. fcb array
|
||
MOVE FSFCBLen,D5 ; D5=FCB len
|
||
jsrROM GT1STFCB ; A1=FCB, D1=1st RefNum
|
||
|
||
; First close all the open files belong to this process:
|
||
; A1=FCBptr, A2=Ext. FCBptr, D1.W=RefNum, D2=id2, D3.W=loop index,
|
||
; D4.W=ext FCBlen, D5.W=original FCBlen, D6=id1 (not D1!)
|
||
@cleanLoop MOVE.L xFCBPid2(A2),D0 ; do the 2nd one first
|
||
CMP.L D0,D2 ; FCB belongs to this process?
|
||
BNE.S @3 ; no->
|
||
MOVE.L xFCBPid1(A2),D0
|
||
CMP.L D0,D6 ; FCB belongs to this process?
|
||
BNE.S @3 ; no->
|
||
;; close the file only if it is open and not a system file.
|
||
MOVE.L fcbFlNm(A1,D1),D0 ; file open?
|
||
BEQ.S @2 ; not open -> invalidate PIDs
|
||
CMP.L #FSUsrCNID,D0 ; Is it a system control file?
|
||
BLO.S @2 ; yes, don't touch it
|
||
|
||
;; this open path belongs to this proc, let's close it
|
||
BSR clearPB ; clear iopb in A0
|
||
MOVE D1,ioRefNum(A0) ; close this access path
|
||
MOVEM.L A1/D1/D2,-(SP) ; these registers are trashed
|
||
_Close ,Async ; close the file ASYNCly (to avoid deadlock)
|
||
;; but we will wait synchronously until it's done .....
|
||
@wait TST ioResult(A0)
|
||
BGT.S @wait
|
||
MOVEM.L (SP)+,A1/D1/D2
|
||
BNE.S @3 ; if error don't clear IDs
|
||
@2 CLR.L xFCBPid1(A2) ; clear procID 1
|
||
CLR.L xFCBPid2(A2) ; clear procID 2
|
||
@3 ADDA D4,A2 ; go to next ext.FCB
|
||
ADD.W D5,D1 ; go to next FCB RefNum
|
||
DBF D3,@cleanLoop ; process them all …
|
||
|
||
;; Then close all the working direstories: D2.L/D6.L=procID, others are free
|
||
MOVEA.L FSVarsPtr,A1 ; FSVars
|
||
MOVEA.L FSVars.WDCBPBuf(A1),A2
|
||
MOVE cbPBufCount(A2),D3 ; D3=number of WDCBs
|
||
SUBQ #1,D3 ; for DBcc
|
||
MOVE cbPBufULen(A2),D4 ; D4=ext. WDCB unit size
|
||
LEA wdcbPBufData(A2),A2 ; A2=1st ext. WDCB array
|
||
MOVE #WDCBLen,D5 ; D5 = old WDCB len
|
||
jsrROM romGt1stWDCB ; A1=WDCB array, D1=WDRefNum
|
||
;; A1=WDCBptr, A2=Ext WDCB, D1.W=WD RefNum, D2=id2, D3.W=loop index,
|
||
;; D4.W=ext wdcblen, D5.W= orginal WDCBlen, D6=id1
|
||
@WDLoop MOVE.L xWDCBPid2(A2),D0
|
||
CMP.L D0,D2 ; same process?
|
||
BNE.S @6 ; no->
|
||
MOVE.L xWDCBPid1(A2),D0
|
||
CMP.L D0,D6 ; WDCB belongs to this process?
|
||
BNE.S @6 ; no->
|
||
TST.L WDVCBPtr(A1,D1) ; WD open?
|
||
BEQ.S @5 ; no-> already closed
|
||
|
||
BSR.S clearPB ; clear iopb
|
||
MOVEM.L A1/D1/D2,-(SP) ; these registers are trashed
|
||
ADD.W #WDRfnMin,D1 ; Offset the index to make a WDRefNum (-32767)
|
||
MOVE D1,ioVRefNum(A0) ; close this WD
|
||
_CloseWD
|
||
MOVEM.L (SP)+,A1/D1/D2
|
||
BNE.S @6 ; if error don't clear IDs
|
||
@5 CLR.L xWDCBPid1(A2) ; clear procID 1
|
||
CLR.L xWDCBPid2(A2) ; clear procID 2
|
||
@6 ADDA D4,A2 ; go to next ext.WDCB
|
||
ADD.W D5,D1 ; go to next WDCB RefNum
|
||
DBF D3,@WDLoop ; process them all …
|
||
|
||
BSR.S clearPB ; all done, return a clear PB
|
||
|
||
CleanupDone
|
||
MOVEM.L (SP)+,FSCleanupRegs
|
||
MOVEQ #0,D0 ; happy ending
|
||
RTS
|
||
|
||
|
||
; clear iopb in A0 up to ioRefnum. (28 bytes), A3 is free
|
||
clearPB MOVEA.L A0,A3 ; A3=A0=iopb
|
||
MOVEQ #(fscPBLen/4)-1,D0 ; iopb len in long -1
|
||
@2 CLR.L (A3)+
|
||
DBRA D0,@2 ; clear 28 bytes
|
||
RTS
|
||
|
||
endproc
|
||
|
||
;_______________________________________________________________________________________
|
||
; Routine: OpenWD patch
|
||
; Function: Upon open a WD, get the current process's ID and store it in the WD P.array
|
||
; Arguments: A0.L (input) -- I/O parameter block
|
||
; D0.W (output) -- error code
|
||
; Function: Create a working directory control block from the pathname
|
||
; information in the parameter block.
|
||
; Modification History:
|
||
; 09Oct89 KSCT Upon open a WD, get the current process's ID and store it in the WD P.array
|
||
; Return non-zero in ioWDCreated(ioPB) if we create the WD anew.
|
||
; 11Oct89 KSCT Don't check against WDProcID for the same owner, check serial ID.
|
||
; 06Aug90 KSCT Check WDProcID for the same owner when MultiFinder is not ready.
|
||
;_______________________________________________________________________________________
|
||
; This patch was rolled into TFSVOL.a
|
||
OpenWDPatch Proc export
|
||
jsrROM FSQUEUE ; Wait for our turn to come
|
||
jsrROM FNDFILNAME ; Look for the indicated directory
|
||
BEQ.S @1 ; Br if found
|
||
CMP.W #BdNamErr,D0 ; Was it a bad filename? <21Sep85>
|
||
BNE.S opnWDExit ; If not, there's no more hope <21Sep85>
|
||
TST.B D2 ; Otherwise, check the name length <21Sep85>
|
||
BNE.S opnWDExit ; If nonzero, it's real BdNamErr <21Sep85>
|
||
BRA.S @2 ; Return VRefNum for MFS null file names<21Sep85>
|
||
|
||
@1 MOVEQ #DirNFErr,D0 ; Let's be pessimistic here
|
||
CMP.B #CDRDirRec,CDRType(A5) ; Was record a directory?
|
||
BNE.S opnWDExit ; Thought so...
|
||
|
||
MOVE.L DirDirID(A5),D6 ; DirID to set up = directory's DirID
|
||
CMP.L #FSRtDirID,D6 ; Accessing the root? <21Sep85>
|
||
BEQ.S @2 ; Nope - create a real new WDCB <21Sep85>
|
||
|
||
MOVEQ #0,D7 ; No catalog hint known.
|
||
BSR.S PickWDCB ; Look for a suitable WDCB
|
||
BRA.S opnWDExit ; SR set
|
||
|
||
@2 MOVE.W VCBVRefNum(A2),ioVRefNum(A0) ; Return the VRefNum as WDRfn <21Sep85>
|
||
|
||
opnWDOK MOVEQ #0,D0 ; Call it a success <21Sep85>
|
||
opnWDExit jmpROM CMDDONE ; we're finished . . .
|
||
|
||
; Look for a matching working directory, starting with the third (the first two are
|
||
; reserved to hold the system-wide volume and directory defaults).
|
||
PickWDCB:
|
||
MOVEA.L A2,A5 ; A5 <> 0, MF is not running flag (A2 <> 0)
|
||
|
||
;; A0=iopb, A2=VCB, D3.L=ProcID, D6.L=DirID, D7.L=0. A3,A4,D2,D4,D5 are free.
|
||
;; A5.L=caller's procID because I run out of D regs ...
|
||
MOVEA.L FSVarsPtr,A3
|
||
MOVEa.L FSVars.wdcbPBuf(A3),A3 ; A3=WDCB parallel array
|
||
MOVE cbPBufULen(A3),D3 ; D3=Ext. WDCB unit length
|
||
LEA wdcbPBufData(A3),A3 ; skip info words (A3 = 1st WDCB)
|
||
MOVEA.L A3,A4 ; A4 = 1st WDCB
|
||
ADDA D3,A3 ; A3 = 2nd WDCB
|
||
MOVEQ #0,D4 ; ID1= 0
|
||
MOVEQ #0,D5 ; ID2= 0 (no serial ID)
|
||
BSR ProcessMgrExists ; check Process Mgr ready?
|
||
BNE.S @nomf ; no, don't bother with serial ID
|
||
;; Process Mgr is available, we are open for business
|
||
SUBA.L A5,A5 ; A5=0 if MultiFinder is ready <06Aug90>
|
||
MOVE.L A0,-(SP) ; save iopb
|
||
LEA -10(SP),SP ; make room for PSN and OSErr
|
||
PEA 2(SP) ; push address of PSN storage
|
||
_GetSystemClientProcess ; call OS (can trash pascal registers)
|
||
LEA 2(SP),SP ; don't need to check for error
|
||
MOVE.L (SP)+,D4 ; D4 = process ID1
|
||
MOVE.L (SP)+,D5 ; D5 = process ID2
|
||
MOVEA.L (SP)+,A0 ; restore iopb
|
||
|
||
@nomf: MOVEQ #0,D2 ; Clear free WDCB index
|
||
jsrROM romGt1stWDCB ; Set up A1, D1 (point at first WDCB)
|
||
jsrROM romGtNxtWDCB ; Point at 2nd WDCB
|
||
; (A1,D1)=WDCB, D2=freeRefNum,
|
||
@1 ADDA D3,A3 ; Point at next Extended WDCB
|
||
jsrROM romGtNxtWDCB ; Point at next (3rd) WDCB
|
||
BCC.S @3 ; Br if we've seen them all
|
||
TST.L WDVCBPtr(A1,D1) ; Is this WDCB free?
|
||
BNE.S @2 ; If NE, no
|
||
TST.W D2 ; Already found a free one?
|
||
BNE.S @1 ; Yes - continue scan
|
||
MOVE.W D1,D2 ; No - hang on to this WD index
|
||
BRA.S @1 ; And continue scanning
|
||
|
||
@2 CMP.L WDVCBPtr(A1,D1),A2 ; For same volume?
|
||
BNE.S @1 ; Nope - keep looking
|
||
CMP.L WDDirID(A1,D1),D6 ; Same directory?
|
||
BNE.S @1 ; Nope - keep looking
|
||
|
||
MOVE.L A5,D0 ; MF ready? <06Aug90>
|
||
BEQ.S @mfON ; yes, check serial number <06Aug90>
|
||
;; MultiFinder is not ready, check wdProcID <06Aug90>
|
||
MOVE.L ioWDProcID(A0),D0 ; Pick up owner's ProcID <06Aug90>
|
||
CMP.L WDProcID(A1,D1.W),D0 ; same ProcID? <06Aug90>
|
||
BNE.S @1 ; Nope - sigh. <06Aug90>
|
||
BRA.S @wdFnd ; found it <06Aug90>
|
||
|
||
@mfON CMP.L xWDCBPid2(A3),D5 ; For same owner?
|
||
BNE.S @1 ; Nope - sigh.
|
||
CMP.L xWDCBPid1(A3),D4 ; For same owner?
|
||
BNE.S @1 ; Nope - sigh.
|
||
|
||
@wdFnd ;; Recycle the WD RefNum:
|
||
CLR ioWDCreated(A0) ; say we are not creating one <10/9/89>
|
||
ADDI #WDRfnMin,D1 ; Offset the index to make a WDRefNum
|
||
BRA.S @4 ; Return the current WDRefNum
|
||
|
||
; Use a new WDCB:
|
||
|
||
@3 MOVE.W D2,D1 ; Free WDCB found?
|
||
BEQ.S pickNoMore ; Nope - die.
|
||
MOVE #1,ioWDCreated(A0) ; we are creating a new one <10/9/89>
|
||
;; Now A1 --> WDCBs, D1.W = WDrefnum, A4 = 1st Ext. WDCB, D4,D5=ID, D6=DirID, D7=hint
|
||
MOVEQ #0,D0
|
||
MOVE D1,D0 ; D0=WDRefNum
|
||
MOVE #WDCBLen,D3 ; D3 = WDCB len
|
||
DIVU D3,D0 ; Divide by length to get WDCB's number
|
||
LSL #L2ExtWDCBLen,D0 ; index into the extended FCB
|
||
MOVE.L D4,xWDCBPid1(A4,D0) ; save it
|
||
MOVE.L D5,xWDCBPid2(A4,D0) ; save it
|
||
|
||
jsrROM romFillWDCB ; user's ProcID data still stored in WDCB by this call
|
||
|
||
@4 MOVE.W D1,IOVRefNum(A0) ; Store in user's I/O parameter block
|
||
MOVEQ #0,D0 ; Total success
|
||
RTS ;
|
||
|
||
pickNoMore MOVEQ #TMWDOErr,D0 ; No WDCBs are free: fail miserably
|
||
RTS
|
||
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; ExtFSCatchAll - catch external file system calls that nobody handled
|
||
;
|
||
; To complete our ability to implement future file system calls in external
|
||
; file systems before we implement them locally, we pass unknown a060
|
||
; traps (i.e. those that we dispatch to UnknownCall) down the toExtFS hook
|
||
; to see if there are any external file systems that want to process them.
|
||
;
|
||
; If an external file system does process the call it will change the error
|
||
; code to something negative or zero. If nobody handles it, we'll arrive
|
||
; here with a positive dispatch number in d0.
|
||
; #paramErr is for calls that are known now but not implemented locally
|
||
; #extFSErr is for calls which we do implement, so if we're here then
|
||
; nobody spoke up for the call.
|
||
;
|
||
; Note that we don't have to worry about straight traps ending up here, since
|
||
; if they get dropped on the floor we'll exit the toExtFS hook with the
|
||
; original #ExtFSErr still sitting in d0.
|
||
;
|
||
; Inputs:
|
||
; a0 - pointer to currently executing parameter block
|
||
; d0 - dispatch selector
|
||
;
|
||
; Currently, we send the following dispatch values through UnknownCall
|
||
; $1c - $1f we want to be flexible about the parameters to these
|
||
; selectVolumeMount ($41) since there's no volume to aim at
|
||
; selectGetUGEntry ($44) - $4f •• should get the hell off of $a060, that's what.
|
||
; everything above $70 we want to be flexible about the parameters to these
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
ExtFSCatchAll: proc
|
||
tst.w d0 ; is this a selector? <15Jan91 #28>
|
||
ble.s @Exit ; no <15Jan91 #28>
|
||
cmp.b #$1c, d0 ; check the bottom of the first range
|
||
blo.s @ExtFSErrExit ; since we implement dispatches < $1c, return #ExtFSErr
|
||
cmp.b #$1f, d0 ; check the top of the first range
|
||
bls.s @ParamErrExit ; we don't implement $1c<=dispatch<=$1f, so #paramErr it
|
||
|
||
cmp.b #selectVolumeMount, d0 ; check for volumeMount
|
||
beq.s @ParamErrExit ; no local volumeMount, so #paramErr it
|
||
|
||
cmp.b #selectGetUGEntry, d0 ; check for bottom of third range
|
||
blo.s @ExtFSErrExit
|
||
cmp.b #$4f, d0 ; check top of third range
|
||
bls.s @ParamErrExit
|
||
|
||
cmp.b #$70, d0 ; check for the edge of the known world
|
||
blo.s @ExtFSErrExit
|
||
|
||
@ParamErrExit:
|
||
moveq.l #paramErr, d0
|
||
bra.s @Exit
|
||
|
||
@ExtFSErrExit:
|
||
moveq.l #extFSErr, d0 ; restore correct error code
|
||
@Exit:
|
||
rts
|
||
|
||
endproc
|
||
|
||
|
||
;_____________________________________________________________________________________
|
||
;
|
||
; MungeTrapWord (d0 and d1) -> ioTrap(a0)
|
||
;
|
||
; Function
|
||
; Store the trap word in d1 into ioTrap(a0). If the trap is Ax60, combine
|
||
; d1 with the dispatch value on d0 before storing.
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
; d0 - dispatch value (for Ax60 traps)
|
||
; d1 - trap word
|
||
;
|
||
; Output:
|
||
; a0 - pointer to caller's PB
|
||
; ioTrap(a0) - munged trap word
|
||
;
|
||
; All registers preserved
|
||
;_____________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
MungeTrapWord: proc export
|
||
move.w d1,IOTrap(a0) ; save the trap number
|
||
cmp.b #$60,d1 ; TFS trap dispatch?
|
||
bne.s @noNeedToMunge ; If not, leave ioTrap alone
|
||
|
||
and.b #$0F,ioTrap(a0) ; Leave only modifier bits
|
||
move.b d0,ioTrap+1(a0) ; Store trap index in low byte
|
||
|
||
@NoNeedToMunge:
|
||
rts
|
||
endproc
|
||
|
||
;_____________________________________________________________________________________
|
||
;
|
||
; UnMungeTrapWord ioTrap(a0) -> d0 and d1
|
||
;
|
||
; Function
|
||
; Expand the trap word in ioTrap(a0) into its original dispatch trap
|
||
; word (in d1) and leave the selector in d0. ioTrap is not touched.
|
||
;
|
||
; Note that we're not converting the dispatch selector into a signed byte.
|
||
; The negative value we return is a word, so it's cool to check the word
|
||
; in d0 for negativeness even when we get dispatch selectors > 128.
|
||
; ExtFSErr happens to be the right value when calling toExtFS, so it's the
|
||
; negative number of choice.
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
;
|
||
; Output:
|
||
; a0 - pointer to caller's PB
|
||
; d0.w - dispatch value (for dispatch traps), or #ExtFSErr (for straight traps)
|
||
; d1.w - trap word
|
||
; N - set for straight traps, clear for $Ax60 traps
|
||
;
|
||
; Note:
|
||
; This routine is called by the desktop manager, too.
|
||
;_____________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
UnMungeTrapWord: proc export
|
||
moveq.l #ExtFSErr,d0 ; for straight traps
|
||
move.w ioTrap(a0),d1 ; get munged version of trap word
|
||
bmi.s @Exit ; no need to un-munge if it was an Ax00 trap
|
||
moveq.l #0,d0 ; clear long since we only move a byte
|
||
move.b d1,d0 ; d0 = hfs dispatch code
|
||
clr.b d1 ; clear selector from low byte
|
||
ori.w #$a060,d1 ; merge HFSDispatch trap word with modifiers
|
||
@Exit:
|
||
tst.w d0 ; sets N for straight traps
|
||
rts
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; ExtFSHook patch <9>
|
||
;
|
||
; Grab control at the ExtFSHook to implement patches to CmdDone. We are
|
||
; called after the file system has executed the local attempt at the call
|
||
; and after it has attempted the PMSP.
|
||
;
|
||
; We are currently performing the following steps
|
||
;
|
||
; 1) Run external file systems if necessary (replaces code in ROM)
|
||
; 2) Do check to catch stray selectors
|
||
; 3) Perform MakeFSSpec emulation if necessary
|
||
; 4) Set up the info for the disk switch hook
|
||
; 5) UnTag FCBs on all _Close calls
|
||
; 6) Fix up FCBs on successful _OpenRF calls (details follow)
|
||
; 7) Call completion routines (replaces code in ROM)
|
||
; 8) Check for more calls to dispatch (replaces code in ROM)
|
||
;
|
||
; Calling external file systems is tricky since the AppleShare external file
|
||
; system (and any other peer-to-peer client file systems) dequeue their calls
|
||
; and clear the local file system (to allow peers to send calls to this machine
|
||
; and not get stuck in a deadlock).
|
||
; The rules of calling the external file system chain allow for a single
|
||
; address on top of the stack that the external file system should return
|
||
; to when the call is really complete. Below that the stack belongs to
|
||
; whomever we/the external file system plans to return to during async execution
|
||
; of the call (quite possibly a return address into the file system syncwait loop,
|
||
; but we can't be sure).
|
||
;
|
||
; Figure 1:
|
||
;
|
||
; Top of a7 stack
|
||
; The Command Done Address External file system pop this and jump here when done
|
||
; The Async Context External file systems rts when returning asynchronously
|
||
; (arbitrarily deep)
|
||
; Bottom of a7 stack
|
||
;
|
||
; Since we can save at most one return addresses' worth of context (the one that the
|
||
; external file system will return to when it is done with the call) AND we
|
||
; (this patch) are jsr'ed to from the rom, we would have no way to calling external
|
||
; file systems with the right stack depth. So, we throw away the return address to
|
||
; ROM and replace all of the code that the ROM normally does.
|
||
;
|
||
; Nota Bene:
|
||
; Anyone who hooks onto the ExtFSHook and bsrOlds is guaranteed to break the
|
||
; system since we required the ability to call external file systems from
|
||
; this patch and calling external file systems requires the above-mentioned
|
||
; stack discipline.
|
||
;
|
||
; All of this stack business is why the patches are all at the same subroutine level.
|
||
; Obviously, you can't write a patch that will call external file systems if you
|
||
; are down in a subroutine.
|
||
;
|
||
; See tech note #xxxxx (the exciting tech note of the future about those wacky zany
|
||
; file system hooks)
|
||
;
|
||
; The dirty details about _OpenRF and AdjEof
|
||
;
|
||
; The logic at the end of FOpen (the common data and resource fork opener) has
|
||
; a bug in the code when it syncs up the FCBs of the fork it just opened (which
|
||
; has information from the catalog file record) with any other FCBs (which
|
||
; have information that's been modified by file system calls
|
||
; made since the last flush). The code loops through all FCBs looking
|
||
; for forks on the same volume with the same file number of the same rsrc/data
|
||
; type that aren't the file that was just opened. If it finds one, it calls the
|
||
; AdjEOF subroutine, which forces all FCBs of the same file/fork to have the
|
||
; the same file positioning information. The bug is that the check for "same
|
||
; fork" is flawed. It loads D3 with a WORD sized value when extracting the
|
||
; FCBMdRByt field from the new FCB, but uses it as a byte when comparing it to
|
||
; the FCBMdRByt field of other FCBs. This means it is using the byte after
|
||
; FCBMdRByt, which is FCBTypByte. FCBTypByte happens to always be zero in HFS
|
||
; (type is an MFS concept). A zero in the fork flag () of FCBTypByte means
|
||
; "data fork", so data fork opens act correctly. Of course, resource fork opens
|
||
; do not. We make up for it in this patch to OpenRF.
|
||
;
|
||
; •• What about the fact that a resource file will always look like a data
|
||
; fork to the ROM's confused FCB synchronizer?
|
||
;
|
||
; Inputs:
|
||
; d0.w - result code from current file manager call input to toExtFS hook
|
||
; d1.l - (on Open calls only) points to a free fcb input to toExtFS hook
|
||
; a0.l - caller's pb input to toExtFS hook
|
||
; a3.l - possible pointer to WDCB input to toExtFS hook
|
||
;
|
||
; Register usage:
|
||
; We can trash only interrupt regs (d0-d3/a0-a3).
|
||
;
|
||
; According to the unpublished IM Vol. IV chap (21), external file systems
|
||
; can trash only d1/d2/a0/a1
|
||
;
|
||
; But, old versions of XFS (CD-ROM, ISO-9660) trash D4, HFSStkPtr and any other
|
||
; side effects of calling the disk cache (though it points a6 at its own
|
||
; space).
|
||
;
|
||
; As far as we know, none of the external file systems use the memory
|
||
; below HFSStkTop^ for their own use.
|
||
;
|
||
; When you enter command done, registers d0-d3/a0-a3 are protected and
|
||
; are available for File System use. d0/d1/a0/a3 are input parameters to
|
||
; the external file system chain.
|
||
;
|
||
; About the #NoMacDskErr bug: We assume that it is fixed in a patch that is
|
||
; called before this patch is.
|
||
;
|
||
; Reentrancy:
|
||
; The AppleShare client file system causes this code to be reentered. When
|
||
; AppleShare decides to derail a call (because it is heading to an external
|
||
; volume that might be on a peer of this machine) it remembers the return
|
||
; address (as it should) but removes the PB from the front of the FSQueue
|
||
; and clears the FSBusy word (which it really shouldn't). Since the File
|
||
; System isn't busy, other calls will be processed (and come through here
|
||
; as they complete). At some arbitrary time in the future AppleShare will
|
||
; finish the transaction with the external volume and will (after kindly
|
||
; making sure that the File System isn't busy) jump back to the return
|
||
; address that it remembered long ago. This means that we can't save any
|
||
; state above the call to external file systems that we'll want after they
|
||
; return.
|
||
;________________________________________________________________________________
|
||
; This routine was copied into FileMgrHooks.a <SM1>
|
||
ExtFSHookPatch: proc
|
||
import QMEnqueue, ExternalMakeFSSpec, GetOffFSQueue
|
||
import FSDispatchRequest, CallWithRegistersPreserved
|
||
|
||
addq.w #4,sp ; throw away the return address
|
||
|
||
; Run external file systems if we need to (ExtFSErr, or any error with _MountVol)
|
||
|
||
cmp.w #ExtFSErr,d0 ; Pass request on to external FS's?
|
||
bne.s @1 ; if not, check for NoMacDskErr <25>
|
||
cmp.w #$A00F,ioTrap(A0) ; _MountVol could return "ExtFSErr" <25>
|
||
beq.s @3 ; yes, it is _MountVol <25>
|
||
bra.s @CallExternals ; No, never mind <25>
|
||
@1
|
||
cmp.w #NoMacDskErr, d0 ; Did we fail a MountVol?
|
||
bne.s @DoneWithExternals ; if not, move on
|
||
@3 clr.l ReqstVol ; Force 'No VCB' for this call
|
||
|
||
@CallExternals:
|
||
move.l FSQHead, a0 ; grab current pb
|
||
cmp.w #FSQType, ioType(a0) ; better be one of ours
|
||
bne toDSFSErr ; or end the ballgame
|
||
|
||
move.l d1, d2 ; save possible FCB pointer
|
||
bsr UnMungeTrapWord ; get trap word (d1) and dispatch or #ExtFSErr (d0)
|
||
move.w d1, ioTrap(a0) ; set trap word
|
||
|
||
;; If this an A060 call, then D0.W = selector. After we call ext FS, D0 is trashed, <25>
|
||
;; So we need to save it somewhere for FSM foreign file systems. <25>
|
||
;; This selector can only be used (by FSM) if old ext FS don't handle the call, <25>
|
||
;; because cmdDone is now reentered. <25>
|
||
movea.l FSVarsPtr, A1 ; A1 = ptr(FSVars block) <25>
|
||
move.w D0,FSVars.FSSelector(A1); Save trap word or HFS selector for FSM <25>
|
||
bpl.s @5 ; D0 is HFS selector <25>
|
||
move.w D1,FSVars.FSSelector(A1); else, save trap word for FSM <25>
|
||
@5
|
||
move.l d2, d1 ; restore possible FCB pointer <25>
|
||
move.l toExtFS, d2 ; Grab the current external file system chain
|
||
cmp.l MinusOne, d2 ; Is there anyone on it?
|
||
beq.s @TryFSM ; No? Go check FSM <25>
|
||
movea.l d2, a1 ; move vector to jsr'able register
|
||
;; The story about TOPS. It takes selector as a long word, <25>
|
||
;; so we have to do the following to fix their bug. <25>
|
||
ext.l d0 ; make it a long <25>
|
||
|
||
jsr (a1) ; call external file system(s) (which remunge the trap word)
|
||
tst.w d0 ; test the result from the external file systems
|
||
beq.s @DoneWithExternals ; if error = 0, someone handled the call <25>
|
||
bpl.s @TryFSM ; if d0 > 0, then no one handled the call, so Try FSM.
|
||
; < 0 could be #extFSErr which means nobody handled the call, or a "real" error
|
||
; AccessPC returns memFullErr for other FS on a _MountVol call, what should we do? <25>
|
||
cmp.w #extFSErr,D0 ; is it extFSErr? <25>
|
||
bne.s @DoneWithExternals ; if not, someone handled the call <25>
|
||
|
||
@TryFSM ; done with the old FnFS, give FSM a chance <25>
|
||
movea.l FSVarsPtr, A1 ; A1 = ptr(FSVars block) <25>
|
||
move.l FSVars.FSMHook(A1),D2 ; is FSM there? <25>
|
||
beq.s @noFSM ; no, all done <25>
|
||
movea.l D2,A1 ; vector to call <25>
|
||
move.l FSQHead, a0 ; old ext FS may trashed A0 <26>
|
||
jsr (A1) ; call FSM external file system(s) <25>
|
||
tst.w D0 ; any error? <25>
|
||
beq.s @DoneWithExternals ; if error = 0, someone handled the call <25>
|
||
cmp.w #extFSErr,D0 ; is it extFSErr? <40>
|
||
bne.s @DoneWithExternals ; if not, someone handled the call <40>
|
||
@noFSM
|
||
bsr UnMungeTrapWord ; get trap word (d1) and dispatch or #ExtFSErr (d0)
|
||
bsr ExtFSCatchAll ; catch the UnknownCall dispatch that nobody took
|
||
@DoneWithExternals:
|
||
move.l FSQHead, a0 ; grab current pb <46>
|
||
|
||
; Our first patch: MakeFSSpecEmulation
|
||
;
|
||
; Function
|
||
; Check to see if a MakeFSSpec call came back from an external file
|
||
; system which didn't implement MakeFSSpec. If so, emulate the call.
|
||
;
|
||
; Input:
|
||
; a0 - pointer to caller's PB
|
||
; a1 - pointer to context
|
||
; d0 - error code from current file manager call
|
||
;
|
||
; Output:
|
||
; d0 - error code from external file systems (paramErr if they couldn't handle it)
|
||
; a0 - pointer to caller's PB
|
||
; d2 - trash
|
||
;
|
||
move.w d0, d2 ; save error code in a safe register
|
||
bsr UnMungeTrapWord ; get trap word (d1) and dispatch or #ExtFSErr (d0)
|
||
bmi.s @DoneWithEmulation ; MakeFSSpec isn't a straight trap
|
||
cmp.b #selectMakeFSSpec, d0 ; our selector?
|
||
bne.s @DoneWithEmulation ; not MakeFSSpec, =>
|
||
|
||
cmp.w #paramErr, d2 ; did MakeFSSpec confuse them?
|
||
beq.s @HandleIt ; yes, so let us help
|
||
cmp.w #wrgVolTypErr, d2 ; MakeFSSpec on MFS? <29>
|
||
beq.s @HandleIt ; another job for the compatibility layer <29>
|
||
cmp.w #extFSErr, d2 ; we fear that some external FS's may reply with
|
||
; this error when they don't understand a dispatch
|
||
beq.s @HandleIt ; so emulate on #extFSErrs, too <14>
|
||
cmp.w #wPrErr, d2 ; HACK ALERT. iso-9660 file systems are confused <14>
|
||
bne.s @DoneWithEmulation ; external FS liked it - we're done <14>
|
||
|
||
@HandleIt:
|
||
jsr GetOffFSQueue ; Get a0 (now FSQHead) off FSQueue
|
||
moveq.l #fsCompatQType, d2 ; the compatibility layer queue type/refnum
|
||
bsr QMEnqueue ; get queued up, dispatched to w/CmdDone addr on CL a6 stack
|
||
jsr ExternalMakeFSSpec ; go do the call and return all the way out
|
||
move.l (a6)+, -(sp) ; get completion address from a6 stack
|
||
rts ; jump out of CmdDone, leaving 1 return address on a7
|
||
; Note that the QMgr's completion code kick starts the FS
|
||
@DoneWithEmulation:
|
||
|
||
; --- Here's where to add more patches for routines which may have failed or succeeded.
|
||
|
||
SetDSHookInfo:
|
||
; <35>
|
||
; Check for calls for which we're about to invoke the disk switch hook.
|
||
; Save the VCB pointer and the name pointer for the volume we're trying
|
||
; to recover.
|
||
;
|
||
; This solution has a big hole in it. We only do disk recovery for
|
||
; synchronous calls, but we can no longer check ioTrap to see if a
|
||
; call is synchronous since File Sharing refires sync calls from their
|
||
; scheduler. This means that we have to assume that any call which
|
||
; has failed with a #volOffLinErr should be the one that the disk switch
|
||
; sees. Unfortunately, in between the time we set these variables and the
|
||
; time the disk switch code draws the name a truly async call could come
|
||
; in for an offline volume and cause the wrong name to be drawn.
|
||
cmpi.w #volOffLinErr, d2 ; did we get a volume offline error?
|
||
bne.s @DoneSettingDSHookInfo
|
||
|
||
move.l ReqstVol, a1
|
||
pea.l VCBVN(a1) ; grab the name pointer
|
||
movea.l FSVarsPtr, a1
|
||
move.l ReqstVol, fsVars.dsRecoverVCBPtr(a1) ; remember the volume
|
||
move.l (sp)+, fsVars.dsRecoverNamePtr(a1) ; remember the name of the volume
|
||
bra CallDone
|
||
|
||
@DoneSettingDSHookInfo
|
||
|
||
; All of the patches beneath this label are for calls that worked <20>
|
||
tst.w d2 ; did the call work? <20>
|
||
bne CallDone ; if not, go try another call <20>
|
||
|
||
; patch: UnTagFCBs
|
||
; Registers now:
|
||
; a0 - caller's PB
|
||
; d0 - dispatch or #ExtFSErr
|
||
; d1 - unmunged trap word
|
||
; d2 - error code
|
||
; On all _Close calls, clear the process serial number stored in the
|
||
; parallel FCB array.
|
||
|
||
and.w #$f0ff, d1 ; clear modifier bits from trap word
|
||
cmp.w #$a001, d1 ; was this _Close?
|
||
bne.s @CloseTagDone ; if not, we're done here
|
||
|
||
@CloseAttempted:
|
||
move.w ioRefNum(a0),d0 ; get refNum
|
||
bsr ParallelFCBFromRefnum ; a1 = address of parallel FCB element
|
||
clr.l xFCBPid1(a1) ; clear high long of PSN
|
||
clr.l xFCBPid2(a1) ; clear low long of PSN <20>
|
||
bra CallDone ; go do another call, if necessary
|
||
@CloseTagDone:
|
||
|
||
@UnTagWDCBs: ; do WDCBs the same way we do FCBs <20>
|
||
cmpi.w #selectCloseWD, d0 ; is this a _CloseWD call?
|
||
bne.s @UnTagWDCBsDone
|
||
|
||
move.w ioVRefNum(a0), d0 ; get WDRefNum
|
||
cmp.w #WDRfnMax,d0 ; Is it a VRefNum? <23>
|
||
bhi.s @UnTagWDCBsDone ; vRefNum (i.e. WD's to the root) don't get tagged <23>
|
||
|
||
bsr ParallelWDCBFromRefnum ; a1 = address of parallel WDCB element
|
||
clr.l xWDCBPid1(a1)
|
||
clr.l xWDCBPid2(a1)
|
||
bra CallDone
|
||
@UnTagWDCBsDone:
|
||
|
||
FixFCBSyncOnOpenRF:
|
||
; Fix FCB synchronization on _OpenRF
|
||
; Registers now:
|
||
; a0.l - pb
|
||
; d0 - dispatch or #ExtFSErr
|
||
; d1.w - trap word w/o modifiers
|
||
; d2.w - result code
|
||
;
|
||
; We only need to synchronize on successful local _OpenRF calls.
|
||
; External file systems are responsible for keeping their own FCB marbles in order.
|
||
; (for example, some may not use a unique file number for each fcb)
|
||
; Note that we don't patch _OpenRFDeny because it's not a local FS call.
|
||
|
||
cmp.w #$a00a, d1 ; was this _OpenRF?
|
||
bne.s @DoneCheckingOpenRF ; if not, we're out of here
|
||
|
||
; Make sure this successful _OpenRF was local, and if so fix up FCBs of any other open paths.
|
||
@FixOpenRFRegs reg d2/d4 ; save regs (no i/o 'till we restore these) <20>
|
||
|
||
movem.l @FixOpenRFRegs, -(sp) ; save working registers
|
||
move.l FCBsPtr,a1 ; a1 = fcb array
|
||
move.w ioRefNum(a0),d4 ; d4 = refnum of newly opened RF
|
||
movea.l fcbVptr(a1,d4.w),a2 ; a2 = VCB
|
||
tst.w vcbFSID(a2) ; are we local? <20>
|
||
bne.s @NoOtherPaths ; if not, it's not our problem
|
||
|
||
move.l fcbFlNm(a1,d4),d2 ; d2 = file num
|
||
jsrROM romGt1stMatch ; get an FCB which matches VCB & file num
|
||
|
||
; Now A1 --> FCBs, d1 = refnum of the matching FCB
|
||
@FixOpenRFLoop
|
||
cmp.w d1,d4 ; is it the one that we just got opened?
|
||
beq.s @SawOurselves ; if so, ignore it
|
||
move.b FCBMdRByt(a1,d1),d3 ; mod byte
|
||
btst #fcbRscBit,d3 ; resource fork?
|
||
bne.s @DoAdjust ; Adjust EOF if the forks match
|
||
@SawOurselves:
|
||
jsrROM romGtNxtMatch ; look for another matching fcb
|
||
beq.s @FixOpenRFLoop ; br if match
|
||
bra.s @NoOtherPaths ; don't adjust if we're the only path
|
||
|
||
@DoAdjust:
|
||
bsr adjEOF ; Make our new FCB match old wise one
|
||
move.b d3,FCBMdRByt(a1,d1) ; don't let AdjEOF change dirty bit
|
||
|
||
@NoOtherPaths:
|
||
movem.l (sp)+,@FixOpenRFRegs ; error code d0 and param a0 unchanged
|
||
@DoneCheckingOpenRF:
|
||
|
||
; --- Here's where to add more patches for routines which succeed
|
||
|
||
if 0 then ; you might want this if you add patches
|
||
bra.s CallDone
|
||
endif
|
||
|
||
; The current call is now done.
|
||
CallDone:
|
||
|
||
; Check to see if there’s another call to execute.
|
||
move sr, -(sp) ; save interrupt state <27Aug85>
|
||
ori #HiIntMask, sr ; only debug interrupts allowed
|
||
clr.w FSBusy ; we're not busy anymore
|
||
|
||
; delete the current request from the queue and post any completion routines
|
||
|
||
move.l FSQHead,a0 ; a0 -> current request
|
||
cmp.w #FSQType,IOType(a0) ; it better be an I/O queue element
|
||
bne toDSFSErr ; or else die
|
||
move.l qLink(a0),FSQHead ; get next request, if any
|
||
bne.s @CallCompletion ; branch if queue not empty <27Aug85>
|
||
clr.l FSQTail ; clear tail ptr, too
|
||
|
||
@CallCompletion: ; <27Aug85>
|
||
move (sp)+,sr ; restore interrupt state
|
||
move.w d2,IOResult(a0) ; post error code
|
||
move.w d2,d0 ; put result code into d0 <21>
|
||
|
||
move.l ioCompletion(a0),d1 ; is there a completion routine?
|
||
beq.s @DispatchNext ; skip if there's not <27Aug85>
|
||
|
||
move.l d1,a1 ; get the completion routine address
|
||
jsr (a1) ; call completion routine
|
||
|
||
@DispatchNext:
|
||
move sr,-(sp) ; save interrupt state
|
||
ori #HiIntMask,sr ; only debug interrupts allowed
|
||
tst.l FSQHead ; is a command pending?
|
||
beq.s @Done
|
||
|
||
bset.b #fsBusyBit, FSBusy ; make sure the file system is marked busy
|
||
bne.s @Done ; if it was already busy, we can return asynchronously
|
||
move.w (sp)+,sr ; restore interrupt state
|
||
|
||
lea.l FSDispatchRequest,a0 ; our dispatcher’s entry point <48>
|
||
jmp CallWithRegistersPreserved ; call it <48>
|
||
|
||
@Done:
|
||
move.w (sp)+,sr ; restore interrupt state and return
|
||
rts
|
||
|
||
toDSFSErr:
|
||
moveq.l #DSFSErr,d0
|
||
_SysError
|
||
|
||
; AdjEOF -- Call through the jAdjEOF vector
|
||
AdjEOF:
|
||
move.l jAdjEOF,-(sp) ; jumptable entry for vAdjEOF
|
||
rts ; go there
|
||
|
||
endproc
|
||
|
||
|
||
;________________________________________________________________________________________________
|
||
; BasicIO
|
||
;
|
||
; Routine for all I/O from the File Manager
|
||
;
|
||
;________________________________________________________________________________________________
|
||
; Rolled into CacheIO.a for SuperMario <SM1> FM
|
||
|
||
PatchBasicIO PatchProc jBasicIO
|
||
|
||
MOVE.L A6,HFSStkPtr ; save stack ptr
|
||
|
||
IF HFSDebug THEN
|
||
TST.W IODrvNum(A0) ; should never be zero
|
||
BNE.S @1 ; br if not
|
||
_HFSDebug $421
|
||
|
||
@1 MOVE.L HFSStkTop,D0 ; check for stack overflow
|
||
SUBI.L #HFSStkLen,D0 ;
|
||
CMP.L A6,D0 ;
|
||
BLE.S @2 ; ok ->
|
||
_HFSDebug HFSStkOvf
|
||
@2
|
||
ENDIF
|
||
|
||
; To prevent stack buildup from successive ,ASYNC calls to a synchronous driver
|
||
; (where the completion routine is normally already run before the ,ASYNC trap
|
||
; returns), the I/O completion routine returns prematurely if the trap hasn't
|
||
; completed yet (indicated by the state of the HFSContd flag). This flag is set
|
||
; immediately when the trap returns (although this is not in any way time-
|
||
; critical). The completion routine checks the flag and returns if it's clear,
|
||
; after setting the flag. When the code following the ,ASYNC trap is executed
|
||
; and finds the flag already set, it corrects for the completion routine's
|
||
; premature return and actually BRANCHES straight to the completion routine,
|
||
; with the stack back at its original level.
|
||
;
|
||
; Note that the use of a single flag bit only works because the file system is
|
||
; single-threaded: no new call can be started before this call is completed,
|
||
; and hence there are only two places where the flag can be affected: following
|
||
; the trap and in the completion routine for that same trap.
|
||
|
||
; read/write the disk block
|
||
|
||
TST.B FSCallAsync ; was FS call async? <01Oct85>
|
||
BNE.S rwAsync ; br if so (keep it that way) <01Oct85>
|
||
TST.B D1 ; 'read' operation?
|
||
BNE.S @3 ; no, must be a 'write' ->
|
||
|
||
_Read ; read it synchronously <01Oct85>
|
||
BRA.S RWCont1 ; then continue <01Oct85>
|
||
|
||
@3 _Write ; write it synchronously <01Oct85>
|
||
BRA.S RWCont1 ; then continue <01Oct85>
|
||
|
||
rwAsync
|
||
LEA RWIOComp,A1 ; IO completion address
|
||
MOVE.L A1,IOCompletion(A0) ;
|
||
|
||
BCLR #HFSContd,HFSFlags ; Clear 'premature-continuation' flag
|
||
|
||
TST.B D1 ; 'read' operation?
|
||
BNE.S @1 ; no, must be a 'write' ->
|
||
|
||
_Read ,ASYNC ; read it asynchronously
|
||
BRA.S @2 ;
|
||
|
||
@1 _Write ,ASYNC ; write it asynchronously
|
||
|
||
@2 BEQ.S @3 ; br if no immediate error <02Oct85>
|
||
TST.W IOResult(A0) ; immediate error? for sure? <02Oct85>
|
||
BLE.S RWCont ; br if so (otherwise, driver just <02Oct85>
|
||
; passed back some garbage . . .)
|
||
@3 BSET #HFSContd,HFSFlags ; We're now returning from the trap
|
||
BNE.S RWCont1 ; If we already returned, do I/O comp. now <15Sep86>
|
||
|
||
RWRTS RTS ; return to caller (complete asynchronously)
|
||
|
||
; IO completion routine
|
||
|
||
RWIOComp
|
||
BSET #HFSContd,HFSFlags ; We're continuing now
|
||
BEQ.S RWRTS ; If trap didn't really return ,ASYNC
|
||
; ... then RTS now (we'll be back)
|
||
RWCont
|
||
MOVEM.L D4-D7/A4-A6,-(SP) ; preserve non-interrupt registers
|
||
PEA RWCont2 ; return to here to restore regs
|
||
|
||
RWCont1
|
||
MOVEA.L HFSStkPtr,A6 ; Recover HFS' private stack pointer <01Oct85>
|
||
MOVEM.L (A6)+,D1-D7/A0-A5 ; Retrieve registers off A6 stack <01Oct85>
|
||
MOVE.L (A6)+,-(SP) ; pop ret address off HFS stack <01Oct85>
|
||
|
||
TST.W D0 ; any errors? <01Oct85>
|
||
BEQ.S @1 ; br if not <01Oct85>
|
||
CMP.W #OffLinErr,D0 ; Offline? <09Sep85>
|
||
BEQ.S @1 ; br if so <10Sep85>
|
||
|
||
cmp.w #notEnoughMemoryErr, d0 ; was VM able to hold down enough physical memory? <52>
|
||
beq.s @1 ; send this error throught <52>
|
||
MOVE.W D0,FSIOErr ; save original error for debugging <01Oct85>
|
||
MOVEQ #IOErr,D0 ; transform it to generic IO error <01Oct85>
|
||
@1 TST.W D0 ; set up condition codes <15Sep86>
|
||
RTS ; return to caller with error code <01Oct85>
|
||
|
||
RWCont2 MOVEM.L (SP)+,D4-D7/A4-A6 ; restore the registers <01Oct85>
|
||
RTS ; we're done with it! <01Oct85>
|
||
endproc
|
||
|
||
|
||
; ________________________________________________________________________________________________
|
||
; TruncateFile: This come from patch fixes a bug for FClose in TFSRfn2.a
|
||
;
|
||
; The bug:
|
||
; FClose, which calls TruncateFile, doesn't call AdjEOF to synchronize
|
||
; the extent information for the FCB which it just changed with other open
|
||
; paths to the same fork.
|
||
;
|
||
; Since TruncateFile releases blocks by marking them free in the volume's allocation
|
||
; bitmap, they become available for allocation to other forks. If this happens
|
||
; before the other paths are closed blocks will be mapped to more than one fork,
|
||
; trashing at least one of them.
|
||
;
|
||
; The fix:
|
||
; Patch TruncateFile to do nothing if called from FClose when we find more
|
||
; than one open path to a fork. Since no truncation occurs, there's no need
|
||
; to synchronize FCBs. This has the added advantage of leaving the extra
|
||
; clump on writable forks until the last one is closed.
|
||
;
|
||
; Input (from ROM):
|
||
; A2.L - VCB pointer
|
||
; A1.L - pointer to FCB array
|
||
; D1.W - file refnum
|
||
;
|
||
; Output: We either jump to TruncateFile in ROM, or return to caller (ie. FClose).
|
||
; TruncateFile returns an error code, so when we bail we return noErr.
|
||
; All registers preserved.
|
||
;
|
||
; Note: TruncateFile is only called by FClose when the path being closed is dirty and
|
||
; modifiable. If there are several read-only paths and a single writable path we won't
|
||
; truncate the file if the writable file is not the last one closed. This results
|
||
; in the file having at most an extra clump allocated to it.
|
||
;
|
||
; FClose is called to both close files and to flush them. Since the call
|
||
; to TruncateFile is made from the same place for both paths through FClose,
|
||
; we'll trigger on both _Close and _FlushFile.
|
||
;
|
||
; Modification History:
|
||
; 11Dec90 KST New today.
|
||
; 03Mar90 dnf/bb Add check for data vs. resource fork
|
||
; ________________________________________________________________________________________________
|
||
; rolled in for SuperMario <SM1> FM
|
||
; Added an AdjEOF call to FClose (TFSRFN2.a)
|
||
|
||
|
||
AfterTruncateFile ROMBind (Plus,$51E8),(SE,$6C94),(II,$0A74E),(Portable,$0C0F4),(IIci,$11B0C)
|
||
|
||
DontTruncateMultiForks ComeFromPatchProc $A0DB,,(Plus,SE,II,Portable,IIci) ; <11Dec90 #17>
|
||
|
||
@Regs reg d1-d4 ; <44>
|
||
|
||
cmpROM AfterTruncateFile,(SP) ; do the comparison ourself <11Dec90 #17>
|
||
bneOld ; not from FClose <11Dec90 #17>
|
||
|
||
; Look for other paths to the same fork as the one being closed.
|
||
MOVEM.L @Regs,-(SP) ; save input parameters <11Dec90 #17>
|
||
MOVE.W D1,D3 ; D3.W = our FCB <11Dec90 #17>
|
||
MOVE.L FCBFlNm(A1,D3.W),D2 ; D2.L = our file number <11Dec90 #17>
|
||
move.b fcbMdRByt(a1,d3.w),d4 ; d4.b = our fork's misc info <44>
|
||
|
||
jsrROM GT1STFCB ; get (A1,D1) pointing to first FCB <11Dec90 #17>
|
||
@1 CMP.W D1,D3 ; same FCB? <11Dec90 #17>
|
||
BEQ.S @3 ; skip ourself if it is <11Dec90 #17>
|
||
CMP.L FCBFlNm(A1,D1),D2 ; file numbers match? <11Dec90 #17>
|
||
BNE.S @3 ; no <11Dec90 #17>
|
||
CMP.L FCBVPtr(A1,D1),A2 ; on the same volume? <11Dec90 #17>
|
||
bne.s @3 ; no <44>
|
||
move.b fcbMdRByt(a1,d1.w),d0 ; grab this fork’s kind <44>
|
||
eor.b d4,d0 ; see how it compares against ours <44>
|
||
btst.l #fcbRscBit,d0 ; are we the same? <44>
|
||
beq.s @7 ; if so, then there's another open path <44>
|
||
@3 jsrROM GTNXTFCB ; get next one until we run out <11Dec90 #17>
|
||
BCS.S @1 ; continue if more <11Dec90 #17>
|
||
|
||
; No second open path found, so do the truncate
|
||
MOVEM.L (SP)+,@Regs ; restore regs and <11Dec90 #17>
|
||
jmpOld ; continue <11Dec90 #17>
|
||
|
||
; A second path was found, so return #noErr and skip the truncation
|
||
@7 MOVEM.L (SP)+,@Regs ; restore regs and <11Dec90 #17>
|
||
moveq.l #noErr,d0 ; we did nothing, but quite successfully
|
||
RTS ; leave <11Dec90 #17>
|
||
|
||
ENDPROC
|
||
|
||
|
||
; <2.3 kst>
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: Catalog Btree writecount patch
|
||
;
|
||
; Function: This patch keeps a writecount of operations to the catalog.
|
||
; By: Kenny Tung
|
||
; Copyright © 1989-90 Apple Computer, Inc.
|
||
;
|
||
; Revision History:
|
||
; 16Aug89 KSCT New today.
|
||
;________________________________________________________________________________
|
||
; The writecount patches have been rolled into BTSvcs.a <SM1> FM
|
||
|
||
;__________________________________________________________________________________
|
||
;
|
||
; Routine: BTOpenPatch
|
||
; Function: Allocate a larger BTCB and init the write count.
|
||
; Input: D0.W - file refnum
|
||
; A0.L - pointer to key compare routine
|
||
; A1.L - pointer to cache queue
|
||
; Output: D0.W - result code
|
||
; 0 = ok
|
||
; -n = FS Open error
|
||
;__________________________________________________________________________________
|
||
BTWCount proc
|
||
|
||
export BTOpenPatch, BTInsertPatch, BTDeletePatch
|
||
|
||
GetBlock: ; for RAM patch <2.3 kst>
|
||
MOVE.L jGetBlock,-(SP) ; jumptable entry for vGetBlock <02Oct85>
|
||
RTS ; go there
|
||
|
||
RelBlock: MOVE.L jRelBlock,-(SP) ; jumptable entry for vRelBlock
|
||
RTS ; go there
|
||
|
||
BTOpenPatch
|
||
MOVE.L (SP)+,-(A6) ; save return address on A6 stack
|
||
MOVEM.L D1-D5/A0-A4,-(A6) ; save regs
|
||
MOVE.W D0,D3 ; D3 = file refnum
|
||
MOVE.L A0,D4 ; D4 = ptr(key compare routine)
|
||
MOVE.L A1,D5 ; D5 = cache queue ptr
|
||
;
|
||
; allocate and initialize a BTCB
|
||
;
|
||
MOVE.L #lenBTCB70,D0 ; allocate space for BTCB
|
||
_NewPtr sys, clear
|
||
BNE BOExit1 ; couldn't get it ->
|
||
MOVEA.L A0,A4 ; A4 = BTCB ptr
|
||
|
||
MOVEA.L FCBSPtr,A3 ; A3 = start of FCB array
|
||
MOVE.L A4,FCBBTCBptr(A3,D3.W) ; set BTCB ptr in FCB
|
||
|
||
MOVE.W D3,BTCRefNum(A4) ; set refnum
|
||
MOVE.L D4,BTCKeyCR(A4) ; set ptr(key compare routine)
|
||
MOVE.L D5,BTCCQptr(A4) ; set ptr to cache queue
|
||
;
|
||
; get BTH from disk
|
||
;
|
||
MOVE.W D3,D0 ; file refnum
|
||
MOVEA.L D5,A1 ; cache queue ptr
|
||
MOVEQ #0,D1 ; no GetBlock options <14Oct85>
|
||
MOVEQ #0,D2 ; BTH is block 0
|
||
JSR GetBlock ; get the block
|
||
BNE.S BOExit1 ; couldn't get it ->
|
||
MOVEA.L A0,A2 ; A2 = cache buffer ptr
|
||
;
|
||
; make sure the BTree header node is ok
|
||
;
|
||
BOChkHdr
|
||
LEA lenND(A2),A0 ; A0 = ptr to BTH
|
||
MOVE.W BTHNodeSize(A0),D0 ; node size
|
||
BEQ.S BOBadHdr ; node size = 0, error ->
|
||
MOVE.W D0,D1 ;
|
||
ANDI.W #$1FF,D1 ;
|
||
BNE.S BOBadHdr ; node size not 512 multiple, error ->
|
||
|
||
MOVE.L FCBPLen(A3,D3.W),D2 ; physical length
|
||
DIVU D0,D2 ; physical length / node size
|
||
SWAP D2 ; = # of nodes
|
||
CLR.W D2 ;
|
||
SWAP D2 ;
|
||
CMP.L BTHNNodes(A0),D2 ; same # as in BTH?
|
||
BNE.S BOBadHdr ; no, error ->
|
||
CMP.L BTHFree(A0),D2 ; free count < # of nodes?
|
||
BLO.S BOBadHdr ; no, error ->
|
||
SUBQ.L #1,D2 ; D2 = max node #
|
||
|
||
CMPI.B #BTMaxDepth,BTHDepth(A0) ; tree depth <= max?
|
||
BHI.S BOBadHdr ; no, error ->
|
||
|
||
CMP.L BTHRoot(A0),D2 ; root node # <= max?
|
||
BLO.S BOBadHdr ; no error ->
|
||
|
||
CMP.L BTHFNode(A0),D2 ; 1st leaf node # <= max?
|
||
BLO.S BOBadHdr ; no error ->
|
||
|
||
CMP.L BTHLNode(A0),D2 ; last node # <= max?
|
||
BHS.S BOCpyBTH ; yes ->
|
||
BOBadHdr
|
||
MOVEQ #BTBadHdr,D0 ; result = 'bad header node' <14Oct85>
|
||
BRA.S BOExit ; ->
|
||
;
|
||
; copy BTH into BTCB
|
||
;
|
||
BOCpyBTH
|
||
MOVE.W #LenMemBTH-1,D0 ; loop index
|
||
LEA lenND(A2),A0 ; ptr(source)
|
||
LEA BTCDepth(A4),A1 ; ptr(dest)
|
||
@1 MOVE.B (A0)+,(A1)+ ; move it
|
||
DBRA D0,@1 ; ...in
|
||
|
||
MOVE.L #WCSigLong,BTCWcount(A4) ; set write count
|
||
|
||
CLR.W D0 ; result = 'ok'
|
||
;
|
||
; release header block and exit
|
||
;
|
||
BOExit
|
||
MOVE.W D0,-(A6) ; save result code
|
||
MOVEA.L D5,A1 ; cache queue ptr
|
||
MOVEQ #0,D1 ; release 'clean' <14Oct85>
|
||
MOVEA.L A2,A0 ; cache buffer ptr
|
||
|
||
JSR RelBlock ; release it
|
||
BEQ.S @1 ; ok ->
|
||
MOVE.W D0,(A6) ; replace previous result code
|
||
@1 MOVE.W (A6)+,D0 ; restore result code
|
||
BOExit1
|
||
MOVEM.L (A6)+,D1-D5/A0-A4 ; restore regs
|
||
MOVE.L (A6)+,-(SP) ; put return address back on stack
|
||
TST.W D0 ; set condition codes
|
||
RTS ; exit BTOpen
|
||
|
||
;__________________________________________________________________________________
|
||
; Routine: BTInsertPatch
|
||
; Function: Increment the Write Count if B*Tree has changed
|
||
;__________________________________________________________________________________
|
||
ExtBTFile: MOVE.L jExtBTFile,-(SP)
|
||
RTS
|
||
|
||
AllocNode: MOVE.L jAllocNode,-(SP)
|
||
RTS
|
||
|
||
MarkBlock: MOVE.L jMarkBlock,-(SP)
|
||
RTS
|
||
|
||
GetNode: MOVE.L jGetNode,-(SP)
|
||
RTS
|
||
|
||
RelNode: MOVE.L jRelNode,-(SP)
|
||
RTS
|
||
|
||
BTInsertPatch
|
||
|
||
MOVE.L (SP)+,-(A6) ; save return address on A6 stack
|
||
|
||
MOVEM.L D1/D3-D7/A0-A4,-(A6) ; save registers
|
||
|
||
JSRRom romLocBTCB ; locate BTCB
|
||
|
||
MOVE.L A1,D7 ; D7 = ptr(record)
|
||
MOVE.W D1,D6 ; D6 = size of record
|
||
MOVE.L A0,D5 ; D5 = ptr(key)
|
||
;
|
||
; make sure there is enough file space for a worst case split
|
||
;
|
||
|
||
MOVEQ #1,D3 ; required space (in nodes) =
|
||
ADD.W BTCDepth(A4),D3 ; tree depth + 1
|
||
CMP.L BTCFree(A4),D3 ; enough space?
|
||
BLE.S BIInit ; yes ->
|
||
|
||
@1 JSR ExtBTFile ; extend the file
|
||
BNE BIExit2 ; couldn't do it ->
|
||
|
||
CMP.L BTCFree(A4),D3 ; enough space now?
|
||
BGT.S @1 ; no ->
|
||
;
|
||
; initialize some things
|
||
;
|
||
BIInit
|
||
MOVE.W BTCRefNum(A4),D0 ; set up common stuff
|
||
jsrROM romBTSetUp ;
|
||
|
||
MOVEM.L D6/D7,-(A6) ;save input record size and ptr
|
||
|
||
MOVEQ #0,D4 ; indicate no parent node buffer <29Aug85>
|
||
SUBA.L A2,A2 ; ...no left node buffer
|
||
SUBA.L A3,A3 ; ...no right node buffer
|
||
|
||
CLR.L BTCNodeM(A4) ; invalidate current node mark
|
||
;
|
||
; build BTree record consisting of input key with a junk data record
|
||
;
|
||
MOVEA.L BTCVarPtr(A4),A1 ; dest = record buffer
|
||
LEA BTVRecord(A1),A1 ;
|
||
MOVEA.L D5,A0 ; source = input key
|
||
MOVEQ #0,D0 ; get key length
|
||
MOVE.B (A0),D0 ;
|
||
ADDQ.L #2,D0 ; include length byte
|
||
LSR.L #1,D0 ;
|
||
LSL.L #1,D0 ; ...and adjust to word boundry
|
||
ADD.W D0,D6 ; total size = key size + data size
|
||
_BlockMove ; move in the key
|
||
|
||
ADDQ.W #1,D6 ; adjust total size to word boundry
|
||
LSR.W #1,D6 ;
|
||
LSL.W #1,D6 ;
|
||
MOVE.L A1,D7 ; D7 = ptr(Btree record)
|
||
;
|
||
; search tree for key
|
||
;
|
||
BISearch
|
||
JSRRom romTreeSearch ; search for key
|
||
MOVEA.L A1,A3 ; A3 = ptr(right node buffer)
|
||
BNE.S @1 ; key not found or error ->
|
||
MOVEQ #BTexists,D0 ; error, it already exists <14Oct85>
|
||
BRA BIExit1 ; exit ->
|
||
@1 CMP.W #BTnotfound,D0 ; key not found ?
|
||
BNE BIExit1 ; no, must be IO error ->
|
||
MOVE.L D2,D3 ; D3 = right node number
|
||
MOVE.W D1,D5 ; D5 = insert index
|
||
;
|
||
; if tree is empty, add 1st leaf node
|
||
;
|
||
TST.W BTCLevel(A4) ; tree empty ?
|
||
BGT.S BIInsert ; no ->
|
||
|
||
MOVE.W BTCRefNum(A4),D0 ; file refnum
|
||
JSR AllocNode ; allocate the node
|
||
BNE BIExit1 ; error ->
|
||
|
||
MOVE.L D1,D3 ; D3 = new node number
|
||
|
||
JSRRom romInitNode ; get an initialized node
|
||
BNE BIExit1 ; error -> <18Dec85>
|
||
MOVEA.L A0,A3 ; A3 = ptr(new root node)
|
||
|
||
MOVE.B #NDLeafNode,NDType(A3) ; type = leaf node
|
||
MOVEQ #1,D0 ; node height = 1
|
||
MOVE.B D0,NDNHeight(A3) ;
|
||
|
||
MOVE.W D0,BTCDepth(A4) ; tree depth = 1
|
||
MOVE.L D3,BTCRoot(A4) ; new root node number
|
||
|
||
MOVE.L D3,BTCFNode(A4) ; 1st and last node pointers
|
||
MOVE.L D3,BTCLNode(A4) ;
|
||
|
||
MOVE.W #1,BTCLevel(A4) ; current level = 1
|
||
;
|
||
; try a simple insert first
|
||
;
|
||
BIInsert
|
||
MOVEA.L D7,A0 ; ptr(record)
|
||
MOVE.W D6,D0 ; record size
|
||
MOVEA.L A3,A1 ; ptr(node buffer)
|
||
MOVE.W D5,D1 ; insert index
|
||
JSRRom romInsertRec ; try to insert it
|
||
BNE.S BIRotate ; didn't make it ->
|
||
|
||
TST.W D5 ; insert a new 1st record ?
|
||
BNE.S BIInsDone ; no, insert complete ->
|
||
BSET #BTCKeyUpd,BTCFlags(A4) ; indicate key update required
|
||
BRA.S BIInsDone ; insert complete ->
|
||
;
|
||
; insert didn't work, try rotation into left sibling node
|
||
;
|
||
BIRotate
|
||
MOVEA.L A3,A0 ; ptr(node buffer)
|
||
JSRRom romGetLtSib ; get left sibling node
|
||
BNE BIExit1 ; error ->
|
||
TST.L D1 ; is there a left sibling ?
|
||
BEQ.S BISplit ; no ->
|
||
MOVE.L D1,D2 ; D2 = left node number
|
||
MOVEA.L A1,A2 ; A2 = ptr(left node buffer)
|
||
|
||
MOVEA.L D7,A0 ; ptr(record)
|
||
MOVE.W D6,D0 ; record size
|
||
MOVE.W D5,D1 ; insert index
|
||
JSRRom romRotateLt ; try rotating left
|
||
BNE.S BISplit ; didn't make it ->
|
||
BRA.S BISplit1 ; use common code -> <10Oct85>
|
||
;
|
||
; rotate didn't work, got to split
|
||
;
|
||
BISplit MOVEA.L D7,A0 ; ptr(record)
|
||
MOVE.W D6,D0 ; record size
|
||
MOVE.W D5,D1 ; insert index
|
||
JSRRom romSplitLt ; split left
|
||
BEQ.S @1 ; ok ->
|
||
MOVEQ #BTnoFit,D0 ; result = 'no fit' <14Oct85>
|
||
BRA BIExit1 ; exit ->
|
||
|
||
@1 BSET #BTCNewIRec,BTCFlags(A4) ; indicate new index record required <10Oct85>
|
||
|
||
BISplit1 ;<10Oct85>
|
||
BSET #BTCKeyUpd,BTCFlags(A4) ; indicate key update required <10Oct85>
|
||
|
||
MOVE.W D1,D5 ; D5 = new record index <10Oct85>
|
||
|
||
MOVEA.L A2,A0 ; mark the left node dirty <10Oct85>
|
||
JSR MarkBlock ; <10Oct85>
|
||
;
|
||
; completed the record insert, clean up
|
||
;
|
||
BIInsDone
|
||
;; if we get to here the file has changed, even we exit with error from
|
||
;; here on. <8/16/89 KSCT>
|
||
ADDQ.L #1,BTCWcount(A4) ; bump write count <8/16/89 KSCT>
|
||
|
||
MOVEA.L A3,A0 ; mark the right node dirty <10Oct85>
|
||
JSR MarkBlock ; <10Oct85>
|
||
CMPI.B #NDleafNode,NDType(A1) ; leaf level?
|
||
BNE.S BICkDone ; no ->
|
||
|
||
MOVEM.L (A6),A0/D0 ; get input record ptr and size
|
||
JSRRom romUpdDRec ; replace the junk data record
|
||
|
||
ADD.L #1,BTCNRecs(A4) ; bump leaf record count
|
||
|
||
MOVE.W D5,BTCIndexM(A4) ; save index marker
|
||
MOVE.L D3,D0 ; assume right node number
|
||
CMPA.L A3,A1 ; is new record in right node?
|
||
BEQ.S @1 ; yes ->
|
||
MOVE.L D2,D0 ; no, use left node number
|
||
@1 MOVE.L D0,BTCNodeM(A4) ; save node marker
|
||
;
|
||
; Check if all done
|
||
;
|
||
BICkDone
|
||
BTST #BTCKeyUpd,BTCFlags(A4) ; key update required ?
|
||
BNE.S BINxtLev ; yes, move to next level ->
|
||
BTST #BTCNewIRec,BTCFlags(A4) ; new index record required ?
|
||
BEQ BIExit ; no, all done ->
|
||
;
|
||
; move to next level
|
||
;
|
||
BINxtLev
|
||
SUB.W #1,BTCLevel(A4) ; bump to next level up
|
||
BEQ BIRoot ; up to root level ->
|
||
|
||
MOVE.W BTCLevel(A4),D0 ; locate TPR
|
||
JSRRom romLocTPR ; for this level
|
||
MOVE.W TPRRIndx(A0),D5 ; D5 = parent record index
|
||
MOVE.L TPRNodeN(A0),D3 ; D3 = parent node number
|
||
|
||
MOVE.L D2,-(A6) ; save D2
|
||
MOVEQ #0,D1 ; get parent node <10Oct85>
|
||
MOVE.L D3,D2 ;
|
||
JSR GetNode
|
||
BNE BIExit1 ; error ->
|
||
MOVE.L A0,D4 ; D4 = ptr(parent node buffer)
|
||
MOVE.L (A6)+,D2 ; restore D2
|
||
;
|
||
; update parent key
|
||
;
|
||
BIUpdKey
|
||
BTST #BTCKeyUpd,BTCFlags(A4) ; key update required ?
|
||
BEQ.S @1 ; no ->
|
||
|
||
MOVE.W D5,D0 ; locate
|
||
MOVEA.L D4,A1 ;
|
||
JSRRom romGetRecA ; ...parent index record
|
||
MOVE.L A0,-(SP) ; ...and save it
|
||
MOVEA.L A3,A1 ; locate 1st key
|
||
CLR.W D0 ;
|
||
JSRRom romGetRecA ; ...in right node
|
||
MOVEA.L (SP)+,A1 ; ptr(parent index record)
|
||
|
||
JSRRom romUpdIKey ; update the key
|
||
|
||
MOVEA.L D4,A0 ; mark the parent node dirty <10Oct85>
|
||
JSR MarkBlock ; <10Oct85>
|
||
TST.W D5 ; update to 1st key in node ?
|
||
BEQ.S @1 ; yes, leave flag set ->
|
||
BCLR #BTCKeyUpd,BTCFlags(A4) ; don't need to update next level
|
||
|
||
@1 MOVEQ #0,D1 ; release <10Oct85>
|
||
MOVEA.L A3,A0 ;
|
||
JSR RelNode ; ... right node buffer
|
||
MOVEA.L D4,A3 ; parent is new right node
|
||
MOVEQ #0,D4 ; indicate no parent node buffer <29Aug85>
|
||
;
|
||
; build new index record pointing at new left node
|
||
;
|
||
BINewRec
|
||
BTST #BTCNewIRec,BTCFlags(A4) ; new index record required ?
|
||
BEQ.S @1 ; no ->
|
||
|
||
MOVEA.L A2,A1 ; left node
|
||
MOVE.L D2,D0 ; left node number
|
||
JSRRom romBuildIRec ; build index record
|
||
|
||
@1 MOVEQ #0,D1 ; release <10Oct85>
|
||
MOVEA.L A2,A0 ;
|
||
JSR RelNode ; ... left node buffer
|
||
SUBA.L A2,A2 ; indicate no left node
|
||
;
|
||
; set up for insert of new index record
|
||
;
|
||
BTST #BTCNewIRec,BTCFlags(A4) ; new index record required ?
|
||
BEQ BICkDone ; no, check if done ->
|
||
|
||
MOVEA.L BTCVarPtr(A4),A0 ; locate new index record
|
||
LEA BTVRecord(A0),A0 ;
|
||
MOVE.L A0,D7 ; D7 = ptr to new record
|
||
jsrRom romGetMaxKey ; max key length + 4 <10Oct85>
|
||
ADDQ.W #4,D0 ; = size of index record <10Oct85>
|
||
MOVE.W D0,D6 ; D6 = size of new record <10Oct85>
|
||
BCLR #BTCNewIRec,BTCFlags(A4) ; clear new index rec flag
|
||
BRA BIInsert ; insert new index record ->
|
||
;
|
||
; we updated the root, must add a level if it was split
|
||
;
|
||
BIRoot
|
||
BTST #BTCNewIRec,BTCFlags(A4) ; was root node split ?
|
||
BEQ BIExit ; no, all done ->
|
||
;
|
||
; set up a new root index node
|
||
;
|
||
MOVE.W BTCRefNum(A4),D0 ; volume refnum
|
||
JSR AllocNode ; allocate the node
|
||
BNE BIExit1 ; error ->
|
||
|
||
MOVE.L D1,D3 ; D3 = new root node number
|
||
|
||
MOVE.L D3,D1 ; new node number
|
||
jsrRom romInitNode ; get an initialized node
|
||
BNE.S BIExit1 ; error -> <18Dec85>
|
||
MOVE.L A0,D4 ; D4 = ptr(new root node buffer)
|
||
|
||
MOVE.B #NDIndxNode,NDType(A0) ; type = index node
|
||
MOVEQ #1,D0 ; node height
|
||
ADD.W BTCDepth(A4),D0 ; = previous depth +1
|
||
MOVE.B D0,NDNHeight(A0) ;
|
||
;
|
||
; add index record for left node
|
||
;
|
||
MOVEA.L A2,A1 ; build index record
|
||
MOVE.L D2,D0 ;
|
||
jsrRom romBuildIRec ; ...for left node
|
||
|
||
jsrRom romGetMaxKey ; max key length + 4 <10Oct85>
|
||
ADDQ.W #4,D0 ; = size of index record <10Oct85>
|
||
MOVEA.L BTCVarPtr(A4),A0 ; locate new index record
|
||
LEA BTVRecord(A0),A0 ;
|
||
MOVEA.L D4,A1 ; ptr(root node buffer)
|
||
CLR.W D1 ; insert index = 0
|
||
jsrRom romInsertRec ; insert it
|
||
;
|
||
; add index record for right node (previous root)
|
||
;
|
||
MOVE.W #1,D0 ; get node number
|
||
jsrRom romLocTPR ;
|
||
MOVE.L TPRNodeN(A0),D0 ; ...of previous root
|
||
MOVEA.L A3,A1 ; ptr(node buffer)
|
||
jsrRom romBuildIRec ; build index record
|
||
|
||
jsrRom romGetMaxKey ; max key length + 4 <10Oct85>
|
||
ADDQ.W #4,D0 ; = size of index record <10Oct85>
|
||
MOVEA.L BTCVarPtr(A4),A0 ; locate new index record
|
||
LEA BTVRecord(A0),A0 ;
|
||
MOVEA.L D4,A1 ; ptr(root node buffer)
|
||
MOVE.W #1,D1 ; insert index = 1
|
||
jsrRom romInsertRec ; insert it
|
||
|
||
MOVEA.L D4,A0 ; mark the new root node dirty <10Oct85>
|
||
JSR MarkBlock ; <10Oct85>
|
||
; update BTCB
|
||
;
|
||
ADD.W #1,BTCDepth(A4) ; add a level
|
||
MOVE.L D3,BTCRoot(A4) ; new root node number
|
||
;
|
||
; clean up and exit
|
||
;
|
||
BIExit
|
||
BSET #BTCDirty,BTCFlags(A4) ; mark BTCB dirty
|
||
CLR.W D0 ; result = ok
|
||
BIExit1
|
||
MOVE.W D0,-(A6) ; save result code
|
||
|
||
MOVEA.L A2,A0 ; ptr(left node buffer) <23Sep85>
|
||
MOVEQ #0,D1 ; no RelBlock options <10Oct85>
|
||
JSR RelNode ; release it
|
||
MOVEA.L A3,A0 ; ptr(right node buffer) <23Sep85>
|
||
JSR RelNode ; release it
|
||
MOVEA.L D4,A0 ; ptr(parent node buffer) <23Sep85>
|
||
JSR RelNode ; release it
|
||
MOVE.W (A6)+,D0 ; restore result code
|
||
|
||
MOVE.L BTCNodeM(A4),D2 ; return hint (node number)
|
||
CLR.L BTCNodeM(A4) ; invalidate current record markers
|
||
|
||
jsrRom romBTCleanUP ; clean up
|
||
|
||
ADDQ.L #8,A6 ; deallocate saved stuff
|
||
BIExit2
|
||
MOVEM.L (A6)+,D1/D3-D7/A0-A4 ; restore regs
|
||
|
||
MOVE.L (A6)+,-(SP) ; put return address back on stack
|
||
TST.W D0 ; set condition codes
|
||
RTS ; exit BTInsert
|
||
;__________________________________________________________________________________
|
||
; Routine: BTDelete
|
||
;
|
||
; Function: Increment the Write Count if B*Tree has changed
|
||
; <27Mar91> KST Fixing a bug that uses MOVE.W to move a long word.
|
||
;__________________________________________________________________________________
|
||
FreeNode MOVE.L jFreeNode,-(SP)
|
||
RTS
|
||
|
||
BTDeletePatch
|
||
MOVE.L (SP)+,-(A6) ; save return address on A6 stack
|
||
|
||
MOVEM.L D1-D5/A0-A4,-(A6) ; save regs
|
||
;
|
||
; initialize some things
|
||
;
|
||
jsrRom romBTSetUp ; set up common stuff
|
||
|
||
CLR.L BTCNodeM(A4) ; invalidate current node mark
|
||
|
||
SUBA.L A2,A2 ; ...no left node buffer
|
||
SUBA.L A3,A3 ; ...no right node buffer
|
||
;
|
||
; search tree for key
|
||
;
|
||
jsrRom romTreeSearch ; search for key
|
||
MOVEA.L A1,A3 ; A3 = ptr(node buffer)
|
||
BNE BDExit1 ; didn't find it ->
|
||
MOVE.W D1,D5 ; D5 = record index
|
||
;
|
||
; delete record from node
|
||
;
|
||
BDDelete
|
||
MOVEA.L A3,A1 ; ptr(node buffer)
|
||
MOVE.W D5,D1 ; record index
|
||
jsrRom romDeleteRec ; delete it
|
||
|
||
;; No error checking here, so I assume the file has changed. <8/16/89 KSCT>
|
||
ADDQ.L #1,BTCWcount(A4) ; bump write count <8/16/89 KSCT>
|
||
|
||
MOVEA.L A3,A0 ; ptr(node buffer) <10Oct85>
|
||
JSR MarkBlock ; mark it dirty <10Oct85>
|
||
TST.W D5 ; delete 1st record ?
|
||
BNE.S @1 ; no ->
|
||
BSET #BTCKeyUpd,BTCFlags(A4) ; indicate key update required
|
||
|
||
@1 CMPI.B #NDLeafNode,NDType(A3) ; at leaf level?
|
||
BNE.S BDRemove ; no ->
|
||
SUB.L #1,BTCNRecs(A4) ; decrement number of leaf records
|
||
|
||
;
|
||
; unlink the node if the last record was deleted
|
||
;
|
||
BDRemove
|
||
TST.W NDNRecs(A3) ; node empty ?
|
||
BGT BDNxtLev ; no ->
|
||
|
||
MOVEA.L A3,A0 ; ptr(node buffer)
|
||
jsrRom romGetLtSib ; get left sibling node
|
||
BNE BDExit1 ; error ->
|
||
TST.L D1 ; is there a left sibling ?
|
||
BEQ.S @1 ; no ->
|
||
|
||
MOVE.L NDFlink(A3),NDFlink(A1) ; update forward link
|
||
MOVEQ #kRBdirty,D1 ; release <10Oct85>
|
||
MOVEA.L A1,A0 ;
|
||
JSR RelNode ; ...left node buffer
|
||
|
||
@1 MOVEA.L A3,A0 ; ptr(node buffer)
|
||
jsrRom romGetRtSib ; get right sibling node
|
||
BNE BDExit1 ; error ->
|
||
TST.L D1 ; is there a right sibling ?
|
||
BEQ.S BDUpdPtrs ; no ->
|
||
|
||
MOVE.L NDBlink(A3),NDBlink(A1) ; update backward link
|
||
MOVEQ #kRBdirty,D1 ; release <10Oct85>
|
||
MOVEA.L A1,A0 ;
|
||
JSR RelNode ; ...right node buffer
|
||
;
|
||
; update 1st and last node pointers
|
||
;
|
||
BDUpdPtrs
|
||
CMPI.B #NDLeafNode,NDType(A3) ; at leaf level?
|
||
BNE.S BDFree ; no ->
|
||
|
||
TST.L NDBLink(A3) ; backward link = 0?
|
||
BNE.S @1 ; no ->
|
||
MOVE.L NDFlink(A3),BTCFNode(A4) ; yes, update 1st node number
|
||
|
||
@1 TST.L NDFLink(A3) ; forward link = 0?
|
||
BNE.S BDFree ; no ->
|
||
MOVE.L NDBlink(A3),BTCLNode(A4) ; yes, update last node number
|
||
;
|
||
; free the empty node
|
||
;
|
||
BDFree
|
||
MOVEA.L A3,A0 ; clear the empty node <23Sep85>
|
||
jsrRom romClrNode ; <23Sep85>
|
||
|
||
MOVEQ #kRBdirty,D1 ; release <10Oct85>
|
||
JSR RelNode ; ...node buffer
|
||
SUBA.L A3,A3 ; indicate no buffer
|
||
|
||
MOVE.W BTCLevel(A4),D0 ; locate
|
||
jsrRom romLocTPR ; ...TPR
|
||
|
||
MOVE.L TPRNodeN(A0),D1 ; free
|
||
MOVE.W BTCRefNum(A4),D0 ;
|
||
JSR FreeNode ; ...the disk node
|
||
BSET #BTCDelIRec,BTCFlags(A4) ; indicate index record delete
|
||
BCLR #BTCKeyUpd,BTCFlags(A4) ; ...and no key update
|
||
;
|
||
; move to next level
|
||
;
|
||
BDNxtLev
|
||
SUB.W #1,BTCLevel(A4) ; bump to next level up
|
||
BEQ BDRoot ; up to root level ->
|
||
|
||
BTST #BTCKeyUpd,BTCFlags(A4) ; key update required ? <03Sep85>
|
||
BNE.S @1 ; yes -> <03Sep85>
|
||
BTST #BTCDelIRec,BTCFlags(A4) ; index record delete required ? <03Sep85>
|
||
BEQ BDExit ; no, all done -> <03Sep85>
|
||
|
||
@1 MOVE.W BTCLevel(A4),D0 ; locate TPR
|
||
jsrRom romLocTPR ; for this level
|
||
MOVE.W TPRRIndx(A0),D5 ; D5 = parent record index
|
||
MOVE.L TPRNodeN(A0),D2 ; D2 = parent node number
|
||
|
||
MOVEQ #0,D1 ; get parent node <10Oct85>
|
||
JSR GetNode
|
||
BNE BDExit1 ; error -> <20Nov85>
|
||
MOVEA.L A0,A2 ; A2 = ptr(parent node buffer)
|
||
;
|
||
; update parent key
|
||
;
|
||
BDUpdKey
|
||
BTST #BTCKeyUpd,BTCFlags(A4) ; key update required ?
|
||
BEQ.S @1 ; no ->
|
||
|
||
MOVE.W D5,D0 ; locate
|
||
MOVEA.L A2,A1 ;
|
||
jsrRom romGetRecA ; ...parent index record
|
||
MOVE.L A0,-(SP) ; ...and save it
|
||
MOVE.L A3,A1 ; locate 1st key
|
||
CLR.W D0 ;
|
||
jsrRom romGetRecA ; ...in node
|
||
MOVEA.L (SP)+,A1 ; ptr(parent index record)
|
||
|
||
jsrRom romUpdIKey ; update the key
|
||
|
||
MOVEA.L A2,A0 ; ptr(parent node buffer) <10Oct85>
|
||
JSR MarkBlock ; mark it dirty <10Oct85>
|
||
TST.W D5 ; update to 1st key in node ?
|
||
BEQ.S @1 ; yes, leave flag set ->
|
||
BCLR #BTCKeyUpd,BTCFlags(A4) ; don't need to update next level
|
||
|
||
@1 MOVEQ #0,D1 ; release child <10Oct85>
|
||
MOVE.L A3,A0 ;
|
||
JSR RelNode ; ...node buffer
|
||
MOVEA.L A2,A3 ; new child node = parent node
|
||
MOVE.L D2,D3 ; preserve parent node number <27Mar91 #50>
|
||
; MOVE.L please, not .W <27Mar91 #50>
|
||
;
|
||
; check if done
|
||
;
|
||
BCLR #BTCDelIRec,BTCFlags(A4) ; indx rec delete required ? <03Sep85>
|
||
BEQ.S @2 ; no ->
|
||
BRA BDDelete ; delete parent index record ->
|
||
|
||
@2 BTST #BTCKeyUpd,BTCFlags(A4) ; another key update required ?
|
||
BNE BDNxtLev ; yes ->
|
||
BRA.S BDExit ; no, all done ->
|
||
;
|
||
; up to the root, check for an empty tree
|
||
;
|
||
BDRoot
|
||
MOVE.L A3,D0 ; root node released?
|
||
BNE.S BDUpdDepth ; no ->
|
||
CLR.W BTCDepth(A4) ; set tree to empty state
|
||
CLR.L BTCRoot(A4) ;
|
||
BRA.S BDExit ; exit ->
|
||
;
|
||
; update tree depth
|
||
;
|
||
BDUpdDepth
|
||
CMPI.W #1,NDNRecs(A3) ; check # of records left in root
|
||
BGT.S BDExit ; > 1, all done ->
|
||
TST.B NDType(A3) ; index node ?
|
||
BNE.S BDExit ; no, all done ->
|
||
|
||
SUBQ.W #1,BTCDepth(A4) ; decrement tree depth
|
||
|
||
MOVEQ #0,D1 ; locate key and data for 1st record <10Oct85>
|
||
MOVEA.L A3,A1 ;
|
||
jsrRom LOCREC ; ... in node <10Oct85>
|
||
MOVE.L (A1),BTCRoot(A4) ; new root = child node <10Oct85>
|
||
;
|
||
; release the previous root node
|
||
;
|
||
MOVEA.L A3,A0 ; clear the node buffer <23Sep85>
|
||
jsrRom romClrNode ; <23Sep85>
|
||
|
||
MOVEQ #kRBdirty,D1 ; release the <10Oct85>
|
||
JSR RelNode ; ...node buffer
|
||
SUBA.L A3,A3 ; indicate no buffer
|
||
|
||
MOVE.L D3,D1 ; free
|
||
MOVE.W BTCRefNum(A4),D0 ;
|
||
JSR FreeNode ; ...the node
|
||
; <20Nov85>
|
||
; get new root node and check if depth can be reduced again <20Nov85>
|
||
; <20Nov85>
|
||
MOVE.L BTCRoot(A4),D3 ; D3 = new root node # <20Nov85>
|
||
MOVE.L D3,D2 ; get the new root node <20Nov85>
|
||
MOVEQ #0,D1 ; <20Nov85>
|
||
JSR GetNode ; <20Nov85>
|
||
BNE.S BDExit1 ; error -> <20Nov85>
|
||
|
||
MOVEA.L A0,A3 ; A3 = ptr to node buffer <20Nov85>
|
||
BRA.S BDUpdDepth ; check out new root -> <20Nov85>
|
||
|
||
;
|
||
; release last node and exit
|
||
;
|
||
BDExit
|
||
BSET #BTCDirty,BTCFlags(A4) ; mark BTCB dirty
|
||
CLR.W D0 ; result = ok
|
||
BDExit1
|
||
MOVE.W D0,-(A6) ; save result code
|
||
|
||
MOVEA.L A3,A0 ; ptr(node buffer) <23Sep85>
|
||
MOVEQ #0,D1 ; <10Oct85>
|
||
JSR RelNode ; release it
|
||
MOVE.W (A6)+,D0 ; restore result code
|
||
|
||
jsrRom romBTCleanUP ; clean up
|
||
|
||
MOVEM.L (A6)+,D1-D5/A0-A4 ; restore regs <29Aug85>
|
||
|
||
MOVE.L (A6)+,-(SP) ; put return address back on stack
|
||
TST.W D0 ; set condition codes
|
||
RTS ; exit BTDelete
|
||
|
||
endp
|
||
; End of Catalog Btree writeCount patch
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: CheckDesktopSupport
|
||
;
|
||
; Input: a2 - pointer to local volume's vcb
|
||
; Output: zero flag clear if we support the desktop on this volume
|
||
; zero flag set if we don't
|
||
;
|
||
; Function: Indicate whether a volume can support the desktop manager calls
|
||
;
|
||
; Only call this on local hfs volumes
|
||
;
|
||
; The rule: A local volume gets desktop support if it is either
|
||
; 1) non-ejectable
|
||
; 2) ejectable but bigger than DTMinVolSize
|
||
;
|
||
; AlkBlkSiz is stored as a long and used as a word throughout HFS
|
||
;________________________________________________________________________________
|
||
; rolled into TFS.a for SuperMario <SM1> FM
|
||
|
||
CDSRegs reg d0/d1/a1
|
||
CheckDesktopSupport: proc
|
||
|
||
movem.l CDSRegs, -(sp)
|
||
|
||
;
|
||
; Is this an MFS volume?
|
||
;
|
||
cmp.w #SigWord,vcbSigWord(a2) ; is this an MFS volume?
|
||
beq.s @NoSupport ; yes, so use the exciting resource file technique
|
||
;
|
||
; Is this volume bigger than DTMinVolSize?
|
||
;
|
||
move.w vcbNmBlks(a2), d0 ; d0 = # of allocation blocks on this volume
|
||
move.w vcbAlBlkSiz+2(a2), d1 ; d1 = allocation block size
|
||
; AlkBlkSiz is used as a word throughout HFS
|
||
mulu.w d1, d0 ; d0 = # bytes on this volume
|
||
cmp.l #DTMinVolSize, d0 ; is this a big volume?
|
||
bhs.s @SupportsDT ; then we always support the DTDB
|
||
;
|
||
; It's not a big volume, but check and see if the volume is ejectable
|
||
;
|
||
move.l DrvQHdr+qHead, a1 ; a1 = ptr (1st drive in Drive Queue)
|
||
|
||
move.w vcbDrvNum(a2), d0 ; d0 = drive number for this volume (if online)
|
||
bne.s @SearchDrvQ ; if it's online, we can go straight to the search
|
||
|
||
move.w vcbDRefNum(a2), d1 ; d1 = + or - DrvNum (since we know we're not online)
|
||
cmp.w d0, d1 ; = means volume is ejected
|
||
beq.s @NoSupport ; which means it gets no DT support
|
||
move.w d1, d0 ; d0 now = -DrvNum (since we know it's offline)
|
||
neg.w d0 ; d0 now = DrvNum, so we can search the drive Q
|
||
;
|
||
; We now have the drive number in d0, and we know that the drive is not big enough to
|
||
; automatically get DT support. We need to see if it is ejectable, and if it is a small
|
||
; non-ejectable volume (say, a ramdisk) we support it.
|
||
;
|
||
@SearchDrvQ:
|
||
cmp.w dQDrive(a1), d0 ; is this the dQ entry we want?
|
||
beq.s @GotDQ
|
||
move.l qLink(a1), d1 ; get the next dQ entry (test for zero)
|
||
movea.l d1, a1 ; move to an A reg where we can use it
|
||
bne.s @SearchDrvQ ; and keep going if there is one
|
||
move.w #nsvErr, d0 ; if we have a real vcb, we should find a dQ entry
|
||
bra.s @NoSupport ; but if we ever don't, let's return 'no support'
|
||
|
||
@GotDQ:
|
||
cmp.b #8, -3(a1) ; drive queue entry flag bytes => 8 (signed) are non-ejectable <19><51>
|
||
blt.s @NoSupport ; we don't support DT on small ejectable volumes
|
||
|
||
@SupportsDT:
|
||
moveq.l #1, d0 ; clear the zero flag
|
||
bra.s @CDSExit
|
||
|
||
@NoSupport:
|
||
moveq.l #0, d0 ; set the zero flag
|
||
@CDSExit: movem.l (sp)+, CDSRegs
|
||
rts
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Routine: GetVolParms
|
||
;
|
||
; Input: a0 - pointer to user's param block
|
||
; Output: d0 - result code
|
||
;
|
||
; Function: Return a version 2 GetVolParms param block
|
||
;
|
||
; Interesting problems with GetVolParms (which aren't important enough to cause
|
||
; us to make a change this close to 7.0 final. Obviously, if you're reading this
|
||
; after 7.0 final, please make these changes for the good of humanity. You should find
|
||
; these written up in the BRC).
|
||
; 1) The bclr #asyncTrpBit,ioTrap(a0) instruction is old cruft. The two problems with
|
||
; the line are that (a) forcing GetVolParms calls synchronous will hang interrupt-time
|
||
; callers, and (b) the line doesn't even do what it says. The trap word is in d1
|
||
; before the call to FSQueue. ioTrap is about have d1 stored in it. If you are possessed
|
||
; of the urge to put your initials into the system, perhaps you could replace the bclr
|
||
; with a store of 16 bits of your own choosing.
|
||
; 2) The suba.w @VolParmsBufferSize,a6 instruction needs to be changed to a long subtract.
|
||
; What happens now is that zero is subtracted from a6, but the size of the saved registers
|
||
; happens to be bigger than the buffer, so there's enough room on the stack. Since the File
|
||
; Manager happens to save registers before dispatching, the fact that GetVolParms trashes
|
||
; the registers is unimportant. Thus, the three parallel changes are to get rid of the
|
||
; regster save/restore, change the suba.w to a suba.l, and add an adda.l at the bottom of
|
||
; the routine to deallocate the buffer.
|
||
;
|
||
;________________________________________________________________________________
|
||
;
|
||
GetVolParms: proc export
|
||
@GetVolRegs reg d2/d3/a1-a4
|
||
|
||
bclr #asyncTrpBit, ioTrap(a0) ; force synchronous (wrong. See note, above)
|
||
jsrRom FSQUEUE ; Patiently wait our turn in line
|
||
movem.l @GetVolRegs, -(a6) ; save regs on FS stack
|
||
suba.w @VolParmsBufferSize, a6 ; allocate a GetVolParms buffer on the stack
|
||
;
|
||
; Find the VCB in question:
|
||
;
|
||
jsrRom DTRMV3 ; find vol using ioNamePtr & ioVRefNum (D023/A234 trashed)
|
||
bne.s @GetVolParmsExit ; (DtrmV3 puts VCBPtr in A2)
|
||
|
||
tst.w vcbFSID(a2) ; Check: external file system? (•• TFSVCBTst?)
|
||
beq.s @ForUs ; If zero, it's HFS.
|
||
;
|
||
; This call is for an External File System volume:
|
||
;
|
||
moveq #extFSErr, d0 ; Tell the world
|
||
bra.s @GetVolParmsExit ; and let them worry about it
|
||
;
|
||
; This call is for us. First, make a modifiable copy of the return buffer.
|
||
;
|
||
@ForUs:
|
||
movea.l a0, a4 ; move user's pb to a safe register
|
||
move.l @VolParmsBufferSize, d0 ; d0 = size of GetVolParms' ioBuffer
|
||
movea.l a6, a1 ; onto our stack buffer
|
||
lea.l @HFSVolParmsBuffer, a0 ; copy the static values for HFS volumes
|
||
cmp.w #SigWord,vcbSigWord(a2) ; is this an MFS volume?
|
||
bne.s @notMFS ; no, skip the following
|
||
lea.l @MFSVolParmsBuffer, a0 ; copy the static values for MFS volumes
|
||
@notMFS:
|
||
_BlockMove
|
||
|
||
bsr CheckDesktopSupport ; returns zero clear if support, set if none
|
||
beq.s @NoDTSupport ; z set means no support
|
||
|
||
move.l vmAttrib(a6), d0 ; get the attributes word
|
||
bset.l #bHasDesktopMgr, d0 ; set the bit indicating support
|
||
move.l d0, vmAttrib(a6) ; put the modified word back in the buffer
|
||
@noDTSupport:
|
||
|
||
;
|
||
; The buffer on the stack reflects the correct values for this volume.
|
||
; Copy back as much of it as the caller gave us room.
|
||
;
|
||
move.l ioReqCount(a4), d0 ; get user's buffer size
|
||
cmp.l @VolParmsBufferSize, d0 ; is it smaller than our buffer?
|
||
bls.s @NoClip ; then just return that amount
|
||
|
||
move.l @VolParmsBufferSize, d0 ; clip the return to just the size of our data
|
||
|
||
@noClip:
|
||
move.l d0, ioActCount(a4) ; tell'em how much we're copying
|
||
move.l a6, a0 ; copy from our stack buffer
|
||
move.l ioBuffer(a4), a1 ; copy into the user's pb buffer
|
||
_BlockMove
|
||
|
||
@GetVolParmsExit:
|
||
movem.l (a6)+, @GetVolRegs ; restore regs
|
||
jmpROM CMDDONE ; Go home
|
||
|
||
; This buffer contains the appropriate values for local HFS volumes.
|
||
@HFSVolParmsBuffer:
|
||
dc.w 2 ; this is a version 2 getvolparms
|
||
dc.l localvMAttribs ; static set of local attribute bits
|
||
dc.l 0 ; no local window handle
|
||
dc.l 0 ; no server address
|
||
dc.l localVolGrade ; standard volume grade
|
||
dc.w 0 ; local volumes don't support alt priv models
|
||
@VolParmsBufferSize:
|
||
dc.l *-@HFSVolParmsBuffer
|
||
|
||
; This buffer contains the appropriate values for local MFS volumes.
|
||
@MFSVolParmsBuffer:
|
||
dc.w 2 ; this is a version 2 getvolparms
|
||
dc.l 0 ; no optional calls supported for MFS volumes
|
||
dc.l 0 ; no local window handle
|
||
dc.l 0 ; no server address
|
||
dc.l localVolGrade ; standard volume grade
|
||
dc.w 0 ; local volumes don't support alt priv models
|
||
endproc
|
||
|
||
;________________________________________________________________________________
|
||
;
|
||
; Desktop Manager and Queue Manager initialization
|
||
;________________________________________________________________________________
|
||
|
||
; FSVars has been allocated by btree patches. Allocate the DTDBMgr's globals block
|
||
DTDBMgrInit proc export
|
||
|
||
move.l #DTGlobals.size, d0 ; we need this much space for DT manager
|
||
_NewPtr sys, clear
|
||
bne @fail ; no? Run away.
|
||
move.l FSVarsPtr, a1 ; a1 = ptr(FSVars block)
|
||
move.l a0, FSVars.DTDBMgr(a1) ; stuff ourselves into our slot in FSVars
|
||
rts
|
||
|
||
@fail
|
||
moveq.l #dsMemFullErr, d0 ; sys heap is full, so punt
|
||
_SysError
|
||
endproc
|
||
|
||
; Allocate the Queue Manager's globals block
|
||
QMInit proc export
|
||
|
||
; Allocate a block big enough of all of the Queue Manager's needs:
|
||
; Queue manager globals
|
||
; Desktop manager QMRec
|
||
; Compatibility layer QMRec
|
||
; Desktop manager stack
|
||
; Compatibility layer stack
|
||
|
||
move.l #QMGlobals.size+QMRec.size*2+DTStackSize+clStackSize, d0
|
||
_NewPtr sys, clear
|
||
bne.s @fail ; fail if we can't get memory
|
||
|
||
move.l FSVarsPtr, a1 ; a1 = ptr(FSVars block)
|
||
move.l a0, FSVars.QMgr(a1) ; leave a pointer to globals in FSVars
|
||
move.l a0, a1 ; a1 = ptr(FSVars.QMgr)
|
||
adda.l #QMGlobals.size, a0 ; skip over globals
|
||
move.l a0, QMGlobals.DTQueuePtr(a1); stuff pointer to DTMgr's QMRec
|
||
adda.l #QMRec.size, a0 ; skip over DTMgr's QMRec
|
||
move.l a0, QMGlobals.CLQueuePtr(a1); stuff pointer to Comp Layer's QMRec
|
||
|
||
adda.l #QMRec.size+DTStackSize, a0 ; skip over QMRec and Stack
|
||
move.l QMGlobals.DTQueuePtr(a1), a1 ; a1 = ptr(DTMgr's QMRec)
|
||
move.l a0, QMRec.stackBase(a1) ; store stack address (stack grows down)
|
||
move.w #desktopQType, QMRec.qType(a1) ; set queue type/refnum
|
||
|
||
adda.l #CLStackSize, a0 ; skip to end of CLStack
|
||
move.l FSVarsPtr, a1 ; a1 = ptr(FSVars)
|
||
move.l FSVars.QMgr(a1), a1 ; a1 = ptr(QM globals)
|
||
move.l QMGlobals.CLQueuePtr(a1), a1 ; a1 = ptr(Comp Layer's QMRec)
|
||
move.l a0, QMRec.stackBase(a1) ; store stack address (stack grows down)
|
||
move.w #fsCompatQType, QMRec.qType(a1) ; set queue type/refnum
|
||
|
||
rts
|
||
|
||
@fail:
|
||
moveq.l #dsMemFullErr, d0 ; sys heap is full, so punt
|
||
_SysError
|
||
endproc
|
||
|
||
|
||
; __________________________________________________________________________________
|
||
PROC ; <2.3 kst>
|
||
EXPORT WriteCountInit, FSGrowPatchInit
|
||
|
||
; Need to fix up the volumes that don't have a chance to call my BTOpenPatch !
|
||
WriteCountInit
|
||
MOVEM.L A2-A3,-(SP) ; free A2,A3
|
||
MOVEA.L FCBsPtr,A3 ; A3=FCB array
|
||
MOVE.L VCBQHdr+QHead,D0 ; search the VCB queue
|
||
BEQ.S wcEndq ; br if end of queue reached
|
||
CkVol: MOVE.L D0,A2 ; next VCB pointer
|
||
jsrRom TFSVCBTST ; is this a HFS volume?
|
||
BNE.S @6 ; No, don't bother
|
||
TST vcbFSID(A2) ; internal HFS? (do we need to test this?)
|
||
BNE.S @6 ; No, don't bother
|
||
;; OK, it's for us, replace the BTCB of the B*tree files on this volume.
|
||
;; First process the EXT file:
|
||
MOVE vcbXtRef(A2),D1 ; D1=EXT file refnum
|
||
BEQ.S @4 ; just in case
|
||
@2 MOVE.L #lenBTCB70,D0 ; allocate space for BTCB
|
||
_NewPtr sys, clear
|
||
bne.s WCErrExit ; couldn't get it ->
|
||
MOVEA.L fcbBTCBPtr(A3,D1),A1 ; get the original BTCB
|
||
MOVE.L A0,fcbBTCBPtr(A3,D1) ; replace with the new one
|
||
MOVE.L #WCSigLong,BTCWcount(A0); .. and set the write count
|
||
|
||
MOVE.L #(LenBTCB/2-1),D0 ; length of BTCB - 1
|
||
MOVE.L A1,-(SP) ; save old btcb
|
||
@4 MOVE (A1)+,(A0)+ ; copy over
|
||
DBF D0,@4
|
||
MOVEA.L (SP)+,A0 ; free the old btcb
|
||
_DisposPtr
|
||
CMP vcbCtRef(A2),D1 ; is this CAT file refnum?
|
||
BEQ.S @6 ; br if it is, otherwise,
|
||
;; ... and then process the CAT file:
|
||
MOVE vcbCtRef(A2),D1 ; D1=CAT file refnum
|
||
BNE.S @2
|
||
|
||
@6 MOVE.L QLink(A2),D0 ; next VCB
|
||
BNE.S CkVol
|
||
|
||
wcEndq LeaResident BTOpenPatch,A1 ; start of BTOpen Patch code
|
||
MOVE.L A1,jBTOpen ; replace the old one ($744)
|
||
LeaResident BTInsertPatch,A1
|
||
MOVE.L A1,jBTInsert ; ($740)
|
||
LeaResident BTDeletePatch,A1
|
||
MOVE.L A1,jBTDelete ; ($734)
|
||
MOVEM.L (SP)+,A2-A3
|
||
RTS
|
||
|
||
WCErrExit:
|
||
MOVEQ #dsMemFullErr,D0 ; no mem
|
||
_SysError
|
||
|
||
;__________________________________________________________________________________
|
||
; <41>
|
||
; Enlarge the File System stack.
|
||
;
|
||
; Inputs:
|
||
; none
|
||
;
|
||
; Output:
|
||
; none
|
||
;
|
||
; Function:
|
||
; Queue up a dummy call (use the dispatch selector as if we were _FSControl)
|
||
; so we can safely replace the file system stack with a larger one. Throw
|
||
; up a bomb if we fail.
|
||
;
|
||
;__________________________________________________________________________________
|
||
; Don't need to Roll into SuperMario <SM1> fm
|
||
GrowFileSystemStack:
|
||
|
||
moveq.l #0,d0 ; use selector 0
|
||
move.w #$a060,d1 ; and pretend we're trap _HFSDispatch
|
||
jsrROM FSQUEUE ; and sync up with the file system
|
||
|
||
; first we use the old equate to get the pointer block's base address
|
||
move.l HFSStkTop,a0 ; current stack top
|
||
suba.w #HFSStkLen,a0 ; compute pointer block address
|
||
_DisposePtr ; free it up
|
||
|
||
; use the new equate to allocate a larger stack
|
||
move.l #(fsLargerStackLength+HFSTmpSize),d0 ; Size of stack area
|
||
_NewPtr sys, clear ; Allocate space in system heap
|
||
bne.s @bail ; A crushing blow if we can't get it
|
||
adda.w #fsLargerStackLength,a0 ; point to the end of the stack
|
||
move.l a0,HFSStkTop ; Store pointer in lo-mem
|
||
|
||
moveq.l #noErr,d0 ; success!
|
||
jmpROM CMDDONE
|
||
|
||
@bail:
|
||
moveq.l #dsMemFullErr, d0 ; sys heap is full, so punt
|
||
_SysError
|
||
|
||
;__________________________________________________________________________________
|
||
;
|
||
; Initialize FCB expansion patch, WDCB expansions patch, and vectors
|
||
;__________________________________________________________________________________
|
||
; Roll into SuperMario <SM1> fm
|
||
FSGrowPatchInit:
|
||
suba.w #ioHVQElSize,sp ; param blocks are de rigeur
|
||
movea.l sp,a0
|
||
bsr GrowFileSystemStack ; we need a bigger stack for 7.0 <41>
|
||
adda.w #ioHVQElSize,sp ; deallocate the pb
|
||
|
||
; allocate the FCB parallel array
|
||
movea.L FCBSPtr,a1 ; a1 = address of main FCB array
|
||
moveq #0,d0 ; clear d0 for long calc
|
||
move.w (a1),d0 ; bytes in FCB array and header
|
||
; subq #2,d0 ; remove header (doesn't affect divu)
|
||
divu.w FSFCBLen,d0 ; divide by element size to get count of FCBs
|
||
andi.l #$FFFF,d0 ; clear d0 top word set by divu
|
||
move.w d0,d1 ; Save # of FCBs in d1
|
||
lsl #L2ExtFCBLen,d0 ; d0 = total size of the parallel array
|
||
addq #fcbPBufData,d0 ; include info words
|
||
_NewPtr sys, clear ; Allocate buffer for FCBs
|
||
bne.s WCErrExit ; Any errors are fatal
|
||
|
||
; initialize parallel FCB array header and install the array in FSVars
|
||
move.w d1,cbPBufCount(a0) ; first word = count
|
||
move.w #ExtFCBLen,cbPBufULen(a0) ; second word = unit size
|
||
movea.L FSVarsPtr,a1 ; save array address in FSVars
|
||
move.l a0,FSVars.FCBPBuf(a1) ; now we're ready to record file opens!
|
||
|
||
; allocate the WDCB parallel array
|
||
move.l WDCBSPtr,a1 ; a1 = address of main WDCB array
|
||
moveq #0,d0 ; clear d0 for long calc
|
||
move.w (a1),d0 ; length of WDCB array
|
||
; subq #2,d0 ; remove header (doesn't affect divu)
|
||
divu.w #WDCBLen,d0 ; divide by element size to get count of WDCBs
|
||
andi.l #$FFFF,d0 ; clear d0 top word
|
||
move.w d0,d1 ; Save # of WDCBs in d1
|
||
lsl #L2ExtWDCBLen,d0 ; d0 = total size of the parallel array
|
||
addq #wdcbPBufData,d0 ; include info words
|
||
_NewPtr sys, clear ; Allocate buffer for FCBs
|
||
bne.s WCErrExit ; Any errors are fatal
|
||
|
||
; initialize parallel WDCB array header and install the array in FSVars
|
||
move.w d1,cbPBufCount(a0) ; first word = count
|
||
move.w #ExtWDCBLen,cbPBufULen(a0) ; second word = unit size
|
||
movea.L FSVarsPtr,a1 ; save array address in FSVars
|
||
move.l a0,FSVars.WDCBPBuf(a1) ; now we're ready to record _OpenWDs!
|
||
|
||
; initialize FCB expansion mechanism <38>
|
||
movea.l FSVarsPtr,a1
|
||
move.w #fsDesiredFCBBurst,FSVars.fsFCBBurst(a1)
|
||
move.w #fsDesiredFCBFree,FSVars.fsFCBGrow(a1)
|
||
clr.w FSVars.fsFCBCounter(a1) ; make us check on the next open
|
||
move.w #$7fff,d0 ; max signed int is all we can have for the FCB array
|
||
ext.l d0 ; divide takes a long input
|
||
divs fsFCBLen,d0 ; d0 = max # of FCBs
|
||
move.w d0,FSVars.fsFCBMax(a1)
|
||
|
||
rts
|
||
|
||
endproc
|
||
|
||
; __________________________________________________________________________________
|
||
; InstallVectors
|
||
;
|
||
; Function:
|
||
; Attach ourselves to the appropriate vectors.
|
||
;
|
||
; For fsQueueHook, ExtFSHook and jFileOpen we selfishly insist that
|
||
; we're the first piece of code hooked in so that we can assume
|
||
; that we're the last one called.
|
||
;
|
||
; __________________________________________________________________________________
|
||
; Rolled into TFS.a for SuperMario <SM1> fm
|
||
InstallVectors PROC export
|
||
|
||
; slam onto fsQueueHook, ExtFSHook and jFileOpen
|
||
|
||
LeaResident fsQueueHookPatch, a0 ; our patch address
|
||
move.l a0, fsQueueHook ; be the first ones
|
||
|
||
LeaResident ExtFSHookPatch, a0 ; our patch address <38>
|
||
move.l a0, ExtFSHook ; be the first ones <38>
|
||
|
||
LeaResident PreflightFileOpen, a0 ; our patch address <38>
|
||
move.l a0, jFileOpen ; be the first ones <38>
|
||
|
||
; install some vectors:
|
||
move.l ExpandMem, a1
|
||
leaResident vSyncWait, a0 ; get addr of syncwait (in this fsQueueHook patch)
|
||
move.l a0, ExpandMemRec.jSyncWait(a1)
|
||
leaResident vAfterFSQHook, a0 ; get addr just past call to fsQueueHook (in fsQueueHook patch)
|
||
move.l a0, ExpandMemRec.jAfterFSQHook(a1)
|
||
|
||
leaROM CMDDONE , a0 ; get addr of CmdDone (still in ROM)
|
||
move.l a0, ExpandMemRec.jCmdDone(a1)
|
||
leaResident fsGeneralWakeUp, a0 ; get addr of general purpose File System kickstart
|
||
move.l a0, ExpandMemRec.jDispatchNext(a1)
|
||
|
||
leaResident fsSCSIFreeHookProc, a0; get addr of File System SCSI Busy deferral completion
|
||
move.l a0, ExpandMemRec.jSCSIFreeHook(a1)
|
||
|
||
rts
|
||
endproc
|
||
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
|
||
; Rolled into InitFS in TFS.a for SuperMario.
|
||
; <SM1> FM
|
||
;
|
||
HFS70Init InstallProc
|
||
|
||
IF BuildHFS70Init THEN ; HfsInit will allocate FSVarsPtr again and
|
||
; destroys BTVars initialized by patch
|
||
move.l FSVarsPtr,D0 ; has this been initialized?
|
||
cmp.l #-1,D0 ; $FFFF FFFF if not
|
||
bne.s @fsVarOK ; already initialized
|
||
|
||
ENDIF
|
||
|
||
move.l #FSVars.size, d0 ; d0 = size of file system variable block
|
||
_NewPtr sys, clear ; go get the block
|
||
bne @fail ; die horribly if we don't get it
|
||
move.l a0, FSVarsPtr ; stash the address in lomem
|
||
move.w #FSVars.size, FSVars.length(a0) ; store length of block in 1st word
|
||
|
||
@fsVarOK:
|
||
IF NOT BuildHFS70Init THEN ; don't allocate memory again
|
||
jsr FSGrowPatchInit ; FCBs, WDCBs and vectors
|
||
jsr QMInit ; initialize the Queue Manager
|
||
jsr DTDBMgrInit ; initialize desktop DB manager
|
||
ENDIF
|
||
jsr WriteCountInit ; for Write Count patch <2.3 kst>
|
||
jsr InstallVectors
|
||
rts
|
||
|
||
@fail:
|
||
moveq.l #dsMemFullErr, d0 ; sys heap is full, so punt
|
||
_SysError
|
||
endproc
|
||
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
; <48>
|
||
; Patches to ROM btree manager routine on the Mac Plus. These routines incorrectly
|
||
; calculate the size of btree vars, returning a value 4 bytes too small. The routines
|
||
; which then use btree vars will trash the last register saved. These patches work around
|
||
; the problem by saving the register in question on the a6 stack before running the routine.
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
|
||
; Plus only, No need to roll in for SuperMario!
|
||
SaveD1AcrossBTDelete PatchProc jBTDelete,(Plus)
|
||
|
||
move.l (sp)+,-(a6) ; copy return address onto the A6 stack
|
||
move.l d1,-(a6) ; save register which will be trashed
|
||
jsrOld
|
||
move.l (a6)+,d1
|
||
move.l (a6)+,-(sp) ; get back the return address
|
||
tst.w d0 ; set up condition codes again
|
||
rts
|
||
|
||
EndProc
|
||
|
||
; Plus only, No need to roll in for SuperMario!
|
||
SaveD3AcrossBTSearch PatchProc jBTSearch,(Plus)
|
||
|
||
move.l (sp)+,-(a6) ; copy return address onto the A6 stack
|
||
move.l d3,-(a6) ; save register which will be trashed
|
||
jsrOld
|
||
move.l (a6)+,d3
|
||
move.l (a6)+,-(sp) ; get back the return address
|
||
tst.w d0 ; set up condition codes again
|
||
rts
|
||
|
||
EndProc
|
||
|
||
; Plus only, No need to roll in for SuperMario!
|
||
SaveD1AcrossBTInsert PatchProc jBTInsert,(Plus)
|
||
|
||
move.l (sp)+,-(a6) ; copy return address onto the A6 stack
|
||
move.l d1,-(a6) ; save register which will be trashed
|
||
jsrOld
|
||
move.l (a6)+,d1
|
||
move.l (a6)+,-(sp) ; get back the return address
|
||
tst.w d0 ; set up condition codes again
|
||
rts
|
||
|
||
EndProc
|
||
|
||
; Plus only, No need to roll in for SuperMario!
|
||
SaveD3AcrossBTGetRecord PatchProc jBTGetRecord,(Plus)
|
||
|
||
move.l (sp)+,-(a6) ; copy return address onto the A6 stack
|
||
move.l d3,-(a6) ; save register which will be trashed
|
||
jsrOld
|
||
move.l (a6)+,d3
|
||
move.l (a6)+,-(sp) ; get back the return address
|
||
tst.w d0 ; set up condition codes again
|
||
rts
|
||
|
||
EndProc
|
||
|
||
;_______________________________________________________________________
|
||
; <49>
|
||
; MountVolFor1991 creates a need to prevent the ROM CheckRemount code from
|
||
; running, since it handles remounts, and has a stricter rule than the ROM code.
|
||
; On the Portable, II, and IIci, we can simply point the CheckRemount vector
|
||
; past the end of the CheckRemount routine. On the Plus and SE, we have
|
||
; to do a come-from patch on BTOpen and AccessBT to get the same effect.
|
||
; This patch needs to be after the earlier BTOpen patch, which is installed
|
||
; by an InstallProc towards the end of the file.
|
||
;_______________________________________________________________________
|
||
; Rolled in to TFSVol.a <SM1> FM
|
||
|
||
KillCheckRemountNiceWay InstallProc (Portable,II,IIci)
|
||
|
||
leaROM MtVolOK,a0 ; point to the end of the CheckRemount routine
|
||
move.l a0,jCheckRemount ; point CheckRemount vector past the routine
|
||
rts
|
||
|
||
EndProc
|
||
|
||
KillCheckRemountSickWay PatchProc jBTOpen,(Plus,SE)
|
||
|
||
cmpROM AfterBTOpenInAccessBT,(sp) ; check to see if this is AccessBT
|
||
bneOld
|
||
cmpROM After2ndAccessBTInMountVol,8(a6) ; check to see if this is the case just before remount
|
||
bneOld
|
||
|
||
addq #4,sp ; pull off return address
|
||
jsrOld ; call BTOpen, and return here
|
||
movem.l (a6)+,d3/a0 ; restore registers saved by AccessBT
|
||
addq #4,a6 ; throw away return address to MountVol
|
||
tst.w d0 ; check result of AccessBT
|
||
bneROM After2ndAccessBTInMountVol ; if we failed, go let the ROM his thing
|
||
bclr #vcbAtVOK,vcbAtrb(a2) ; from now until _Unmount the disk is inconsistent
|
||
beqROM MtCheck ; if so, go do the check (below patches will skip CheckRemount)
|
||
jmpROM MtVolOK ; otherwise, skip CheckRemount
|
||
|
||
EndProc
|
||
|
||
KillCheckRemountSickerWay PatchProc jReadBM,(SE)
|
||
|
||
cmpROM AfterReadBMInUpdateFree,(sp) ; check to see if this is UpdateFree
|
||
bneOld
|
||
cmpROM AfterUpdateFreeInMtCheck,36(a6) ; check to see if this is at the end of MtCheck
|
||
bneOld
|
||
leaROM MtVolOK,a0 ; get address for skipping CheckRemount
|
||
move.l a0,36(a6) ; return there, so we don’t branch to CheckRemount
|
||
jmpOld
|
||
|
||
EndProc
|
||
|
||
KillCheckRemountSickestWay PatchProc jGetBlock,(Plus)
|
||
|
||
cmpROM AfterGetBlockInGetBMBlk,(sp) ; check to see if this is GetBMBlk
|
||
bneOld
|
||
cmpROM AfterGetBMBlkInReadBM,16(a6) ; check to see if this is ReadBM
|
||
bneOld
|
||
cmpROM AfterReadBMInUpdateFree,20(a6) ; check to see if this is UpdateFree
|
||
bneOld
|
||
cmpROM AfterUpdateFreeInMtCheck,60(a6) ; check to see if this is at the end of MtCheck
|
||
bneOld
|
||
leaROM MtVolOK,a0 ; get address for skipping CheckRemount
|
||
move.l a0,60(a6) ; return there, so we don’t branch to CheckRemount
|
||
jmpOld
|
||
|
||
EndProc
|
||
|
||
;——————————————————————————————————————————————————————————————————————————————————————————
|
||
|
||
End
|