home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for FSLock
- ;written by DefMod (Jun 12 1995) on Thu Jun 29 16:58:58 1995
- ;Jonathan Coxhead, Acorn Computers Ltd
-
- [ :LNOT: :DEF: Get_Types
- GBLS Get_Types
- ]
- [ :LNOT: :DEF: Types_Hdr
- Get_Types SETS "GET OS:Hdr.Types"
- |
- Get_Types SETS ""
- ]
- $Get_Types
-
- [ :LNOT: :DEF: Get_OS
- GBLS Get_OS
- ]
- [ :LNOT: :DEF: OS_Hdr
- Get_OS SETS "GET OS:Hdr.OS"
- |
- Get_OS SETS ""
- ]
- $Get_OS
-
- [ :LNOT: :DEF: Get_FileSwitch
- GBLS Get_FileSwitch
- ]
- [ :LNOT: :DEF: FileSwitch_Hdr
- Get_FileSwitch SETS "GET OS:Hdr.FileSwitch"
- |
- Get_FileSwitch SETS ""
- ]
- $Get_FileSwitch
-
- [ :LNOT: :DEF: FSLock_Hdr
- GBLS FSLock_Hdr
-
- ;Symbols for constants
- FSLock_StatusUnlocked * &0
- FSLock_StatusProtected * &1
- FSLock_StatusLocked * &2
- Error_FSLockUnknownSWI * &806500
- Error_FSLockLocked * &806501
- Error_FSLockUnknownFS * &806502
- Error_FSLockFSNotLockable * &806503
- Error_FSLockNoLockedFS * &806504
- Error_FSLockProtectedDisc * &806505
- Error_FSLockKilled * &806506
-
- ;Symbols for structure offsets and sizes
- FSLock_LockStatus * Int
-
-
- ;Symbols for SWI's and SWI reason codes
- XFSLock_Version * &64780
- FSLock_Version * &44780
- ;Exit
- ; R0 = version (Int)
- ; R1 = workspace (pointer to Void)
-
- XFSLock_Status * &64781
- FSLock_Status * &44781
- ;Exit
- ; R0 = lock_status (FSLock_LockStatus)
- ; R1 = fs_no (FileSwitch_FSNo)
-
- XFSLock_ChangeStatus * &64782
- FSLock_ChangeStatus * &44782
- ;Entry
- ; R0 = new_lock_status (FSLock_LockStatus)
- ; R1 -> password (String)
- ; R2 -> new_password (String)
- ; R3 = new_fs_no (FileSwitch_FSNo)
-
- ]
- END
-