|
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 - metrics - download
Length: 10240 (0x2800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1370 | p | .CONST 0x1370 ; 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 800c | | .CONST 0x800c ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 015e | ^ | .CONST 0x015e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0052 | R | .CONST 0x0052 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
000f 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0011 4800 |H | Short_Literal 0x0
0012 4802 |H | Short_Literal 0x2
0013 029f 018b | | Declare_Subprogram For_Call,INIT_0188
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 4800 |H | Short_Literal 0x0
0017 4806 |H | Short_Literal 0x6
0018 029f 01b3 | | Declare_Subprogram For_Call,INIT_01b0
001a 03fe | | Declare_Type Discrete,Defined,Visible
001b 4802 |H | Short_Literal 0x2
001c 032b | + | Declare_Type Record,Incomplete,Visible
001d 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
001f 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
0021 4800 |H | Short_Literal 0x0
0022 481a |H | Short_Literal 0x1a
0023 029f 01fb | | Declare_Subprogram For_Call,INIT_01f8
0025 03fe | | Declare_Type Discrete,Defined,Visible
0026 4800 |H | Short_Literal 0x0
0027 480f |H | Short_Literal 0xf
0028 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
002a 03fe | | Declare_Type Discrete,Defined,Visible
002b 4800 |H | Short_Literal 0x0
002c 4806 |H | Short_Literal 0x6
002d 029f 024b | K| Declare_Subprogram For_Call,INIT_0248
002f 03fe | | Declare_Type Discrete,Defined,Visible
0030 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0032 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0034 029a 03fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03f8
0036 029a 0453 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0450
0038 4800 |H | Short_Literal 0x0
0039 4804 |H | Short_Literal 0x4
003a 029f 0473 | s| Declare_Subprogram For_Call,INIT_0470
003c 03fe | | Declare_Type Discrete,Defined,Visible
003d 029a 049b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0498
003f 029a 04cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04c8
0041 029a 04f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04f0
0043 029a 052b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0528
0045 029a 0563 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0560
0047 029a 056b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0568
0049 029a 057b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0578
004b 029a 0593 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0590
004d 029a 05a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05a0
004f 029a 05b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05b0
0051 029a 05db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05d8
0053 029a 05eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05e8
0055 029a 060b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0608
0057 029a 061b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0618
0059 029a 0633 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0630
005b 029a 0653 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0650
005d 029a 0663 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0660
005f 029a 0673 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0670
0061 029a 0683 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0680
0063 029a 06bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06b8
0065 029a 06cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06c8
0067 029a 06db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06d8
0069 029a 06f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06f0
006b 480c |H | Short_Literal 0xc
006c 0093 0e6b | k| PushFullAddress InMicrocode,INIT_0e68
006e 02a0 | | Declare_Subprogram Null_Subprogram
006f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0070 4800 |H | Short_Literal 0x0
0071 4801 |H | Short_Literal 0x1
0072 029f 0703 | | Declare_Subprogram For_Call,INIT_0700
0074 03fe | | Declare_Type Discrete,Defined,Visible
0075 029a 072b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0728
0077 029a 0773 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0770
0079 00e3 | | Load_Encached Natural_Cache
007a 0129 | ) | Execute Any,Make_Visible
007b 029a 0803 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0800
007d 029a 080b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0808
007f 029a 0813 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0810
0081 029a 081b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0818
0083 4806 |H | Short_Literal 0x6
0084 032a | * | Declare_Type Record,Incomplete
0085 00d8 | | Load_Top At_Offset_0
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 03ad | | Declare_Type Heap_Access,Defined
0088 00d8 | | Load_Top At_Offset_0
0089 00e3 | | Load_Encached Natural_Cache
008a 02a0 | | Declare_Subprogram Null_Subprogram
008b e215 | | Load 0x1,0x15
008c 0326 | & | Complete_Type Record,By_Defining
008d 00bf | | Action Accept_Activation
008e 00e3 | | Load_Encached Natural_Cache
008f 00e3 | | Load_Encached Natural_Cache
0090 00ec | | Load_Encached Diana_Tree_Cache
0091 e214 | | Load 0x1,0x14
0092 029f 0823 | #| Declare_Subprogram For_Call,INIT_0820
0094 4804 |H | Short_Literal 0x4
0095 032d | - | Declare_Type Record,Defined
0096 00d8 | | Load_Top At_Offset_0
0097 02a0 | | Declare_Subprogram Null_Subprogram
0098 03ad | | Declare_Type Heap_Access,Defined
0099 e210 | | Load 0x1,0x10
009a 00e2 | | Load_Encached Integer_Cache
009b 00e2 | | Load_Encached Integer_Cache
009c 02a0 | | Declare_Subprogram Null_Subprogram
009d 4803 |H | Short_Literal 0x3
009e 032d | - | Declare_Type Record,Defined
009f 4800 |H | Short_Literal 0x0
00a0 49ff |I | Short_Literal 0x1ff
00a1 00e3 | | Load_Encached Natural_Cache
00a2 03f8 | | Declare_Type Discrete,Constrained
00a3 e001 | | Load 0x0,0x1
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 00d9 | | Load_Top At_Offset_1
00a6 e218 | | Load 0x1,0x18
00a7 00ec | | Load_Encached Diana_Tree_Cache
00a8 00e1 | | Load_Encached Boolean_Cache
00a9 e21a | | Load 0x1,0x1a
00aa 029f 083b | ;| Declare_Subprogram For_Call,INIT_0838
00ac e240 | @ | Load 0x1,0x40
00ad 0326 | & | Complete_Type Record,By_Defining
00ae 00e4 | | Load_Encached Positive_Cache
00af 0266 | f | Execute Discrete,Bounds
00b0 e002 | | Load 0x0,0x2
00b1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00b2 02a0 | | Declare_Subprogram Null_Subprogram
00b3 4801 |H | Short_Literal 0x1
00b4 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00b5 00d8 | | Load_Top At_Offset_0
00b6 02a0 | | Declare_Subprogram Null_Subprogram
00b7 4818 |H | Short_Literal 0x18
00b8 03d3 | | Declare_Type Access,Defined,Accesses_Protected
00b9 e003 | | Load 0x0,0x3
00ba e004 | | Load 0x0,0x4
00bb e240 | @ | Load 0x1,0x40
00bc e241 | A | Load 0x1,0x41
00bd 00e3 | | Load_Encached Natural_Cache
00be e005 | | Load 0x0,0x5
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 e006 | | Load 0x0,0x6
00c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c2 e007 | | Load 0x0,0x7
00c3 0387 | | Declare_Variable Package
00c4 00d8 | | Load_Top At_Offset_0
00c5 020f | | Execute Module,Activate
00c6 e008 | | Load 0x0,0x8
00c7 e009 | | Load 0x0,0x9
00c8 e240 | @ | Load 0x1,0x40
00c9 e241 | A | Load 0x1,0x41
00ca 00e3 | | Load_Encached Natural_Cache
00cb e005 | | Load 0x0,0x5
00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cd e006 | | Load 0x0,0x6
00ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cf e007 | | Load 0x0,0x7
00d0 0387 | | Declare_Variable Package
00d1 00d8 | | Load_Top At_Offset_0
00d2 020f | | Execute Module,Activate
00d3 e00a | | Load 0x0,0xa
00d4 e00b | | Load 0x0,0xb
00d5 e242 | B | Load 0x1,0x42
00d6 e243 | C | Load 0x1,0x43
00d7 e210 | | Load 0x1,0x10
00d8 e005 | | Load 0x0,0x5
00d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00da e006 | | Load 0x0,0x6
00db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00dc e007 | | Load 0x0,0x7
00dd 0387 | | Declare_Variable Package
00de 00d8 | | Load_Top At_Offset_0
00df 020f | | Execute Module,Activate
00e0 e00c | | Load 0x0,0xc
00e1 e00d | | Load 0x0,0xd
00e2 e002 | | Load 0x0,0x2
00e3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00e4 e00e | | Load 0x0,0xe
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 00e5 | | Load_Encached Long_Integer_Cache
00e7 e00f | | Load 0x0,0xf
00e8 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00e9 e010 | | Load 0x0,0x10
00ea 0387 | | Declare_Variable Package
00eb 00d8 | | Load_Top At_Offset_0
00ec 020f | | Execute Module,Activate
00ed e001 | | Load 0x0,0x1
00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ef 02c7 | | Declare_Variable Any
00f0 6087 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00000ffd}
00f1 e001 | | Load 0x0,0x1
00f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f3 a24c | L | Store_Unchecked 0x1,0x4c
00f4 00d9 | | Load_Top At_Offset_1
00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f6 e248 | H | Load 0x1,0x48
00f7 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00f8 0007 | | Action Break_Optional
00f9 e249 | I | Load 0x1,0x49
00fa 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00fb 0007 | | Action Break_Optional
00fc e24a | J | Load 0x1,0x4a
00fd 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00fe 0007 | | Action Break_Optional
00ff e244 | D | Load 0x1,0x44
0100 0322 | " | Declare_Variable Record
0101 4800 |H | Short_Literal 0x0
0102 00d9 | | Load_Top At_Offset_1
0103 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0104 4800 |H | Short_Literal 0x0
0105 00d9 | | Load_Top At_Offset_1
0106 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0107 4800 |H | Short_Literal 0x0
0108 00d9 | | Load_Top At_Offset_1
0109 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
010a 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
010b 00c7 | | Action Elaborate_Subprogram
010c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
010d 00c7 | | Action Elaborate_Subprogram
010e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
010f 00c7 | | Action Elaborate_Subprogram
0110 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0111 00c7 | | Action Elaborate_Subprogram
0112 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0113 00c7 | | Action Elaborate_Subprogram
0114 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0115 00c7 | | Action Elaborate_Subprogram
0116 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0117 00c7 | | Action Elaborate_Subprogram
0118 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0119 00c7 | | Action Elaborate_Subprogram
011a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
011b 00c7 | | Action Elaborate_Subprogram
011c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
011d 00c7 | | Action Elaborate_Subprogram
011e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
011f 00c7 | | Action Elaborate_Subprogram
0120 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0121 00c7 | | Action Elaborate_Subprogram
0122 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0123 00c7 | | Action Elaborate_Subprogram
0124 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0125 00c7 | | Action Elaborate_Subprogram
0126 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0127 00c7 | | Action Elaborate_Subprogram
0128 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0129 00c7 | | Action Elaborate_Subprogram
012a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
012b 00c7 | | Action Elaborate_Subprogram
012c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
012d 00c7 | | Action Elaborate_Subprogram
012e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
012f 00c7 | | Action Elaborate_Subprogram
0130 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0131 00c7 | | Action Elaborate_Subprogram
0132 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0133 00c7 | | Action Elaborate_Subprogram
0134 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0135 00c7 | | Action Elaborate_Subprogram
0136 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0137 00c7 | | Action Elaborate_Subprogram
0138 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0139 00c7 | | Action Elaborate_Subprogram
013a 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
013b 00c7 | | Action Elaborate_Subprogram
013c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
013d 00c7 | | Action Elaborate_Subprogram
013e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
013f 00c7 | | Action Elaborate_Subprogram
0140 029d 086b | k| Declare_Subprogram For_Outer_Call,INIT_0868
0142 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0143 00c7 | | Action Elaborate_Subprogram
0144 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0145 00c7 | | Action Elaborate_Subprogram
0146 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0147 00c7 | | Action Elaborate_Subprogram
0148 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0149 00c7 | | Action Elaborate_Subprogram
014a 00b6 | | Action Make_Scope
014b 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
014c 4802 |H | Short_Literal 0x2
014d e237 | 7 | Load 0x1,0x37
014e 020e | | Execute Module,Augment_Imports
014f e237 | 7 | Load 0x1,0x37
0150 020d | | Execute Module,Elaborate
0151 0007 | | Action Break_Optional
0152 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0153 00c7 | | Action Elaborate_Subprogram
0154 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0155 00c7 | | Action Elaborate_Subprogram
0156 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0157 00c7 | | Action Elaborate_Subprogram
0158 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0159 00c7 | | Action Elaborate_Subprogram
015a 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
015b 00c7 | | Action Elaborate_Subprogram
015c 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
015d 00c7 | | Action Elaborate_Subprogram
015e BODY_0008:
015e e24b | K | Load 0x1,0x4b
015f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0160 e005 | | Load 0x0,0x5
0161 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0162 e006 | | Load 0x0,0x6
0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0164 e24b | K | Load 0x1,0x4b
0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0166 c24d | M | Store 0x1,0x4d
0167 00bc | | Action Signal_Activated
0168 00bb | | Action Signal_Completion
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4800 |H | Short_Literal 0x0
0174 00ca | | Action Exit_Nullary_Function
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd}
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 0f00 | | Execute_Immediate Equal,0x0
0185 4401 |D | Exit_Subprogram With_Result,0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4607 |F | Jump_Case 0x7
018c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
018d 7806 |x | Jump 0x194 ; case 0x1
018e 7809 |x | Jump 0x198 ; case 0x2
018f 780d |x | Jump 0x19d ; case 0x3
0190 7810 |x | Jump 0x1a1 ; case 0x4
0191 7811 |x | Jump 0x1a3 ; case 0x5
0192 7812 |x | Jump 0x1a5 ; case 0x6
0193 7815 |x | Jump 0x1a9 ; case 0x7
0194 00da | | Load_Top At_Offset_2
0195 0091 10e2 | | Action Push_String_Extended_Indexed,0x10e2 ; "REFERRED_TO_ITEM"
0197 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0198 00db | | Load_Top At_Offset_3
0199 00db | | Load_Top At_Offset_3
019a 00e0 | | Load_Encached Standard_Cache
019b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
019c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
019d 00da | | Load_Top At_Offset_2
019e 00e0 | | Load_Encached Standard_Cache
019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01a1 00db | | Load_Top At_Offset_3
01a2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01a3 00db | | Load_Top At_Offset_3
01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01a5 e213 | | Load 0x1,0x13
01a6 00dc | | Load_Top At_Offset_4
01a7 0267 | g | Execute Discrete,Predecessor
01a8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01a9 e213 | | Load 0x1,0x13
01aa 00dc | | Load_Top At_Offset_4
01ab 0268 | h | Execute Discrete,Successor
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4607 |F | Jump_Case 0x7
01b4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01b5 7806 |x | Jump 0x1bc ; case 0x1
01b6 7809 |x | Jump 0x1c0 ; case 0x2
01b7 780d |x | Jump 0x1c5 ; case 0x3
01b8 7810 |x | Jump 0x1c9 ; case 0x4
01b9 7811 |x | Jump 0x1cb ; case 0x5
01ba 7812 |x | Jump 0x1cd ; case 0x6
01bb 7815 |x | Jump 0x1d1 ; case 0x7
01bc 00da | | Load_Top At_Offset_2
01bd 0091 10e5 | | Action Push_String_Extended_Indexed,0x10e5 ; "NONE"
01bf 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01c0 00db | | Load_Top At_Offset_3
01c1 00db | | Load_Top At_Offset_3
01c2 00e0 | | Load_Encached Standard_Cache
01c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01c5 00da | | Load_Top At_Offset_2
01c6 00e0 | | Load_Encached Standard_Cache
01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01c9 00db | | Load_Top At_Offset_3
01ca 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01cb 00db | | Load_Top At_Offset_3
01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01cd e214 | | Load 0x1,0x14
01ce 00dc | | Load_Top At_Offset_4
01cf 0267 | g | Execute Discrete,Predecessor
01d0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01d1 e214 | | Load 0x1,0x14
01d2 00dc | | Load_Top At_Offset_4
01d3 0268 | h | Execute Discrete,Successor
01d4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e215 | | Load 0x1,0x15
01dc 0322 | " | Declare_Variable Record
01dd e241 | A | Load 0x1,0x41
01de 00d9 | | Load_Top At_Offset_1
01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e0 4800 |H | Short_Literal 0x0
01e1 00d9 | | Load_Top At_Offset_1
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 00ca | | Action Exit_Nullary_Function
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ed 7002 |p | Jump_Nonzero 0x1f0
01ee 4801 |H | Short_Literal 0x1
01ef 4401 |D | Exit_Subprogram With_Result,0x1
01f0 4800 |H | Short_Literal 0x0
01f1 4401 |D | Exit_Subprogram With_Result,0x1
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4607 |F | Jump_Case 0x7
01fc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01fd 7806 |x | Jump 0x204 ; case 0x1
01fe 7809 |x | Jump 0x208 ; case 0x2
01ff 780d |x | Jump 0x20d ; case 0x3
0200 7810 |x | Jump 0x211 ; case 0x4
0201 7811 |x | Jump 0x213 ; case 0x5
0202 7812 |x | Jump 0x215 ; case 0x6
0203 7815 |x | Jump 0x219 ; case 0x7
0204 00da | | Load_Top At_Offset_2
0205 0091 10ec | | Action Push_String_Extended_Indexed,0x10ec ; "ATTRIBUTE_ID"
0207 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0208 00db | | Load_Top At_Offset_3
0209 00db | | Load_Top At_Offset_3
020a 00e0 | | Load_Encached Standard_Cache
020b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
020d 00da | | Load_Top At_Offset_2
020e 00e0 | | Load_Encached Standard_Cache
020f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0210 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0211 00db | | Load_Top At_Offset_3
0212 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0213 00db | | Load_Top At_Offset_3
0214 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0215 e218 | | Load 0x1,0x18
0216 00dc | | Load_Top At_Offset_4
0217 0267 | g | Execute Discrete,Predecessor
0218 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0219 e218 | | Load 0x1,0x18
021a 00dc | | Load_Top At_Offset_4
021b 0268 | h | Execute Discrete,Successor
021c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4607 |F | Jump_Case 0x7
0224 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0225 7806 |x | Jump 0x22c ; case 0x1
0226 7809 |x | Jump 0x230 ; case 0x2
0227 780d |x | Jump 0x235 ; case 0x3
0228 7810 |x | Jump 0x239 ; case 0x4
0229 7811 |x | Jump 0x23b ; case 0x5
022a 7812 |x | Jump 0x23d ; case 0x6
022b 7815 |x | Jump 0x241 ; case 0x7
022c 00da | | Load_Top At_Offset_2
022d 0091 1107 | | Action Push_String_Extended_Indexed,0x1107 ; "ATTRIBUTE_TYPE"
022f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0230 00db | | Load_Top At_Offset_3
0231 00db | | Load_Top At_Offset_3
0232 00e0 | | Load_Encached Standard_Cache
0233 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0234 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0235 00da | | Load_Top At_Offset_2
0236 00e0 | | Load_Encached Standard_Cache
0237 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0238 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0239 00db | | Load_Top At_Offset_3
023a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
023b 00db | | Load_Top At_Offset_3
023c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
023d e219 | | Load 0x1,0x19
023e 00dc | | Load_Top At_Offset_4
023f 0267 | g | Execute Discrete,Predecessor
0240 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0241 e219 | | Load 0x1,0x19
0242 00dc | | Load_Top At_Offset_4
0243 0268 | h | Execute Discrete,Successor
0244 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4607 |F | Jump_Case 0x7
024c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
024d 7806 |x | Jump 0x254 ; case 0x1
024e 7809 |x | Jump 0x258 ; case 0x2
024f 780d |x | Jump 0x25d ; case 0x3
0250 7810 |x | Jump 0x261 ; case 0x4
0251 7811 |x | Jump 0x263 ; case 0x5
0252 7812 |x | Jump 0x265 ; case 0x6
0253 7815 |x | Jump 0x269 ; case 0x7
0254 00da | | Load_Top At_Offset_2
0255 0091 1117 | | Action Push_String_Extended_Indexed,0x1117 ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART"
0257 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0258 00db | | Load_Top At_Offset_3
0259 00db | | Load_Top At_Offset_3
025a 00e0 | | Load_Encached Standard_Cache
025b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
025d 00da | | Load_Top At_Offset_2
025e 00e0 | | Load_Encached Standard_Cache
025f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0260 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0261 00db | | Load_Top At_Offset_3
0262 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0263 00db | | Load_Top At_Offset_3
0264 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0265 e21a | | Load 0x1,0x1a
0266 00dc | | Load_Top At_Offset_4
0267 0267 | g | Execute Discrete,Predecessor
0268 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0269 e21a | | Load 0x1,0x1a
026a 00dc | | Load_Top At_Offset_4
026b 0268 | h | Execute Discrete,Successor
026c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 461a |F | Jump_Case 0x1a
0275 781c |x | Jump 0x292 ; case 0x0
0276 781f |x | Jump 0x296 ; case 0x1
0277 781c |x | Jump 0x294 ; case 0x2
0278 781f |x | Jump 0x298 ; case 0x3
0279 781c |x | Jump 0x296 ; case 0x4
027a 781f |x | Jump 0x29a ; case 0x5
027b 7820 |x | Jump 0x29c ; case 0x6
027c 7821 |x! | Jump 0x29e ; case 0x7
027d 7826 |x& | Jump 0x2a4 ; case 0x8
027e 7825 |x% | Jump 0x2a4 ; case 0x9
027f 7816 |x | Jump 0x296 ; case 0xa
0280 781f |x | Jump 0x2a0 ; case 0xb
0281 782a |x* | Jump 0x2ac ; case 0xc
0282 781d |x | Jump 0x2a0 ; case 0xd
0283 7812 |x | Jump 0x296 ; case 0xe
0284 781f |x | Jump 0x2a4 ; case 0xf
0285 781c |x | Jump 0x2a2 ; case 0x10
0286 781f |x | Jump 0x2a6 ; case 0x11
0287 781e |x | Jump 0x2a6 ; case 0x12
0288 7823 |x# | Jump 0x2ac ; case 0x13
0289 781e |x | Jump 0x2a8 ; case 0x14
028a 7809 |x | Jump 0x294 ; case 0x15
028b 7820 |x | Jump 0x2ac ; case 0x16
028c 781d |x | Jump 0x2aa ; case 0x17
028d 781e |x | Jump 0x2ac ; case 0x18
028e 781f |x | Jump 0x2ae ; case 0x19
028f 7800 |x | Jump 0x290 ; case 0x1a
0290 480f |H | Short_Literal 0xf
0291 4401 |D | Exit_Subprogram With_Result,0x1
0292 4800 |H | Short_Literal 0x0
0293 4401 |D | Exit_Subprogram With_Result,0x1
0294 4801 |H | Short_Literal 0x1
0295 4401 |D | Exit_Subprogram With_Result,0x1
0296 4802 |H | Short_Literal 0x2
0297 4401 |D | Exit_Subprogram With_Result,0x1
0298 4803 |H | Short_Literal 0x3
0299 4401 |D | Exit_Subprogram With_Result,0x1
029a 4804 |H | Short_Literal 0x4
029b 4401 |D | Exit_Subprogram With_Result,0x1
029c 4805 |H | Short_Literal 0x5
029d 4401 |D | Exit_Subprogram With_Result,0x1
029e 4806 |H | Short_Literal 0x6
029f 4401 |D | Exit_Subprogram With_Result,0x1
02a0 4807 |H | Short_Literal 0x7
02a1 4401 |D | Exit_Subprogram With_Result,0x1
02a2 4808 |H | Short_Literal 0x8
02a3 4401 |D | Exit_Subprogram With_Result,0x1
02a4 4809 |H | Short_Literal 0x9
02a5 4401 |D | Exit_Subprogram With_Result,0x1
02a6 480a |H | Short_Literal 0xa
02a7 4401 |D | Exit_Subprogram With_Result,0x1
02a8 480b |H | Short_Literal 0xb
02a9 4401 |D | Exit_Subprogram With_Result,0x1
02aa 480c |H | Short_Literal 0xc
02ab 4401 |D | Exit_Subprogram With_Result,0x1
02ac 480d |H | Short_Literal 0xd
02ad 4401 |D | Exit_Subprogram With_Result,0x1
02ae 480e |H | Short_Literal 0xe
02af 4401 |D | Exit_Subprogram With_Result,0x1
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 0321 | ! | .CONST 0x0321 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 001e | | .CONST 0x001e ; Number of locals
02b3 INIT_02b0:
02b3 e011 | | Load 0x0,0x11
02b4 e012 | | Load 0x0,0x12
02b5 613a |a: | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00000ffd}
02b6 00ec | | Load_Encached Diana_Tree_Cache
02b7 00e3 | | Load_Encached Natural_Cache
02b8 00eb | | Load_Encached Diana_Cache
02b9 1917 | | Execute Package,Field_Reference,Field_Number 0x17
02ba e013 | | Load 0x0,0x13
02bb 0387 | | Declare_Variable Package
02bc 00d8 | | Load_Top At_Offset_0
02bd 020f | | Execute Module,Activate
02be 4801 |H | Short_Literal 0x1
02bf e24c | L | Load 0x1,0x4c
02c0 00ea | | Load_Encached Null_String_Cache
02c1 e001 | | Load 0x0,0x1
02c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02c3 e001 | | Load 0x0,0x1
02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c5 011e | | Execute Any,Convert
02c6 4801 |H | Short_Literal 0x1
02c7 e24c | L | Load 0x1,0x4c
02c8 0092 1125 | %| Action Push_String_Extended,0x1125 ; "'1"
02ca e001 | | Load 0x0,0x1
02cb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02cc e001 | | Load 0x0,0x1
02cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ce 011e | | Execute Any,Convert
02cf 00ec | | Load_Encached Diana_Tree_Cache
02d0 02c7 | | Declare_Variable Any
02d1 00d8 | | Load_Top At_Offset_0
02d2 1c00 | | Execute_Immediate Run_Utility,0x0
02d3 e014 | | Load 0x0,0x14
02d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d6 02c7 | | Declare_Variable Any
02d7 00d8 | | Load_Top At_Offset_0
02d8 1c00 | | Execute_Immediate Run_Utility,0x0
02d9 e014 | | Load 0x0,0x14
02da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02db 02c7 | | Declare_Variable Any
02dc 00d8 | | Load_Top At_Offset_0
02dd 1c00 | | Execute_Immediate Run_Utility,0x0
02de e014 | | Load 0x0,0x14
02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e0 e015 | | Load 0x0,0x15
02e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02e3 02c7 | | Declare_Variable Any
02e4 00d8 | | Load_Top At_Offset_0
02e5 1c00 | | Execute_Immediate Run_Utility,0x0
02e6 e015 | | Load 0x0,0x15
02e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02e9 02c7 | | Declare_Variable Any
02ea 00d8 | | Load_Top At_Offset_0
02eb 1c00 | | Execute_Immediate Run_Utility,0x0
02ec e015 | | Load 0x0,0x15
02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02ef 02c7 | | Declare_Variable Any
02f0 00d8 | | Load_Top At_Offset_0
02f1 1c00 | | Execute_Immediate Run_Utility,0x0
02f2 e015 | | Load 0x0,0x15
02f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02f5 02c7 | | Declare_Variable Any
02f6 00d8 | | Load_Top At_Offset_0
02f7 1c00 | | Execute_Immediate Run_Utility,0x0
02f8 e015 | | Load 0x0,0x15
02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fb 02c7 | | Declare_Variable Any
02fc 00d8 | | Load_Top At_Offset_0
02fd 1c00 | | Execute_Immediate Run_Utility,0x0
02fe e015 | | Load 0x0,0x15
02ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0300 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0301 02c7 | | Declare_Variable Any
0302 00d8 | | Load_Top At_Offset_0
0303 1c00 | | Execute_Immediate Run_Utility,0x0
0304 00e1 | | Load_Encached Boolean_Cache
0305 e402 | | Load 0x2,0x2
0306 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0307 e247 | G | Load 0x1,0x47
0308 0007 | | Action Break_Optional
0309 00d8 | | Load_Top At_Offset_0
030a 0007 | | Action Break_Optional
030b a016 | | Reference 0x0,0x16
030c 00c6 | | Action Check_Subprogram_Elaborated
030d e210 | | Load 0x1,0x10
030e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
030f e24a | J | Load 0x1,0x4a
0310 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0311 e017 | | Load 0x0,0x17
0312 e018 | | Load 0x0,0x18
0313 4818 |H | Short_Literal 0x18
0314 0007 | | Action Break_Optional
0315 029f 08b3 | | Declare_Subprogram For_Call,INIT_08b0
0317 029f 0953 | S| Declare_Subprogram For_Call,INIT_0950
0319 029f 0a23 | #| Declare_Subprogram For_Call,INIT_0a20
031b 029f 0aab | | Declare_Subprogram For_Call,INIT_0aa8
031d 029f 0afb | | Declare_Subprogram For_Call,INIT_0af8
031f 029f 0d53 | S| Declare_Subprogram For_Call,INIT_0d50
0321 BODY_02b0:
0321 e244 | D | Load 0x1,0x44
0322 0322 | " | Declare_Variable Record
0323 4800 |H | Short_Literal 0x0
0324 00d9 | | Load_Top At_Offset_1
0325 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0326 4800 |H | Short_Literal 0x0
0327 00d9 | | Load_Top At_Offset_1
0328 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0329 4800 |H | Short_Literal 0x0
032a 00d9 | | Load_Top At_Offset_1
032b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
032c e251 | Q | Load 0x1,0x51
032d 017d | } | Execute Record,Structure_Write
032e e402 | | Load 0x2,0x2
032f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0330 e402 | | Load 0x2,0x2
0331 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0332 c410 | | Store 0x2,0x10
0333 e40b | | Load 0x2,0xb
0334 0120 | | Execute Any,Is_Value
0335 6804 |h | Jump_Zero 0x33a
0336 e015 | | Load 0x0,0x15
0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0338 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0339 7801 |x | Jump 0x33b
033a e40b | | Load 0x2,0xb
033b e40a | | Load 0x2,0xa
033c 0120 | | Execute Any,Is_Value
033d 6804 |h | Jump_Zero 0x342
033e e015 | | Load 0x0,0x15
033f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0340 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0341 7801 |x | Jump 0x343
0342 e40a | | Load 0x2,0xa
0343 e409 | | Load 0x2,0x9
0344 0120 | | Execute Any,Is_Value
0345 6804 |h | Jump_Zero 0x34a
0346 e015 | | Load 0x0,0x15
0347 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0348 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0349 7801 |x | Jump 0x34b
034a e409 | | Load 0x2,0x9
034b e5fd | | Load 0x2,-0x3
034c 00d8 | | Load_Top At_Offset_0
034d 0120 | | Execute Any,Is_Value
034e 6803 |h | Jump_Zero 0x352
034f e20f | | Load 0x1,0xf
0350 011e | | Execute Any,Convert
0351 7802 |x | Jump 0x354
0352 e20f | | Load 0x1,0xf
0353 0119 | | Execute Any,Check_In_Formal_Type
0354 85fe | | Call 0x2,-0x2
0355 c5fd | | Store 0x2,-0x3
0356 c409 | | Store 0x2,0x9
0357 c40a | | Store 0x2,0xa
0358 c40b | | Store 0x2,0xb
0359 e247 | G | Load 0x1,0x47
035a e40a | | Load 0x2,0xa
035b 841b | | Call 0x2,0x1b
035c c40a | | Store 0x2,0xa
035d c411 | | Store 0x2,0x11
035e e247 | G | Load 0x1,0x47
035f e40b | | Load 0x2,0xb
0360 841b | | Call 0x2,0x1b
0361 c40b | | Store 0x2,0xb
0362 c412 | | Store 0x2,0x12
0363 e411 | | Load 0x2,0x11
0364 022c | , | Execute Access,Not_Null
0365 e412 | | Load 0x2,0x12
0366 022c | , | Execute Access,Not_Null
0367 0279 | y | Execute Discrete,And
0368 6801 |h | Jump_Zero 0x36a
0369 4503 |E | Exit_Subprogram 0x3
036a 4800 |H | Short_Literal 0x0
036b 0092 1126 | &| Action Push_String_Extended,0x1126 ; "?"
036d e015 | | Load 0x0,0x15
036e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0370 e015 | | Load 0x0,0x15
0371 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0372 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0373 e015 | | Load 0x0,0x15
0374 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0375 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0376 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0377 c40c | | Store 0x2,0xc
0378 00cf | | Action Mark_Auxiliary
0379 786f |xo | Jump 0x3e9
037a e409 | | Load 0x2,0x9
037b e015 | | Load 0x0,0x15
037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
037e c40d | | Store 0x2,0xd
037f e40d | | Load 0x2,0xd
0380 e40c | | Load 0x2,0xc
0381 e015 | | Load 0x0,0x15
0382 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0383 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0384 6801 |h | Jump_Zero 0x386
0385 785d |x] | Jump 0x3e3
0386 e40d | | Load 0x2,0xd
0387 e015 | | Load 0x0,0x15
0388 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0389 1815 | | Execute Package,Field_Execute,Field_Number 0x15
038a 700d |p | Jump_Nonzero 0x398
038b e019 | | Load 0x0,0x19
038c 180e | | Execute Package,Field_Execute,Field_Number 0xe
038d 4807 |H | Short_Literal 0x7
038e e40d | | Load 0x2,0xd
038f e015 | | Load 0x0,0x15
0390 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0391 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0392 0092 1127 | '| Action Push_String_Extended,0x1127 ; " is not an ada object"
0394 01cc | | Execute Vector,Catenate
0395 e01a | | Load 0x0,0x1a
0396 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0397 784b |xK | Jump 0x3e3
0398 e40d | | Load 0x2,0xd
0399 e015 | | Load 0x0,0x15
039a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
039b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
039c 700d |p | Jump_Nonzero 0x3aa
039d e019 | | Load 0x0,0x19
039e 180e | | Execute Package,Field_Execute,Field_Number 0xe
039f 4807 |H | Short_Literal 0x7
03a0 e40d | | Load 0x2,0xd
03a1 e015 | | Load 0x0,0x15
03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03a4 0092 1128 | (| Action Push_String_Extended,0x1128 ; " isn't installed or higher"
03a6 01cc | | Execute Vector,Catenate
03a7 e01a | | Load 0x0,0x1a
03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a9 7839 |x9 | Jump 0x3e3
03aa e40e | | Load 0x2,0xe
03ab 0120 | | Execute Any,Is_Value
03ac 6804 |h | Jump_Zero 0x3b1
03ad e015 | | Load 0x0,0x15
03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03af 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
03b0 7801 |x | Jump 0x3b2
03b1 e40e | | Load 0x2,0xe
03b2 e405 | | Load 0x2,0x5
03b3 0120 | | Execute Any,Is_Value
03b4 6804 |h | Jump_Zero 0x3b9
03b5 e015 | | Load 0x0,0x15
03b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b8 7801 |x | Jump 0x3ba
03b9 e405 | | Load 0x2,0x5
03ba 4801 |H | Short_Literal 0x1
03bb e40d | | Load 0x2,0xd
03bc e015 | | Load 0x0,0x15
03bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bf c405 | | Store 0x2,0x5
03c0 c40e | | Store 0x2,0xe
03c1 e40e | | Load 0x2,0xe
03c2 e015 | | Load 0x0,0x15
03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
03c5 6807 |h | Jump_Zero 0x3cd
03c6 e019 | | Load 0x0,0x19
03c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c8 e40e | | Load 0x2,0xe
03c9 e015 | | Load 0x0,0x15
03ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cb 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03cc 7816 |x | Jump 0x3e3
03cd e251 | Q | Load 0x1,0x51
03ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03cf 0a01 | | Execute_Immediate Plus,0x1
03d0 e251 | Q | Load 0x1,0x51
03d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d2 e014 | | Load 0x0,0x14
03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d4 e406 | | Load 0x2,0x6
03d5 0120 | | Execute Any,Is_Value
03d6 6804 |h | Jump_Zero 0x3db
03d7 e014 | | Load 0x0,0x14
03d8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03da 7801 |x | Jump 0x3dc
03db e406 | | Load 0x2,0x6
03dc e405 | | Load 0x2,0x5
03dd e014 | | Load 0x0,0x14
03de 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03df 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03e0 c406 | | Store 0x2,0x6
03e1 c408 | | Store 0x2,0x8
03e2 841e | | Call 0x2,0x1e
03e3 e409 | | Load 0x2,0x9
03e4 e015 | | Load 0x0,0x15
03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03e7 c409 | | Store 0x2,0x9
03e8 00c9 | | Action Pop_Auxiliary_Loop
03e9 e409 | | Load 0x2,0x9
03ea e015 | | Load 0x0,0x15
03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ec 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03ed 6f8c |o | Jump_Zero 0x37a
03ee 4503 |E | Exit_Subprogram 0x3
03ef 0000 | | .XXX[0x1]
03f0 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd}
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0411 | | .CONST 0x0411 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0005 | | .CONST 0x0005 ; Number of locals
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 8250 | P | Call 0x1,0x50
03fd e5fe | | Load 0x2,-0x2
03fe 8250 | P | Call 0x1,0x50
03ff 00d9 | | Load_Top At_Offset_1
0400 0217 | | Execute Heap_Access,All_Reference
0401 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0402 824e | N | Call 0x1,0x4e
0403 0217 | | Execute Heap_Access,All_Reference
0404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0405 e001 | | Load 0x0,0x1
0406 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0407 822e | . | Call 0x1,0x2e
0408 00d9 | | Load_Top At_Offset_1
0409 0217 | | Execute Heap_Access,All_Reference
040a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
040b 824e | N | Call 0x1,0x4e
040c 0217 | | Execute Heap_Access,All_Reference
040d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
040e e001 | | Load 0x0,0x1
040f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0410 822e | . | Call 0x1,0x2e
0411 BODY_03f8:
0411 4800 |H | Short_Literal 0x0
0412 00d9 | | Load_Top At_Offset_1
0413 00db | | Load_Top At_Offset_3
0414 e01b | | Load 0x0,0x1b
0415 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0416 6802 |h | Jump_Zero 0x419
0417 4801 |H | Short_Literal 0x1
0418 4402 |D | Exit_Subprogram With_Result,0x2
0419 4800 |H | Short_Literal 0x0
041a 00d9 | | Load_Top At_Offset_1
041b 00db | | Load_Top At_Offset_3
041c e01b | | Load 0x0,0x1b
041d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
041e 682e |h. | Jump_Zero 0x44d
041f 00db | | Load_Top At_Offset_3
0420 0217 | | Execute Heap_Access,All_Reference
0421 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0422 00db | | Load_Top At_Offset_3
0423 0217 | | Execute Heap_Access,All_Reference
0424 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0425 027c | | | Execute Discrete,Less
0426 6802 |h | Jump_Zero 0x429
0427 4801 |H | Short_Literal 0x1
0428 4402 |D | Exit_Subprogram With_Result,0x2
0429 00db | | Load_Top At_Offset_3
042a 0217 | | Execute Heap_Access,All_Reference
042b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
042c 00db | | Load_Top At_Offset_3
042d 0217 | | Execute Heap_Access,All_Reference
042e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
042f 027f | | Execute Discrete,Equal
0430 681c |h | Jump_Zero 0x44d
0431 00db | | Load_Top At_Offset_3
0432 0217 | | Execute Heap_Access,All_Reference
0433 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0434 00db | | Load_Top At_Offset_3
0435 0217 | | Execute Heap_Access,All_Reference
0436 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0437 027c | | | Execute Discrete,Less
0438 6802 |h | Jump_Zero 0x43b
0439 4801 |H | Short_Literal 0x1
043a 4402 |D | Exit_Subprogram With_Result,0x2
043b 00db | | Load_Top At_Offset_3
043c 0217 | | Execute Heap_Access,All_Reference
043d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
043e 00db | | Load_Top At_Offset_3
043f 0217 | | Execute Heap_Access,All_Reference
0440 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0441 027f | | Execute Discrete,Equal
0442 680a |h | Jump_Zero 0x44d
0443 00db | | Load_Top At_Offset_3
0444 0217 | | Execute Heap_Access,All_Reference
0445 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0446 00db | | Load_Top At_Offset_3
0447 0217 | | Execute Heap_Access,All_Reference
0448 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0449 027c | | | Execute Discrete,Less
044a 6802 |h | Jump_Zero 0x44d
044b 4801 |H | Short_Literal 0x1
044c 4402 |D | Exit_Subprogram With_Result,0x2
044d 4800 |H | Short_Literal 0x0
044e 4402 |D | Exit_Subprogram With_Result,0x2
044f 0000 | | .XXX[0x1]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 045f | _ | .CONST 0x045f ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0007 | | .CONST 0x0007 ; Number of locals
0453 INIT_0450:
0453 a016 | | Reference 0x0,0x16
0454 00c6 | | Action Check_Subprogram_Elaborated
0455 e210 | | Load 0x1,0x10
0456 4ffe |O | Short_Literal 0x7fe
0457 4802 |H | Short_Literal 0x2
0458 0099 | | Action Reference_Dynamic
0459 e24a | J | Load 0x1,0x4a
045a 1914 | | Execute Package,Field_Reference,Field_Number 0x14
045b e01c | | Load 0x0,0x1c
045c e01d | | Load 0x0,0x1d
045d 4807 |H | Short_Literal 0x7
045e 0007 | | Action Break_Optional
045f BODY_0450:
045f e251 | Q | Load 0x1,0x51
0460 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0461 4801 |H | Short_Literal 0x1
0462 e402 | | Load 0x2,0x2
0463 4803 |H | Short_Literal 0x3
0464 4802 |H | Short_Literal 0x2
0465 0099 | | Action Reference_Dynamic
0466 4804 |H | Short_Literal 0x4
0467 4802 |H | Short_Literal 0x2
0468 0099 | | Action Reference_Dynamic
0469 4805 |H | Short_Literal 0x5
046a 4802 |H | Short_Literal 0x2
046b 0099 | | Action Reference_Dynamic
046c 8016 | | Call 0x0,0x16
046d 4503 |E | Exit_Subprogram 0x3
046e 0000 0000 | | .XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 4607 |F | Jump_Case 0x7
0474 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0475 7806 |x | Jump 0x47c ; case 0x1
0476 7809 |x | Jump 0x480 ; case 0x2
0477 780d |x | Jump 0x485 ; case 0x3
0478 7810 |x | Jump 0x489 ; case 0x4
0479 7811 |x | Jump 0x48b ; case 0x5
047a 7812 |x | Jump 0x48d ; case 0x6
047b 7815 |x | Jump 0x491 ; case 0x7
047c 00da | | Load_Top At_Offset_2
047d 0091 111e | | Action Push_String_Extended_Indexed,0x111e ; "SUCCESSFUL"
047f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0480 00db | | Load_Top At_Offset_3
0481 00db | | Load_Top At_Offset_3
0482 00e0 | | Load_Encached Standard_Cache
0483 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0484 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0485 00da | | Load_Top At_Offset_2
0486 00e0 | | Load_Encached Standard_Cache
0487 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0488 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0489 00db | | Load_Top At_Offset_3
048a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
048b 00db | | Load_Top At_Offset_3
048c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
048d e21f | | Load 0x1,0x1f
048e 00dc | | Load_Top At_Offset_4
048f 0267 | g | Execute Discrete,Predecessor
0490 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0491 e21f | | Load 0x1,0x1f
0492 00dc | | Load_Top At_Offset_4
0493 0268 | h | Execute Discrete,Successor
0494 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0495 0000 0000 | | .XXX[0x3]
0497 0000 | |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04b5 | | .CONST 0x04b5 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00db | | Load_Top At_Offset_3
049c 0f01 | | Execute_Immediate Equal,0x1
049d 6807 |h | Jump_Zero 0x4a5
049e 00da | | Load_Top At_Offset_2
049f 8250 | P | Call 0x1,0x50
04a0 0217 | | Execute Heap_Access,All_Reference
04a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a2 e01e | | Load 0x0,0x1e
04a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04a4 780e |x | Jump 0x4b3
04a5 00db | | Load_Top At_Offset_3
04a6 700a |p | Jump_Nonzero 0x4b1
04a7 00da | | Load_Top At_Offset_2
04a8 8250 | P | Call 0x1,0x50
04a9 0217 | | Execute Heap_Access,All_Reference
04aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ab 824e | N | Call 0x1,0x4e
04ac 0217 | | Execute Heap_Access,All_Reference
04ad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ae e01e | | Load 0x0,0x1e
04af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b0 7802 |x | Jump 0x4b3
04b1 4803 |H | Short_Literal 0x3
04b2 4402 |D | Exit_Subprogram With_Result,0x2
04b3 4800 |H | Short_Literal 0x0
04b4 4402 |D | Exit_Subprogram With_Result,0x2
04b5 TRAP_0498:
04b5 e01e | | Load 0x0,0x1e
04b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b7 010f | | Execute Exception,Equal
04b8 6802 |h | Jump_Zero 0x4bb
04b9 4801 |H | Short_Literal 0x1
04ba 4402 |D | Exit_Subprogram With_Result,0x2
04bb e01e | | Load 0x0,0x1e
04bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04bd 010f | | Execute Exception,Equal
04be 6802 |h | Jump_Zero 0x4c1
04bf 4802 |H | Short_Literal 0x2
04c0 4402 |D | Exit_Subprogram With_Result,0x2
04c1 4804 |H | Short_Literal 0x4
04c2 4402 |D | Exit_Subprogram With_Result,0x2
04c3 0000 0000 | | .BLANK 0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 8212 | | Call 0x1,0x12
04cd 6802 |h | Jump_Zero 0x4d0
04ce 00ec | | Load_Encached Diana_Tree_Cache
04cf 4402 |D | Exit_Subprogram With_Result,0x2
04d0 00db | | Load_Top At_Offset_3
04d1 4602 |F | Jump_Case 0x2
04d2 7804 |x | Jump 0x4d7 ; case 0x0
04d3 7810 |x | Jump 0x4e4 ; case 0x1
04d4 7800 |x | Jump 0x4d5 ; case 0x2
04d5 00ec | | Load_Encached Diana_Tree_Cache
04d6 4402 |D | Exit_Subprogram With_Result,0x2
04d7 00da | | Load_Top At_Offset_2
04d8 8250 | P | Call 0x1,0x50
04d9 0217 | | Execute Heap_Access,All_Reference
04da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04db 824e | N | Call 0x1,0x4e
04dc 0217 | | Execute Heap_Access,All_Reference
04dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04de 00d8 | | Load_Top At_Offset_0
04df 0120 | | Execute Any,Is_Value
04e0 7002 |p | Jump_Nonzero 0x4e3
04e1 00d8 | | Load_Top At_Offset_0
04e2 011e | | Execute Any,Convert
04e3 4402 |D | Exit_Subprogram With_Result,0x2
04e4 00da | | Load_Top At_Offset_2
04e5 8250 | P | Call 0x1,0x50
04e6 0217 | | Execute Heap_Access,All_Reference
04e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e8 00d8 | | Load_Top At_Offset_0
04e9 0120 | | Execute Any,Is_Value
04ea 7002 |p | Jump_Nonzero 0x4ed
04eb 00d8 | | Load_Top At_Offset_0
04ec 011e | | Execute Any,Convert
04ed 4402 |D | Exit_Subprogram With_Result,0x2
04ee 0000 0000 | | .XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04fa | | .CONST 0x04fa ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0003 | | .CONST 0x0003 ; Number of locals
04f3 INIT_04f0:
04f3 e014 | | Load 0x0,0x14
04f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04f5 02ff | | Declare_Variable Variant_Record
04f6 00d8 | | Load_Top At_Offset_0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 e014 | | Load 0x0,0x14
04f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04fa BODY_04f0:
04fa e014 | | Load 0x0,0x14
04fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04fc 00da | | Load_Top At_Offset_2
04fd e5ff | | Load 0x2,-0x1
04fe 8250 | P | Call 0x1,0x50
04ff 0217 | | Execute Heap_Access,All_Reference
0500 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0501 824e | N | Call 0x1,0x4e
0502 0217 | | Execute Heap_Access,All_Reference
0503 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0504 e014 | | Load 0x0,0x14
0505 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0506 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0507 00d1 | | Pop_Control Pop_Count_1
0508 0059 | Y | Store_Top Discrete,At_Offset_1
0509 00d8 | | Load_Top At_Offset_0
050a 6804 |h | Jump_Zero 0x50f
050b e015 | | Load 0x0,0x15
050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050d 180e | | Execute Package,Field_Execute,Field_Number 0xe
050e 4401 |D | Exit_Subprogram With_Result,0x1
050f e015 | | Load 0x0,0x15
0510 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0511 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0512 180e | | Execute Package,Field_Execute,Field_Number 0xe
0513 00ec | | Load_Encached Diana_Tree_Cache
0514 00ec | | Load_Encached Diana_Tree_Cache
0515 e014 | | Load 0x0,0x14
0516 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0517 e402 | | Load 0x2,0x2
0518 e014 | | Load 0x0,0x14
0519 1810 | | Execute Package,Field_Execute,Field_Number 0x10
051a e402 | | Load 0x2,0x2
051b e014 | | Load 0x0,0x14
051c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
051e e015 | | Load 0x0,0x15
051f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0520 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0521 e015 | | Load 0x0,0x15
0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0523 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0524 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0525 4401 |D | Exit_Subprogram With_Result,0x1
0526 0000 0000 | | .XXX[0x2]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0532 | 2 | .CONST 0x0532 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0003 | | .CONST 0x0003 ; Number of locals
052b INIT_0528:
052b e014 | | Load 0x0,0x14
052c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
052d 02ff | | Declare_Variable Variant_Record
052e 00d8 | | Load_Top At_Offset_0
052f 1c00 | | Execute_Immediate Run_Utility,0x0
0530 e014 | | Load 0x0,0x14
0531 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0532 BODY_0528:
0532 e014 | | Load 0x0,0x14
0533 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0534 00da | | Load_Top At_Offset_2
0535 e5ff | | Load 0x2,-0x1
0536 8250 | P | Call 0x1,0x50
0537 0217 | | Execute Heap_Access,All_Reference
0538 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0539 824f | O | Call 0x1,0x4f
053a 0217 | | Execute Heap_Access,All_Reference
053b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
053c e014 | | Load 0x0,0x14
053d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
053e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
053f 00d1 | | Pop_Control Pop_Count_1
0540 0059 | Y | Store_Top Discrete,At_Offset_1
0541 00d8 | | Load_Top At_Offset_0
0542 6804 |h | Jump_Zero 0x547
0543 e015 | | Load 0x0,0x15
0544 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0545 180e | | Execute Package,Field_Execute,Field_Number 0xe
0546 4401 |D | Exit_Subprogram With_Result,0x1
0547 e015 | | Load 0x0,0x15
0548 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0549 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
054a 180e | | Execute Package,Field_Execute,Field_Number 0xe
054b 00ec | | Load_Encached Diana_Tree_Cache
054c 00ec | | Load_Encached Diana_Tree_Cache
054d e014 | | Load 0x0,0x14
054e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
054f e402 | | Load 0x2,0x2
0550 e014 | | Load 0x0,0x14
0551 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0552 e402 | | Load 0x2,0x2
0553 e014 | | Load 0x0,0x14
0554 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0555 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0556 e015 | | Load 0x0,0x15
0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0558 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0559 e015 | | Load 0x0,0x15
055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
055c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
055d 4401 |D | Exit_Subprogram With_Result,0x1
055e 0000 0000 | | .XXX[0x2]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 e251 | Q | Load 0x1,0x51
0564 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0565 00ca | | Action Exit_Nullary_Function
0566 0000 0000 | | .XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 8212 | | Call 0x1,0x12
056d 6802 |h | Jump_Zero 0x570
056e 4806 |H | Short_Literal 0x6
056f 4401 |D | Exit_Subprogram With_Result,0x1
0570 00da | | Load_Top At_Offset_2
0571 8250 | P | Call 0x1,0x50
0572 0217 | | Execute Heap_Access,All_Reference
0573 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0574 824e | N | Call 0x1,0x4e
0575 0217 | | Execute Heap_Access,All_Reference
0576 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0577 4401 |D | Exit_Subprogram With_Result,0x1
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c 8212 | | Call 0x1,0x12
057d 6802 |h | Jump_Zero 0x580
057e 4800 |H | Short_Literal 0x0
057f 4401 |D | Exit_Subprogram With_Result,0x1
0580 00da | | Load_Top At_Offset_2
0581 8250 | P | Call 0x1,0x50
0582 0217 | | Execute Heap_Access,All_Reference
0583 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0584 824e | N | Call 0x1,0x4e
0585 0217 | | Execute Heap_Access,All_Reference
0586 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0587 4800 |H | Short_Literal 0x0
0588 4801 |H | Short_Literal 0x1
0589 0262 | b | Execute Discrete,In_Range
058a 7002 |p | Jump_Nonzero 0x58d
058b 4800 |H | Short_Literal 0x0
058c 4401 |D | Exit_Subprogram With_Result,0x1
058d 4801 |H | Short_Literal 0x1
058e 4401 |D | Exit_Subprogram With_Result,0x1
058f 0000 | | .XXX[0x1]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 INIT_0590:
0593 00da | | Load_Top At_Offset_2
0594 8212 | | Call 0x1,0x12
0595 6802 |h | Jump_Zero 0x598
0596 4800 |H | Short_Literal 0x0
0597 4401 |D | Exit_Subprogram With_Result,0x1
0598 00da | | Load_Top At_Offset_2
0599 8250 | P | Call 0x1,0x50
059a 0217 | | Execute Heap_Access,All_Reference
059b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
059c 4401 |D | Exit_Subprogram With_Result,0x1
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 8212 | | Call 0x1,0x12
05a5 6802 |h | Jump_Zero 0x5a8
05a6 481a |H | Short_Literal 0x1a
05a7 4401 |D | Exit_Subprogram With_Result,0x1
05a8 00da | | Load_Top At_Offset_2
05a9 8250 | P | Call 0x1,0x50
05aa 0217 | | Execute Heap_Access,All_Reference
05ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ac 824e | N | Call 0x1,0x4e
05ad 0217 | | Execute Heap_Access,All_Reference
05ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05af 4401 |D | Exit_Subprogram With_Result,0x1
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 8212 | | Call 0x1,0x12
05b5 6801 |h | Jump_Zero 0x5b7
05b6 4504 |E | Exit_Subprogram 0x4
05b7 00db | | Load_Top At_Offset_3
05b8 0f00 | | Execute_Immediate Equal,0x0
05b9 e5fe | | Load 0x2,-0x2
05ba 0f02 | | Execute_Immediate Equal,0x2
05bb 0278 | x | Execute Discrete,Or
05bc 6808 |h | Jump_Zero 0x5c5
05bd e5fd | | Load 0x2,-0x3
05be 00db | | Load_Top At_Offset_3
05bf 8250 | P | Call 0x1,0x50
05c0 0217 | | Execute Heap_Access,All_Reference
05c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05c2 824e | N | Call 0x1,0x4e
05c3 0217 | | Execute Heap_Access,All_Reference
05c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c5 00db | | Load_Top At_Offset_3
05c6 0f01 | | Execute_Immediate Equal,0x1
05c7 e5fe | | Load 0x2,-0x2
05c8 0f02 | | Execute_Immediate Equal,0x2
05c9 0278 | x | Execute Discrete,Or
05ca 6808 |h | Jump_Zero 0x5d3
05cb e5fd | | Load 0x2,-0x3
05cc 00db | | Load_Top At_Offset_3
05cd 8250 | P | Call 0x1,0x50
05ce 0217 | | Execute Heap_Access,All_Reference
05cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05d0 824f | O | Call 0x1,0x4f
05d1 0217 | | Execute Heap_Access,All_Reference
05d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05d3 4504 |E | Exit_Subprogram 0x4
05d4 0000 0000 | | .BLANK 0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00da | | Load_Top At_Offset_2
05dc 8217 | | Call 0x1,0x17
05dd 6801 |h | Jump_Zero 0x5df
05de 4503 |E | Exit_Subprogram 0x3
05df 00db | | Load_Top At_Offset_3
05e0 00db | | Load_Top At_Offset_3
05e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05e2 0217 | | Execute Heap_Access,All_Reference
05e3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05e4 4503 |E | Exit_Subprogram 0x3
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00da | | Load_Top At_Offset_2
05ec 8212 | | Call 0x1,0x12
05ed 6802 |h | Jump_Zero 0x5f0
05ee 4800 |H | Short_Literal 0x0
05ef 4402 |D | Exit_Subprogram With_Result,0x2
05f0 00db | | Load_Top At_Offset_3
05f1 7008 |p | Jump_Nonzero 0x5fa
05f2 00da | | Load_Top At_Offset_2
05f3 8250 | P | Call 0x1,0x50
05f4 0217 | | Execute Heap_Access,All_Reference
05f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05f6 824e | N | Call 0x1,0x4e
05f7 0217 | | Execute Heap_Access,All_Reference
05f8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05f9 4402 |D | Exit_Subprogram With_Result,0x2
05fa 00db | | Load_Top At_Offset_3
05fb 0f01 | | Execute_Immediate Equal,0x1
05fc 6808 |h | Jump_Zero 0x605
05fd 00da | | Load_Top At_Offset_2
05fe 8250 | P | Call 0x1,0x50
05ff 0217 | | Execute Heap_Access,All_Reference
0600 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0601 824f | O | Call 0x1,0x4f
0602 0217 | | Execute Heap_Access,All_Reference
0603 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0604 4402 |D | Exit_Subprogram With_Result,0x2
0605 4800 |H | Short_Literal 0x0
0606 4402 |D | Exit_Subprogram With_Result,0x2
0607 0000 | | .XXX[0x1]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 8217 | | Call 0x1,0x17
060d 6802 |h | Jump_Zero 0x610
060e 4800 |H | Short_Literal 0x0
060f 4401 |D | Exit_Subprogram With_Result,0x1
0610 00da | | Load_Top At_Offset_2
0611 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0612 0217 | | Execute Heap_Access,All_Reference
0613 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0614 4401 |D | Exit_Subprogram With_Result,0x1
0615 0000 0000 | | .XXX[0x3]
0617 0000 | |
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061c | | .CONST 0x061c ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b 00e3 | | Load_Encached Natural_Cache
061c BODY_0618:
061c 4800 |H | Short_Literal 0x0
061d e5ff | | Load 0x2,-0x1
061e 482e |H. | Short_Literal 0x2e
061f e01b | | Load 0x0,0x1b
0620 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0621 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0622 00d8 | | Load_Top At_Offset_0
0623 6809 |h | Jump_Zero 0x62d
0624 00db | | Load_Top At_Offset_3
0625 01dd | | Execute Vector,First
0626 00d9 | | Load_Top At_Offset_1
0627 0aff | | Execute_Immediate Plus,-0x1
0628 e5ff | | Load 0x2,-0x1
0629 01cf | | Execute Vector,Slice_Read
062a 0335 | 5 | Declare_Variable Array,Duplicate
062b 00cd | | Action Spare6_Action
062c 4401 |D | Exit_Subprogram With_Result,0x1
062d 00ea | | Load_Encached Null_String_Cache
062e 4401 |D | Exit_Subprogram With_Result,0x1
062f 0000 | | .XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0634 | 4 | .CONST 0x0634 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 00e3 | | Load_Encached Natural_Cache
0634 BODY_0630:
0634 4800 |H | Short_Literal 0x0
0635 e5ff | | Load 0x2,-0x1
0636 482e |H. | Short_Literal 0x2e
0637 e01b | | Load 0x0,0x1b
0638 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0639 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
063a 00d8 | | Load_Top At_Offset_0
063b 680e |h | Jump_Zero 0x64a
063c 00d8 | | Load_Top At_Offset_0
063d 0a01 | | Execute_Immediate Plus,0x1
063e 00d8 | | Load_Top At_Offset_0
063f 00e2 | | Load_Encached Integer_Cache
0640 0260 | ` | Execute Discrete,In_Type
0641 7001 |p | Jump_Nonzero 0x643
0642 0801 | | Execute_Immediate Raise,0x1
0643 e5ff | | Load 0x2,-0x1
0644 01dc | | Execute Vector,Last
0645 e5ff | | Load 0x2,-0x1
0646 01cf | | Execute Vector,Slice_Read
0647 0335 | 5 | Declare_Variable Array,Duplicate
0648 00cd | | Action Spare6_Action
0649 4401 |D | Exit_Subprogram With_Result,0x1
064a 00db | | Load_Top At_Offset_3
064b 0335 | 5 | Declare_Variable Array,Duplicate
064c 00cd | | Action Spare6_Action
064d 4401 |D | Exit_Subprogram With_Result,0x1
064e 0000 0000 | | .XXX[0x2]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 8217 | | Call 0x1,0x17
0655 6802 |h | Jump_Zero 0x658
0656 00ea | | Load_Encached Null_String_Cache
0657 4401 |D | Exit_Subprogram With_Result,0x1
0658 00da | | Load_Top At_Offset_2
0659 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
065a 0217 | | Execute Heap_Access,All_Reference
065b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
065c e001 | | Load 0x0,0x1
065d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
065e 822e | . | Call 0x1,0x2e
065f 4401 |D | Exit_Subprogram With_Result,0x1
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 8217 | | Call 0x1,0x17
0665 6802 |h | Jump_Zero 0x668
0666 00ea | | Load_Encached Null_String_Cache
0667 4401 |D | Exit_Subprogram With_Result,0x1
0668 00da | | Load_Top At_Offset_2
0669 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
066a 0217 | | Execute Heap_Access,All_Reference
066b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
066c e001 | | Load 0x0,0x1
066d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
066e 822d | - | Call 0x1,0x2d
066f 4401 |D | Exit_Subprogram With_Result,0x1
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 8217 | | Call 0x1,0x17
0675 6802 |h | Jump_Zero 0x678
0676 4800 |H | Short_Literal 0x0
0677 4401 |D | Exit_Subprogram With_Result,0x1
0678 00da | | Load_Top At_Offset_2
0679 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067a 0217 | | Execute Heap_Access,All_Reference
067b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067c e001 | | Load 0x0,0x1
067d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
067e 4401 |D | Exit_Subprogram With_Result,0x1
067f 0000 | | .XXX[0x1]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0685 | | .CONST 0x0685 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 e215 | | Load 0x1,0x15
0684 0322 | " | Declare_Variable Record
0685 BODY_0680:
0685 00db | | Load_Top At_Offset_3
0686 8212 | | Call 0x1,0x12
0687 6802 |h | Jump_Zero 0x68a
0688 8216 | | Call 0x1,0x16
0689 4402 |D | Exit_Subprogram With_Result,0x2
068a e5fe | | Load 0x2,-0x2
068b 7010 |p | Jump_Nonzero 0x69c
068c e215 | | Load 0x1,0x15
068d 0322 | " | Declare_Variable Record
068e e5ff | | Load 0x2,-0x1
068f 8250 | P | Call 0x1,0x50
0690 0217 | | Execute Heap_Access,All_Reference
0691 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0692 824e | N | Call 0x1,0x4e
0693 00d9 | | Load_Top At_Offset_1
0694 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0695 e5ff | | Load 0x2,-0x1
0696 8250 | P | Call 0x1,0x50
0697 0217 | | Execute Heap_Access,All_Reference
0698 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0699 00d9 | | Load_Top At_Offset_1
069a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
069b 4402 |D | Exit_Subprogram With_Result,0x2
069c e5fe | | Load 0x2,-0x2
069d 0f01 | | Execute_Immediate Equal,0x1
069e 6810 |h | Jump_Zero 0x6af
069f e215 | | Load 0x1,0x15
06a0 0322 | " | Declare_Variable Record
06a1 e5ff | | Load 0x2,-0x1
06a2 8250 | P | Call 0x1,0x50
06a3 0217 | | Execute Heap_Access,All_Reference
06a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06a5 824f | O | Call 0x1,0x4f
06a6 00d9 | | Load_Top At_Offset_1
06a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06a8 e5ff | | Load 0x2,-0x1
06a9 8250 | P | Call 0x1,0x50
06aa 0217 | | Execute Heap_Access,All_Reference
06ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ac 00d9 | | Load_Top At_Offset_1
06ad 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06ae 4402 |D | Exit_Subprogram With_Result,0x2
06af 8216 | | Call 0x1,0x16
06b0 4402 |D | Exit_Subprogram With_Result,0x2
06b1 0000 0000 | | .BLANK 0000[0x7]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bd | | .CONST 0x06bd ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0002 | | .CONST 0x0002 ; Number of locals
06bb INIT_06b8:
06bb 029f 0dab | | Declare_Subprogram For_Call,INIT_0da8
06bd BODY_06b8:
06bd 00db | | Load_Top At_Offset_3
06be 8217 | | Call 0x1,0x17
06bf 6802 |h | Jump_Zero 0x6c2
06c0 00ea | | Load_Encached Null_String_Cache
06c1 4401 |D | Exit_Subprogram With_Result,0x1
06c2 8402 | | Call 0x2,0x2
06c3 0831 | 1 | Execute_Immediate Raise,0x31
06c4 0000 0000 | | .BLANK 0000[0x4]
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 8217 | | Call 0x1,0x17
06cd 6802 |h | Jump_Zero 0x6d0
06ce 00ea | | Load_Encached Null_String_Cache
06cf 4401 |D | Exit_Subprogram With_Result,0x1
06d0 00da | | Load_Top At_Offset_2
06d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06d2 0217 | | Execute Heap_Access,All_Reference
06d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06d4 e001 | | Load 0x0,0x1
06d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06d6 4401 |D | Exit_Subprogram With_Result,0x1
06d7 0000 | | .XXX[0x1]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2
06dc 8217 | | Call 0x1,0x17
06dd 6802 |h | Jump_Zero 0x6e0
06de 6009 |` | Indirect_Literal Discrete,0x6e8,{0x00000000, 0x7fffffff}
06df 4401 |D | Exit_Subprogram With_Result,0x1
06e0 00da | | Load_Top At_Offset_2
06e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06e2 00d8 | | Load_Top At_Offset_0
06e3 00e4 | | Load_Encached Positive_Cache
06e4 0260 | ` | Execute Discrete,In_Type
06e5 7001 |p | Jump_Nonzero 0x6e7
06e6 0801 | | Execute_Immediate Raise,0x1
06e7 4401 |D | Exit_Subprogram With_Result,0x1
06e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
06ec 0000 0000 | | .BLANK 0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00da | | Load_Top At_Offset_2
06f4 8217 | | Call 0x1,0x17
06f5 6802 |h | Jump_Zero 0x6f8
06f6 00ea | | Load_Encached Null_String_Cache
06f7 4401 |D | Exit_Subprogram With_Result,0x1
06f8 00da | | Load_Top At_Offset_2
06f9 8230 | 0 | Call 0x1,0x30
06fa 822e | . | Call 0x1,0x2e
06fb 4401 |D | Exit_Subprogram With_Result,0x1
06fc 0000 0000 | | .BLANK 0000[0x4]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 4607 |F | Jump_Case 0x7
0704 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0705 7806 |x | Jump 0x70c ; case 0x1
0706 7809 |x | Jump 0x710 ; case 0x2
0707 780d |x | Jump 0x715 ; case 0x3
0708 7810 |x | Jump 0x719 ; case 0x4
0709 7811 |x | Jump 0x71b ; case 0x5
070a 7812 |x | Jump 0x71d ; case 0x6
070b 7815 |x | Jump 0x721 ; case 0x7
070c 00da | | Load_Top At_Offset_2
070d 0091 1123 | #| Action Push_String_Extended_Indexed,0x1123 ; "START"
070f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0710 00db | | Load_Top At_Offset_3
0711 00db | | Load_Top At_Offset_3
0712 00e0 | | Load_Encached Standard_Cache
0713 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0714 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0715 00da | | Load_Top At_Offset_2
0716 00e0 | | Load_Encached Standard_Cache
0717 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0718 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0719 00db | | Load_Top At_Offset_3
071a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
071b 00db | | Load_Top At_Offset_3
071c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
071d e238 | 8 | Load 0x1,0x38
071e 00dc | | Load_Top At_Offset_4
071f 0267 | g | Execute Discrete,Predecessor
0720 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0721 e238 | 8 | Load 0x1,0x38
0722 00dc | | Load_Top At_Offset_4
0723 0268 | h | Execute Discrete,Successor
0724 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0725 0000 0000 | | .XXX[0x3]
0727 0000 | |
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072c | , | .CONST 0x072c ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 00e1 | | Load_Encached Boolean_Cache
072c BODY_0728:
072c e5fb | | Load 0x2,-0x5
072d 00d8 | | Load_Top At_Offset_0
072e 0120 | | Execute Any,Is_Value
072f 6803 |h | Jump_Zero 0x733
0730 e20f | | Load 0x1,0xf
0731 011e | | Execute Any,Convert
0732 7802 |x | Jump 0x735
0733 e20f | | Load 0x1,0xf
0734 0119 | | Execute Any,Check_In_Formal_Type
0735 4800 |H | Short_Literal 0x0
0736 85fc | | Call 0x2,-0x4
0737 c5fb | | Store 0x2,-0x5
0738 00cf | | Action Mark_Auxiliary
0739 e251 | Q | Load 0x1,0x51
073a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
073b 4801 |H | Short_Literal 0x1
073c 0263 | c | Execute Discrete,Above_Bound
073d 701e |p | Jump_Nonzero 0x75c
073e 00e1 | | Load_Encached Boolean_Cache
073f e5fb | | Load 0x2,-0x5
0740 00d8 | | Load_Top At_Offset_0
0741 0120 | | Execute Any,Is_Value
0742 6803 |h | Jump_Zero 0x746
0743 e20f | | Load 0x1,0xf
0744 011e | | Execute Any,Convert
0745 7802 |x | Jump 0x748
0746 e20f | | Load 0x1,0xf
0747 0119 | | Execute Any,Check_In_Formal_Type
0748 00da | | Load_Top At_Offset_2
0749 85fd | | Call 0x2,-0x3
074a c5fb | | Store 0x2,-0x5
074b c402 | | Store 0x2,0x2
074c 00db | | Load_Top At_Offset_3
074d 680c |h | Jump_Zero 0x75a
074e e5fb | | Load 0x2,-0x5
074f 00d8 | | Load_Top At_Offset_0
0750 0120 | | Execute Any,Is_Value
0751 6803 |h | Jump_Zero 0x755
0752 e20f | | Load 0x1,0xf
0753 011e | | Execute Any,Convert
0754 7802 |x | Jump 0x757
0755 e20f | | Load 0x1,0xf
0756 0119 | | Execute Any,Check_In_Formal_Type
0757 00d9 | | Load_Top At_Offset_1
0758 85fe | | Call 0x2,-0x2
0759 c5fb | | Store 0x2,-0x5
075a 00c8 | | Action Pop_Auxiliary_Range
075b 3fe2 |? | Loop_Increasing 0x73e
075c 00ce | | Action Pop_Auxiliary
075d e5fb | | Load 0x2,-0x5
075e 00d8 | | Load_Top At_Offset_0
075f 0120 | | Execute Any,Is_Value
0760 6803 |h | Jump_Zero 0x764
0761 e20f | | Load 0x1,0xf
0762 011e | | Execute Any,Convert
0763 7802 |x | Jump 0x766
0764 e20f | | Load 0x1,0xf
0765 0119 | | Execute Any,Check_In_Formal_Type
0766 4801 |H | Short_Literal 0x1
0767 85fc | | Call 0x2,-0x4
0768 c5fb | | Store 0x2,-0x5
0769 4505 |E | Exit_Subprogram 0x5
076a 0000 0000 | | .BLANK 0000[0x6]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0774 | t | .CONST 0x0774 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0002 | | .CONST 0x0002 ; Number of locals
0773 INIT_0770:
0773 00e1 | | Load_Encached Boolean_Cache
0774 BODY_0770:
0774 e5fa | | Load 0x2,-0x6
0775 00d8 | | Load_Top At_Offset_0
0776 0120 | | Execute Any,Is_Value
0777 6803 |h | Jump_Zero 0x77b
0778 e20f | | Load 0x1,0xf
0779 011e | | Execute Any,Convert
077a 7802 |x | Jump 0x77d
077b e20f | | Load 0x1,0xf
077c 0119 | | Execute Any,Check_In_Formal_Type
077d 4800 |H | Short_Literal 0x0
077e 85fc | | Call 0x2,-0x4
077f c5fa | | Store 0x2,-0x6
0780 e5fb | | Load 0x2,-0x5
0781 0f01 | | Execute_Immediate Equal,0x1
0782 6836 |h6 | Jump_Zero 0x7b9
0783 00cf | | Action Mark_Auxiliary
0784 e251 | Q | Load 0x1,0x51
0785 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0786 4801 |H | Short_Literal 0x1
0787 0263 | c | Execute Discrete,Above_Bound
0788 702e |p. | Jump_Nonzero 0x7b7
0789 00e1 | | Load_Encached Boolean_Cache
078a e5fa | | Load 0x2,-0x6
078b 00d8 | | Load_Top At_Offset_0
078c 0120 | | Execute Any,Is_Value
078d 6803 |h | Jump_Zero 0x791
078e e20f | | Load 0x1,0xf
078f 011e | | Execute Any,Convert
0790 7802 |x | Jump 0x793
0791 e20f | | Load 0x1,0xf
0792 0119 | | Execute Any,Check_In_Formal_Type
0793 e215 | | Load 0x1,0x15
0794 0322 | " | Declare_Variable Record
0795 00db | | Load_Top At_Offset_3
0796 824f | O | Call 0x1,0x4f
0797 00d9 | | Load_Top At_Offset_1
0798 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0799 00db | | Load_Top At_Offset_3
079a 00d9 | | Load_Top At_Offset_1
079b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
079c 85fd | | Call 0x2,-0x3
079d c5fa | | Store 0x2,-0x6
079e c402 | | Store 0x2,0x2
079f 00db | | Load_Top At_Offset_3
07a0 6814 |h | Jump_Zero 0x7b5
07a1 e5fa | | Load 0x2,-0x6
07a2 00d8 | | Load_Top At_Offset_0
07a3 0120 | | Execute Any,Is_Value
07a4 6803 |h | Jump_Zero 0x7a8
07a5 e20f | | Load 0x1,0xf
07a6 011e | | Execute Any,Convert
07a7 7802 |x | Jump 0x7aa
07a8 e20f | | Load 0x1,0xf
07a9 0119 | | Execute Any,Check_In_Formal_Type
07aa e215 | | Load 0x1,0x15
07ab 0322 | " | Declare_Variable Record
07ac 00da | | Load_Top At_Offset_2
07ad 824f | O | Call 0x1,0x4f
07ae 00d9 | | Load_Top At_Offset_1
07af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07b0 00da | | Load_Top At_Offset_2
07b1 00d9 | | Load_Top At_Offset_1
07b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07b3 85fe | | Call 0x2,-0x2
07b4 c5fa | | Store 0x2,-0x6
07b5 00c8 | | Action Pop_Auxiliary_Range
07b6 3fd2 |? | Loop_Increasing 0x789
07b7 00ce | | Action Pop_Auxiliary
07b8 7837 |x7 | Jump 0x7f0
07b9 e5fb | | Load 0x2,-0x5
07ba 7035 |p5 | Jump_Nonzero 0x7f0
07bb 00cf | | Action Mark_Auxiliary
07bc e251 | Q | Load 0x1,0x51
07bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07be 4801 |H | Short_Literal 0x1
07bf 0263 | c | Execute Discrete,Above_Bound
07c0 702e |p. | Jump_Nonzero 0x7ef
07c1 00e1 | | Load_Encached Boolean_Cache
07c2 e5fa | | Load 0x2,-0x6
07c3 00d8 | | Load_Top At_Offset_0
07c4 0120 | | Execute Any,Is_Value
07c5 6803 |h | Jump_Zero 0x7c9
07c6 e20f | | Load 0x1,0xf
07c7 011e | | Execute Any,Convert
07c8 7802 |x | Jump 0x7cb
07c9 e20f | | Load 0x1,0xf
07ca 0119 | | Execute Any,Check_In_Formal_Type
07cb e215 | | Load 0x1,0x15
07cc 0322 | " | Declare_Variable Record
07cd 00db | | Load_Top At_Offset_3
07ce 824e | N | Call 0x1,0x4e
07cf 00d9 | | Load_Top At_Offset_1
07d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07d1 00db | | Load_Top At_Offset_3
07d2 00d9 | | Load_Top At_Offset_1
07d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07d4 85fd | | Call 0x2,-0x3
07d5 c5fa | | Store 0x2,-0x6
07d6 c402 | | Store 0x2,0x2
07d7 00db | | Load_Top At_Offset_3
07d8 6814 |h | Jump_Zero 0x7ed
07d9 e5fa | | Load 0x2,-0x6
07da 00d8 | | Load_Top At_Offset_0
07db 0120 | | Execute Any,Is_Value
07dc 6803 |h | Jump_Zero 0x7e0
07dd e20f | | Load 0x1,0xf
07de 011e | | Execute Any,Convert
07df 7802 |x | Jump 0x7e2
07e0 e20f | | Load 0x1,0xf
07e1 0119 | | Execute Any,Check_In_Formal_Type
07e2 e215 | | Load 0x1,0x15
07e3 0322 | " | Declare_Variable Record
07e4 00da | | Load_Top At_Offset_2
07e5 824e | N | Call 0x1,0x4e
07e6 00d9 | | Load_Top At_Offset_1
07e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07e8 00da | | Load_Top At_Offset_2
07e9 00d9 | | Load_Top At_Offset_1
07ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07eb 85fe | | Call 0x2,-0x2
07ec c5fa | | Store 0x2,-0x6
07ed 00c8 | | Action Pop_Auxiliary_Range
07ee 3fd2 |? | Loop_Increasing 0x7c1
07ef 00ce | | Action Pop_Auxiliary
07f0 e5fa | | Load 0x2,-0x6
07f1 00d8 | | Load_Top At_Offset_0
07f2 0120 | | Execute Any,Is_Value
07f3 6803 |h | Jump_Zero 0x7f7
07f4 e20f | | Load 0x1,0xf
07f5 011e | | Execute Any,Convert
07f6 7802 |x | Jump 0x7f9
07f7 e20f | | Load 0x1,0xf
07f8 0119 | | Execute Any,Check_In_Formal_Type
07f9 4801 |H | Short_Literal 0x1
07fa 85fc | | Call 0x2,-0x4
07fb c5fa | | Store 0x2,-0x6
07fc 4506 |E | Exit_Subprogram 0x6
07fd 0000 0000 | | .XXX[0x3]
07ff 0000 | |
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 4801 |H | Short_Literal 0x1
0804 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0805 4501 |E | Exit_Subprogram 0x1
0806 0000 0000 | | .XXX[0x2]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 00da | | Load_Top At_Offset_2
080c 0a01 | | Execute_Immediate Plus,0x1
080d 005b | [ | Store_Top Discrete,At_Offset_3
080e 4501 |E | Exit_Subprogram 0x1
080f 0000 | | .XXX[0x1]
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 4401 |D | Exit_Subprogram With_Result,0x1
0815 0000 0000 | | .XXX[0x3]
0817 0000 | |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 00da | | Load_Top At_Offset_2
081c e251 | Q | Load 0x1,0x51
081d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
081e 027d | } | Execute Discrete,Greater
081f 4401 |D | Exit_Subprogram With_Result,0x1
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 4608 |F | Jump_Case 0x8
0824 7808 |x | Jump 0x82d ; case 0x0
0825 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0826 780d |x | Jump 0x834 ; case 0x2
0827 780c |x | Jump 0x834 ; case 0x3
0828 780b |x | Jump 0x834 ; case 0x4
0829 780a |x | Jump 0x834 ; case 0x5
082a 7809 |x | Jump 0x834 ; case 0x6
082b 7808 |x | Jump 0x834 ; case 0x7
082c 7807 |x | Jump 0x834 ; case 0x8
082d 00da | | Load_Top At_Offset_2
082e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
082f 0125 | % | Execute Any,Set_Constraint
0830 00da | | Load_Top At_Offset_2
0831 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0832 1c00 | | Execute_Immediate Run_Utility,0x0
0833 4302 |C | Exit_Subprogram From_Utility,0x2
0834 0869 | i | Execute_Immediate Raise,0x69
0835 0000 0000 | | .XXX[0x3]
0837 0000 | |
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 4608 |F | Jump_Case 0x8
083c 7808 |x | Jump 0x845 ; case 0x0
083d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
083e 7824 |x$ | Jump 0x863 ; case 0x2
083f 7823 |x# | Jump 0x863 ; case 0x3
0840 7822 |x" | Jump 0x863 ; case 0x4
0841 7821 |x! | Jump 0x863 ; case 0x5
0842 7820 |x | Jump 0x863 ; case 0x6
0843 781f |x | Jump 0x863 ; case 0x7
0844 781e |x | Jump 0x863 ; case 0x8
0845 00da | | Load_Top At_Offset_2
0846 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0847 0125 | % | Execute Any,Set_Constraint
0848 00da | | Load_Top At_Offset_2
0849 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
084a 1c00 | | Execute_Immediate Run_Utility,0x0
084b 4800 |H | Short_Literal 0x0
084c 00db | | Load_Top At_Offset_3
084d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
084e 481a |H | Short_Literal 0x1a
084f 00db | | Load_Top At_Offset_3
0850 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0851 00da | | Load_Top At_Offset_2
0852 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0853 0125 | % | Execute Any,Set_Constraint
0854 00ec | | Load_Encached Diana_Tree_Cache
0855 00db | | Load_Top At_Offset_3
0856 00d9 | | Load_Top At_Offset_1
0857 00d9 | | Load_Top At_Offset_1
0858 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0859 0119 | | Execute Any,Check_In_Formal_Type
085a 00d1 | | Pop_Control Pop_Count_1
085b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
085c 4800 |H | Short_Literal 0x0
085d 00db | | Load_Top At_Offset_3
085e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
085f 4806 |H | Short_Literal 0x6
0860 00db | | Load_Top At_Offset_3
0861 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0862 4302 |C | Exit_Subprogram From_Utility,0x2
0863 0869 | i | Execute_Immediate Raise,0x69
0864 0000 0000 | | .BLANK 0000[0x4]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0879 | y | .CONST 0x0879 ; Address of begin
0869 08ad | | .CONST 0x08ad ; Address of exception handler
086a 0006 | | .CONST 0x0006 ; Number of locals
086b INIT_0868:
086b 00ec | | Load_Encached Diana_Tree_Cache
086c 02c7 | | Declare_Variable Any
086d 00d8 | | Load_Top At_Offset_0
086e 1c00 | | Execute_Immediate Run_Utility,0x0
086f e002 | | Load 0x0,0x2
0870 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0871 e00e | | Load 0x0,0xe
0872 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0873 02c7 | | Declare_Variable Any
0874 00d8 | | Load_Top At_Offset_0
0875 1c00 | | Execute_Immediate Run_Utility,0x0
0876 00e1 | | Load_Encached Boolean_Cache
0877 029f 0dcb | | Declare_Subprogram For_Call,INIT_0dc8
0879 BODY_0868:
0879 e5ff | | Load 0x2,-0x1
087a 8212 | | Call 0x1,0x12
087b 6802 |h | Jump_Zero 0x87e
087c 4800 |H | Short_Literal 0x0
087d 4402 |D | Exit_Subprogram With_Result,0x2
087e e5fe | | Load 0x2,-0x2
087f 7009 |p | Jump_Nonzero 0x889
0880 e5ff | | Load 0x2,-0x1
0881 8250 | P | Call 0x1,0x50
0882 0217 | | Execute Heap_Access,All_Reference
0883 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0884 824e | N | Call 0x1,0x4e
0885 0217 | | Execute Heap_Access,All_Reference
0886 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0887 c402 | | Store 0x2,0x2
0888 780b |x | Jump 0x894
0889 e5fe | | Load 0x2,-0x2
088a 0f01 | | Execute_Immediate Equal,0x1
088b 6806 |h | Jump_Zero 0x892
088c e5ff | | Load 0x2,-0x1
088d 8250 | P | Call 0x1,0x50
088e 0217 | | Execute Heap_Access,All_Reference
088f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0890 c402 | | Store 0x2,0x2
0891 7802 |x | Jump 0x894
0892 4800 |H | Short_Literal 0x0
0893 4402 |D | Exit_Subprogram With_Result,0x2
0894 e402 | | Load 0x2,0x2
0895 00ec | | Load_Encached Diana_Tree_Cache
0896 012f | / | Execute Any,Equal
0897 7013 |p | Jump_Nonzero 0x8ab
0898 e402 | | Load 0x2,0x2
0899 0210 | | Execute Heap_Access,Get_Segment
089a a403 | | Store_Unchecked 0x2,0x3
089b 00e1 | | Load_Encached Boolean_Cache
089c 00db | | Load_Top At_Offset_3
089d e403 | | Load 0x2,0x3
089e e24d | M | Load 0x1,0x4d
089f e24b | K | Load 0x1,0x4b
08a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08a1 c404 | | Store 0x2,0x4
08a2 005a | Z | Store_Top Discrete,At_Offset_2
08a3 00d9 | | Load_Top At_Offset_1
08a4 7001 |p | Jump_Nonzero 0x8a6
08a5 8406 | | Call 0x2,0x6
08a6 00da | | Load_Top At_Offset_2
08a7 e402 | | Load 0x2,0x2
08a8 e00e | | Load 0x0,0xe
08a9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08aa 4402 |D | Exit_Subprogram With_Result,0x2
08ab 4800 |H | Short_Literal 0x0
08ac 4402 |D | Exit_Subprogram With_Result,0x2
08ad TRAP_0868:
08ad 0007 | | Action Break_Optional
08ae 4800 |H | Short_Literal 0x0
08af 4402 |D | Exit_Subprogram With_Result,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 00d8 | | Load_Top At_Offset_0
08b5 0c5a | Z | Execute_Immediate Greater_Equal,0x5a
08b6 705d |p] | Jump_Nonzero 0x914
08b7 4659 |FY | Jump_Case 0x59
08b8 785c |x\ | Jump 0x915 ; case 0x0
08b9 785b |x[ | Jump 0x915 ; case 0x1
08ba 785a |xZ | Jump 0x915 ; case 0x2
08bb 7859 |xY | Jump 0x915 ; case 0x3
08bc 7858 |xX | Jump 0x915 ; case 0x4
08bd 7857 |xW | Jump 0x915 ; case 0x5
08be 7856 |xV | Jump 0x915 ; case 0x6
08bf 7855 |xU | Jump 0x915 ; case 0x7
08c0 7854 |xT | Jump 0x915 ; case 0x8
08c1 7853 |xS | Jump 0x915 ; case 0x9
08c2 7852 |xR | Jump 0x915 ; case 0xa
08c3 7851 |xQ | Jump 0x915 ; case 0xb
08c4 7850 |xP | Jump 0x915 ; case 0xc
08c5 784f |xO | Jump 0x915 ; case 0xd
08c6 784e |xN | Jump 0x915 ; case 0xe
08c7 784d |xM | Jump 0x915 ; case 0xf
08c8 784c |xL | Jump 0x915 ; case 0x10
08c9 784b |xK | Jump 0x915 ; case 0x11
08ca 784a |xJ | Jump 0x915 ; case 0x12
08cb 7849 |xI | Jump 0x915 ; case 0x13
08cc 7848 |xH | Jump 0x915 ; case 0x14
08cd 7847 |xG | Jump 0x915 ; case 0x15
08ce 7846 |xF | Jump 0x915 ; case 0x16
08cf 7845 |xE | Jump 0x915 ; case 0x17
08d0 7844 |xD | Jump 0x915 ; case 0x18
08d1 7845 |xE | Jump 0x917 ; case 0x19
08d2 7866 |xf | Jump 0x939 ; case 0x1a
08d3 7867 |xg | Jump 0x93b ; case 0x1b
08d4 786c |xl | Jump 0x941 ; case 0x1c
08d5 7843 |xC | Jump 0x919 ; case 0x1d
08d6 7846 |xF | Jump 0x91d ; case 0x1e
08d7 7847 |xG | Jump 0x91f ; case 0x1f
08d8 784a |xJ | Jump 0x923 ; case 0x20
08d9 784b |xK | Jump 0x925 ; case 0x21
08da 784c |xL | Jump 0x927 ; case 0x22
08db 784d |xM | Jump 0x929 ; case 0x23
08dc 784e |xN | Jump 0x92b ; case 0x24
08dd 7857 |xW | Jump 0x935 ; case 0x25
08de 784e |xN | Jump 0x92d ; case 0x26
08df 784f |xO | Jump 0x92f ; case 0x27
08e0 7852 |xR | Jump 0x933 ; case 0x28
08e1 7855 |xU | Jump 0x937 ; case 0x29
08e2 785a |xZ | Jump 0x93d ; case 0x2a
08e3 784d |xM | Jump 0x931 ; case 0x2b
08e4 785a |xZ | Jump 0x93f ; case 0x2c
08e5 785d |x] | Jump 0x943 ; case 0x2d
08e6 785e |x^ | Jump 0x945 ; case 0x2e
08e7 785f |x_ | Jump 0x947 ; case 0x2f
08e8 7860 |x` | Jump 0x949 ; case 0x30
08e9 7837 |x7 | Jump 0x921 ; case 0x31
08ea 782a |x* | Jump 0x915 ; case 0x32
08eb 782f |x/ | Jump 0x91b ; case 0x33
08ec 7828 |x( | Jump 0x915 ; case 0x34
08ed 7827 |x' | Jump 0x915 ; case 0x35
08ee 7826 |x& | Jump 0x915 ; case 0x36
08ef 7825 |x% | Jump 0x915 ; case 0x37
08f0 7824 |x$ | Jump 0x915 ; case 0x38
08f1 7823 |x# | Jump 0x915 ; case 0x39
08f2 7822 |x" | Jump 0x915 ; case 0x3a
08f3 7821 |x! | Jump 0x915 ; case 0x3b
08f4 7820 |x | Jump 0x915 ; case 0x3c
08f5 781f |x | Jump 0x915 ; case 0x3d
08f6 781e |x | Jump 0x915 ; case 0x3e
08f7 781d |x | Jump 0x915 ; case 0x3f
08f8 781c |x | Jump 0x915 ; case 0x40
08f9 781b |x | Jump 0x915 ; case 0x41
08fa 781a |x | Jump 0x915 ; case 0x42
08fb 7819 |x | Jump 0x915 ; case 0x43
08fc 7818 |x | Jump 0x915 ; case 0x44
08fd 7817 |x | Jump 0x915 ; case 0x45
08fe 7816 |x | Jump 0x915 ; case 0x46
08ff 7815 |x | Jump 0x915 ; case 0x47
0900 7814 |x | Jump 0x915 ; case 0x48
0901 7813 |x | Jump 0x915 ; case 0x49
0902 7812 |x | Jump 0x915 ; case 0x4a
0903 7811 |x | Jump 0x915 ; case 0x4b
0904 7810 |x | Jump 0x915 ; case 0x4c
0905 780f |x | Jump 0x915 ; case 0x4d
0906 780e |x | Jump 0x915 ; case 0x4e
0907 780d |x | Jump 0x915 ; case 0x4f
0908 780c |x | Jump 0x915 ; case 0x50
0909 780b |x | Jump 0x915 ; case 0x51
090a 780a |x | Jump 0x915 ; case 0x52
090b 7809 |x | Jump 0x915 ; case 0x53
090c 7808 |x | Jump 0x915 ; case 0x54
090d 7807 |x | Jump 0x915 ; case 0x55
090e 7806 |x | Jump 0x915 ; case 0x56
090f 7805 |x | Jump 0x915 ; case 0x57
0910 7804 |x | Jump 0x915 ; case 0x58
0911 7800 |x | Jump 0x912 ; case 0x59
0912 480d |H | Short_Literal 0xd
0913 4401 |D | Exit_Subprogram With_Result,0x1
0914 00d1 | | Pop_Control Pop_Count_1
0915 481a |H | Short_Literal 0x1a
0916 4401 |D | Exit_Subprogram With_Result,0x1
0917 4800 |H | Short_Literal 0x0
0918 4401 |D | Exit_Subprogram With_Result,0x1
0919 4801 |H | Short_Literal 0x1
091a 4401 |D | Exit_Subprogram With_Result,0x1
091b 4806 |H | Short_Literal 0x6
091c 4401 |D | Exit_Subprogram With_Result,0x1
091d 4802 |H | Short_Literal 0x2
091e 4401 |D | Exit_Subprogram With_Result,0x1
091f 4803 |H | Short_Literal 0x3
0920 4401 |D | Exit_Subprogram With_Result,0x1
0921 4804 |H | Short_Literal 0x4
0922 4401 |D | Exit_Subprogram With_Result,0x1
0923 4805 |H | Short_Literal 0x5
0924 4401 |D | Exit_Subprogram With_Result,0x1
0925 4806 |H | Short_Literal 0x6
0926 4401 |D | Exit_Subprogram With_Result,0x1
0927 4807 |H | Short_Literal 0x7
0928 4401 |D | Exit_Subprogram With_Result,0x1
0929 4808 |H | Short_Literal 0x8
092a 4401 |D | Exit_Subprogram With_Result,0x1
092b 4809 |H | Short_Literal 0x9
092c 4401 |D | Exit_Subprogram With_Result,0x1
092d 480a |H | Short_Literal 0xa
092e 4401 |D | Exit_Subprogram With_Result,0x1
092f 480b |H | Short_Literal 0xb
0930 4401 |D | Exit_Subprogram With_Result,0x1
0931 480c |H | Short_Literal 0xc
0932 4401 |D | Exit_Subprogram With_Result,0x1
0933 480e |H | Short_Literal 0xe
0934 4401 |D | Exit_Subprogram With_Result,0x1
0935 480f |H | Short_Literal 0xf
0936 4401 |D | Exit_Subprogram With_Result,0x1
0937 4810 |H | Short_Literal 0x10
0938 4401 |D | Exit_Subprogram With_Result,0x1
0939 4811 |H | Short_Literal 0x11
093a 4401 |D | Exit_Subprogram With_Result,0x1
093b 4812 |H | Short_Literal 0x12
093c 4401 |D | Exit_Subprogram With_Result,0x1
093d 4813 |H | Short_Literal 0x13
093e 4401 |D | Exit_Subprogram With_Result,0x1
093f 4814 |H | Short_Literal 0x14
0940 4401 |D | Exit_Subprogram With_Result,0x1
0941 4815 |H | Short_Literal 0x15
0942 4401 |D | Exit_Subprogram With_Result,0x1
0943 4816 |H | Short_Literal 0x16
0944 4401 |D | Exit_Subprogram With_Result,0x1
0945 4817 |H | Short_Literal 0x17
0946 4401 |D | Exit_Subprogram With_Result,0x1
0947 4818 |H | Short_Literal 0x18
0948 4401 |D | Exit_Subprogram With_Result,0x1
0949 4819 |H | Short_Literal 0x19
094a 4401 |D | Exit_Subprogram With_Result,0x1
094b 0000 0000 | | .BLANK 0000[0x5]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0962 | b | .CONST 0x0962 ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0006 | | .CONST 0x0006 ; Number of locals
0953 INIT_0950:
0953 00ec | | Load_Encached Diana_Tree_Cache
0954 02c7 | | Declare_Variable Any
0955 00db | | Load_Top At_Offset_3
0956 a602 | | Store_Unchecked 0x3,0x2
0957 00ec | | Load_Encached Diana_Tree_Cache
0958 02c7 | | Declare_Variable Any
0959 00d8 | | Load_Top At_Offset_0
095a 1c00 | | Execute_Immediate Run_Utility,0x0
095b 00ec | | Load_Encached Diana_Tree_Cache
095c 02c7 | | Declare_Variable Any
095d 00d8 | | Load_Top At_Offset_0
095e 1c00 | | Execute_Immediate Run_Utility,0x0
095f 00e1 | | Load_Encached Boolean_Cache
0960 e014 | | Load 0x0,0x14
0961 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0962 BODY_0950:
0962 e014 | | Load 0x0,0x14
0963 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0964 e603 | | Load 0x3,0x3
0965 0120 | | Execute Any,Is_Value
0966 6804 |h | Jump_Zero 0x96b
0967 e014 | | Load 0x0,0x14
0968 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0969 1b16 | | Execute Package,Field_Read,Field_Number 0x16
096a 7801 |x | Jump 0x96c
096b e603 | | Load 0x3,0x3
096c e7ff | | Load 0x3,-0x1
096d e014 | | Load 0x0,0x14
096e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
096f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0970 c603 | | Store 0x3,0x3
0971 0059 | Y | Store_Top Discrete,At_Offset_1
0972 00d8 | | Load_Top At_Offset_0
0973 6802 |h | Jump_Zero 0x976
0974 4806 |H | Short_Literal 0x6
0975 4401 |D | Exit_Subprogram With_Result,0x1
0976 00db | | Load_Top At_Offset_3
0977 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0978 0fa8 | | Execute_Immediate Equal,0xa8
0979 6824 |h$ | Jump_Zero 0x99e
097a 00db | | Load_Top At_Offset_3
097b 00eb | | Load_Encached Diana_Cache
097c 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
097d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
097e 00d8 | | Load_Top At_Offset_0
097f 0d3d | = | Execute_Immediate Less,0x3d
0980 700f |p | Jump_Nonzero 0x990
0981 00d8 | | Load_Top At_Offset_0
0982 0c41 | A | Execute_Immediate Greater_Equal,0x41
0983 7005 |p | Jump_Nonzero 0x989
0984 0b3d | = | Execute_Immediate Case_Compare,0x3d
0985 700c |p | Jump_Nonzero 0x992
0986 0f3e | > | Execute_Immediate Equal,0x3e
0987 700e |p | Jump_Nonzero 0x996
0988 08e2 | | Execute_Immediate Raise,0xe2
0989 0b41 | A | Execute_Immediate Case_Compare,0x41
098a 700a |p | Jump_Nonzero 0x995
098b 4847 |HG | Short_Literal 0x47
098c 4849 |HI | Short_Literal 0x49
098d 0262 | b | Execute Discrete,In_Range
098e 700a |p | Jump_Nonzero 0x999
098f 7ff8 | | Jump 0x988
0990 680b |h | Jump_Zero 0x99c
0991 7ff6 | | Jump 0x988
0992 00d1 | | Pop_Control Pop_Count_1
0993 4800 |H | Short_Literal 0x0
0994 4401 |D | Exit_Subprogram With_Result,0x1
0995 00d1 | | Pop_Control Pop_Count_1
0996 4801 |H | Short_Literal 0x1
0997 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0998 7807 |x | Jump 0x9a0
0999 4800 |H | Short_Literal 0x0
099a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
099b 7804 |x | Jump 0x9a0
099c 4806 |H | Short_Literal 0x6
099d 4401 |D | Exit_Subprogram With_Result,0x1
099e 4800 |H | Short_Literal 0x0
099f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
09a0 00cf | | Action Mark_Auxiliary
09a1 e602 | | Load 0x3,0x2
09a2 c604 | | Store 0x3,0x4
09a3 e602 | | Load 0x3,0x2
09a4 00eb | | Load_Encached Diana_Cache
09a5 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09a6 c602 | | Store 0x3,0x2
09a7 e602 | | Load 0x3,0x2
09a8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09a9 00d8 | | Load_Top At_Offset_0
09aa 0d3e | > | Execute_Immediate Less,0x3e
09ab 7014 |p | Jump_Nonzero 0x9c0
09ac 00d8 | | Load_Top At_Offset_0
09ad 0c47 | G | Execute_Immediate Greater_Equal,0x47
09ae 7005 |p | Jump_Nonzero 0x9b4
09af 0b3e | > | Execute_Immediate Case_Compare,0x3e
09b0 705f |p_ | Jump_Nonzero 0xa10
09b1 0f41 | A | Execute_Immediate Equal,0x41
09b2 7033 |p3 | Jump_Nonzero 0x9e6
09b3 7863 |xc | Jump 0xa17
09b4 0b47 | G | Execute_Immediate Case_Compare,0x47
09b5 7021 |p! | Jump_Nonzero 0x9d7
09b6 0b48 | H | Execute_Immediate Case_Compare,0x48
09b7 7022 |p" | Jump_Nonzero 0x9da
09b8 00d8 | | Load_Top At_Offset_0
09b9 487a |Hz | Short_Literal 0x7a
09ba 487b |H{ | Short_Literal 0x7b
09bb 0262 | b | Execute Discrete,In_Range
09bc 7026 |p& | Jump_Nonzero 0x9e3
09bd 0f7c | | | Execute_Immediate Equal,0x7c
09be 7006 |p | Jump_Nonzero 0x9c5
09bf 7857 |xW | Jump 0xa17
09c0 4801 |H | Short_Literal 0x1
09c1 483d |H= | Short_Literal 0x3d
09c2 0262 | b | Execute Discrete,In_Range
09c3 7053 |pS | Jump_Nonzero 0xa17
09c4 7818 |x | Jump 0x9dd
09c5 e602 | | Load 0x3,0x2
09c6 00eb | | Load_Encached Diana_Cache
09c7 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
09c8 e604 | | Load 0x3,0x4
09c9 012f | / | Execute Any,Equal
09ca 6806 |h | Jump_Zero 0x9d1
09cb 00da | | Load_Top At_Offset_2
09cc 6802 |h | Jump_Zero 0x9cf
09cd 4801 |H | Short_Literal 0x1
09ce 4401 |D | Exit_Subprogram With_Result,0x1
09cf 4803 |H | Short_Literal 0x3
09d0 4401 |D | Exit_Subprogram With_Result,0x1
09d1 00da | | Load_Top At_Offset_2
09d2 6802 |h | Jump_Zero 0x9d5
09d3 4802 |H | Short_Literal 0x2
09d4 4401 |D | Exit_Subprogram With_Result,0x1
09d5 4804 |H | Short_Literal 0x4
09d6 4401 |D | Exit_Subprogram With_Result,0x1
09d7 00d1 | | Pop_Control Pop_Count_1
09d8 4805 |H | Short_Literal 0x5
09d9 4401 |D | Exit_Subprogram With_Result,0x1
09da 00d1 | | Pop_Control Pop_Count_1
09db 4806 |H | Short_Literal 0x6
09dc 4401 |D | Exit_Subprogram With_Result,0x1
09dd 00da | | Load_Top At_Offset_2
09de 6802 |h | Jump_Zero 0x9e1
09df 4800 |H | Short_Literal 0x0
09e0 4401 |D | Exit_Subprogram With_Result,0x1
09e1 4806 |H | Short_Literal 0x6
09e2 4401 |D | Exit_Subprogram With_Result,0x1
09e3 00d1 | | Pop_Control Pop_Count_1
09e4 4806 |H | Short_Literal 0x6
09e5 4401 |D | Exit_Subprogram With_Result,0x1
09e6 00db | | Load_Top At_Offset_3
09e7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09e8 0b22 | " | Execute_Immediate Case_Compare,0x22
09e9 7008 |p | Jump_Nonzero 0x9f2
09ea 0b7c | | | Execute_Immediate Case_Compare,0x7c
09eb 701b |p | Jump_Nonzero 0xa07
09ec 487a |Hz | Short_Literal 0x7a
09ed 487b |H{ | Short_Literal 0x7b
09ee 0262 | b | Execute Discrete,In_Range
09ef 701e |p | Jump_Nonzero 0xa0e
09f0 4806 |H | Short_Literal 0x6
09f1 4401 |D | Exit_Subprogram With_Result,0x1
09f2 00d1 | | Pop_Control Pop_Count_1
09f3 e602 | | Load 0x3,0x2
09f4 00eb | | Load_Encached Diana_Cache
09f5 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
09f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09f7 0b7c | | | Execute_Immediate Case_Compare,0x7c
09f8 7005 |p | Jump_Nonzero 0x9fe
09f9 487a |Hz | Short_Literal 0x7a
09fa 487b |H{ | Short_Literal 0x7b
09fb 0262 | b | Execute Discrete,In_Range
09fc 7004 |p | Jump_Nonzero 0xa01
09fd 08e2 | | Execute_Immediate Raise,0xe2
09fe 00d1 | | Pop_Control Pop_Count_1
09ff 4801 |H | Short_Literal 0x1
0a00 4401 |D | Exit_Subprogram With_Result,0x1
0a01 00da | | Load_Top At_Offset_2
0a02 6802 |h | Jump_Zero 0xa05
0a03 4800 |H | Short_Literal 0x0
0a04 4401 |D | Exit_Subprogram With_Result,0x1
0a05 4806 |H | Short_Literal 0x6
0a06 4401 |D | Exit_Subprogram With_Result,0x1
0a07 00d1 | | Pop_Control Pop_Count_1
0a08 00da | | Load_Top At_Offset_2
0a09 6802 |h | Jump_Zero 0xa0c
0a0a 4801 |H | Short_Literal 0x1
0a0b 4401 |D | Exit_Subprogram With_Result,0x1
0a0c 4803 |H | Short_Literal 0x3
0a0d 4401 |D | Exit_Subprogram With_Result,0x1
0a0e 4806 |H | Short_Literal 0x6
0a0f 4401 |D | Exit_Subprogram With_Result,0x1
0a10 00d1 | | Pop_Control Pop_Count_1
0a11 00da | | Load_Top At_Offset_2
0a12 6802 |h | Jump_Zero 0xa15
0a13 4801 |H | Short_Literal 0x1
0a14 4401 |D | Exit_Subprogram With_Result,0x1
0a15 4803 |H | Short_Literal 0x3
0a16 4401 |D | Exit_Subprogram With_Result,0x1
0a17 00c9 | | Action Pop_Auxiliary_Loop
0a18 7f88 | | Jump 0x9a1
0a19 0000 0000 | | .BLANK 0000[0x7]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a2c | , | .CONST 0x0a2c ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0005 | | .CONST 0x0005 ; Number of locals
0a23 INIT_0a20:
0a23 00e3 | | Load_Encached Natural_Cache
0a24 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a25 e014 | | Load 0x0,0x14
0a26 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a27 00ec | | Load_Encached Diana_Tree_Cache
0a28 02c7 | | Declare_Variable Any
0a29 00d8 | | Load_Top At_Offset_0
0a2a 1c00 | | Execute_Immediate Run_Utility,0x0
0a2b e247 | G | Load 0x1,0x47
0a2c BODY_0a20:
0a2c 00cf | | Action Mark_Auxiliary
0a2d 7809 |x | Jump 0xa37
0a2e e602 | | Load 0x3,0x2
0a2f 0a01 | | Execute_Immediate Plus,0x1
0a30 c602 | | Store 0x3,0x2
0a31 e7ff | | Load 0x3,-0x1
0a32 e015 | | Load 0x0,0x15
0a33 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a34 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0a35 c7ff | | Store 0x3,-0x1
0a36 00c9 | | Action Pop_Auxiliary_Loop
0a37 e7ff | | Load 0x3,-0x1
0a38 e015 | | Load 0x0,0x15
0a39 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a3a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0a3b 6ff2 |o | Jump_Zero 0xa2e
0a3c 00ce | | Action Pop_Auxiliary
0a3d 00db | | Load_Top At_Offset_3
0a3e 7003 |p | Jump_Nonzero 0xa42
0a3f e247 | G | Load 0x1,0x47
0a40 a7fe | | Store_Unchecked 0x3,-0x2
0a41 4501 |E | Exit_Subprogram 0x1
0a42 e7ff | | Load 0x3,-0x1
0a43 e015 | | Load 0x0,0x15
0a44 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a45 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0a46 4801 |H | Short_Literal 0x1
0a47 e602 | | Load 0x3,0x2
0a48 e247 | G | Load 0x1,0x47
0a49 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0a4a 0039 | 9 | Store_Top Access,At_Offset_1
0a4b 4800 |H | Short_Literal 0x0
0a4c a602 | | Store_Unchecked 0x3,0x2
0a4d 00cf | | Action Mark_Auxiliary
0a4e 7845 |xE | Jump 0xa94
0a4f e602 | | Load 0x3,0x2
0a50 0a01 | | Execute_Immediate Plus,0x1
0a51 c602 | | Store 0x3,0x2
0a52 e014 | | Load 0x0,0x14
0a53 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a54 00db | | Load_Top At_Offset_3
0a55 0120 | | Execute Any,Is_Value
0a56 6802 |h | Jump_Zero 0xa59
0a57 00ec | | Load_Encached Diana_Tree_Cache
0a58 7801 |x | Jump 0xa5a
0a59 00db | | Load_Top At_Offset_3
0a5a 6045 |`E | Indirect_Literal Discrete,0xaa0,{0x00000000, 0x00004000}
0a5b e01f | | Load 0x0,0x1f
0a5c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a5d e7ff | | Load 0x3,-0x1
0a5e e015 | | Load 0x0,0x15
0a5f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a60 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0a61 e015 | | Load 0x0,0x15
0a62 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a63 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0a64 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a65 c604 | | Store 0x3,0x4
0a66 c603 | | Store 0x3,0x3
0a67 00db | | Load_Top At_Offset_3
0a68 6816 |h | Jump_Zero 0xa7f
0a69 e014 | | Load 0x0,0x14
0a6a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a6b 00db | | Load_Top At_Offset_3
0a6c 0120 | | Execute Any,Is_Value
0a6d 6803 |h | Jump_Zero 0xa71
0a6e e014 | | Load 0x0,0x14
0a6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a70 7801 |x | Jump 0xa72
0a71 00db | | Load_Top At_Offset_3
0a72 602d |`- | Indirect_Literal Discrete,0xaa0,{0x00000000, 0x00004000}
0a73 e01f | | Load 0x0,0x1f
0a74 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a75 e7ff | | Load 0x3,-0x1
0a76 e015 | | Load 0x0,0x15
0a77 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a78 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0a79 e015 | | Load 0x0,0x15
0a7a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a7b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0a7c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a7d c604 | | Store 0x3,0x4
0a7e c603 | | Store 0x3,0x3
0a7f 00db | | Load_Top At_Offset_3
0a80 7007 |p | Jump_Nonzero 0xa88
0a81 00da | | Load_Top At_Offset_2
0a82 0210 | | Execute Heap_Access,Get_Segment
0a83 e602 | | Load 0x3,0x2
0a84 00db | | Load_Top At_Offset_3
0a85 0227 | ' | Execute Access,All_Reference
0a86 01d6 | | Execute Vector,Field_Write
0a87 7806 |x | Jump 0xa8e
0a88 e002 | | Load 0x0,0x2
0a89 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0a8a e602 | | Load 0x3,0x2
0a8b 00db | | Load_Top At_Offset_3
0a8c 0227 | ' | Execute Access,All_Reference
0a8d 01d6 | | Execute Vector,Field_Write
0a8e e7ff | | Load 0x3,-0x1
0a8f e015 | | Load 0x0,0x15
0a90 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a91 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0a92 c7ff | | Store 0x3,-0x1
0a93 00c9 | | Action Pop_Auxiliary_Loop
0a94 e7ff | | Load 0x3,-0x1
0a95 e015 | | Load 0x0,0x15
0a96 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a97 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0a98 6fb6 |o | Jump_Zero 0xa4f
0a99 00ce | | Action Pop_Auxiliary
0a9a 00d8 | | Load_Top At_Offset_0
0a9b a7fe | | Store_Unchecked 0x3,-0x2
0a9c 4501 |E | Exit_Subprogram 0x1
0a9d 0000 0000 | | .XXX[0x3]
0a9f 0000 | |
0aa0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0aa4 0000 0000 | | .BLANK 0000[0x4]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0ab0 | | .CONST 0x0ab0 ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0003 | | .CONST 0x0003 ; Number of locals
0aab INIT_0aa8:
0aab 00da | | Load_Top At_Offset_2
0aac 0210 | | Execute Heap_Access,Get_Segment
0aad 0007 | | Action Break_Optional
0aae 00e1 | | Load_Encached Boolean_Cache
0aaf 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0ab0 BODY_0aa8:
0ab0 e411 | | Load 0x2,0x11
0ab1 681f |h | Jump_Zero 0xad1
0ab2 00cf | | Action Mark_Auxiliary
0ab3 e411 | | Load 0x2,0x11
0ab4 0227 | ' | Execute Access,All_Reference
0ab5 01dc | | Execute Vector,Last
0ab6 4801 |H | Short_Literal 0x1
0ab7 0263 | c | Execute Discrete,Above_Bound
0ab8 7015 |p | Jump_Nonzero 0xace
0ab9 00d8 | | Load_Top At_Offset_0
0aba e411 | | Load 0x2,0x11
0abb 0227 | ' | Execute Access,All_Reference
0abc 01d7 | | Execute Vector,Field_Read
0abd e002 | | Load 0x0,0x2
0abe 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0abf 021e | | Execute Heap_Access,Maximum
0ac0 680b |h | Jump_Zero 0xacc
0ac1 4800 |H | Short_Literal 0x0
0ac2 a603 | | Store_Unchecked 0x3,0x3
0ac3 00d8 | | Load_Top At_Offset_0
0ac4 e411 | | Load 0x2,0x11
0ac5 0227 | ' | Execute Access,All_Reference
0ac6 01d7 | | Execute Vector,Field_Read
0ac7 e602 | | Load 0x3,0x2
0ac8 021f | | Execute Heap_Access,Equal
0ac9 6802 |h | Jump_Zero 0xacc
0aca 4801 |H | Short_Literal 0x1
0acb 4401 |D | Exit_Subprogram With_Result,0x1
0acc 00c8 | | Action Pop_Auxiliary_Range
0acd 3feb |? | Loop_Increasing 0xab9
0ace 00ce | | Action Pop_Auxiliary
0acf 00d8 | | Load_Top At_Offset_0
0ad0 4401 |D | Exit_Subprogram With_Result,0x1
0ad1 e412 | | Load 0x2,0x12
0ad2 681f |h | Jump_Zero 0xaf2
0ad3 00cf | | Action Mark_Auxiliary
0ad4 e412 | | Load 0x2,0x12
0ad5 0227 | ' | Execute Access,All_Reference
0ad6 01dc | | Execute Vector,Last
0ad7 4801 |H | Short_Literal 0x1
0ad8 0263 | c | Execute Discrete,Above_Bound
0ad9 7016 |p | Jump_Nonzero 0xaf0
0ada 00d8 | | Load_Top At_Offset_0
0adb e411 | | Load 0x2,0x11
0adc 0227 | ' | Execute Access,All_Reference
0add 01d7 | | Execute Vector,Field_Read
0ade e002 | | Load 0x0,0x2
0adf 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0ae0 021e | | Execute Heap_Access,Maximum
0ae1 680b |h | Jump_Zero 0xaed
0ae2 4800 |H | Short_Literal 0x0
0ae3 a603 | | Store_Unchecked 0x3,0x3
0ae4 00d8 | | Load_Top At_Offset_0
0ae5 e412 | | Load 0x2,0x12
0ae6 0227 | ' | Execute Access,All_Reference
0ae7 01d7 | | Execute Vector,Field_Read
0ae8 e602 | | Load 0x3,0x2
0ae9 021f | | Execute Heap_Access,Equal
0aea 6802 |h | Jump_Zero 0xaed
0aeb 4800 |H | Short_Literal 0x0
0aec 4401 |D | Exit_Subprogram With_Result,0x1
0aed 00db | | Load_Top At_Offset_3
0aee 0f00 | | Execute_Immediate Equal,0x0
0aef 4401 |D | Exit_Subprogram With_Result,0x1
0af0 00ce | | Action Pop_Auxiliary
0af1 7802 |x | Jump 0xaf4
0af2 4801 |H | Short_Literal 0x1
0af3 4401 |D | Exit_Subprogram With_Result,0x1
0af4 0831 | 1 | Execute_Immediate Raise,0x31
0af5 0000 0000 | | .XXX[0x3]
0af7 0000 | |
0af8 ; --------------------------------------------------------------------------------------
0af8 ; SUBPROGRAM
0af8 ; --------------------------------------------------------------------------------------
0af8 0b2d | - | .CONST 0x0b2d ; Address of begin
0af9 0004 | | .CONST 0x0004 ; Address of exception handler
0afa 0011 | | .CONST 0x0011 ; Number of locals
0afb INIT_0af8:
0afb 00eb | | Load_Encached Diana_Cache
0afc 1b82 | | Execute Package,Field_Read,Field_Number 0x82
0afd 00eb | | Load_Encached Diana_Cache
0afe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aff 00ee | | Load_Encached Diana_Seq_Type_Cache
0b00 02c7 | | Declare_Variable Any
0b01 00d8 | | Load_Top At_Offset_0
0b02 1c00 | | Execute_Immediate Run_Utility,0x0
0b03 00ec | | Load_Encached Diana_Tree_Cache
0b04 02c7 | | Declare_Variable Any
0b05 00d8 | | Load_Top At_Offset_0
0b06 1c00 | | Execute_Immediate Run_Utility,0x0
0b07 e7fe | | Load 0x3,-0x2
0b08 00e3 | | Load_Encached Natural_Cache
0b09 03f1 | | Declare_Variable Discrete,With_Value
0b0a 00e1 | | Load_Encached Boolean_Cache
0b0b e001 | | Load 0x0,0x1
0b0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b0d 02c7 | | Declare_Variable Any
0b0e 00d8 | | Load_Top At_Offset_0
0b0f 1c00 | | Execute_Immediate Run_Utility,0x0
0b10 e001 | | Load 0x0,0x1
0b11 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b12 02c7 | | Declare_Variable Any
0b13 00d8 | | Load_Top At_Offset_0
0b14 1c00 | | Execute_Immediate Run_Utility,0x0
0b15 00e3 | | Load_Encached Natural_Cache
0b16 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b17 e015 | | Load 0x0,0x15
0b18 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b19 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b1a 02c7 | | Declare_Variable Any
0b1b 00d8 | | Load_Top At_Offset_0
0b1c 1c00 | | Execute_Immediate Run_Utility,0x0
0b1d e7fc | | Load 0x3,-0x4
0b1e e214 | | Load 0x1,0x14
0b1f 03f1 | | Declare_Variable Discrete,With_Value
0b20 00ef | | Load_Encached Diana_Sequence_Cache
0b21 02c7 | | Declare_Variable Any
0b22 00d8 | | Load_Top At_Offset_0
0b23 1c00 | | Execute_Immediate Run_Utility,0x0
0b24 00ef | | Load_Encached Diana_Sequence_Cache
0b25 02c7 | | Declare_Variable Any
0b26 00d8 | | Load_Top At_Offset_0
0b27 1c00 | | Execute_Immediate Run_Utility,0x0
0b28 00e3 | | Load_Encached Natural_Cache
0b29 029f 0e0b | | Declare_Subprogram For_Call,INIT_0e08
0b2b 029f 0e2b | +| Declare_Subprogram For_Call,INIT_0e28
0b2d BODY_0af8:
0b2d e7ff | | Load 0x3,-0x1
0b2e 7001 |p | Jump_Nonzero 0xb30
0b2f 4505 |E | Exit_Subprogram 0x5
0b30 e7ff | | Load 0x3,-0x1
0b31 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b32 008e | | Execute Discrete,Diana_Arity_For_Kind
0b33 a602 | | Store_Unchecked 0x3,0x2
0b34 e7ff | | Load 0x3,-0x1
0b35 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b36 a603 | | Store_Unchecked 0x3,0x3
0b37 4800 |H | Short_Literal 0x0
0b38 a607 | | Store_Unchecked 0x3,0x7
0b39 e7ff | | Load 0x3,-0x1
0b3a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b3b 00d8 | | Load_Top At_Offset_0
0b3c 0d3d | = | Execute_Immediate Less,0x3d
0b3d 701b |p | Jump_Nonzero 0xb59
0b3e 00d8 | | Load_Top At_Offset_0
0b3f 0c49 | I | Execute_Immediate Greater_Equal,0x49
0b40 7015 |p | Jump_Nonzero 0xb56
0b41 0ac3 | | Execute_Immediate Plus,-0x3d
0b42 460b |F | Jump_Case 0xb
0b43 780b |x | Jump 0xb4f ; case 0x0
0b44 7816 |x | Jump 0xb5b ; case 0x1
0b45 783e |x> | Jump 0xb84 ; case 0x2
0b46 783d |x= | Jump 0xb84 ; case 0x3
0b47 7813 |x | Jump 0xb5b ; case 0x4
0b48 783b |x; | Jump 0xb84 ; case 0x5
0b49 783a |x: | Jump 0xb84 ; case 0x6
0b4a 7839 |x9 | Jump 0xb84 ; case 0x7
0b4b 7838 |x8 | Jump 0xb84 ; case 0x8
0b4c 7837 |x7 | Jump 0xb84 ; case 0x9
0b4d 780d |x | Jump 0xb5b ; case 0xa
0b4e 7800 |x | Jump 0xb4f ; case 0xb
0b4f 4801 |H | Short_Literal 0x1
0b50 a607 | | Store_Unchecked 0x3,0x7
0b51 e7ff | | Load 0x3,-0x1
0b52 00eb | | Load_Encached Diana_Cache
0b53 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0b54 c605 | | Store 0x3,0x5
0b55 782e |x. | Jump 0xb84
0b56 0f77 | w | Execute_Immediate Equal,0x77
0b57 700a |p | Jump_Nonzero 0xb62
0b58 782b |x+ | Jump 0xb84
0b59 00d1 | | Pop_Control Pop_Count_1
0b5a 7829 |x) | Jump 0xb84
0b5b 4801 |H | Short_Literal 0x1
0b5c a607 | | Store_Unchecked 0x3,0x7
0b5d e7ff | | Load 0x3,-0x1
0b5e 00eb | | Load_Encached Diana_Cache
0b5f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0b60 c605 | | Store 0x3,0x5
0b61 7822 |x" | Jump 0xb84
0b62 e7ff | | Load 0x3,-0x1
0b63 00eb | | Load_Encached Diana_Cache
0b64 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b65 4976 |Iv | Short_Literal 0x176
0b66 00eb | | Load_Encached Diana_Cache
0b67 0098 | | Execute Package,Field_Read_Dynamic
0b68 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b69 c605 | | Store 0x3,0x5
0b6a 4801 |H | Short_Literal 0x1
0b6b e40d | | Load 0x2,0xd
0b6c e605 | | Load 0x3,0x5
0b6d 00eb | | Load_Encached Diana_Cache
0b6e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0b6f 00eb | | Load_Encached Diana_Cache
0b70 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0b71 e015 | | Load 0x0,0x15
0b72 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b73 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0b74 c60b | | Store 0x3,0xb
0b75 e60b | | Load 0x3,0xb
0b76 e015 | | Load 0x0,0x15
0b77 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b78 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0b79 700a |p | Jump_Nonzero 0xb84
0b7a 00e1 | | Load_Encached Boolean_Cache
0b7b e015 | | Load 0x0,0x15
0b7c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b7d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b7e e40d | | Load 0x2,0xd
0b7f e409 | | Load 0x2,0x9
0b80 e015 | | Load 0x0,0x15
0b81 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b82 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0b83 c40f | | Store 0x2,0xf
0b84 e607 | | Load 0x3,0x7
0b85 684b |hK | Jump_Zero 0xbd1
0b86 4801 |H | Short_Literal 0x1
0b87 e24c | L | Load 0x1,0x4c
0b88 0092 1129 | )| Action Push_String_Extended,0x1129 ; "'"
0b8a e605 | | Load 0x3,0x5
0b8b e014 | | Load 0x0,0x14
0b8c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b8d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0b8e 01cc | | Execute Vector,Catenate
0b8f e001 | | Load 0x0,0x1
0b90 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b91 c608 | | Store 0x3,0x8
0b92 e608 | | Load 0x3,0x8
0b93 e404 | | Load 0x2,0x4
0b94 e001 | | Load 0x0,0x1
0b95 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0b96 6802 |h | Jump_Zero 0xb99
0b97 e403 | | Load 0x2,0x3
0b98 c608 | | Store 0x3,0x8
0b99 e251 | Q | Load 0x1,0x51
0b9a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b9b 0a01 | | Execute_Immediate Plus,0x1
0b9c e251 | Q | Load 0x1,0x51
0b9d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b9e e240 | @ | Load 0x1,0x40
0b9f 0322 | " | Declare_Variable Record
0ba0 4801 |H | Short_Literal 0x1
0ba1 e24c | L | Load 0x1,0x4c
0ba2 e605 | | Load 0x3,0x5
0ba3 e014 | | Load 0x0,0x14
0ba4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ba5 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0ba6 e608 | | Load 0x3,0x8
0ba7 e001 | | Load 0x0,0x1
0ba8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ba9 01cc | | Execute Vector,Catenate
0baa e001 | | Load 0x0,0x1
0bab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bac e240 | @ | Load 0x1,0x40
0bad 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0bae 0119 | | Execute Any,Check_In_Formal_Type
0baf 00d9 | | Load_Top At_Offset_1
0bb0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bb1 e7fd | | Load 0x3,-0x3
0bb2 00d9 | | Load_Top At_Offset_1
0bb3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bb4 e605 | | Load 0x3,0x5
0bb5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0bb6 8419 | | Call 0x2,0x19
0bb7 00d9 | | Load_Top At_Offset_1
0bb8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0bb9 e605 | | Load 0x3,0x5
0bba e240 | @ | Load 0x1,0x40
0bbb 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0bbc 0119 | | Execute Any,Check_In_Formal_Type
0bbd 00d9 | | Load_Top At_Offset_1
0bbe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0bbf 4800 |H | Short_Literal 0x0
0bc0 00d9 | | Load_Top At_Offset_1
0bc1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0bc2 4806 |H | Short_Literal 0x6
0bc3 00d9 | | Load_Top At_Offset_1
0bc4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0bc5 e251 | Q | Load 0x1,0x51
0bc6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bc7 00d8 | | Load_Top At_Offset_0
0bc8 00e3 | | Load_Encached Natural_Cache
0bc9 0260 | ` | Execute Discrete,In_Type
0bca 7001 |p | Jump_Nonzero 0xbcc
0bcb 0801 | | Execute_Immediate Raise,0x1
0bcc 824f | O | Call 0x1,0x4f
0bcd 0218 | | Execute Heap_Access,All_Write
0bce e251 | Q | Load 0x1,0x51
0bcf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bd0 c606 | | Store 0x3,0x6
0bd1 e7ff | | Load 0x3,-0x1
0bd2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0bd3 00d8 | | Load_Top At_Offset_0
0bd4 0d0d | | Execute_Immediate Less,0xd
0bd5 709a |p | Jump_Nonzero 0xc70
0bd6 00d8 | | Load_Top At_Offset_0
0bd7 0c18 | | Execute_Immediate Greater_Equal,0x18
0bd8 7092 |p | Jump_Nonzero 0xc6b
0bd9 0af3 | | Execute_Immediate Plus,-0xd
0bda 460a |F | Jump_Case 0xa
0bdb 7944 |yD | Jump 0xd20 ; case 0x0
0bdc 7894 |x | Jump 0xc71 ; case 0x1
0bdd 7893 |x | Jump 0xc71 ; case 0x2
0bde 78db |x | Jump 0xcba ; case 0x3
0bdf 7891 |x | Jump 0xc71 ; case 0x4
0be0 7890 |x | Jump 0xc71 ; case 0x5
0be1 788f |x | Jump 0xc71 ; case 0x6
0be2 7803 |x | Jump 0xbe6 ; case 0x7
0be3 788d |x | Jump 0xc71 ; case 0x8
0be4 7801 |x | Jump 0xbe6 ; case 0x9
0be5 7800 |x | Jump 0xbe6 ; case 0xa
0be6 e7ff | | Load 0x3,-0x1
0be7 00eb | | Load_Encached Diana_Cache
0be8 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0be9 c605 | | Store 0x3,0x5
0bea e605 | | Load 0x3,0x5
0beb 687e |h~ | Jump_Zero 0xc6a
0bec e605 | | Load 0x3,0x5
0bed 841c | | Call 0x2,0x1c
0bee 687b |h{ | Jump_Zero 0xc6a
0bef 00e1 | | Load_Encached Boolean_Cache
0bf0 e60a | | Load 0x3,0xa
0bf1 e605 | | Load 0x3,0x5
0bf2 e410 | | Load 0x2,0x10
0bf3 e402 | | Load 0x2,0x2
0bf4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0bf5 c60a | | Store 0x3,0xa
0bf6 c607 | | Store 0x3,0x7
0bf7 e607 | | Load 0x3,0x7
0bf8 7057 |pW | Jump_Nonzero 0xc50
0bf9 4801 |H | Short_Literal 0x1
0bfa e24c | L | Load 0x1,0x4c
0bfb 0092 1129 | )| Action Push_String_Extended,0x1129 ; "'"
0bfd e605 | | Load 0x3,0x5
0bfe e014 | | Load 0x0,0x14
0bff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0c00 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0c01 01cc | | Execute Vector,Catenate
0c02 e001 | | Load 0x0,0x1
0c03 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0c04 c608 | | Store 0x3,0x8
0c05 e608 | | Load 0x3,0x8
0c06 e404 | | Load 0x2,0x4
0c07 e001 | | Load 0x0,0x1
0c08 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0c09 6802 |h | Jump_Zero 0xc0c
0c0a e403 | | Load 0x2,0x3
0c0b c608 | | Store 0x3,0x8
0c0c e251 | Q | Load 0x1,0x51
0c0d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c0e 0a01 | | Execute_Immediate Plus,0x1
0c0f e251 | Q | Load 0x1,0x51
0c10 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c11 4801 |H | Short_Literal 0x1
0c12 e24c | L | Load 0x1,0x4c
0c13 e605 | | Load 0x3,0x5
0c14 8610 | | Call 0x3,0x10
0c15 e608 | | Load 0x3,0x8
0c16 e001 | | Load 0x0,0x1
0c17 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c18 01cc | | Execute Vector,Catenate
0c19 e001 | | Load 0x0,0x1
0c1a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0c1b c609 | | Store 0x3,0x9
0c1c e609 | | Load 0x3,0x9
0c1d e001 | | Load 0x0,0x1
0c1e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c1f 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0c20 e240 | @ | Load 0x1,0x40
0c21 0322 | " | Declare_Variable Record
0c22 e609 | | Load 0x3,0x9
0c23 e240 | @ | Load 0x1,0x40
0c24 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0c25 0119 | | Execute Any,Check_In_Formal_Type
0c26 00d9 | | Load_Top At_Offset_1
0c27 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c28 00db | | Load_Top At_Offset_3
0c29 00d9 | | Load_Top At_Offset_1
0c2a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c2b e605 | | Load 0x3,0x5
0c2c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0c2d 8419 | | Call 0x2,0x19
0c2e 00d9 | | Load_Top At_Offset_1
0c2f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c30 e605 | | Load 0x3,0x5
0c31 e240 | @ | Load 0x1,0x40
0c32 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0c33 0119 | | Execute Any,Check_In_Formal_Type
0c34 00d9 | | Load_Top At_Offset_1
0c35 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c36 4800 |H | Short_Literal 0x0
0c37 00d9 | | Load_Top At_Offset_1
0c38 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c39 e605 | | Load 0x3,0x5
0c3a 841a | | Call 0x2,0x1a
0c3b 00d9 | | Load_Top At_Offset_1
0c3c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c3d e251 | Q | Load 0x1,0x51
0c3e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c3f 00d8 | | Load_Top At_Offset_0
0c40 00e3 | | Load_Encached Natural_Cache
0c41 0260 | ` | Execute Discrete,In_Type
0c42 7001 |p | Jump_Nonzero 0xc44
0c43 0801 | | Execute_Immediate Raise,0x1
0c44 824e | N | Call 0x1,0x4e
0c45 0218 | | Execute Heap_Access,All_Write
0c46 e251 | Q | Load 0x1,0x51
0c47 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c48 c60a | | Store 0x3,0xa
0c49 e410 | | Load 0x2,0x10
0c4a 4800 |H | Short_Literal 0x0
0c4b e60a | | Load 0x3,0xa
0c4c e605 | | Load 0x3,0x5
0c4d e402 | | Load 0x2,0x2
0c4e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c4f c410 | | Store 0x2,0x10
0c50 e251 | Q | Load 0x1,0x51
0c51 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c52 0a01 | | Execute_Immediate Plus,0x1
0c53 e251 | Q | Load 0x1,0x51
0c54 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c55 e242 | B | Load 0x1,0x42
0c56 0322 | " | Declare_Variable Record
0c57 e60a | | Load 0x3,0xa
0c58 00d9 | | Load_Top At_Offset_1
0c59 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c5a e606 | | Load 0x3,0x6
0c5b 00d9 | | Load_Top At_Offset_1
0c5c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c5d e7ff | | Load 0x3,-0x1
0c5e e242 | B | Load 0x1,0x42
0c5f 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0c60 0119 | | Execute Any,Check_In_Formal_Type
0c61 00d9 | | Load_Top At_Offset_1
0c62 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c63 e60c | | Load 0x3,0xc
0c64 00d9 | | Load_Top At_Offset_1
0c65 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c66 e251 | Q | Load 0x1,0x51
0c67 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c68 8250 | P | Call 0x1,0x50
0c69 0218 | | Execute Heap_Access,All_Write
0c6a 4505 |E | Exit_Subprogram 0x5
0c6b 0b4d | M | Execute_Immediate Case_Compare,0x4d
0c6c 70cc |p | Jump_Nonzero 0xd39
0c6d 0f5b | [ | Execute_Immediate Equal,0x5b
0c6e 704b |pK | Jump_Nonzero 0xcba
0c6f 7801 |x | Jump 0xc71
0c70 00d1 | | Pop_Control Pop_Count_1
0c71 e602 | | Load 0x3,0x2
0c72 4604 |F | Jump_Case 0x4
0c73 4505 |E | Exit_Subprogram 0x5 ; case 0x0
0c74 783d |x= | Jump 0xcb2 ; case 0x1
0c75 7817 |x | Jump 0xc8d ; case 0x2
0c76 7825 |x% | Jump 0xc9c ; case 0x3
0c77 7800 |x | Jump 0xc78 ; case 0x4
0c78 e7ff | | Load 0x3,-0x1
0c79 00eb | | Load_Encached Diana_Cache
0c7a 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0c7b c604 | | Store 0x3,0x4
0c7c 00cf | | Action Mark_Auxiliary
0c7d 780b |x | Jump 0xc89
0c7e e60c | | Load 0x3,0xc
0c7f e7fd | | Load 0x3,-0x3
0c80 e606 | | Load 0x3,0x6
0c81 e604 | | Load 0x3,0x4
0c82 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0c83 841d | | Call 0x2,0x1d
0c84 e604 | | Load 0x3,0x4
0c85 0217 | | Execute Heap_Access,All_Reference
0c86 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c87 c604 | | Store 0x3,0x4
0c88 00c9 | | Action Pop_Auxiliary_Loop
0c89 e604 | | Load 0x3,0x4
0c8a 77f3 |w | Jump_Nonzero 0xc7e
0c8b 00ce | | Action Pop_Auxiliary
0c8c 4505 |E | Exit_Subprogram 0x5
0c8d e60c | | Load 0x3,0xc
0c8e e7fd | | Load 0x3,-0x3
0c8f e606 | | Load 0x3,0x6
0c90 e7ff | | Load 0x3,-0x1
0c91 00eb | | Load_Encached Diana_Cache
0c92 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0c93 841d | | Call 0x2,0x1d
0c94 e60c | | Load 0x3,0xc
0c95 e7fd | | Load 0x3,-0x3
0c96 e606 | | Load 0x3,0x6
0c97 e7ff | | Load 0x3,-0x1
0c98 00eb | | Load_Encached Diana_Cache
0c99 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0c9a 841d | | Call 0x2,0x1d
0c9b 4505 |E | Exit_Subprogram 0x5
0c9c e60c | | Load 0x3,0xc
0c9d e7fd | | Load 0x3,-0x3
0c9e e606 | | Load 0x3,0x6
0c9f e7ff | | Load 0x3,-0x1
0ca0 00eb | | Load_Encached Diana_Cache
0ca1 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0ca2 841d | | Call 0x2,0x1d
0ca3 e60c | | Load 0x3,0xc
0ca4 e7fd | | Load 0x3,-0x3
0ca5 e606 | | Load 0x3,0x6
0ca6 e7ff | | Load 0x3,-0x1
0ca7 00eb | | Load_Encached Diana_Cache
0ca8 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0ca9 841d | | Call 0x2,0x1d
0caa e60c | | Load 0x3,0xc
0cab e7fd | | Load 0x3,-0x3
0cac e606 | | Load 0x3,0x6
0cad e7ff | | Load 0x3,-0x1
0cae 00eb | | Load_Encached Diana_Cache
0caf 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0cb0 841d | | Call 0x2,0x1d
0cb1 4505 |E | Exit_Subprogram 0x5
0cb2 e60c | | Load 0x3,0xc
0cb3 e7fd | | Load 0x3,-0x3
0cb4 e606 | | Load 0x3,0x6
0cb5 e7ff | | Load 0x3,-0x1
0cb6 00eb | | Load_Encached Diana_Cache
0cb7 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0cb8 841d | | Call 0x2,0x1d
0cb9 4505 |E | Exit_Subprogram 0x5
0cba 4801 |H | Short_Literal 0x1
0cbb e7fd | | Load 0x3,-0x3
0cbc e606 | | Load 0x3,0x6
0cbd e7ff | | Load 0x3,-0x1
0cbe 00eb | | Load_Encached Diana_Cache
0cbf 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0cc0 841d | | Call 0x2,0x1d
0cc1 e7ff | | Load 0x3,-0x1
0cc2 00eb | | Load_Encached Diana_Cache
0cc3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0cc4 8611 | | Call 0x3,0x11
0cc5 c605 | | Store 0x3,0x5
0cc6 e605 | | Load 0x3,0x5
0cc7 7008 |p | Jump_Nonzero 0xcd0
0cc8 4801 |H | Short_Literal 0x1
0cc9 e7fd | | Load 0x3,-0x3
0cca e606 | | Load 0x3,0x6
0ccb e7ff | | Load 0x3,-0x1
0ccc 00eb | | Load_Encached Diana_Cache
0ccd 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0cce 841d | | Call 0x2,0x1d
0ccf 4505 |E | Exit_Subprogram 0x5
0cd0 e605 | | Load 0x3,0x5
0cd1 4976 |Iv | Short_Literal 0x176
0cd2 00eb | | Load_Encached Diana_Cache
0cd3 0098 | | Execute Package,Field_Read_Dynamic
0cd4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0cd5 c60e | | Store 0x3,0xe
0cd6 e7ff | | Load 0x3,-0x1
0cd7 490c |I | Short_Literal 0x10c
0cd8 00eb | | Load_Encached Diana_Cache
0cd9 0096 | | Execute Package,Field_Execute_Dynamic
0cda 00eb | | Load_Encached Diana_Cache
0cdb 18ed | | Execute Package,Field_Execute,Field_Number 0xed
0cdc c60d | | Store 0x3,0xd
0cdd 00cf | | Action Mark_Auxiliary
0cde 783d |x= | Jump 0xd1c
0cdf e60e | | Load 0x3,0xe
0ce0 00eb | | Load_Encached Diana_Cache
0ce1 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0ce2 c605 | | Store 0x3,0x5
0ce3 e605 | | Load 0x3,0x5
0ce4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0ce5 0b23 | # | Execute_Immediate Case_Compare,0x23
0ce6 7013 |p | Jump_Nonzero 0xcfa
0ce7 0b24 | $ | Execute_Immediate Case_Compare,0x24
0ce8 701a |p | Jump_Nonzero 0xd03
0ce9 0f25 | % | Execute_Immediate Equal,0x25
0cea 7021 |p! | Jump_Nonzero 0xd0c
0ceb e019 | | Load 0x0,0x19
0cec 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ced 4807 |H | Short_Literal 0x7
0cee 0092 112a | *| Action Push_String_Extended,0x112a ; "Formals contained unexpected node "
0cf0 e605 | | Load 0x3,0x5
0cf1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0cf2 00eb | | Load_Encached Diana_Cache
0cf3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cf4 011c | | Execute Any,Convert_Unchecked
0cf5 1c01 | | Execute_Immediate Run_Utility,0x1
0cf6 01cc | | Execute Vector,Catenate
0cf7 e01a | | Load 0x0,0x1a
0cf8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0cf9 7819 |x | Jump 0xd13
0cfa 00d1 | | Pop_Control Pop_Count_1
0cfb 4801 |H | Short_Literal 0x1
0cfc e7fd | | Load 0x3,-0x3
0cfd e606 | | Load 0x3,0x6
0cfe e60d | | Load 0x3,0xd
0cff 00eb | | Load_Encached Diana_Cache
0d00 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0d01 841d | | Call 0x2,0x1d
0d02 7810 |x | Jump 0xd13
0d03 00d1 | | Pop_Control Pop_Count_1
0d04 4803 |H | Short_Literal 0x3
0d05 e7fd | | Load 0x3,-0x3
0d06 e606 | | Load 0x3,0x6
0d07 e60d | | Load 0x3,0xd
0d08 00eb | | Load_Encached Diana_Cache
0d09 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0d0a 841d | | Call 0x2,0x1d
0d0b 7807 |x | Jump 0xd13
0d0c 4802 |H | Short_Literal 0x2
0d0d e7fd | | Load 0x3,-0x3
0d0e e606 | | Load 0x3,0x6
0d0f e60d | | Load 0x3,0xd
0d10 00eb | | Load_Encached Diana_Cache
0d11 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0d12 841d | | Call 0x2,0x1d
0d13 e60d | | Load 0x3,0xd
0d14 0217 | | Execute Heap_Access,All_Reference
0d15 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d16 c60d | | Store 0x3,0xd
0d17 e60e | | Load 0x3,0xe
0d18 0217 | | Execute Heap_Access,All_Reference
0d19 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d1a c60e | | Store 0x3,0xe
0d1b 00c9 | | Action Pop_Auxiliary_Loop
0d1c e60e | | Load 0x3,0xe
0d1d 77c1 |w | Jump_Nonzero 0xcdf
0d1e 00ce | | Action Pop_Auxiliary
0d1f 4505 |E | Exit_Subprogram 0x5
0d20 e60c | | Load 0x3,0xc
0d21 4606 |F | Jump_Case 0x6
0d22 780e |x | Jump 0xd31 ; case 0x0
0d23 780b |x | Jump 0xd2f ; case 0x1
0d24 7804 |x | Jump 0xd29 ; case 0x2
0d25 7806 |x | Jump 0xd2c ; case 0x3
0d26 780a |x | Jump 0xd31 ; case 0x4
0d27 7809 |x | Jump 0xd31 ; case 0x5
0d28 7808 |x | Jump 0xd31 ; case 0x6
0d29 4805 |H | Short_Literal 0x5
0d2a a60c | | Store_Unchecked 0x3,0xc
0d2b 7805 |x | Jump 0xd31
0d2c 4806 |H | Short_Literal 0x6
0d2d a60c | | Store_Unchecked 0x3,0xc
0d2e 7802 |x | Jump 0xd31
0d2f 4804 |H | Short_Literal 0x4
0d30 a60c | | Store_Unchecked 0x3,0xc
0d31 e60c | | Load 0x3,0xc
0d32 e7fd | | Load 0x3,-0x3
0d33 e606 | | Load 0x3,0x6
0d34 e7ff | | Load 0x3,-0x1
0d35 00eb | | Load_Encached Diana_Cache
0d36 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0d37 841d | | Call 0x2,0x1d
0d38 4505 |E | Exit_Subprogram 0x5
0d39 00d1 | | Pop_Control Pop_Count_1
0d3a 4802 |H | Short_Literal 0x2
0d3b e7fd | | Load 0x3,-0x3
0d3c e606 | | Load 0x3,0x6
0d3d e7ff | | Load 0x3,-0x1
0d3e 00eb | | Load_Encached Diana_Cache
0d3f 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0d40 841d | | Call 0x2,0x1d
0d41 4801 |H | Short_Literal 0x1
0d42 e7fd | | Load 0x3,-0x3
0d43 e606 | | Load 0x3,0x6
0d44 e7ff | | Load 0x3,-0x1
0d45 00eb | | Load_Encached Diana_Cache
0d46 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0d47 841d | | Call 0x2,0x1d
0d48 4505 |E | Exit_Subprogram 0x5
0d49 0000 0000 | | .BLANK 0000[0x7]
0d50 ; --------------------------------------------------------------------------------------
0d50 ; SUBPROGRAM
0d50 ; --------------------------------------------------------------------------------------
0d50 0d5a | Z | .CONST 0x0d5a ; Address of begin
0d51 0004 | | .CONST 0x0004 ; Address of exception handler
0d52 0002 | | .CONST 0x0002 ; Number of locals
0d53 INIT_0d50:
0d53 e406 | | Load 0x2,0x6
0d54 e014 | | Load 0x0,0x14
0d55 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0d56 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d57 e014 | | Load 0x0,0x14
0d58 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d59 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0d5a BODY_0d50:
0d5a 4801 |H | Short_Literal 0x1
0d5b e24c | L | Load 0x1,0x4c
0d5c 00da | | Load_Top At_Offset_2
0d5d 0092 112b | +| Action Push_String_Extended,0x112b ; ".#WITH#"
0d5f 01cc | | Execute Vector,Catenate
0d60 e001 | | Load 0x0,0x1
0d61 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d62 e251 | Q | Load 0x1,0x51
0d63 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d64 00d8 | | Load_Top At_Offset_0
0d65 00e3 | | Load_Encached Natural_Cache
0d66 0260 | ` | Execute Discrete,In_Type
0d67 7001 |p | Jump_Nonzero 0xd69
0d68 0801 | | Execute_Immediate Raise,0x1
0d69 824f | O | Call 0x1,0x4f
0d6a 0217 | | Execute Heap_Access,All_Reference
0d6b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0d6c 00d8 | | Load_Top At_Offset_0
0d6d 01db | | Execute Vector,Length
0d6e e251 | Q | Load 0x1,0x51
0d6f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d70 00d8 | | Load_Top At_Offset_0
0d71 00e3 | | Load_Encached Natural_Cache
0d72 0260 | ` | Execute Discrete,In_Type
0d73 7001 |p | Jump_Nonzero 0xd75
0d74 0801 | | Execute_Immediate Raise,0x1
0d75 824f | O | Call 0x1,0x4f
0d76 0217 | | Execute Heap_Access,All_Reference
0d77 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0d78 4801 |H | Short_Literal 0x1
0d79 00d9 | | Load_Top At_Offset_1
0d7a 01db | | Execute Vector,Length
0d7b 00d8 | | Load_Top At_Offset_0
0d7c 00e3 | | Load_Encached Natural_Cache
0d7d 0260 | ` | Execute Discrete,In_Type
0d7e 7001 |p | Jump_Nonzero 0xd80
0d7f 0801 | | Execute_Immediate Raise,0x1
0d80 e251 | Q | Load 0x1,0x51
0d81 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d82 00d8 | | Load_Top At_Offset_0
0d83 00e3 | | Load_Encached Natural_Cache
0d84 0260 | ` | Execute Discrete,In_Type
0d85 7001 |p | Jump_Nonzero 0xd87
0d86 0801 | | Execute_Immediate Raise,0x1
0d87 e405 | | Load 0x2,0x5
0d88 841d | | Call 0x2,0x1d
0d89 00e1 | | Load_Encached Boolean_Cache
0d8a e015 | | Load 0x0,0x15
0d8b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d8c 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d8d e40d | | Load 0x2,0xd
0d8e e40c | | Load 0x2,0xc
0d8f e015 | | Load 0x0,0x15
0d90 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d91 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0d92 c40f | | Store 0x2,0xf
0d93 e40e | | Load 0x2,0xe
0d94 0120 | | Execute Any,Is_Value
0d95 6804 |h | Jump_Zero 0xd9a
0d96 e015 | | Load 0x0,0x15
0d97 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d98 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0d99 7801 |x | Jump 0xd9b
0d9a e40e | | Load 0x2,0xe
0d9b e40d | | Load 0x2,0xd
0d9c e015 | | Load 0x0,0x15
0d9d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0d9e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d9f c40e | | Store 0x2,0xe
0da0 e019 | | Load 0x0,0x19
0da1 180e | | Execute Package,Field_Execute,Field_Number 0xe
0da2 e40e | | Load 0x2,0xe
0da3 e015 | | Load 0x0,0x15
0da4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0da5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0da6 4501 |E | Exit_Subprogram 0x1
0da7 0000 | | .XXX[0x1]
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0db1 | | .CONST 0x0db1 ; Address of begin
0da9 0004 | | .CONST 0x0004 ; Address of exception handler
0daa 0002 | | .CONST 0x0002 ; Number of locals
0dab INIT_0da8:
0dab e5ff | | Load 0x2,-0x1
0dac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0dad 0217 | | Execute Heap_Access,All_Reference
0dae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0daf e001 | | Load 0x0,0x1
0db0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0db1 BODY_0da8:
0db1 00d8 | | Load_Top At_Offset_0
0db2 01dd | | Execute Vector,First
0db3 00d9 | | Load_Top At_Offset_1
0db4 01dd | | Execute Vector,First
0db5 e5ff | | Load 0x2,-0x1
0db6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0db7 0217 | | Execute Heap_Access,All_Reference
0db8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0db9 0273 | s | Execute Discrete,Plus
0dba 0aff | | Execute_Immediate Plus,-0x1
0dbb 00d8 | | Load_Top At_Offset_0
0dbc 00e2 | | Load_Encached Integer_Cache
0dbd 0260 | ` | Execute Discrete,In_Type
0dbe 7001 |p | Jump_Nonzero 0xdc0
0dbf 0801 | | Execute_Immediate Raise,0x1
0dc0 00da | | Load_Top At_Offset_2
0dc1 01cf | | Execute Vector,Slice_Read
0dc2 00cb | | Action Pop_Block_With_Result
0dc3 4401 |D | Exit_Subprogram With_Result,0x1
0dc4 0000 0000 | | .BLANK 0000[0x4]
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dd7 | | .CONST 0x0dd7 ; Address of begin
0dc9 0004 | | .CONST 0x0004 ; Address of exception handler
0dca 0003 | | .CONST 0x0003 ; Number of locals
0dcb INIT_0dc8:
0dcb e015 | | Load 0x0,0x15
0dcc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dcd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dce 02c7 | | Declare_Variable Any
0dcf 00d8 | | Load_Top At_Offset_0
0dd0 1c00 | | Execute_Immediate Run_Utility,0x0
0dd1 e015 | | Load 0x0,0x15
0dd2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dd3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0dd4 02c7 | | Declare_Variable Any
0dd5 00d8 | | Load_Top At_Offset_0
0dd6 1c00 | | Execute_Immediate Run_Utility,0x0
0dd7 BODY_0dc8:
0dd7 00d8 | | Load_Top At_Offset_0
0dd8 0120 | | Execute Any,Is_Value
0dd9 6804 |h | Jump_Zero 0xdde
0dda e015 | | Load 0x0,0x15
0ddb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ddc 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0ddd 7801 |x | Jump 0xddf
0dde 00d8 | | Load_Top At_Offset_0
0ddf 00da | | Load_Top At_Offset_2
0de0 0120 | | Execute Any,Is_Value
0de1 6804 |h | Jump_Zero 0xde6
0de2 e015 | | Load 0x0,0x15
0de3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0de4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0de5 7801 |x | Jump 0xde7
0de6 00da | | Load_Top At_Offset_2
0de7 e402 | | Load 0x2,0x2
0de8 e015 | | Load 0x0,0x15
0de9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0dea 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0deb c602 | | Store 0x3,0x2
0dec c603 | | Store 0x3,0x3
0ded 00d8 | | Load_Top At_Offset_0
0dee 0120 | | Execute Any,Is_Value
0def 6804 |h | Jump_Zero 0xdf4
0df0 e015 | | Load 0x0,0x15
0df1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0df2 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0df3 7801 |x | Jump 0xdf5
0df4 00d8 | | Load_Top At_Offset_0
0df5 e404 | | Load 0x2,0x4
0df6 0120 | | Execute Any,Is_Value
0df7 6803 |h | Jump_Zero 0xdfb
0df8 e00e | | Load 0x0,0xe
0df9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dfa 7801 |x | Jump 0xdfc
0dfb e404 | | Load 0x2,0x4
0dfc 00db | | Load_Top At_Offset_3
0dfd e00e | | Load 0x0,0xe
0dfe 180f | | Execute Package,Field_Execute,Field_Number 0xf
0dff c404 | | Store 0x2,0x4
0e00 c603 | | Store 0x3,0x3
0e01 4801 |H | Short_Literal 0x1
0e02 e404 | | Load 0x2,0x4
0e03 e403 | | Load 0x2,0x3
0e04 e24d | M | Load 0x1,0x4d
0e05 e24b | K | Load 0x1,0x4b
0e06 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0e07 4501 |E | Exit_Subprogram 0x1
0e08 ; --------------------------------------------------------------------------------------
0e08 ; SUBPROGRAM
0e08 ; --------------------------------------------------------------------------------------
0e08 0e0d | | .CONST 0x0e0d ; Address of begin
0e09 0004 | | .CONST 0x0004 ; Address of exception handler
0e0a 0002 | | .CONST 0x0002 ; Number of locals
0e0b INIT_0e08:
0e0b 029f 0e5b | [| Declare_Subprogram For_Call,INIT_0e58
0e0d BODY_0e08:
0e0d 00db | | Load_Top At_Offset_3
0e0e 7002 |p | Jump_Nonzero 0xe11
0e0f 00ea | | Load_Encached Null_String_Cache
0e10 4401 |D | Exit_Subprogram With_Result,0x1
0e11 00db | | Load_Top At_Offset_3
0e12 e020 | | Load 0x0,0x20
0e13 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0e14 7001 |p | Jump_Nonzero 0xe16
0e15 8802 | | Call 0x4,0x2
0e16 00db | | Load_Top At_Offset_3
0e17 e020 | | Load 0x0,0x20
0e18 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0e19 8610 | | Call 0x3,0x10
0e1a 0092 112c | ,| Action Push_String_Extended,0x112c ; "."
0e1c 01cc | | Execute Vector,Catenate
0e1d e9ff | | Load 0x4,-0x1
0e1e 00eb | | Load_Encached Diana_Cache
0e1f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0e20 00eb | | Load_Encached Diana_Cache
0e21 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0e22 01cc | | Execute Vector,Catenate
0e23 4401 |D | Exit_Subprogram With_Result,0x1
0e24 0000 0000 | | .BLANK 0000[0x4]
0e28 ; --------------------------------------------------------------------------------------
0e28 ; SUBPROGRAM
0e28 ; --------------------------------------------------------------------------------------
0e28 0e2f | / | .CONST 0x0e2f ; Address of begin
0e29 0004 | | .CONST 0x0004 ; Address of exception handler
0e2a 0002 | | .CONST 0x0002 ; Number of locals
0e2b INIT_0e28:
0e2b 00ec | | Load_Encached Diana_Tree_Cache
0e2c 02c7 | | Declare_Variable Any
0e2d 00d8 | | Load_Top At_Offset_0
0e2e 1c00 | | Execute_Immediate Run_Utility,0x0
0e2f BODY_0e28:
0e2f 00db | | Load_Top At_Offset_3
0e30 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0e31 0b12 | | Execute_Immediate Case_Compare,0x12
0e32 7004 |p | Jump_Nonzero 0xe37
0e33 0f17 | | Execute_Immediate Equal,0x17
0e34 7008 |p | Jump_Nonzero 0xe3d
0e35 00ec | | Load_Encached Diana_Tree_Cache
0e36 4401 |D | Exit_Subprogram With_Result,0x1
0e37 00d1 | | Pop_Control Pop_Count_1
0e38 00db | | Load_Top At_Offset_3
0e39 00eb | | Load_Encached Diana_Cache
0e3a 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
0e3b 8611 | | Call 0x3,0x11
0e3c 4401 |D | Exit_Subprogram With_Result,0x1
0e3d 00db | | Load_Top At_Offset_3
0e3e 00eb | | Load_Encached Diana_Cache
0e3f 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0e40 c802 | | Store 0x4,0x2
0e41 00d8 | | Load_Top At_Offset_0
0e42 00eb | | Load_Encached Diana_Cache
0e43 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0e44 c802 | | Store 0x4,0x2
0e45 00d8 | | Load_Top At_Offset_0
0e46 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0e47 0f41 | A | Execute_Immediate Equal,0x41
0e48 6805 |h | Jump_Zero 0xe4e
0e49 00d8 | | Load_Top At_Offset_0
0e4a 00eb | | Load_Encached Diana_Cache
0e4b 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0e4c c802 | | Store 0x4,0x2
0e4d 7804 |x | Jump 0xe52
0e4e 00d8 | | Load_Top At_Offset_0
0e4f 00eb | | Load_Encached Diana_Cache
0e50 18ce | | Execute Package,Field_Execute,Field_Number 0xce
0e51 c802 | | Store 0x4,0x2
0e52 00d8 | | Load_Top At_Offset_0
0e53 00eb | | Load_Encached Diana_Cache
0e54 18da | | Execute Package,Field_Execute,Field_Number 0xda
0e55 c802 | | Store 0x4,0x2
0e56 00d8 | | Load_Top At_Offset_0
0e57 4401 |D | Exit_Subprogram With_Result,0x1
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5f | _ | .CONST 0x0e5f ; Address of begin
0e59 0004 | | .CONST 0x0004 ; Address of exception handler
0e5a 0002 | | .CONST 0x0002 ; Number of locals
0e5b INIT_0e58:
0e5b e9ff | | Load 0x4,-0x1
0e5c e014 | | Load 0x0,0x14
0e5d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e5e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0e5f BODY_0e58:
0e5f 00d8 | | Load_Top At_Offset_0
0e60 01db | | Execute Vector,Length
0e61 c60f | | Store 0x3,0xf
0e62 00d8 | | Load_Top At_Offset_0
0e63 00cb | | Action Pop_Block_With_Result
0e64 4401 |D | Exit_Subprogram With_Result,0x1
0e65 0000 0000 | | .XXX[0x3]
0e67 0000 | |
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e8b | | .CONST 0x0e8b ; Address of begin
0e69 0004 | | .CONST 0x0004 ; Address of exception handler
0e6a 0024 | $ | .CONST 0x0024 ; Number of locals
0e6b INIT_0e68:
0e6b 029a 0e9b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0e98
0e6d 029a 0f93 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0f90
0e6f 029a 0fbb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0fb8
0e71 029a 1003 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_1000
0e73 029a 102b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_1028
0e75 00bf | | Action Accept_Activation
0e76 00e4 | | Load_Encached Positive_Cache
0e77 00e2 | | Load_Encached Integer_Cache
0e78 00e3 | | Load_Encached Natural_Cache
0e79 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0e7a 00e3 | | Load_Encached Natural_Cache
0e7b 029d 1053 | S| Declare_Subprogram For_Outer_Call,INIT_1050
0e7d 029d 1063 | c| Declare_Subprogram For_Outer_Call,INIT_1060
0e7f 029d 107b | {| Declare_Subprogram For_Outer_Call,INIT_1078
0e81 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0e82 00c7 | | Action Elaborate_Subprogram
0e83 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0e84 00c7 | | Action Elaborate_Subprogram
0e85 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0e86 00c7 | | Action Elaborate_Subprogram
0e87 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0e88 00c7 | | Action Elaborate_Subprogram
0e89 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0e8a 00c7 | | Action Elaborate_Subprogram
0e8b BODY_0e68:
0e8b e215 | | Load 0x1,0x15
0e8c e217 | | Load 0x1,0x17
0e8d 8222 | " | Call 0x1,0x22
0e8e 0273 | s | Execute Discrete,Plus
0e8f 0272 | r | Execute Discrete,Minus
0e90 c21e | | Store 0x1,0x1e
0e91 e215 | | Load 0x1,0x15
0e92 0af6 | | Execute_Immediate Plus,-0xa
0e93 a21f | | Store_Unchecked 0x1,0x1f
0e94 00bc | | Action Signal_Activated
0e95 00bb | | Action Signal_Completion
0e96 0000 0000 | | .XXX[0x2]
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0ea6 | | .CONST 0x0ea6 ; Address of begin
0e99 0004 | | .CONST 0x0004 ; Address of exception handler
0e9a 0006 | | .CONST 0x0006 ; Number of locals
0e9b INIT_0e98:
0e9b e001 | | Load 0x0,0x1
0e9c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0e9d 0322 | " | Declare_Variable Record
0e9e e001 | | Load 0x0,0x1
0e9f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0ea0 0322 | " | Declare_Variable Record
0ea1 00e1 | | Load_Encached Boolean_Cache
0ea2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ea3 00e3 | | Load_Encached Natural_Cache
0ea4 029f 108b | | Declare_Subprogram For_Call,INIT_1088
0ea6 BODY_0e98:
0ea6 4800 |H | Short_Literal 0x0
0ea7 e5ff | | Load 0x2,-0x1
0ea8 e001 | | Load 0x0,0x1
0ea9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0eaa e402 | | Load 0x2,0x2
0eab 017d | } | Execute Record,Structure_Write
0eac 4800 |H | Short_Literal 0x0
0ead e5fc | | Load 0x2,-0x4
0eae e001 | | Load 0x0,0x1
0eaf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0eb0 e403 | | Load 0x2,0x3
0eb1 017d | } | Execute Record,Structure_Write
0eb2 00db | | Load_Top At_Offset_3
0eb3 e001 | | Load 0x0,0x1
0eb4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0eb5 e402 | | Load 0x2,0x2
0eb6 e001 | | Load 0x0,0x1
0eb7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0eb8 027e | ~ | Execute Discrete,Not_Equal
0eb9 6825 |h% | Jump_Zero 0xedf
0eba e5fd | | Load 0x2,-0x3
0ebb 00d8 | | Load_Top At_Offset_0
0ebc 0120 | | Execute Any,Is_Value
0ebd 6804 |h | Jump_Zero 0xec2
0ebe e001 | | Load 0x0,0x1
0ebf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ec0 011e | | Execute Any,Convert
0ec1 7803 |x | Jump 0xec5
0ec2 e001 | | Load 0x0,0x1
0ec3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ec4 0119 | | Execute Any,Check_In_Formal_Type
0ec5 e5ff | | Load 0x2,-0x1
0ec6 8211 | | Call 0x1,0x11
0ec7 c5fd | | Store 0x2,-0x3
0ec8 e402 | | Load 0x2,0x2
0ec9 8212 | | Call 0x1,0x12
0eca 820f | | Call 0x1,0xf
0ecb 0092 112d | -| Action Push_String_Extended,0x112d ; " "
0ecd 820f | | Call 0x1,0xf
0ece e216 | | Load 0x1,0x16
0ecf 8210 | | Call 0x1,0x10
0ed0 e402 | | Load 0x2,0x2
0ed1 8213 | | Call 0x1,0x13
0ed2 820f | | Call 0x1,0xf
0ed3 e402 | | Load 0x2,0x2
0ed4 e001 | | Load 0x0,0x1
0ed5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0ed6 8224 | $ | Call 0x1,0x24
0ed7 4800 |H | Short_Literal 0x0
0ed8 e5ff | | Load 0x2,-0x1
0ed9 8002 | | Call 0x0,0x2
0eda 00e0 | | Load_Encached Standard_Cache
0edb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0edc 820f | | Call 0x1,0xf
0edd 4801 |H | Short_Literal 0x1
0ede 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0edf 4801 |H | Short_Literal 0x1
0ee0 e5ff | | Load 0x2,-0x1
0ee1 e001 | | Load 0x0,0x1
0ee2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0ee3 e402 | | Load 0x2,0x2
0ee4 017d | } | Execute Record,Structure_Write
0ee5 4801 |H | Short_Literal 0x1
0ee6 e5fc | | Load 0x2,-0x4
0ee7 e001 | | Load 0x0,0x1
0ee8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0ee9 e403 | | Load 0x2,0x3
0eea 017d | } | Execute Record,Structure_Write
0eeb 00db | | Load_Top At_Offset_3
0eec e001 | | Load 0x0,0x1
0eed 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0eee e402 | | Load 0x2,0x2
0eef e001 | | Load 0x0,0x1
0ef0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0ef1 027e | ~ | Execute Discrete,Not_Equal
0ef2 e5fc | | Load 0x2,-0x4
0ef3 e001 | | Load 0x0,0x1
0ef4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0ef5 e5ff | | Load 0x2,-0x1
0ef6 e001 | | Load 0x0,0x1
0ef7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0ef8 027e | ~ | Execute Discrete,Not_Equal
0ef9 e404 | | Load 0x2,0x4
0efa e5fe | | Load 0x2,-0x2
0efb 0278 | x | Execute Discrete,Or
0efc 0278 | x | Execute Discrete,Or
0efd 0278 | x | Execute Discrete,Or
0efe 685e |h^ | Jump_Zero 0xf5d
0eff 00da | | Load_Top At_Offset_2
0f00 700e |p | Jump_Nonzero 0xf0f
0f01 e5fd | | Load 0x2,-0x3
0f02 00d8 | | Load_Top At_Offset_0
0f03 0120 | | Execute Any,Is_Value
0f04 6804 |h | Jump_Zero 0xf09
0f05 e001 | | Load 0x0,0x1
0f06 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f07 011e | | Execute Any,Convert
0f08 7803 |x | Jump 0xf0c
0f09 e001 | | Load 0x0,0x1
0f0a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f0b 0119 | | Execute Any,Check_In_Formal_Type
0f0c e5ff | | Load 0x2,-0x1
0f0d 8211 | | Call 0x1,0x11
0f0e c5fd | | Store 0x2,-0x3
0f0f 4800 |H | Short_Literal 0x0
0f10 a220 | | Store_Unchecked 0x1,0x20
0f11 8406 | | Call 0x2,0x6
0f12 e5ff | | Load 0x2,-0x1
0f13 e001 | | Load 0x0,0x1
0f14 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0f15 4606 |F | Jump_Case 0x6
0f16 780d |x | Jump 0xf24 ; case 0x0
0f17 7813 |x | Jump 0xf2b ; case 0x1
0f18 7819 |x | Jump 0xf32 ; case 0x2
0f19 781f |x | Jump 0xf39 ; case 0x3
0f1a 7825 |x% | Jump 0xf40 ; case 0x4
0f1b 782b |x+ | Jump 0xf47 ; case 0x5
0f1c 7800 |x | Jump 0xf1d ; case 0x6
0f1d 0092 112e | .| Action Push_String_Extended,0x112e ; "(BT)"
0f1f 820f | | Call 0x1,0xf
0f20 e221 | ! | Load 0x1,0x21
0f21 0a04 | | Execute_Immediate Plus,0x4
0f22 c221 | ! | Store 0x1,0x21
0f23 7829 |x) | Jump 0xf4d
0f24 0092 112f | /| Action Push_String_Extended,0x112f ; "(?)"
0f26 820f | | Call 0x1,0xf
0f27 e221 | ! | Load 0x1,0x21
0f28 0a03 | | Execute_Immediate Plus,0x3
0f29 c221 | ! | Store 0x1,0x21
0f2a 7822 |x" | Jump 0xf4d
0f2b 0092 1130 | 0| Action Push_String_Extended,0x1130 ; "(U)"
0f2d 820f | | Call 0x1,0xf
0f2e e221 | ! | Load 0x1,0x21
0f2f 0a03 | | Execute_Immediate Plus,0x3
0f30 c221 | ! | Store 0x1,0x21
0f31 781b |x | Jump 0xf4d
0f32 0092 1131 | 1| Action Push_String_Extended,0x1131 ; "(S)"
0f34 820f | | Call 0x1,0xf
0f35 e221 | ! | Load 0x1,0x21
0f36 0a03 | | Execute_Immediate Plus,0x3
0f37 c221 | ! | Store 0x1,0x21
0f38 7814 |x | Jump 0xf4d
0f39 0092 1132 | 2| Action Push_String_Extended,0x1132 ; "(B)"
0f3b 820f | | Call 0x1,0xf
0f3c e221 | ! | Load 0x1,0x21
0f3d 0a03 | | Execute_Immediate Plus,0x3
0f3e c221 | ! | Store 0x1,0x21
0f3f 780d |x | Jump 0xf4d
0f40 0092 1133 | 3| Action Push_String_Extended,0x1133 ; "(UT)"
0f42 820f | | Call 0x1,0xf
0f43 e221 | ! | Load 0x1,0x21
0f44 0a04 | | Execute_Immediate Plus,0x4
0f45 c221 | ! | Store 0x1,0x21
0f46 7806 |x | Jump 0xf4d
0f47 0092 1134 | 4| Action Push_String_Extended,0x1134 ; "(ST)"
0f49 820f | | Call 0x1,0xf
0f4a e221 | ! | Load 0x1,0x21
0f4b 0a04 | | Execute_Immediate Plus,0x4
0f4c c221 | ! | Store 0x1,0x21
0f4d e402 | | Load 0x2,0x2
0f4e e001 | | Load 0x0,0x1
0f4f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0f50 8224 | $ | Call 0x1,0x24
0f51 e221 | ! | Load 0x1,0x21
0f52 e402 | | Load 0x2,0x2
0f53 e001 | | Load 0x0,0x1
0f54 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0f55 00e0 | | Load_Encached Standard_Cache
0f56 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f57 01db | | Execute Vector,Length
0f58 0273 | s | Execute Discrete,Plus
0f59 0a01 | | Execute_Immediate Plus,0x1
0f5a c221 | ! | Store 0x1,0x21
0f5b e5ff | | Load 0x2,-0x1
0f5c a5fc | | Store_Unchecked 0x2,-0x4
0f5d 4801 |H | Short_Literal 0x1
0f5e e5ff | | Load 0x2,-0x1
0f5f 8002 | | Call 0x0,0x2
0f60 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0f61 00d9 | | Load_Top At_Offset_1
0f62 e220 | | Load 0x1,0x20
0f63 027e | ~ | Execute Discrete,Not_Equal
0f64 6828 |h( | Jump_Zero 0xf8d
0f65 00d9 | | Load_Top At_Offset_1
0f66 00e0 | | Load_Encached Standard_Cache
0f67 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f68 01db | | Execute Vector,Length
0f69 e221 | ! | Load 0x1,0x21
0f6a 0273 | s | Execute Discrete,Plus
0f6b e215 | | Load 0x1,0x15
0f6c 027d | } | Execute Discrete,Greater
0f6d 6812 |h | Jump_Zero 0xf80
0f6e e5fd | | Load 0x2,-0x3
0f6f 00d8 | | Load_Top At_Offset_0
0f70 0120 | | Execute Any,Is_Value
0f71 6804 |h | Jump_Zero 0xf76
0f72 e001 | | Load 0x0,0x1
0f73 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f74 011e | | Execute Any,Convert
0f75 7803 |x | Jump 0xf79
0f76 e001 | | Load 0x0,0x1
0f77 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f78 0119 | | Execute Any,Check_In_Formal_Type
0f79 e5ff | | Load 0x2,-0x1
0f7a 8211 | | Call 0x1,0x11
0f7b c5fd | | Store 0x2,-0x3
0f7c e217 | | Load 0x1,0x17
0f7d 8210 | | Call 0x1,0x10
0f7e e217 | | Load 0x1,0x17
0f7f a221 | ! | Store_Unchecked 0x1,0x21
0f80 00d9 | | Load_Top At_Offset_1
0f81 00e0 | | Load_Encached Standard_Cache
0f82 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f83 820f | | Call 0x1,0xf
0f84 00d9 | | Load_Top At_Offset_1
0f85 a220 | | Store_Unchecked 0x1,0x20
0f86 e221 | ! | Load 0x1,0x21
0f87 00da | | Load_Top At_Offset_2
0f88 00e0 | | Load_Encached Standard_Cache
0f89 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f8a 01db | | Execute Vector,Length
0f8b 0273 | s | Execute Discrete,Plus
0f8c c221 | ! | Store 0x1,0x21
0f8d 4503 |E | Exit_Subprogram 0x3
0f8e 0000 0000 | | .XXX[0x2]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f93 | | .CONST 0x0f93 ; Address of begin
0f91 0004 | | .CONST 0x0004 ; Address of exception handler
0f92 0001 | | .CONST 0x0001 ; Number of locals
0f93 BODY_0f90:
0f93 INIT_0f90:
0f93 0092 1135 | 5| Action Push_String_Extended,0x1135 ; "ITEM"
0f95 820f | | Call 0x1,0xf
0f96 e216 | | Load 0x1,0x16
0f97 8210 | | Call 0x1,0x10
0f98 0092 1136 | 6| Action Push_String_Extended,0x1136 ; "DEFINED IN"
0f9a 820f | | Call 0x1,0xf
0f9b e217 | | Load 0x1,0x17
0f9c 8210 | | Call 0x1,0x10
0f9d 0092 1137 | 7| Action Push_String_Extended,0x1137 ; "IS REFERRED TO BY"
0f9f 820f | | Call 0x1,0xf
0fa0 00da | | Load_Top At_Offset_2
0fa1 00d8 | | Load_Top At_Offset_0
0fa2 0120 | | Execute Any,Is_Value
0fa3 6804 |h | Jump_Zero 0xfa8
0fa4 e001 | | Load 0x0,0x1
0fa5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fa6 011e | | Execute Any,Convert
0fa7 7803 |x | Jump 0xfab
0fa8 e001 | | Load 0x0,0x1
0fa9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0faa 0119 | | Execute Any,Check_In_Formal_Type
0fab e001 | | Load 0x0,0x1
0fac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fad 8211 | | Call 0x1,0x11
0fae c5ff | | Store 0x2,-0x1
0faf e001 | | Load 0x0,0x1
0fb0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fb1 a5fe | | Store_Unchecked 0x2,-0x2
0fb2 4501 |E | Exit_Subprogram 0x1
0fb3 0000 0000 | | .BLANK 0000[0x5]
0fb8 ; --------------------------------------------------------------------------------------
0fb8 ; SUBPROGRAM
0fb8 ; --------------------------------------------------------------------------------------
0fb8 0fbe | | .CONST 0x0fbe ; Address of begin
0fb9 0004 | | .CONST 0x0004 ; Address of exception handler
0fba 0002 | | .CONST 0x0002 ; Number of locals
0fbb INIT_0fb8:
0fbb 00da | | Load_Top At_Offset_2
0fbc e001 | | Load 0x0,0x1
0fbd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0fbe BODY_0fb8:
0fbe 00db | | Load_Top At_Offset_3
0fbf e001 | | Load 0x0,0x1
0fc0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0fc1 8223 | # | Call 0x1,0x23
0fc2 820f | | Call 0x1,0xf
0fc3 480a |H | Short_Literal 0xa
0fc4 8210 | | Call 0x1,0x10
0fc5 00d8 | | Load_Top At_Offset_0
0fc6 01db | | Execute Vector,Length
0fc7 e21f | | Load 0x1,0x1f
0fc8 027d | } | Execute Discrete,Greater
0fc9 681e |h | Jump_Zero 0xfe8
0fca 00d8 | | Load_Top At_Offset_0
0fcb 01dc | | Execute Vector,Last
0fcc e21f | | Load 0x1,0x1f
0fcd 0272 | r | Execute Discrete,Minus
0fce 00d8 | | Load_Top At_Offset_0
0fcf 00e2 | | Load_Encached Integer_Cache
0fd0 0260 | ` | Execute Discrete,In_Type
0fd1 7001 |p | Jump_Nonzero 0xfd3
0fd2 0801 | | Execute_Immediate Raise,0x1
0fd3 00d9 | | Load_Top At_Offset_1
0fd4 01dc | | Execute Vector,Last
0fd5 00da | | Load_Top At_Offset_2
0fd6 01cf | | Execute Vector,Slice_Read
0fd7 820f | | Call 0x1,0xf
0fd8 e5fe | | Load 0x2,-0x2
0fd9 00d8 | | Load_Top At_Offset_0
0fda 0120 | | Execute Any,Is_Value
0fdb 6804 |h | Jump_Zero 0xfe0
0fdc e001 | | Load 0x0,0x1
0fdd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fde 011e | | Execute Any,Convert
0fdf 7803 |x | Jump 0xfe3
0fe0 e001 | | Load 0x0,0x1
0fe1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fe2 0119 | | Execute Any,Check_In_Formal_Type
0fe3 e001 | | Load 0x0,0x1
0fe4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fe5 8211 | | Call 0x1,0x11
0fe6 c5fe | | Store 0x2,-0x2
0fe7 4502 |E | Exit_Subprogram 0x2
0fe8 00d8 | | Load_Top At_Offset_0
0fe9 820f | | Call 0x1,0xf
0fea e5fe | | Load 0x2,-0x2
0feb 00d8 | | Load_Top At_Offset_0
0fec 0120 | | Execute Any,Is_Value
0fed 6804 |h | Jump_Zero 0xff2
0fee e001 | | Load 0x0,0x1
0fef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ff0 011e | | Execute Any,Convert
0ff1 7803 |x | Jump 0xff5
0ff2 e001 | | Load 0x0,0x1
0ff3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ff4 0119 | | Execute Any,Check_In_Formal_Type
0ff5 e001 | | Load 0x0,0x1
0ff6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ff7 8211 | | Call 0x1,0x11
0ff8 c5fe | | Store 0x2,-0x2
0ff9 4502 |E | Exit_Subprogram 0x2
0ffa 0000 0000 | | .BLANK 0000[0x6]
1000 ; --------------------------------------------------------------------------------------
1000 ; SUBPROGRAM
1000 ; --------------------------------------------------------------------------------------
1000 1003 | | .CONST 0x1003 ; Address of begin
1001 0004 | | .CONST 0x0004 ; Address of exception handler
1002 0001 | | .CONST 0x0001 ; Number of locals
1003 BODY_1000:
1003 INIT_1000:
1003 0092 1138 | 8| Action Push_String_Extended,0x1138 ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS"
1005 820f | | Call 0x1,0xf
1006 00da | | Load_Top At_Offset_2
1007 00d8 | | Load_Top At_Offset_0
1008 0120 | | Execute Any,Is_Value
1009 6804 |h | Jump_Zero 0x100e
100a e001 | | Load 0x0,0x1
100b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
100c 011e | | Execute Any,Convert
100d 7803 |x | Jump 0x1011
100e e001 | | Load 0x0,0x1
100f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1010 0119 | | Execute Any,Check_In_Formal_Type
1011 e001 | | Load 0x0,0x1
1012 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1013 8211 | | Call 0x1,0x11
1014 c5ff | | Store 0x2,-0x1
1015 00da | | Load_Top At_Offset_2
1016 00d8 | | Load_Top At_Offset_0
1017 0120 | | Execute Any,Is_Value
1018 6804 |h | Jump_Zero 0x101d
1019 e001 | | Load 0x0,0x1
101a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
101b 011e | | Execute Any,Convert
101c 7803 |x | Jump 0x1020
101d e001 | | Load 0x0,0x1
101e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
101f 0119 | | Execute Any,Check_In_Formal_Type
1020 e001 | | Load 0x0,0x1
1021 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1022 8211 | | Call 0x1,0x11
1023 c5ff | | Store 0x2,-0x1
1024 4501 |E | Exit_Subprogram 0x1
1025 0000 0000 | | .XXX[0x3]
1027 0000 | |
1028 ; --------------------------------------------------------------------------------------
1028 ; SUBPROGRAM
1028 ; --------------------------------------------------------------------------------------
1028 102b | + | .CONST 0x102b ; Address of begin
1029 0004 | | .CONST 0x0004 ; Address of exception handler
102a 0001 | | .CONST 0x0001 ; Number of locals
102b BODY_1028:
102b INIT_1028:
102b 0092 1139 | 9| Action Push_String_Extended,0x1139 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS "
102d 820f | | Call 0x1,0xf
102e 00da | | Load_Top At_Offset_2
102f 00d8 | | Load_Top At_Offset_0
1030 0120 | | Execute Any,Is_Value
1031 6804 |h | Jump_Zero 0x1036
1032 e001 | | Load 0x0,0x1
1033 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1034 011e | | Execute Any,Convert
1035 7803 |x | Jump 0x1039
1036 e001 | | Load 0x0,0x1
1037 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1038 0119 | | Execute Any,Check_In_Formal_Type
1039 e001 | | Load 0x0,0x1
103a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
103b 8211 | | Call 0x1,0x11
103c c5ff | | Store 0x2,-0x1
103d 00da | | Load_Top At_Offset_2
103e 00d8 | | Load_Top At_Offset_0
103f 0120 | | Execute Any,Is_Value
1040 6804 |h | Jump_Zero 0x1045
1041 e001 | | Load 0x0,0x1
1042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1043 011e | | Execute Any,Convert
1044 7803 |x | Jump 0x1048
1045 e001 | | Load 0x0,0x1
1046 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1047 0119 | | Execute Any,Check_In_Formal_Type
1048 e001 | | Load 0x0,0x1
1049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
104a 8211 | | Call 0x1,0x11
104b c5ff | | Store 0x2,-0x1
104c 4501 |E | Exit_Subprogram 0x1
104d 0000 0000 | | .XXX[0x3]
104f 0000 | |
1050 ; --------------------------------------------------------------------------------------
1050 ; SUBPROGRAM
1050 ; --------------------------------------------------------------------------------------
1050 1053 | S | .CONST 0x1053 ; Address of begin
1051 0004 | | .CONST 0x0004 ; Address of exception handler
1052 0001 | | .CONST 0x0001 ; Number of locals
1053 BODY_1050:
1053 INIT_1050:
1053 e218 | | Load 0x1,0x18
1054 6802 |h | Jump_Zero 0x1057
1055 4809 |H | Short_Literal 0x9
1056 00ca | | Action Exit_Nullary_Function
1057 4804 |H | Short_Literal 0x4
1058 00ca | | Action Exit_Nullary_Function
1059 0000 0000 | | .BLANK 0000[0x7]
1060 ; --------------------------------------------------------------------------------------
1060 ; SUBPROGRAM
1060 ; --------------------------------------------------------------------------------------
1060 1066 | f | .CONST 0x1066 ; Address of begin
1061 0004 | | .CONST 0x0004 ; Address of exception handler
1062 0002 | | .CONST 0x0002 ; Number of locals
1063 INIT_1060:
1063 00da | | Load_Top At_Offset_2
1064 00e0 | | Load_Encached Standard_Cache
1065 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1066 BODY_1060:
1066 00d8 | | Load_Top At_Offset_0
1067 01dd | | Execute Vector,First
1068 0a01 | | Execute_Immediate Plus,0x1
1069 00d8 | | Load_Top At_Offset_0
106a 00e2 | | Load_Encached Integer_Cache
106b 0260 | ` | Execute Discrete,In_Type
106c 7001 |p | Jump_Nonzero 0x106e
106d 0801 | | Execute_Immediate Raise,0x1
106e 00d9 | | Load_Top At_Offset_1
106f 01dc | | Execute Vector,Last
1070 00da | | Load_Top At_Offset_2
1071 01cf | | Execute Vector,Slice_Read
1072 4401 |D | Exit_Subprogram With_Result,0x1
1073 0000 0000 | | .BLANK 0000[0x5]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 107b | { | .CONST 0x107b ; Address of begin
1079 0004 | | .CONST 0x0004 ; Address of exception handler
107a 0001 | | .CONST 0x0001 ; Number of locals
107b BODY_1078:
107b INIT_1078:
107b e218 | | Load 0x1,0x18
107c 6809 |h | Jump_Zero 0x1086
107d 0092 113a | :| Action Push_String_Extended,0x113a ; "["
107f 00db | | Load_Top At_Offset_3
1080 8223 | # | Call 0x1,0x23
1081 01cc | | Execute Vector,Catenate
1082 0092 113b | ;| Action Push_String_Extended,0x113b ; "]"
1084 01cc | | Execute Vector,Catenate
1085 820f | | Call 0x1,0xf
1086 4502 |E | Exit_Subprogram 0x2
1087 0000 | | .XXX[0x1]
1088 ; --------------------------------------------------------------------------------------
1088 ; SUBPROGRAM
1088 ; --------------------------------------------------------------------------------------
1088 1091 | | .CONST 0x1091 ; Address of begin
1089 0004 | | .CONST 0x0004 ; Address of exception handler
108a 0006 | | .CONST 0x0006 ; Number of locals
108b INIT_1088:
108b 00e2 | | Load_Encached Integer_Cache
108c 03e9 | | Declare_Variable Discrete,Duplicate
108d 03e9 | | Declare_Variable Discrete,Duplicate
108e e402 | | Load 0x2,0x2
108f 8214 | | Call 0x1,0x14
1090 00e1 | | Load_Encached Boolean_Cache
1091 BODY_1088:
1091 e217 | | Load 0x1,0x17
1092 8210 | | Call 0x1,0x10
1093 00d9 | | Load_Top At_Offset_1
1094 01db | | Execute Vector,Length
1095 c602 | | Store 0x3,0x2
1096 e602 | | Load 0x3,0x2
1097 00da | | Load_Top At_Offset_2
1098 01dd | | Execute Vector,First
1099 0273 | s | Execute Discrete,Plus
109a 0aff | | Execute_Immediate Plus,-0x1
109b 005b | [ | Store_Top Discrete,At_Offset_3
109c e602 | | Load 0x3,0x2
109d e21e | | Load 0x1,0x1e
109e 027a | z | Execute Discrete,Less_Equal
109f 6808 |h | Jump_Zero 0x10a8
10a0 00d9 | | Load_Top At_Offset_1
10a1 820f | | Call 0x1,0xf
10a2 e217 | | Load 0x1,0x17
10a3 e602 | | Load 0x3,0x2
10a4 0273 | s | Execute Discrete,Plus
10a5 0a01 | | Execute_Immediate Plus,0x1
10a6 c221 | ! | Store 0x1,0x21
10a7 4501 |E | Exit_Subprogram 0x1
10a8 4800 |H | Short_Literal 0x0
10a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
10aa 00cf | | Action Mark_Auxiliary
10ab 00db | | Load_Top At_Offset_3
10ac e604 | | Load 0x3,0x4
10ad e21e | | Load 0x1,0x1e
10ae 0272 | r | Execute Discrete,Minus
10af 00d8 | | Load_Top At_Offset_0
10b0 00e2 | | Load_Encached Integer_Cache
10b1 0260 | ` | Execute Discrete,In_Type
10b2 7001 |p | Jump_Nonzero 0x10b4
10b3 0801 | | Execute_Immediate Raise,0x1
10b4 0263 | c | Execute Discrete,Above_Bound
10b5 7016 |p | Jump_Nonzero 0x10cc
10b6 00d8 | | Load_Top At_Offset_0
10b7 e605 | | Load 0x3,0x5
10b8 01d7 | | Execute Vector,Field_Read
10b9 0f2e | . | Execute_Immediate Equal,0x2e
10ba 680f |h | Jump_Zero 0x10ca
10bb 00d8 | | Load_Top At_Offset_0
10bc e604 | | Load 0x3,0x4
10bd e605 | | Load 0x3,0x5
10be 01cf | | Execute Vector,Slice_Read
10bf 820f | | Call 0x1,0xf
10c0 4801 |H | Short_Literal 0x1
10c1 a606 | | Store_Unchecked 0x3,0x6
10c2 e217 | | Load 0x1,0x17
10c3 00d9 | | Load_Top At_Offset_1
10c4 e604 | | Load 0x3,0x4
10c5 0272 | r | Execute Discrete,Minus
10c6 0273 | s | Execute Discrete,Plus
10c7 c221 | ! | Store 0x1,0x21
10c8 00d2 | | Pop_Control Pop_Count_2
10c9 7802 |x | Jump 0x10cc
10ca 00c8 | | Action Pop_Auxiliary_Range
10cb 3fea |? | Loop_Increasing 0x10b6
10cc 00ce | | Action Pop_Auxiliary
10cd 00d8 | | Load_Top At_Offset_0
10ce 7012 |p | Jump_Nonzero 0x10e1
10cf 0092 113c | <| Action Push_String_Extended,0x113c ; "...."
10d1 00db | | Load_Top At_Offset_3
10d2 e21e | | Load 0x1,0x1e
10d3 0272 | r | Execute Discrete,Minus
10d4 00d8 | | Load_Top At_Offset_0
10d5 00e2 | | Load_Encached Integer_Cache
10d6 0260 | ` | Execute Discrete,In_Type
10d7 7001 |p | Jump_Nonzero 0x10d9
10d8 0801 | | Execute_Immediate Raise,0x1
10d9 e604 | | Load 0x3,0x4
10da e605 | | Load 0x3,0x5
10db 01cf | | Execute Vector,Slice_Read
10dc 01cc | | Execute Vector,Catenate
10dd 820f | | Call 0x1,0xf
10de e21e | | Load 0x1,0x1e
10df 0a01 | | Execute_Immediate Plus,0x1
10e0 c221 | ! | Store 0x1,0x21
10e1 4501 |E | Exit_Subprogram 0x1
10e2 ; --------------------------------------------------------------------------------------
10e2 ; STRING TABLE
10e2 ; --------------------------------------------------------------------------------------
10e2 00b8 | | .STRTAB 0x00b8->0x113e ; "REFERRED_TO_ITEM"
10e3 00c6 | | .STRTAB 0x00c6->0x1146 ; "REFERRING_TO_ITEM"
10e4 00d5 | | .STRTAB 0x00d5->0x114e ; "BOTH"
10e5 00d7 | | .STRTAB 0x00d7->0x1150 ; "NONE"
10e6 00d9 | | .STRTAB 0x00d9->0x1152 ; "USED"
10e7 00db | | .STRTAB 0x00db->0x1154 ; "SET"
10e8 00dc | | .STRTAB 0x00dc->0x1156 ; "BOTH_USED_AND_SET"
10e9 00eb | | .STRTAB 0x00eb->0x115e ; "USED_THROUGH"
10ea 00f5 | | .STRTAB 0x00f5->0x1164 ; "SET_THROUGH"
10eb 00fe | | .STRTAB 0x00fe->0x116a ; "BOTH_USED_AND_SET_THROUGH"
10ec 0115 | | .STRTAB 0x0115->0x1176 ; "ATTRIBUTE_ID"
10ed 011f | | .STRTAB 0x011f->0x117c ; "CONSTANT_ID"
10ee 0128 | ( | .STRTAB 0x0128->0x1182 ; "DISCRIMINANT_ID"
10ef 0135 | 5 | .STRTAB 0x0135->0x1189 ; "ENTRY_ID"
10f0 013b | ; | .STRTAB 0x013b->0x118d ; "ENUMERATION_ID"
10f1 0147 | G | .STRTAB 0x0147->0x1194 ; "EXCEPTION_ID"
10f2 0151 | Q | .STRTAB 0x0151->0x119a ; "FUNCTION_ID"
10f3 015a | Z | .STRTAB 0x015a->0x11a0 ; "GENERIC_ID"
10f4 0162 | b | .STRTAB 0x0162->0x11a5 ; "IN_ID"
10f5 0165 | e | .STRTAB 0x0165->0x11a7 ; "IN_OUT_ID"
10f6 016c | l | .STRTAB 0x016c->0x11ac ; "ITERATION_ID"
10f7 0176 | v | .STRTAB 0x0176->0x11b2 ; "LABEL_ID"
10f8 017c | | | .STRTAB 0x017c->0x11b6 ; "LIMITED_PRIVATE_TYPE_ID"
10f9 0191 | | .STRTAB 0x0191->0x11c1 ; "NAMED_STATEMENT_ID"
10fa 01a1 | | .STRTAB 0x01a1->0x11ca ; "NUMBER_ID"
10fb 01a8 | | .STRTAB 0x01a8->0x11cf ; "OUT_ID"
10fc 01ac | | .STRTAB 0x01ac->0x11d2 ; "PACKAGE_ID"
10fd 01b4 | | .STRTAB 0x01b4->0x11d7 ; "PRAGMA_ID"
10fe 01bb | | .STRTAB 0x01bb->0x11db ; "PRAGMA_ARGUMENT_ID"
10ff 01cb | | .STRTAB 0x01cb->0x11e4 ; "PRIVATE_TYPE_ID"
1100 01d8 | | .STRTAB 0x01d8->0x11ec ; "PROCEDURE_ID"
1101 01e2 | | .STRTAB 0x01e2->0x11f2 ; "RECORD_COMPONENT_ID"
1102 01f3 | | .STRTAB 0x01f3->0x11fb ; "SUBTYPE_ID"
1103 01fb | | .STRTAB 0x01fb->0x1200 ; "TASK_BODY_ID"
1104 0205 | | .STRTAB 0x0205->0x1206 ; "TYPE_ID"
1105 020a | | .STRTAB 0x020a->0x120a ; "VARIABLE_ID"
1106 0213 | | .STRTAB 0x0213->0x120f ; "UNKNOWN_ID"
1107 021b | | .STRTAB 0x021b->0x1214 ; "ATTRIBUTE_TYPE"
1108 0227 | ' | .STRTAB 0x0227->0x121b ; "COMPONENT_TYPE"
1109 0233 | 3 | .STRTAB 0x0233->0x1222 ; "CONSTANT_TYPE"
110a 023e | > | .STRTAB 0x023e->0x1229 ; "ENTRY_TYPE"
110b 0246 | F | .STRTAB 0x0246->0x122e ; "EXCEPTION_TYPE"
110c 0252 | R | .STRTAB 0x0252->0x1235 ; "FUNCTION_TYPE"
110d 025d | ] | .STRTAB 0x025d->0x123b ; "GENERIC_TYPE"
110e 0267 | g | .STRTAB 0x0267->0x1241 ; "LABEL_TYPE"
110f 026f | o | .STRTAB 0x026f->0x1246 ; "PACKAGE_TYPE"
1110 0279 | y | .STRTAB 0x0279->0x124c ; "PARAMETER_TYPE"
1111 0285 | | .STRTAB 0x0285->0x1253 ; "PRAGMA_TYPE"
1112 028e | | .STRTAB 0x028e->0x1259 ; "PROCEDURE_TYPE"
1113 029a | | .STRTAB 0x029a->0x1260 ; "TASK_BODY_TYPE"
1114 02a6 | | .STRTAB 0x02a6->0x1267 ; "TYPE_TYPE"
1115 02ad | | .STRTAB 0x02ad->0x126b ; "VARIABLE_TYPE"
1116 02b8 | | .STRTAB 0x02b8->0x1272 ; "UNKNOWN_TYPE"
1117 02c2 | | .STRTAB 0x02c2->0x1278 ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART"
1118 02df | | .STRTAB 0x02df->0x1287 ; "IN_VISIBLE_PACKAGE_SPEC_PART"
1119 02f9 | | .STRTAB 0x02f9->0x1295 ; "IN_VISIBLE_PACKAGE_PRIVATE_PART"
111a 0316 | | .STRTAB 0x0316->0x12a5 ; "IN_PACKAGE_SPEC_PART"
111b 0328 | ( | .STRTAB 0x0328->0x12af ; "IN_PACKAGE_PRIVATE_PART"
111c 033d | = | .STRTAB 0x033d->0x12ba ; "IN_PACKAGE_BODY_PART"
111d 034f | O | .STRTAB 0x034f->0x12c4 ; "IN_OTHER_PART"
111e 035a | Z | .STRTAB 0x035a->0x12cb ; "SUCCESSFUL"
111f 0362 | b | .STRTAB 0x0362->0x12d0 ; "ITEM_LOCKED"
1120 036b | k | .STRTAB 0x036b->0x12d5 ; "ITEM_DISAPPEARED"
1121 0379 | y | .STRTAB 0x0379->0x12dd ; "INVALID_WHICH"
1122 0384 | | .STRTAB 0x0384->0x12e4 ; "OTHER_ERROR"
1123 038d | | .STRTAB 0x038d->0x12e9 ; "START"
1124 0390 | | .STRTAB 0x0390->0x12ec ; "FINISH"
1125 0394 | | .STRTAB 0x0394->0x12ef ; "'1"
1126 0394 | | .STRTAB 0x0394->0x12f0 ; "?"
1127 0393 | | .STRTAB 0x0393->0x12f0 ; " is not an ada object"
1128 03a6 | | .STRTAB 0x03a6->0x12fb ; " isn't installed or higher"
1129 03be | | .STRTAB 0x03be->0x1308 ; "'"
; "'"
112a 03bd | | .STRTAB 0x03bd->0x1308 ; "Formals contained unexpected node "
112b 03dd | | .STRTAB 0x03dd->0x1319 ; ".#WITH#"
112c 03e2 | | .STRTAB 0x03e2->0x131d ; "."
112d 03e1 | | .STRTAB 0x03e1->0x131d ; " "
112e 03e0 | | .STRTAB 0x03e0->0x131e ; "(BT)"
112f 03e2 | | .STRTAB 0x03e2->0x1320 ; "(?)"
1130 03e3 | | .STRTAB 0x03e3->0x1321 ; "(U)"
1131 03e4 | | .STRTAB 0x03e4->0x1323 ; "(S)"
1132 03e5 | | .STRTAB 0x03e5->0x1324 ; "(B)"
1133 03e6 | | .STRTAB 0x03e6->0x1326 ; "(UT)"
1134 03e8 | | .STRTAB 0x03e8->0x1328 ; "(ST)"
1135 03ea | | .STRTAB 0x03ea->0x132a ; "ITEM"
1136 03ec | | .STRTAB 0x03ec->0x132c ; "DEFINED IN"
1137 03f4 | | .STRTAB 0x03f4->0x1331 ; "IS REFERRED TO BY"
1138 0403 | | .STRTAB 0x0403->0x1339 ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS"
1139 0436 | 6 | .STRTAB 0x0436->0x1354 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS "
113a 0463 | c | .STRTAB 0x0463->0x136b ; "["
113b 0462 | b | .STRTAB 0x0462->0x136c ; "]"
113c 0461 | a | .STRTAB 0x0461->0x136c ; "...."
113d 0463 | c | .STREND 0x0463->0x136e
113e 5245 4645 |REFE| .STRTAB_STRINGS
136f 0000 | | .XXX[0x1]
1370 ; --------------------------------------------------------------------------------------
1370 ; Debug Table
1370 ; --------------------------------------------------------------------------------------
1370 0004 000e | | .DEBUG4 0x0004,0x000e,0x9590,0x0000,0x0001,0x0000
1376 0004 0000 | | .XXX[0xc]
1378 0100 0000 | |
137a 0880 0000 | |
137c 0004 0000 | |
137e 0029 0000 | ) |
1380 1010 78b0 | x |
1382 0000 0000 | | .BLANK 0000[0x1b]
139d 0c00 01a0 | | .XXX[0x22]
139f cd01 8043 | C|
13a1 1200 001d | |
13a3 bb6c 9901 | l |
13a5 0008 0000 | |
13a7 8000 0000 | |
13a9 60f8 0000 |` |
13ab 4000 0000 |@ |
13ad 5002 8000 |P |
13af 0000 8000 | |
13b1 0020 0000 | |
13b3 0110 0000 | |
13b5 0000 8000 | |
13b7 0005 2000 | |
13b9 0080 b8e8 | |
13bb 2000 0080 | |
13bd b8e8 8000 | |
13bf 0000 0000 | | .BLANK 0000[0x17]
13d6 0180 0034 | 4| .XXX[0x3]
13d8 1a80 | |
13d9 0000 0000 | | .BLANK 0000[0x27]