;Assembler header file for DragAnObject
;written by DefMod (Mar  9 1999) on Thu Apr  8 04:04:58 1999
;Jonathan Coxhead, jonathan@doves.demon.co.uk, 18 Jan 1995

        [       :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 SWIs 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
