|
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 02d0 | | .CONST 0x02d0 ; 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 00e7 | | .CONST 0x00e7 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0015 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0017 029a 01a3 | | Declare_Subprogram INIT_01a0,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 60e2 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000} 002a 0273 | s | Execute Discrete,Plus 002b e20d | | Load 0x1,0xd 002c 60db |` | Indirect_Literal Discrete,0x108,{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 01d3 | | Declare_Subprogram INIT_01d0,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 01fb | | Declare_Subprogram INIT_01f8,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 c216 | | Store 0x1,0x16 0047 00bf | | Action Accept_Activation 0048 4800 |H | Short_Literal 0x0 0049 4801 |H | Short_Literal 0x1 004a 029f 026b | k| Declare_Subprogram INIT_0268,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 e221 | ! | Load 0x1,0x21 0067 4804 |H | Short_Literal 0x4 0068 e224 | $ | Load 0x1,0x24 0069 020e | | Execute Module,Augment_Imports 006a 0387 | | Declare_Variable Package 006b 4800 |H | Short_Literal 0x0 006c 480a |H | Short_Literal 0xa 006d e001 | | Load 0x0,0x1 006e 01d7 | | Execute Vector,Field_Read 006f 02a0 | | Declare_Subprogram Null_Subprogram 0070 038e | | Declare_Type Package,Defined 0071 e001 | | Load 0x0,0x1 0072 4809 |H | Short_Literal 0x9 0073 e001 | | Load 0x0,0x1 0074 01d7 | | Execute Vector,Field_Read 0075 e222 | " | Load 0x1,0x22 0076 e223 | # | Load 0x1,0x23 0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0078 e20e | | Load 0x1,0xe 0079 4805 |H | Short_Literal 0x5 007a e225 | % | Load 0x1,0x25 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 e222 | " | Load 0x1,0x22 0088 e211 | | Load 0x1,0x11 0089 e223 | # | Load 0x1,0x23 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b e20e | | Load 0x1,0xe 008c 4806 |H | Short_Literal 0x6 008d e226 | & | Load 0x1,0x26 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 e225 | % | Load 0x1,0x25 0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0096 4801 |H | Short_Literal 0x1 0097 e226 | & | Load 0x1,0x26 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 009b 4803 |H | Short_Literal 0x3 009c 4800 |H | Short_Literal 0x0 009d e220 | | Load 0x1,0x20 009e 0307 | | Complete_Type Variant_Record,By_Defining 009f e221 | ! | Load 0x1,0x21 00a0 03c4 | | Complete_Type Access,By_Component_Completion 00a1 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ae 00c7 | | Action Elaborate_Subprogram 00af e223 | # | Load 0x1,0x23 00b0 020f | | Execute Module,Activate 00b1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b2 a003 | | Store_Unchecked 0x0,0x3 00b3 a004 | | Store_Unchecked 0x0,0x4 00b4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b5 a005 | | Store_Unchecked 0x0,0x5 00b6 4805 |H | Short_Literal 0x5 00b7 e224 | $ | Load 0x1,0x24 00b8 020e | | Execute Module,Augment_Imports 00b9 00db | | Load_Top At_Offset_3 00ba 020f | | Execute Module,Activate 00bb 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00bc a003 | | Store_Unchecked 0x0,0x3 00bd e223 | # | Load 0x1,0x23 00be 190f | | Execute Package,Field_Reference,Field_Number 0xf 00bf 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c0 e223 | # | Load 0x1,0x23 00c1 190e | | Execute Package,Field_Reference,Field_Number 0xe 00c2 4805 |H | Short_Literal 0x5 00c3 e225 | % | Load 0x1,0x25 00c4 020e | | Execute Module,Augment_Imports 00c5 00da | | Load_Top At_Offset_2 00c6 020f | | Execute Module,Activate 00c7 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c8 a003 | | Store_Unchecked 0x0,0x3 00c9 e223 | # | Load 0x1,0x23 00ca 190f | | Execute Package,Field_Reference,Field_Number 0xf 00cb 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00cc 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00cd 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ce e223 | # | Load 0x1,0x23 00cf 190e | | Execute Package,Field_Reference,Field_Number 0xe 00d0 4807 |H | Short_Literal 0x7 00d1 e226 | & | Load 0x1,0x26 00d2 020e | | Execute Module,Augment_Imports 00d3 00d9 | | Load_Top At_Offset_1 00d4 020f | | Execute Module,Activate 00d5 e211 | | Load 0x1,0x11 00d6 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00d7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00d8 e225 | % | Load 0x1,0x25 00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00da e225 | % | Load 0x1,0x25 00db 190e | | Execute Package,Field_Reference,Field_Number 0xe 00dc e220 | | Load 0x1,0x20 00dd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00de e226 | & | Load 0x1,0x26 00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e0 e226 | & | Load 0x1,0x26 00e1 190e | | Execute Package,Field_Reference,Field_Number 0xe 00e2 4809 |H | Short_Literal 0x9 00e3 e21d | | Load 0x1,0x1d 00e4 020e | | Execute Module,Augment_Imports 00e5 e21d | | Load 0x1,0x1d 00e6 020f | | Execute Module,Activate 00e7 BODY_0008: 00e7 00bc | | Action Signal_Activated 00e8 00bb | | Action Signal_Completion 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f8 | | .CONST 0x00f8 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e224 | $ | Load 0x1,0x24 00f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 BODY_00f0: 00f8 00db | | Load_Top At_Offset_3 00f9 e224 | $ | Load 0x1,0x24 00fa 180f | | Execute Package,Field_Execute,Field_Number 0xf 00fb 00d9 | | Load_Top At_Offset_1 00fc 016d | m | Execute Variant_Record,Structure_Write 00fd 4800 |H | Short_Literal 0x0 00fe e220 | | Load 0x1,0x20 00ff 1c08 | | Execute_Immediate Run_Utility,0x8 0100 00d9 | | Load_Top At_Offset_1 0101 00d9 | | Load_Top At_Offset_1 0102 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0103 8227 | ' | Call 0x1,0x27 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 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 e224 | $ | Load 0x1,0x24 0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0115 02ff | | Declare_Variable Variant_Record 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 BODY_0110: 0118 00db | | Load_Top At_Offset_3 0119 e221 | ! | Load 0x1,0x21 011a 022f | / | Execute Access,Equal 011b 6802 |h | Jump_Zero 0x11e 011c e5fe | | Load 0x2,-0x2 011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011e e5fe | | Load 0x2,-0x2 011f e221 | ! | Load 0x1,0x21 0120 022f | / | Execute Access,Equal 0121 6802 |h | Jump_Zero 0x124 0122 00db | | Load_Top At_Offset_3 0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0124 e5fe | | Load 0x2,-0x2 0125 e5ff | | Load 0x2,-0x1 0126 e224 | $ | Load 0x1,0x24 0127 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0128 00d9 | | Load_Top At_Offset_1 0129 016d | m | Execute Variant_Record,Structure_Write 012a 4800 |H | Short_Literal 0x0 012b e220 | | Load 0x1,0x20 012c 1c08 | | Execute_Immediate Run_Utility,0x8 012d 00d9 | | Load_Top At_Offset_1 012e 00d9 | | Load_Top At_Offset_1 012f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0130 8227 | ' | Call 0x1,0x27 0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0140 | @ | .CONST 0x0140 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e225 | % | Load 0x1,0x25 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d 02ff | | Declare_Variable Variant_Record 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 BODY_0138: 0140 e5fe | | Load 0x2,-0x2 0141 00d8 | | Load_Top At_Offset_0 0142 e20e | | Load 0x1,0xe 0143 0260 | ` | Execute Discrete,In_Type 0144 7001 |p | Jump_Nonzero 0x146 0145 0801 | | Execute_Immediate Raise,0x1 0146 e225 | % | Load 0x1,0x25 0147 180f | | Execute Package,Field_Execute,Field_Number 0xf 0148 00d9 | | Load_Top At_Offset_1 0149 016d | m | Execute Variant_Record,Structure_Write 014a 4801 |H | Short_Literal 0x1 014b e220 | | Load 0x1,0x20 014c 1c08 | | Execute_Immediate Run_Utility,0x8 014d 00d9 | | Load_Top At_Offset_1 014e 00d9 | | Load_Top At_Offset_1 014f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0150 8227 | ' | Call 0x1,0x27 0151 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e226 | & | Load 0x1,0x26 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 02ff | | Declare_Variable Variant_Record 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 BODY_0158: 0160 e5fd | | Load 0x2,-0x3 0161 e211 | | Load 0x1,0x11 0162 0119 | | Execute Any,Check_In_Formal_Type 0163 e5fe | | Load 0x2,-0x2 0164 00d8 | | Load_Top At_Offset_0 0165 e20e | | Load 0x1,0xe 0166 0260 | ` | Execute Discrete,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 e226 | & | Load 0x1,0x26 016a 180f | | Execute Package,Field_Execute,Field_Number 0xf 016b 00d9 | | Load_Top At_Offset_1 016c 016d | m | Execute Variant_Record,Structure_Write 016d 4802 |H | Short_Literal 0x2 016e e220 | | Load 0x1,0x20 016f 1c08 | | Execute_Immediate Run_Utility,0x8 0170 00d9 | | Load_Top At_Offset_1 0171 00d9 | | Load_Top At_Offset_1 0172 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0173 8227 | ' | Call 0x1,0x27 0174 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 00db | | Load_Top At_Offset_3 017c e221 | ! | Load 0x1,0x21 017d 022f | / | Execute Access,Equal 017e 6802 |h | Jump_Zero 0x181 017f 4800 |H | Short_Literal 0x0 0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0181 00db | | Load_Top At_Offset_3 0182 0227 | ' | Execute Access,All_Reference 0183 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0184 4603 |F | Jump_Case 0x4 0185 7805 |x | Jump 0x18b ; case 0x0 0186 780b |x | Jump 0x192 ; case 0x1 0187 7811 |x | Jump 0x199 ; case 0x2 0188 7800 |x | Jump 0x189 ; case 0x3 0189 e21e | | Load 0x1,0x1e 018a 0257 | W | Execute Discrete,Raise 018b 00db | | Load_Top At_Offset_3 018c 0227 | ' | Execute Access,All_Reference 018d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 018e 00db | | Load_Top At_Offset_3 018f e224 | $ | Load 0x1,0x24 0190 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0191 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0192 00db | | Load_Top At_Offset_3 0193 0227 | ' | Execute Access,All_Reference 0194 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0195 00db | | Load_Top At_Offset_3 0196 e225 | % | Load 0x1,0x25 0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0199 00db | | Load_Top At_Offset_3 019a 0227 | ' | Execute Access,All_Reference 019b 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 019c 00db | | Load_Top At_Offset_3 019d e226 | & | Load 0x1,0x26 019e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 e221 | ! | Load 0x1,0x21 01a5 022e | . | Execute Access,Not_Equal 01a6 6821 |h! | Jump_Zero 0x1c8 01a7 00da | | Load_Top At_Offset_2 01a8 0227 | ' | Execute Access,All_Reference 01a9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01aa 4603 |F | Jump_Case 0x4 01ab 7808 |x | Jump 0x1b4 ; case 0x0 01ac 780e |x | Jump 0x1bb ; case 0x1 01ad 7814 |x | Jump 0x1c2 ; case 0x2 01ae 7800 |x | Jump 0x1af ; case 0x3 01af 00db | | Load_Top At_Offset_3 01b0 0092 02ab | | Action Push_String_Extended,0x2ab ; "Undefined predicate" 01b2 8003 | | Call 0x0,0x3 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 00db | | Load_Top At_Offset_3 01b5 00db | | Load_Top At_Offset_3 01b6 0227 | ' | Execute Access,All_Reference 01b7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01b8 e224 | $ | Load 0x1,0x24 01b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bb 00db | | Load_Top At_Offset_3 01bc 00db | | Load_Top At_Offset_3 01bd 0227 | ' | Execute Access,All_Reference 01be 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01bf e225 | % | Load 0x1,0x25 01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c2 00db | | Load_Top At_Offset_3 01c3 00db | | Load_Top At_Offset_3 01c4 0227 | ' | Execute Access,All_Reference 01c5 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01c6 e226 | & | Load 0x1,0x26 01c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 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 INIT_01d0: 01d3 4607 |F | Jump_Case 0x8 01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01d5 7807 |x | Jump 0x1dd ; case 0x1 01d6 780a |x | Jump 0x1e1 ; case 0x2 01d7 780e |x | Jump 0x1e6 ; case 0x3 01d8 7811 |x | Jump 0x1ea ; case 0x4 01d9 7812 |x | Jump 0x1ec ; case 0x5 01da 7813 |x | Jump 0x1ee ; case 0x6 01db 7816 |x | Jump 0x1f2 ; case 0x7 01dc 4302 |C | .XXX[0x1] 01dd 00da | | Load_Top At_Offset_2 01de 0091 02a5 | | Action Push_String_Extended_Indexed,0x2a5 ; "PRIMARY" 01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e1 00db | | Load_Top At_Offset_3 01e2 00db | | Load_Top At_Offset_3 01e3 00e0 | | Load_Encached Standard_Cache 01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e6 00da | | Load_Top At_Offset_2 01e7 00e0 | | Load_Encached Standard_Cache 01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ea 00db | | Load_Top At_Offset_3 01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ec 00db | | Load_Top At_Offset_3 01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ee e21f | | Load 0x1,0x1f 01ef 00dc | | Load_Top At_Offset_4 01f0 0267 | g | Execute Discrete,Predecessor 01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f2 e21f | | Load 0x1,0x1f 01f3 00dc | | Load_Top At_Offset_4 01f4 0268 | h | Execute Discrete,Successor 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb BODY_01f8: 01fb INIT_01f8: 01fb INIT_01f8: 01fb 4609 |F | Jump_Case 0xa 01fc 7809 |x | Jump 0x206 ; case 0x0 01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01fe 781b |x | Jump 0x21a ; case 0x2 01ff 781e |x | Jump 0x21e ; case 0x3 0200 7823 |x# | Jump 0x224 ; case 0x4 0201 782d |x- | Jump 0x22f ; case 0x5 0202 7837 |x7 | Jump 0x23a ; case 0x6 0203 7844 |xD | Jump 0x248 ; case 0x7 0204 7854 |xT | Jump 0x259 ; case 0x8 0205 785a |xZ | Jump 0x260 ; case 0x9 0206 00da | | Load_Top At_Offset_2 0207 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0208 4603 |F | Jump_Case 0x4 0209 7804 |x | Jump 0x20e ; case 0x0 020a 7807 |x | Jump 0x212 ; case 0x1 020b 780a |x | Jump 0x216 ; case 0x2 020c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 020d 4302 |C | .XXX[0x1] 020e 00da | | Load_Top At_Offset_2 020f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0210 1c00 | | Execute_Immediate Run_Utility,0x0 0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0212 00da | | Load_Top At_Offset_2 0213 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0214 1c00 | | Execute_Immediate Run_Utility,0x0 0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0216 00da | | Load_Top At_Offset_2 0217 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0218 1c00 | | Execute_Immediate Run_Utility,0x0 0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 021a 4801 |H | Short_Literal 0x1 021b 4804 |H | Short_Literal 0x4 021c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 021d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 021e e5fd | | Load 0x2,-0x3 021f 00db | | Load_Top At_Offset_3 0220 1c07 | | Execute_Immediate Run_Utility,0x7 0221 e5fe | | Load 0x2,-0x2 0222 0306 | | Complete_Type Variant_Record,By_Renaming 0223 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0224 4801 |H | Short_Literal 0x1 0225 4804 |H | Short_Literal 0x4 0226 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0227 e5fe | | Load 0x2,-0x2 0228 00d8 | | Load_Top At_Offset_0 0229 e5ff | | Load 0x2,-0x1 022a 1c06 | | Execute_Immediate Run_Utility,0x6 022b e5ff | | Load 0x2,-0x1 022c 00db | | Load_Top At_Offset_3 022d 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 022e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022f 4801 |H | Short_Literal 0x1 0230 00db | | Load_Top At_Offset_3 0231 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 0232 4603 |F | Jump_Case 0x4 0233 7803 |x | Jump 0x237 ; case 0x0 0234 7802 |x | Jump 0x237 ; case 0x1 0235 7801 |x | Jump 0x237 ; case 0x2 0236 7800 |x | Jump 0x237 ; case 0x3 0237 e5ff | | Load 0x2,-0x1 0238 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0239 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 023a 00db | | Load_Top At_Offset_3 023b 4603 |F | Jump_Case 0x4 023c 7805 |x | Jump 0x242 ; case 0x0 023d 7806 |x | Jump 0x244 ; case 0x1 023e 7807 |x | Jump 0x246 ; case 0x2 023f 7800 |x | Jump 0x240 ; case 0x3 0240 48ff |H | Short_Literal 0xff 0241 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0242 4801 |H | Short_Literal 0x1 0243 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0244 4802 |H | Short_Literal 0x2 0245 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0246 4803 |H | Short_Literal 0x3 0247 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0248 00db | | Load_Top At_Offset_3 0249 e5fe | | Load 0x2,-0x2 024a 4603 |F | Jump_Case 0x4 024b 7805 |x | Jump 0x251 ; case 0x0 024c 7806 |x | Jump 0x253 ; case 0x1 024d 7807 |x | Jump 0x255 ; case 0x2 024e 7800 |x | Jump 0x24f ; case 0x3 024f 48ff |H | Short_Literal 0xff 0250 7805 |x | Jump 0x256 0251 4801 |H | Short_Literal 0x1 0252 7803 |x | Jump 0x256 0253 4802 |H | Short_Literal 0x2 0254 7801 |x | Jump 0x256 0255 4803 |H | Short_Literal 0x3 0256 e5ff | | Load 0x2,-0x1 0257 031b | | Declare_Type Variant_Record,Constrained 0258 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0259 00db | | Load_Top At_Offset_3 025a e5fe | | Load 0x2,-0x2 025b e5ff | | Load 0x2,-0x1 025c 1c06 | | Execute_Immediate Run_Utility,0x6 025d e5ff | | Load 0x2,-0x1 025e 02fc | | Declare_Variable Variant_Record,With_Constraint 025f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0260 0869 | i | Execute_Immediate Raise,0x69 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4607 |F | Jump_Case 0x8 026c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 026d 7807 |x | Jump 0x275 ; case 0x1 026e 780a |x | Jump 0x279 ; case 0x2 026f 780e |x | Jump 0x27e ; case 0x3 0270 7811 |x | Jump 0x282 ; case 0x4 0271 7812 |x | Jump 0x284 ; case 0x5 0272 7813 |x | Jump 0x286 ; case 0x6 0273 7816 |x | Jump 0x28a ; case 0x7 0274 4302 |C | .XXX[0x1] 0275 00da | | Load_Top At_Offset_2 0276 0091 02a9 | | Action Push_String_Extended_Indexed,0x2a9 ; "SYSTEM" 0278 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0279 00db | | Load_Top At_Offset_3 027a 00db | | Load_Top At_Offset_3 027b 00e0 | | Load_Encached Standard_Cache 027c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 027d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027e 00da | | Load_Top At_Offset_2 027f 00e0 | | Load_Encached Standard_Cache 0280 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0281 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0282 00db | | Load_Top At_Offset_3 0283 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0284 00db | | Load_Top At_Offset_3 0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0286 e222 | " | Load 0x1,0x22 0287 00dc | | Load_Top At_Offset_4 0288 0267 | g | Execute Discrete,Predecessor 0289 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 028a e222 | " | Load 0x1,0x22 028b 00dc | | Load_Top At_Offset_4 028c 0268 | h | Execute Discrete,Successor 028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 028e 0000 0000 | | .XXX[0x2] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0295 | | .CONST 0x0295 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 e221 | ! | Load 0x1,0x21 0294 0007 | | Action Break_Optional 0295 BODY_0290: 0295 00db | | Load_Top At_Offset_3 0296 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0297 00d8 | | Load_Top At_Offset_0 0298 e220 | | Load 0x1,0x20 0299 1c06 | | Execute_Immediate Run_Utility,0x6 029a e221 | ! | Load 0x1,0x21 029b 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 029c 00d8 | | Load_Top At_Offset_0 029d 0227 | ' | Execute Access,All_Reference 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f 0039 | 9 | Store_Top Access,At_Offset_1 02a0 00db | | Load_Top At_Offset_3 02a1 00d9 | | Load_Top At_Offset_1 02a2 0228 | ( | Execute Access,All_Write 02a3 00d8 | | Load_Top At_Offset_0 02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a5 ; -------------------------------------------------------------------------------------- 02a5 ; STRING TABLE 02a5 ; -------------------------------------------------------------------------------------- 02a5 0010 | | .STRTAB 0x0010->0x02ad ; "PRIMARY" 02a6 0015 | | .STRTAB 0x0015->0x02b0 ; "UNARY" 02a7 0018 | | .STRTAB 0x0018->0x02b3 ; "BINARY" 02a8 001c | | .STRTAB 0x001c->0x02b6 ; "UNDEFINED" 02a9 0023 | # | .STRTAB 0x0023->0x02ba ; "SYSTEM" 02aa 0027 | ' | .STRTAB 0x0027->0x02bd ; "USER" 02ab 0029 | ) | .STRTAB 0x0029->0x02bf ; "Undefined predicate" 02ac 003a | : | .STREND 0x003a->0x02c9 02ad 5052 494d |PRIM| .STRTAB_STRINGS 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug Table 02d0 ; -------------------------------------------------------------------------------------- 02d0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x902c,0x0000,0x0001,0x000c 02d6 000b 0306 | | .DBG4T 0x000b,0x0306,0xc000,0x0000 02da 0048 0316 | H | .DBG4T 0x0048,0x0316,0xc000,0x0000 02de 00f3 032a | *| .DBG4T 0x00f3,0x032a,0x1002,0x0000 02e2 0113 032f | /| .DBG4T 0x0113,0x032f,0x1002,0x0000 02e6 013b 0338 | ; 8| .DBG4T 0x013b,0x0338,0x3802,0x0002 02ea 015b 033d | [ =| .DBG4T 0x015b,0x033d,0x3802,0x0002 02ee 017b 0342 | { B| .DBG4T 0x017b,0x0342,0x1002,0x4000 02f2 01a3 0352 | R| .DBG4T 0x01a3,0x0352,0x1001,0x4000 02f6 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x1005,0x0000 02fa 01fb 0000 | | .DBG4T 0x01fb,0x0000,0x1005,0x0000 02fe 026b 0000 | k | .DBG4T 0x026b,0x0000,0x1005,0x0000 0302 0293 0360 | `| .DBG4T 0x0293,0x0360,0x1002,0x0000 0306 ; -------------------------------------------------------------------------------------- 0306 ; Debug chain 0306 ; -------------------------------------------------------------------------------------- 0306 000e 0000 | | .DBGLEN 0x000e,0x0000 0308 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044 0316 ; -------------------------------------------------------------------------------------- 0316 ; Debug chain 0316 ; -------------------------------------------------------------------------------------- 0316 0012 0000 | | .DBGLEN 0x0012,0x0000 0318 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006b,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00bb,0x00c7,0x00d5 032a ; -------------------------------------------------------------------------------------- 032a ; Debug chain 032a ; -------------------------------------------------------------------------------------- 032a 0001 0002 | | .DBGLEN 0x0001,0x0002 032c 00f3 00f8 | | .DBGLNO 0x00f3,0x00f8,0x00fd 032f ; -------------------------------------------------------------------------------------- 032f ; Debug chain 032f ; -------------------------------------------------------------------------------------- 032f 0001 0006 | | .DBGLEN 0x0001,0x0006 0331 0113 0118 | | .DBGLNO 0x0113,0x0118,0x011c,0x011e,0x0122,0x0124,0x012a 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug chain 0338 ; -------------------------------------------------------------------------------------- 0338 0001 0002 | | .DBGLEN 0x0001,0x0002 033a 013b 0140 | ; @| .DBGLNO 0x013b,0x0140,0x014a 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0001 0002 | | .DBGLEN 0x0001,0x0002 033f 015b 0160 | [ `| .DBGLNO 0x015b,0x0160,0x016d 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug chain 0342 ; -------------------------------------------------------------------------------------- 0342 0000 0007 | | .DBGLEN 0x0000,0x0007 0344 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181,0x0189,0x018b,0x0192,0x0199 034b 0001 0002 | | .XXX[0x7] 034d 0003 0007 | | 034f 0004 0005 | | 0351 0006 | | 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug chain 0352 ; -------------------------------------------------------------------------------------- 0352 0000 0006 | | .DBGLEN 0x0000,0x0006 0354 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01af,0x01b4,0x01bb,0x01c2 035a 0001 0002 | | .XXX[0x6] 035c 0006 0003 | | 035e 0004 0005 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug chain 0360 ; -------------------------------------------------------------------------------------- 0360 0001 0003 | | .DBGLEN 0x0001,0x0003 0362 0293 0295 | | .DBGLNO 0x0293,0x0295,0x02a0,0x02a3 0366 0000 0000 | | .BLANK 0000[0x9a]