|
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 0308 | | .CONST 0x0308 ; 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 003c | < | .CONST 0x003c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; 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 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 001f c21d | | Store 0x1,0x1d 0020 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0022 c214 | | Store 0x1,0x14 0023 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0025 c215 | | Store 0x1,0x15 0026 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0028 c216 | | Store 0x1,0x16 0029 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 002b c21e | | Store 0x1,0x1e 002c 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 002e c21c | | Store 0x1,0x1c 002f 00bf | | Action Accept_Activation 0030 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0031 00c7 | | Action Elaborate_Subprogram 0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0033 00c7 | | Action Elaborate_Subprogram 0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0035 00c7 | | Action Elaborate_Subprogram 0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0037 00c7 | | Action Elaborate_Subprogram 0038 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0039 00c7 | | Action Elaborate_Subprogram 003a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 003b 00c7 | | Action Elaborate_Subprogram 003c BODY_0008: 003c 00bc | | Action Signal_Activated 003d 00bb | | Action Signal_Completion 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004c | L | .CONST 0x004c ; Address of begin 0041 00b2 | | .CONST 0x00b2 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 e001 | | Load 0x0,0x1 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0046 e002 | | Load 0x0,0x2 0047 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0048 e003 | | Load 0x0,0x3 0049 0322 | " | Declare_Variable Record 004a 00d8 | | Load_Top At_Offset_0 004b 1c00 | | Execute_Immediate Run_Utility,0x0 004c BODY_0040: 004c e001 | | Load 0x0,0x1 004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004e e5fb | | Load 0x2,-0x5 004f e5ff | | Load 0x2,-0x1 0050 8004 | | Call 0x0,0x4 0051 005b | [ | Store_Top Discrete,At_Offset_3 0052 4800 |H | Short_Literal 0x0 0053 00db | | Load_Top At_Offset_3 0054 e001 | | Load 0x0,0x1 0055 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0056 7001 |p | Jump_Nonzero 0x58 0057 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0058 e5ff | | Load 0x2,-0x1 0059 0227 | ' | Execute Access,All_Reference 005a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 005b e002 | | Load 0x0,0x2 005c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 005d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 005e 00d9 | | Load_Top At_Offset_1 005f 0217 | | Execute Heap_Access,All_Reference 0060 00d9 | | Load_Top At_Offset_1 0061 017d | } | Execute Record,Structure_Write 0062 4801 |H | Short_Literal 0x1 0063 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>" 0065 e5fe | | Load 0x2,-0x2 0066 e005 | | Load 0x0,0x5 0067 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0068 7010 |p | Jump_Nonzero 0x79 0069 e5fe | | Load 0x2,-0x2 006a 4801 |H | Short_Literal 0x1 006b e5fe | | Load 0x2,-0x2 006c 01db | | Execute Vector,Length 006d 00d8 | | Load_Top At_Offset_0 006e 00e2 | | Load_Encached Integer_Cache 006f 0260 | ` | Execute Discrete,In_Type 0070 7001 |p | Jump_Nonzero 0x72 0071 0801 | | Execute_Immediate Raise,0x1 0072 00db | | Load_Top At_Offset_3 0073 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0074 01ce | | Execute Vector,Slice_Write 0075 e5fe | | Load 0x2,-0x2 0076 01db | | Execute Vector,Length 0077 00d9 | | Load_Top At_Offset_1 0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0079 4801 |H | Short_Literal 0x1 007a 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>" 007c e5fd | | Load 0x2,-0x3 007d e005 | | Load 0x0,0x5 007e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007f 7010 |p | Jump_Nonzero 0x90 0080 e5fd | | Load 0x2,-0x3 0081 4801 |H | Short_Literal 0x1 0082 e5fd | | Load 0x2,-0x3 0083 01db | | Execute Vector,Length 0084 00d8 | | Load_Top At_Offset_0 0085 00e2 | | Load_Encached Integer_Cache 0086 0260 | ` | Execute Discrete,In_Type 0087 7001 |p | Jump_Nonzero 0x89 0088 0801 | | Execute_Immediate Raise,0x1 0089 00db | | Load_Top At_Offset_3 008a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 008b 01ce | | Execute Vector,Slice_Write 008c e5fd | | Load 0x2,-0x3 008d 01db | | Execute Vector,Length 008e 00d9 | | Load_Top At_Offset_1 008f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0090 4801 |H | Short_Literal 0x1 0091 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>" 0093 e5fc | | Load 0x2,-0x4 0094 e005 | | Load 0x0,0x5 0095 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0096 7010 |p | Jump_Nonzero 0xa7 0097 e5fc | | Load 0x2,-0x4 0098 4801 |H | Short_Literal 0x1 0099 e5fc | | Load 0x2,-0x4 009a 01db | | Execute Vector,Length 009b 00d8 | | Load_Top At_Offset_0 009c 00e2 | | Load_Encached Integer_Cache 009d 0260 | ` | Execute Discrete,In_Type 009e 7001 |p | Jump_Nonzero 0xa0 009f 0801 | | Execute_Immediate Raise,0x1 00a0 00db | | Load_Top At_Offset_3 00a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00a2 01ce | | Execute Vector,Slice_Write 00a3 e5fc | | Load 0x2,-0x4 00a4 01db | | Execute Vector,Length 00a5 00d9 | | Load_Top At_Offset_1 00a6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00a7 00da | | Load_Top At_Offset_2 00a8 00d9 | | Load_Top At_Offset_1 00a9 e5ff | | Load 0x2,-0x1 00aa 0227 | ' | Execute Access,All_Reference 00ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ac e002 | | Load 0x0,0x2 00ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ae 005b | [ | Store_Top Discrete,At_Offset_3 00af 00da | | Load_Top At_Offset_2 00b0 a5fa | | Store_Unchecked 0x2,-0x6 00b1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00b2 TRAP_0040: 00b2 e001 | | Load 0x0,0x1 00b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b4 010f | | Execute Exception,Equal 00b5 6804 |h | Jump_Zero 0xba 00b6 e001 | | Load 0x0,0x1 00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b8 a5fa | | Store_Unchecked 0x2,-0x6 00b9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ba e5fb | | Load 0x2,-0x5 00bb 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Set_Command_Names" 00bd e006 | | Load 0x0,0x6 00be 180f | | Execute Package,Field_Execute,Field_Number 0xf 00bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c8 | | .CONST 0x00c8 ; Address of begin 00c1 00e7 | | .CONST 0x00e7 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e002 | | Load 0x0,0x2 00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c5 e001 | | Load 0x0,0x1 00c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c8 BODY_00c0: 00c8 e001 | | Load 0x0,0x1 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca e5fe | | Load 0x2,-0x2 00cb e5ff | | Load 0x2,-0x1 00cc 8004 | | Call 0x0,0x4 00cd 0059 | Y | Store_Top Discrete,At_Offset_1 00ce 4800 |H | Short_Literal 0x0 00cf 00d9 | | Load_Top At_Offset_1 00d0 e001 | | Load 0x0,0x1 00d1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00d2 7003 |p | Jump_Nonzero 0xd6 00d3 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 00d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d6 e5ff | | Load 0x2,-0x1 00d7 0227 | ' | Execute Access,All_Reference 00d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d9 e002 | | Load 0x0,0x2 00da 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00db 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00dc 4801 |H | Short_Literal 0x1 00dd 00da | | Load_Top At_Offset_2 00de 0217 | | Execute Heap_Access,All_Reference 00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e0 00db | | Load_Top At_Offset_3 00e1 0217 | | Execute Heap_Access,All_Reference 00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e3 01cf | | Execute Vector,Slice_Read 00e4 0335 | 5 | Declare_Variable Array,Duplicate 00e5 00cd | | Action Spare6_Action 00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e7 TRAP_00c0: 00e7 e001 | | Load 0x0,0x1 00e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00e9 010f | | Execute Exception,Equal 00ea 6819 |h | Jump_Zero 0x104 00eb e5fe | | Load 0x2,-0x2 00ec 4801 |H | Short_Literal 0x1 00ed 4801 |H | Short_Literal 0x1 00ee e007 | | Load 0x0,0x7 00ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f0 035b | [ | Declare_Type Array,Constrained 00f1 0337 | 7 | Declare_Variable Array 00f2 e5ff | | Load 0x2,-0x1 00f3 0227 | ' | Execute Access,All_Reference 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 e008 | | Load 0x0,0x8 00f6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f8 e007 | | Load 0x0,0x7 00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fa 0119 | | Execute Any,Check_In_Formal_Type 00fb 4801 |H | Short_Literal 0x1 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 600d |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00008109} 00ff e001 | | Load 0x0,0x1 0100 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0101 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0104 e5fe | | Load 0x2,-0x2 0105 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "Compiler_Command" 0107 e006 | | Load 0x0,0x6 0108 180f | | Execute Package,Field_Execute,Field_Number 0xf 0109 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;" 010b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010c 0000 0000 | | .LITERAL {0x00000000, 0x00008109} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0137 | 7 | .CONST 0x0137 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0115 e001 | | Load 0x0,0x1 0116 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0117 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0118 BODY_0110: 0118 e001 | | Load 0x0,0x1 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a e5fe | | Load 0x2,-0x2 011b e5ff | | Load 0x2,-0x1 011c 8004 | | Call 0x0,0x4 011d 0059 | Y | Store_Top Discrete,At_Offset_1 011e 4800 |H | Short_Literal 0x0 011f 00d9 | | Load_Top At_Offset_1 0120 e001 | | Load 0x0,0x1 0121 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0122 7003 |p | Jump_Nonzero 0x126 0123 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0126 e5ff | | Load 0x2,-0x1 0127 0227 | ' | Execute Access,All_Reference 0128 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0129 e002 | | Load 0x0,0x2 012a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 012c 4801 |H | Short_Literal 0x1 012d 00da | | Load_Top At_Offset_2 012e 0217 | | Execute Heap_Access,All_Reference 012f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0130 00db | | Load_Top At_Offset_3 0131 0217 | | Execute Heap_Access,All_Reference 0132 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0133 01cf | | Execute Vector,Slice_Read 0134 0335 | 5 | Declare_Variable Array,Duplicate 0135 00cd | | Action Spare6_Action 0136 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0137 TRAP_0110: 0137 e001 | | Load 0x0,0x1 0138 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0139 010f | | Execute Exception,Equal 013a 6819 |h | Jump_Zero 0x154 013b e5fe | | Load 0x2,-0x2 013c 4801 |H | Short_Literal 0x1 013d 4801 |H | Short_Literal 0x1 013e e007 | | Load 0x0,0x7 013f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0140 035b | [ | Declare_Type Array,Constrained 0141 0337 | 7 | Declare_Variable Array 0142 e5ff | | Load 0x2,-0x1 0143 0227 | ' | Execute Access,All_Reference 0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0145 e008 | | Load 0x0,0x8 0146 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0147 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0148 e007 | | Load 0x0,0x7 0149 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014a 0119 | | Execute Any,Check_In_Formal_Type 014b 4801 |H | Short_Literal 0x1 014c 00da | | Load_Top At_Offset_2 014d 01d6 | | Execute Vector,Field_Write 014e 600d |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x0000810a} 014f e001 | | Load 0x0,0x1 0150 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0151 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0153 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0154 e5fe | | Load 0x2,-0x2 0155 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Linker_Command" 0157 e006 | | Load 0x0,0x6 0158 180f | | Execute Package,Field_Execute,Field_Number 0xf 0159 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;" 015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015c 0000 0000 | | .LITERAL {0x00000000, 0x0000810a} 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0168 | h | .CONST 0x0168 ; Address of begin 0161 0187 | | .CONST 0x0187 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e002 | | Load 0x0,0x2 0164 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0165 e001 | | Load 0x0,0x1 0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0167 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0168 BODY_0160: 0168 e001 | | Load 0x0,0x1 0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016a e5fe | | Load 0x2,-0x2 016b e5ff | | Load 0x2,-0x1 016c 8004 | | Call 0x0,0x4 016d 0059 | Y | Store_Top Discrete,At_Offset_1 016e 4800 |H | Short_Literal 0x0 016f 00d9 | | Load_Top At_Offset_1 0170 e001 | | Load 0x0,0x1 0171 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0172 7003 |p | Jump_Nonzero 0x176 0173 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0175 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0176 e5ff | | Load 0x2,-0x1 0177 0227 | ' | Execute Access,All_Reference 0178 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0179 e002 | | Load 0x0,0x2 017a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 017c 4801 |H | Short_Literal 0x1 017d 00da | | Load_Top At_Offset_2 017e 0217 | | Execute Heap_Access,All_Reference 017f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0180 00db | | Load_Top At_Offset_3 0181 0217 | | Execute Heap_Access,All_Reference 0182 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0183 01cf | | Execute Vector,Slice_Read 0184 0335 | 5 | Declare_Variable Array,Duplicate 0185 00cd | | Action Spare6_Action 0186 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0187 TRAP_0160: 0187 e001 | | Load 0x0,0x1 0188 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0189 010f | | Execute Exception,Equal 018a 6819 |h | Jump_Zero 0x1a4 018b e5fe | | Load 0x2,-0x2 018c 4801 |H | Short_Literal 0x1 018d 4801 |H | Short_Literal 0x1 018e e007 | | Load 0x0,0x7 018f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0190 035b | [ | Declare_Type Array,Constrained 0191 0337 | 7 | Declare_Variable Array 0192 e5ff | | Load 0x2,-0x1 0193 0227 | ' | Execute Access,All_Reference 0194 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0195 e008 | | Load 0x0,0x8 0196 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0197 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0198 e007 | | Load 0x0,0x7 0199 1b0e | | Execute Package,Field_Read,Field_Number 0xe 019a 0119 | | Execute Any,Check_In_Formal_Type 019b 4801 |H | Short_Literal 0x1 019c 00da | | Load_Top At_Offset_2 019d 01d6 | | Execute Vector,Field_Write 019e 600d |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x0000810b} 019f e001 | | Load 0x0,0x1 01a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01a1 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a4 e5fe | | Load 0x2,-0x2 01a5 0092 02ca | | Action Push_String_Extended,0x2ca ; "Loader_Command" 01a7 e006 | | Load 0x0,0x6 01a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a9 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;" 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 0000 0000 | | .LITERAL {0x00000000, 0x0000810b} 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 0218 | | .CONST 0x0218 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e008 | | Load 0x0,0x8 01b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 02c7 | | Declare_Variable Any 01b7 00d8 | | Load_Top At_Offset_0 01b8 1c00 | | Execute_Immediate Run_Utility,0x0 01b9 e001 | | Load 0x0,0x1 01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01bc BODY_01b0: 01bc e001 | | Load 0x0,0x1 01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01be e5fd | | Load 0x2,-0x3 01bf e5ff | | Load 0x2,-0x1 01c0 8004 | | Call 0x0,0x4 01c1 0059 | Y | Store_Top Discrete,At_Offset_1 01c2 4800 |H | Short_Literal 0x0 01c3 00d9 | | Load_Top At_Offset_1 01c4 e001 | | Load 0x0,0x1 01c5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01c6 7014 |p | Jump_Nonzero 0x1db 01c7 4801 |H | Short_Literal 0x1 01c8 4801 |H | Short_Literal 0x1 01c9 e007 | | Load 0x0,0x7 01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cb 035b | [ | Declare_Type Array,Constrained 01cc 0337 | 7 | Declare_Variable Array 01cd e5fe | | Load 0x2,-0x2 01ce e007 | | Load 0x0,0x7 01cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d0 e007 | | Load 0x0,0x7 01d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d2 0119 | | Execute Any,Check_In_Formal_Type 01d3 4801 |H | Short_Literal 0x1 01d4 00da | | Load_Top At_Offset_2 01d5 01d6 | | Execute Vector,Field_Write 01d6 6079 |`y | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125} 01d7 e001 | | Load 0x0,0x1 01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d9 a5fb | | Store_Unchecked 0x2,-0x5 01da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01db e5ff | | Load 0x2,-0x1 01dc 0227 | ' | Execute Access,All_Reference 01dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01de e5fe | | Load 0x2,-0x2 01df e009 | | Load 0x0,0x9 01e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01e2 e008 | | Load 0x0,0x8 01e3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01e5 c402 | | Store 0x2,0x2 01e6 00d9 | | Load_Top At_Offset_1 01e7 e008 | | Load 0x0,0x8 01e8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ea 6827 |h' | Jump_Zero 0x212 01eb e5fd | | Load 0x2,-0x3 01ec 4801 |H | Short_Literal 0x1 01ed 4801 |H | Short_Literal 0x1 01ee e007 | | Load 0x0,0x7 01ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f0 035b | [ | Declare_Type Array,Constrained 01f1 0337 | 7 | Declare_Variable Array 01f2 e5fe | | Load 0x2,-0x2 01f3 e007 | | Load 0x0,0x7 01f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f5 e007 | | Load 0x0,0x7 01f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f7 0119 | | Execute Any,Check_In_Formal_Type 01f8 4801 |H | Short_Literal 0x1 01f9 00da | | Load_Top At_Offset_2 01fa 01d6 | | Execute Vector,Field_Write 01fb 6050 |`P | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f} 01fc e001 | | Load 0x0,0x1 01fd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01fe 4801 |H | Short_Literal 0x1 01ff 4801 |H | Short_Literal 0x1 0200 e007 | | Load 0x0,0x7 0201 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0202 035b | [ | Declare_Type Array,Constrained 0203 0337 | 7 | Declare_Variable Array 0204 e5fe | | Load 0x2,-0x2 0205 e007 | | Load 0x0,0x7 0206 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0207 e007 | | Load 0x0,0x7 0208 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0209 0119 | | Execute Any,Check_In_Formal_Type 020a 4801 |H | Short_Literal 0x1 020b 00da | | Load_Top At_Offset_2 020c 01d6 | | Execute Vector,Field_Write 020d 6042 |`B | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125} 020e e001 | | Load 0x0,0x1 020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0210 a5fb | | Store_Unchecked 0x2,-0x5 0211 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0212 e5fc | | Load 0x2,-0x4 0213 00da | | Load_Top At_Offset_2 0214 800a | | Call 0x0,0xa 0215 00d8 | | Load_Top At_Offset_0 0216 a5fb | | Store_Unchecked 0x2,-0x5 0217 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0218 TRAP_01b0: 0218 e001 | | Load 0x0,0x1 0219 1b17 | | Execute Package,Field_Read,Field_Number 0x17 021a 010f | | Execute Exception,Equal 021b 6817 |h | Jump_Zero 0x233 021c e5fd | | Load 0x2,-0x3 021d 4801 |H | Short_Literal 0x1 021e 4801 |H | Short_Literal 0x1 021f e007 | | Load 0x0,0x7 0220 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0221 035b | [ | Declare_Type Array,Constrained 0222 0337 | 7 | Declare_Variable Array 0223 e5fe | | Load 0x2,-0x2 0224 e007 | | Load 0x0,0x7 0225 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0226 e007 | | Load 0x0,0x7 0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0228 0119 | | Execute Any,Check_In_Formal_Type 0229 4801 |H | Short_Literal 0x1 022a 00da | | Load_Top At_Offset_2 022b 01d6 | | Execute Vector,Field_Write 022c 6023 |`# | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125} 022d e001 | | Load 0x0,0x1 022e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 022f e001 | | Load 0x0,0x1 0230 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0231 a5fb | | Store_Unchecked 0x2,-0x5 0232 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0233 e5fd | | Load 0x2,-0x3 0234 0092 02cb | | Action Push_String_Extended,0x2cb ; "Set_Unit_Options" 0236 e006 | | Load 0x0,0x6 0237 180f | | Execute Package,Field_Execute,Field_Number 0xf 0238 4801 |H | Short_Literal 0x1 0239 4801 |H | Short_Literal 0x1 023a e007 | | Load 0x0,0x7 023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023c 035b | [ | Declare_Type Array,Constrained 023d 0337 | 7 | Declare_Variable Array 023e e5fe | | Load 0x2,-0x2 023f e007 | | Load 0x0,0x7 0240 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0241 e007 | | Load 0x0,0x7 0242 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0243 0119 | | Execute Any,Check_In_Formal_Type 0244 4801 |H | Short_Literal 0x1 0245 00da | | Load_Top At_Offset_2 0246 01d6 | | Execute Vector,Field_Write 0247 6008 |` | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125} 0248 e001 | | Load 0x0,0x1 0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024a a5fb | | Store_Unchecked 0x2,-0x5 024b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 024c 0000 0000 | | .LITERAL {0x00000000, 0x0000816f} 0250 0000 0000 | | .LITERAL {0x00000000, 0x00008125} 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0264 | d | .CONST 0x0264 ; Address of begin 0259 029b | | .CONST 0x029b ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b e008 | | Load 0x0,0x8 025c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 025d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025e 02c7 | | Declare_Variable Any 025f 00d8 | | Load_Top At_Offset_0 0260 1c00 | | Execute_Immediate Run_Utility,0x0 0261 e001 | | Load 0x0,0x1 0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0263 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0264 BODY_0258: 0264 e001 | | Load 0x0,0x1 0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0266 e5fd | | Load 0x2,-0x3 0267 e5ff | | Load 0x2,-0x1 0268 8004 | | Call 0x0,0x4 0269 0059 | Y | Store_Top Discrete,At_Offset_1 026a 4800 |H | Short_Literal 0x0 026b 00d9 | | Load_Top At_Offset_1 026c e001 | | Load 0x0,0x1 026d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 026e 7003 |p | Jump_Nonzero 0x272 026f 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0271 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0272 e5ff | | Load 0x2,-0x1 0273 0227 | ' | Execute Access,All_Reference 0274 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0275 e5fe | | Load 0x2,-0x2 0276 e009 | | Load 0x0,0x9 0277 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0278 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0279 e008 | | Load 0x0,0x8 027a 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 027b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 027c c402 | | Store 0x2,0x2 027d 00d9 | | Load_Top At_Offset_1 027e e008 | | Load 0x0,0x8 027f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0280 180f | | Execute Package,Field_Execute,Field_Number 0xf 0281 6816 |h | Jump_Zero 0x298 0282 e5fd | | Load 0x2,-0x3 0283 4801 |H | Short_Literal 0x1 0284 4801 |H | Short_Literal 0x1 0285 e007 | | Load 0x0,0x7 0286 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0287 035b | [ | Declare_Type Array,Constrained 0288 0337 | 7 | Declare_Variable Array 0289 e5fe | | Load 0x2,-0x2 028a e007 | | Load 0x0,0x7 028b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 028c e007 | | Load 0x0,0x7 028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028e 0119 | | Execute Any,Check_In_Formal_Type 028f 4801 |H | Short_Literal 0x1 0290 00da | | Load_Top At_Offset_2 0291 01d6 | | Execute Vector,Field_Write 0292 67b9 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f} 0293 e001 | | Load 0x0,0x1 0294 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0295 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 0297 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0298 00d9 | | Load_Top At_Offset_1 0299 800b | | Call 0x0,0xb 029a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 029b TRAP_0258: 029b e001 | | Load 0x0,0x1 029c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 029d 010f | | Execute Exception,Equal 029e 6816 |h | Jump_Zero 0x2b5 029f e5fd | | Load 0x2,-0x3 02a0 4801 |H | Short_Literal 0x1 02a1 4801 |H | Short_Literal 0x1 02a2 e007 | | Load 0x0,0x7 02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a4 035b | [ | Declare_Type Array,Constrained 02a5 0337 | 7 | Declare_Variable Array 02a6 e5fe | | Load 0x2,-0x2 02a7 e007 | | Load 0x0,0x7 02a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02a9 e007 | | Load 0x0,0x7 02aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ab 0119 | | Execute Any,Check_In_Formal_Type 02ac 4801 |H | Short_Literal 0x1 02ad 00da | | Load_Top At_Offset_2 02ae 01d6 | | Execute Vector,Field_Write 02af 6010 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00008114} 02b0 e001 | | Load 0x0,0x1 02b1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02b2 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>" 02b4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02b5 e5fd | | Load 0x2,-0x3 02b6 0092 02cc | | Action Push_String_Extended,0x2cc ; "Unit_Options" 02b8 e006 | | Load 0x0,0x6 02b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ba 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;" 02bc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 0000 0000 | | .LITERAL {0x00000000, 0x00008114} 02c4 ; -------------------------------------------------------------------------------------- 02c4 ; STRING TABLE 02c4 ; -------------------------------------------------------------------------------------- 02c4 0014 | | .STRTAB 0x0014->0x02ce ; "<DEFAULT>" 02c5 001b | | .STRTAB 0x001b->0x02d2 ; "Set_Command_Names" 02c6 002a | * | .STRTAB 0x002a->0x02db ; "<error>" 02c7 002f | / | .STRTAB 0x002f->0x02de ; "Compiler_Command" 02c8 003d | = | .STRTAB 0x003d->0x02e6 ; "<error>;" 02c9 0043 | C | .STRTAB 0x0043->0x02ea ; "Linker_Command" 02ca 004f | O | .STRTAB 0x004f->0x02f1 ; "Loader_Command" 02cb 005b | [ | .STRTAB 0x005b->0x02f8 ; "Set_Unit_Options" 02cc 0069 | i | .STRTAB 0x0069->0x0300 ; "Unit_Options" 02cd 0073 | s | .STREND 0x0073->0x0306 02ce 3c44 4546 |<DEF| .STRTAB_STRINGS 0307 0000 | | .XXX[0x1] 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug Table 0308 ; -------------------------------------------------------------------------------------- 0308 0004 000d | | .DEBUG4 0x0004,0x000d,0x4ec8,0x0000,0x0001,0x0000 030e 0000 0000 | | .BLANK 0000[0xf2]