|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0318 | | .CONST 0x0318 ; 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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d9 | | Action Push_String_Extended,0x2d9 ; "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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>" 0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0104 e5fe | | Load 0x2,-0x2 0105 0092 02db | | Action Push_String_Extended,0x2db ; "Compiler_Command" 0107 e006 | | Load 0x0,0x6 0108 180f | | Execute Package,Field_Execute,Field_Number 0xf 0109 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>" 0153 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0154 e5fe | | Load 0x2,-0x2 0155 0092 02dc | | Action Push_String_Extended,0x2dc ; "Linker_Command" 0157 e006 | | Load 0x0,0x6 0158 180f | | Execute Package,Field_Execute,Field_Number 0xf 0159 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>" 01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a4 e5fe | | Load 0x2,-0x2 01a5 0092 02dd | | Action Push_String_Extended,0x2dd ; "Loader_Command" 01a7 e006 | | Load 0x0,0x6 01a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a9 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02de | | Action Push_String_Extended,0x2de ; "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 026a | j | .CONST 0x026a ; Address of begin 0259 02b2 | | .CONST 0x02b2 ; Address of exception handler 025a 0005 | | .CONST 0x0005 ; Number of locals 025b INIT_0258: 025b e009 | | Load 0x0,0x9 025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025d 02c7 | | Declare_Variable Any 025e 00d8 | | Load_Top At_Offset_0 025f 1c00 | | Execute_Immediate Run_Utility,0x0 0260 00e1 | | Load_Encached Boolean_Cache 0261 e008 | | Load 0x0,0x8 0262 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0264 02c7 | | Declare_Variable Any 0265 00d8 | | Load_Top At_Offset_0 0266 1c00 | | Execute_Immediate Run_Utility,0x0 0267 e001 | | Load 0x0,0x1 0268 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0269 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 026a BODY_0258: 026a e001 | | Load 0x0,0x1 026b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026c e5fd | | Load 0x2,-0x3 026d e5ff | | Load 0x2,-0x1 026e 8004 | | Call 0x0,0x4 026f 0059 | Y | Store_Top Discrete,At_Offset_1 0270 4800 |H | Short_Literal 0x0 0271 00d9 | | Load_Top At_Offset_1 0272 e001 | | Load 0x0,0x1 0273 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0274 7003 |p | Jump_Nonzero 0x278 0275 0092 02da | | Action Push_String_Extended,0x2da ; "<error>" 0277 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0278 e5ff | | Load 0x2,-0x1 0279 0227 | ' | Execute Access,All_Reference 027a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027b e5fe | | Load 0x2,-0x2 027c e009 | | Load 0x0,0x9 027d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 027e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 027f e008 | | Load 0x0,0x8 0280 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0281 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0282 c404 | | Store 0x2,0x4 0283 00e1 | | Load_Encached Boolean_Cache 0284 e402 | | Load 0x2,0x2 0285 0120 | | Execute Any,Is_Value 0286 6803 |h | Jump_Zero 0x28a 0287 e009 | | Load 0x0,0x9 0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0289 7801 |x | Jump 0x28b 028a e402 | | Load 0x2,0x2 028b e5fd | | Load 0x2,-0x3 028c e5fe | | Load 0x2,-0x2 028d e00b | | Load 0x0,0xb 028e 1887 | | Execute Package,Field_Execute,Field_Number 0x87 028f c402 | | Store 0x2,0x2 0290 005b | [ | Store_Top Discrete,At_Offset_3 0291 00d9 | | Load_Top At_Offset_1 0292 e008 | | Load 0x0,0x8 0293 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0294 180f | | Execute Package,Field_Execute,Field_Number 0xf 0295 00db | | Load_Top At_Offset_3 0296 0f00 | | Execute_Immediate Equal,0x0 0297 0279 | y | Execute Discrete,And 0298 6816 |h | Jump_Zero 0x2af 0299 e5fd | | Load 0x2,-0x3 029a 4801 |H | Short_Literal 0x1 029b 4801 |H | Short_Literal 0x1 029c e007 | | Load 0x0,0x7 029d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 029e 035b | [ | Declare_Type Array,Constrained 029f 0337 | 7 | Declare_Variable Array 02a0 e5fe | | Load 0x2,-0x2 02a1 e007 | | Load 0x0,0x7 02a2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02a3 e007 | | Load 0x0,0x7 02a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a5 0119 | | Execute Any,Check_In_Formal_Type 02a6 4801 |H | Short_Literal 0x1 02a7 00da | | Load_Top At_Offset_2 02a8 01d6 | | Execute Vector,Field_Write 02a9 67a2 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f} 02aa e001 | | Load 0x0,0x1 02ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02ac 0092 02da | | Action Push_String_Extended,0x2da ; "<error>" 02ae 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02af 00d9 | | Load_Top At_Offset_1 02b0 800c | | Call 0x0,0xc 02b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02b2 TRAP_0258: 02b2 e001 | | Load 0x0,0x1 02b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b4 010f | | Execute Exception,Equal 02b5 6816 |h | Jump_Zero 0x2cc 02b6 e5fd | | Load 0x2,-0x3 02b7 4801 |H | Short_Literal 0x1 02b8 4801 |H | Short_Literal 0x1 02b9 e007 | | Load 0x0,0x7 02ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bb 035b | [ | Declare_Type Array,Constrained 02bc 0337 | 7 | Declare_Variable Array 02bd e5fe | | Load 0x2,-0x2 02be e007 | | Load 0x0,0x7 02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c0 e007 | | Load 0x0,0x7 02c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c2 0119 | | Execute Any,Check_In_Formal_Type 02c3 4801 |H | Short_Literal 0x1 02c4 00da | | Load_Top At_Offset_2 02c5 01d6 | | Execute Vector,Field_Write 02c6 600d |` | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x00008114} 02c7 e001 | | Load 0x0,0x1 02c8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02c9 0092 02da | | Action Push_String_Extended,0x2da ; "<error>" 02cb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02cc e5fd | | Load 0x2,-0x3 02cd 0092 02df | | Action Push_String_Extended,0x2df ; "Unit_Options" 02cf e006 | | Load 0x0,0x6 02d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d1 0092 02da | | Action Push_String_Extended,0x2da ; "<error>" 02d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02d4 0000 0000 | | .LITERAL {0x00000000, 0x00008114} 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; STRING TABLE 02d8 ; -------------------------------------------------------------------------------------- 02d8 0012 | | .STRTAB 0x0012->0x02e1 ; "<DEFAULT>" 02d9 0019 | | .STRTAB 0x0019->0x02e5 ; "Set_Command_Names" 02da 0028 | ( | .STRTAB 0x0028->0x02ee ; "<error>" 02db 002d | - | .STRTAB 0x002d->0x02f1 ; "Compiler_Command" 02dc 003b | ; | .STRTAB 0x003b->0x02f9 ; "Linker_Command" 02dd 0047 | G | .STRTAB 0x0047->0x0300 ; "Loader_Command" 02de 0053 | S | .STRTAB 0x0053->0x0307 ; "Set_Unit_Options" 02df 0061 | a | .STRTAB 0x0061->0x030f ; "Unit_Options" 02e0 006b | k | .STREND 0x006b->0x0315 02e1 3c44 4546 |<DEF| .STRTAB_STRINGS 0316 0000 0000 | | .XXX[0x2] 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ef2,0x0000,0x0001,0x0000 031e 0000 0000 | | .BLANK 0000[0x4] 0322 3000 189f |0 | .XXX[0xc6] 0324 0000 0000 | | 0326 0009 2860 | (`| 0328 09d4 0404 | | 032a 0800 0a80 | | 032c 8000 0000 | | 032e 0000 0000 | | 0330 09d3 ac04 | | 0332 0000 1744 | D| 0334 00b0 64fe | d | 0336 0000 2726 | '&| 0338 001d c404 | | 033a 0800 1238 | 8| 033c 30bc b50b |0 | 033e 0040 b468 | @ h| 0340 0032 5404 | 2T | 0342 0000 0144 | D| 0344 00b0 64fe | d | 0346 0009 1650 | P| 0348 00b0 64fe | d | 034a 0000 007f | | 034c 0059 c40e | Y | 034e 0000 3f22 | ?"| 0350 00b0 64fe | d | 0352 0000 18bf | | 0354 0009 6196 | a | 0356 0009 278f | ' | 0358 0032 5404 | 2T | 035a 0000 0144 | D| 035c 00b0 64fe | d | 035e 0009 1650 | P| 0360 0032 5404 | 2T | 0362 0000 007f | | 0364 0059 c40e | Y | 0366 0000 cb62 | b| 0368 0032 5404 | 2T | 036a 0000 18bf | | 036c 0009 c097 | | 036e 0009 278f | ' | 0370 0032 5404 | 2T | 0372 0000 0f4c | L| 0374 25a0 0d0a |% | 0376 0002 7f88 | | 0378 84ec 5c01 | \ | 037a 1831 0000 | 1 | 037c 0000 4381 | C | 037e c021 0f88 | ! | 0380 0000 0000 | | 0382 8bc2 c222 | "| 0384 8011 70c0 | p | 0386 0000 0001 | | 0388 17fc 9704 | | 038a 0022 e180 | " | 038c 08ca 6002 | ` | 038e 2040 01c3 | @ | 0390 57fc 0700 |W | 0392 843e 0000 | > | 0394 0008 1081 | | 0396 2000 0000 | | 0398 008c 87c0 | | 039a 11d9 9004 | | 039c 5c32 074e |\2 N| 039e 008e e700 | | 03a0 0000 0008 | | 03a2 d798 0236 | 6| 03a4 a53b 1700 | ; | 03a6 46bc c000 |F | 03a8 0000 1100 | | 03aa 7008 57ce |p W | 03ac 0000 0000 | | 03ae 2348 f088 |#H | 03b0 a004 6738 | g8| 03b2 0000 0000 | | 03b4 46af a662 |F b| 03b6 4008 ce70 |@ p| 03b8 023a 9800 | : | 03ba 8dfb 0023 | #| 03bc 8da0 2006 | | 03be ac60 0276 | ` v| 03c0 2e00 8da9 |. | 03c2 0000 0000 | | 03c4 1a00 4006 | @ | 03c6 a62c e858 | , X| 03c8 011b 5200 | R | 03ca 0000 002c | ,| 03cc 8080 0ecb | | 03ce 8010 0356 | V| 03d0 3000 0700 |0 | 03d2 857c c000 | | | 03d4 0008 1081 | | 03d6 2000 0000 | | 03d8 008e 87c0 | | 03da 0000 0004 | | 03dc 673a 0e02 |g: | 03de 0080 8a00 | | 03e0 23d1 a008 |# | 03e2 26f8 1c02 |& | 03e4 1a2f 0000 | / | 03e6 0000 003b | ;| 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 004a 280e | J( | .XXX[0x14] 03ee 0000 8006 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 004a 280e | J( | 03f6 0000 9a70 | p| 03f8 fffe 0025 | %| 03fa 5000 0001 |P | 03fc 0000 0000 | | 03fe 0000 0005 | |