;Assembler header file for BASICTrans
;written by DefMod (Dec 31 2005) on Sat Dec 31 14:11:42 2005
;Jonathan Coxhead, jonathan@doves.demon.co.uk, 29 Apr 1994

        [       :LNOT: :DEF: BASICTrans_Hdr
        GBLS    BASICTrans_Hdr

        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET oslib/Types.Hdr"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: Get_OS
        GBLS    Get_OS
        ]
        [       :LNOT: :DEF: OS_Hdr
Get_OS                          SETS    "GET oslib/OS.Hdr"
        |
Get_OS                          SETS    ""
        ]
        $Get_OS

;Symbols for SWI's and SWI reason codes
XBASICTrans_HELP                *       &62C80
BASICTrans_HELP                 *       &42C80
   ;Entry
   ;  R0 -> help_text (String)
   ;  R1 -> prog_name (String)
   ;  R2 -> lexical_table (data)
   ;Exit
   ;  R0 corrupted
   ;  R1 = unclaimed (Bool)
   ;  R2 corrupted

XBASICTrans_Error               *       &62C81
BASICTrans_Error                *       &42C81
   ;Entry
   ;  R0 = error_no (Int)
   ;  R1 = error_buffer (pointer to String)
   ;Exit
   ;  R0 corrupted
   ;  R1 corrupted
   ;  R2 corrupted
   ;  R3 corrupted

XBASICTrans_Message             *       &62C82
BASICTrans_Message              *       &42C82
   ;Entry
   ;  R0 = message_no (Int)
   ;  R1 = arg0 (Int)
   ;  R2 = arg1 (Int)
   ;  R3 = arg2 (Int)
   ;Exit
   ;  R0 corrupted
   ;  R1 corrupted

        ]
        END
