home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / oslib / oslib_1 / OSLib / User / Hdr / BASICTrans < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.5 KB  |  64 lines
  1. ;Assembler header file for BASICTrans
  2. ;written by DefMod (Jun 12 1995) on Thu Jun 22 12:17:59 1995
  3. ;Jonathan Coxhead, Acorn Computers Ltd
  4.  
  5.         [       :LNOT: :DEF: Get_Types
  6.         GBLS    Get_Types
  7.         ]
  8.         [       :LNOT: :DEF: Types_Hdr
  9. Get_Types                       SETS    "GET OS:Hdr.Types"
  10.         |
  11. Get_Types                       SETS    ""
  12.         ]
  13.         $Get_Types
  14.  
  15.         [       :LNOT: :DEF: Get_OS
  16.         GBLS    Get_OS
  17.         ]
  18.         [       :LNOT: :DEF: OS_Hdr
  19. Get_OS                          SETS    "GET OS:Hdr.OS"
  20.         |
  21. Get_OS                          SETS    ""
  22.         ]
  23.         $Get_OS
  24.  
  25.         [       :LNOT: :DEF: BASICTrans_Hdr
  26.         GBLS    BASICTrans_Hdr
  27.  
  28. ;Symbols for SWI's and SWI reason codes
  29. XBASICTrans_HELP                *       &62C80
  30. BASICTrans_HELP                 *       &42C80
  31.    ;Entry
  32.    ;  R0 -> help_text (String)
  33.    ;  R1 -> prog_name (String)
  34.    ;  R2 -> lexical_table (data)
  35.    ;Exit
  36.    ;  R0 corrupted
  37.    ;  R1 = unclaimed (Bool)
  38.    ;  R2 corrupted
  39.  
  40. XBASICTrans_Error               *       &62C81
  41. BASICTrans_Error                *       &42C81
  42.    ;Entry
  43.    ;  R0 = error_no (Int)
  44.    ;  R1 = error_buffer (pointer to OS_Error)
  45.    ;Exit
  46.    ;  R0 corrupted
  47.    ;  R1 corrupted
  48.    ;  R2 corrupted
  49.    ;  R3 corrupted
  50.  
  51. XBASICTrans_Message             *       &62C82
  52. BASICTrans_Message              *       &42C82
  53.    ;Entry
  54.    ;  R0 = message_no (Int)
  55.    ;  R1 = arg0 (Int)
  56.    ;  R2 = arg1 (Int)
  57.    ;  R3 = arg2 (Int)
  58.    ;Exit
  59.    ;  R0 corrupted
  60.    ;  R1 corrupted
  61.  
  62.         ]
  63.         END
  64.