home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for Free
- ;written by DefMod (Jun 12 1995) on Thu Jun 22 12:14:56 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: Free_Hdr
- GBLS Free_Hdr
-
- ;Symbols for SWI's and SWI reason codes
- XFree_Register * &644C0
- Free_Register * &444C0
- ;Entry
- ; R0 = fs_no (FileSwitch_FSNo)
- ; R1 -> fn (code)
- ; R2 = workspace (pointer to Void)
-
- XFree_DeRegister * &644C1
- Free_DeRegister * &444C1
- ;Entry
- ; R0 = fs_no (FileSwitch_FSNo)
- ; R1 -> fn (code)
- ; R2 = workspace (pointer to Void)
-
- ]
- END
-