|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02b8 | | .CONST 0x02b8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0042 | B | .CONST 0x0042 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00e3 | | Load_Encached Natural_Cache 0020 e001 | | Load 0x0,0x1 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 00e9 | | Load_Encached String_Cache 0023 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0025 4800 |H | Short_Literal 0x0 0026 4801 |H | Short_Literal 0x1 0027 4801 |H | Short_Literal 0x1 0028 4800 |H | Short_Literal 0x0 0029 4801 |H | Short_Literal 0x1 002a 4801 |H | Short_Literal 0x1 002b 031e | | Declare_Type Variant_Record,Defined,Visible 002c c219 | | Store 0x1,0x19 002d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 002f c21d | | Store 0x1,0x1d 0030 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0032 c21e | | Store 0x1,0x1e 0033 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0035 c21f | | Store 0x1,0x1f 0036 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0038 c220 | | Store 0x1,0x20 0039 00bf | | Action Accept_Activation 003a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 003b 00c7 | | Action Elaborate_Subprogram 003c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 003d 00c7 | | Action Elaborate_Subprogram 003e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 003f 00c7 | | Action Elaborate_Subprogram 0040 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0041 00c7 | | Action Elaborate_Subprogram 0042 BODY_0008: 0042 00bc | | Action Signal_Activated 0043 00bb | | Action Signal_Completion 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0058 | X | .CONST 0x0058 ; Address of begin 0049 005b | [ | .CONST 0x005b ; Address of exception handler 004a 0004 | | .CONST 0x0004 ; Number of locals 004b INIT_0048: 004b e002 | | Load 0x0,0x2 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d e001 | | Load 0x0,0x1 004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0050 e003 | | Load 0x0,0x3 0051 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0052 0322 | " | Declare_Variable Record 0053 e5fe | | Load 0x2,-0x2 0054 e003 | | Load 0x0,0x3 0055 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0056 00d9 | | Load_Top At_Offset_1 0057 017d | } | Execute Record,Structure_Write 0058 BODY_0048: 0058 4800 |H | Short_Literal 0x0 0059 a5f9 | | Store_Unchecked 0x2,-0x7 005a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 005b TRAP_0048: 005b e001 | | Load 0x0,0x1 005c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 005d 010f | | Execute Exception,Equal 005e 6810 |h | Jump_Zero 0x6f 005f e001 | | Load 0x0,0x1 0060 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0061 a5f9 | | Store_Unchecked 0x2,-0x7 0062 00db | | Load_Top At_Offset_3 0063 e002 | | Load 0x0,0x2 0064 180f | | Execute Package,Field_Execute,Field_Number 0xf 0065 7008 |p | Jump_Nonzero 0x6e 0066 e001 | | Load 0x0,0x1 0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0068 e402 | | Load 0x2,0x2 0069 e5fa | | Load 0x2,-0x6 006a e002 | | Load 0x0,0x2 006b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 006c c402 | | Store 0x2,0x2 006d 005b | [ | Store_Top Discrete,At_Offset_3 006e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 006f 0092 0289 | | Action Push_String_Extended,0x289 ; "Set_Command_Names" 0071 e004 | | Load 0x0,0x4 0072 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0073 a5f9 | | Store_Unchecked 0x2,-0x7 0074 00db | | Load_Top At_Offset_3 0075 e002 | | Load 0x0,0x2 0076 180f | | Execute Package,Field_Execute,Field_Number 0xf 0077 7008 |p | Jump_Nonzero 0x80 0078 e001 | | Load 0x0,0x1 0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007a e402 | | Load 0x2,0x2 007b e5fa | | Load 0x2,-0x6 007c e002 | | Load 0x0,0x2 007d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007e c402 | | Store 0x2,0x2 007f 005b | [ | Store_Top Discrete,At_Offset_3 0080 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 009d | | .CONST 0x009d ; Address of begin 0089 00c8 | | .CONST 0x00c8 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e002 | | Load 0x0,0x2 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d e001 | | Load 0x0,0x1 008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0090 4800 |H | Short_Literal 0x0 0091 e219 | | Load 0x1,0x19 0092 1c08 | | Execute_Immediate Run_Utility,0x8 0093 e003 | | Load 0x0,0x3 0094 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0095 0322 | " | Declare_Variable Record 0096 e5fe | | Load 0x2,-0x2 0097 e003 | | Load 0x0,0x3 0098 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0099 00d9 | | Load_Top At_Offset_1 009a 017d | } | Execute Record,Structure_Write 009b 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 009d BODY_0088: 009d e5fd | | Load 0x2,-0x3 009e 0092 028a | | Action Push_String_Extended,0x28a ; "Compiler_Command" 00a0 e004 | | Load 0x0,0x4 00a1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a2 e001 | | Load 0x0,0x1 00a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a4 e002 | | Load 0x0,0x2 00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a6 e5fd | | Load 0x2,-0x3 00a7 4801 |H | Short_Literal 0x1 00a8 4801 |H | Short_Literal 0x1 00a9 4800 |H | Short_Literal 0x0 00aa e405 | | Load 0x2,0x5 00ab e5ff | | Load 0x2,-0x1 00ac e002 | | Load 0x0,0x2 00ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00ae c402 | | Store 0x2,0x2 00af c403 | | Store 0x2,0x3 00b0 4800 |H | Short_Literal 0x0 00b1 e403 | | Load 0x2,0x3 00b2 e001 | | Load 0x0,0x1 00b3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00b4 680e |h | Jump_Zero 0xc3 00b5 e402 | | Load 0x2,0x2 00b6 e002 | | Load 0x0,0x2 00b7 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b8 6809 |h | Jump_Zero 0xc2 00b9 e005 | | Load 0x0,0x5 00ba 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00bb 6038 |`8 | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00008147} 00bc e001 | | Load 0x0,0x1 00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00be 00db | | Load_Top At_Offset_3 00bf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00c0 00da | | Load_Top At_Offset_2 00c1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c2 8406 | | Call 0x2,0x6 00c3 00db | | Load_Top At_Offset_3 00c4 00db | | Load_Top At_Offset_3 00c5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00c6 00da | | Load_Top At_Offset_2 00c7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c8 TRAP_0088: 00c8 e001 | | Load 0x0,0x1 00c9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00ca 010f | | Execute Exception,Equal 00cb 6812 |h | Jump_Zero 0xde 00cc e001 | | Load 0x0,0x1 00cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ce e404 | | Load 0x2,0x4 00cf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00d0 e402 | | Load 0x2,0x2 00d1 e002 | | Load 0x0,0x2 00d2 180f | | Execute Package,Field_Execute,Field_Number 0xf 00d3 7008 |p | Jump_Nonzero 0xdc 00d4 e001 | | Load 0x0,0x1 00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d6 e402 | | Load 0x2,0x2 00d7 e5fd | | Load 0x2,-0x3 00d8 e002 | | Load 0x0,0x2 00d9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00da c402 | | Store 0x2,0x2 00db c403 | | Store 0x2,0x3 00dc 00db | | Load_Top At_Offset_3 00dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00de 0092 028a | | Action Push_String_Extended,0x28a ; "Compiler_Command" 00e0 e004 | | Load 0x0,0x4 00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e2 e404 | | Load 0x2,0x4 00e3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e4 e402 | | Load 0x2,0x2 00e5 e002 | | Load 0x0,0x2 00e6 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e7 7008 |p | Jump_Nonzero 0xf0 00e8 e001 | | Load 0x0,0x1 00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ea e402 | | Load 0x2,0x2 00eb e5fd | | Load 0x2,-0x3 00ec e002 | | Load 0x0,0x2 00ed 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ee c402 | | Store 0x2,0x2 00ef c403 | | Store 0x2,0x3 00f0 00db | | Load_Top At_Offset_3 00f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f2 0000 0000 | | .XXX[0x2] 00f4 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010d | | .CONST 0x010d ; Address of begin 00f9 0138 | 8 | .CONST 0x0138 ; Address of exception handler 00fa 0006 | | .CONST 0x0006 ; Number of locals 00fb INIT_00f8: 00fb e002 | | Load 0x0,0x2 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd e001 | | Load 0x0,0x1 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0100 4800 |H | Short_Literal 0x0 0101 e219 | | Load 0x1,0x19 0102 1c08 | | Execute_Immediate Run_Utility,0x8 0103 e003 | | Load 0x0,0x3 0104 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0105 0322 | " | Declare_Variable Record 0106 e5fe | | Load 0x2,-0x2 0107 e003 | | Load 0x0,0x3 0108 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0109 00d9 | | Load_Top At_Offset_1 010a 017d | } | Execute Record,Structure_Write 010b 029f 020b | | Declare_Subprogram INIT_0208,For_Call 010d BODY_00f8: 010d e5fd | | Load 0x2,-0x3 010e 0092 028b | | Action Push_String_Extended,0x28b ; "Linker_Command" 0110 e004 | | Load 0x0,0x4 0111 180e | | Execute Package,Field_Execute,Field_Number 0xe 0112 e001 | | Load 0x0,0x1 0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0114 e002 | | Load 0x0,0x2 0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0116 e5fd | | Load 0x2,-0x3 0117 4801 |H | Short_Literal 0x1 0118 4801 |H | Short_Literal 0x1 0119 4800 |H | Short_Literal 0x0 011a e405 | | Load 0x2,0x5 011b e5ff | | Load 0x2,-0x1 011c e002 | | Load 0x0,0x2 011d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 011e c402 | | Store 0x2,0x2 011f c403 | | Store 0x2,0x3 0120 4800 |H | Short_Literal 0x0 0121 e403 | | Load 0x2,0x3 0122 e001 | | Load 0x0,0x1 0123 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0124 680e |h | Jump_Zero 0x133 0125 e402 | | Load 0x2,0x2 0126 e002 | | Load 0x0,0x2 0127 180f | | Execute Package,Field_Execute,Field_Number 0xf 0128 6809 |h | Jump_Zero 0x132 0129 e005 | | Load 0x0,0x5 012a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 012b 67c8 |g | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00008147} 012c e001 | | Load 0x0,0x1 012d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012e 00db | | Load_Top At_Offset_3 012f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0130 00da | | Load_Top At_Offset_2 0131 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0132 8406 | | Call 0x2,0x6 0133 00db | | Load_Top At_Offset_3 0134 00db | | Load_Top At_Offset_3 0135 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0136 00da | | Load_Top At_Offset_2 0137 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0138 TRAP_00f8: 0138 e001 | | Load 0x0,0x1 0139 1b17 | | Execute Package,Field_Read,Field_Number 0x17 013a 010f | | Execute Exception,Equal 013b 6812 |h | Jump_Zero 0x14e 013c e001 | | Load 0x0,0x1 013d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013e e404 | | Load 0x2,0x4 013f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0140 e402 | | Load 0x2,0x2 0141 e002 | | Load 0x0,0x2 0142 180f | | Execute Package,Field_Execute,Field_Number 0xf 0143 7008 |p | Jump_Nonzero 0x14c 0144 e001 | | Load 0x0,0x1 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 e402 | | Load 0x2,0x2 0147 e5fd | | Load 0x2,-0x3 0148 e002 | | Load 0x0,0x2 0149 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014a c402 | | Store 0x2,0x2 014b c403 | | Store 0x2,0x3 014c 00db | | Load_Top At_Offset_3 014d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 014e 0092 028b | | Action Push_String_Extended,0x28b ; "Linker_Command" 0150 e004 | | Load 0x0,0x4 0151 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0152 e404 | | Load 0x2,0x4 0153 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0154 e402 | | Load 0x2,0x2 0155 e002 | | Load 0x0,0x2 0156 180f | | Execute Package,Field_Execute,Field_Number 0xf 0157 7008 |p | Jump_Nonzero 0x160 0158 e001 | | Load 0x0,0x1 0159 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015a e402 | | Load 0x2,0x2 015b e5fd | | Load 0x2,-0x3 015c e002 | | Load 0x0,0x2 015d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 015e c402 | | Store 0x2,0x2 015f c403 | | Store 0x2,0x3 0160 00db | | Load_Top At_Offset_3 0161 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017d | } | .CONST 0x017d ; Address of begin 0169 01a8 | | .CONST 0x01a8 ; Address of exception handler 016a 0006 | | .CONST 0x0006 ; Number of locals 016b INIT_0168: 016b e002 | | Load 0x0,0x2 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d e001 | | Load 0x0,0x1 016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0170 4800 |H | Short_Literal 0x0 0171 e219 | | Load 0x1,0x19 0172 1c08 | | Execute_Immediate Run_Utility,0x8 0173 e003 | | Load 0x0,0x3 0174 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0175 0322 | " | Declare_Variable Record 0176 e5fe | | Load 0x2,-0x2 0177 e003 | | Load 0x0,0x3 0178 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0179 00d9 | | Load_Top At_Offset_1 017a 017d | } | Execute Record,Structure_Write 017b 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 017d BODY_0168: 017d e5fd | | Load 0x2,-0x3 017e 0092 028c | | Action Push_String_Extended,0x28c ; "Loader_Command" 0180 e004 | | Load 0x0,0x4 0181 180e | | Execute Package,Field_Execute,Field_Number 0xe 0182 e001 | | Load 0x0,0x1 0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0184 e002 | | Load 0x0,0x2 0185 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0186 e5fd | | Load 0x2,-0x3 0187 4801 |H | Short_Literal 0x1 0188 4801 |H | Short_Literal 0x1 0189 4800 |H | Short_Literal 0x0 018a e405 | | Load 0x2,0x5 018b e5ff | | Load 0x2,-0x1 018c e002 | | Load 0x0,0x2 018d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 018e c402 | | Store 0x2,0x2 018f c403 | | Store 0x2,0x3 0190 4800 |H | Short_Literal 0x0 0191 e403 | | Load 0x2,0x3 0192 e001 | | Load 0x0,0x1 0193 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0194 680e |h | Jump_Zero 0x1a3 0195 e402 | | Load 0x2,0x2 0196 e002 | | Load 0x0,0x2 0197 180f | | Execute Package,Field_Execute,Field_Number 0xf 0198 6809 |h | Jump_Zero 0x1a2 0199 e005 | | Load 0x0,0x5 019a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 019b 6038 |`8 | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x00008147} 019c e001 | | Load 0x0,0x1 019d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019e 00db | | Load_Top At_Offset_3 019f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a0 00da | | Load_Top At_Offset_2 01a1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a2 8406 | | Call 0x2,0x6 01a3 00db | | Load_Top At_Offset_3 01a4 00db | | Load_Top At_Offset_3 01a5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a6 00da | | Load_Top At_Offset_2 01a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a8 TRAP_0168: 01a8 e001 | | Load 0x0,0x1 01a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01aa 010f | | Execute Exception,Equal 01ab 6812 |h | Jump_Zero 0x1be 01ac e001 | | Load 0x0,0x1 01ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ae e404 | | Load 0x2,0x4 01af 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01b0 e402 | | Load 0x2,0x2 01b1 e002 | | Load 0x0,0x2 01b2 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b3 7008 |p | Jump_Nonzero 0x1bc 01b4 e001 | | Load 0x0,0x1 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 e402 | | Load 0x2,0x2 01b7 e5fd | | Load 0x2,-0x3 01b8 e002 | | Load 0x0,0x2 01b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ba c402 | | Store 0x2,0x2 01bb c403 | | Store 0x2,0x3 01bc 00db | | Load_Top At_Offset_3 01bd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01be 0092 028c | | Action Push_String_Extended,0x28c ; "Loader_Command" 01c0 e004 | | Load 0x0,0x4 01c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c2 e404 | | Load 0x2,0x4 01c3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c4 e402 | | Load 0x2,0x2 01c5 e002 | | Load 0x0,0x2 01c6 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c7 7008 |p | Jump_Nonzero 0x1d0 01c8 e001 | | Load 0x0,0x1 01c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ca e402 | | Load 0x2,0x2 01cb e5fd | | Load 0x2,-0x3 01cc e002 | | Load 0x0,0x2 01cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ce c402 | | Store 0x2,0x2 01cf c403 | | Store 0x2,0x3 01d0 00db | | Load_Top At_Offset_3 01d1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d2 0000 0000 | | .XXX[0x2] 01d4 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e4 | | .CONST 0x01e4 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e5fd | | Load 0x2,-0x3 01dc e402 | | Load 0x2,0x2 01dd e006 | | Load 0x0,0x6 01de 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e0 00d8 | | Load_Top At_Offset_0 01e1 01db | | Execute Vector,Length 01e2 e219 | | Load 0x1,0x19 01e3 1c08 | | Execute_Immediate Run_Utility,0x8 01e4 BODY_01d8: 01e4 e001 | | Load 0x0,0x1 01e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e6 e402 | | Load 0x2,0x2 01e7 e5fd | | Load 0x2,-0x3 01e8 e002 | | Load 0x0,0x2 01e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ea c402 | | Store 0x2,0x2 01eb c403 | | Store 0x2,0x3 01ec 00d9 | | Load_Top At_Offset_1 01ed 0092 028d | | Action Push_String_Extended,0x28d ; "<error>" 01ef 01df | | Execute Vector,Equal 01f0 6808 |h | Jump_Zero 0x1f9 01f1 e005 | | Load 0x0,0x5 01f2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01f3 6010 |` | Indirect_Literal Discrete,0x204,{0x00000000, 0x000084e9} 01f4 e001 | | Load 0x0,0x1 01f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f6 00d9 | | Load_Top At_Offset_1 01f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01f8 7803 |x | Jump 0x1fc 01f9 4800 |H | Short_Literal 0x0 01fa 00d9 | | Load_Top At_Offset_1 01fb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01fc 00d9 | | Load_Top At_Offset_1 01fd 00d9 | | Load_Top At_Offset_1 01fe 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 01ff 00d8 | | Load_Top At_Offset_0 0200 00cb | | Action Pop_Block_With_Result 0201 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0202 0000 0000 | | .XXX[0x2] 0204 0000 0000 | | .LITERAL {0x00000000, 0x000084e9} 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0214 | | .CONST 0x0214 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e5fd | | Load 0x2,-0x3 020c e402 | | Load 0x2,0x2 020d e006 | | Load 0x0,0x6 020e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0210 00d8 | | Load_Top At_Offset_0 0211 01db | | Execute Vector,Length 0212 e219 | | Load 0x1,0x19 0213 1c08 | | Execute_Immediate Run_Utility,0x8 0214 BODY_0208: 0214 e001 | | Load 0x0,0x1 0215 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0216 e402 | | Load 0x2,0x2 0217 e5fd | | Load 0x2,-0x3 0218 e002 | | Load 0x0,0x2 0219 1817 | | Execute Package,Field_Execute,Field_Number 0x17 021a c402 | | Store 0x2,0x2 021b c403 | | Store 0x2,0x3 021c 00d9 | | Load_Top At_Offset_1 021d 0092 028d | | Action Push_String_Extended,0x28d ; "<error>" 021f 01df | | Execute Vector,Equal 0220 6808 |h | Jump_Zero 0x229 0221 e005 | | Load 0x0,0x5 0222 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0223 67e0 |g | Indirect_Literal Discrete,0x204,{0x00000000, 0x000084e9} 0224 e001 | | Load 0x0,0x1 0225 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0226 00d9 | | Load_Top At_Offset_1 0227 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0228 7803 |x | Jump 0x22c 0229 4800 |H | Short_Literal 0x0 022a 00d9 | | Load_Top At_Offset_1 022b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022c 00d9 | | Load_Top At_Offset_1 022d 00d9 | | Load_Top At_Offset_1 022e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 022f 00d8 | | Load_Top At_Offset_0 0230 00cb | | Action Pop_Block_With_Result 0231 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0244 | D | .CONST 0x0244 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e5fd | | Load 0x2,-0x3 023c e402 | | Load 0x2,0x2 023d e006 | | Load 0x0,0x6 023e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 023f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0240 00d8 | | Load_Top At_Offset_0 0241 01db | | Execute Vector,Length 0242 e219 | | Load 0x1,0x19 0243 1c08 | | Execute_Immediate Run_Utility,0x8 0244 BODY_0238: 0244 e001 | | Load 0x0,0x1 0245 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0246 e402 | | Load 0x2,0x2 0247 e5fd | | Load 0x2,-0x3 0248 e002 | | Load 0x0,0x2 0249 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024a c402 | | Store 0x2,0x2 024b c403 | | Store 0x2,0x3 024c 00d9 | | Load_Top At_Offset_1 024d 0092 028d | | Action Push_String_Extended,0x28d ; "<error>" 024f 01df | | Execute Vector,Equal 0250 6808 |h | Jump_Zero 0x259 0251 e005 | | Load 0x0,0x5 0252 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0253 6010 |` | Indirect_Literal Discrete,0x264,{0x00000000, 0x000084e9} 0254 e001 | | Load 0x0,0x1 0255 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0256 00d9 | | Load_Top At_Offset_1 0257 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0258 7803 |x | Jump 0x25c 0259 4800 |H | Short_Literal 0x0 025a 00d9 | | Load_Top At_Offset_1 025b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 025c 00d9 | | Load_Top At_Offset_1 025d 00d9 | | Load_Top At_Offset_1 025e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 025f 00d8 | | Load_Top At_Offset_0 0260 00cb | | Action Pop_Block_With_Result 0261 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0262 0000 0000 | | .XXX[0x2] 0264 0000 0000 | | .LITERAL {0x00000000, 0x000084e9} 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4608 |F | Jump_Case 0x9 026c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 026d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 026e 7819 |x | Jump 0x288 ; case 0x2 026f 7818 |x | Jump 0x288 ; case 0x3 0270 7817 |x | Jump 0x288 ; case 0x4 0271 7816 |x | Jump 0x288 ; case 0x5 0272 7815 |x | Jump 0x288 ; case 0x6 0273 7801 |x | Jump 0x275 ; case 0x7 0274 7809 |x | Jump 0x27e ; case 0x8 0275 00db | | Load_Top At_Offset_3 0276 4801 |H | Short_Literal 0x1 0277 e5fe | | Load 0x2,-0x2 0278 00e9 | | Load_Encached String_Cache 0279 035b | [ | Declare_Type Array,Constrained 027a 4801 |H | Short_Literal 0x1 027b e5ff | | Load 0x2,-0x1 027c 031b | | Declare_Type Variant_Record,Constrained 027d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027e 00db | | Load_Top At_Offset_3 027f 00db | | Load_Top At_Offset_3 0280 02fc | | Declare_Variable Variant_Record,With_Constraint 0281 4801 |H | Short_Literal 0x1 0282 e5fe | | Load 0x2,-0x2 0283 00e9 | | Load_Encached String_Cache 0284 0334 | 4 | Declare_Variable Array,With_Constraint 0285 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0286 016a | j | QQ_execute Variant_Record,XXX 0287 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0288 0869 | i | Execute_Immediate Raise,0x69 0289 ; -------------------------------------------------------------------------------------- 0289 ; STRING TABLE 0289 ; -------------------------------------------------------------------------------------- 0289 000c | | .STRTAB 0x000c->0x028f ; "Set_Command_Names" 028a 001b | | .STRTAB 0x001b->0x0297 ; "Compiler_Command" 028b 0029 | ) | .STRTAB 0x0029->0x029f ; "Linker_Command" 028c 0035 | 5 | .STRTAB 0x0035->0x02a6 ; "Loader_Command" 028d 0041 | A | .STRTAB 0x0041->0x02ad ; "<error>" 028e 0046 | F | .STREND 0x0046->0x02b1 028f 5365 745f |Set_| .STRTAB_STRINGS 02b1 0000 0000 | | .BLANK 0000[0x7] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f8c,0x0000,0x0001,0x0000 02be 38e9 4000 |8 @ | .XXX[0x19] 02c0 1000 c000 | | 02c2 b100 0000 | | 02c4 2d8d 0000 |- | 02c6 0200 0000 | | 02c8 0300 2800 | ( | 02ca 0005 1000 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0010 343c | 4<| 02d6 c800 | | 02d7 0000 0000 | | .BLANK 0000[0x2a] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]