|
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: 8192 (0x2000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0f30 | 0 | .CONST 0x0f30 ; 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 800a | | .CONST 0x800a ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01ff | | .CONST 0x01ff ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 006d | m | .CONST 0x006d ; Number of locals
000b INIT_0008:
000b 00ec | | Load_Encached Diana_Tree_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00c4 | | Action Make_Default
000e 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0010 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0012 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0014 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0016 4805 |H | Short_Literal 0x5
0017 032b | + | Declare_Type Record,Incomplete,Visible
0018 00c4 | | Action Make_Default
0019 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
001b 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
001d 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
001f 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0021 00c4 | | Action Make_Default
0022 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0024 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0026 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0028 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
002a 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
002c 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
002e 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0030 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
0032 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0034 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
0036 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated
0038 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
003a 4800 |H | Short_Literal 0x0
003b 4803 |H | Short_Literal 0x3
003c 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
003e 03fe | | Declare_Type Discrete,Defined,Visible
003f 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0041 e002 | | Load 0x0,0x2
0042 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0043 0129 | ) | Execute Any,Make_Visible
0044 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
0046 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0048 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
004a 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
004c 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
004e 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
0050 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated
0052 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated
0054 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
0056 4800 |H | Short_Literal 0x0
0057 4806 |H | Short_Literal 0x6
0058 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
005a 03fe | | Declare_Type Discrete,Defined,Visible
005b 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated
005d 4800 |H | Short_Literal 0x0
005e 4802 |H | Short_Literal 0x2
005f 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
0061 03fe | | Declare_Type Discrete,Defined,Visible
0062 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated
0064 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated
0066 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
0068 029a 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Visible,Unelaborated
006a 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated
006c 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated
006e 4800 |H | Short_Literal 0x0
006f 4809 |H | Short_Literal 0x9
0070 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call
0072 03fe | | Declare_Type Discrete,Defined,Visible
0073 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
0075 4800 |H | Short_Literal 0x0
0076 4802 |H | Short_Literal 0x2
0077 e001 | | Load 0x0,0x1
0078 01d7 | | Execute Vector,Field_Read
0079 02a0 | | Declare_Subprogram Null_Subprogram
007a 038f | | Declare_Type Package,Defined,Visible
007b e001 | | Load 0x0,0x1
007c 4801 |H | Short_Literal 0x1
007d e001 | | Load 0x0,0x1
007e 01d7 | | Execute Vector,Field_Read
007f 4802 |H | Short_Literal 0x2
0080 00db | | Load_Top At_Offset_3
0081 020e | | Execute Module,Augment_Imports
0082 0386 | | Declare_Variable Package,Visible
0083 0093 0000 | | push_full_address 0x0
0085 61aa |a | Indirect_Literal Discrete,0x230,{0x80000000, 0x00010000}
0086 0273 | s | Execute Discrete,Plus
0087 0129 | ) | Execute Any,Make_Visible
0088 0093 0000 | | push_full_address 0x0
008a 61a1 |a | Indirect_Literal Discrete,0x22c,{0x80000000, 0x00020000}
008b 0273 | s | Execute Discrete,Plus
008c 0129 | ) | Execute Any,Make_Visible
008d 029a 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Visible,Unelaborated
008f 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
0091 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated
0093 029a 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call,Visible,Unelaborated
0095 029a 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call,Visible,Unelaborated
0097 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated
0099 029a 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call,Visible,Unelaborated
009b 00ec | | Load_Encached Diana_Tree_Cache
009c 0129 | ) | Execute Any,Make_Visible
009d c20e | | Store 0x1,0xe
009e 4800 |H | Short_Literal 0x0
009f 4801 |H | Short_Literal 0x1
00a0 029f 088b | | Declare_Subprogram INIT_0888,For_Call
00a2 03fe | | Declare_Type Discrete,Defined,Visible
00a3 00d8 | | Load_Top At_Offset_0
00a4 00ef | | Load_Encached Diana_Sequence_Cache
00a5 00ef | | Load_Encached Diana_Sequence_Cache
00a6 00ee | | Load_Encached Diana_Seq_Type_Cache
00a7 00ee | | Load_Encached Diana_Seq_Type_Cache
00a8 02a0 | | Declare_Subprogram Null_Subprogram
00a9 e213 | | Load 0x1,0x13
00aa 0326 | & | Complete_Type Record,By_Defining
00ab e213 | | Load 0x1,0x13
00ac 0322 | " | Declare_Variable Record
00ad 4800 |H | Short_Literal 0x0
00ae 00d9 | | Load_Top At_Offset_1
00af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b0 00ef | | Load_Encached Diana_Sequence_Cache
00b1 00d9 | | Load_Top At_Offset_1
00b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b3 00ef | | Load_Encached Diana_Sequence_Cache
00b4 00d9 | | Load_Top At_Offset_1
00b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b6 00ee | | Load_Encached Diana_Seq_Type_Cache
00b7 00d9 | | Load_Top At_Offset_1
00b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b9 00ee | | Load_Encached Diana_Seq_Type_Cache
00ba 00d9 | | Load_Top At_Offset_1
00bb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00bc 0129 | ) | Execute Any,Make_Visible
00bd c214 | | Store 0x1,0x14
00be 00f1 | | Load_Encached Diana_Temp_Seq
00bf 00f1 | | Load_Encached Diana_Temp_Seq
00c0 00f1 | | Load_Encached Diana_Temp_Seq
00c1 02a0 | | Declare_Subprogram Null_Subprogram
00c2 4803 |H | Short_Literal 0x3
00c3 032e | . | Declare_Type Record,Defined,Visible
00c4 00d8 | | Load_Top At_Offset_0
00c5 0322 | " | Declare_Variable Record
00c6 00f1 | | Load_Encached Diana_Temp_Seq
00c7 00d9 | | Load_Top At_Offset_1
00c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c9 00f1 | | Load_Encached Diana_Temp_Seq
00ca 00d9 | | Load_Top At_Offset_1
00cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cc 00f1 | | Load_Encached Diana_Temp_Seq
00cd 00d9 | | Load_Top At_Offset_1
00ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cf 0129 | ) | Execute Any,Make_Visible
00d0 c219 | | Store 0x1,0x19
00d1 00bf | | Action Accept_Activation
00d2 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call
00d4 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e3 00c7 | | Action Elaborate_Subprogram
00e4 4805 |H | Short_Literal 0x5
00e5 0093 0ce3 | | push_full_address INIT_0ce0
00e7 02a0 | | Declare_Subprogram Null_Subprogram
00e8 038c | | Declare_Type Package,Defined,Not_Elaborated
00e9 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
00eb e219 | | Load 0x1,0x19
00ec 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00ed 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
00ee 4803 |H | Short_Literal 0x3
00ef e24a | J | Load 0x1,0x4a
00f0 020e | | Execute Module,Augment_Imports
00f1 00d9 | | Load_Top At_Offset_1
00f2 020d | | Execute Module,Elaborate
00f3 0007 | | Action Break_Optional
00f4 0093 0000 | | push_full_address 0x0
00f6 6131 |a1 | Indirect_Literal Discrete,0x228,{0x80000000, 0x00070000}
00f7 0273 | s | Execute Discrete,Plus
00f8 e003 | | Load 0x0,0x3
00f9 0273 | s | Execute Discrete,Plus
00fa e004 | | Load 0x0,0x4
00fb 0273 | s | Execute Discrete,Plus
00fc 00ee | | Load_Encached Diana_Seq_Type_Cache
00fd 00eb | | Load_Encached Diana_Cache
00fe 1958 | X | Execute Package,Field_Reference,Field_Number 0x58
00ff 00eb | | Load_Encached Diana_Cache
0100 1959 | Y | Execute Package,Field_Reference,Field_Number 0x59
0101 00eb | | Load_Encached Diana_Cache
0102 195a | Z | Execute Package,Field_Reference,Field_Number 0x5a
0103 e24a | J | Load 0x1,0x4a
0104 0387 | | Declare_Variable Package
0105 00d8 | | Load_Top At_Offset_0
0106 020f | | Execute Module,Activate
0107 0093 0000 | | push_full_address 0x0
0109 611a |a | Indirect_Literal Discrete,0x224,{0x80000000, 0x00060000}
010a 0273 | s | Execute Discrete,Plus
010b e003 | | Load 0x0,0x3
010c 0273 | s | Execute Discrete,Plus
010d e005 | | Load 0x0,0x5
010e 0273 | s | Execute Discrete,Plus
010f 00ef | | Load_Encached Diana_Sequence_Cache
0110 00eb | | Load_Encached Diana_Cache
0111 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0112 00eb | | Load_Encached Diana_Cache
0113 1965 | e | Execute Package,Field_Reference,Field_Number 0x65
0114 00eb | | Load_Encached Diana_Cache
0115 1966 | f | Execute Package,Field_Reference,Field_Number 0x66
0116 e24a | J | Load 0x1,0x4a
0117 0387 | | Declare_Variable Package
0118 00d8 | | Load_Top At_Offset_0
0119 020f | | Execute Module,Activate
011a 0093 0000 | | push_full_address 0x0
011c 6103 |a | Indirect_Literal Discrete,0x220,{0x80000000, 0x00050000}
011d 0273 | s | Execute Discrete,Plus
011e e003 | | Load 0x0,0x3
011f 0273 | s | Execute Discrete,Plus
0120 e006 | | Load 0x0,0x6
0121 0273 | s | Execute Discrete,Plus
0122 00f1 | | Load_Encached Diana_Temp_Seq
0123 00eb | | Load_Encached Diana_Cache
0124 1971 | q | Execute Package,Field_Reference,Field_Number 0x71
0125 00eb | | Load_Encached Diana_Cache
0126 1972 | r | Execute Package,Field_Reference,Field_Number 0x72
0127 00eb | | Load_Encached Diana_Cache
0128 1973 | s | Execute Package,Field_Reference,Field_Number 0x73
0129 e24a | J | Load 0x1,0x4a
012a 0387 | | Declare_Variable Package
012b 00d8 | | Load_Top At_Offset_0
012c 020f | | Execute Module,Activate
012d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
012e 00c7 | | Action Elaborate_Subprogram
012f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0130 00c7 | | Action Elaborate_Subprogram
0131 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0132 00c7 | | Action Elaborate_Subprogram
0133 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0134 00c7 | | Action Elaborate_Subprogram
0135 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0136 00c7 | | Action Elaborate_Subprogram
0137 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0138 00c7 | | Action Elaborate_Subprogram
0139 1d20 | | Execute_Immediate Reference_Lex_1,0x20
013a 00c7 | | Action Elaborate_Subprogram
013b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
013c 00c7 | | Action Elaborate_Subprogram
013d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
013e 00c7 | | Action Elaborate_Subprogram
013f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0140 00c7 | | Action Elaborate_Subprogram
0141 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0142 00c7 | | Action Elaborate_Subprogram
0143 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0144 00c7 | | Action Elaborate_Subprogram
0145 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call
0147 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0148 00c7 | | Action Elaborate_Subprogram
0149 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
014a 00c7 | | Action Elaborate_Subprogram
014b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
014c 00c7 | | Action Elaborate_Subprogram
014d 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
014e 00c7 | | Action Elaborate_Subprogram
014f 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0150 00c7 | | Action Elaborate_Subprogram
0151 029b 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call,Unelaborated
0153 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
0154 00c7 | | Action Elaborate_Subprogram
0155 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call
0157 029d 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call
0159 029d 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call
015b 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
015c 00c6 | | Action Check_Subprogram_Elaborated
015d e002 | | Load 0x0,0x2
015e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
015f 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
0160 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0161 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
0162 0093 0000 | | push_full_address 0x0
0164 60b7 |` | Indirect_Literal Discrete,0x21c,{0x80000000, 0x00040000}
0165 0273 | s | Execute Discrete,Plus
0166 e003 | | Load 0x0,0x3
0167 0273 | s | Execute Discrete,Plus
0168 e007 | | Load 0x0,0x7
0169 0273 | s | Execute Discrete,Plus
016a 4800 |H | Short_Literal 0x0
016b 0007 | | Action Break_Optional
016c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
016d 00c7 | | Action Elaborate_Subprogram
016e 029d 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call
0170 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0171 00c7 | | Action Elaborate_Subprogram
0172 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0173 00c7 | | Action Elaborate_Subprogram
0174 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0175 00c7 | | Action Elaborate_Subprogram
0176 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0177 00c7 | | Action Elaborate_Subprogram
0178 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0179 00c7 | | Action Elaborate_Subprogram
017a 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
017b 00c7 | | Action Elaborate_Subprogram
017c 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
017d 00c7 | | Action Elaborate_Subprogram
017e 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
017f 00c7 | | Action Elaborate_Subprogram
0180 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0181 00c7 | | Action Elaborate_Subprogram
0182 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0183 00c7 | | Action Elaborate_Subprogram
0184 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0185 00c7 | | Action Elaborate_Subprogram
0186 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0187 00c7 | | Action Elaborate_Subprogram
0188 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0189 00c7 | | Action Elaborate_Subprogram
018a 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
018b 00c7 | | Action Elaborate_Subprogram
018c 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
018d 00c6 | | Action Check_Subprogram_Elaborated
018e 00ef | | Load_Encached Diana_Sequence_Cache
018f 00eb | | Load_Encached Diana_Cache
0190 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0191 e24d | M | Load 0x1,0x4d
0192 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0193 e24d | M | Load 0x1,0x4d
0194 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0195 0093 0000 | | push_full_address 0x0
0197 6080 |` | Indirect_Literal Discrete,0x218,{0x80000000, 0x00030000}
0198 0273 | s | Execute Discrete,Plus
0199 e003 | | Load 0x0,0x3
019a 0273 | s | Execute Discrete,Plus
019b e008 | | Load 0x0,0x8
019c 0273 | s | Execute Discrete,Plus
019d 4800 |H | Short_Literal 0x0
019e 0007 | | Action Break_Optional
019f 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01a0 00c6 | | Action Check_Subprogram_Elaborated
01a1 00ee | | Load_Encached Diana_Seq_Type_Cache
01a2 00eb | | Load_Encached Diana_Cache
01a3 1958 | X | Execute Package,Field_Reference,Field_Number 0x58
01a4 e24c | L | Load 0x1,0x4c
01a5 1913 | | Execute Package,Field_Reference,Field_Number 0x13
01a6 e24c | L | Load 0x1,0x4c
01a7 1914 | | Execute Package,Field_Reference,Field_Number 0x14
01a8 0093 0000 | | push_full_address 0x0
01aa 6069 |`i | Indirect_Literal Discrete,0x214,{0x80000000, 0x00020000}
01ab 0273 | s | Execute Discrete,Plus
01ac e003 | | Load 0x0,0x3
01ad 0273 | s | Execute Discrete,Plus
01ae e009 | | Load 0x0,0x9
01af 0273 | s | Execute Discrete,Plus
01b0 4800 |H | Short_Literal 0x0
01b1 0007 | | Action Break_Optional
01b2 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01b3 00c6 | | Action Check_Subprogram_Elaborated
01b4 00f1 | | Load_Encached Diana_Temp_Seq
01b5 00eb | | Load_Encached Diana_Cache
01b6 1971 | q | Execute Package,Field_Reference,Field_Number 0x71
01b7 e24e | N | Load 0x1,0x4e
01b8 1913 | | Execute Package,Field_Reference,Field_Number 0x13
01b9 e24e | N | Load 0x1,0x4e
01ba 1914 | | Execute Package,Field_Reference,Field_Number 0x14
01bb 0093 0000 | | push_full_address 0x0
01bd 6052 |`R | Indirect_Literal Discrete,0x210,{0x80000000, 0x00010000}
01be 0273 | s | Execute Discrete,Plus
01bf e003 | | Load 0x0,0x3
01c0 0273 | s | Execute Discrete,Plus
01c1 e00a | | Load 0x0,0xa
01c2 0273 | s | Execute Discrete,Plus
01c3 4800 |H | Short_Literal 0x0
01c4 0007 | | Action Break_Optional
01c5 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
01c7 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
01c8 00c7 | | Action Elaborate_Subprogram
01c9 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
01ca 00c7 | | Action Elaborate_Subprogram
01cb 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
01cc 00c7 | | Action Elaborate_Subprogram
01cd 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01ce 00c7 | | Action Elaborate_Subprogram
01cf 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
01d0 00c7 | | Action Elaborate_Subprogram
01d1 e00b | | Load 0x0,0xb
01d2 a00c | | Store_Unchecked 0x0,0xc
01d3 1d10 | | Execute_Immediate Reference_Lex_1,0x10
01d4 a00d | | Store_Unchecked 0x0,0xd
01d5 e00e | | Load 0x0,0xe
01d6 a00f | | Store_Unchecked 0x0,0xf
01d7 a010 | | Store_Unchecked 0x0,0x10
01d8 e011 | | Load 0x0,0x11
01d9 a012 | | Store_Unchecked 0x0,0x12
01da e23f | ? | Load 0x1,0x3f
01db a013 | | Store_Unchecked 0x0,0x13
01dc e213 | | Load 0x1,0x13
01dd e214 | | Load 0x1,0x14
01de a014 | | Store_Unchecked 0x0,0x14
01df e015 | | Load 0x0,0x15
01e0 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
01e1 e23e | > | Load 0x1,0x3e
01e2 e016 | | Load 0x0,0x16
01e3 a017 | | Store_Unchecked 0x0,0x17
01e4 e018 | | Load 0x0,0x18
01e5 e019 | | Load 0x0,0x19
01e6 e248 | H | Load 0x1,0x48
01e7 e002 | | Load 0x0,0x2
01e8 a01a | | Store_Unchecked 0x0,0x1a
01e9 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01ea 1d0f | | Execute_Immediate Reference_Lex_1,0xf
01eb a01b | | Store_Unchecked 0x0,0x1b
01ec a01c | | Store_Unchecked 0x0,0x1c
01ed e20e | | Load 0x1,0xe
01ee a01d | | Store_Unchecked 0x0,0x1d
01ef e01e | | Load 0x0,0x1e
01f0 e01f | | Load 0x0,0x1f
01f1 e020 | | Load 0x0,0x20
01f2 a021 | ! | Store_Unchecked 0x0,0x21
01f3 a022 | " | Store_Unchecked 0x0,0x22
01f4 e023 | # | Load 0x0,0x23
01f5 e219 | | Load 0x1,0x19
01f6 e024 | $ | Load 0x0,0x24
01f7 e025 | % | Load 0x0,0x25
01f8 e026 | & | Load 0x0,0x26
01f9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
01fa 4829 |H) | Short_Literal 0x29
01fb e23d | = | Load 0x1,0x3d
01fc 020e | | Execute Module,Augment_Imports
01fd e23d | = | Load 0x1,0x3d
01fe 020f | | Execute Module,Activate
01ff BODY_0008:
01ff 00bc | | Action Signal_Activated
0200 00bb | | Action Signal_Completion
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 021d | | Execute Heap_Access,Is_Null
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e 0000 0000 | | .XXX[0x2]
0210 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0214 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0218 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
021c 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0220 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
0224 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
0228 8000 0000 | | .LITERAL {0x80000000, 0x00070000}
022c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0230 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b 00ec | | Load_Encached Diana_Tree_Cache
023c 039d | | Declare_Variable Heap_Access,Duplicate
023d BODY_0238:
023d e5ff | | Load 0x2,-0x1
023e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
023f 00d8 | | Load_Top At_Offset_0
0240 7006 |p | Jump_Nonzero 0x247
0241 0092 0d69 | i| Action Push_String_Extended,0xd69 ; "Nil_Element has no parent"
0243 e011 | | Load 0x0,0x11
0244 8012 | | Call 0x0,0x12
0245 e23e | > | Load 0x1,0x3e
0246 0257 | W | Execute Discrete,Raise
0247 00d8 | | Load_Top At_Offset_0
0248 8027 | ' | Call 0x0,0x27
0249 7002 |p | Jump_Nonzero 0x24c
024a e20e | | Load 0x1,0xe
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 00cf | | Action Mark_Auxiliary
024d 00d9 | | Load_Top At_Offset_1
024e 00eb | | Load_Encached Diana_Cache
024f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0250 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0251 00da | | Load_Top At_Offset_2
0252 700f |p | Jump_Nonzero 0x262
0253 00d9 | | Load_Top At_Offset_1
0254 8028 | ( | Call 0x0,0x28
0255 6806 |h | Jump_Zero 0x25c
0256 00d9 | | Load_Top At_Offset_1
0257 8029 | ) | Call 0x0,0x29
0258 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0259 00da | | Load_Top At_Offset_2
025a 680e |h | Jump_Zero 0x269
025b 7806 |x | Jump 0x262
025c 0092 0d6a | j| Action Push_String_Extended,0xd6a ; "Internal Error while getting parent"
025e e02a | * | Load 0x0,0x2a
025f 8012 | | Call 0x0,0x12
0260 e23e | > | Load 0x1,0x3e
0261 0257 | W | Execute Discrete,Raise
0262 00da | | Load_Top At_Offset_2
0263 800c | | Call 0x0,0xc
0264 7004 |p | Jump_Nonzero 0x269
0265 00da | | Load_Top At_Offset_2
0266 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0267 00c9 | | Action Pop_Auxiliary_Loop
0268 7fe4 | | Jump 0x24d
0269 00ce | | Action Pop_Auxiliary
026a 00d9 | | Load_Top At_Offset_1
026b 6802 |h | Jump_Zero 0x26e
026c 00d9 | | Load_Top At_Offset_1
026d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026e e20e | | Load 0x1,0xe
026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027b | { | .CONST 0x027b ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 e002 | | Load 0x0,0x2
0274 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0275 02c7 | | Declare_Variable Any
0276 00d8 | | Load_Top At_Offset_0
0277 1c00 | | Execute_Immediate Run_Utility,0x0
0278 00e3 | | Load_Encached Natural_Cache
0279 e00b | | Load 0x0,0xb
027a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027b BODY_0270:
027b e5ff | | Load 0x2,-0x1
027c 820f | | Call 0x1,0xf
027d 6802 |h | Jump_Zero 0x280
027e 4800 |H | Short_Literal 0x0
027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0280 00d8 | | Load_Top At_Offset_0
0281 00db | | Load_Top At_Offset_3
0282 e5ff | | Load 0x2,-0x1
0283 801a | | Call 0x0,0x1a
0284 c402 | | Store 0x2,0x2
0285 0059 | Y | Store_Top Discrete,At_Offset_1
0286 00d8 | | Load_Top At_Offset_0
0287 8249 | I | Call 0x1,0x49
0288 00da | | Load_Top At_Offset_2
0289 e5ff | | Load 0x2,-0x1
028a e002 | | Load 0x0,0x2
028b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
028d 00d9 | | Load_Top At_Offset_1
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
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 e5fc | | Load 0x2,-0x4
0294 0092 0d6b | k| Action Push_String_Extended,0xd6b ; "AOE Definition is not yet implemented"
0296 e02b | + | Load 0x0,0x2b
0297 e00e | | Load 0x0,0xe
0298 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0299 c5fc | | Store 0x2,-0x4
029a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a5 681c |h | Jump_Zero 0x2c2
02a6 00da | | Load_Top At_Offset_2
02a7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02a8 7006 |p | Jump_Nonzero 0x2af
02a9 0092 0d6c | l| Action Push_String_Extended,0xd6c ; "Past end or empty Ada_Program.Element_Iterator"
02ab e011 | | Load 0x0,0x11
02ac 8012 | | Call 0x0,0x12
02ad e23f | ? | Load 0x1,0x3f
02ae 0257 | W | Execute Discrete,Raise
02af 00cf | | Action Mark_Auxiliary
02b0 00db | | Load_Top At_Offset_3
02b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02b2 0217 | | Execute Heap_Access,All_Reference
02b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b4 e5ff | | Load 0x2,-0x1
02b5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b6 00db | | Load_Top At_Offset_3
02b7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02b8 6807 |h | Jump_Zero 0x2c0
02b9 00db | | Load_Top At_Offset_3
02ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02bb 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
02bc 8014 | | Call 0x0,0x14
02bd 7002 |p | Jump_Nonzero 0x2c0
02be 00c9 | | Action Pop_Auxiliary_Loop
02bf 7ff0 | | Jump 0x2b0
02c0 00ce | | Action Pop_Auxiliary
02c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c2 00da | | Load_Top At_Offset_2
02c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c4 7006 |p | Jump_Nonzero 0x2cb
02c5 0092 0d6c | l| Action Push_String_Extended,0xd6c ; "Past end or empty Ada_Program.Element_Iterator"
02c7 e011 | | Load 0x0,0x11
02c8 8012 | | Call 0x0,0x12
02c9 e23f | ? | Load 0x1,0x3f
02ca 0257 | W | Execute Discrete,Raise
02cb 00cf | | Action Mark_Auxiliary
02cc 00db | | Load_Top At_Offset_3
02cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ce 0217 | | Execute Heap_Access,All_Reference
02cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d0 e5ff | | Load 0x2,-0x1
02d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d2 00db | | Load_Top At_Offset_3
02d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d4 6808 |h | Jump_Zero 0x2dd
02d5 00db | | Load_Top At_Offset_3
02d6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d7 00eb | | Load_Encached Diana_Cache
02d8 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
02d9 8014 | | Call 0x0,0x14
02da 7002 |p | Jump_Nonzero 0x2dd
02db 00c9 | | Action Pop_Auxiliary_Loop
02dc 7fef | | Jump 0x2cc
02dd 00ce | | Action Pop_Auxiliary
02de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02df 0000 | | .XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e5 6804 |h | Jump_Zero 0x2ea
02e6 00da | | Load_Top At_Offset_2
02e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02e8 021d | | Execute Heap_Access,Is_Null
02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ea 00da | | Load_Top At_Offset_2
02eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ec 021d | | Execute Heap_Access,Is_Null
02ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 680d |h | Jump_Zero 0x303
02f6 00da | | Load_Top At_Offset_2
02f7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f8 7006 |p | Jump_Nonzero 0x2ff
02f9 0092 0d6c | l| Action Push_String_Extended,0xd6c ; "Past end or empty Ada_Program.Element_Iterator"
02fb e011 | | Load 0x0,0x11
02fc 8012 | | Call 0x0,0x12
02fd e23f | ? | Load 0x1,0x3f
02fe 0257 | W | Execute Discrete,Raise
02ff 00da | | Load_Top At_Offset_2
0300 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0301 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0302 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0303 00da | | Load_Top At_Offset_2
0304 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0305 7006 |p | Jump_Nonzero 0x30c
0306 0092 0d6c | l| Action Push_String_Extended,0xd6c ; "Past end or empty Ada_Program.Element_Iterator"
0308 e011 | | Load 0x0,0x11
0309 8012 | | Call 0x0,0x12
030a e23f | ? | Load 0x1,0x3f
030b 0257 | W | Execute Discrete,Raise
030c 00da | | Load_Top At_Offset_2
030d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
030e 00eb | | Load_Encached Diana_Cache
030f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031d 6805 |h | Jump_Zero 0x323
031e 00da | | Load_Top At_Offset_2
031f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0320 00db | | Load_Top At_Offset_3
0321 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0322 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0323 00da | | Load_Top At_Offset_2
0324 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0325 00db | | Load_Top At_Offset_3
0326 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0327 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
032d 0f01 | | Execute_Immediate Equal,0x1
032e 7007 |p | Jump_Nonzero 0x336
032f 00db | | Load_Top At_Offset_3
0330 00db | | Load_Top At_Offset_3
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 e24d | M | Load 0x1,0x4d
0333 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0334 00d1 | | Pop_Control Pop_Count_1
0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0336 00db | | Load_Top At_Offset_3
0337 00db | | Load_Top At_Offset_3
0338 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0339 e24c | L | Load 0x1,0x4c
033a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
033b 00d1 | | Pop_Control Pop_Count_1
033c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00db | | Load_Top At_Offset_3
0344 00db | | Load_Top At_Offset_3
0345 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0346 e24e | N | Load 0x1,0x4e
0347 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0348 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0349 0000 0000 | | .BLANK 0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 8014 | | Call 0x0,0x14
0355 6821 |h! | Jump_Zero 0x377
0356 00db | | Load_Top At_Offset_3
0357 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0358 700b |p | Jump_Nonzero 0x364
0359 00f1 | | Load_Encached Diana_Temp_Seq
035a 00db | | Load_Top At_Offset_3
035b 00eb | | Load_Encached Diana_Cache
035c 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
035d e5fe | | Load 0x2,-0x2
035e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035f 00db | | Load_Top At_Offset_3
0360 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0361 e5fe | | Load 0x2,-0x2
0362 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0363 780f |x | Jump 0x373
0364 00db | | Load_Top At_Offset_3
0365 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0366 00db | | Load_Top At_Offset_3
0367 4975 |Iu | Short_Literal 0x175
0368 00eb | | Load_Encached Diana_Cache
0369 0098 | | Execute Package,Field_Read_Dynamic
036a 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
036b e5fe | | Load 0x2,-0x2
036c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
036d 00db | | Load_Top At_Offset_3
036e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
036f 0217 | | Execute Heap_Access,All_Reference
0370 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0371 e5fe | | Load 0x2,-0x2
0372 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0373 00db | | Load_Top At_Offset_3
0374 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0375 e5fe | | Load 0x2,-0x2
0376 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0377 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 8014 | | Call 0x0,0x14
037d 6819 |h | Jump_Zero 0x397
037e 00db | | Load_Top At_Offset_3
037f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0380 700b |p | Jump_Nonzero 0x38c
0381 00f1 | | Load_Encached Diana_Temp_Seq
0382 00db | | Load_Top At_Offset_3
0383 00eb | | Load_Encached Diana_Cache
0384 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0385 e5fe | | Load 0x2,-0x2
0386 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0387 00db | | Load_Top At_Offset_3
0388 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0389 e5fe | | Load 0x2,-0x2
038a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038b 7807 |x | Jump 0x393
038c 00db | | Load_Top At_Offset_3
038d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038e 00db | | Load_Top At_Offset_3
038f 00eb | | Load_Encached Diana_Cache
0390 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0391 e5fe | | Load 0x2,-0x2
0392 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0393 00db | | Load_Top At_Offset_3
0394 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0395 e5fe | | Load 0x2,-0x2
0396 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0397 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039d | | .CONST 0x039d ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b 00f1 | | Load_Encached Diana_Temp_Seq
039c 00f1 | | Load_Encached Diana_Temp_Seq
039d BODY_0398:
039d e5ff | | Load 0x2,-0x1
039e 8222 | " | Call 0x1,0x22
039f 6801 |h | Jump_Zero 0x3a1
03a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a1 e5fe | | Load 0x2,-0x2
03a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03a3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03a4 e5ff | | Load 0x2,-0x1
03a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a7 00cf | | Action Mark_Auxiliary
03a8 781f |x | Jump 0x3c8
03a9 00d9 | | Load_Top At_Offset_1
03aa 700b |p | Jump_Nonzero 0x3b6
03ab 00d9 | | Load_Top At_Offset_1
03ac 00db | | Load_Top At_Offset_3
03ad 0217 | | Execute Heap_Access,All_Reference
03ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03af 00eb | | Load_Encached Diana_Cache
03b0 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
03b1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03b2 00d9 | | Load_Top At_Offset_1
03b3 e5fe | | Load 0x2,-0x2
03b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b5 780d |x | Jump 0x3c3
03b6 00d9 | | Load_Top At_Offset_1
03b7 00db | | Load_Top At_Offset_3
03b8 0217 | | Execute Heap_Access,All_Reference
03b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ba 4975 |Iu | Short_Literal 0x175
03bb 00eb | | Load_Encached Diana_Cache
03bc 0098 | | Execute Package,Field_Read_Dynamic
03bd 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
03be 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03bf 00d9 | | Load_Top At_Offset_1
03c0 0217 | | Execute Heap_Access,All_Reference
03c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03c3 00da | | Load_Top At_Offset_2
03c4 0217 | | Execute Heap_Access,All_Reference
03c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c6 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03c7 00c9 | | Action Pop_Auxiliary_Loop
03c8 00da | | Load_Top At_Offset_2
03c9 77df |w | Jump_Nonzero 0x3a9
03ca 00ce | | Action Pop_Auxiliary
03cb 00d8 | | Load_Top At_Offset_0
03cc e5fe | | Load 0x2,-0x2
03cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03ce e5fe | | Load 0x2,-0x2
03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d0 e5fe | | Load 0x2,-0x2
03d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d3 0000 0000 | | .BLANK 0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03de | | .CONST 0x03de ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0004 | | .CONST 0x0004 ; Number of locals
03db INIT_03d8:
03db 00ec | | Load_Encached Diana_Tree_Cache
03dc 00f1 | | Load_Encached Diana_Temp_Seq
03dd 00f1 | | Load_Encached Diana_Temp_Seq
03de BODY_03d8:
03de e219 | | Load 0x1,0x19
03df e5fc | | Load 0x2,-0x4
03e0 017d | } | Execute Record,Structure_Write
03e1 e5fd | | Load 0x2,-0x3
03e2 8222 | " | Call 0x1,0x22
03e3 6801 |h | Jump_Zero 0x3e5
03e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e5 00f1 | | Load_Encached Diana_Temp_Seq
03e6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03e7 e5fd | | Load 0x2,-0x3
03e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03ea 00cf | | Action Mark_Auxiliary
03eb 7825 |x% | Jump 0x411
03ec 00d9 | | Load_Top At_Offset_1
03ed 0217 | | Execute Heap_Access,All_Reference
03ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ef a402 | | Store_Unchecked 0x2,0x2
03f0 00db | | Load_Top At_Offset_3
03f1 85fe | | Call 0x2,-0x2
03f2 7019 |p | Jump_Nonzero 0x40c
03f3 00da | | Load_Top At_Offset_2
03f4 700c |p | Jump_Nonzero 0x401
03f5 00da | | Load_Top At_Offset_2
03f6 e402 | | Load 0x2,0x2
03f7 00eb | | Load_Encached Diana_Cache
03f8 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
03f9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03fa 00da | | Load_Top At_Offset_2
03fb e5fc | | Load 0x2,-0x4
03fc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03fd 00da | | Load_Top At_Offset_2
03fe e5fc | | Load 0x2,-0x4
03ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0400 780b |x | Jump 0x40c
0401 00da | | Load_Top At_Offset_2
0402 e402 | | Load 0x2,0x2
0403 4975 |Iu | Short_Literal 0x175
0404 00eb | | Load_Encached Diana_Cache
0405 0098 | | Execute Package,Field_Read_Dynamic
0406 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0407 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0408 00da | | Load_Top At_Offset_2
0409 0217 | | Execute Heap_Access,All_Reference
040a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
040c 00d9 | | Load_Top At_Offset_1
040d 0217 | | Execute Heap_Access,All_Reference
040e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0410 00c9 | | Action Pop_Auxiliary_Loop
0411 00d9 | | Load_Top At_Offset_1
0412 77d9 |w | Jump_Nonzero 0x3ec
0413 00ce | | Action Pop_Auxiliary
0414 00d9 | | Load_Top At_Offset_1
0415 e5fc | | Load 0x2,-0x4
0416 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0417 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0427 | ' | .CONST 0x0427 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0004 | | .CONST 0x0004 ; Number of locals
041b INIT_0418:
041b e20d | | Load 0x1,0xd
041c 0007 | | Action Break_Optional
041d e213 | | Load 0x1,0x13
041e 0322 | " | Declare_Variable Record
041f e5fd | | Load 0x2,-0x3
0420 00d9 | | Load_Top At_Offset_1
0421 017d | } | Execute Record,Structure_Write
0422 e248 | H | Load 0x1,0x48
0423 0322 | " | Declare_Variable Record
0424 e219 | | Load 0x1,0x19
0425 00d9 | | Load_Top At_Offset_1
0426 017d | } | Execute Record,Structure_Write
0427 BODY_0418:
0427 00d9 | | Load_Top At_Offset_1
0428 8218 | | Call 0x1,0x18
0429 00d1 | | Pop_Control Pop_Count_1
042a 00cf | | Action Mark_Auxiliary
042b 780e |x | Jump 0x43a
042c 00da | | Load_Top At_Offset_2
042d 8217 | | Call 0x1,0x17
042e a402 | | Store_Unchecked 0x2,0x2
042f 00db | | Load_Top At_Offset_3
0430 85fe | | Call 0x2,-0x2
0431 7004 |p | Jump_Nonzero 0x436
0432 00d9 | | Load_Top At_Offset_1
0433 e402 | | Load 0x2,0x2
0434 821c | | Call 0x1,0x1c
0435 00d1 | | Pop_Control Pop_Count_1
0436 00da | | Load_Top At_Offset_2
0437 8215 | | Call 0x1,0x15
0438 00d1 | | Pop_Control Pop_Count_1
0439 00c9 | | Action Pop_Auxiliary_Loop
043a 00da | | Load_Top At_Offset_2
043b 8216 | | Call 0x1,0x16
043c 6fef |o | Jump_Zero 0x42c
043d 00ce | | Action Pop_Auxiliary
043e 00d8 | | Load_Top At_Offset_0
043f 8224 | $ | Call 0x1,0x24
0440 00d1 | | Pop_Control Pop_Count_1
0441 00d8 | | Load_Top At_Offset_0
0442 e5fc | | Load 0x2,-0x4
0443 017d | } | Execute Record,Structure_Write
0444 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 8222 | " | Call 0x1,0x22
044d 6806 |h | Jump_Zero 0x454
044e 0092 0d6d | m| Action Push_String_Extended,0xd6d ; "Past end or empty Ada_Program.Element_List"
0450 e011 | | Load 0x0,0x11
0451 8012 | | Call 0x0,0x12
0452 e23f | ? | Load 0x1,0x3f
0453 0257 | W | Execute Discrete,Raise
0454 00da | | Load_Top At_Offset_2
0455 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0456 0217 | | Execute Heap_Access,All_Reference
0457 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0458 00db | | Load_Top At_Offset_3
0459 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
045a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045b 0000 0000 | | .BLANK 0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0465 021d | | Execute Heap_Access,Is_Null
0466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c 8222 | " | Call 0x1,0x22
046d 6806 |h | Jump_Zero 0x474
046e 0092 0d6d | m| Action Push_String_Extended,0xd6d ; "Past end or empty Ada_Program.Element_List"
0470 e011 | | Load 0x0,0x11
0471 8012 | | Call 0x0,0x12
0472 e23f | ? | Load 0x1,0x3f
0473 0257 | W | Execute Discrete,Raise
0474 00da | | Load_Top At_Offset_2
0475 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0476 0217 | | Execute Heap_Access,All_Reference
0477 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0478 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0479 0000 0000 | | .BLANK 0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0485 00db | | Load_Top At_Offset_3
0486 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0487 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00da | | Load_Top At_Offset_2
048c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
048d 4975 |Iu | Short_Literal 0x175
048e 00eb | | Load_Encached Diana_Cache
048f 0098 | | Execute Package,Field_Read_Dynamic
0490 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0491 00db | | Load_Top At_Offset_3
0492 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0493 00da | | Load_Top At_Offset_2
0494 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0495 00db | | Load_Top At_Offset_3
0496 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0497 00da | | Load_Top At_Offset_2
0498 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0499 4975 |Iu | Short_Literal 0x175
049a 00eb | | Load_Encached Diana_Cache
049b 0098 | | Execute Package,Field_Read_Dynamic
049c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
049d 00db | | Load_Top At_Offset_3
049e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
049f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 4607 |F | Jump_Case 0x8
04a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04a5 7807 |x | Jump 0x4ad ; case 0x1
04a6 780a |x | Jump 0x4b1 ; case 0x2
04a7 780e |x | Jump 0x4b6 ; case 0x3
04a8 7811 |x | Jump 0x4ba ; case 0x4
04a9 7812 |x | Jump 0x4bc ; case 0x5
04aa 7813 |x | Jump 0x4be ; case 0x6
04ab 7816 |x | Jump 0x4c2 ; case 0x7
04ac 4302 |C | .XXX[0x1]
04ad 00da | | Load_Top At_Offset_2
04ae 0091 0d4f | O| Action Push_String_Extended_Indexed,0xd4f ; "CONTINUE"
04b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04b1 00db | | Load_Top At_Offset_3
04b2 00db | | Load_Top At_Offset_3
04b3 00e0 | | Load_Encached Standard_Cache
04b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b6 00da | | Load_Top At_Offset_2
04b7 00e0 | | Load_Encached Standard_Cache
04b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04ba 00db | | Load_Top At_Offset_3
04bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04bc 00db | | Load_Top At_Offset_3
04bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04be e226 | & | Load 0x1,0x26
04bf 00dc | | Load_Top At_Offset_4
04c0 0267 | g | Execute Discrete,Predecessor
04c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c2 e226 | & | Load 0x1,0x26
04c3 00dc | | Load_Top At_Offset_4
04c4 0268 | h | Execute Discrete,Successor
04c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c6 0000 0000 | | .XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04e5 | | .CONST 0x04e5 ; Address of begin
04c9 04e8 | | .CONST 0x04e8 ; Address of exception handler
04ca 0007 | | .CONST 0x0007 ; Number of locals
04cb INIT_04c8:
04cb 0093 0000 | | push_full_address 0x0
04cd 602a |`* | Indirect_Literal Discrete,0x4f8,{0x80000000, 0x00030000}
04ce 0273 | s | Execute Discrete,Plus
04cf 00db | | Load_Top At_Offset_3
04d0 6023 |`# | Indirect_Literal Discrete,0x4f4,{0x00000000, 0x0000ffff}
04d1 0279 | y | Execute Discrete,And
04d2 0273 | s | Execute Discrete,Plus
04d3 0007 | | Action Break_Optional
04d4 0093 0000 | | push_full_address 0x0
04d6 6019 |` | Indirect_Literal Discrete,0x4f0,{0x80000000, 0x00040000}
04d7 0273 | s | Execute Discrete,Plus
04d8 e5ff | | Load 0x2,-0x1
04d9 601a |` | Indirect_Literal Discrete,0x4f4,{0x00000000, 0x0000ffff}
04da 0279 | y | Execute Discrete,And
04db 0273 | s | Execute Discrete,Plus
04dc 0007 | | Action Break_Optional
04dd 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call
04df 029f 0a73 | s| Declare_Subprogram INIT_0a70,For_Call
04e1 029f 0aa3 | | Declare_Subprogram INIT_0aa0,For_Call
04e3 029f 0acb | | Declare_Subprogram INIT_0ac8,For_Call
04e5 BODY_04c8:
04e5 e5fb | | Load 0x2,-0x5
04e6 8407 | | Call 0x2,0x7
04e7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04e8 TRAP_04c8:
04e8 e402 | | Load 0x2,0x2
04e9 010f | | Execute Exception,Equal
04ea 7003 |p | Jump_Nonzero 0x4ee
04eb e403 | | Load 0x2,0x3
04ec 010f | | Execute Exception,Equal
04ed 6801 |h | Jump_Zero 0x4ef
04ee 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04ef 0100 | | Execute Exception,Raise
04f0 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
04f4 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
04f8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00da | | Load_Top At_Offset_2
0504 e002 | | Load 0x0,0x2
0505 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0506 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0507 0000 | | .XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 050f | | .CONST 0x050f ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c e002 | | Load 0x0,0x2
050d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
050e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050f TRAP_0508:
050f 0007 | | Action Break_Optional
0510 0092 0d6e | n| Action Push_String_Extended,0xd6e ; "Past end or empty Ada_Program.Line_Iterator"
0512 e011 | | Load 0x0,0x11
0513 8012 | | Call 0x0,0x12
0514 e23f | ? | Load 0x1,0x3f
0515 0257 | W | Execute Discrete,Raise
0516 0000 0000 | | .XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0523 | # | .CONST 0x0523 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c e002 | | Load 0x0,0x2
051d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
051e 011e | | Execute Any,Convert
051f e002 | | Load 0x0,0x2
0520 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0521 c5ff | | Store 0x2,-0x1
0522 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0523 TRAP_0518:
0523 0007 | | Action Break_Optional
0524 0092 0d6e | n| Action Push_String_Extended,0xd6e ; "Past end or empty Ada_Program.Line_Iterator"
0526 e011 | | Load 0x0,0x11
0527 8012 | | Call 0x0,0x12
0528 e23f | ? | Load 0x1,0x3f
0529 0257 | W | Execute Discrete,Raise
052a 0000 0000 | | .BLANK 0000[0x6]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0542 | B | .CONST 0x0542 ; Address of begin
0531 0564 | d | .CONST 0x0564 ; Address of exception handler
0532 0005 | | .CONST 0x0005 ; Number of locals
0533 INIT_0530:
0533 e002 | | Load 0x0,0x2
0534 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0535 0322 | " | Declare_Variable Record
0536 e002 | | Load 0x0,0x2
0537 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0538 02c7 | | Declare_Variable Any
0539 00d8 | | Load_Top At_Offset_0
053a 1c00 | | Execute_Immediate Run_Utility,0x0
053b e002 | | Load 0x0,0x2
053c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053d 02c7 | | Declare_Variable Any
053e 00d8 | | Load_Top At_Offset_0
053f 1c00 | | Execute_Immediate Run_Utility,0x0
0540 e00b | | Load 0x0,0xb
0541 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0542 BODY_0530:
0542 e5ff | | Load 0x2,-0x1
0543 7003 |p | Jump_Nonzero 0x547
0544 e002 | | Load 0x0,0x2
0545 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0546 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0547 00d8 | | Load_Top At_Offset_0
0548 00da | | Load_Top At_Offset_2
0549 e5ff | | Load 0x2,-0x1
054a 801a | | Call 0x0,0x1a
054b c404 | | Store 0x2,0x4
054c 0059 | Y | Store_Top Discrete,At_Offset_1
054d 00d8 | | Load_Top At_Offset_0
054e 8249 | I | Call 0x1,0x49
054f 4801 |H | Short_Literal 0x1
0550 00da | | Load_Top At_Offset_2
0551 e5ff | | Load 0x2,-0x1
0552 e002 | | Load 0x0,0x2
0553 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0554 e402 | | Load 0x2,0x2
0555 017d | } | Execute Record,Structure_Write
0556 00da | | Load_Top At_Offset_2
0557 0120 | | Execute Any,Is_Value
0558 6803 |h | Jump_Zero 0x55c
0559 e002 | | Load 0x0,0x2
055a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
055b 7801 |x | Jump 0x55d
055c 00da | | Load_Top At_Offset_2
055d e402 | | Load 0x2,0x2
055e 00db | | Load_Top At_Offset_3
055f e002 | | Load 0x0,0x2
0560 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0561 c403 | | Store 0x2,0x3
0562 00da | | Load_Top At_Offset_2
0563 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0564 TRAP_0530:
0564 010c | | Execute Exception,Is_Program_Error
0565 6803 |h | Jump_Zero 0x569
0566 e002 | | Load 0x0,0x2
0567 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0569 0100 | | Execute Exception,Raise
056a 0000 0000 | | .BLANK 0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0584 | | .CONST 0x0584 ; Address of begin
0571 05bd | | .CONST 0x05bd ; Address of exception handler
0572 0006 | | .CONST 0x0006 ; Number of locals
0573 INIT_0570:
0573 e002 | | Load 0x0,0x2
0574 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0575 0322 | " | Declare_Variable Record
0576 e002 | | Load 0x0,0x2
0577 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0578 02c7 | | Declare_Variable Any
0579 00d8 | | Load_Top At_Offset_0
057a 1c00 | | Execute_Immediate Run_Utility,0x0
057b e002 | | Load 0x0,0x2
057c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
057d 02c7 | | Declare_Variable Any
057e 00d8 | | Load_Top At_Offset_0
057f 1c00 | | Execute_Immediate Run_Utility,0x0
0580 e00b | | Load 0x0,0xb
0581 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0582 e5ff | | Load 0x2,-0x1
0583 0007 | | Action Break_Optional
0584 BODY_0570:
0584 00d8 | | Load_Top At_Offset_0
0585 7003 |p | Jump_Nonzero 0x589
0586 0092 0d6f | o| Action Push_String_Extended,0xd6f ; "<NIL_ELEMENT>"
0588 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0589 00d9 | | Load_Top At_Offset_1
058a e403 | | Load 0x2,0x3
058b 00da | | Load_Top At_Offset_2
058c 801a | | Call 0x0,0x1a
058d c403 | | Store 0x2,0x3
058e 005a | Z | Store_Top Discrete,At_Offset_2
058f 00d9 | | Load_Top At_Offset_1
0590 8249 | I | Call 0x1,0x49
0591 4801 |H | Short_Literal 0x1
0592 e403 | | Load 0x2,0x3
0593 00da | | Load_Top At_Offset_2
0594 e002 | | Load 0x0,0x2
0595 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0596 e402 | | Load 0x2,0x2
0597 017d | } | Execute Record,Structure_Write
0598 00da | | Load_Top At_Offset_2
0599 0120 | | Execute Any,Is_Value
059a 6803 |h | Jump_Zero 0x59e
059b e002 | | Load 0x0,0x2
059c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
059d 7801 |x | Jump 0x59f
059e 00da | | Load_Top At_Offset_2
059f e402 | | Load 0x2,0x2
05a0 e403 | | Load 0x2,0x3
05a1 e002 | | Load 0x0,0x2
05a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05a3 c404 | | Store 0x2,0x4
05a4 00da | | Load_Top At_Offset_2
05a5 e002 | | Load 0x0,0x2
05a6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05a7 6802 |h | Jump_Zero 0x5aa
05a8 00ea | | Load_Encached Null_String_Cache
05a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05aa e402 | | Load 0x2,0x2
05ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ac e402 | | Load 0x2,0x2
05ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05ae 027f | | Execute Discrete,Equal
05af 6804 |h | Jump_Zero 0x5b4
05b0 00da | | Load_Top At_Offset_2
05b1 e002 | | Load 0x0,0x2
05b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b4 480a |H | Short_Literal 0xa
05b5 00db | | Load_Top At_Offset_3
05b6 e254 | T | Load 0x1,0x54
05b7 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
05b8 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
05b9 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
05ba 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
05bb 8250 | P | Call 0x1,0x50
05bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05bd TRAP_0570:
05bd 010c | | Execute Exception,Is_Program_Error
05be 6803 |h | Jump_Zero 0x5c2
05bf 0092 0d70 | p| Action Push_String_Extended,0xd70 ; "<UNABLE_TO_GET_IMAGE>"
05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c2 0100 | | Execute Exception,Raise
05c3 0000 0000 | | .BLANK 0000[0x5]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05da | | .CONST 0x05da ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0005 | | .CONST 0x0005 ; Number of locals
05cb INIT_05c8:
05cb e002 | | Load 0x0,0x2
05cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05cd 02c7 | | Declare_Variable Any
05ce 00d8 | | Load_Top At_Offset_0
05cf 1c00 | | Execute_Immediate Run_Utility,0x0
05d0 e00b | | Load 0x0,0xb
05d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d2 e002 | | Load 0x0,0x2
05d3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05d4 0322 | " | Declare_Variable Record
05d5 e002 | | Load 0x0,0x2
05d6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
05d7 02c7 | | Declare_Variable Any
05d8 00d8 | | Load_Top At_Offset_0
05d9 1c00 | | Execute_Immediate Run_Utility,0x0
05da BODY_05c8:
05da 00da | | Load_Top At_Offset_2
05db e402 | | Load 0x2,0x2
05dc e5ff | | Load 0x2,-0x1
05dd 801a | | Call 0x0,0x1a
05de c402 | | Store 0x2,0x2
05df 005b | [ | Store_Top Discrete,At_Offset_3
05e0 00da | | Load_Top At_Offset_2
05e1 8249 | I | Call 0x1,0x49
05e2 00ea | | Load_Encached Null_String_Cache
05e3 4800 |H | Short_Literal 0x0
05e4 4800 |H | Short_Literal 0x0
05e5 4800 |H | Short_Literal 0x0
05e6 e402 | | Load 0x2,0x2
05e7 e5ff | | Load 0x2,-0x1
05e8 825a | Z | Call 0x1,0x5a
05e9 802c | , | Call 0x0,0x2c
05ea 00da | | Load_Top At_Offset_2
05eb 017d | } | Execute Record,Structure_Write
05ec 00d8 | | Load_Top At_Offset_0
05ed 0120 | | Execute Any,Is_Value
05ee 6803 |h | Jump_Zero 0x5f2
05ef e002 | | Load 0x0,0x2
05f0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
05f1 7801 |x | Jump 0x5f3
05f2 00d8 | | Load_Top At_Offset_0
05f3 00da | | Load_Top At_Offset_2
05f4 e402 | | Load 0x2,0x2
05f5 e002 | | Load 0x0,0x2
05f6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05f7 c405 | | Store 0x2,0x5
05f8 00d8 | | Load_Top At_Offset_0
05f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05fa 0000 0000 | | .BLANK 0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0612 | | .CONST 0x0612 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0005 | | .CONST 0x0005 ; Number of locals
0603 INIT_0600:
0603 e002 | | Load 0x0,0x2
0604 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0605 02c7 | | Declare_Variable Any
0606 00d8 | | Load_Top At_Offset_0
0607 1c00 | | Execute_Immediate Run_Utility,0x0
0608 e00b | | Load 0x0,0xb
0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd
060a e002 | | Load 0x0,0x2
060b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
060c 0322 | " | Declare_Variable Record
060d e002 | | Load 0x0,0x2
060e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
060f 02c7 | | Declare_Variable Any
0610 00d8 | | Load_Top At_Offset_0
0611 1c00 | | Execute_Immediate Run_Utility,0x0
0612 BODY_0600:
0612 00da | | Load_Top At_Offset_2
0613 e402 | | Load 0x2,0x2
0614 e5ff | | Load 0x2,-0x1
0615 801a | | Call 0x0,0x1a
0616 c402 | | Store 0x2,0x2
0617 005b | [ | Store_Top Discrete,At_Offset_3
0618 00da | | Load_Top At_Offset_2
0619 8249 | I | Call 0x1,0x49
061a 00ea | | Load_Encached Null_String_Cache
061b 4800 |H | Short_Literal 0x0
061c 4801 |H | Short_Literal 0x1
061d 4801 |H | Short_Literal 0x1
061e e402 | | Load 0x2,0x2
061f e5ff | | Load 0x2,-0x1
0620 825a | Z | Call 0x1,0x5a
0621 802c | , | Call 0x0,0x2c
0622 00da | | Load_Top At_Offset_2
0623 017d | } | Execute Record,Structure_Write
0624 00d8 | | Load_Top At_Offset_0
0625 0120 | | Execute Any,Is_Value
0626 6803 |h | Jump_Zero 0x62a
0627 e002 | | Load 0x0,0x2
0628 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0629 7801 |x | Jump 0x62b
062a 00d8 | | Load_Top At_Offset_0
062b 00da | | Load_Top At_Offset_2
062c e402 | | Load 0x2,0x2
062d e002 | | Load 0x0,0x2
062e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
062f c405 | | Store 0x2,0x5
0630 00d8 | | Load_Top At_Offset_0
0631 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0632 0000 0000 | | .BLANK 0000[0x6]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 064a | J | .CONST 0x064a ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0005 | | .CONST 0x0005 ; Number of locals
063b INIT_0638:
063b e002 | | Load 0x0,0x2
063c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063d 02c7 | | Declare_Variable Any
063e 00d8 | | Load_Top At_Offset_0
063f 1c00 | | Execute_Immediate Run_Utility,0x0
0640 e00b | | Load 0x0,0xb
0641 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0642 e002 | | Load 0x0,0x2
0643 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0644 0322 | " | Declare_Variable Record
0645 e002 | | Load 0x0,0x2
0646 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0647 02c7 | | Declare_Variable Any
0648 00d8 | | Load_Top At_Offset_0
0649 1c00 | | Execute_Immediate Run_Utility,0x0
064a BODY_0638:
064a 00da | | Load_Top At_Offset_2
064b e402 | | Load 0x2,0x2
064c e5ff | | Load 0x2,-0x1
064d 801a | | Call 0x0,0x1a
064e c402 | | Store 0x2,0x2
064f 005b | [ | Store_Top Discrete,At_Offset_3
0650 00da | | Load_Top At_Offset_2
0651 8249 | I | Call 0x1,0x49
0652 00ea | | Load_Encached Null_String_Cache
0653 4800 |H | Short_Literal 0x0
0654 4801 |H | Short_Literal 0x1
0655 4803 |H | Short_Literal 0x3
0656 e402 | | Load 0x2,0x2
0657 e5ff | | Load 0x2,-0x1
0658 825a | Z | Call 0x1,0x5a
0659 802c | , | Call 0x0,0x2c
065a 00da | | Load_Top At_Offset_2
065b 017d | } | Execute Record,Structure_Write
065c 00d8 | | Load_Top At_Offset_0
065d 0120 | | Execute Any,Is_Value
065e 6803 |h | Jump_Zero 0x662
065f e002 | | Load 0x0,0x2
0660 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0661 7801 |x | Jump 0x663
0662 00d8 | | Load_Top At_Offset_0
0663 00da | | Load_Top At_Offset_2
0664 e402 | | Load 0x2,0x2
0665 e002 | | Load 0x0,0x2
0666 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0667 c405 | | Store 0x2,0x5
0668 00d8 | | Load_Top At_Offset_0
0669 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066a 0000 0000 | | .BLANK 0000[0x6]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0682 | | .CONST 0x0682 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0005 | | .CONST 0x0005 ; Number of locals
0673 INIT_0670:
0673 e002 | | Load 0x0,0x2
0674 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0675 02c7 | | Declare_Variable Any
0676 00d8 | | Load_Top At_Offset_0
0677 1c00 | | Execute_Immediate Run_Utility,0x0
0678 e00b | | Load 0x0,0xb
0679 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067a e002 | | Load 0x0,0x2
067b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
067c 0322 | " | Declare_Variable Record
067d e002 | | Load 0x0,0x2
067e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
067f 02c7 | | Declare_Variable Any
0680 00d8 | | Load_Top At_Offset_0
0681 1c00 | | Execute_Immediate Run_Utility,0x0
0682 BODY_0670:
0682 00da | | Load_Top At_Offset_2
0683 e402 | | Load 0x2,0x2
0684 e5ff | | Load 0x2,-0x1
0685 801a | | Call 0x0,0x1a
0686 c402 | | Store 0x2,0x2
0687 005b | [ | Store_Top Discrete,At_Offset_3
0688 00da | | Load_Top At_Offset_2
0689 8249 | I | Call 0x1,0x49
068a 00db | | Load_Top At_Offset_3
068b 4800 |H | Short_Literal 0x0
068c e5ff | | Load 0x2,-0x1
068d e002 | | Load 0x0,0x2
068e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
068f 00da | | Load_Top At_Offset_2
0690 017d | } | Execute Record,Structure_Write
0691 00d8 | | Load_Top At_Offset_0
0692 0120 | | Execute Any,Is_Value
0693 6803 |h | Jump_Zero 0x697
0694 e002 | | Load 0x0,0x2
0695 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0696 7801 |x | Jump 0x698
0697 00d8 | | Load_Top At_Offset_0
0698 00da | | Load_Top At_Offset_2
0699 e402 | | Load 0x2,0x2
069a e002 | | Load 0x0,0x2
069b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
069c c405 | | Store 0x2,0x5
069d 00d8 | | Load_Top At_Offset_0
069e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069f 0000 | | .XXX[0x1]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 4607 |F | Jump_Case 0x8
06a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06a5 7807 |x | Jump 0x6ad ; case 0x1
06a6 780a |x | Jump 0x6b1 ; case 0x2
06a7 780e |x | Jump 0x6b6 ; case 0x3
06a8 7811 |x | Jump 0x6ba ; case 0x4
06a9 7812 |x | Jump 0x6bc ; case 0x5
06aa 7813 |x | Jump 0x6be ; case 0x6
06ab 7816 |x | Jump 0x6c2 ; case 0x7
06ac 4302 |C | .XXX[0x1]
06ad 00da | | Load_Top At_Offset_2
06ae 0091 0d53 | S| Action Push_String_Extended_Indexed,0xd53 ; "A_COMPILATION_UNIT"
06b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06b1 00db | | Load_Top At_Offset_3
06b2 00db | | Load_Top At_Offset_3
06b3 00e0 | | Load_Encached Standard_Cache
06b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06b6 00da | | Load_Top At_Offset_2
06b7 00e0 | | Load_Encached Standard_Cache
06b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06ba 00db | | Load_Top At_Offset_3
06bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06bc 00db | | Load_Top At_Offset_3
06bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06be e232 | 2 | Load 0x1,0x32
06bf 00dc | | Load_Top At_Offset_4
06c0 0267 | g | Execute Discrete,Predecessor
06c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06c2 e232 | 2 | Load 0x1,0x32
06c3 00dc | | Load_Top At_Offset_4
06c4 0268 | h | Execute Discrete,Successor
06c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06c6 0000 0000 | | .XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb 00da | | Load_Top At_Offset_2
06cc 8027 | ' | Call 0x0,0x27
06cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ce 0000 0000 | | .XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 4607 |F | Jump_Case 0x8
06d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06d5 7807 |x | Jump 0x6dd ; case 0x1
06d6 780a |x | Jump 0x6e1 ; case 0x2
06d7 780e |x | Jump 0x6e6 ; case 0x3
06d8 7811 |x | Jump 0x6ea ; case 0x4
06d9 7812 |x | Jump 0x6ec ; case 0x5
06da 7813 |x | Jump 0x6ee ; case 0x6
06db 7816 |x | Jump 0x6f2 ; case 0x7
06dc 4302 |C | .XXX[0x1]
06dd 00da | | Load_Top At_Offset_2
06de 0091 0d5a | Z| Action Push_String_Extended_Indexed,0xd5a ; "AN_IDENTIFIER_DEFINITION"
06e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06e1 00db | | Load_Top At_Offset_3
06e2 00db | | Load_Top At_Offset_3
06e3 00e0 | | Load_Encached Standard_Cache
06e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06e6 00da | | Load_Top At_Offset_2
06e7 00e0 | | Load_Encached Standard_Cache
06e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06ea 00db | | Load_Top At_Offset_3
06eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ec 00db | | Load_Top At_Offset_3
06ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ee e234 | 4 | Load 0x1,0x34
06ef 00dc | | Load_Top At_Offset_4
06f0 0267 | g | Execute Discrete,Predecessor
06f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f2 e234 | 4 | Load 0x1,0x34
06f3 00dc | | Load_Top At_Offset_4
06f4 0268 | h | Execute Discrete,Successor
06f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f6 0000 0000 | | .XXX[0x2]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00da | | Load_Top At_Offset_2
06fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06fd 00d8 | | Load_Top At_Offset_0
06fe 0d0c | | Execute_Immediate Less,0xc
06ff 700e |p | Jump_Nonzero 0x70e
0700 00d8 | | Load_Top At_Offset_0
0701 0c19 | | Execute_Immediate Greater_Equal,0x19
0702 7005 |p | Jump_Nonzero 0x708
0703 480d |H | Short_Literal 0xd
0704 4815 |H | Short_Literal 0x15
0705 0262 | b | Execute Discrete,In_Range
0706 7008 |p | Jump_Nonzero 0x70f
0707 7809 |x | Jump 0x711
0708 00d8 | | Load_Top At_Offset_0
0709 0c34 | 4 | Execute_Immediate Greater_Equal,0x34
070a 6808 |h | Jump_Zero 0x713
070b 0f59 | Y | Execute_Immediate Equal,0x59
070c 7007 |p | Jump_Nonzero 0x714
070d 7801 |x | Jump 0x70f
070e 00d1 | | Pop_Control Pop_Count_1
070f 4802 |H | Short_Literal 0x2
0710 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0711 4801 |H | Short_Literal 0x1
0712 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0713 00d1 | | Pop_Control Pop_Count_1
0714 4800 |H | Short_Literal 0x0
0715 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0716 0000 0000 | | .XXX[0x2]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00db | | Load_Top At_Offset_3
071c 00db | | Load_Top At_Offset_3
071d e019 | | Load 0x0,0x19
071e 180e | | Execute Package,Field_Execute,Field_Number 0xe
071f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 072d | - | .CONST 0x072d ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0007 | | .CONST 0x0007 ; Number of locals
0723 INIT_0720:
0723 00e1 | | Load_Encached Boolean_Cache
0724 e02d | - | Load 0x0,0x2d
0725 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0726 e248 | H | Load 0x1,0x48
0727 0322 | " | Declare_Variable Record
0728 e5ff | | Load 0x2,-0x1
0729 029f 0ae3 | | Declare_Subprogram INIT_0ae0,For_Call
072b 029f 0b93 | | Declare_Subprogram INIT_0b90,For_Call
072d BODY_0720:
072d e219 | | Load 0x1,0x19
072e e404 | | Load 0x2,0x4
072f 017d | } | Execute Record,Structure_Write
0730 e5fc | | Load 0x2,-0x4
0731 6803 |h | Jump_Zero 0x735
0732 4803 |H | Short_Literal 0x3
0733 a403 | | Store_Unchecked 0x2,0x3
0734 7802 |x | Jump 0x737
0735 4802 |H | Short_Literal 0x2
0736 a403 | | Store_Unchecked 0x2,0x3
0737 e5fe | | Load 0x2,-0x2
0738 6802 |h | Jump_Zero 0x73b
0739 8406 | | Call 0x2,0x6
073a 7801 |x | Jump 0x73c
073b 8407 | | Call 0x2,0x7
073c 00db | | Load_Top At_Offset_3
073d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
073e 0000 0000 | | .XXX[0x2]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 00da | | Load_Top At_Offset_2
0744 e019 | | Load 0x0,0x19
0745 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0746 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0747 0000 | | .XXX[0x1]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0751 | Q | .CONST 0x0751 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 00eb | | Load_Encached Diana_Cache
074d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
074e 00eb | | Load_Encached Diana_Cache
074f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0750 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0751 TRAP_0748:
0751 0007 | | Action Break_Optional
0752 0092 0d71 | q| Action Push_String_Extended,0xd71 ; "Element is not an identifier"
0754 e011 | | Load 0x0,0x11
0755 8012 | | Call 0x0,0x12
0756 e23e | > | Load 0x1,0x3e
0757 0257 | W | Execute Discrete,Raise
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00da | | Load_Top At_Offset_2
075c 823c | < | Call 0x1,0x3c
075d 0e09 | | Execute_Immediate Not_Equal,0x9
075e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075f 0000 | | .XXX[0x1]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 4607 |F | Jump_Case 0x8
0764 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0765 7807 |x | Jump 0x76d ; case 0x1
0766 780a |x | Jump 0x771 ; case 0x2
0767 780e |x | Jump 0x776 ; case 0x3
0768 7811 |x | Jump 0x77a ; case 0x4
0769 7812 |x | Jump 0x77c ; case 0x5
076a 7813 |x | Jump 0x77e ; case 0x6
076b 7816 |x | Jump 0x782 ; case 0x7
076c 4302 |C | .XXX[0x1]
076d 00da | | Load_Top At_Offset_2
076e 0091 0d5d | ]| Action Push_String_Extended_Indexed,0xd5d ; "AN_ALTERNATIVE_PROMPT"
0770 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0771 00db | | Load_Top At_Offset_3
0772 00db | | Load_Top At_Offset_3
0773 00e0 | | Load_Encached Standard_Cache
0774 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0775 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0776 00da | | Load_Top At_Offset_2
0777 00e0 | | Load_Encached Standard_Cache
0778 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0779 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
077a 00db | | Load_Top At_Offset_3
077b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077c 00db | | Load_Top At_Offset_3
077d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077e e23b | ; | Load 0x1,0x3b
077f 00dc | | Load_Top At_Offset_4
0780 0267 | g | Execute Discrete,Predecessor
0781 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0782 e23b | ; | Load 0x1,0x3b
0783 00dc | | Load_Top At_Offset_4
0784 0268 | h | Execute Discrete,Successor
0785 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0786 0000 0000 | | .XXX[0x2]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078d | | .CONST 0x078d ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0002 | | .CONST 0x0002 ; Number of locals
078b INIT_0788:
078b 00da | | Load_Top At_Offset_2
078c 0007 | | Action Break_Optional
078d BODY_0788:
078d 00d8 | | Load_Top At_Offset_0
078e e02e | . | Load 0x0,0x2e
078f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0790 180d | | Execute Package,Field_Execute,Field_Number 0xd
0791 7002 |p | Jump_Nonzero 0x794
0792 4809 |H | Short_Literal 0x9
0793 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0794 00d8 | | Load_Top At_Offset_0
0795 e02e | . | Load 0x0,0x2e
0796 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0797 180e | | Execute Package,Field_Execute,Field_Number 0xe
0798 00d8 | | Load_Top At_Offset_0
0799 0d61 | a | Execute_Immediate Less,0x61
079a 7012 |p | Jump_Nonzero 0x7ad
079b 00d8 | | Load_Top At_Offset_0
079c 0c63 | c | Execute_Immediate Greater_Equal,0x63
079d 7004 |p | Jump_Nonzero 0x7a2
079e 0f61 | a | Execute_Immediate Equal,0x61
079f 701f |p | Jump_Nonzero 0x7bf
07a0 4808 |H | Short_Literal 0x8
07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a2 0a9d | | Execute_Immediate Plus,-0x63
07a3 4606 |F | Jump_Case 0x7
07a4 781d |x | Jump 0x7c2 ; case 0x0
07a5 7823 |x# | Jump 0x7c9 ; case 0x1
07a6 7812 |x | Jump 0x7b9 ; case 0x2
07a7 7813 |x | Jump 0x7bb ; case 0x3
07a8 7814 |x | Jump 0x7bd ; case 0x4
07a9 781a |x | Jump 0x7c4 ; case 0x5
07aa 7800 |x | Jump 0x7ab ; case 0x6
07ab 4807 |H | Short_Literal 0x7
07ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ad 00d8 | | Load_Top At_Offset_0
07ae 4802 |H | Short_Literal 0x2
07af 4803 |H | Short_Literal 0x3
07b0 0262 | b | Execute Discrete,In_Range
07b1 700f |p | Jump_Nonzero 0x7c1
07b2 0b04 | | Execute_Immediate Case_Compare,0x4
07b3 7012 |p | Jump_Nonzero 0x7c6
07b4 4806 |H | Short_Literal 0x6
07b5 4807 |H | Short_Literal 0x7
07b6 0262 | b | Execute Discrete,In_Range
07b7 700a |p | Jump_Nonzero 0x7c2
07b8 7810 |x | Jump 0x7c9
07b9 4800 |H | Short_Literal 0x0
07ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07bb 4801 |H | Short_Literal 0x1
07bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07bd 4802 |H | Short_Literal 0x2
07be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07bf 4803 |H | Short_Literal 0x3
07c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c1 00d1 | | Pop_Control Pop_Count_1
07c2 4804 |H | Short_Literal 0x4
07c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c4 4805 |H | Short_Literal 0x5
07c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c6 00d1 | | Pop_Control Pop_Count_1
07c7 4806 |H | Short_Literal 0x6
07c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c9 4809 |H | Short_Literal 0x9
07ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07cb 0000 0000 | | .BLANK 0000[0x5]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 802f | / | Call 0x0,0x2f
07d4 8010 | | Call 0x0,0x10
07d5 00ca | | Action Exit_Nullary_Function
07d6 0000 0000 | | .XXX[0x2]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db | | .CONST 0x07db ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0001 | | .CONST 0x0001 ; Number of locals
07db BODY_07d8:
07db INIT_07d8:
07db 802f | / | Call 0x0,0x2f
07dc 00ca | | Action Exit_Nullary_Function
07dd 0000 0000 | | .XXX[0x3]
07df 0000 | |
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 00da | | Load_Top At_Offset_2
07e4 820f | | Call 0x1,0xf
07e5 6803 |h | Jump_Zero 0x7e9
07e6 0092 0d6f | o| Action Push_String_Extended,0xd6f ; "<NIL_ELEMENT>"
07e8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
07e9 00db | | Load_Top At_Offset_3
07ea 0d03 | | Execute_Immediate Less,0x3
07eb 680b |h | Jump_Zero 0x7f7
07ec e030 | 0 | Load 0x0,0x30
07ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07ee e016 | | Load 0x0,0x16
07ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07f0 800d | | Call 0x0,0xd
07f1 4846 |HF | Short_Literal 0x46
07f2 00db | | Load_Top At_Offset_3
07f3 822d | - | Call 0x1,0x2d
07f4 824b | K | Call 0x1,0x4b
07f5 826d | m | Call 0x1,0x6d
07f6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
07f7 00db | | Load_Top At_Offset_3
07f8 0f03 | | Execute_Immediate Equal,0x3
07f9 6809 |h | Jump_Zero 0x803
07fa 4800 |H | Short_Literal 0x0
07fb 4800 |H | Short_Literal 0x0
07fc 4800 |H | Short_Literal 0x0
07fd e5ff | | Load 0x2,-0x1
07fe e031 | 1 | Load 0x0,0x31
07ff 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0800 0092 0d72 | r| Action Push_String_Extended,0xd72 ; "See Ada image displayed"
0802 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0803 00da | | Load_Top At_Offset_2
0804 e032 | 2 | Load 0x0,0x32
0805 180d | | Execute Package,Field_Execute,Field_Number 0xd
0806 0092 0d73 | s| Action Push_String_Extended,0xd73 ; "See Diana image displayed"
0808 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0809 0000 0000 | | .BLANK 0000[0x7]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 00da | | Load_Top At_Offset_2
0814 8216 | | Call 0x1,0x16
0815 6803 |h | Jump_Zero 0x819
0816 0092 0d74 | t| Action Push_String_Extended,0xd74 ; "<NIL_ITERATOR>"
0818 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0819 e030 | 0 | Load 0x0,0x30
081a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
081b e016 | | Load 0x0,0x16
081c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
081d 800d | | Call 0x0,0xd
081e 00da | | Load_Top At_Offset_2
081f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0820 680b |h | Jump_Zero 0x82c
0821 480a |H | Short_Literal 0xa
0822 00db | | Load_Top At_Offset_3
0823 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0824 e261 | a | Load 0x1,0x61
0825 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
0826 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
0827 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
0828 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
0829 8250 | P | Call 0x1,0x50
082a 826d | m | Call 0x1,0x6d
082b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
082c 480a |H | Short_Literal 0xa
082d 00db | | Load_Top At_Offset_3
082e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
082f e25b | [ | Load 0x1,0x5b
0830 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
0831 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
0832 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
0833 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
0834 8250 | P | Call 0x1,0x50
0835 826d | m | Call 0x1,0x6d
0836 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0837 0000 | | .XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b | ; | .CONST 0x083b ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0001 | | .CONST 0x0001 ; Number of locals
083b BODY_0838:
083b INIT_0838:
083b 00da | | Load_Top At_Offset_2
083c 8222 | " | Call 0x1,0x22
083d 6803 |h | Jump_Zero 0x841
083e 0092 0d75 | u| Action Push_String_Extended,0xd75 ; "<NIL_LIST>"
0840 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0841 e030 | 0 | Load 0x0,0x30
0842 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0843 e016 | | Load 0x0,0x16
0844 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0845 800d | | Call 0x0,0xd
0846 480a |H | Short_Literal 0xa
0847 00db | | Load_Top At_Offset_3
0848 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0849 e267 | g | Load 0x1,0x67
084a 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
084b 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
084c 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
084d 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
084e 8250 | P | Call 0x1,0x50
084f 826d | m | Call 0x1,0x6d
0850 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0851 0000 0000 | | .BLANK 0000[0x7]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0860 | ` | .CONST 0x0860 ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0002 | | .CONST 0x0002 ; Number of locals
085b INIT_0858:
085b e002 | | Load 0x0,0x2
085c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
085d 02c7 | | Declare_Variable Any
085e 00db | | Load_Top At_Offset_3
085f a402 | | Store_Unchecked 0x2,0x2
0860 BODY_0858:
0860 00d8 | | Load_Top At_Offset_0
0861 e002 | | Load 0x0,0x2
0862 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0863 6803 |h | Jump_Zero 0x867
0864 0092 0d76 | v| Action Push_String_Extended,0xd76 ; "<DONE>"
0866 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0867 e030 | 0 | Load 0x0,0x30
0868 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0869 e016 | | Load 0x0,0x16
086a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
086b 800d | | Call 0x0,0xd
086c 4846 |HF | Short_Literal 0x46
086d 4820 |H | Short_Literal 0x20
086e e5ff | | Load 0x2,-0x1
086f e254 | T | Load 0x1,0x54
0870 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
0871 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
0872 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
0873 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
0874 8250 | P | Call 0x1,0x50
0875 824b | K | Call 0x1,0x4b
0876 826d | m | Call 0x1,0x6d
0877 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b | { | .CONST 0x087b ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0001 | | .CONST 0x0001 ; Number of locals
087b BODY_0878:
087b INIT_0878:
087b 00da | | Load_Top At_Offset_2
087c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
087d e5fe | | Load 0x2,-0x2
087e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
087f 00da | | Load_Top At_Offset_2
0880 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0881 e5fe | | Load 0x2,-0x2
0882 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0883 00da | | Load_Top At_Offset_2
0884 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0885 e5fe | | Load 0x2,-0x2
0886 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0887 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 4607 |F | Jump_Case 0x8
088c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
088d 7807 |x | Jump 0x895 ; case 0x1
088e 780a |x | Jump 0x899 ; case 0x2
088f 780e |x | Jump 0x89e ; case 0x3
0890 7811 |x | Jump 0x8a2 ; case 0x4
0891 7812 |x | Jump 0x8a4 ; case 0x5
0892 7813 |x | Jump 0x8a6 ; case 0x6
0893 7816 |x | Jump 0x8aa ; case 0x7
0894 4302 |C | .XXX[0x1]
0895 00da | | Load_Top At_Offset_2
0896 0091 0d67 | g| Action Push_String_Extended_Indexed,0xd67 ; "SEQUENCE"
0898 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0899 00db | | Load_Top At_Offset_3
089a 00db | | Load_Top At_Offset_3
089b 00e0 | | Load_Encached Standard_Cache
089c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
089d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
089e 00da | | Load_Top At_Offset_2
089f 00e0 | | Load_Encached Standard_Cache
08a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08a2 00db | | Load_Top At_Offset_3
08a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a4 00db | | Load_Top At_Offset_3
08a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a6 e247 | G | Load 0x1,0x47
08a7 00dc | | Load_Top At_Offset_4
08a8 0267 | g | Execute Discrete,Predecessor
08a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08aa e247 | G | Load 0x1,0x47
08ab 00dc | | Load_Top At_Offset_4
08ac 0268 | h | Execute Discrete,Successor
08ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08ae 0000 0000 | | .XXX[0x2]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3 | | .CONST 0x08b3 ; Address of begin
08b1 0004 | | .CONST 0x0004 ; Address of exception handler
08b2 0001 | | .CONST 0x0001 ; Number of locals
08b3 BODY_08b0:
08b3 INIT_08b0:
08b3 00da | | Load_Top At_Offset_2
08b4 7001 |p | Jump_Nonzero 0x8b6
08b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08b6 00da | | Load_Top At_Offset_2
08b7 e00b | | Load 0x0,0xb
08b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b9 011c | | Execute Any,Convert_Unchecked
08ba 1c01 | | Execute_Immediate Run_Utility,0x1
08bb e01e | | Load 0x0,0x1e
08bc 8012 | | Call 0x0,0x12
08bd e23f | ? | Load 0x1,0x3f
08be 0257 | W | Execute Discrete,Raise
08bf 0000 | | .XXX[0x1]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08da | | .CONST 0x08da ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0005 | | .CONST 0x0005 ; Number of locals
08c3 INIT_08c0:
08c3 00e3 | | Load_Encached Natural_Cache
08c4 00e3 | | Load_Encached Natural_Cache
08c5 4801 |H | Short_Literal 0x1
08c6 e5fe | | Load 0x2,-0x2
08c7 00e9 | | Load_Encached String_Cache
08c8 035b | [ | Declare_Type Array,Constrained
08c9 0337 | 7 | Declare_Variable Array
08ca 00d8 | | Load_Top At_Offset_0
08cb 0335 | 5 | Declare_Variable Array,Duplicate
08cc 00cd | | Action Spare6_Action
08cd 00d9 | | Load_Top At_Offset_1
08ce 01d9 | | Execute Vector,Reverse_Bounds
08cf 0263 | c | Execute Discrete,Above_Bound
08d0 7005 |p | Jump_Nonzero 0x8d6
08d1 4820 |H | Short_Literal 0x20
08d2 00d9 | | Load_Top At_Offset_1
08d3 e405 | | Load 0x2,0x5
08d4 01d6 | | Execute Vector,Field_Write
08d5 3ffb |? | Loop_Increasing 0x8d1
08d6 00d9 | | Load_Top At_Offset_1
08d7 01d4 | | Execute Vector,Structure_Write
08d8 0092 0d77 | w| Action Push_String_Extended,0xd77 ; " .... "
08da BODY_08c0:
08da e5ff | | Load 0x2,-0x1
08db 01db | | Execute Vector,Length
08dc 00da | | Load_Top At_Offset_2
08dd 01db | | Execute Vector,Length
08de 027a | z | Execute Discrete,Less_Equal
08df 680f |h | Jump_Zero 0x8ef
08e0 e5ff | | Load 0x2,-0x1
08e1 01db | | Execute Vector,Length
08e2 005b | [ | Store_Top Discrete,At_Offset_3
08e3 e5ff | | Load 0x2,-0x1
08e4 4801 |H | Short_Literal 0x1
08e5 e5ff | | Load 0x2,-0x1
08e6 01db | | Execute Vector,Length
08e7 00d8 | | Load_Top At_Offset_0
08e8 00e2 | | Load_Encached Integer_Cache
08e9 0260 | ` | Execute Discrete,In_Type
08ea 7001 |p | Jump_Nonzero 0x8ec
08eb 0801 | | Execute_Immediate Raise,0x1
08ec e404 | | Load 0x2,0x4
08ed 01ce | | Execute Vector,Slice_Write
08ee 7847 |xG | Jump 0x936
08ef 00d9 | | Load_Top At_Offset_1
08f0 01dc | | Execute Vector,Last
08f1 005b | [ | Store_Top Discrete,At_Offset_3
08f2 00d9 | | Load_Top At_Offset_1
08f3 01db | | Execute Vector,Length
08f4 09ff | | Execute_Immediate Binary_Scale,-0x1
08f5 c402 | | Store 0x2,0x2
08f6 e5ff | | Load 0x2,-0x1
08f7 01dd | | Execute Vector,First
08f8 e5ff | | Load 0x2,-0x1
08f9 01dd | | Execute Vector,First
08fa e402 | | Load 0x2,0x2
08fb 0273 | s | Execute Discrete,Plus
08fc 0afc | | Execute_Immediate Plus,-0x4
08fd 00d8 | | Load_Top At_Offset_0
08fe 00e2 | | Load_Encached Integer_Cache
08ff 0260 | ` | Execute Discrete,In_Type
0900 7001 |p | Jump_Nonzero 0x902
0901 0801 | | Execute_Immediate Raise,0x1
0902 e5ff | | Load 0x2,-0x1
0903 01cf | | Execute Vector,Slice_Read
0904 4801 |H | Short_Literal 0x1
0905 e402 | | Load 0x2,0x2
0906 0afd | | Execute_Immediate Plus,-0x3
0907 e404 | | Load 0x2,0x4
0908 01ce | | Execute Vector,Slice_Write
0909 00d8 | | Load_Top At_Offset_0
090a e402 | | Load 0x2,0x2
090b 0afe | | Execute_Immediate Plus,-0x2
090c 00d8 | | Load_Top At_Offset_0
090d 00e2 | | Load_Encached Integer_Cache
090e 0260 | ` | Execute Discrete,In_Type
090f 7001 |p | Jump_Nonzero 0x911
0910 0801 | | Execute_Immediate Raise,0x1
0911 e402 | | Load 0x2,0x2
0912 0a03 | | Execute_Immediate Plus,0x3
0913 00d8 | | Load_Top At_Offset_0
0914 00e2 | | Load_Encached Integer_Cache
0915 0260 | ` | Execute Discrete,In_Type
0916 7001 |p | Jump_Nonzero 0x918
0917 0801 | | Execute_Immediate Raise,0x1
0918 e404 | | Load 0x2,0x4
0919 01ce | | Execute Vector,Slice_Write
091a e5ff | | Load 0x2,-0x1
091b 01dc | | Execute Vector,Last
091c 00da | | Load_Top At_Offset_2
091d 01dc | | Execute Vector,Last
091e 0272 | r | Execute Discrete,Minus
091f e402 | | Load 0x2,0x2
0920 0273 | s | Execute Discrete,Plus
0921 0a04 | | Execute_Immediate Plus,0x4
0922 00d8 | | Load_Top At_Offset_0
0923 00e2 | | Load_Encached Integer_Cache
0924 0260 | ` | Execute Discrete,In_Type
0925 7001 |p | Jump_Nonzero 0x927
0926 0801 | | Execute_Immediate Raise,0x1
0927 e5ff | | Load 0x2,-0x1
0928 01dc | | Execute Vector,Last
0929 e5ff | | Load 0x2,-0x1
092a 01cf | | Execute Vector,Slice_Read
092b e402 | | Load 0x2,0x2
092c 0a04 | | Execute_Immediate Plus,0x4
092d 00d8 | | Load_Top At_Offset_0
092e 00e2 | | Load_Encached Integer_Cache
092f 0260 | ` | Execute Discrete,In_Type
0930 7001 |p | Jump_Nonzero 0x932
0931 0801 | | Execute_Immediate Raise,0x1
0932 00db | | Load_Top At_Offset_3
0933 01dc | | Execute Vector,Last
0934 e404 | | Load 0x2,0x4
0935 01ce | | Execute Vector,Slice_Write
0936 00cf | | Action Mark_Auxiliary
0937 00da | | Load_Top At_Offset_2
0938 01d9 | | Execute Vector,Reverse_Bounds
0939 0263 | c | Execute Discrete,Above_Bound
093a 7010 |p | Jump_Nonzero 0x94b
093b 00d8 | | Load_Top At_Offset_0
093c e404 | | Load 0x2,0x4
093d 01d7 | | Execute Vector,Field_Read
093e 0f0a | | Execute_Immediate Equal,0xa
093f 7005 |p | Jump_Nonzero 0x945
0940 00d8 | | Load_Top At_Offset_0
0941 e404 | | Load 0x2,0x4
0942 01d7 | | Execute Vector,Field_Read
0943 0f0c | | Execute_Immediate Equal,0xc
0944 6804 |h | Jump_Zero 0x949
0945 4820 |H | Short_Literal 0x20
0946 00d9 | | Load_Top At_Offset_1
0947 e404 | | Load 0x2,0x4
0948 01d6 | | Execute Vector,Field_Write
0949 00c8 | | Action Pop_Auxiliary_Range
094a 3ff0 |? | Loop_Increasing 0x93b
094b 00ce | | Action Pop_Auxiliary
094c 4801 |H | Short_Literal 0x1
094d 00db | | Load_Top At_Offset_3
094e 00db | | Load_Top At_Offset_3
094f 01cf | | Execute Vector,Slice_Read
0950 00e9 | | Load_Encached String_Cache
0951 01c6 | | Execute Vector,Convert_To_Formal
0952 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0953 0000 0000 | | .BLANK 0000[0x5]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b | [ | .CONST 0x095b ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0001 | | .CONST 0x0001 ; Number of locals
095b BODY_0958:
095b INIT_0958:
095b 00da | | Load_Top At_Offset_2
095c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
095d 4606 |F | Jump_Case 0x7
095e 784d |xM | Jump 0x9ac ; case 0x0
095f 7806 |x | Jump 0x966 ; case 0x1
0960 7807 |x | Jump 0x968 ; case 0x2
0961 7839 |x9 | Jump 0x99b ; case 0x3
0962 7803 |x | Jump 0x966 ; case 0x4
0963 7802 |x | Jump 0x966 ; case 0x5
0964 7800 |x | Jump 0x965 ; case 0x6
0965 08e2 | | Execute_Immediate Raise,0xe2
0966 4800 |H | Short_Literal 0x0
0967 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0968 00da | | Load_Top At_Offset_2
0969 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
096a 4626 |F& | Jump_Case 0x27
096b 7827 |x' | Jump 0x993 ; case 0x0
096c 7826 |x& | Jump 0x993 ; case 0x1
096d 7825 |x% | Jump 0x993 ; case 0x2
096e 7824 |x$ | Jump 0x993 ; case 0x3
096f 7823 |x# | Jump 0x993 ; case 0x4
0970 7822 |x" | Jump 0x993 ; case 0x5
0971 7821 |x! | Jump 0x993 ; case 0x6
0972 7820 |x | Jump 0x993 ; case 0x7
0973 7823 |x# | Jump 0x997 ; case 0x8
0974 7822 |x" | Jump 0x997 ; case 0x9
0975 7821 |x! | Jump 0x997 ; case 0xa
0976 7820 |x | Jump 0x997 ; case 0xb
0977 781f |x | Jump 0x997 ; case 0xc
0978 781e |x | Jump 0x997 ; case 0xd
0979 7819 |x | Jump 0x993 ; case 0xe
097a 781a |x | Jump 0x995 ; case 0xf
097b 7819 |x | Jump 0x995 ; case 0x10
097c 7816 |x | Jump 0x993 ; case 0x11
097d 7815 |x | Jump 0x993 ; case 0x12
097e 7818 |x | Jump 0x997 ; case 0x13
097f 7817 |x | Jump 0x997 ; case 0x14
0980 7816 |x | Jump 0x997 ; case 0x15
0981 7811 |x | Jump 0x993 ; case 0x16
0982 7810 |x | Jump 0x993 ; case 0x17
0983 780f |x | Jump 0x993 ; case 0x18
0984 7812 |x | Jump 0x997 ; case 0x19
0985 7811 |x | Jump 0x997 ; case 0x1a
0986 7810 |x | Jump 0x997 ; case 0x1b
0987 780f |x | Jump 0x997 ; case 0x1c
0988 780a |x | Jump 0x993 ; case 0x1d
0989 7809 |x | Jump 0x993 ; case 0x1e
098a 7808 |x | Jump 0x993 ; case 0x1f
098b 7807 |x | Jump 0x993 ; case 0x20
098c 7806 |x | Jump 0x993 ; case 0x21
098d 780b |x | Jump 0x999 ; case 0x22
098e 780a |x | Jump 0x999 ; case 0x23
098f 7803 |x | Jump 0x993 ; case 0x24
0990 7802 |x | Jump 0x993 ; case 0x25
0991 7800 |x | Jump 0x992 ; case 0x26
0992 08e2 | | Execute_Immediate Raise,0xe2
0993 4800 |H | Short_Literal 0x0
0994 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0995 4801 |H | Short_Literal 0x1
0996 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0997 4801 |H | Short_Literal 0x1
0998 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0999 4800 |H | Short_Literal 0x0
099a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
099b 00da | | Load_Top At_Offset_2
099c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
099d 00d8 | | Load_Top At_Offset_0
099e 4800 |H | Short_Literal 0x0
099f 480a |H | Short_Literal 0xa
09a0 0262 | b | Execute Discrete,In_Range
09a1 7005 |p | Jump_Nonzero 0x9a7
09a2 480b |H | Short_Literal 0xb
09a3 4812 |H | Short_Literal 0x12
09a4 0262 | b | Execute Discrete,In_Range
09a5 7004 |p | Jump_Nonzero 0x9aa
09a6 08e2 | | Execute_Immediate Raise,0xe2
09a7 00d1 | | Pop_Control Pop_Count_1
09a8 4800 |H | Short_Literal 0x0
09a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09aa 4801 |H | Short_Literal 0x1
09ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ac 4801 |H | Short_Literal 0x1
09ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ae 0000 0000 | | .XXX[0x2]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09db | | .CONST 0x09db ; Address of begin
09b1 0004 | | .CONST 0x0004 ; Address of exception handler
09b2 0009 | | .CONST 0x0009 ; Number of locals
09b3 INIT_09b0:
09b3 e5fb | | Load 0x2,-0x5
09b4 02c7 | | Declare_Variable Any
09b5 e5fa | | Load 0x2,-0x6
09b6 c402 | | Store 0x2,0x2
09b7 00e3 | | Load_Encached Natural_Cache
09b8 4800 |H | Short_Literal 0x0
09b9 4801 |H | Short_Literal 0x1
09ba 4801 |H | Short_Literal 0x1
09bb 4803 |H | Short_Literal 0x3
09bc 0318 | | Declare_Type Variant_Record,Incomplete
09bd 029f 0beb | | Declare_Subprogram INIT_0be8,For_Call
09bf 00d9 | | Load_Top At_Offset_1
09c0 012a | * | Execute Any,Change_Utility
09c1 0007 | | Action Break_Optional
09c2 00d8 | | Load_Top At_Offset_0
09c3 02a0 | | Declare_Subprogram Null_Subprogram
09c4 4818 |H | Short_Literal 0x18
09c5 03d3 | | Declare_Type Access,Defined,Accesses_Protected
09c6 00d8 | | Load_Top At_Offset_0
09c7 00e9 | | Load_Encached String_Cache
09c8 029f 0beb | | Declare_Subprogram INIT_0be8,For_Call
09ca 4800 |H | Short_Literal 0x0
09cb 4801 |H | Short_Literal 0x1
09cc 4801 |H | Short_Literal 0x1
09cd e403 | | Load 0x2,0x3
09ce 0307 | | Complete_Type Variant_Record,By_Defining
09cf 00d8 | | Load_Top At_Offset_0
09d0 03c4 | | Complete_Type Access,By_Component_Completion
09d1 00e3 | | Load_Encached Natural_Cache
09d2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09d3 00d9 | | Load_Top At_Offset_1
09d4 0007 | | Action Break_Optional
09d5 00da | | Load_Top At_Offset_2
09d6 0007 | | Action Break_Optional
09d7 029f 0c2b | +| Declare_Subprogram INIT_0c28,For_Call
09d9 029f 0c63 | c| Declare_Subprogram INIT_0c60,For_Call
09db BODY_09b0:
09db e402 | | Load 0x2,0x2
09dc 85fc | | Call 0x2,-0x4
09dd 7021 |p! | Jump_Nonzero 0x9ff
09de e402 | | Load 0x2,0x2
09df 85fd | | Call 0x2,-0x3
09e0 8408 | | Call 0x2,0x8
09e1 e402 | | Load 0x2,0x2
09e2 00d8 | | Load_Top At_Offset_0
09e3 0120 | | Execute Any,Is_Value
09e4 6803 |h | Jump_Zero 0x9e8
09e5 e5fb | | Load 0x2,-0x5
09e6 0122 | " | Execute Any,Make_Root_Type
09e7 011e | | Execute Any,Convert
09e8 85fe | | Call 0x2,-0x2
09e9 c402 | | Store 0x2,0x2
09ea 00cf | | Action Mark_Auxiliary
09eb 780f |x | Jump 0x9fb
09ec e5f9 | | Load 0x2,-0x7
09ed e402 | | Load 0x2,0x2
09ee 85fd | | Call 0x2,-0x3
09ef 01ca | | Execute Vector,Prepend
09f0 8408 | | Call 0x2,0x8
09f1 e402 | | Load 0x2,0x2
09f2 00d8 | | Load_Top At_Offset_0
09f3 0120 | | Execute Any,Is_Value
09f4 6803 |h | Jump_Zero 0x9f8
09f5 e5fb | | Load 0x2,-0x5
09f6 0122 | " | Execute Any,Make_Root_Type
09f7 011e | | Execute Any,Convert
09f8 85fe | | Call 0x2,-0x2
09f9 c402 | | Store 0x2,0x2
09fa 00c9 | | Action Pop_Auxiliary_Loop
09fb e402 | | Load 0x2,0x2
09fc 85fc | | Call 0x2,-0x4
09fd 6fee |o | Jump_Zero 0x9ec
09fe 00ce | | Action Pop_Auxiliary
09ff 8409 | | Call 0x2,0x9
0a00 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0a01 0000 0000 | | .BLANK 0000[0x7]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a0b | | .CONST 0x0a0b ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0001 | | .CONST 0x0001 ; Number of locals
0a0b BODY_0a08:
0a0b INIT_0a08:
0a0b 00da | | Load_Top At_Offset_2
0a0c e002 | | Load 0x0,0x2
0a0d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a0e 0119 | | Execute Any,Check_In_Formal_Type
0a0f e002 | | Load 0x0,0x2
0a10 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0a11 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a12 0000 0000 | | .BLANK 0000[0x6]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1b | | .CONST 0x0a1b ; Address of begin
0a19 0004 | | .CONST 0x0004 ; Address of exception handler
0a1a 0001 | | .CONST 0x0001 ; Number of locals
0a1b BODY_0a18:
0a1b INIT_0a18:
0a1b 00da | | Load_Top At_Offset_2
0a1c e002 | | Load 0x0,0x2
0a1d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a1e 0119 | | Execute Any,Check_In_Formal_Type
0a1f e002 | | Load 0x0,0x2
0a20 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0a21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a22 0000 0000 | | .BLANK 0000[0x6]
0a28 ; --------------------------------------------------------------------------------------
0a28 ; SUBPROGRAM
0a28 ; --------------------------------------------------------------------------------------
0a28 0a2b | + | .CONST 0x0a2b ; Address of begin
0a29 0004 | | .CONST 0x0004 ; Address of exception handler
0a2a 0001 | | .CONST 0x0001 ; Number of locals
0a2b BODY_0a28:
0a2b INIT_0a28:
0a2b 00da | | Load_Top At_Offset_2
0a2c 00d8 | | Load_Top At_Offset_0
0a2d 0120 | | Execute Any,Is_Value
0a2e 6804 |h | Jump_Zero 0xa33
0a2f e002 | | Load 0x0,0x2
0a30 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a31 011e | | Execute Any,Convert
0a32 7803 |x | Jump 0xa36
0a33 e002 | | Load 0x0,0x2
0a34 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a35 0119 | | Execute Any,Check_In_Formal_Type
0a36 e002 | | Load 0x0,0x2
0a37 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0a38 c5ff | | Store 0x2,-0x1
0a39 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a3a 0000 0000 | | .BLANK 0000[0x6]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a44 | D | .CONST 0x0a44 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0002 | | .CONST 0x0002 ; Number of locals
0a43 INIT_0a40:
0a43 00ec | | Load_Encached Diana_Tree_Cache
0a44 BODY_0a40:
0a44 00db | | Load_Top At_Offset_3
0a45 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0a46 00cf | | Action Mark_Auxiliary
0a47 7805 |x | Jump 0xa4d
0a48 00d9 | | Load_Top At_Offset_1
0a49 00eb | | Load_Encached Diana_Cache
0a4a 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a4b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a4c 00c9 | | Action Pop_Auxiliary_Loop
0a4d 00d9 | | Load_Top At_Offset_1
0a4e 6803 |h | Jump_Zero 0xa52
0a4f 00d9 | | Load_Top At_Offset_1
0a50 800c | | Call 0x0,0xc
0a51 6ff6 |o | Jump_Zero 0xa48
0a52 00ce | | Action Pop_Auxiliary
0a53 00d8 | | Load_Top At_Offset_0
0a54 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a55 0000 0000 | | .XXX[0x3]
0a57 0000 | |
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b 8013 | | Call 0x0,0x13
0a5c 00da | | Load_Top At_Offset_2
0a5d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a5e 0000 0000 | | .XXX[0x2]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63 | c | .CONST 0x0a63 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0001 | | .CONST 0x0001 ; Number of locals
0a63 BODY_0a60:
0a63 INIT_0a60:
0a63 e5fa | | Load 0x2,-0x6
0a64 6804 |h | Jump_Zero 0xa69
0a65 00da | | Load_Top At_Offset_2
0a66 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a67 0e06 | | Execute_Immediate Not_Equal,0x6
0a68 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a69 4801 |H | Short_Literal 0x1
0a6a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a6b 0000 0000 | | .BLANK 0000[0x5]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a75 | u | .CONST 0x0a75 ; Address of begin
0a71 0004 | | .CONST 0x0004 ; Address of exception handler
0a72 0002 | | .CONST 0x0002 ; Number of locals
0a73 INIT_0a70:
0a73 e226 | & | Load 0x1,0x26
0a74 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a75 BODY_0a70:
0a75 e7fe | | Load 0x3,-0x2
0a76 8404 | | Call 0x2,0x4
0a77 6825 |h% | Jump_Zero 0xa9d
0a78 00d8 | | Load_Top At_Offset_0
0a79 e226 | & | Load 0x1,0x26
0a7a 0122 | " | Execute Any,Make_Root_Type
0a7b 025e | ^ | Execute Discrete,Convert
0a7c e5f9 | | Load 0x2,-0x7
0a7d 00d8 | | Load_Top At_Offset_0
0a7e 0120 | | Execute Any,Is_Value
0a7f 6803 |h | Jump_Zero 0xa83
0a80 e5fc | | Load 0x2,-0x4
0a81 0122 | " | Execute Any,Make_Root_Type
0a82 011e | | Execute Any,Convert
0a83 e7ff | | Load 0x3,-0x1
0a84 85fd | | Call 0x2,-0x3
0a85 c5f9 | | Store 0x2,-0x7
0a86 0059 | Y | Store_Top Discrete,At_Offset_1
0a87 00d8 | | Load_Top At_Offset_0
0a88 4603 |F | Jump_Case 0x4
0a89 780a |x | Jump 0xa94 ; case 0x0
0a8a 7804 |x | Jump 0xa8f ; case 0x1
0a8b 7806 |x | Jump 0xa92 ; case 0x2
0a8c 7800 |x | Jump 0xa8d ; case 0x3
0a8d e402 | | Load 0x2,0x2
0a8e 0257 | W | Execute Discrete,Raise
0a8f 4800 |H | Short_Literal 0x0
0a90 a7fd | | Store_Unchecked 0x3,-0x3
0a91 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a92 e403 | | Load 0x2,0x3
0a93 0257 | W | Execute Discrete,Raise
0a94 e5fa | | Load 0x2,-0x6
0a95 6804 |h | Jump_Zero 0xa9a
0a96 e7fe | | Load 0x3,-0x2
0a97 824f | O | Call 0x1,0x4f
0a98 a7fd | | Store_Unchecked 0x3,-0x3
0a99 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a9a 4801 |H | Short_Literal 0x1
0a9b a7fd | | Store_Unchecked 0x3,-0x3
0a9c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a9d 4801 |H | Short_Literal 0x1
0a9e a7fd | | Store_Unchecked 0x3,-0x3
0a9f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0aa5 | | .CONST 0x0aa5 ; Address of begin
0aa1 0004 | | .CONST 0x0004 ; Address of exception handler
0aa2 0002 | | .CONST 0x0002 ; Number of locals
0aa3 INIT_0aa0:
0aa3 e226 | & | Load 0x1,0x26
0aa4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0aa5 BODY_0aa0:
0aa5 e7fe | | Load 0x3,-0x2
0aa6 8404 | | Call 0x2,0x4
0aa7 6819 |h | Jump_Zero 0xac1
0aa8 00d8 | | Load_Top At_Offset_0
0aa9 e226 | & | Load 0x1,0x26
0aaa 0122 | " | Execute Any,Make_Root_Type
0aab 025e | ^ | Execute Discrete,Convert
0aac e5f9 | | Load 0x2,-0x7
0aad 00d8 | | Load_Top At_Offset_0
0aae 0120 | | Execute Any,Is_Value
0aaf 6803 |h | Jump_Zero 0xab3
0ab0 e5fc | | Load 0x2,-0x4
0ab1 0122 | " | Execute Any,Make_Root_Type
0ab2 011e | | Execute Any,Convert
0ab3 e7ff | | Load 0x3,-0x1
0ab4 85fe | | Call 0x2,-0x2
0ab5 c5f9 | | Store 0x2,-0x7
0ab6 0059 | Y | Store_Top Discrete,At_Offset_1
0ab7 00d8 | | Load_Top At_Offset_0
0ab8 4603 |F | Jump_Case 0x4
0ab9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
0aba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1
0abb 7803 |x | Jump 0xabf ; case 0x2
0abc 7800 |x | Jump 0xabd ; case 0x3
0abd e402 | | Load 0x2,0x2
0abe 0257 | W | Execute Discrete,Raise
0abf e403 | | Load 0x2,0x3
0ac0 0257 | W | Execute Discrete,Raise
0ac1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ac2 0000 0000 | | .BLANK 0000[0x6]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ad4 | | .CONST 0x0ad4 ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0004 | | .CONST 0x0004 ; Number of locals
0acb INIT_0ac8:
0acb 00e1 | | Load_Encached Boolean_Cache
0acc e033 | 3 | Load 0x0,0x33
0acd 02ff | | Declare_Variable Variant_Record
0ace e7ff | | Load 0x3,-0x1
0acf 8034 | 4 | Call 0x0,0x34
0ad0 00d9 | | Load_Top At_Offset_1
0ad1 016d | m | Execute Variant_Record,Structure_Write
0ad2 029f 0c9b | | Declare_Subprogram INIT_0c98,For_Call
0ad4 BODY_0ac8:
0ad4 00e1 | | Load_Encached Boolean_Cache
0ad5 00da | | Load_Top At_Offset_2
0ad6 e7ff | | Load 0x3,-0x1
0ad7 8405 | | Call 0x2,0x5
0ad8 005b | [ | Store_Top Discrete,At_Offset_3
0ad9 00da | | Load_Top At_Offset_2
0ada 6801 |h | Jump_Zero 0xadc
0adb 8604 | | Call 0x3,0x4
0adc 00d9 | | Load_Top At_Offset_1
0add e7ff | | Load 0x3,-0x1
0ade 8406 | | Call 0x2,0x6
0adf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0af5 | | .CONST 0x0af5 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0005 | | .CONST 0x0005 ; Number of locals
0ae3 INIT_0ae0:
0ae3 e02d | - | Load 0x0,0x2d
0ae4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0ae5 02c7 | | Declare_Variable Any
0ae6 00d8 | | Load_Top At_Offset_0
0ae7 1c00 | | Execute_Immediate Run_Utility,0x0
0ae8 e02d | - | Load 0x0,0x2d
0ae9 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0aea 02c7 | | Declare_Variable Any
0aeb 00d8 | | Load_Top At_Offset_0
0aec 1c00 | | Execute_Immediate Run_Utility,0x0
0aed e00b | | Load 0x0,0xb
0aee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0aef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0af0 02c7 | | Declare_Variable Any
0af1 00d8 | | Load_Top At_Offset_0
0af2 1c00 | | Execute_Immediate Run_Utility,0x0
0af3 e00b | | Load 0x0,0xb
0af4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0af5 BODY_0ae0:
0af5 e00b | | Load 0x0,0xb
0af6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0af7 00da | | Load_Top At_Offset_2
0af8 0120 | | Execute Any,Is_Value
0af9 6804 |h | Jump_Zero 0xafe
0afa e00b | | Load 0x0,0xb
0afb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0afc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0afd 7801 |x | Jump 0xaff
0afe 00da | | Load_Top At_Offset_2
0aff e405 | | Load 0x2,0x5
0b00 e00b | | Load 0x0,0xb
0b01 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0b02 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b03 c604 | | Store 0x3,0x4
0b04 0059 | Y | Store_Top Discrete,At_Offset_1
0b05 00d8 | | Load_Top At_Offset_0
0b06 6806 |h | Jump_Zero 0xb0d
0b07 0092 0d78 | x| Action Push_String_Extended,0xd78 ; "This element is not in the directory system"
0b09 e011 | | Load 0x0,0x11
0b0a 8012 | | Call 0x0,0x12
0b0b e23e | > | Load 0x1,0x3e
0b0c 0257 | W | Execute Discrete,Raise
0b0d 00e1 | | Load_Encached Boolean_Cache
0b0e e602 | | Load 0x3,0x2
0b0f 0120 | | Execute Any,Is_Value
0b10 6803 |h | Jump_Zero 0xb14
0b11 e02d | - | Load 0x0,0x2d
0b12 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0b13 7801 |x | Jump 0xb15
0b14 e602 | | Load 0x3,0x2
0b15 e035 | 5 | Load 0x0,0x35
0b16 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b17 e035 | 5 | Load 0x0,0x35
0b18 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b19 e035 | 5 | Load 0x0,0x35
0b1a 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b1b e035 | 5 | Load 0x0,0x35
0b1c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0b1d e035 | 5 | Load 0x0,0x35
0b1e 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b1f e035 | 5 | Load 0x0,0x35
0b20 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0b21 e035 | 5 | Load 0x0,0x35
0b22 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b23 e035 | 5 | Load 0x0,0x35
0b24 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0b25 e035 | 5 | Load 0x0,0x35
0b26 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0b27 4802 |H | Short_Literal 0x2
0b28 e035 | 5 | Load 0x0,0x35
0b29 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b2a e016 | | Load 0x0,0x16
0b2b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2c e018 | | Load 0x0,0x18
0b2d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b2e e024 | $ | Load 0x0,0x24
0b2f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b30 00ea | | Load_Encached Null_String_Cache
0b31 4800 |H | Short_Literal 0x0
0b32 e02d | - | Load 0x0,0x2d
0b33 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0b34 e02d | - | Load 0x0,0x2d
0b35 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0b36 e604 | | Load 0x3,0x4
0b37 e00b | | Load 0x0,0xb
0b38 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0b39 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b3a e5fd | | Load 0x2,-0x3
0b3b e403 | | Load 0x2,0x3
0b3c 00f1 | | Load_Encached Diana_Temp_Seq
0b3d e405 | | Load 0x2,0x5
0b3e 00eb | | Load_Encached Diana_Cache
0b3f 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0b40 e02d | - | Load 0x0,0x2d
0b41 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0b42 c602 | | Store 0x3,0x2
0b43 c402 | | Store 0x2,0x2
0b44 e402 | | Load 0x2,0x2
0b45 6846 |hF | Jump_Zero 0xb8c
0b46 00da | | Load_Top At_Offset_2
0b47 0120 | | Execute Any,Is_Value
0b48 6803 |h | Jump_Zero 0xb4c
0b49 e02d | - | Load 0x0,0x2d
0b4a 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0b4b 7801 |x | Jump 0xb4d
0b4c 00da | | Load_Top At_Offset_2
0b4d e403 | | Load 0x2,0x3
0b4e e602 | | Load 0x3,0x2
0b4f e02d | - | Load 0x0,0x2d
0b50 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0b51 c603 | | Store 0x3,0x3
0b52 00cf | | Action Mark_Auxiliary
0b53 7833 |x3 | Jump 0xb87
0b54 e404 | | Load 0x2,0x4
0b55 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b56 7015 |p | Jump_Nonzero 0xb6c
0b57 e403 | | Load 0x2,0x3
0b58 e603 | | Load 0x3,0x3
0b59 e02d | - | Load 0x0,0x2d
0b5a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0b5b e02d | - | Load 0x0,0x2d
0b5c 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0b5d e404 | | Load 0x2,0x4
0b5e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b5f e404 | | Load 0x2,0x4
0b60 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b61 e404 | | Load 0x2,0x4
0b62 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b63 e404 | | Load 0x2,0x4
0b64 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b65 4975 |Iu | Short_Literal 0x175
0b66 00eb | | Load_Encached Diana_Cache
0b67 0098 | | Execute Package,Field_Read_Dynamic
0b68 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b69 e404 | | Load 0x2,0x4
0b6a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b6b 7816 |x | Jump 0xb82
0b6c e403 | | Load 0x2,0x3
0b6d e603 | | Load 0x3,0x3
0b6e e02d | - | Load 0x0,0x2d
0b6f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0b70 e02d | - | Load 0x0,0x2d
0b71 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0b72 e404 | | Load 0x2,0x4
0b73 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0b74 4975 |Iu | Short_Literal 0x175
0b75 00eb | | Load_Encached Diana_Cache
0b76 0098 | | Execute Package,Field_Read_Dynamic
0b77 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b78 e404 | | Load 0x2,0x4
0b79 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b7a e404 | | Load 0x2,0x4
0b7b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0b7c 4975 |Iu | Short_Literal 0x175
0b7d 00eb | | Load_Encached Diana_Cache
0b7e 0098 | | Execute Package,Field_Read_Dynamic
0b7f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b80 e404 | | Load 0x2,0x4
0b81 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b82 00db | | Load_Top At_Offset_3
0b83 e02d | - | Load 0x0,0x2d
0b84 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0b85 c603 | | Store 0x3,0x3
0b86 00c9 | | Action Pop_Auxiliary_Loop
0b87 00db | | Load_Top At_Offset_3
0b88 e02d | - | Load 0x0,0x2d
0b89 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b8a 6fc9 |o | Jump_Zero 0xb54
0b8b 00ce | | Action Pop_Auxiliary
0b8c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b8d 0000 0000 | | .XXX[0x3]
0b8f 0000 | |
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b99 | | .CONST 0x0b99 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0003 | | .CONST 0x0003 ; Number of locals
0b93 INIT_0b90:
0b93 e02d | - | Load 0x0,0x2d
0b94 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0b95 02c7 | | Declare_Variable Any
0b96 00d8 | | Load_Top At_Offset_0
0b97 1c00 | | Execute_Immediate Run_Utility,0x0
0b98 00f1 | | Load_Encached Diana_Temp_Seq
0b99 BODY_0b90:
0b99 00e1 | | Load_Encached Boolean_Cache
0b9a 00f1 | | Load_Encached Diana_Temp_Seq
0b9b 00db | | Load_Top At_Offset_3
0b9c 0120 | | Execute Any,Is_Value
0b9d 6803 |h | Jump_Zero 0xba1
0b9e e02d | - | Load 0x0,0x2d
0b9f 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0ba0 7801 |x | Jump 0xba2
0ba1 00db | | Load_Top At_Offset_3
0ba2 e035 | 5 | Load 0x0,0x35
0ba3 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ba4 e035 | 5 | Load 0x0,0x35
0ba5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0ba6 e035 | 5 | Load 0x0,0x35
0ba7 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ba8 e035 | 5 | Load 0x0,0x35
0ba9 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0baa e035 | 5 | Load 0x0,0x35
0bab 180e | | Execute Package,Field_Execute,Field_Number 0xe
0bac e035 | 5 | Load 0x0,0x35
0bad 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0bae e035 | 5 | Load 0x0,0x35
0baf 180e | | Execute Package,Field_Execute,Field_Number 0xe
0bb0 e035 | 5 | Load 0x0,0x35
0bb1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0bb2 e035 | 5 | Load 0x0,0x35
0bb3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0bb4 4802 |H | Short_Literal 0x2
0bb5 e035 | 5 | Load 0x0,0x35
0bb6 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0bb7 e018 | | Load 0x0,0x18
0bb8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bb9 e024 | $ | Load 0x0,0x24
0bba 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bbb e02d | - | Load 0x0,0x2d
0bbc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0bbd e403 | | Load 0x2,0x3
0bbe 00f1 | | Load_Encached Diana_Temp_Seq
0bbf e405 | | Load 0x2,0x5
0bc0 00eb | | Load_Encached Diana_Cache
0bc1 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0bc2 e405 | | Load 0x2,0x5
0bc3 4974 |It | Short_Literal 0x174
0bc4 00eb | | Load_Encached Diana_Cache
0bc5 0098 | | Execute Package,Field_Read_Dynamic
0bc6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0bc7 e02d | - | Load 0x0,0x2d
0bc8 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0bc9 c602 | | Store 0x3,0x2
0bca 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0bcb c402 | | Store 0x2,0x2
0bcc e402 | | Load 0x2,0x2
0bcd 6812 |h | Jump_Zero 0xbe0
0bce e403 | | Load 0x2,0x3
0bcf 00da | | Load_Top At_Offset_2
0bd0 e02d | - | Load 0x0,0x2d
0bd1 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0bd2 e404 | | Load 0x2,0x4
0bd3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bd4 e404 | | Load 0x2,0x4
0bd5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bd6 e404 | | Load 0x2,0x4
0bd7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bd8 e404 | | Load 0x2,0x4
0bd9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bda 4975 |Iu | Short_Literal 0x175
0bdb 00eb | | Load_Encached Diana_Cache
0bdc 0098 | | Execute Package,Field_Read_Dynamic
0bdd 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0bde e404 | | Load 0x2,0x4
0bdf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0be0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0be1 0000 0000 | | .BLANK 0000[0x7]
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0beb | | .CONST 0x0beb ; Address of begin
0be9 0004 | | .CONST 0x0004 ; Address of exception handler
0bea 0001 | | .CONST 0x0001 ; Number of locals
0beb BODY_0be8:
0beb BODY_0be8:
0beb INIT_0be8:
0beb INIT_0be8:
0beb 4609 |F | Jump_Case 0xa
0bec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0bed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0bee 7808 |x | Jump 0xbf7 ; case 0x2
0bef 780b |x | Jump 0xbfb ; case 0x3
0bf0 7810 |x | Jump 0xc01 ; case 0x4
0bf1 7817 |x | Jump 0xc09 ; case 0x5
0bf2 7833 |x3 | Jump 0xc26 ; case 0x6
0bf3 781f |x | Jump 0xc13 ; case 0x7
0bf4 7827 |x' | Jump 0xc1c ; case 0x8
0bf5 7830 |x0 | Jump 0xc26 ; case 0x9
0bf6 4302 |C | .XXX[0x1]
0bf7 4801 |H | Short_Literal 0x1
0bf8 4803 |H | Short_Literal 0x3
0bf9 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0bfa 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0bfb e7fd | | Load 0x3,-0x3
0bfc 00db | | Load_Top At_Offset_3
0bfd 1c07 | | Execute_Immediate Run_Utility,0x7
0bfe e7fe | | Load 0x3,-0x2
0bff 0306 | | Complete_Type Variant_Record,By_Renaming
0c00 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0c01 4801 |H | Short_Literal 0x1
0c02 4803 |H | Short_Literal 0x3
0c03 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0c04 e7fe | | Load 0x3,-0x2
0c05 e7ff | | Load 0x3,-0x1
0c06 00da | | Load_Top At_Offset_2
0c07 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0c08 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0c09 4801 |H | Short_Literal 0x1
0c0a 4801 |H | Short_Literal 0x1
0c0b e7ff | | Load 0x3,-0x1
0c0c 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0c0d 00e9 | | Load_Encached String_Cache
0c0e 035b | [ | Declare_Type Array,Constrained
0c0f 4801 |H | Short_Literal 0x1
0c10 e7ff | | Load 0x3,-0x1
0c11 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0c12 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0c13 00db | | Load_Top At_Offset_3
0c14 4801 |H | Short_Literal 0x1
0c15 e7fe | | Load 0x3,-0x2
0c16 00e9 | | Load_Encached String_Cache
0c17 035b | [ | Declare_Type Array,Constrained
0c18 4801 |H | Short_Literal 0x1
0c19 e7ff | | Load 0x3,-0x1
0c1a 031b | | Declare_Type Variant_Record,Constrained
0c1b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0c1c 00db | | Load_Top At_Offset_3
0c1d 00db | | Load_Top At_Offset_3
0c1e 02fc | | Declare_Variable Variant_Record,With_Constraint
0c1f 4801 |H | Short_Literal 0x1
0c20 e7fe | | Load 0x3,-0x2
0c21 00e9 | | Load_Encached String_Cache
0c22 0334 | 4 | Declare_Variable Array,With_Constraint
0c23 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0c24 016a | j | QQ_execute Variant_Record,XXX
0c25 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0c26 0869 | i | Execute_Immediate Raise,0x69
0c27 0000 | | .XXX[0x1]
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c2b | + | .CONST 0x0c2b ; Address of begin
0c29 0004 | | .CONST 0x0004 ; Address of exception handler
0c2a 0001 | | .CONST 0x0001 ; Number of locals
0c2b BODY_0c28:
0c2b INIT_0c28:
0c2b e405 | | Load 0x2,0x5
0c2c 00db | | Load_Top At_Offset_3
0c2d 01db | | Execute Vector,Length
0c2e 0273 | s | Execute Discrete,Plus
0c2f c405 | | Store 0x2,0x5
0c30 e406 | | Load 0x2,0x6
0c31 7012 |p | Jump_Nonzero 0xc44
0c32 00da | | Load_Top At_Offset_2
0c33 01db | | Execute Vector,Length
0c34 e403 | | Load 0x2,0x3
0c35 1c08 | | Execute_Immediate Run_Utility,0x8
0c36 e404 | | Load 0x2,0x4
0c37 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0c38 a406 | | Store_Unchecked 0x2,0x6
0c39 00da | | Load_Top At_Offset_2
0c3a e406 | | Load 0x2,0x6
0c3b 0227 | ' | Execute Access,All_Reference
0c3c 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0c3d e404 | | Load 0x2,0x4
0c3e e406 | | Load 0x2,0x6
0c3f 0227 | ' | Execute Access,All_Reference
0c40 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c41 e406 | | Load 0x2,0x6
0c42 a407 | | Store_Unchecked 0x2,0x7
0c43 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c44 00da | | Load_Top At_Offset_2
0c45 01db | | Execute Vector,Length
0c46 e403 | | Load 0x2,0x3
0c47 1c08 | | Execute_Immediate Run_Utility,0x8
0c48 e404 | | Load 0x2,0x4
0c49 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0c4a e407 | | Load 0x2,0x7
0c4b 0227 | ' | Execute Access,All_Reference
0c4c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c4d 00da | | Load_Top At_Offset_2
0c4e e407 | | Load 0x2,0x7
0c4f 0227 | ' | Execute Access,All_Reference
0c50 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c51 0227 | ' | Execute Access,All_Reference
0c52 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0c53 e404 | | Load 0x2,0x4
0c54 e407 | | Load 0x2,0x7
0c55 0227 | ' | Execute Access,All_Reference
0c56 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c57 0227 | ' | Execute Access,All_Reference
0c58 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c59 e407 | | Load 0x2,0x7
0c5a 0227 | ' | Execute Access,All_Reference
0c5b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c5c a407 | | Store_Unchecked 0x2,0x7
0c5d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c5e 0000 0000 | | .XXX[0x2]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c6b | k | .CONST 0x0c6b ; Address of begin
0c61 0004 | | .CONST 0x0004 ; Address of exception handler
0c62 0004 | | .CONST 0x0004 ; Number of locals
0c63 INIT_0c60:
0c63 00e3 | | Load_Encached Natural_Cache
0c64 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c65 4801 |H | Short_Literal 0x1
0c66 e405 | | Load 0x2,0x5
0c67 00e9 | | Load_Encached String_Cache
0c68 035b | [ | Declare_Type Array,Constrained
0c69 0337 | 7 | Declare_Variable Array
0c6a e406 | | Load 0x2,0x6
0c6b BODY_0c60:
0c6b 00cf | | Action Mark_Auxiliary
0c6c 7821 |x! | Jump 0xc8e
0c6d 00d9 | | Load_Top At_Offset_1
0c6e 0227 | ' | Execute Access,All_Reference
0c6f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c70 e602 | | Load 0x3,0x2
0c71 0a01 | | Execute_Immediate Plus,0x1
0c72 00d8 | | Load_Top At_Offset_0
0c73 00e2 | | Load_Encached Integer_Cache
0c74 0260 | ` | Execute Discrete,In_Type
0c75 7001 |p | Jump_Nonzero 0xc77
0c76 0801 | | Execute_Immediate Raise,0x1
0c77 e602 | | Load 0x3,0x2
0c78 e604 | | Load 0x3,0x4
0c79 0227 | ' | Execute Access,All_Reference
0c7a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c7b 0273 | s | Execute Discrete,Plus
0c7c 00d8 | | Load_Top At_Offset_0
0c7d 00e2 | | Load_Encached Integer_Cache
0c7e 0260 | ` | Execute Discrete,In_Type
0c7f 7001 |p | Jump_Nonzero 0xc81
0c80 0801 | | Execute_Immediate Raise,0x1
0c81 e603 | | Load 0x3,0x3
0c82 01ce | | Execute Vector,Slice_Write
0c83 00db | | Load_Top At_Offset_3
0c84 00da | | Load_Top At_Offset_2
0c85 0227 | ' | Execute Access,All_Reference
0c86 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c87 0273 | s | Execute Discrete,Plus
0c88 c602 | | Store 0x3,0x2
0c89 00d9 | | Load_Top At_Offset_1
0c8a 0227 | ' | Execute Access,All_Reference
0c8b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c8c 003a | : | Store_Top Access,At_Offset_2
0c8d 00c9 | | Action Pop_Auxiliary_Loop
0c8e 00d9 | | Load_Top At_Offset_1
0c8f 77dd |w | Jump_Nonzero 0xc6d
0c90 00ce | | Action Pop_Auxiliary
0c91 00d9 | | Load_Top At_Offset_1
0c92 00e9 | | Load_Encached String_Cache
0c93 01c6 | | Execute Vector,Convert_To_Formal
0c94 00ca | | Action Exit_Nullary_Function
0c95 0000 0000 | | .XXX[0x3]
0c97 0000 | |
0c98 ; --------------------------------------------------------------------------------------
0c98 ; SUBPROGRAM
0c98 ; --------------------------------------------------------------------------------------
0c98 0c9d | | .CONST 0x0c9d ; Address of begin
0c99 0cc3 | | .CONST 0x0cc3 ; Address of exception handler
0c9a 0002 | | .CONST 0x0002 ; Number of locals
0c9b INIT_0c98:
0c9b 029f 0ccb | | Declare_Subprogram INIT_0cc8,For_Call
0c9d BODY_0c98:
0c9d e7ff | | Load 0x3,-0x1
0c9e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0c9f 008e | | Action Discrete,Diana_Arity_For_Kind
0ca0 4604 |F | Jump_Case 0x5
0ca1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
0ca2 7805 |x | Jump 0xca8 ; case 0x1
0ca3 7809 |x | Jump 0xcad ; case 0x2
0ca4 7811 |x | Jump 0xcb6 ; case 0x3
0ca5 7800 |x | Jump 0xca6 ; case 0x4
0ca6 8802 | | Call 0x4,0x2
0ca7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ca8 e7ff | | Load 0x3,-0x1
0ca9 00eb | | Load_Encached Diana_Cache
0caa 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0cab 8407 | | Call 0x2,0x7
0cac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cad e7ff | | Load 0x3,-0x1
0cae 00eb | | Load_Encached Diana_Cache
0caf 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0cb0 8407 | | Call 0x2,0x7
0cb1 e7ff | | Load 0x3,-0x1
0cb2 00eb | | Load_Encached Diana_Cache
0cb3 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0cb4 8407 | | Call 0x2,0x7
0cb5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cb6 e7ff | | Load 0x3,-0x1
0cb7 00eb | | Load_Encached Diana_Cache
0cb8 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0cb9 8407 | | Call 0x2,0x7
0cba e7ff | | Load 0x3,-0x1
0cbb 00eb | | Load_Encached Diana_Cache
0cbc 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0cbd 8407 | | Call 0x2,0x7
0cbe e7ff | | Load 0x3,-0x1
0cbf 00eb | | Load_Encached Diana_Cache
0cc0 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0cc1 8407 | | Call 0x2,0x7
0cc2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cc3 TRAP_0c98:
0cc3 e403 | | Load 0x2,0x3
0cc4 010f | | Execute Exception,Equal
0cc5 6801 |h | Jump_Zero 0xcc7
0cc6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cc7 0100 | | Execute Exception,Raise
0cc8 ; --------------------------------------------------------------------------------------
0cc8 ; SUBPROGRAM
0cc8 ; --------------------------------------------------------------------------------------
0cc8 0ccc | | .CONST 0x0ccc ; Address of begin
0cc9 0004 | | .CONST 0x0004 ; Address of exception handler
0cca 0002 | | .CONST 0x0002 ; Number of locals
0ccb INIT_0cc8:
0ccb 00ee | | Load_Encached Diana_Seq_Type_Cache
0ccc BODY_0cc8:
0ccc e7ff | | Load 0x3,-0x1
0ccd 00eb | | Load_Encached Diana_Cache
0cce 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0ccf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cd0 00cf | | Action Mark_Auxiliary
0cd1 7808 |x | Jump 0xcda
0cd2 00d9 | | Load_Top At_Offset_1
0cd3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0cd4 8407 | | Call 0x2,0x7
0cd5 00d9 | | Load_Top At_Offset_1
0cd6 0217 | | Execute Heap_Access,All_Reference
0cd7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0cd8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0cd9 00c9 | | Action Pop_Auxiliary_Loop
0cda 00d9 | | Load_Top At_Offset_1
0cdb 77f6 |w | Jump_Nonzero 0xcd2
0cdc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cdd 0000 0000 | | .XXX[0x3]
0cdf 0000 | |
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0cf0 | | .CONST 0x0cf0 ; Address of begin
0ce1 0004 | | .CONST 0x0004 ; Address of exception handler
0ce2 0014 | | .CONST 0x0014 ; Number of locals
0ce3 INIT_0ce0:
0ce3 029a 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call,Visible,Unelaborated
0ce5 029a 0d3b | ;| Declare_Subprogram INIT_0d38,For_Outer_Call,Visible,Unelaborated
0ce7 029a 0d4b | K| Declare_Subprogram INIT_0d48,For_Outer_Call,Visible,Unelaborated
0ce9 00bf | | Action Accept_Activation
0cea 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0ceb 00c7 | | Action Elaborate_Subprogram
0cec 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0ced 00c7 | | Action Elaborate_Subprogram
0cee 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0cef 00c7 | | Action Elaborate_Subprogram
0cf0 BODY_0ce0:
0cf0 00bc | | Action Signal_Activated
0cf1 00bb | | Action Signal_Completion
0cf2 0000 0000 | | .BLANK 0000[0x6]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0d00 | | .CONST 0x0d00 ; Address of begin
0cf9 0004 | | .CONST 0x0004 ; Address of exception handler
0cfa 0003 | | .CONST 0x0003 ; Number of locals
0cfb INIT_0cf8:
0cfb e20e | | Load 0x1,0xe
0cfc 02c7 | | Declare_Variable Any
0cfd 00d8 | | Load_Top At_Offset_0
0cfe 1c00 | | Execute_Immediate Run_Utility,0x0
0cff 00f1 | | Load_Encached Diana_Temp_Seq
0d00 BODY_0cf8:
0d00 e5ff | | Load 0x2,-0x1
0d01 820f | | Call 0x1,0xf
0d02 6804 |h | Jump_Zero 0xd07
0d03 e001 | | Load 0x0,0x1
0d04 e5fe | | Load 0x2,-0x2
0d05 017d | } | Execute Record,Structure_Write
0d06 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d07 00f1 | | Load_Encached Diana_Temp_Seq
0d08 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0d09 e5ff | | Load 0x2,-0x1
0d0a c402 | | Store 0x2,0x2
0d0b 00cf | | Action Mark_Auxiliary
0d0c 781f |x | Jump 0xd2c
0d0d 00d9 | | Load_Top At_Offset_1
0d0e 700d |p | Jump_Nonzero 0xd1c
0d0f 00d9 | | Load_Top At_Offset_1
0d10 00db | | Load_Top At_Offset_3
0d11 8210 | | Call 0x1,0x10
0d12 00eb | | Load_Encached Diana_Cache
0d13 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0d14 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0d15 00d9 | | Load_Top At_Offset_1
0d16 e5fe | | Load 0x2,-0x2
0d17 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0d18 00d9 | | Load_Top At_Offset_1
0d19 e5fe | | Load 0x2,-0x2
0d1a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0d1b 780c |x | Jump 0xd28
0d1c 00d9 | | Load_Top At_Offset_1
0d1d 00db | | Load_Top At_Offset_3
0d1e 8210 | | Call 0x1,0x10
0d1f 4975 |Iu | Short_Literal 0x175
0d20 00eb | | Load_Encached Diana_Cache
0d21 0098 | | Execute Package,Field_Read_Dynamic
0d22 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0d23 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0d24 00d9 | | Load_Top At_Offset_1
0d25 0217 | | Execute Heap_Access,All_Reference
0d26 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d27 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0d28 00da | | Load_Top At_Offset_2
0d29 8211 | | Call 0x1,0x11
0d2a c402 | | Store 0x2,0x2
0d2b 00c9 | | Action Pop_Auxiliary_Loop
0d2c 00da | | Load_Top At_Offset_2
0d2d 820f | | Call 0x1,0xf
0d2e 6fde |o | Jump_Zero 0xd0d
0d2f 00ce | | Action Pop_Auxiliary
0d30 00d8 | | Load_Top At_Offset_0
0d31 e5fe | | Load 0x2,-0x2
0d32 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0d33 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d34 0000 0000 | | .BLANK 0000[0x4]
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d3b | ; | .CONST 0x0d3b ; Address of begin
0d39 0004 | | .CONST 0x0004 ; Address of exception handler
0d3a 0001 | | .CONST 0x0001 ; Number of locals
0d3b BODY_0d38:
0d3b INIT_0d38:
0d3b 4846 |HF | Short_Literal 0x46
0d3c 00db | | Load_Top At_Offset_3
0d3d 8210 | | Call 0x1,0x10
0d3e 8002 | | Call 0x0,0x2
0d3f 8003 | | Call 0x0,0x3
0d40 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d41 0000 0000 | | .BLANK 0000[0x7]
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d4b | K | .CONST 0x0d4b ; Address of begin
0d49 0004 | | .CONST 0x0004 ; Address of exception handler
0d4a 0001 | | .CONST 0x0001 ; Number of locals
0d4b BODY_0d48:
0d4b INIT_0d48:
0d4b 00da | | Load_Top At_Offset_2
0d4c 8211 | | Call 0x1,0x11
0d4d c5ff | | Store 0x2,-0x1
0d4e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d4f ; --------------------------------------------------------------------------------------
0d4f ; STRING TABLE
0d4f ; --------------------------------------------------------------------------------------
0d4f 0056 | V | .STRTAB 0x0056->0x0d7a ; "CONTINUE"
0d50 005c | \ | .STRTAB 0x005c->0x0d7e ; "ABANDON_CHILDREN"
0d51 006a | j | .STRTAB 0x006a->0x0d86 ; "ABANDON_SIBLINGS"
0d52 0078 | x | .STRTAB 0x0078->0x0d8e ; "TERMINATE_IMMEDIATELY"
0d53 008b | | .STRTAB 0x008b->0x0d98 ; "A_COMPILATION_UNIT"
0d54 009b | | .STRTAB 0x009b->0x0da1 ; "A_CONTEXT_CLAUSE"
0d55 00a9 | | .STRTAB 0x00a9->0x0da9 ; "A_DECLARATION"
0d56 00b4 | | .STRTAB 0x00b4->0x0db0 ; "A_STATEMENT"
0d57 00bd | | .STRTAB 0x00bd->0x0db5 ; "A_PRAGMA"
0d58 00c3 | | .STRTAB 0x00c3->0x0db9 ; "A_REPRESENTATION_CLAUSE"
0d59 00d8 | | .STRTAB 0x00d8->0x0dc5 ; "NOT_A_MAJOR_ELEMENT"
0d5a 00e9 | | .STRTAB 0x00e9->0x0dce ; "AN_IDENTIFIER_DEFINITION"
0d5b 00ff | | .STRTAB 0x00ff->0x0dda ; "AN_IDENTIFIER_REFERENCE"
0d5c 0114 | | .STRTAB 0x0114->0x0de6 ; "NOT_AN_IDENTIFIER"
0d5d 0123 | # | .STRTAB 0x0123->0x0dee ; "AN_ALTERNATIVE_PROMPT"
0d5e 0136 | 6 | .STRTAB 0x0136->0x0df9 ; "A_COMPILATION_UNIT_PROMPT"
0d5f 014d | M | .STRTAB 0x014d->0x0e05 ; "A_CONTEXT_CLAUSE_PROMPT"
0d60 0162 | b | .STRTAB 0x0162->0x0e11 ; "A_DECLARATION_PROMPT"
0d61 0174 | t | .STRTAB 0x0174->0x0e1b ; "AN_EXPRESSION_PROMPT"
0d62 0186 | | .STRTAB 0x0186->0x0e25 ; "A_GENERIC_PARAMETER_PROMPT"
0d63 019e | | .STRTAB 0x019e->0x0e32 ; "AN_IDENTIFIER_PROMPT"
0d64 01b0 | | .STRTAB 0x01b0->0x0e3c ; "A_PRAGMA_PROMPT"
0d65 01bd | | .STRTAB 0x01bd->0x0e43 ; "A_STATEMENT_PROMPT"
0d66 01cd | | .STRTAB 0x01cd->0x0e4c ; "NOT_A_PROMPT"
0d67 01d7 | | .STRTAB 0x01d7->0x0e52 ; "SEQUENCE"
0d68 01dd | | .STRTAB 0x01dd->0x0e56 ; "SEQ_TYPE"
0d69 01e3 | | .STRTAB 0x01e3->0x0e5a ; "Nil_Element has no parent"
0d6a 01fa | | .STRTAB 0x01fa->0x0e67 ; "Internal Error while getting parent"
0d6b 021b | | .STRTAB 0x021b->0x0e78 ; "AOE Definition is not yet implemented"
0d6c 023e | > | .STRTAB 0x023e->0x0e8b ; "Past end or empty Ada_Program.Element_Iterator"
0d6d 026a | j | .STRTAB 0x026a->0x0ea2 ; "Past end or empty Ada_Program.Element_List"
0d6e 0292 | | .STRTAB 0x0292->0x0eb7 ; "Past end or empty Ada_Program.Line_Iterator"
0d6f 02bb | | .STRTAB 0x02bb->0x0ecc ; "<NIL_ELEMENT>"
0d70 02c6 | | .STRTAB 0x02c6->0x0ed3 ; "<UNABLE_TO_GET_IMAGE>"
0d71 02d9 | | .STRTAB 0x02d9->0x0edd ; "Element is not an identifier"
0d72 02f3 | | .STRTAB 0x02f3->0x0eeb ; "See Ada image displayed"
0d73 0308 | | .STRTAB 0x0308->0x0ef7 ; "See Diana image displayed"
0d74 031f | | .STRTAB 0x031f->0x0f03 ; "<NIL_ITERATOR>"
0d75 032b | + | .STRTAB 0x032b->0x0f0a ; "<NIL_LIST>"
0d76 0333 | 3 | .STRTAB 0x0333->0x0f0f ; "<DONE>"
0d77 0337 | 7 | .STRTAB 0x0337->0x0f12 ; " .... "
0d78 033b | ; | .STRTAB 0x033b->0x0f15 ; "This element is not in the directory system"
0d79 0364 | d | .STREND 0x0364->0x0f2b
0d7a 434f 4e54 |CONT| .STRTAB_STRINGS
0f2b 0000 0000 | | .BLANK 0000[0x5]
0f30 ; --------------------------------------------------------------------------------------
0f30 ; Debug Table
0f30 ; --------------------------------------------------------------------------------------
0f30 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d5d,0x0000,0x0001,0x0000
0f36 0000 0000 | | .BLANK 0000[0xca]