|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_b8bce8
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a8 | | .CONST 0x02a8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e4 | | .CONST 0x00e4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 000f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0015 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0017 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0019 4800 |H | Short_Literal 0x0 001a 4808 |H | Short_Literal 0x8 001b e001 | | Load 0x0,0x1 001c 01d7 | | Execute Vector,Field_Read 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 038f | | Declare_Type Package,Defined,Visible 001f e001 | | Load 0x0,0x1 0020 4807 |H | Short_Literal 0x7 0021 e001 | | Load 0x0,0x1 0022 01d7 | | Execute Vector,Field_Read 0023 4802 |H | Short_Literal 0x2 0024 00db | | Load_Top At_Offset_3 0025 020e | | Execute Module,Augment_Imports 0026 0386 | | Declare_Variable Package,Visible 0027 0093 0000 | | push_full_address 0x0 0029 60d2 |` | Indirect_Literal Discrete,0xfc,{0x80000000, 0x00010000} 002a 0273 | s | Execute Discrete,Plus 002b e20d | | Load 0x1,0xd 002c 60cb |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x0000ffff} 002d 0279 | y | Execute Discrete,And 002e 0273 | s | Execute Discrete,Plus 002f 0129 | ) | Execute Any,Make_Visible 0030 4800 |H | Short_Literal 0x0 0031 4803 |H | Short_Literal 0x3 0032 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0034 03fe | | Declare_Type Discrete,Defined,Visible 0035 00d8 | | Load_Top At_Offset_0 0036 4803 |H | Short_Literal 0x3 0037 4800 |H | Short_Literal 0x0 0038 4801 |H | Short_Literal 0x1 0039 4804 |H | Short_Literal 0x4 003a 0319 | | Declare_Type Variant_Record,Incomplete,Visible 003b 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 003d 00d9 | | Load_Top At_Offset_1 003e 012a | * | Execute Any,Change_Utility 003f 0007 | | Action Break_Optional 0040 00d8 | | Load_Top At_Offset_0 0041 02a0 | | Declare_Subprogram Null_Subprogram 0042 4818 |H | Short_Literal 0x18 0043 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0044 00d8 | | Load_Top At_Offset_0 0045 0129 | ) | Execute Any,Make_Visible 0046 c211 | | Store 0x1,0x11 0047 00bf | | Action Accept_Activation 0048 4800 |H | Short_Literal 0x0 0049 4801 |H | Short_Literal 0x1 004a 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 004c 03fd | | Declare_Type Discrete,Defined 004d 4800 |H | Short_Literal 0x0 004e 4806 |H | Short_Literal 0x6 004f e001 | | Load 0x0,0x1 0050 01d7 | | Execute Vector,Field_Read 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 038e | | Declare_Type Package,Defined 0053 e001 | | Load 0x0,0x1 0054 4805 |H | Short_Literal 0x5 0055 e001 | | Load 0x0,0x1 0056 01d7 | | Execute Vector,Field_Read 0057 4802 |H | Short_Literal 0x2 0058 00db | | Load_Top At_Offset_3 0059 020e | | Execute Module,Augment_Imports 005a 0387 | | Declare_Variable Package 005b 4800 |H | Short_Literal 0x0 005c 4804 |H | Short_Literal 0x4 005d e001 | | Load 0x0,0x1 005e 01d7 | | Execute Vector,Field_Read 005f 02a0 | | Declare_Subprogram Null_Subprogram 0060 038e | | Declare_Type Package,Defined 0061 e001 | | Load 0x0,0x1 0062 4803 |H | Short_Literal 0x3 0063 e001 | | Load 0x0,0x1 0064 01d7 | | Execute Vector,Field_Read 0065 e002 | | Load 0x0,0x2 0066 4803 |H | Short_Literal 0x3 0067 e21f | | Load 0x1,0x1f 0068 020e | | Execute Module,Augment_Imports 0069 0387 | | Declare_Variable Package 006a 4800 |H | Short_Literal 0x0 006b 480a |H | Short_Literal 0xa 006c e001 | | Load 0x0,0x1 006d 01d7 | | Execute Vector,Field_Read 006e 02a0 | | Declare_Subprogram Null_Subprogram 006f 038e | | Declare_Type Package,Defined 0070 e001 | | Load 0x0,0x1 0071 4809 |H | Short_Literal 0x9 0072 e001 | | Load 0x0,0x1 0073 01d7 | | Execute Vector,Field_Read 0074 e21d | | Load 0x1,0x1d 0075 e21c | | Load 0x1,0x1c 0076 e21e | | Load 0x1,0x1e 0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0078 e20e | | Load 0x1,0xe 0079 4806 |H | Short_Literal 0x6 007a e220 | | Load 0x1,0x20 007b 020e | | Execute Module,Augment_Imports 007c 0387 | | Declare_Variable Package 007d 4800 |H | Short_Literal 0x0 007e 4802 |H | Short_Literal 0x2 007f e001 | | Load 0x0,0x1 0080 01d7 | | Execute Vector,Field_Read 0081 02a0 | | Declare_Subprogram Null_Subprogram 0082 038e | | Declare_Type Package,Defined 0083 e001 | | Load 0x0,0x1 0084 4801 |H | Short_Literal 0x1 0085 e001 | | Load 0x0,0x1 0086 01d7 | | Execute Vector,Field_Read 0087 e21d | | Load 0x1,0x1d 0088 e21c | | Load 0x1,0x1c 0089 e21e | | Load 0x1,0x1e 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b e20e | | Load 0x1,0xe 008c 4806 |H | Short_Literal 0x6 008d e221 | ! | Load 0x1,0x21 008e 020e | | Execute Module,Augment_Imports 008f 0387 | | Declare_Variable Package 0090 4801 |H | Short_Literal 0x1 0091 00db | | Load_Top At_Offset_3 0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0093 4801 |H | Short_Literal 0x1 0094 e220 | | Load 0x1,0x20 0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0096 4801 |H | Short_Literal 0x1 0097 e221 | ! | Load 0x1,0x21 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 009b 4803 |H | Short_Literal 0x3 009c 4800 |H | Short_Literal 0x0 009d e21b | | Load 0x1,0x1b 009e 0307 | | Complete_Type Variant_Record,By_Defining 009f e21c | | Load 0x1,0x1c 00a0 03c4 | | Complete_Type Access,By_Component_Completion 00a1 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 00a3 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00ae 00c7 | | Action Elaborate_Subprogram 00af e21e | | Load 0x1,0x1e 00b0 020f | | Execute Module,Activate 00b1 a003 | | Store_Unchecked 0x0,0x3 00b2 a004 | | Store_Unchecked 0x0,0x4 00b3 a005 | | Store_Unchecked 0x0,0x5 00b4 4803 |H | Short_Literal 0x3 00b5 e21f | | Load 0x1,0x1f 00b6 020e | | Execute Module,Augment_Imports 00b7 00db | | Load_Top At_Offset_3 00b8 020f | | Execute Module,Activate 00b9 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00ba a006 | | Store_Unchecked 0x0,0x6 00bb e21e | | Load 0x1,0x1e 00bc 190f | | Execute Package,Field_Reference,Field_Number 0xf 00bd 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00be 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bf 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c0 e21e | | Load 0x1,0x1e 00c1 190e | | Execute Package,Field_Reference,Field_Number 0xe 00c2 4807 |H | Short_Literal 0x7 00c3 e220 | | Load 0x1,0x20 00c4 020e | | Execute Module,Augment_Imports 00c5 00da | | Load_Top At_Offset_2 00c6 020f | | Execute Module,Activate 00c7 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c8 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c9 a006 | | Store_Unchecked 0x0,0x6 00ca e21e | | Load 0x1,0x1e 00cb 190f | | Execute Package,Field_Reference,Field_Number 0xf 00cc 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00cd 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ce e21e | | Load 0x1,0x1e 00cf 190e | | Execute Package,Field_Reference,Field_Number 0xe 00d0 4807 |H | Short_Literal 0x7 00d1 e221 | ! | Load 0x1,0x21 00d2 020e | | Execute Module,Augment_Imports 00d3 00d9 | | Load_Top At_Offset_1 00d4 020f | | Execute Module,Activate 00d5 00d9 | | Load_Top At_Offset_1 00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d7 00da | | Load_Top At_Offset_2 00d8 190e | | Execute Package,Field_Reference,Field_Number 0xe 00d9 e21b | | Load 0x1,0x1b 00da 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00db e220 | | Load 0x1,0x20 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e220 | | Load 0x1,0x20 00de 190e | | Execute Package,Field_Reference,Field_Number 0xe 00df 4806 |H | Short_Literal 0x6 00e0 e218 | | Load 0x1,0x18 00e1 020e | | Execute Module,Augment_Imports 00e2 e218 | | Load 0x1,0x18 00e3 020f | | Execute Module,Activate 00e4 BODY_0008: 00e4 00bc | | Action Signal_Activated 00e5 00bb | | Action Signal_Completion 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4800 |H | Short_Literal 0x0 00ec e21b | | Load 0x1,0x1b 00ed 1c08 | | Execute_Immediate Run_Utility,0x8 00ee 00db | | Load_Top At_Offset_3 00ef e21f | | Load 0x1,0x1f 00f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 00f1 00d9 | | Load_Top At_Offset_1 00f2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 00f3 8222 | " | Call 0x1,0x22 00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 00fc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4800 |H | Short_Literal 0x0 0104 e21b | | Load 0x1,0x1b 0105 1c08 | | Execute_Immediate Run_Utility,0x8 0106 00db | | Load_Top At_Offset_3 0107 e21f | | Load 0x1,0x1f 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 00d9 | | Load_Top At_Offset_1 010a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 010b 8222 | " | Call 0x1,0x22 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e220 | | Load 0x1,0x20 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02ff | | Declare_Variable Variant_Record 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 BODY_0110: 0118 e5fd | | Load 0x2,-0x3 0119 e5fe | | Load 0x2,-0x2 011a 00d8 | | Load_Top At_Offset_0 011b e20e | | Load 0x1,0xe 011c 0260 | ` | Execute Discrete,In_Type 011d 7001 |p | Jump_Nonzero 0x11f 011e 0801 | | Execute_Immediate Raise,0x1 011f e220 | | Load 0x1,0x20 0120 180f | | Execute Package,Field_Execute,Field_Number 0xf 0121 00d9 | | Load_Top At_Offset_1 0122 016d | m | Execute Variant_Record,Structure_Write 0123 4801 |H | Short_Literal 0x1 0124 e21b | | Load 0x1,0x1b 0125 1c08 | | Execute_Immediate Run_Utility,0x8 0126 00d9 | | Load_Top At_Offset_1 0127 00d9 | | Load_Top At_Offset_1 0128 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0129 8222 | " | Call 0x1,0x22 012a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0138 | 8 | .CONST 0x0138 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 e221 | ! | Load 0x1,0x21 0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0135 02ff | | Declare_Variable Variant_Record 0136 00d8 | | Load_Top At_Offset_0 0137 1c00 | | Execute_Immediate Run_Utility,0x0 0138 BODY_0130: 0138 e5fc | | Load 0x2,-0x4 0139 e5fd | | Load 0x2,-0x3 013a e5fe | | Load 0x2,-0x2 013b 00d8 | | Load_Top At_Offset_0 013c e20e | | Load 0x1,0xe 013d 0260 | ` | Execute Discrete,In_Type 013e 7001 |p | Jump_Nonzero 0x140 013f 0801 | | Execute_Immediate Raise,0x1 0140 e221 | ! | Load 0x1,0x21 0141 180f | | Execute Package,Field_Execute,Field_Number 0xf 0142 00d9 | | Load_Top At_Offset_1 0143 016d | m | Execute Variant_Record,Structure_Write 0144 4802 |H | Short_Literal 0x2 0145 e21b | | Load 0x1,0x1b 0146 1c08 | | Execute_Immediate Run_Utility,0x8 0147 00d9 | | Load_Top At_Offset_1 0148 00d9 | | Load_Top At_Offset_1 0149 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 014a 8222 | " | Call 0x1,0x22 014b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 e21c | | Load 0x1,0x1c 0155 022f | / | Execute Access,Equal 0156 6802 |h | Jump_Zero 0x159 0157 4800 |H | Short_Literal 0x0 0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0159 00da | | Load_Top At_Offset_2 015a 0227 | ' | Execute Access,All_Reference 015b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 015c 4603 |F | Jump_Case 0x4 015d 7805 |x | Jump 0x163 ; case 0x0 015e 780a |x | Jump 0x169 ; case 0x1 015f 780f |x | Jump 0x16f ; case 0x2 0160 7800 |x | Jump 0x161 ; case 0x3 0161 e219 | | Load 0x1,0x19 0162 0257 | W | Execute Discrete,Raise 0163 00da | | Load_Top At_Offset_2 0164 0227 | ' | Execute Access,All_Reference 0165 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0166 e21f | | Load 0x1,0x1f 0167 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 00da | | Load_Top At_Offset_2 016a 0227 | ' | Execute Access,All_Reference 016b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 016c e220 | | Load 0x1,0x20 016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 00da | | Load_Top At_Offset_2 0170 0227 | ' | Execute Access,All_Reference 0171 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0172 e221 | ! | Load 0x1,0x21 0173 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e21c | | Load 0x1,0x1c 017d 022e | . | Execute Access,Not_Equal 017e 6821 |h! | Jump_Zero 0x1a0 017f 00da | | Load_Top At_Offset_2 0180 0227 | ' | Execute Access,All_Reference 0181 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0182 4603 |F | Jump_Case 0x4 0183 7808 |x | Jump 0x18c ; case 0x0 0184 780e |x | Jump 0x193 ; case 0x1 0185 7814 |x | Jump 0x19a ; case 0x2 0186 7800 |x | Jump 0x187 ; case 0x3 0187 00db | | Load_Top At_Offset_3 0188 0092 0283 | | Action Push_String_Extended,0x283 ; "Undefined expression" 018a 8006 | | Call 0x0,0x6 018b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018c 00db | | Load_Top At_Offset_3 018d 00db | | Load_Top At_Offset_3 018e 0227 | ' | Execute Access,All_Reference 018f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0190 e21f | | Load 0x1,0x1f 0191 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0192 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0193 00db | | Load_Top At_Offset_3 0194 00db | | Load_Top At_Offset_3 0195 0227 | ' | Execute Access,All_Reference 0196 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0197 e220 | | Load 0x1,0x20 0198 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019a 00db | | Load_Top At_Offset_3 019b 00db | | Load_Top At_Offset_3 019c 0227 | ' | Execute Access,All_Reference 019d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 019e e221 | ! | Load 0x1,0x21 019f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4607 |F | Jump_Case 0x8 01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01ad 7807 |x | Jump 0x1b5 ; case 0x1 01ae 780a |x | Jump 0x1b9 ; case 0x2 01af 780e |x | Jump 0x1be ; case 0x3 01b0 7811 |x | Jump 0x1c2 ; case 0x4 01b1 7812 |x | Jump 0x1c4 ; case 0x5 01b2 7813 |x | Jump 0x1c6 ; case 0x6 01b3 7816 |x | Jump 0x1ca ; case 0x7 01b4 4302 |C | .XXX[0x1] 01b5 00da | | Load_Top At_Offset_2 01b6 0091 027d | }| Action Push_String_Extended_Indexed,0x27d ; "PRIMARY" 01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b9 00db | | Load_Top At_Offset_3 01ba 00db | | Load_Top At_Offset_3 01bb 00e0 | | Load_Encached Standard_Cache 01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01be 00da | | Load_Top At_Offset_2 01bf 00e0 | | Load_Encached Standard_Cache 01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c2 00db | | Load_Top At_Offset_3 01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c4 00db | | Load_Top At_Offset_3 01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c6 e21a | | Load 0x1,0x1a 01c7 00dc | | Load_Top At_Offset_4 01c8 0267 | g | Execute Discrete,Predecessor 01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ca e21a | | Load 0x1,0x1a 01cb 00dc | | Load_Top At_Offset_4 01cc 0268 | h | Execute Discrete,Successor 01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 INIT_01d0: 01d3 4609 |F | Jump_Case 0xa 01d4 7809 |x | Jump 0x1de ; case 0x0 01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01d6 781b |x | Jump 0x1f2 ; case 0x2 01d7 781e |x | Jump 0x1f6 ; case 0x3 01d8 7823 |x# | Jump 0x1fc ; case 0x4 01d9 782d |x- | Jump 0x207 ; case 0x5 01da 7837 |x7 | Jump 0x212 ; case 0x6 01db 7844 |xD | Jump 0x220 ; case 0x7 01dc 7854 |xT | Jump 0x231 ; case 0x8 01dd 785a |xZ | Jump 0x238 ; case 0x9 01de 00da | | Load_Top At_Offset_2 01df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01e0 4603 |F | Jump_Case 0x4 01e1 7804 |x | Jump 0x1e6 ; case 0x0 01e2 7807 |x | Jump 0x1ea ; case 0x1 01e3 780a |x | Jump 0x1ee ; case 0x2 01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 01e5 4302 |C | .XXX[0x1] 01e6 00da | | Load_Top At_Offset_2 01e7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01e8 1c00 | | Execute_Immediate Run_Utility,0x0 01e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ea 00da | | Load_Top At_Offset_2 01eb 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01ec 1c00 | | Execute_Immediate Run_Utility,0x0 01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ee 00da | | Load_Top At_Offset_2 01ef 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01f0 1c00 | | Execute_Immediate Run_Utility,0x0 01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01f2 4801 |H | Short_Literal 0x1 01f3 4804 |H | Short_Literal 0x4 01f4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01f5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f6 e5fd | | Load 0x2,-0x3 01f7 00db | | Load_Top At_Offset_3 01f8 1c07 | | Execute_Immediate Run_Utility,0x7 01f9 e5fe | | Load 0x2,-0x2 01fa 0306 | | Complete_Type Variant_Record,By_Renaming 01fb 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 01fc 4801 |H | Short_Literal 0x1 01fd 4804 |H | Short_Literal 0x4 01fe 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01ff e5fe | | Load 0x2,-0x2 0200 00d8 | | Load_Top At_Offset_0 0201 e5ff | | Load 0x2,-0x1 0202 1c06 | | Execute_Immediate Run_Utility,0x6 0203 e5ff | | Load 0x2,-0x1 0204 00db | | Load_Top At_Offset_3 0205 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 0206 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0207 4801 |H | Short_Literal 0x1 0208 00db | | Load_Top At_Offset_3 0209 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 020a 4603 |F | Jump_Case 0x4 020b 7803 |x | Jump 0x20f ; case 0x0 020c 7802 |x | Jump 0x20f ; case 0x1 020d 7801 |x | Jump 0x20f ; case 0x2 020e 7800 |x | Jump 0x20f ; case 0x3 020f e5ff | | Load 0x2,-0x1 0210 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0212 00db | | Load_Top At_Offset_3 0213 4603 |F | Jump_Case 0x4 0214 7805 |x | Jump 0x21a ; case 0x0 0215 7806 |x | Jump 0x21c ; case 0x1 0216 7807 |x | Jump 0x21e ; case 0x2 0217 7800 |x | Jump 0x218 ; case 0x3 0218 48ff |H | Short_Literal 0xff 0219 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021a 4801 |H | Short_Literal 0x1 021b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021c 4802 |H | Short_Literal 0x2 021d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021e 4803 |H | Short_Literal 0x3 021f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0220 00db | | Load_Top At_Offset_3 0221 e5fe | | Load 0x2,-0x2 0222 4603 |F | Jump_Case 0x4 0223 7805 |x | Jump 0x229 ; case 0x0 0224 7806 |x | Jump 0x22b ; case 0x1 0225 7807 |x | Jump 0x22d ; case 0x2 0226 7800 |x | Jump 0x227 ; case 0x3 0227 48ff |H | Short_Literal 0xff 0228 7805 |x | Jump 0x22e 0229 4801 |H | Short_Literal 0x1 022a 7803 |x | Jump 0x22e 022b 4802 |H | Short_Literal 0x2 022c 7801 |x | Jump 0x22e 022d 4803 |H | Short_Literal 0x3 022e e5ff | | Load 0x2,-0x1 022f 031b | | Declare_Type Variant_Record,Constrained 0230 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0231 00db | | Load_Top At_Offset_3 0232 e5fe | | Load 0x2,-0x2 0233 e5ff | | Load 0x2,-0x1 0234 1c06 | | Execute_Immediate Run_Utility,0x6 0235 e5ff | | Load 0x2,-0x1 0236 02fc | | Declare_Variable Variant_Record,With_Constraint 0237 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0238 0869 | i | Execute_Immediate Raise,0x69 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4607 |F | Jump_Case 0x8 0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0245 7807 |x | Jump 0x24d ; case 0x1 0246 780a |x | Jump 0x251 ; case 0x2 0247 780e |x | Jump 0x256 ; case 0x3 0248 7811 |x | Jump 0x25a ; case 0x4 0249 7812 |x | Jump 0x25c ; case 0x5 024a 7813 |x | Jump 0x25e ; case 0x6 024b 7816 |x | Jump 0x262 ; case 0x7 024c 4302 |C | .XXX[0x1] 024d 00da | | Load_Top At_Offset_2 024e 0091 0281 | | Action Push_String_Extended_Indexed,0x281 ; "SYSTEM" 0250 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0251 00db | | Load_Top At_Offset_3 0252 00db | | Load_Top At_Offset_3 0253 00e0 | | Load_Encached Standard_Cache 0254 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0255 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0256 00da | | Load_Top At_Offset_2 0257 00e0 | | Load_Encached Standard_Cache 0258 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0259 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 025a 00db | | Load_Top At_Offset_3 025b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 025c 00db | | Load_Top At_Offset_3 025d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 025e e21d | | Load 0x1,0x1d 025f 00dc | | Load_Top At_Offset_4 0260 0267 | g | Execute Discrete,Predecessor 0261 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0262 e21d | | Load 0x1,0x1d 0263 00dc | | Load_Top At_Offset_4 0264 0268 | h | Execute Discrete,Successor 0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026d | m | .CONST 0x026d ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b e21c | | Load 0x1,0x1c 026c 0007 | | Action Break_Optional 026d BODY_0268: 026d 00db | | Load_Top At_Offset_3 026e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 026f 00d8 | | Load_Top At_Offset_0 0270 e21b | | Load 0x1,0x1b 0271 1c06 | | Execute_Immediate Run_Utility,0x6 0272 e21c | | Load 0x1,0x1c 0273 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0274 00d8 | | Load_Top At_Offset_0 0275 0227 | ' | Execute Access,All_Reference 0276 1c00 | | Execute_Immediate Run_Utility,0x0 0277 0039 | 9 | Store_Top Access,At_Offset_1 0278 00db | | Load_Top At_Offset_3 0279 00d9 | | Load_Top At_Offset_1 027a 0228 | ( | Execute Access,All_Write 027b 00d8 | | Load_Top At_Offset_0 027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027d ; -------------------------------------------------------------------------------------- 027d ; STRING TABLE 027d ; -------------------------------------------------------------------------------------- 027d 0010 | | .STRTAB 0x0010->0x0285 ; "PRIMARY" 027e 0015 | | .STRTAB 0x0015->0x0288 ; "UNARY" 027f 0018 | | .STRTAB 0x0018->0x028b ; "BINARY" 0280 001c | | .STRTAB 0x001c->0x028e ; "UNDEFINED" 0281 0023 | # | .STRTAB 0x0023->0x0292 ; "SYSTEM" 0282 0027 | ' | .STRTAB 0x0027->0x0295 ; "USER" 0283 0029 | ) | .STRTAB 0x0029->0x0297 ; "Undefined expression" 0284 003b | ; | .STREND 0x003b->0x02a1 0285 5052 494d |PRIM| .STRTAB_STRINGS 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9023,0x0000,0x0001,0x000c 02ae 000b 02de | | .DBG4T 0x000b,0x02de,0xc000,0x0000 02b2 0048 02ee | H | .DBG4T 0x0048,0x02ee,0xc000,0x0000 02b6 00eb 0302 | | .DBG4T 0x00eb,0x0302,0x1002,0x0000 02ba 0103 0305 | | .DBG4T 0x0103,0x0305,0x1002,0x0000 02be 0113 0308 | | .DBG4T 0x0113,0x0308,0x3802,0x0002 02c2 0133 030d | 3 | .DBG4T 0x0133,0x030d,0x3802,0x0002 02c6 0153 0312 | S | .DBG4T 0x0153,0x0312,0x1002,0x4000 02ca 017b 0322 | { "| .DBG4T 0x017b,0x0322,0x1001,0x4000 02ce 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x1005,0x0000 02d2 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x1005,0x0000 02d6 0243 0000 | C | .DBG4T 0x0243,0x0000,0x1005,0x0000 02da 026b 0330 | k 0| .DBG4T 0x026b,0x0330,0x1002,0x0000 02de ; -------------------------------------------------------------------------------------- 02de ; Debug chain 02de ; -------------------------------------------------------------------------------------- 02de 000e 0000 | | .DBGLEN 0x000e,0x0000 02e0 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044 02ee ; -------------------------------------------------------------------------------------- 02ee ; Debug chain 02ee ; -------------------------------------------------------------------------------------- 02ee 0012 0000 | | .DBGLEN 0x0012,0x0000 02f0 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006a,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b9,0x00c7,0x00d5 0302 ; -------------------------------------------------------------------------------------- 0302 ; Debug chain 0302 ; -------------------------------------------------------------------------------------- 0302 0000 0001 | | .DBGLEN 0x0000,0x0001 0304 00eb | | .DBGLNO 0x00eb 0305 ; -------------------------------------------------------------------------------------- 0305 ; Debug chain 0305 ; -------------------------------------------------------------------------------------- 0305 0000 0001 | | .DBGLEN 0x0000,0x0001 0307 0103 | | .DBGLNO 0x0103 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug chain 0308 ; -------------------------------------------------------------------------------------- 0308 0001 0002 | | .DBGLEN 0x0001,0x0002 030a 0113 0118 | | .DBGLNO 0x0113,0x0118,0x0123 030d ; -------------------------------------------------------------------------------------- 030d ; Debug chain 030d ; -------------------------------------------------------------------------------------- 030d 0001 0002 | | .DBGLEN 0x0001,0x0002 030f 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x0144 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 0000 0007 | | .DBGLEN 0x0000,0x0007 0314 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0159,0x0161,0x0163,0x0169,0x016f 031b 0001 0002 | | .XXX[0x7] 031d 0003 0007 | | 031f 0004 0005 | | 0321 0006 | | 0322 ; -------------------------------------------------------------------------------------- 0322 ; Debug chain 0322 ; -------------------------------------------------------------------------------------- 0322 0000 0006 | | .DBGLEN 0x0000,0x0006 0324 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0187,0x018c,0x0193,0x019a 032a 0001 0002 | | .XXX[0x6] 032c 0006 0003 | | 032e 0004 0005 | | 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug chain 0330 ; -------------------------------------------------------------------------------------- 0330 0001 0003 | | .DBGLEN 0x0001,0x0003 0332 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0278,0x027b 0336 0000 0000 | | .BLANK 0000[0xca]