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