|
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_1ee28c5
└─⟦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 02d8 | | .CONST 0x02d8 ; 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 00f5 | | .CONST 0x00f5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0015 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0017 029a 01ab | | Declare_Subprogram INIT_01a8,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 60ea |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00010000} 002a 0273 | s | Execute Discrete,Plus 002b e20d | | Load 0x1,0xd 002c 60e3 |` | Indirect_Literal Discrete,0x110,{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 01db | | Declare_Subprogram INIT_01d8,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 0203 | | Declare_Subprogram INIT_0200,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 c217 | | Store 0x1,0x17 0047 00bf | | Action Accept_Activation 0048 4800 |H | Short_Literal 0x0 0049 4801 |H | Short_Literal 0x1 004a 029f 0273 | s| Declare_Subprogram INIT_0270,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 e222 | " | Load 0x1,0x22 0067 4804 |H | Short_Literal 0x4 0068 e225 | % | Load 0x1,0x25 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 e223 | # | Load 0x1,0x23 0076 e224 | $ | Load 0x1,0x24 0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0078 e20e | | Load 0x1,0xe 0079 4805 |H | Short_Literal 0x5 007a e226 | & | Load 0x1,0x26 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 e223 | # | Load 0x1,0x23 0088 e212 | | Load 0x1,0x12 0089 e224 | $ | Load 0x1,0x24 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b e20e | | Load 0x1,0xe 008c 4806 |H | Short_Literal 0x6 008d e227 | ' | Load 0x1,0x27 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 e226 | & | Load 0x1,0x26 0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0096 4801 |H | Short_Literal 0x1 0097 e227 | ' | Load 0x1,0x27 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 009b 4803 |H | Short_Literal 0x3 009c 4800 |H | Short_Literal 0x0 009d e221 | ! | Load 0x1,0x21 009e 0307 | | Complete_Type Variant_Record,By_Defining 009f e222 | " | Load 0x1,0x22 00a0 03c4 | | Complete_Type Access,By_Component_Completion 00a1 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 00a3 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00ae 00c7 | | Action Elaborate_Subprogram 00af e21f | | Load 0x1,0x1f 00b0 a003 | | Store_Unchecked 0x0,0x3 00b1 a004 | | Store_Unchecked 0x0,0x4 00b2 a005 | | Store_Unchecked 0x0,0x5 00b3 a006 | | Store_Unchecked 0x0,0x6 00b4 4805 |H | Short_Literal 0x5 00b5 e224 | $ | Load 0x1,0x24 00b6 020e | | Execute Module,Augment_Imports 00b7 e224 | $ | Load 0x1,0x24 00b8 020f | | Execute Module,Activate 00b9 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00ba a007 | | Store_Unchecked 0x0,0x7 00bb a008 | | Store_Unchecked 0x0,0x8 00bc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00bd a009 | | Store_Unchecked 0x0,0x9 00be 4805 |H | Short_Literal 0x5 00bf e225 | % | Load 0x1,0x25 00c0 020e | | Execute Module,Augment_Imports 00c1 00db | | Load_Top At_Offset_3 00c2 020f | | Execute Module,Activate 00c3 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00c4 a007 | | Store_Unchecked 0x0,0x7 00c5 e224 | $ | Load 0x1,0x24 00c6 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00c7 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c8 e224 | $ | Load 0x1,0x24 00c9 190e | | Execute Package,Field_Reference,Field_Number 0xe 00ca 4805 |H | Short_Literal 0x5 00cb e226 | & | Load 0x1,0x26 00cc 020e | | Execute Module,Augment_Imports 00cd 00da | | Load_Top At_Offset_2 00ce 020f | | Execute Module,Activate 00cf 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d0 a007 | | Store_Unchecked 0x0,0x7 00d1 e224 | $ | Load 0x1,0x24 00d2 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00d3 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00d4 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00d5 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00d6 e224 | $ | Load 0x1,0x24 00d7 190f | | Execute Package,Field_Reference,Field_Number 0xf 00d8 4807 |H | Short_Literal 0x7 00d9 e227 | ' | Load 0x1,0x27 00da 020e | | Execute Module,Augment_Imports 00db 00d9 | | Load_Top At_Offset_1 00dc 020f | | Execute Module,Activate 00dd e212 | | Load 0x1,0x12 00de 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00df a00a | | Store_Unchecked 0x0,0xa 00e0 a00b | | Store_Unchecked 0x0,0xb 00e1 a00c | | Store_Unchecked 0x0,0xc 00e2 a00d | | Store_Unchecked 0x0,0xd 00e3 a00e | | Store_Unchecked 0x0,0xe 00e4 a00f | | Store_Unchecked 0x0,0xf 00e5 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00e6 e226 | & | Load 0x1,0x26 00e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e8 e226 | & | Load 0x1,0x26 00e9 190e | | Execute Package,Field_Reference,Field_Number 0xe 00ea e221 | ! | Load 0x1,0x21 00eb 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00ec e227 | ' | Load 0x1,0x27 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee e227 | ' | Load 0x1,0x27 00ef 190e | | Execute Package,Field_Reference,Field_Number 0xe 00f0 480f |H | Short_Literal 0xf 00f1 e21e | | Load 0x1,0x1e 00f2 020e | | Execute Module,Augment_Imports 00f3 e21e | | Load 0x1,0x1e 00f4 020f | | Execute Module,Activate 00f5 BODY_0008: 00f5 00bc | | Action Signal_Activated 00f6 00bb | | Action Signal_Completion 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e225 | % | Load 0x1,0x25 00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fd 02ff | | Declare_Variable Variant_Record 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 BODY_00f8: 0100 00db | | Load_Top At_Offset_3 0101 e225 | % | Load 0x1,0x25 0102 180f | | Execute Package,Field_Execute,Field_Number 0xf 0103 00d9 | | Load_Top At_Offset_1 0104 016d | m | Execute Variant_Record,Structure_Write 0105 4800 |H | Short_Literal 0x0 0106 e221 | ! | Load 0x1,0x21 0107 1c08 | | Execute_Immediate Run_Utility,0x8 0108 00d9 | | Load_Top At_Offset_1 0109 00d9 | | Load_Top At_Offset_1 010a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 010b 8228 | ( | Call 0x1,0x28 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0114 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0120 | | .CONST 0x0120 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e225 | % | Load 0x1,0x25 011c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011d 02ff | | Declare_Variable Variant_Record 011e 00d8 | | Load_Top At_Offset_0 011f 1c00 | | Execute_Immediate Run_Utility,0x0 0120 BODY_0118: 0120 00db | | Load_Top At_Offset_3 0121 e222 | " | Load 0x1,0x22 0122 022f | / | Execute Access,Equal 0123 6802 |h | Jump_Zero 0x126 0124 e5fe | | Load 0x2,-0x2 0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0126 e5fe | | Load 0x2,-0x2 0127 e222 | " | Load 0x1,0x22 0128 022f | / | Execute Access,Equal 0129 6802 |h | Jump_Zero 0x12c 012a 00db | | Load_Top At_Offset_3 012b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012c e5fe | | Load 0x2,-0x2 012d e5ff | | Load 0x2,-0x1 012e e225 | % | Load 0x1,0x25 012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0130 00d9 | | Load_Top At_Offset_1 0131 016d | m | Execute Variant_Record,Structure_Write 0132 4800 |H | Short_Literal 0x0 0133 e221 | ! | Load 0x1,0x21 0134 1c08 | | Execute_Immediate Run_Utility,0x8 0135 00d9 | | Load_Top At_Offset_1 0136 00d9 | | Load_Top At_Offset_1 0137 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0138 8228 | ( | Call 0x1,0x28 0139 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0148 | H | .CONST 0x0148 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e226 | & | Load 0x1,0x26 0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0145 02ff | | Declare_Variable Variant_Record 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 BODY_0140: 0148 e5fe | | Load 0x2,-0x2 0149 00d8 | | Load_Top At_Offset_0 014a e20e | | Load 0x1,0xe 014b 0260 | ` | Execute Discrete,In_Type 014c 7001 |p | Jump_Nonzero 0x14e 014d 0801 | | Execute_Immediate Raise,0x1 014e e226 | & | Load 0x1,0x26 014f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0150 00d9 | | Load_Top At_Offset_1 0151 016d | m | Execute Variant_Record,Structure_Write 0152 4801 |H | Short_Literal 0x1 0153 e221 | ! | Load 0x1,0x21 0154 1c08 | | Execute_Immediate Run_Utility,0x8 0155 00d9 | | Load_Top At_Offset_1 0156 00d9 | | Load_Top At_Offset_1 0157 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0158 8228 | ( | Call 0x1,0x28 0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0168 | h | .CONST 0x0168 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 e227 | ' | Load 0x1,0x27 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 02ff | | Declare_Variable Variant_Record 0166 00d8 | | Load_Top At_Offset_0 0167 1c00 | | Execute_Immediate Run_Utility,0x0 0168 BODY_0160: 0168 e5fd | | Load 0x2,-0x3 0169 e212 | | Load 0x1,0x12 016a 0119 | | Execute Any,Check_In_Formal_Type 016b e5fe | | Load 0x2,-0x2 016c 00d8 | | Load_Top At_Offset_0 016d e20e | | Load 0x1,0xe 016e 0260 | ` | Execute Discrete,In_Type 016f 7001 |p | Jump_Nonzero 0x171 0170 0801 | | Execute_Immediate Raise,0x1 0171 e227 | ' | Load 0x1,0x27 0172 180f | | Execute Package,Field_Execute,Field_Number 0xf 0173 00d9 | | Load_Top At_Offset_1 0174 016d | m | Execute Variant_Record,Structure_Write 0175 4802 |H | Short_Literal 0x2 0176 e221 | ! | Load 0x1,0x21 0177 1c08 | | Execute_Immediate Run_Utility,0x8 0178 00d9 | | Load_Top At_Offset_1 0179 00d9 | | Load_Top At_Offset_1 017a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 017b 8228 | ( | Call 0x1,0x28 017c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00db | | Load_Top At_Offset_3 0184 e222 | " | Load 0x1,0x22 0185 022f | / | Execute Access,Equal 0186 6802 |h | Jump_Zero 0x189 0187 4800 |H | Short_Literal 0x0 0188 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0189 00db | | Load_Top At_Offset_3 018a 0227 | ' | Execute Access,All_Reference 018b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 018c 4603 |F | Jump_Case 0x4 018d 7805 |x | Jump 0x193 ; case 0x0 018e 780b |x | Jump 0x19a ; case 0x1 018f 7811 |x | Jump 0x1a1 ; case 0x2 0190 7800 |x | Jump 0x191 ; case 0x3 0191 e21f | | Load 0x1,0x1f 0192 0257 | W | Execute Discrete,Raise 0193 00db | | Load_Top At_Offset_3 0194 0227 | ' | Execute Access,All_Reference 0195 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0196 00db | | Load_Top At_Offset_3 0197 e225 | % | Load 0x1,0x25 0198 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019a 00db | | Load_Top At_Offset_3 019b 0227 | ' | Execute Access,All_Reference 019c 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 019d 00db | | Load_Top At_Offset_3 019e e226 | & | Load 0x1,0x26 019f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a1 00db | | Load_Top At_Offset_3 01a2 0227 | ' | Execute Access,All_Reference 01a3 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01a4 00db | | Load_Top At_Offset_3 01a5 e227 | ' | Load 0x1,0x27 01a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 e222 | " | Load 0x1,0x22 01ad 022e | . | Execute Access,Not_Equal 01ae 6821 |h! | Jump_Zero 0x1d0 01af 00da | | Load_Top At_Offset_2 01b0 0227 | ' | Execute Access,All_Reference 01b1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01b2 4603 |F | Jump_Case 0x4 01b3 7808 |x | Jump 0x1bc ; case 0x0 01b4 780e |x | Jump 0x1c3 ; case 0x1 01b5 7814 |x | Jump 0x1ca ; case 0x2 01b6 7800 |x | Jump 0x1b7 ; case 0x3 01b7 00db | | Load_Top At_Offset_3 01b8 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Undefined predicate" 01ba 8007 | | Call 0x0,0x7 01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bc 00db | | Load_Top At_Offset_3 01bd 00db | | Load_Top At_Offset_3 01be 0227 | ' | Execute Access,All_Reference 01bf 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01c0 e225 | % | Load 0x1,0x25 01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c3 00db | | Load_Top At_Offset_3 01c4 00db | | Load_Top At_Offset_3 01c5 0227 | ' | Execute Access,All_Reference 01c6 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01c7 e226 | & | Load 0x1,0x26 01c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ca 00db | | Load_Top At_Offset_3 01cb 00db | | Load_Top At_Offset_3 01cc 0227 | ' | Execute Access,All_Reference 01cd 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01ce e227 | ' | Load 0x1,0x27 01cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d1 0000 0000 | | .BLANK 0000[0x7] 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 4607 |F | Jump_Case 0x8 01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01dd 7807 |x | Jump 0x1e5 ; case 0x1 01de 780a |x | Jump 0x1e9 ; case 0x2 01df 780e |x | Jump 0x1ee ; case 0x3 01e0 7811 |x | Jump 0x1f2 ; case 0x4 01e1 7812 |x | Jump 0x1f4 ; case 0x5 01e2 7813 |x | Jump 0x1f6 ; case 0x6 01e3 7816 |x | Jump 0x1fa ; case 0x7 01e4 4302 |C | .XXX[0x1] 01e5 00da | | Load_Top At_Offset_2 01e6 0091 02ad | | Action Push_String_Extended_Indexed,0x2ad ; "PRIMARY" 01e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e9 00db | | Load_Top At_Offset_3 01ea 00db | | Load_Top At_Offset_3 01eb 00e0 | | Load_Encached Standard_Cache 01ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ee 00da | | Load_Top At_Offset_2 01ef 00e0 | | Load_Encached Standard_Cache 01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f2 00db | | Load_Top At_Offset_3 01f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f4 00db | | Load_Top At_Offset_3 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 e220 | | Load 0x1,0x20 01f7 00dc | | Load_Top At_Offset_4 01f8 0267 | g | Execute Discrete,Predecessor 01f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fa e220 | | Load 0x1,0x20 01fb 00dc | | Load_Top At_Offset_4 01fc 0268 | h | Execute Discrete,Successor 01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 BODY_0200: 0203 INIT_0200: 0203 INIT_0200: 0203 4609 |F | Jump_Case 0xa 0204 7809 |x | Jump 0x20e ; case 0x0 0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0206 781b |x | Jump 0x222 ; case 0x2 0207 781e |x | Jump 0x226 ; case 0x3 0208 7823 |x# | Jump 0x22c ; case 0x4 0209 782d |x- | Jump 0x237 ; case 0x5 020a 7837 |x7 | Jump 0x242 ; case 0x6 020b 7844 |xD | Jump 0x250 ; case 0x7 020c 7854 |xT | Jump 0x261 ; case 0x8 020d 785a |xZ | Jump 0x268 ; case 0x9 020e 00da | | Load_Top At_Offset_2 020f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0210 4603 |F | Jump_Case 0x4 0211 7804 |x | Jump 0x216 ; case 0x0 0212 7807 |x | Jump 0x21a ; case 0x1 0213 780a |x | Jump 0x21e ; case 0x2 0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0215 4302 |C | .XXX[0x1] 0216 00da | | Load_Top At_Offset_2 0217 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0218 1c00 | | Execute_Immediate Run_Utility,0x0 0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 021a 00da | | Load_Top At_Offset_2 021b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 021c 1c00 | | Execute_Immediate Run_Utility,0x0 021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 021e 00da | | Load_Top At_Offset_2 021f 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0220 1c00 | | Execute_Immediate Run_Utility,0x0 0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0222 4801 |H | Short_Literal 0x1 0223 4804 |H | Short_Literal 0x4 0224 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0225 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0226 e5fd | | Load 0x2,-0x3 0227 00db | | Load_Top At_Offset_3 0228 1c07 | | Execute_Immediate Run_Utility,0x7 0229 e5fe | | Load 0x2,-0x2 022a 0306 | | Complete_Type Variant_Record,By_Renaming 022b 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 022c 4801 |H | Short_Literal 0x1 022d 4804 |H | Short_Literal 0x4 022e 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 022f e5fe | | Load 0x2,-0x2 0230 00d8 | | Load_Top At_Offset_0 0231 e5ff | | Load 0x2,-0x1 0232 1c06 | | Execute_Immediate Run_Utility,0x6 0233 e5ff | | Load 0x2,-0x1 0234 00db | | Load_Top At_Offset_3 0235 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 0236 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0237 4801 |H | Short_Literal 0x1 0238 00db | | Load_Top At_Offset_3 0239 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 023a 4603 |F | Jump_Case 0x4 023b 7803 |x | Jump 0x23f ; case 0x0 023c 7802 |x | Jump 0x23f ; case 0x1 023d 7801 |x | Jump 0x23f ; case 0x2 023e 7800 |x | Jump 0x23f ; case 0x3 023f e5ff | | Load 0x2,-0x1 0240 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0241 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0242 00db | | Load_Top At_Offset_3 0243 4603 |F | Jump_Case 0x4 0244 7805 |x | Jump 0x24a ; case 0x0 0245 7806 |x | Jump 0x24c ; case 0x1 0246 7807 |x | Jump 0x24e ; case 0x2 0247 7800 |x | Jump 0x248 ; case 0x3 0248 48ff |H | Short_Literal 0xff 0249 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024a 4801 |H | Short_Literal 0x1 024b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024c 4802 |H | Short_Literal 0x2 024d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024e 4803 |H | Short_Literal 0x3 024f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0250 00db | | Load_Top At_Offset_3 0251 e5fe | | Load 0x2,-0x2 0252 4603 |F | Jump_Case 0x4 0253 7805 |x | Jump 0x259 ; case 0x0 0254 7806 |x | Jump 0x25b ; case 0x1 0255 7807 |x | Jump 0x25d ; case 0x2 0256 7800 |x | Jump 0x257 ; case 0x3 0257 48ff |H | Short_Literal 0xff 0258 7805 |x | Jump 0x25e 0259 4801 |H | Short_Literal 0x1 025a 7803 |x | Jump 0x25e 025b 4802 |H | Short_Literal 0x2 025c 7801 |x | Jump 0x25e 025d 4803 |H | Short_Literal 0x3 025e e5ff | | Load 0x2,-0x1 025f 031b | | Declare_Type Variant_Record,Constrained 0260 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0261 00db | | Load_Top At_Offset_3 0262 e5fe | | Load 0x2,-0x2 0263 e5ff | | Load 0x2,-0x1 0264 1c06 | | Execute_Immediate Run_Utility,0x6 0265 e5ff | | Load 0x2,-0x1 0266 02fc | | Declare_Variable Variant_Record,With_Constraint 0267 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0268 0869 | i | Execute_Immediate Raise,0x69 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4607 |F | Jump_Case 0x8 0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0275 7807 |x | Jump 0x27d ; case 0x1 0276 780a |x | Jump 0x281 ; case 0x2 0277 780e |x | Jump 0x286 ; case 0x3 0278 7811 |x | Jump 0x28a ; case 0x4 0279 7812 |x | Jump 0x28c ; case 0x5 027a 7813 |x | Jump 0x28e ; case 0x6 027b 7816 |x | Jump 0x292 ; case 0x7 027c 4302 |C | .XXX[0x1] 027d 00da | | Load_Top At_Offset_2 027e 0091 02b1 | | Action Push_String_Extended_Indexed,0x2b1 ; "SYSTEM" 0280 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0281 00db | | Load_Top At_Offset_3 0282 00db | | Load_Top At_Offset_3 0283 00e0 | | Load_Encached Standard_Cache 0284 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0286 00da | | Load_Top At_Offset_2 0287 00e0 | | Load_Encached Standard_Cache 0288 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0289 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 028a 00db | | Load_Top At_Offset_3 028b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 028c 00db | | Load_Top At_Offset_3 028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 028e e223 | # | Load 0x1,0x23 028f 00dc | | Load_Top At_Offset_4 0290 0267 | g | Execute Discrete,Predecessor 0291 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0292 e223 | # | Load 0x1,0x23 0293 00dc | | Load_Top At_Offset_4 0294 0268 | h | Execute Discrete,Successor 0295 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e222 | " | Load 0x1,0x22 029c 0007 | | Action Break_Optional 029d BODY_0298: 029d 00db | | Load_Top At_Offset_3 029e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 029f 00d8 | | Load_Top At_Offset_0 02a0 e221 | ! | Load 0x1,0x21 02a1 1c06 | | Execute_Immediate Run_Utility,0x6 02a2 e222 | " | Load 0x1,0x22 02a3 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 02a4 00d8 | | Load_Top At_Offset_0 02a5 0227 | ' | Execute Access,All_Reference 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 0039 | 9 | Store_Top Access,At_Offset_1 02a8 00db | | Load_Top At_Offset_3 02a9 00d9 | | Load_Top At_Offset_1 02aa 0228 | ( | Execute Access,All_Write 02ab 00d8 | | Load_Top At_Offset_0 02ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ad ; -------------------------------------------------------------------------------------- 02ad ; STRING TABLE 02ad ; -------------------------------------------------------------------------------------- 02ad 0010 | | .STRTAB 0x0010->0x02b5 ; "PRIMARY" 02ae 0015 | | .STRTAB 0x0015->0x02b8 ; "UNARY" 02af 0018 | | .STRTAB 0x0018->0x02bb ; "BINARY" 02b0 001c | | .STRTAB 0x001c->0x02be ; "UNDEFINED" 02b1 0023 | # | .STRTAB 0x0023->0x02c2 ; "SYSTEM" 02b2 0027 | ' | .STRTAB 0x0027->0x02c5 ; "USER" 02b3 0029 | ) | .STRTAB 0x0029->0x02c7 ; "Undefined predicate" 02b4 003a | : | .STREND 0x003a->0x02d1 02b5 5052 494d |PRIM| .STRTAB_STRINGS 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug Table 02d8 ; -------------------------------------------------------------------------------------- 02d8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9c07,0x0000,0x0001,0x000c 02de 000b 030e | | .DBG4T 0x000b,0x030e,0xc000,0x0000 02e2 0048 031e | H | .DBG4T 0x0048,0x031e,0xc000,0x0000 02e6 00fb 0332 | 2| .DBG4T 0x00fb,0x0332,0x1002,0x0000 02ea 011b 0337 | 7| .DBG4T 0x011b,0x0337,0x1002,0x0000 02ee 0143 0340 | C @| .DBG4T 0x0143,0x0340,0x3802,0x0002 02f2 0163 0345 | c E| .DBG4T 0x0163,0x0345,0x3802,0x0002 02f6 0183 034a | J| .DBG4T 0x0183,0x034a,0x1002,0x4000 02fa 01ab 035a | Z| .DBG4T 0x01ab,0x035a,0x1001,0x4000 02fe 01db 0000 | | .DBG4T 0x01db,0x0000,0x1005,0x0000 0302 0203 0000 | | .DBG4T 0x0203,0x0000,0x1005,0x0000 0306 0273 0000 | s | .DBG4T 0x0273,0x0000,0x1005,0x0000 030a 029b 0368 | h| .DBG4T 0x029b,0x0368,0x1002,0x0000 030e ; -------------------------------------------------------------------------------------- 030e ; Debug chain 030e ; -------------------------------------------------------------------------------------- 030e 000e 0000 | | .DBGLEN 0x000e,0x0000 0310 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x0027,0x0030,0x0035,0x0040,0x0044 031e ; -------------------------------------------------------------------------------------- 031e ; Debug chain 031e ; -------------------------------------------------------------------------------------- 031e 0012 0000 | | .DBGLEN 0x0012,0x0000 0320 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005b,0x006b,0x007d,0x0090,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b9,0x00c3,0x00cf,0x00dd 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0001 0002 | | .DBGLEN 0x0001,0x0002 0334 00fb 0100 | | .DBGLNO 0x00fb,0x0100,0x0105 0337 ; -------------------------------------------------------------------------------------- 0337 ; Debug chain 0337 ; -------------------------------------------------------------------------------------- 0337 0001 0006 | | .DBGLEN 0x0001,0x0006 0339 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0124,0x0126,0x012a,0x012c,0x0132 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug chain 0340 ; -------------------------------------------------------------------------------------- 0340 0001 0002 | | .DBGLEN 0x0001,0x0002 0342 0143 0148 | C H| .DBGLNO 0x0143,0x0148,0x0152 0345 ; -------------------------------------------------------------------------------------- 0345 ; Debug chain 0345 ; -------------------------------------------------------------------------------------- 0345 0001 0002 | | .DBGLEN 0x0001,0x0002 0347 0163 0168 | c h| .DBGLNO 0x0163,0x0168,0x0175 034a ; -------------------------------------------------------------------------------------- 034a ; Debug chain 034a ; -------------------------------------------------------------------------------------- 034a 0000 0007 | | .DBGLEN 0x0000,0x0007 034c 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0189,0x0191,0x0193,0x019a,0x01a1 0353 0001 0002 | | .XXX[0x7] 0355 0003 0007 | | 0357 0004 0005 | | 0359 0006 | | 035a ; -------------------------------------------------------------------------------------- 035a ; Debug chain 035a ; -------------------------------------------------------------------------------------- 035a 0000 0006 | | .DBGLEN 0x0000,0x0006 035c 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b7,0x01bc,0x01c3,0x01ca 0362 0001 0002 | | .XXX[0x6] 0364 0006 0003 | | 0366 0004 0005 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug chain 0368 ; -------------------------------------------------------------------------------------- 0368 0001 0003 | | .DBGLEN 0x0001,0x0003 036a 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a8,0x02ab 036e 0000 0000 | | .BLANK 0000[0x92]