|
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]