home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for DragAnObject
- ;written by DefMod (Jun 30 1995) on Mon Jul 3 18:51:59 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: DragAnObject_Hdr
- GBLS DragAnObject_Hdr
-
- ;Symbols for constants
- DragAnObject_HPosLeft * &0
- DragAnObject_HPosCentre * &1
- DragAnObject_HPosRight * &2
- DragAnObject_VPosBottom * &0
- DragAnObject_VPosCentre * &4
- DragAnObject_VPosTop * &8
- DragAnObject_NoBound * &0
- DragAnObject_BoundToWindow * &10
- DragAnObject_GivenBBox * &20
- DragAnObject_BoundObject * &0
- DragAnObject_BoundPointer * &40
- DragAnObject_DropShadow * &80
- DragAnObject_NoDither * &100
- DragAnObject_SWIFunction * &0
- DragAnObject_CallFunction * &10000
- DragAnObject_FunctionSVC * &20000
-
- ;Symbols for structure offsets and sizes
- DragAnObject_Function * 4 ;abstract type
-
- ;Symbols for SWI's and SWI reason codes
- XDragAnObject_Start * &69C40
- DragAnObject_Start * &49C40
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = function (DragAnObject_Function)
- ; R2 -> register_block (OS_RegisterBlock)
- ; R3 -> box (OS_Box)
- ; R4 -> bbox (OS_Box)
-
- XDragAnObject_Stop * &69C41
- DragAnObject_Stop * &49C41
-
- ]
- END
-