|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0900ea
└─⟦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 03c0 | | .CONST 0x03c0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0131 | 1 | .CONST 0x0131 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0034 | 4 | .CONST 0x0034 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 00c4 | | Action Make_Default 000e 00e3 | | Load_Encached Natural_Cache 000f 0266 | f | Execute Discrete,Bounds 0010 00db | | Load_Top At_Offset_3 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 4801 |H | Short_Literal 0x1 0013 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0014 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0016 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0018 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001c 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0020 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0022 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0024 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0026 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0028 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 002a 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002c 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 002e 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0030 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0032 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0034 4800 |H | Short_Literal 0x0 0035 4808 |H | Short_Literal 0x8 0036 e001 | | Load 0x0,0x1 0037 01d7 | | Execute Vector,Field_Read 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 038f | | Declare_Type Package,Defined,Visible 003a e001 | | Load 0x0,0x1 003b 4807 |H | Short_Literal 0x7 003c e001 | | Load 0x0,0x1 003d 01d7 | | Execute Vector,Field_Read 003e 4802 |H | Short_Literal 0x2 003f 00db | | Load_Top At_Offset_3 0040 020e | | Execute Module,Augment_Imports 0041 0386 | | Declare_Variable Package,Visible 0042 0093 0000 | | push_full_address 0x0 0044 610f |a | Indirect_Literal Discrete,0x154,{0x80000000, 0x00010000} 0045 0273 | s | Execute Discrete,Plus 0046 e20d | | Load 0x1,0xd 0047 6108 |a | Indirect_Literal Discrete,0x150,{0x00000000, 0x0000ffff} 0048 0279 | y | Execute Discrete,And 0049 0273 | s | Execute Discrete,Plus 004a 0129 | ) | Execute Any,Make_Visible 004b 4800 |H | Short_Literal 0x0 004c 4803 |H | Short_Literal 0x3 004d 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 004f 03fe | | Declare_Type Discrete,Defined,Visible 0050 00d8 | | Load_Top At_Offset_0 0051 4803 |H | Short_Literal 0x3 0052 4800 |H | Short_Literal 0x0 0053 4801 |H | Short_Literal 0x1 0054 4804 |H | Short_Literal 0x4 0055 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0056 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 0058 00d9 | | Load_Top At_Offset_1 0059 012a | * | Execute Any,Change_Utility 005a 0007 | | Action Break_Optional 005b 00d8 | | Load_Top At_Offset_0 005c 02a0 | | Declare_Subprogram Null_Subprogram 005d e217 | | Load 0x1,0x17 005e 03c7 | | Complete_Type Access,By_Defining 005f e217 | | Load 0x1,0x17 0060 0129 | ) | Execute Any,Make_Visible 0061 c218 | | Store 0x1,0x18 0062 4801 |H | Short_Literal 0x1 0063 4800 |H | Short_Literal 0x0 0064 e219 | | Load 0x1,0x19 0065 035b | [ | Declare_Type Array,Constrained 0066 0336 | 6 | Declare_Variable Array,Visible 0067 00d8 | | Load_Top At_Offset_0 0068 0335 | 5 | Declare_Variable Array,Duplicate 0069 00cd | | Action Spare6_Action 006a 00d9 | | Load_Top At_Offset_1 006b 01d4 | | Execute Vector,Structure_Write 006c 00bf | | Action Accept_Activation 006d 4800 |H | Short_Literal 0x0 006e 4801 |H | Short_Literal 0x1 006f 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0071 03fd | | Declare_Type Discrete,Defined 0072 4800 |H | Short_Literal 0x0 0073 4806 |H | Short_Literal 0x6 0074 e001 | | Load 0x0,0x1 0075 01d7 | | Execute Vector,Field_Read 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 038e | | Declare_Type Package,Defined 0078 e001 | | Load 0x0,0x1 0079 4805 |H | Short_Literal 0x5 007a e001 | | Load 0x0,0x1 007b 01d7 | | Execute Vector,Field_Read 007c 4802 |H | Short_Literal 0x2 007d 00db | | Load_Top At_Offset_3 007e 020e | | Execute Module,Augment_Imports 007f 0387 | | Declare_Variable Package 0080 4800 |H | Short_Literal 0x0 0081 4804 |H | Short_Literal 0x4 0082 e001 | | Load 0x0,0x1 0083 01d7 | | Execute Vector,Field_Read 0084 02a0 | | Declare_Subprogram Null_Subprogram 0085 038e | | Declare_Type Package,Defined 0086 e001 | | Load 0x0,0x1 0087 4803 |H | Short_Literal 0x3 0088 e001 | | Load 0x0,0x1 0089 01d7 | | Execute Vector,Field_Read 008a e219 | | Load 0x1,0x19 008b e002 | | Load 0x0,0x2 008c e217 | | Load 0x1,0x17 008d 4805 |H | Short_Literal 0x5 008e e231 | 1 | Load 0x1,0x31 008f 020e | | Execute Module,Augment_Imports 0090 0387 | | Declare_Variable Package 0091 4800 |H | Short_Literal 0x0 0092 480a |H | Short_Literal 0xa 0093 e001 | | Load 0x0,0x1 0094 01d7 | | Execute Vector,Field_Read 0095 02a0 | | Declare_Subprogram Null_Subprogram 0096 038e | | Declare_Type Package,Defined 0097 e001 | | Load 0x0,0x1 0098 4809 |H | Short_Literal 0x9 0099 e001 | | Load 0x0,0x1 009a 01d7 | | Execute Vector,Field_Read 009b e22f | / | Load 0x1,0x2f 009c e230 | 0 | Load 0x1,0x30 009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009e e20e | | Load 0x1,0xe 009f 4805 |H | Short_Literal 0x5 00a0 e232 | 2 | Load 0x1,0x32 00a1 020e | | Execute Module,Augment_Imports 00a2 0387 | | Declare_Variable Package 00a3 4800 |H | Short_Literal 0x0 00a4 4802 |H | Short_Literal 0x2 00a5 e001 | | Load 0x0,0x1 00a6 01d7 | | Execute Vector,Field_Read 00a7 02a0 | | Declare_Subprogram Null_Subprogram 00a8 038e | | Declare_Type Package,Defined 00a9 e001 | | Load 0x0,0x1 00aa 4801 |H | Short_Literal 0x1 00ab e001 | | Load 0x0,0x1 00ac 01d7 | | Execute Vector,Field_Read 00ad e22f | / | Load 0x1,0x2f 00ae e212 | | Load 0x1,0x12 00af e230 | 0 | Load 0x1,0x30 00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b1 e20e | | Load 0x1,0xe 00b2 4806 |H | Short_Literal 0x6 00b3 e233 | 3 | Load 0x1,0x33 00b4 020e | | Execute Module,Augment_Imports 00b5 0387 | | Declare_Variable Package 00b6 4801 |H | Short_Literal 0x1 00b7 00db | | Load_Top At_Offset_3 00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b9 4801 |H | Short_Literal 0x1 00ba e232 | 2 | Load 0x1,0x32 00bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bc 4801 |H | Short_Literal 0x1 00bd e233 | 3 | Load 0x1,0x33 00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bf 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 00c1 4803 |H | Short_Literal 0x3 00c2 4800 |H | Short_Literal 0x0 00c3 e22d | - | Load 0x1,0x2d 00c4 0307 | | Complete_Type Variant_Record,By_Defining 00c5 e217 | | Load 0x1,0x17 00c6 03c4 | | Complete_Type Access,By_Component_Completion 00c7 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 00c9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00d4 00c7 | | Action Elaborate_Subprogram 00d5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00da 00c7 | | Action Elaborate_Subprogram 00db 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00dc 00c7 | | Action Elaborate_Subprogram 00dd 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00de 00c7 | | Action Elaborate_Subprogram 00df 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00e4 00c7 | | Action Elaborate_Subprogram 00e5 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00e8 00c7 | | Action Elaborate_Subprogram 00e9 a003 | | Store_Unchecked 0x0,0x3 00ea e22b | + | Load 0x1,0x2b 00eb a004 | | Store_Unchecked 0x0,0x4 00ec a005 | | Store_Unchecked 0x0,0x5 00ed a006 | | Store_Unchecked 0x0,0x6 00ee a007 | | Store_Unchecked 0x0,0x7 00ef a008 | | Store_Unchecked 0x0,0x8 00f0 4807 |H | Short_Literal 0x7 00f1 e230 | 0 | Load 0x1,0x30 00f2 020e | | Execute Module,Augment_Imports 00f3 e230 | 0 | Load 0x1,0x30 00f4 020f | | Execute Module,Activate 00f5 a009 | | Store_Unchecked 0x0,0x9 00f6 a00a | | Store_Unchecked 0x0,0xa 00f7 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00f8 a00b | | Store_Unchecked 0x0,0xb 00f9 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00fa 4805 |H | Short_Literal 0x5 00fb e231 | 1 | Load 0x1,0x31 00fc 020e | | Execute Module,Augment_Imports 00fd 00db | | Load_Top At_Offset_3 00fe 020f | | Execute Module,Activate 00ff 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0100 a009 | | Store_Unchecked 0x0,0x9 0101 e230 | 0 | Load 0x1,0x30 0102 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0103 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0104 e230 | 0 | Load 0x1,0x30 0105 190e | | Execute Package,Field_Reference,Field_Number 0xe 0106 4805 |H | Short_Literal 0x5 0107 e232 | 2 | Load 0x1,0x32 0108 020e | | Execute Module,Augment_Imports 0109 00da | | Load_Top At_Offset_2 010a 020f | | Execute Module,Activate 010b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 010c a009 | | Store_Unchecked 0x0,0x9 010d e230 | 0 | Load 0x1,0x30 010e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 010f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0110 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0111 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0112 e230 | 0 | Load 0x1,0x30 0113 190f | | Execute Package,Field_Reference,Field_Number 0xf 0114 4807 |H | Short_Literal 0x7 0115 e233 | 3 | Load 0x1,0x33 0116 020e | | Execute Module,Augment_Imports 0117 00d9 | | Load_Top At_Offset_1 0118 020f | | Execute Module,Activate 0119 e212 | | Load 0x1,0x12 011a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 011b a00c | | Store_Unchecked 0x0,0xc 011c a00d | | Store_Unchecked 0x0,0xd 011d a00e | | Store_Unchecked 0x0,0xe 011e a00f | | Store_Unchecked 0x0,0xf 011f a010 | | Store_Unchecked 0x0,0x10 0120 a011 | | Store_Unchecked 0x0,0x11 0121 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0122 e232 | 2 | Load 0x1,0x32 0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0124 e232 | 2 | Load 0x1,0x32 0125 190e | | Execute Package,Field_Reference,Field_Number 0xe 0126 e22d | - | Load 0x1,0x2d 0127 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0128 e233 | 3 | Load 0x1,0x33 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a e233 | 3 | Load 0x1,0x33 012b 190e | | Execute Package,Field_Reference,Field_Number 0xe 012c 480f |H | Short_Literal 0xf 012d e22a | * | Load 0x1,0x2a 012e 020e | | Execute Module,Augment_Imports 012f e22a | * | Load 0x1,0x2a 0130 020f | | Execute Module,Activate 0131 BODY_0008: 0131 00bc | | Action Signal_Activated 0132 00bb | | Action Signal_Completion 0133 0000 0000 | | .BLANK 0000[0x5] 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 e231 | 1 | Load 0x1,0x31 013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013d 02ff | | Declare_Variable Variant_Record 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 BODY_0138: 0140 00db | | Load_Top At_Offset_3 0141 e231 | 1 | Load 0x1,0x31 0142 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0143 00d9 | | Load_Top At_Offset_1 0144 016d | m | Execute Variant_Record,Structure_Write 0145 4800 |H | Short_Literal 0x0 0146 e22d | - | Load 0x1,0x2d 0147 1c08 | | Execute_Immediate Run_Utility,0x8 0148 00d9 | | Load_Top At_Offset_1 0149 00d9 | | Load_Top At_Offset_1 014a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 014b 8234 | 4 | Call 0x1,0x34 014c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0154 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 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 e231 | 1 | Load 0x1,0x31 015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015d 02ff | | Declare_Variable Variant_Record 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 BODY_0158: 0160 00db | | Load_Top At_Offset_3 0161 e217 | | Load 0x1,0x17 0162 022f | / | Execute Access,Equal 0163 6802 |h | Jump_Zero 0x166 0164 e5fe | | Load 0x2,-0x2 0165 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0166 e5fe | | Load 0x2,-0x2 0167 e217 | | Load 0x1,0x17 0168 022f | / | Execute Access,Equal 0169 6802 |h | Jump_Zero 0x16c 016a 00db | | Load_Top At_Offset_3 016b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016c e5fe | | Load 0x2,-0x2 016d e5ff | | Load 0x2,-0x1 016e e231 | 1 | Load 0x1,0x31 016f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0170 00d9 | | Load_Top At_Offset_1 0171 016d | m | Execute Variant_Record,Structure_Write 0172 4800 |H | Short_Literal 0x0 0173 e22d | - | Load 0x1,0x2d 0174 1c08 | | Execute_Immediate Run_Utility,0x8 0175 00d9 | | Load_Top At_Offset_1 0176 00d9 | | Load_Top At_Offset_1 0177 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0178 8234 | 4 | Call 0x1,0x34 0179 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0188 | | .CONST 0x0188 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e231 | 1 | Load 0x1,0x31 0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0185 02ff | | Declare_Variable Variant_Record 0186 00d8 | | Load_Top At_Offset_0 0187 1c00 | | Execute_Immediate Run_Utility,0x0 0188 BODY_0180: 0188 00db | | Load_Top At_Offset_3 0189 e231 | 1 | Load 0x1,0x31 018a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 018b 00d9 | | Load_Top At_Offset_1 018c 016d | m | Execute Variant_Record,Structure_Write 018d 4800 |H | Short_Literal 0x0 018e e22d | - | Load 0x1,0x2d 018f 1c08 | | Execute_Immediate Run_Utility,0x8 0190 00d9 | | Load_Top At_Offset_1 0191 00d9 | | Load_Top At_Offset_1 0192 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0193 8234 | 4 | Call 0x1,0x34 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 0227 | ' | Execute Access,All_Reference 019d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 019e 7006 |p | Jump_Nonzero 0x1a5 019f 00da | | Load_Top At_Offset_2 01a0 0227 | ' | Execute Access,All_Reference 01a1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01a2 e231 | 1 | Load 0x1,0x31 01a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a5 4800 |H | Short_Literal 0x0 01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 01ac 0227 | ' | Execute Access,All_Reference 01ad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ae 7006 |p | Jump_Nonzero 0x1b5 01af 00da | | Load_Top At_Offset_2 01b0 0227 | ' | Execute Access,All_Reference 01b1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01b2 e231 | 1 | Load 0x1,0x31 01b3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b5 4800 |H | Short_Literal 0x0 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 0227 | ' | Execute Access,All_Reference 01bd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01be 0f02 | | Execute_Immediate Equal,0x2 01bf 6806 |h | Jump_Zero 0x1c6 01c0 00da | | Load_Top At_Offset_2 01c1 0227 | ' | Execute Access,All_Reference 01c2 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01c3 e233 | 3 | Load 0x1,0x33 01c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 4800 |H | Short_Literal 0x0 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 0227 | ' | Execute Access,All_Reference 01cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ce 0f02 | | Execute_Immediate Equal,0x2 01cf 6806 |h | Jump_Zero 0x1d6 01d0 00da | | Load_Top At_Offset_2 01d1 0227 | ' | Execute Access,All_Reference 01d2 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01d3 e233 | 3 | Load 0x1,0x33 01d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 4800 |H | Short_Literal 0x0 01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 0227 | ' | Execute Access,All_Reference 01dd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01de 0f01 | | Execute_Immediate Equal,0x1 01df 6806 |h | Jump_Zero 0x1e6 01e0 00da | | Load_Top At_Offset_2 01e1 0227 | ' | Execute Access,All_Reference 01e2 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01e3 e232 | 2 | Load 0x1,0x32 01e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 4800 |H | Short_Literal 0x0 01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 0227 | ' | Execute Access,All_Reference 01ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01ee 7006 |p | Jump_Nonzero 0x1f5 01ef 00da | | Load_Top At_Offset_2 01f0 0227 | ' | Execute Access,All_Reference 01f1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01f2 e231 | 1 | Load 0x1,0x31 01f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 4800 |H | Short_Literal 0x0 01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f7 0000 | | .XXX[0x1] 01f8 ; -------------------------------------------------------------------------------------- 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 INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc 0227 | ' | Execute Access,All_Reference 01fd 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01fe e231 | 1 | Load 0x1,0x31 01ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 0227 | ' | Execute Access,All_Reference 020d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 020e e233 | 3 | Load 0x1,0x33 020f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0210 e212 | | Load 0x1,0x12 0211 0119 | | Execute Any,Check_In_Formal_Type 0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0213 0000 0000 | | .BLANK 0000[0x5] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e217 | | Load 0x1,0x17 021c 00d8 | | Load_Top At_Offset_0 021d e5ff | | Load 0x2,-0x1 021e 0227 | ' | Execute Access,All_Reference 021f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0220 e231 | 1 | Load 0x1,0x31 0221 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0222 c5fe | | Store 0x2,-0x2 0223 c5fd | | Store 0x2,-0x3 0224 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0230 | 0 | .CONST 0x0230 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b e232 | 2 | Load 0x1,0x32 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d 02ff | | Declare_Variable Variant_Record 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 BODY_0228: 0230 e5fe | | Load 0x2,-0x2 0231 00d8 | | Load_Top At_Offset_0 0232 e20e | | Load 0x1,0xe 0233 0260 | ` | Execute Discrete,In_Type 0234 7001 |p | Jump_Nonzero 0x236 0235 0801 | | Execute_Immediate Raise,0x1 0236 e232 | 2 | Load 0x1,0x32 0237 180f | | Execute Package,Field_Execute,Field_Number 0xf 0238 00d9 | | Load_Top At_Offset_1 0239 016d | m | Execute Variant_Record,Structure_Write 023a 4801 |H | Short_Literal 0x1 023b e22d | - | Load 0x1,0x2d 023c 1c08 | | Execute_Immediate Run_Utility,0x8 023d 00d9 | | Load_Top At_Offset_1 023e 00d9 | | Load_Top At_Offset_1 023f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0240 8234 | 4 | Call 0x1,0x34 0241 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0242 0000 0000 | | .BLANK 0000[0x6] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0250 | P | .CONST 0x0250 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e233 | 3 | Load 0x1,0x33 024c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024d 02ff | | Declare_Variable Variant_Record 024e 00d8 | | Load_Top At_Offset_0 024f 1c00 | | Execute_Immediate Run_Utility,0x0 0250 BODY_0248: 0250 e5fd | | Load 0x2,-0x3 0251 e212 | | Load 0x1,0x12 0252 0119 | | Execute Any,Check_In_Formal_Type 0253 e5fe | | Load 0x2,-0x2 0254 00d8 | | Load_Top At_Offset_0 0255 e20e | | Load 0x1,0xe 0256 0260 | ` | Execute Discrete,In_Type 0257 7001 |p | Jump_Nonzero 0x259 0258 0801 | | Execute_Immediate Raise,0x1 0259 e233 | 3 | Load 0x1,0x33 025a 180f | | Execute Package,Field_Execute,Field_Number 0xf 025b 00d9 | | Load_Top At_Offset_1 025c 016d | m | Execute Variant_Record,Structure_Write 025d 4802 |H | Short_Literal 0x2 025e e22d | - | Load 0x1,0x2d 025f 1c08 | | Execute_Immediate Run_Utility,0x8 0260 00d9 | | Load_Top At_Offset_1 0261 00d9 | | Load_Top At_Offset_1 0262 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0263 8234 | 4 | Call 0x1,0x34 0264 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 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 00db | | Load_Top At_Offset_3 026c e217 | | Load 0x1,0x17 026d 022f | / | Execute Access,Equal 026e 6802 |h | Jump_Zero 0x271 026f 4800 |H | Short_Literal 0x0 0270 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0271 00db | | Load_Top At_Offset_3 0272 0227 | ' | Execute Access,All_Reference 0273 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0274 4603 |F | Jump_Case 0x4 0275 7805 |x | Jump 0x27b ; case 0x0 0276 780b |x | Jump 0x282 ; case 0x1 0277 7811 |x | Jump 0x289 ; case 0x2 0278 7800 |x | Jump 0x279 ; case 0x3 0279 e22b | + | Load 0x1,0x2b 027a 0257 | W | Execute Discrete,Raise 027b 00db | | Load_Top At_Offset_3 027c 0227 | ' | Execute Access,All_Reference 027d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 027e 00db | | Load_Top At_Offset_3 027f e231 | 1 | Load 0x1,0x31 0280 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0281 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0282 00db | | Load_Top At_Offset_3 0283 0227 | ' | Execute Access,All_Reference 0284 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0285 00db | | Load_Top At_Offset_3 0286 e232 | 2 | Load 0x1,0x32 0287 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0288 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0289 00db | | Load_Top At_Offset_3 028a 0227 | ' | Execute Access,All_Reference 028b 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 028c 00db | | Load_Top At_Offset_3 028d e233 | 3 | Load 0x1,0x33 028e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 028f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 e217 | | Load 0x1,0x17 0295 022e | . | Execute Access,Not_Equal 0296 6821 |h! | Jump_Zero 0x2b8 0297 00da | | Load_Top At_Offset_2 0298 0227 | ' | Execute Access,All_Reference 0299 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 029a 4603 |F | Jump_Case 0x4 029b 7808 |x | Jump 0x2a4 ; case 0x0 029c 780e |x | Jump 0x2ab ; case 0x1 029d 7814 |x | Jump 0x2b2 ; case 0x2 029e 7800 |x | Jump 0x29f ; case 0x3 029f 00db | | Load_Top At_Offset_3 02a0 0092 039b | | Action Push_String_Extended,0x39b ; "Undefined predicate" 02a2 8009 | | Call 0x0,0x9 02a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a4 00db | | Load_Top At_Offset_3 02a5 00db | | Load_Top At_Offset_3 02a6 0227 | ' | Execute Access,All_Reference 02a7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 02a8 e231 | 1 | Load 0x1,0x31 02a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ab 00db | | Load_Top At_Offset_3 02ac 00db | | Load_Top At_Offset_3 02ad 0227 | ' | Execute Access,All_Reference 02ae 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 02af e232 | 2 | Load 0x1,0x32 02b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b2 00db | | Load_Top At_Offset_3 02b3 00db | | Load_Top At_Offset_3 02b4 0227 | ' | Execute Access,All_Reference 02b5 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 02b6 e233 | 3 | Load 0x1,0x33 02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b9 0000 0000 | | .BLANK 0000[0x7] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 4607 |F | Jump_Case 0x8 02c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02c5 7807 |x | Jump 0x2cd ; case 0x1 02c6 780a |x | Jump 0x2d1 ; case 0x2 02c7 780e |x | Jump 0x2d6 ; case 0x3 02c8 7811 |x | Jump 0x2da ; case 0x4 02c9 7812 |x | Jump 0x2dc ; case 0x5 02ca 7813 |x | Jump 0x2de ; case 0x6 02cb 7816 |x | Jump 0x2e2 ; case 0x7 02cc 4302 |C | .XXX[0x1] 02cd 00da | | Load_Top At_Offset_2 02ce 0091 0395 | | Action Push_String_Extended_Indexed,0x395 ; "PRIMARY" 02d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02d1 00db | | Load_Top At_Offset_3 02d2 00db | | Load_Top At_Offset_3 02d3 00e0 | | Load_Encached Standard_Cache 02d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d6 00da | | Load_Top At_Offset_2 02d7 00e0 | | Load_Encached Standard_Cache 02d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02da 00db | | Load_Top At_Offset_3 02db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02dc 00db | | Load_Top At_Offset_3 02dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02de e22c | , | Load 0x1,0x2c 02df 00dc | | Load_Top At_Offset_4 02e0 0267 | g | Execute Discrete,Predecessor 02e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e2 e22c | , | Load 0x1,0x2c 02e3 00dc | | Load_Top At_Offset_4 02e4 0268 | h | Execute Discrete,Successor 02e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb BODY_02e8: 02eb INIT_02e8: 02eb INIT_02e8: 02eb 4609 |F | Jump_Case 0xa 02ec 7809 |x | Jump 0x2f6 ; case 0x0 02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02ee 781b |x | Jump 0x30a ; case 0x2 02ef 781e |x | Jump 0x30e ; case 0x3 02f0 7823 |x# | Jump 0x314 ; case 0x4 02f1 782d |x- | Jump 0x31f ; case 0x5 02f2 7837 |x7 | Jump 0x32a ; case 0x6 02f3 7844 |xD | Jump 0x338 ; case 0x7 02f4 7854 |xT | Jump 0x349 ; case 0x8 02f5 785a |xZ | Jump 0x350 ; case 0x9 02f6 00da | | Load_Top At_Offset_2 02f7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02f8 4603 |F | Jump_Case 0x4 02f9 7804 |x | Jump 0x2fe ; case 0x0 02fa 7807 |x | Jump 0x302 ; case 0x1 02fb 780a |x | Jump 0x306 ; case 0x2 02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 02fd 4302 |C | .XXX[0x1] 02fe 00da | | Load_Top At_Offset_2 02ff 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0300 1c00 | | Execute_Immediate Run_Utility,0x0 0301 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0302 00da | | Load_Top At_Offset_2 0303 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0304 1c00 | | Execute_Immediate Run_Utility,0x0 0305 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0306 00da | | Load_Top At_Offset_2 0307 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0308 1c00 | | Execute_Immediate Run_Utility,0x0 0309 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 030a 4801 |H | Short_Literal 0x1 030b 4804 |H | Short_Literal 0x4 030c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 030d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 030e e5fd | | Load 0x2,-0x3 030f 00db | | Load_Top At_Offset_3 0310 1c07 | | Execute_Immediate Run_Utility,0x7 0311 e5fe | | Load 0x2,-0x2 0312 0306 | | Complete_Type Variant_Record,By_Renaming 0313 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0314 4801 |H | Short_Literal 0x1 0315 4804 |H | Short_Literal 0x4 0316 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0317 e5fe | | Load 0x2,-0x2 0318 00d8 | | Load_Top At_Offset_0 0319 e5ff | | Load 0x2,-0x1 031a 1c06 | | Execute_Immediate Run_Utility,0x6 031b e5ff | | Load 0x2,-0x1 031c 00db | | Load_Top At_Offset_3 031d 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 031e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031f 4801 |H | Short_Literal 0x1 0320 00db | | Load_Top At_Offset_3 0321 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 0322 4603 |F | Jump_Case 0x4 0323 7803 |x | Jump 0x327 ; case 0x0 0324 7802 |x | Jump 0x327 ; case 0x1 0325 7801 |x | Jump 0x327 ; case 0x2 0326 7800 |x | Jump 0x327 ; case 0x3 0327 e5ff | | Load 0x2,-0x1 0328 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0329 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 032a 00db | | Load_Top At_Offset_3 032b 4603 |F | Jump_Case 0x4 032c 7805 |x | Jump 0x332 ; case 0x0 032d 7806 |x | Jump 0x334 ; case 0x1 032e 7807 |x | Jump 0x336 ; case 0x2 032f 7800 |x | Jump 0x330 ; case 0x3 0330 48ff |H | Short_Literal 0xff 0331 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0332 4801 |H | Short_Literal 0x1 0333 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0334 4802 |H | Short_Literal 0x2 0335 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0336 4803 |H | Short_Literal 0x3 0337 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0338 00db | | Load_Top At_Offset_3 0339 e5fe | | Load 0x2,-0x2 033a 4603 |F | Jump_Case 0x4 033b 7805 |x | Jump 0x341 ; case 0x0 033c 7806 |x | Jump 0x343 ; case 0x1 033d 7807 |x | Jump 0x345 ; case 0x2 033e 7800 |x | Jump 0x33f ; case 0x3 033f 48ff |H | Short_Literal 0xff 0340 7805 |x | Jump 0x346 0341 4801 |H | Short_Literal 0x1 0342 7803 |x | Jump 0x346 0343 4802 |H | Short_Literal 0x2 0344 7801 |x | Jump 0x346 0345 4803 |H | Short_Literal 0x3 0346 e5ff | | Load 0x2,-0x1 0347 031b | | Declare_Type Variant_Record,Constrained 0348 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0349 00db | | Load_Top At_Offset_3 034a e5fe | | Load 0x2,-0x2 034b e5ff | | Load 0x2,-0x1 034c 1c06 | | Execute_Immediate Run_Utility,0x6 034d e5ff | | Load 0x2,-0x1 034e 02fc | | Declare_Variable Variant_Record,With_Constraint 034f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0350 0869 | i | Execute_Immediate Raise,0x69 0351 0000 0000 | | .BLANK 0000[0x7] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4607 |F | Jump_Case 0x8 035c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 035d 7807 |x | Jump 0x365 ; case 0x1 035e 780a |x | Jump 0x369 ; case 0x2 035f 780e |x | Jump 0x36e ; case 0x3 0360 7811 |x | Jump 0x372 ; case 0x4 0361 7812 |x | Jump 0x374 ; case 0x5 0362 7813 |x | Jump 0x376 ; case 0x6 0363 7816 |x | Jump 0x37a ; case 0x7 0364 4302 |C | .XXX[0x1] 0365 00da | | Load_Top At_Offset_2 0366 0091 0399 | | Action Push_String_Extended_Indexed,0x399 ; "SYSTEM" 0368 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0369 00db | | Load_Top At_Offset_3 036a 00db | | Load_Top At_Offset_3 036b 00e0 | | Load_Encached Standard_Cache 036c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036e 00da | | Load_Top At_Offset_2 036f 00e0 | | Load_Encached Standard_Cache 0370 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0371 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0372 00db | | Load_Top At_Offset_3 0373 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0374 00db | | Load_Top At_Offset_3 0375 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0376 e22f | / | Load 0x1,0x2f 0377 00dc | | Load_Top At_Offset_4 0378 0267 | g | Execute Discrete,Predecessor 0379 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 037a e22f | / | Load 0x1,0x2f 037b 00dc | | Load_Top At_Offset_4 037c 0268 | h | Execute Discrete,Successor 037d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0385 | | .CONST 0x0385 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0002 | | .CONST 0x0002 ; Number of locals 0383 INIT_0380: 0383 e217 | | Load 0x1,0x17 0384 0007 | | Action Break_Optional 0385 BODY_0380: 0385 00db | | Load_Top At_Offset_3 0386 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0387 00d8 | | Load_Top At_Offset_0 0388 e22d | - | Load 0x1,0x2d 0389 1c06 | | Execute_Immediate Run_Utility,0x6 038a e217 | | Load 0x1,0x17 038b 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 038c 00d8 | | Load_Top At_Offset_0 038d 0227 | ' | Execute Access,All_Reference 038e 1c00 | | Execute_Immediate Run_Utility,0x0 038f 0039 | 9 | Store_Top Access,At_Offset_1 0390 00db | | Load_Top At_Offset_3 0391 00d9 | | Load_Top At_Offset_1 0392 0228 | ( | Execute Access,All_Write 0393 00d8 | | Load_Top At_Offset_0 0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0395 ; -------------------------------------------------------------------------------------- 0395 ; STRING TABLE 0395 ; -------------------------------------------------------------------------------------- 0395 0010 | | .STRTAB 0x0010->0x039d ; "PRIMARY" 0396 0015 | | .STRTAB 0x0015->0x03a0 ; "UNARY" 0397 0018 | | .STRTAB 0x0018->0x03a3 ; "BINARY" 0398 001c | | .STRTAB 0x001c->0x03a6 ; "UNDEFINED" 0399 0023 | # | .STRTAB 0x0023->0x03aa ; "SYSTEM" 039a 0027 | ' | .STRTAB 0x0027->0x03ad ; "USER" 039b 0029 | ) | .STRTAB 0x0029->0x03af ; "Undefined predicate" 039c 003a | : | .STREND 0x003a->0x03b9 039d 5052 494d |PRIM| .STRTAB_STRINGS 03b9 0000 0000 | | .BLANK 0000[0x7] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; Debug Table 03c0 ; -------------------------------------------------------------------------------------- 03c0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x880b,0x0000,0x0001,0x0016 03c6 000b 041e | | .DBG4T 0x000b,0x041e,0xc000,0x0000 03ca 006d 043a | m :| .DBG4T 0x006d,0x043a,0xc000,0x0000 03ce 013b 0458 | ; X| .DBG4T 0x013b,0x0458,0x1002,0x0000 03d2 015b 045d | [ ]| .DBG4T 0x015b,0x045d,0x1002,0x0000 03d6 0183 0466 | f| .DBG4T 0x0183,0x0466,0x1002,0x0000 03da 019b 046b | k| .DBG4T 0x019b,0x046b,0x1002,0x0000 03de 01ab 0470 | p| .DBG4T 0x01ab,0x0470,0x1002,0x0000 03e2 01bb 0475 | u| .DBG4T 0x01bb,0x0475,0x1002,0x0000 03e6 01cb 047a | z| .DBG4T 0x01cb,0x047a,0x1002,0x0000 03ea 01db 047f | | .DBG4T 0x01db,0x047f,0x1002,0x0000 03ee 01eb 0484 | | .DBG4T 0x01eb,0x0484,0x1002,0x0000 03f2 01fb 0489 | | .DBG4T 0x01fb,0x0489,0x1002,0x0000 03f6 020b 048c | | .DBG4T 0x020b,0x048c,0x1002,0x0000 03fa 021b 048f | | .DBG4T 0x021b,0x048f,0x1001,0x0000 03fe 022b 0492 | + | .DBG4T 0x022b,0x0492,0x3802,0x0002 0402 024b 0497 | K | .DBG4T 0x024b,0x0497,0x3802,0x0002 0406 026b 049c | k | .DBG4T 0x026b,0x049c,0x1002,0x4000 040a 0293 04ac | | .DBG4T 0x0293,0x04ac,0x1001,0x4000 040e 02c3 0000 | | .DBG4T 0x02c3,0x0000,0x1005,0x0000 0412 02eb 0000 | | .DBG4T 0x02eb,0x0000,0x1005,0x0000 0416 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000 041a 0383 04ba | | .DBG4T 0x0383,0x04ba,0x1002,0x0000 041e ; -------------------------------------------------------------------------------------- 041e ; Debug chain 041e ; -------------------------------------------------------------------------------------- 041e 001a 0000 | | .DBGLEN 0x001a,0x0000 0420 000b 000d | | .DBGLNO 0x000b,0x000d,0x000e,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0042,0x004b,0x0050,0x005b,0x005f,0x0062 043a ; -------------------------------------------------------------------------------------- 043a ; Debug chain 043a ; -------------------------------------------------------------------------------------- 043a 001c 0000 | | .DBGLEN 0x001c,0x0000 043c 006d 0072 | m r| .DBGLNO 0x006d,0x0072,0x0080,0x0091,0x00a3,0x00b6,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00f5,0x00ff,0x010b,0x0119 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug chain 0458 ; -------------------------------------------------------------------------------------- 0458 0001 0002 | | .DBGLEN 0x0001,0x0002 045a 013b 0140 | ; @| .DBGLNO 0x013b,0x0140,0x0145 045d ; -------------------------------------------------------------------------------------- 045d ; Debug chain 045d ; -------------------------------------------------------------------------------------- 045d 0001 0006 | | .DBGLEN 0x0001,0x0006 045f 015b 0160 | [ `| .DBGLNO 0x015b,0x0160,0x0164,0x0166,0x016a,0x016c,0x0172 0466 ; -------------------------------------------------------------------------------------- 0466 ; Debug chain 0466 ; -------------------------------------------------------------------------------------- 0466 0001 0002 | | .DBGLEN 0x0001,0x0002 0468 0183 0188 | | .DBGLNO 0x0183,0x0188,0x018d 046b ; -------------------------------------------------------------------------------------- 046b ; Debug chain 046b ; -------------------------------------------------------------------------------------- 046b 0000 0003 | | .DBGLEN 0x0000,0x0003 046d 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a5 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug chain 0470 ; -------------------------------------------------------------------------------------- 0470 0000 0003 | | .DBGLEN 0x0000,0x0003 0472 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b5 0475 ; -------------------------------------------------------------------------------------- 0475 ; Debug chain 0475 ; -------------------------------------------------------------------------------------- 0475 0000 0003 | | .DBGLEN 0x0000,0x0003 0477 01bb 01c0 | | .DBGLNO 0x01bb,0x01c0,0x01c6 047a ; -------------------------------------------------------------------------------------- 047a ; Debug chain 047a ; -------------------------------------------------------------------------------------- 047a 0000 0003 | | .DBGLEN 0x0000,0x0003 047c 01cb 01d0 | | .DBGLNO 0x01cb,0x01d0,0x01d6 047f ; -------------------------------------------------------------------------------------- 047f ; Debug chain 047f ; -------------------------------------------------------------------------------------- 047f 0000 0003 | | .DBGLEN 0x0000,0x0003 0481 01db 01e0 | | .DBGLNO 0x01db,0x01e0,0x01e6 0484 ; -------------------------------------------------------------------------------------- 0484 ; Debug chain 0484 ; -------------------------------------------------------------------------------------- 0484 0000 0003 | | .DBGLEN 0x0000,0x0003 0486 01eb 01ef | | .DBGLNO 0x01eb,0x01ef,0x01f5 0489 ; -------------------------------------------------------------------------------------- 0489 ; Debug chain 0489 ; -------------------------------------------------------------------------------------- 0489 0000 0001 | | .DBGLEN 0x0000,0x0001 048b 01fb | | .DBGLNO 0x01fb 048c ; -------------------------------------------------------------------------------------- 048c ; Debug chain 048c ; -------------------------------------------------------------------------------------- 048c 0000 0001 | | .DBGLEN 0x0000,0x0001 048e 020b | | .DBGLNO 0x020b 048f ; -------------------------------------------------------------------------------------- 048f ; Debug chain 048f ; -------------------------------------------------------------------------------------- 048f 0000 0001 | | .DBGLEN 0x0000,0x0001 0491 021b | | .DBGLNO 0x021b 0492 ; -------------------------------------------------------------------------------------- 0492 ; Debug chain 0492 ; -------------------------------------------------------------------------------------- 0492 0001 0002 | | .DBGLEN 0x0001,0x0002 0494 022b 0230 | + 0| .DBGLNO 0x022b,0x0230,0x023a 0497 ; -------------------------------------------------------------------------------------- 0497 ; Debug chain 0497 ; -------------------------------------------------------------------------------------- 0497 0001 0002 | | .DBGLEN 0x0001,0x0002 0499 024b 0250 | K P| .DBGLNO 0x024b,0x0250,0x025d 049c ; -------------------------------------------------------------------------------------- 049c ; Debug chain 049c ; -------------------------------------------------------------------------------------- 049c 0000 0007 | | .DBGLEN 0x0000,0x0007 049e 026b 026f | k o| .DBGLNO 0x026b,0x026f,0x0271,0x0279,0x027b,0x0282,0x0289 04a5 0001 0002 | | .XXX[0x7] 04a7 0003 0007 | | 04a9 0004 0005 | | 04ab 0006 | | 04ac ; -------------------------------------------------------------------------------------- 04ac ; Debug chain 04ac ; -------------------------------------------------------------------------------------- 04ac 0000 0006 | | .DBGLEN 0x0000,0x0006 04ae 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029f,0x02a4,0x02ab,0x02b2 04b4 0001 0002 | | .XXX[0x6] 04b6 0006 0003 | | 04b8 0004 0005 | | 04ba ; -------------------------------------------------------------------------------------- 04ba ; Debug chain 04ba ; -------------------------------------------------------------------------------------- 04ba 0001 0003 | | .DBGLEN 0x0001,0x0003 04bc 0383 0385 | | .DBGLNO 0x0383,0x0385,0x0390,0x0393 04c0 0000 0000 | | .BLANK 0000[0x140]