|
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: 9216 (0x2400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0440fe
└─⟦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 1188 | | .CONST 0x1188 ; 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 800b | | .CONST 0x800b ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 016b | k | .CONST 0x016b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0052 | R | .CONST 0x0052 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00e3 | | Load_Encached Natural_Cache
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
0010 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0012 4800 |H | Short_Literal 0x0
0013 4802 |H | Short_Literal 0x2
0014 029f 018b | | Declare_Subprogram For_Call,INIT_0188
0016 03fe | | Declare_Type Discrete,Defined,Visible
0017 4800 |H | Short_Literal 0x0
0018 4806 |H | Short_Literal 0x6
0019 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
001b 03fe | | Declare_Type Discrete,Defined,Visible
001c 4802 |H | Short_Literal 0x2
001d 032b | + | Declare_Type Record,Incomplete,Visible
001e 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0020 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0022 4800 |H | Short_Literal 0x0
0023 481a |H | Short_Literal 0x1a
0024 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
0026 03fe | | Declare_Type Discrete,Defined,Visible
0027 4800 |H | Short_Literal 0x0
0028 480f |H | Short_Literal 0xf
0029 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0
002b 03fe | | Declare_Type Discrete,Defined,Visible
002c 4800 |H | Short_Literal 0x0
002d 4806 |H | Short_Literal 0x6
002e 029f 020b | | Declare_Subprogram For_Call,INIT_0208
0030 03fe | | Declare_Type Discrete,Defined,Visible
0031 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0033 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
0035 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
0037 029a 03fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03f8
0039 4800 |H | Short_Literal 0x0
003a 4804 |H | Short_Literal 0x4
003b 029f 041b | | Declare_Subprogram For_Call,INIT_0418
003d 03fe | | Declare_Type Discrete,Defined,Visible
003e 029a 0433 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0430
0040 029a 0463 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0460
0042 029a 0483 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0480
0044 029a 04bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04b8
0046 029a 04f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04f0
0048 029a 04fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04f8
004a 029a 050b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0508
004c 029a 052b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0528
004e 029a 053b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0538
0050 029a 054b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0548
0052 029a 0573 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0570
0054 029a 0583 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0580
0056 029a 05a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05a0
0058 029a 05b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05b0
005a 029a 05cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05c8
005c 029a 05e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05e0
005e 029a 05f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05f0
0060 029a 0603 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0600
0062 029a 0613 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0610
0064 029a 064b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0648
0066 029a 065b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0658
0068 029a 066b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0668
006a 029a 067b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0678
006c 480c |H | Short_Literal 0xc
006d 0093 0ce3 | | PushFullAddress InMicrocode,INIT_0ce0
006f 02a0 | | Declare_Subprogram Null_Subprogram
0070 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0071 4800 |H | Short_Literal 0x0
0072 4801 |H | Short_Literal 0x1
0073 029f 068b | | Declare_Subprogram For_Call,INIT_0688
0075 03fe | | Declare_Type Discrete,Defined,Visible
0076 029a 06a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06a0
0078 029a 06cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06c8
007a 00e3 | | Load_Encached Natural_Cache
007b 0129 | ) | Execute Any,Make_Visible
007c 029a 072b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0728
007e 029a 0733 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0730
0080 029a 073b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0738
0082 029a 0743 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0740
0084 0007 | | Action Break_Optional
0085 4806 |H | Short_Literal 0x6
0086 032a | * | Declare_Type Record,Incomplete
0087 00d8 | | Load_Top At_Offset_0
0088 02a0 | | Declare_Subprogram Null_Subprogram
0089 03ad | | Declare_Type Heap_Access,Defined
008a 0007 | | Action Break_Optional
008b 00d8 | | Load_Top At_Offset_0
008c 00e3 | | Load_Encached Natural_Cache
008d 02a0 | | Declare_Subprogram Null_Subprogram
008e e215 | | Load 0x1,0x15
008f 0326 | & | Complete_Type Record,By_Defining
0090 00bf | | Action Accept_Activation
0091 0007 | | Action Break_Optional
0092 0007 | | Action Break_Optional
0093 0007 | | Action Break_Optional
0094 0007 | | Action Break_Optional
0095 0007 | | Action Break_Optional
0096 0007 | | Action Break_Optional
0097 0007 | | Action Break_Optional
0098 0007 | | Action Break_Optional
0099 0007 | | Action Break_Optional
009a 00e3 | | Load_Encached Natural_Cache
009b 00e3 | | Load_Encached Natural_Cache
009c 00ec | | Load_Encached Diana_Tree_Cache
009d e214 | | Load 0x1,0x14
009e 02a0 | | Declare_Subprogram Null_Subprogram
009f 4804 |H | Short_Literal 0x4
00a0 032d | - | Declare_Type Record,Defined
00a1 00d8 | | Load_Top At_Offset_0
00a2 02a0 | | Declare_Subprogram Null_Subprogram
00a3 03ad | | Declare_Type Heap_Access,Defined
00a4 0007 | | Action Break_Optional
00a5 e210 | | Load 0x1,0x10
00a6 00e2 | | Load_Encached Integer_Cache
00a7 00e2 | | Load_Encached Integer_Cache
00a8 02a0 | | Declare_Subprogram Null_Subprogram
00a9 4803 |H | Short_Literal 0x3
00aa 032d | - | Declare_Type Record,Defined
00ab 4800 |H | Short_Literal 0x0
00ac 49ff |I | Short_Literal 0x1ff
00ad 00e3 | | Load_Encached Natural_Cache
00ae 03f8 | | Declare_Type Discrete,Constrained
00af e001 | | Load 0x0,0x1
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 e245 | E | Load 0x1,0x45
00b2 e218 | | Load 0x1,0x18
00b3 00ec | | Load_Encached Diana_Tree_Cache
00b4 00e1 | | Load_Encached Boolean_Cache
00b5 e21a | | Load 0x1,0x1a
00b6 029f 074b | K| Declare_Subprogram For_Call,INIT_0748
00b8 e240 | @ | Load 0x1,0x40
00b9 0326 | & | Complete_Type Record,By_Defining
00ba 00e4 | | Load_Encached Positive_Cache
00bb 0266 | f | Execute Discrete,Bounds
00bc e002 | | Load 0x0,0x2
00bd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00be 02a0 | | Declare_Subprogram Null_Subprogram
00bf 4801 |H | Short_Literal 0x1
00c0 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00c1 00d8 | | Load_Top At_Offset_0
00c2 02a0 | | Declare_Subprogram Null_Subprogram
00c3 4818 |H | Short_Literal 0x18
00c4 03d3 | | Declare_Type Access,Defined,Accesses_Protected
00c5 0007 | | Action Break_Optional
00c6 0007 | | Action Break_Optional
00c7 e003 | | Load 0x0,0x3
00c8 e004 | | Load 0x0,0x4
00c9 e240 | @ | Load 0x1,0x40
00ca e241 | A | Load 0x1,0x41
00cb 00e3 | | Load_Encached Natural_Cache
00cc e005 | | Load 0x0,0x5
00cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ce e006 | | Load 0x0,0x6
00cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d0 e007 | | Load 0x0,0x7
00d1 0387 | | Declare_Variable Package
00d2 00d8 | | Load_Top At_Offset_0
00d3 020f | | Execute Module,Activate
00d4 e008 | | Load 0x0,0x8
00d5 e009 | | Load 0x0,0x9
00d6 e240 | @ | Load 0x1,0x40
00d7 e241 | A | Load 0x1,0x41
00d8 00e3 | | Load_Encached Natural_Cache
00d9 e005 | | Load 0x0,0x5
00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00db e006 | | Load 0x0,0x6
00dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00dd e007 | | Load 0x0,0x7
00de 0387 | | Declare_Variable Package
00df 00d8 | | Load_Top At_Offset_0
00e0 020f | | Execute Module,Activate
00e1 e00a | | Load 0x0,0xa
00e2 e00b | | Load 0x0,0xb
00e3 e242 | B | Load 0x1,0x42
00e4 e243 | C | Load 0x1,0x43
00e5 e210 | | Load 0x1,0x10
00e6 e005 | | Load 0x0,0x5
00e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e8 e006 | | Load 0x0,0x6
00e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ea e007 | | Load 0x0,0x7
00eb 0387 | | Declare_Variable Package
00ec 00d8 | | Load_Top At_Offset_0
00ed 020f | | Execute Module,Activate
00ee e00c | | Load 0x0,0xc
00ef e00d | | Load 0x0,0xd
00f0 e002 | | Load 0x0,0x2
00f1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00f2 e00e | | Load 0x0,0xe
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 00e5 | | Load_Encached Long_Integer_Cache
00f5 e00f | | Load 0x0,0xf
00f6 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00f7 e010 | | Load 0x0,0x10
00f8 0387 | | Declare_Variable Package
00f9 00d8 | | Load_Top At_Offset_0
00fa 020f | | Execute Module,Activate
00fb e001 | | Load 0x0,0x1
00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fd 6292 |b | Indirect_Literal Discrete,0x390,{0x00000000, 0x00000ffd}
00fe e001 | | Load 0x0,0x1
00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0100 c24c | L | Store 0x1,0x4c
0101 e24b | K | Load 0x1,0x4b
0102 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0103 e248 | H | Load 0x1,0x48
0104 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0105 0007 | | Action Break_Optional
0106 e249 | I | Load 0x1,0x49
0107 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0108 0007 | | Action Break_Optional
0109 e24a | J | Load 0x1,0x4a
010a 1913 | | Execute Package,Field_Reference,Field_Number 0x13
010b 0007 | | Action Break_Optional
010c e244 | D | Load 0x1,0x44
010d 0322 | " | Declare_Variable Record
010e 4800 |H | Short_Literal 0x0
010f e251 | Q | Load 0x1,0x51
0110 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0111 4800 |H | Short_Literal 0x0
0112 e251 | Q | Load 0x1,0x51
0113 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0114 4800 |H | Short_Literal 0x0
0115 e251 | Q | Load 0x1,0x51
0116 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0117 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0118 00c7 | | Action Elaborate_Subprogram
0119 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
011a 00c7 | | Action Elaborate_Subprogram
011b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
011c 00c7 | | Action Elaborate_Subprogram
011d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
011e 00c7 | | Action Elaborate_Subprogram
011f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0120 00c7 | | Action Elaborate_Subprogram
0121 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0122 00c7 | | Action Elaborate_Subprogram
0123 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0124 00c7 | | Action Elaborate_Subprogram
0125 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0126 00c7 | | Action Elaborate_Subprogram
0127 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0128 00c7 | | Action Elaborate_Subprogram
0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
012a 00c7 | | Action Elaborate_Subprogram
012b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
012c 00c7 | | Action Elaborate_Subprogram
012d 1d20 | | Execute_Immediate Reference_Lex_1,0x20
012e 00c7 | | Action Elaborate_Subprogram
012f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0130 00c7 | | Action Elaborate_Subprogram
0131 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0132 00c7 | | Action Elaborate_Subprogram
0133 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0134 00c7 | | Action Elaborate_Subprogram
0135 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0136 00c7 | | Action Elaborate_Subprogram
0137 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0138 00c7 | | Action Elaborate_Subprogram
0139 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
013a 00c7 | | Action Elaborate_Subprogram
013b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
013c 00c7 | | Action Elaborate_Subprogram
013d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
013e 00c7 | | Action Elaborate_Subprogram
013f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0140 00c7 | | Action Elaborate_Subprogram
0141 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0142 00c7 | | Action Elaborate_Subprogram
0143 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0144 00c7 | | Action Elaborate_Subprogram
0145 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0146 00c7 | | Action Elaborate_Subprogram
0147 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0148 00c7 | | Action Elaborate_Subprogram
0149 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
014a 00c7 | | Action Elaborate_Subprogram
014b 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
014c 00c7 | | Action Elaborate_Subprogram
014d 029d 076b | k| Declare_Subprogram For_Outer_Call,INIT_0768
014f 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0150 00c7 | | Action Elaborate_Subprogram
0151 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0152 00c7 | | Action Elaborate_Subprogram
0153 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0154 00c7 | | Action Elaborate_Subprogram
0155 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0156 00c7 | | Action Elaborate_Subprogram
0157 00b6 | | Action Make_Scope
0158 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0159 4802 |H | Short_Literal 0x2
015a e237 | 7 | Load 0x1,0x37
015b 020e | | Execute Module,Augment_Imports
015c e237 | 7 | Load 0x1,0x37
015d 020d | | Execute Module,Elaborate
015e 0007 | | Action Break_Optional
015f 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0160 00c7 | | Action Elaborate_Subprogram
0161 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0162 00c7 | | Action Elaborate_Subprogram
0163 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0164 00c7 | | Action Elaborate_Subprogram
0165 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0166 00c7 | | Action Elaborate_Subprogram
0167 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0168 00c7 | | Action Elaborate_Subprogram
0169 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
016a 00c7 | | Action Elaborate_Subprogram
016b BODY_0008:
016b e24b | K | Load 0x1,0x4b
016c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
016d e005 | | Load 0x0,0x5
016e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016f e006 | | Load 0x0,0x6
0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0171 e24b | K | Load 0x1,0x4b
0172 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0173 c24d | M | Store 0x1,0x4d
0174 00bc | | Action Signal_Activated
0175 00bb | | Action Signal_Completion
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4800 |H | Short_Literal 0x0
017c 00ca | | Action Exit_Nullary_Function
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e5ff | | Load 0x2,-0x1
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 4603 |F | Jump_Case 0x3
018c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
018d 7802 |x | Jump 0x190 ; case 0x1
018e 7805 |x | Jump 0x194 ; case 0x2
018f 7809 |x | Jump 0x199 ; case 0x3
0190 e5ff | | Load 0x2,-0x1
0191 0091 0ef5 | | Action Push_String_Extended_Indexed,0xef5 ; "REFERRED_TO_ITEM"
0193 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0194 e5fe | | Load 0x2,-0x2
0195 e5ff | | Load 0x2,-0x1
0196 00e0 | | Load_Encached Standard_Cache
0197 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0198 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0199 e5ff | | Load 0x2,-0x1
019a 00e0 | | Load_Encached Standard_Cache
019b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
019c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4603 |F | Jump_Case 0x3
01a4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01a5 7802 |x | Jump 0x1a8 ; case 0x1
01a6 7805 |x | Jump 0x1ac ; case 0x2
01a7 7809 |x | Jump 0x1b1 ; case 0x3
01a8 e5ff | | Load 0x2,-0x1
01a9 0091 0ef8 | | Action Push_String_Extended_Indexed,0xef8 ; "NONE"
01ab 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01ac e5fe | | Load 0x2,-0x2
01ad e5ff | | Load 0x2,-0x1
01ae 00e0 | | Load_Encached Standard_Cache
01af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01b1 e5ff | | Load 0x2,-0x1
01b2 00e0 | | Load_Encached Standard_Cache
01b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b4 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e215 | | Load 0x1,0x15
01bc 0322 | " | Declare_Variable Record
01bd e241 | A | Load 0x1,0x41
01be e402 | | Load 0x2,0x2
01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c0 4800 |H | Short_Literal 0x0
01c1 e402 | | Load 0x2,0x2
01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c3 00ca | | Action Exit_Nullary_Function
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e5ff | | Load 0x2,-0x1
01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cd 7002 |p | Jump_Nonzero 0x1d0
01ce 4801 |H | Short_Literal 0x1
01cf 4401 |D | Exit_Subprogram With_Result,0x1
01d0 4800 |H | Short_Literal 0x0
01d1 4401 |D | Exit_Subprogram With_Result,0x1
01d2 0000 0000 | | .BLANK 0000[0x6]
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 4603 |F | Jump_Case 0x3
01dc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01dd 7802 |x | Jump 0x1e0 ; case 0x1
01de 7805 |x | Jump 0x1e4 ; case 0x2
01df 7809 |x | Jump 0x1e9 ; case 0x3
01e0 e5ff | | Load 0x2,-0x1
01e1 0091 0eff | | Action Push_String_Extended_Indexed,0xeff ; "ATTRIBUTE_ID"
01e3 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01e4 e5fe | | Load 0x2,-0x2
01e5 e5ff | | Load 0x2,-0x1
01e6 00e0 | | Load_Encached Standard_Cache
01e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01e9 e5ff | | Load 0x2,-0x1
01ea 00e0 | | Load_Encached Standard_Cache
01eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ec 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4603 |F | Jump_Case 0x3
01f4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01f5 7802 |x | Jump 0x1f8 ; case 0x1
01f6 7805 |x | Jump 0x1fc ; case 0x2
01f7 7809 |x | Jump 0x201 ; case 0x3
01f8 e5ff | | Load 0x2,-0x1
01f9 0091 0f1a | | Action Push_String_Extended_Indexed,0xf1a ; "ATTRIBUTE_TYPE"
01fb 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01fc e5fe | | Load 0x2,-0x2
01fd e5ff | | Load 0x2,-0x1
01fe 00e0 | | Load_Encached Standard_Cache
01ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0200 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0201 e5ff | | Load 0x2,-0x1
0202 00e0 | | Load_Encached Standard_Cache
0203 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0204 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4603 |F | Jump_Case 0x3
020c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
020d 7802 |x | Jump 0x210 ; case 0x1
020e 7805 |x | Jump 0x214 ; case 0x2
020f 7809 |x | Jump 0x219 ; case 0x3
0210 e5ff | | Load 0x2,-0x1
0211 0091 0f2a | *| Action Push_String_Extended_Indexed,0xf2a ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART"
0213 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0214 e5fe | | Load 0x2,-0x2
0215 e5ff | | Load 0x2,-0x1
0216 00e0 | | Load_Encached Standard_Cache
0217 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0218 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0219 e5ff | | Load 0x2,-0x1
021a 00e0 | | Load_Encached Standard_Cache
021b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
021c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
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 e5ff | | Load 0x2,-0x1
0224 461a |F | Jump_Case 0x1a
0225 781a |x | Jump 0x240 ; case 0x0
0226 781d |x | Jump 0x244 ; case 0x1
0227 781a |x | Jump 0x242 ; case 0x2
0228 781d |x | Jump 0x246 ; case 0x3
0229 781a |x | Jump 0x244 ; case 0x4
022a 781d |x | Jump 0x248 ; case 0x5
022b 781e |x | Jump 0x24a ; case 0x6
022c 781f |x | Jump 0x24c ; case 0x7
022d 7824 |x$ | Jump 0x252 ; case 0x8
022e 7823 |x# | Jump 0x252 ; case 0x9
022f 7814 |x | Jump 0x244 ; case 0xa
0230 781d |x | Jump 0x24e ; case 0xb
0231 7828 |x( | Jump 0x25a ; case 0xc
0232 781b |x | Jump 0x24e ; case 0xd
0233 7810 |x | Jump 0x244 ; case 0xe
0234 781d |x | Jump 0x252 ; case 0xf
0235 781a |x | Jump 0x250 ; case 0x10
0236 781d |x | Jump 0x254 ; case 0x11
0237 781c |x | Jump 0x254 ; case 0x12
0238 7821 |x! | Jump 0x25a ; case 0x13
0239 781c |x | Jump 0x256 ; case 0x14
023a 7807 |x | Jump 0x242 ; case 0x15
023b 781e |x | Jump 0x25a ; case 0x16
023c 781b |x | Jump 0x258 ; case 0x17
023d 781c |x | Jump 0x25a ; case 0x18
023e 781d |x | Jump 0x25c ; case 0x19
023f 781e |x | Jump 0x25e ; case 0x1a
0240 4800 |H | Short_Literal 0x0
0241 4401 |D | Exit_Subprogram With_Result,0x1
0242 4801 |H | Short_Literal 0x1
0243 4401 |D | Exit_Subprogram With_Result,0x1
0244 4802 |H | Short_Literal 0x2
0245 4401 |D | Exit_Subprogram With_Result,0x1
0246 4803 |H | Short_Literal 0x3
0247 4401 |D | Exit_Subprogram With_Result,0x1
0248 4804 |H | Short_Literal 0x4
0249 4401 |D | Exit_Subprogram With_Result,0x1
024a 4805 |H | Short_Literal 0x5
024b 4401 |D | Exit_Subprogram With_Result,0x1
024c 4806 |H | Short_Literal 0x6
024d 4401 |D | Exit_Subprogram With_Result,0x1
024e 4807 |H | Short_Literal 0x7
024f 4401 |D | Exit_Subprogram With_Result,0x1
0250 4808 |H | Short_Literal 0x8
0251 4401 |D | Exit_Subprogram With_Result,0x1
0252 4809 |H | Short_Literal 0x9
0253 4401 |D | Exit_Subprogram With_Result,0x1
0254 480a |H | Short_Literal 0xa
0255 4401 |D | Exit_Subprogram With_Result,0x1
0256 480b |H | Short_Literal 0xb
0257 4401 |D | Exit_Subprogram With_Result,0x1
0258 480c |H | Short_Literal 0xc
0259 4401 |D | Exit_Subprogram With_Result,0x1
025a 480d |H | Short_Literal 0xd
025b 4401 |D | Exit_Subprogram With_Result,0x1
025c 480e |H | Short_Literal 0xe
025d 4401 |D | Exit_Subprogram With_Result,0x1
025e 480f |H | Short_Literal 0xf
025f 4401 |D | Exit_Subprogram With_Result,0x1
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 02ce | | .CONST 0x02ce ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 001e | | .CONST 0x001e ; Number of locals
0263 INIT_0260:
0263 e011 | | Load 0x0,0x11
0264 e012 | | Load 0x0,0x12
0265 612a |a* | Indirect_Literal Discrete,0x390,{0x00000000, 0x00000ffd}
0266 00ec | | Load_Encached Diana_Tree_Cache
0267 00e3 | | Load_Encached Natural_Cache
0268 00eb | | Load_Encached Diana_Cache
0269 1917 | | Execute Package,Field_Reference,Field_Number 0x17
026a e013 | | Load 0x0,0x13
026b 0387 | | Declare_Variable Package
026c 00d8 | | Load_Top At_Offset_0
026d 020f | | Execute Module,Activate
026e e001 | | Load 0x0,0x1
026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0270 4801 |H | Short_Literal 0x1
0271 e24c | L | Load 0x1,0x4c
0272 00ea | | Load_Encached Null_String_Cache
0273 e001 | | Load 0x0,0x1
0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0275 c403 | | Store 0x2,0x3
0276 e001 | | Load 0x0,0x1
0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0278 4801 |H | Short_Literal 0x1
0279 e24c | L | Load 0x1,0x4c
027a 0092 0f38 | 8| Action Push_String_Extended,0xf38 ; "'1"
027c e001 | | Load 0x0,0x1
027d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027e c404 | | Store 0x2,0x4
027f 00ec | | Load_Encached Diana_Tree_Cache
0280 e014 | | Load 0x0,0x14
0281 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0282 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0283 02c7 | | Declare_Variable Any
0284 00d8 | | Load_Top At_Offset_0
0285 1c00 | | Execute_Immediate Run_Utility,0x0
0286 e014 | | Load 0x0,0x14
0287 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0288 02c7 | | Declare_Variable Any
0289 00d8 | | Load_Top At_Offset_0
028a 1c00 | | Execute_Immediate Run_Utility,0x0
028b e014 | | Load 0x0,0x14
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d e015 | | Load 0x0,0x15
028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0290 02c7 | | Declare_Variable Any
0291 00d8 | | Load_Top At_Offset_0
0292 1c00 | | Execute_Immediate Run_Utility,0x0
0293 e015 | | Load 0x0,0x15
0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0295 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0296 02c7 | | Declare_Variable Any
0297 00d8 | | Load_Top At_Offset_0
0298 1c00 | | Execute_Immediate Run_Utility,0x0
0299 e015 | | Load 0x0,0x15
029a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
029c 02c7 | | Declare_Variable Any
029d 00d8 | | Load_Top At_Offset_0
029e 1c00 | | Execute_Immediate Run_Utility,0x0
029f e015 | | Load 0x0,0x15
02a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02a2 02c7 | | Declare_Variable Any
02a3 00d8 | | Load_Top At_Offset_0
02a4 1c00 | | Execute_Immediate Run_Utility,0x0
02a5 e015 | | Load 0x0,0x15
02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a8 02c7 | | Declare_Variable Any
02a9 00d8 | | Load_Top At_Offset_0
02aa 1c00 | | Execute_Immediate Run_Utility,0x0
02ab e015 | | Load 0x0,0x15
02ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ad 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
02ae 02c7 | | Declare_Variable Any
02af 00d8 | | Load_Top At_Offset_0
02b0 1c00 | | Execute_Immediate Run_Utility,0x0
02b1 00e1 | | Load_Encached Boolean_Cache
02b2 e402 | | Load 0x2,0x2
02b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02b4 e247 | G | Load 0x1,0x47
02b5 0007 | | Action Break_Optional
02b6 e247 | G | Load 0x1,0x47
02b7 0007 | | Action Break_Optional
02b8 a016 | | Reference 0x0,0x16
02b9 00c6 | | Action Check_Subprogram_Elaborated
02ba e210 | | Load 0x1,0x10
02bb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
02bc e24a | J | Load 0x1,0x4a
02bd 1914 | | Execute Package,Field_Reference,Field_Number 0x14
02be e017 | | Load 0x0,0x17
02bf e018 | | Load 0x0,0x18
02c0 4818 |H | Short_Literal 0x18
02c1 0007 | | Action Break_Optional
02c2 029f 07b3 | | Declare_Subprogram For_Call,INIT_07b0
02c4 029f 082b | +| Declare_Subprogram For_Call,INIT_0828
02c6 029f 08e3 | | Declare_Subprogram For_Call,INIT_08e0
02c8 029f 095b | [| Declare_Subprogram For_Call,INIT_0958
02ca 029f 09b3 | | Declare_Subprogram For_Call,INIT_09b0
02cc 029f 0bdb | | Declare_Subprogram For_Call,INIT_0bd8
02ce BODY_0260:
02ce e244 | D | Load 0x1,0x44
02cf 0322 | " | Declare_Variable Record
02d0 4800 |H | Short_Literal 0x0
02d1 e41f | | Load 0x2,0x1f
02d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02d3 4800 |H | Short_Literal 0x0
02d4 e41f | | Load 0x2,0x1f
02d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d6 4800 |H | Short_Literal 0x0
02d7 e41f | | Load 0x2,0x1f
02d8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d9 e251 | Q | Load 0x1,0x51
02da 017d | } | Execute Record,Structure_Write
02db e402 | | Load 0x2,0x2
02dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02dd e402 | | Load 0x2,0x2
02de 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02df c410 | | Store 0x2,0x10
02e0 e40b | | Load 0x2,0xb
02e1 0120 | | Execute Any,Is_Value
02e2 6804 |h | Jump_Zero 0x2e7
02e3 e015 | | Load 0x0,0x15
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02e6 7801 |x | Jump 0x2e8
02e7 e40b | | Load 0x2,0xb
02e8 e40a | | Load 0x2,0xa
02e9 0120 | | Execute Any,Is_Value
02ea 6804 |h | Jump_Zero 0x2ef
02eb e015 | | Load 0x0,0x15
02ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02ee 7801 |x | Jump 0x2f0
02ef e40a | | Load 0x2,0xa
02f0 e409 | | Load 0x2,0x9
02f1 0120 | | Execute Any,Is_Value
02f2 6804 |h | Jump_Zero 0x2f7
02f3 e015 | | Load 0x0,0x15
02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02f6 7801 |x | Jump 0x2f8
02f7 e409 | | Load 0x2,0x9
02f8 e5fd | | Load 0x2,-0x3
02f9 85fe | | Call 0x2,-0x2
02fa c5fd | | Store 0x2,-0x3
02fb c409 | | Store 0x2,0x9
02fc c40a | | Store 0x2,0xa
02fd c40b | | Store 0x2,0xb
02fe e247 | G | Load 0x1,0x47
02ff e40a | | Load 0x2,0xa
0300 841b | | Call 0x2,0x1b
0301 c40a | | Store 0x2,0xa
0302 c411 | | Store 0x2,0x11
0303 e247 | G | Load 0x1,0x47
0304 e40b | | Load 0x2,0xb
0305 841b | | Call 0x2,0x1b
0306 c40b | | Store 0x2,0xb
0307 c412 | | Store 0x2,0x12
0308 e411 | | Load 0x2,0x11
0309 022c | , | Execute Access,Not_Null
030a e412 | | Load 0x2,0x12
030b 022c | , | Execute Access,Not_Null
030c 0279 | y | Execute Discrete,And
030d 6801 |h | Jump_Zero 0x30f
030e 4503 |E | Exit_Subprogram 0x3
030f 4800 |H | Short_Literal 0x0
0310 0092 0f39 | 9| Action Push_String_Extended,0xf39 ; "?"
0312 e015 | | Load 0x0,0x15
0313 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0314 180e | | Execute Package,Field_Execute,Field_Number 0xe
0315 e015 | | Load 0x0,0x15
0316 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0317 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0318 e015 | | Load 0x0,0x15
0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031a 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
031b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
031c c40c | | Store 0x2,0xc
031d 00cf | | Action Mark_Auxiliary
031e 786a |xj | Jump 0x389
031f e409 | | Load 0x2,0x9
0320 e015 | | Load 0x0,0x15
0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0322 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0323 c40d | | Store 0x2,0xd
0324 e40d | | Load 0x2,0xd
0325 e40c | | Load 0x2,0xc
0326 e015 | | Load 0x0,0x15
0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0328 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0329 6801 |h | Jump_Zero 0x32b
032a 7858 |xX | Jump 0x383
032b e40d | | Load 0x2,0xd
032c e015 | | Load 0x0,0x15
032d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
032f 700d |p | Jump_Nonzero 0x33d
0330 e019 | | Load 0x0,0x19
0331 180e | | Execute Package,Field_Execute,Field_Number 0xe
0332 4807 |H | Short_Literal 0x7
0333 e40d | | Load 0x2,0xd
0334 e015 | | Load 0x0,0x15
0335 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0336 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0337 0092 0f3a | :| Action Push_String_Extended,0xf3a ; " is not an ada object"
0339 01cc | | Execute Vector,Catenate
033a e01a | | Load 0x0,0x1a
033b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033c 7846 |xF | Jump 0x383
033d e40d | | Load 0x2,0xd
033e e015 | | Load 0x0,0x15
033f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0340 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0341 700d |p | Jump_Nonzero 0x34f
0342 e019 | | Load 0x0,0x19
0343 180e | | Execute Package,Field_Execute,Field_Number 0xe
0344 4807 |H | Short_Literal 0x7
0345 e40d | | Load 0x2,0xd
0346 e015 | | Load 0x0,0x15
0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0348 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0349 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; " isn't installed or higher"
034b 01cc | | Execute Vector,Catenate
034c e01a | | Load 0x0,0x1a
034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034e 7834 |x4 | Jump 0x383
034f e40e | | Load 0x2,0xe
0350 0120 | | Execute Any,Is_Value
0351 6804 |h | Jump_Zero 0x356
0352 e015 | | Load 0x0,0x15
0353 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0354 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0355 7801 |x | Jump 0x357
0356 e40e | | Load 0x2,0xe
0357 e015 | | Load 0x0,0x15
0358 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a 4801 |H | Short_Literal 0x1
035b e40d | | Load 0x2,0xd
035c e015 | | Load 0x0,0x15
035d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
035e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
035f c405 | | Store 0x2,0x5
0360 c40e | | Store 0x2,0xe
0361 e40e | | Load 0x2,0xe
0362 e015 | | Load 0x0,0x15
0363 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0364 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0365 6807 |h | Jump_Zero 0x36d
0366 e019 | | Load 0x0,0x19
0367 180e | | Execute Package,Field_Execute,Field_Number 0xe
0368 e40e | | Load 0x2,0xe
0369 e015 | | Load 0x0,0x15
036a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
036c 7816 |x | Jump 0x383
036d e251 | Q | Load 0x1,0x51
036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036f 0a01 | | Execute_Immediate Plus,0x1
0370 e251 | Q | Load 0x1,0x51
0371 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0372 e014 | | Load 0x0,0x14
0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0374 e406 | | Load 0x2,0x6
0375 0120 | | Execute Any,Is_Value
0376 6804 |h | Jump_Zero 0x37b
0377 e014 | | Load 0x0,0x14
0378 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037a 7801 |x | Jump 0x37c
037b e406 | | Load 0x2,0x6
037c e405 | | Load 0x2,0x5
037d e014 | | Load 0x0,0x14
037e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
037f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0380 c406 | | Store 0x2,0x6
0381 c408 | | Store 0x2,0x8
0382 841e | | Call 0x2,0x1e
0383 e409 | | Load 0x2,0x9
0384 e015 | | Load 0x0,0x15
0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0386 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0387 c409 | | Store 0x2,0x9
0388 00c9 | | Action Pop_Auxiliary_Loop
0389 e409 | | Load 0x2,0x9
038a e015 | | Load 0x0,0x15
038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
038d 6f91 |o | Jump_Zero 0x31f
038e 4503 |E | Exit_Subprogram 0x3
038f 0000 | | .XXX[0x1]
0390 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd}
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03b5 | | .CONST 0x03b5 ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0005 | | .CONST 0x0005 ; Number of locals
039b INIT_0398:
039b e243 | C | Load 0x1,0x43
039c e5ff | | Load 0x2,-0x1
039d 8250 | P | Call 0x1,0x50
039e c402 | | Store 0x2,0x2
039f e243 | C | Load 0x1,0x43
03a0 e5fe | | Load 0x2,-0x2
03a1 8250 | P | Call 0x1,0x50
03a2 c403 | | Store 0x2,0x3
03a3 e402 | | Load 0x2,0x2
03a4 0217 | | Execute Heap_Access,All_Reference
03a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a6 824e | N | Call 0x1,0x4e
03a7 0217 | | Execute Heap_Access,All_Reference
03a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a9 e001 | | Load 0x0,0x1
03aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ab 822e | . | Call 0x1,0x2e
03ac e403 | | Load 0x2,0x3
03ad 0217 | | Execute Heap_Access,All_Reference
03ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03af 824e | N | Call 0x1,0x4e
03b0 0217 | | Execute Heap_Access,All_Reference
03b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b2 e001 | | Load 0x0,0x1
03b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b4 822e | . | Call 0x1,0x2e
03b5 BODY_0398:
03b5 4800 |H | Short_Literal 0x0
03b6 e405 | | Load 0x2,0x5
03b7 e404 | | Load 0x2,0x4
03b8 e01b | | Load 0x0,0x1b
03b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03ba 6802 |h | Jump_Zero 0x3bd
03bb 4801 |H | Short_Literal 0x1
03bc 4402 |D | Exit_Subprogram With_Result,0x2
03bd 4800 |H | Short_Literal 0x0
03be e405 | | Load 0x2,0x5
03bf e404 | | Load 0x2,0x4
03c0 e01b | | Load 0x0,0x1b
03c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03c2 682e |h. | Jump_Zero 0x3f1
03c3 e402 | | Load 0x2,0x2
03c4 0217 | | Execute Heap_Access,All_Reference
03c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c6 e403 | | Load 0x2,0x3
03c7 0217 | | Execute Heap_Access,All_Reference
03c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c9 027c | | | Execute Discrete,Less
03ca 6802 |h | Jump_Zero 0x3cd
03cb 4801 |H | Short_Literal 0x1
03cc 4402 |D | Exit_Subprogram With_Result,0x2
03cd e402 | | Load 0x2,0x2
03ce 0217 | | Execute Heap_Access,All_Reference
03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d0 e403 | | Load 0x2,0x3
03d1 0217 | | Execute Heap_Access,All_Reference
03d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d3 027f | | Execute Discrete,Equal
03d4 681c |h | Jump_Zero 0x3f1
03d5 e402 | | Load 0x2,0x2
03d6 0217 | | Execute Heap_Access,All_Reference
03d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d8 e403 | | Load 0x2,0x3
03d9 0217 | | Execute Heap_Access,All_Reference
03da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03db 027c | | | Execute Discrete,Less
03dc 6802 |h | Jump_Zero 0x3df
03dd 4801 |H | Short_Literal 0x1
03de 4402 |D | Exit_Subprogram With_Result,0x2
03df e402 | | Load 0x2,0x2
03e0 0217 | | Execute Heap_Access,All_Reference
03e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03e2 e403 | | Load 0x2,0x3
03e3 0217 | | Execute Heap_Access,All_Reference
03e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03e5 027f | | Execute Discrete,Equal
03e6 680a |h | Jump_Zero 0x3f1
03e7 e402 | | Load 0x2,0x2
03e8 0217 | | Execute Heap_Access,All_Reference
03e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ea e403 | | Load 0x2,0x3
03eb 0217 | | Execute Heap_Access,All_Reference
03ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ed 027c | | | Execute Discrete,Less
03ee 6802 |h | Jump_Zero 0x3f1
03ef 4801 |H | Short_Literal 0x1
03f0 4402 |D | Exit_Subprogram With_Result,0x2
03f1 4800 |H | Short_Literal 0x0
03f2 4402 |D | Exit_Subprogram With_Result,0x2
03f3 0000 0000 | | .BLANK 0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0407 | | .CONST 0x0407 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0007 | | .CONST 0x0007 ; Number of locals
03fb INIT_03f8:
03fb a016 | | Reference 0x0,0x16
03fc 00c6 | | Action Check_Subprogram_Elaborated
03fd e210 | | Load 0x1,0x10
03fe 4ffe |O | Short_Literal 0x7fe
03ff 4802 |H | Short_Literal 0x2
0400 0099 | | Action Reference_Dynamic
0401 e24a | J | Load 0x1,0x4a
0402 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0403 e01c | | Load 0x0,0x1c
0404 e01d | | Load 0x0,0x1d
0405 4807 |H | Short_Literal 0x7
0406 0007 | | Action Break_Optional
0407 BODY_03f8:
0407 e251 | Q | Load 0x1,0x51
0408 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0409 4801 |H | Short_Literal 0x1
040a e402 | | Load 0x2,0x2
040b 4803 |H | Short_Literal 0x3
040c 4802 |H | Short_Literal 0x2
040d 0099 | | Action Reference_Dynamic
040e 4804 |H | Short_Literal 0x4
040f 4802 |H | Short_Literal 0x2
0410 0099 | | Action Reference_Dynamic
0411 4805 |H | Short_Literal 0x5
0412 4802 |H | Short_Literal 0x2
0413 0099 | | Action Reference_Dynamic
0414 8016 | | Call 0x0,0x16
0415 4503 |E | Exit_Subprogram 0x3
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 4603 |F | Jump_Case 0x3
041c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
041d 7802 |x | Jump 0x420 ; case 0x1
041e 7805 |x | Jump 0x424 ; case 0x2
041f 7809 |x | Jump 0x429 ; case 0x3
0420 e5ff | | Load 0x2,-0x1
0421 0091 0f31 | 1| Action Push_String_Extended_Indexed,0xf31 ; "SUCCESSFUL"
0423 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0424 e5fe | | Load 0x2,-0x2
0425 e5ff | | Load 0x2,-0x1
0426 00e0 | | Load_Encached Standard_Cache
0427 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0428 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0429 e5ff | | Load 0x2,-0x1
042a 00e0 | | Load_Encached Standard_Cache
042b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
042c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
042d 0000 0000 | | .XXX[0x3]
042f 0000 | |
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 044d | M | .CONST 0x044d ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 e5fe | | Load 0x2,-0x2
0434 0f01 | | Execute_Immediate Equal,0x1
0435 6807 |h | Jump_Zero 0x43d
0436 e5ff | | Load 0x2,-0x1
0437 8250 | P | Call 0x1,0x50
0438 0217 | | Execute Heap_Access,All_Reference
0439 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
043a e01e | | Load 0x0,0x1e
043b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043c 780e |x | Jump 0x44b
043d e5fe | | Load 0x2,-0x2
043e 700a |p | Jump_Nonzero 0x449
043f e5ff | | Load 0x2,-0x1
0440 8250 | P | Call 0x1,0x50
0441 0217 | | Execute Heap_Access,All_Reference
0442 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0443 824e | N | Call 0x1,0x4e
0444 0217 | | Execute Heap_Access,All_Reference
0445 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0446 e01e | | Load 0x0,0x1e
0447 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0448 7802 |x | Jump 0x44b
0449 4803 |H | Short_Literal 0x3
044a 4402 |D | Exit_Subprogram With_Result,0x2
044b 4800 |H | Short_Literal 0x0
044c 4402 |D | Exit_Subprogram With_Result,0x2
044d TRAP_0430:
044d e01e | | Load 0x0,0x1e
044e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044f 010f | | Execute Exception,Equal
0450 6802 |h | Jump_Zero 0x453
0451 4801 |H | Short_Literal 0x1
0452 4402 |D | Exit_Subprogram With_Result,0x2
0453 e01e | | Load 0x0,0x1e
0454 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0455 010f | | Execute Exception,Equal
0456 6802 |h | Jump_Zero 0x459
0457 4802 |H | Short_Literal 0x2
0458 4402 |D | Exit_Subprogram With_Result,0x2
0459 4804 |H | Short_Literal 0x4
045a 4402 |D | Exit_Subprogram With_Result,0x2
045b 0000 0000 | | .BLANK 0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 e5ff | | Load 0x2,-0x1
0464 8212 | | Call 0x1,0x12
0465 6803 |h | Jump_Zero 0x469
0466 00eb | | Load_Encached Diana_Cache
0467 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0468 4402 |D | Exit_Subprogram With_Result,0x2
0469 e5fe | | Load 0x2,-0x2
046a 4602 |F | Jump_Case 0x2
046b 7802 |x | Jump 0x46e ; case 0x0
046c 7809 |x | Jump 0x476 ; case 0x1
046d 780d |x | Jump 0x47b ; case 0x2
046e e5ff | | Load 0x2,-0x1
046f 8250 | P | Call 0x1,0x50
0470 0217 | | Execute Heap_Access,All_Reference
0471 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0472 824e | N | Call 0x1,0x4e
0473 0217 | | Execute Heap_Access,All_Reference
0474 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0475 4402 |D | Exit_Subprogram With_Result,0x2
0476 e5ff | | Load 0x2,-0x1
0477 8250 | P | Call 0x1,0x50
0478 0217 | | Execute Heap_Access,All_Reference
0479 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
047a 4402 |D | Exit_Subprogram With_Result,0x2
047b 00eb | | Load_Encached Diana_Cache
047c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
047d 4402 |D | Exit_Subprogram With_Result,0x2
047e 0000 0000 | | .XXX[0x2]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048a | | .CONST 0x048a ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0003 | | .CONST 0x0003 ; Number of locals
0483 INIT_0480:
0483 e014 | | Load 0x0,0x14
0484 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0485 02ff | | Declare_Variable Variant_Record
0486 00d8 | | Load_Top At_Offset_0
0487 1c00 | | Execute_Immediate Run_Utility,0x0
0488 e014 | | Load 0x0,0x14
0489 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048a BODY_0480:
048a e014 | | Load 0x0,0x14
048b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048c e402 | | Load 0x2,0x2
048d e5ff | | Load 0x2,-0x1
048e 8250 | P | Call 0x1,0x50
048f 0217 | | Execute Heap_Access,All_Reference
0490 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0491 824e | N | Call 0x1,0x4e
0492 0217 | | Execute Heap_Access,All_Reference
0493 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0494 e014 | | Load 0x0,0x14
0495 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0496 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0497 00d1 | | Pop_Control Pop_Count_1
0498 c403 | | Store 0x2,0x3
0499 00d8 | | Load_Top At_Offset_0
049a 6804 |h | Jump_Zero 0x49f
049b e015 | | Load 0x0,0x15
049c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049d 180e | | Execute Package,Field_Execute,Field_Number 0xe
049e 4401 |D | Exit_Subprogram With_Result,0x1
049f e015 | | Load 0x0,0x15
04a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a1 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a3 00eb | | Load_Encached Diana_Cache
04a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04a5 00eb | | Load_Encached Diana_Cache
04a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04a7 e014 | | Load 0x0,0x14
04a8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04a9 e402 | | Load 0x2,0x2
04aa e014 | | Load 0x0,0x14
04ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ac e402 | | Load 0x2,0x2
04ad e014 | | Load 0x0,0x14
04ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04af 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
04b0 e015 | | Load 0x0,0x15
04b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b2 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
04b3 e015 | | Load 0x0,0x15
04b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04b6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04b7 4401 |D | Exit_Subprogram With_Result,0x1
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c2 | | .CONST 0x04c2 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0003 | | .CONST 0x0003 ; Number of locals
04bb INIT_04b8:
04bb e014 | | Load 0x0,0x14
04bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04bd 02ff | | Declare_Variable Variant_Record
04be 00d8 | | Load_Top At_Offset_0
04bf 1c00 | | Execute_Immediate Run_Utility,0x0
04c0 e014 | | Load 0x0,0x14
04c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c2 BODY_04b8:
04c2 e014 | | Load 0x0,0x14
04c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c4 e402 | | Load 0x2,0x2
04c5 e5ff | | Load 0x2,-0x1
04c6 8250 | P | Call 0x1,0x50
04c7 0217 | | Execute Heap_Access,All_Reference
04c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c9 824f | O | Call 0x1,0x4f
04ca 0217 | | Execute Heap_Access,All_Reference
04cb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04cc e014 | | Load 0x0,0x14
04cd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04cf 00d1 | | Pop_Control Pop_Count_1
04d0 c403 | | Store 0x2,0x3
04d1 00d8 | | Load_Top At_Offset_0
04d2 6804 |h | Jump_Zero 0x4d7
04d3 e015 | | Load 0x0,0x15
04d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d6 4401 |D | Exit_Subprogram With_Result,0x1
04d7 e015 | | Load 0x0,0x15
04d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04da 180e | | Execute Package,Field_Execute,Field_Number 0xe
04db 00eb | | Load_Encached Diana_Cache
04dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04dd 00eb | | Load_Encached Diana_Cache
04de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04df e014 | | Load 0x0,0x14
04e0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e1 e402 | | Load 0x2,0x2
04e2 e014 | | Load 0x0,0x14
04e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04e4 e402 | | Load 0x2,0x2
04e5 e014 | | Load 0x0,0x14
04e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
04e8 e015 | | Load 0x0,0x15
04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ea 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
04eb e015 | | Load 0x0,0x15
04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ed 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04ee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04ef 4401 |D | Exit_Subprogram With_Result,0x1
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 e251 | Q | Load 0x1,0x51
04f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04f5 00ca | | Action Exit_Nullary_Function
04f6 0000 0000 | | .XXX[0x2]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb e5ff | | Load 0x2,-0x1
04fc 8212 | | Call 0x1,0x12
04fd 6802 |h | Jump_Zero 0x500
04fe 4806 |H | Short_Literal 0x6
04ff 4401 |D | Exit_Subprogram With_Result,0x1
0500 e5ff | | Load 0x2,-0x1
0501 8250 | P | Call 0x1,0x50
0502 0217 | | Execute Heap_Access,All_Reference
0503 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0504 824e | N | Call 0x1,0x4e
0505 0217 | | Execute Heap_Access,All_Reference
0506 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0507 4401 |D | Exit_Subprogram With_Result,0x1
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e5ff | | Load 0x2,-0x1
050c 8212 | | Call 0x1,0x12
050d 6802 |h | Jump_Zero 0x510
050e 4800 |H | Short_Literal 0x0
050f 4401 |D | Exit_Subprogram With_Result,0x1
0510 e5ff | | Load 0x2,-0x1
0511 8250 | P | Call 0x1,0x50
0512 0217 | | Execute Heap_Access,All_Reference
0513 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0514 824e | N | Call 0x1,0x4e
0515 0217 | | Execute Heap_Access,All_Reference
0516 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0517 4606 |F | Jump_Case 0x6
0518 7806 |x | Jump 0x51f ; case 0x0
0519 7805 |x | Jump 0x51f ; case 0x1
051a 7806 |x | Jump 0x521 ; case 0x2
051b 7805 |x | Jump 0x521 ; case 0x3
051c 7804 |x | Jump 0x521 ; case 0x4
051d 7803 |x | Jump 0x521 ; case 0x5
051e 7802 |x | Jump 0x521 ; case 0x6
051f 4801 |H | Short_Literal 0x1
0520 4401 |D | Exit_Subprogram With_Result,0x1
0521 4800 |H | Short_Literal 0x0
0522 4401 |D | Exit_Subprogram With_Result,0x1
0523 0000 0000 | | .BLANK 0000[0x5]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e5ff | | Load 0x2,-0x1
052c 8212 | | Call 0x1,0x12
052d 6802 |h | Jump_Zero 0x530
052e 4800 |H | Short_Literal 0x0
052f 4401 |D | Exit_Subprogram With_Result,0x1
0530 e5ff | | Load 0x2,-0x1
0531 8250 | P | Call 0x1,0x50
0532 0217 | | Execute Heap_Access,All_Reference
0533 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0534 4401 |D | Exit_Subprogram With_Result,0x1
0535 0000 0000 | | .XXX[0x3]
0537 0000 | |
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b e5ff | | Load 0x2,-0x1
053c 8212 | | Call 0x1,0x12
053d 6802 |h | Jump_Zero 0x540
053e 481a |H | Short_Literal 0x1a
053f 4401 |D | Exit_Subprogram With_Result,0x1
0540 e5ff | | Load 0x2,-0x1
0541 8250 | P | Call 0x1,0x50
0542 0217 | | Execute Heap_Access,All_Reference
0543 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0544 824e | N | Call 0x1,0x4e
0545 0217 | | Execute Heap_Access,All_Reference
0546 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0547 4401 |D | Exit_Subprogram With_Result,0x1
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b e5ff | | Load 0x2,-0x1
054c 8212 | | Call 0x1,0x12
054d 6801 |h | Jump_Zero 0x54f
054e 4504 |E | Exit_Subprogram 0x4
054f e5fe | | Load 0x2,-0x2
0550 0f00 | | Execute_Immediate Equal,0x0
0551 e5fe | | Load 0x2,-0x2
0552 0f02 | | Execute_Immediate Equal,0x2
0553 0278 | x | Execute Discrete,Or
0554 6808 |h | Jump_Zero 0x55d
0555 e5fd | | Load 0x2,-0x3
0556 e5ff | | Load 0x2,-0x1
0557 8250 | P | Call 0x1,0x50
0558 0217 | | Execute Heap_Access,All_Reference
0559 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055a 824e | N | Call 0x1,0x4e
055b 0217 | | Execute Heap_Access,All_Reference
055c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
055d e5fe | | Load 0x2,-0x2
055e 0f01 | | Execute_Immediate Equal,0x1
055f e5fe | | Load 0x2,-0x2
0560 0f02 | | Execute_Immediate Equal,0x2
0561 0278 | x | Execute Discrete,Or
0562 6808 |h | Jump_Zero 0x56b
0563 e5fd | | Load 0x2,-0x3
0564 e5ff | | Load 0x2,-0x1
0565 8250 | P | Call 0x1,0x50
0566 0217 | | Execute Heap_Access,All_Reference
0567 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0568 824f | O | Call 0x1,0x4f
0569 0217 | | Execute Heap_Access,All_Reference
056a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
056b 4504 |E | Exit_Subprogram 0x4
056c 0000 0000 | | .BLANK 0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 e5ff | | Load 0x2,-0x1
0574 8217 | | Call 0x1,0x17
0575 6801 |h | Jump_Zero 0x577
0576 4503 |E | Exit_Subprogram 0x3
0577 e5fe | | Load 0x2,-0x2
0578 e5ff | | Load 0x2,-0x1
0579 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
057a 0217 | | Execute Heap_Access,All_Reference
057b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
057c 4503 |E | Exit_Subprogram 0x3
057d 0000 0000 | | .XXX[0x3]
057f 0000 | |
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 e5ff | | Load 0x2,-0x1
0584 8212 | | Call 0x1,0x12
0585 6802 |h | Jump_Zero 0x588
0586 4800 |H | Short_Literal 0x0
0587 4402 |D | Exit_Subprogram With_Result,0x2
0588 e5fe | | Load 0x2,-0x2
0589 7008 |p | Jump_Nonzero 0x592
058a e5ff | | Load 0x2,-0x1
058b 8250 | P | Call 0x1,0x50
058c 0217 | | Execute Heap_Access,All_Reference
058d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
058e 824e | N | Call 0x1,0x4e
058f 0217 | | Execute Heap_Access,All_Reference
0590 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0591 4402 |D | Exit_Subprogram With_Result,0x2
0592 e5fe | | Load 0x2,-0x2
0593 0f01 | | Execute_Immediate Equal,0x1
0594 6808 |h | Jump_Zero 0x59d
0595 e5ff | | Load 0x2,-0x1
0596 8250 | P | Call 0x1,0x50
0597 0217 | | Execute Heap_Access,All_Reference
0598 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0599 824f | O | Call 0x1,0x4f
059a 0217 | | Execute Heap_Access,All_Reference
059b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
059c 4402 |D | Exit_Subprogram With_Result,0x2
059d 4800 |H | Short_Literal 0x0
059e 4402 |D | Exit_Subprogram With_Result,0x2
059f 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1
05a4 8217 | | Call 0x1,0x17
05a5 6802 |h | Jump_Zero 0x5a8
05a6 4800 |H | Short_Literal 0x0
05a7 4401 |D | Exit_Subprogram With_Result,0x1
05a8 e5ff | | Load 0x2,-0x1
05a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05aa 0217 | | Execute Heap_Access,All_Reference
05ab 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05ac 4401 |D | Exit_Subprogram With_Result,0x1
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b4 | | .CONST 0x05b4 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 00e3 | | Load_Encached Natural_Cache
05b4 BODY_05b0:
05b4 4800 |H | Short_Literal 0x0
05b5 e5ff | | Load 0x2,-0x1
05b6 482e |H. | Short_Literal 0x2e
05b7 e01b | | Load 0x0,0x1b
05b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
05b9 a402 | | Store_Unchecked 0x2,0x2
05ba 00d8 | | Load_Top At_Offset_0
05bb 6809 |h | Jump_Zero 0x5c5
05bc e5ff | | Load 0x2,-0x1
05bd 01dd | | Execute Vector,First
05be e402 | | Load 0x2,0x2
05bf 0aff | | Execute_Immediate Plus,-0x1
05c0 0248 | H | Execute Discrete,Check_In_Integer
05c1 e5ff | | Load 0x2,-0x1
05c2 01cf | | Execute Vector,Slice_Read
05c3 0335 | 5 | Declare_Variable Array,Duplicate
05c4 4401 |D | Exit_Subprogram With_Result,0x1
05c5 00ea | | Load_Encached Null_String_Cache
05c6 4401 |D | Exit_Subprogram With_Result,0x1
05c7 0000 | | .XXX[0x1]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cc | | .CONST 0x05cc ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb 00e3 | | Load_Encached Natural_Cache
05cc BODY_05c8:
05cc 4800 |H | Short_Literal 0x0
05cd e5ff | | Load 0x2,-0x1
05ce 482e |H. | Short_Literal 0x2e
05cf e01b | | Load 0x0,0x1b
05d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
05d1 a402 | | Store_Unchecked 0x2,0x2
05d2 00d8 | | Load_Top At_Offset_0
05d3 6809 |h | Jump_Zero 0x5dd
05d4 00d8 | | Load_Top At_Offset_0
05d5 0a01 | | Execute_Immediate Plus,0x1
05d6 0248 | H | Execute Discrete,Check_In_Integer
05d7 e5ff | | Load 0x2,-0x1
05d8 01dc | | Execute Vector,Last
05d9 e5ff | | Load 0x2,-0x1
05da 01cf | | Execute Vector,Slice_Read
05db 0335 | 5 | Declare_Variable Array,Duplicate
05dc 4401 |D | Exit_Subprogram With_Result,0x1
05dd e5ff | | Load 0x2,-0x1
05de 0335 | 5 | Declare_Variable Array,Duplicate
05df 4401 |D | Exit_Subprogram With_Result,0x1
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 e5ff | | Load 0x2,-0x1
05e4 8217 | | Call 0x1,0x17
05e5 6802 |h | Jump_Zero 0x5e8
05e6 00ea | | Load_Encached Null_String_Cache
05e7 4401 |D | Exit_Subprogram With_Result,0x1
05e8 e5ff | | Load 0x2,-0x1
05e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ea 0217 | | Execute Heap_Access,All_Reference
05eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ec e001 | | Load 0x0,0x1
05ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05ee 822e | . | Call 0x1,0x2e
05ef 4401 |D | Exit_Subprogram With_Result,0x1
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 e5ff | | Load 0x2,-0x1
05f4 8217 | | Call 0x1,0x17
05f5 6802 |h | Jump_Zero 0x5f8
05f6 00ea | | Load_Encached Null_String_Cache
05f7 4401 |D | Exit_Subprogram With_Result,0x1
05f8 e5ff | | Load 0x2,-0x1
05f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fa 0217 | | Execute Heap_Access,All_Reference
05fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fc e001 | | Load 0x0,0x1
05fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05fe 822d | - | Call 0x1,0x2d
05ff 4401 |D | Exit_Subprogram With_Result,0x1
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e5ff | | Load 0x2,-0x1
0604 8217 | | Call 0x1,0x17
0605 6802 |h | Jump_Zero 0x608
0606 4800 |H | Short_Literal 0x0
0607 4401 |D | Exit_Subprogram With_Result,0x1
0608 e5ff | | Load 0x2,-0x1
0609 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
060a 0217 | | Execute Heap_Access,All_Reference
060b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
060c e001 | | Load 0x0,0x1
060d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
060e 4401 |D | Exit_Subprogram With_Result,0x1
060f 0000 | | .XXX[0x1]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0615 | | .CONST 0x0615 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0002 | | .CONST 0x0002 ; Number of locals
0613 INIT_0610:
0613 e215 | | Load 0x1,0x15
0614 0322 | " | Declare_Variable Record
0615 BODY_0610:
0615 e5ff | | Load 0x2,-0x1
0616 8212 | | Call 0x1,0x12
0617 6802 |h | Jump_Zero 0x61a
0618 8216 | | Call 0x1,0x16
0619 4402 |D | Exit_Subprogram With_Result,0x2
061a e5fe | | Load 0x2,-0x2
061b 7010 |p | Jump_Nonzero 0x62c
061c e215 | | Load 0x1,0x15
061d 0322 | " | Declare_Variable Record
061e e5ff | | Load 0x2,-0x1
061f 8250 | P | Call 0x1,0x50
0620 0217 | | Execute Heap_Access,All_Reference
0621 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0622 824e | N | Call 0x1,0x4e
0623 e403 | | Load 0x2,0x3
0624 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0625 e5ff | | Load 0x2,-0x1
0626 8250 | P | Call 0x1,0x50
0627 0217 | | Execute Heap_Access,All_Reference
0628 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0629 e403 | | Load 0x2,0x3
062a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
062b 4402 |D | Exit_Subprogram With_Result,0x2
062c e5fe | | Load 0x2,-0x2
062d 0f01 | | Execute_Immediate Equal,0x1
062e 6810 |h | Jump_Zero 0x63f
062f e215 | | Load 0x1,0x15
0630 0322 | " | Declare_Variable Record
0631 e5ff | | Load 0x2,-0x1
0632 8250 | P | Call 0x1,0x50
0633 0217 | | Execute Heap_Access,All_Reference
0634 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0635 824f | O | Call 0x1,0x4f
0636 e403 | | Load 0x2,0x3
0637 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0638 e5ff | | Load 0x2,-0x1
0639 8250 | P | Call 0x1,0x50
063a 0217 | | Execute Heap_Access,All_Reference
063b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
063c e403 | | Load 0x2,0x3
063d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
063e 4402 |D | Exit_Subprogram With_Result,0x2
063f 8216 | | Call 0x1,0x16
0640 4402 |D | Exit_Subprogram With_Result,0x2
0641 0000 0000 | | .BLANK 0000[0x7]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b 029f 0c2b | +| Declare_Subprogram For_Call,INIT_0c28
064d BODY_0648:
064d e5ff | | Load 0x2,-0x1
064e 8217 | | Call 0x1,0x17
064f 6802 |h | Jump_Zero 0x652
0650 00ea | | Load_Encached Null_String_Cache
0651 4401 |D | Exit_Subprogram With_Result,0x1
0652 8402 | | Call 0x2,0x2
0653 4831 |H1 | Short_Literal 0x31
0654 0257 | W | Execute Discrete,Raise
0655 0000 0000 | | .XXX[0x3]
0657 0000 | |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b e5ff | | Load 0x2,-0x1
065c 8217 | | Call 0x1,0x17
065d 6802 |h | Jump_Zero 0x660
065e 00ea | | Load_Encached Null_String_Cache
065f 4401 |D | Exit_Subprogram With_Result,0x1
0660 e5ff | | Load 0x2,-0x1
0661 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0662 0217 | | Execute Heap_Access,All_Reference
0663 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0664 e001 | | Load 0x0,0x1
0665 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0666 4401 |D | Exit_Subprogram With_Result,0x1
0667 0000 | | .XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e5ff | | Load 0x2,-0x1
066c 8217 | | Call 0x1,0x17
066d 6802 |h | Jump_Zero 0x670
066e 6269 |bi | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x7fffffff}
066f 4401 |D | Exit_Subprogram With_Result,0x1
0670 e5ff | | Load 0x2,-0x1
0671 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0672 00e4 | | Load_Encached Positive_Cache
0673 025b | [ | Execute Discrete,Check_In_Type
0674 4401 |D | Exit_Subprogram With_Result,0x1
0675 0000 0000 | | .XXX[0x3]
0677 0000 | |
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b e5ff | | Load 0x2,-0x1
067c 8217 | | Call 0x1,0x17
067d 6802 |h | Jump_Zero 0x680
067e 00ea | | Load_Encached Null_String_Cache
067f 4401 |D | Exit_Subprogram With_Result,0x1
0680 e5ff | | Load 0x2,-0x1
0681 8230 | 0 | Call 0x1,0x30
0682 822e | . | Call 0x1,0x2e
0683 4401 |D | Exit_Subprogram With_Result,0x1
0684 0000 0000 | | .BLANK 0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 4603 |F | Jump_Case 0x3
068c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
068d 7802 |x | Jump 0x690 ; case 0x1
068e 7805 |x | Jump 0x694 ; case 0x2
068f 7809 |x | Jump 0x699 ; case 0x3
0690 e5ff | | Load 0x2,-0x1
0691 0091 0f36 | 6| Action Push_String_Extended_Indexed,0xf36 ; "START"
0693 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0694 e5fe | | Load 0x2,-0x2
0695 e5ff | | Load 0x2,-0x1
0696 00e0 | | Load_Encached Standard_Cache
0697 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0698 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0699 e5ff | | Load 0x2,-0x1
069a 00e0 | | Load_Encached Standard_Cache
069b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
069c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
069d 0000 0000 | | .XXX[0x3]
069f 0000 | |
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a4 | | .CONST 0x06a4 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0002 | | .CONST 0x0002 ; Number of locals
06a3 INIT_06a0:
06a3 00e1 | | Load_Encached Boolean_Cache
06a4 BODY_06a0:
06a4 e5fb | | Load 0x2,-0x5
06a5 4800 |H | Short_Literal 0x0
06a6 85fc | | Call 0x2,-0x4
06a7 c5fb | | Store 0x2,-0x5
06a8 00cf | | Action Mark_Auxiliary
06a9 e251 | Q | Load 0x1,0x51
06aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06ab 4801 |H | Short_Literal 0x1
06ac 0263 | c | Execute Discrete,Above_Bound
06ad 700e |p | Jump_Nonzero 0x6bc
06ae 00e1 | | Load_Encached Boolean_Cache
06af e5fb | | Load 0x2,-0x5
06b0 e405 | | Load 0x2,0x5
06b1 85fd | | Call 0x2,-0x3
06b2 c5fb | | Store 0x2,-0x5
06b3 c402 | | Store 0x2,0x2
06b4 e402 | | Load 0x2,0x2
06b5 6804 |h | Jump_Zero 0x6ba
06b6 e5fb | | Load 0x2,-0x5
06b7 e405 | | Load 0x2,0x5
06b8 85fe | | Call 0x2,-0x2
06b9 c5fb | | Store 0x2,-0x5
06ba 00c8 | | Action Pop_Auxiliary_Range
06bb 3ff2 |? | Loop_Increasing 0x6ae
06bc 00ce | | Action Pop_Auxiliary
06bd e5fb | | Load 0x2,-0x5
06be 4801 |H | Short_Literal 0x1
06bf 85fc | | Call 0x2,-0x4
06c0 c5fb | | Store 0x2,-0x5
06c1 4505 |E | Exit_Subprogram 0x5
06c2 0000 0000 | | .BLANK 0000[0x6]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cc | | .CONST 0x06cc ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0002 | | .CONST 0x0002 ; Number of locals
06cb INIT_06c8:
06cb 00e1 | | Load_Encached Boolean_Cache
06cc BODY_06c8:
06cc e5fa | | Load 0x2,-0x6
06cd 4800 |H | Short_Literal 0x0
06ce 85fc | | Call 0x2,-0x4
06cf c5fa | | Store 0x2,-0x6
06d0 e5fb | | Load 0x2,-0x5
06d1 0f01 | | Execute_Immediate Equal,0x1
06d2 6826 |h& | Jump_Zero 0x6f9
06d3 00cf | | Action Mark_Auxiliary
06d4 e251 | Q | Load 0x1,0x51
06d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06d6 4801 |H | Short_Literal 0x1
06d7 0263 | c | Execute Discrete,Above_Bound
06d8 701e |p | Jump_Nonzero 0x6f7
06d9 00e1 | | Load_Encached Boolean_Cache
06da e5fa | | Load 0x2,-0x6
06db e215 | | Load 0x1,0x15
06dc 0322 | " | Declare_Variable Record
06dd e405 | | Load 0x2,0x5
06de 824f | O | Call 0x1,0x4f
06df e408 | | Load 0x2,0x8
06e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06e1 e405 | | Load 0x2,0x5
06e2 e408 | | Load 0x2,0x8
06e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06e4 85fd | | Call 0x2,-0x3
06e5 c5fa | | Store 0x2,-0x6
06e6 c402 | | Store 0x2,0x2
06e7 e402 | | Load 0x2,0x2
06e8 680c |h | Jump_Zero 0x6f5
06e9 e5fa | | Load 0x2,-0x6
06ea e215 | | Load 0x1,0x15
06eb 0322 | " | Declare_Variable Record
06ec e405 | | Load 0x2,0x5
06ed 824f | O | Call 0x1,0x4f
06ee e407 | | Load 0x2,0x7
06ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06f0 e405 | | Load 0x2,0x5
06f1 e407 | | Load 0x2,0x7
06f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06f3 85fe | | Call 0x2,-0x2
06f4 c5fa | | Store 0x2,-0x6
06f5 00c8 | | Action Pop_Auxiliary_Range
06f6 3fe2 |? | Loop_Increasing 0x6d9
06f7 00ce | | Action Pop_Auxiliary
06f8 7827 |x' | Jump 0x720
06f9 e5fb | | Load 0x2,-0x5
06fa 7025 |p% | Jump_Nonzero 0x720
06fb 00cf | | Action Mark_Auxiliary
06fc e251 | Q | Load 0x1,0x51
06fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06fe 4801 |H | Short_Literal 0x1
06ff 0263 | c | Execute Discrete,Above_Bound
0700 701e |p | Jump_Nonzero 0x71f
0701 00e1 | | Load_Encached Boolean_Cache
0702 e5fa | | Load 0x2,-0x6
0703 e215 | | Load 0x1,0x15
0704 0322 | " | Declare_Variable Record
0705 e405 | | Load 0x2,0x5
0706 824e | N | Call 0x1,0x4e
0707 e408 | | Load 0x2,0x8
0708 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0709 e405 | | Load 0x2,0x5
070a e408 | | Load 0x2,0x8
070b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
070c 85fd | | Call 0x2,-0x3
070d c5fa | | Store 0x2,-0x6
070e c402 | | Store 0x2,0x2
070f e402 | | Load 0x2,0x2
0710 680c |h | Jump_Zero 0x71d
0711 e5fa | | Load 0x2,-0x6
0712 e215 | | Load 0x1,0x15
0713 0322 | " | Declare_Variable Record
0714 e405 | | Load 0x2,0x5
0715 824e | N | Call 0x1,0x4e
0716 e407 | | Load 0x2,0x7
0717 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0718 e405 | | Load 0x2,0x5
0719 e407 | | Load 0x2,0x7
071a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
071b 85fe | | Call 0x2,-0x2
071c c5fa | | Store 0x2,-0x6
071d 00c8 | | Action Pop_Auxiliary_Range
071e 3fe2 |? | Loop_Increasing 0x701
071f 00ce | | Action Pop_Auxiliary
0720 e5fa | | Load 0x2,-0x6
0721 4801 |H | Short_Literal 0x1
0722 85fc | | Call 0x2,-0x4
0723 c5fa | | Store 0x2,-0x6
0724 4506 |E | Exit_Subprogram 0x6
0725 0000 0000 | | .XXX[0x3]
0727 0000 | |
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 4801 |H | Short_Literal 0x1
072c a5ff | | Store_Unchecked 0x2,-0x1
072d 4501 |E | Exit_Subprogram 0x1
072e 0000 0000 | | .XXX[0x2]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 e5ff | | Load 0x2,-0x1
0734 0a01 | | Execute_Immediate Plus,0x1
0735 c5ff | | Store 0x2,-0x1
0736 4501 |E | Exit_Subprogram 0x1
0737 0000 | | .XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b e5ff | | Load 0x2,-0x1
073c 4401 |D | Exit_Subprogram With_Result,0x1
073d 0000 0000 | | .XXX[0x3]
073f 0000 | |
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 e5ff | | Load 0x2,-0x1
0744 e251 | Q | Load 0x1,0x51
0745 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0746 027d | } | Execute Discrete,Greater
0747 4401 |D | Exit_Subprogram With_Result,0x1
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 4608 |F | Jump_Case 0x8
074c 7808 |x | Jump 0x755 ; case 0x0
074d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
074e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
074f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0750 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0751 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
0752 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
0753 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
0754 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
0755 4800 |H | Short_Literal 0x0
0756 e5ff | | Load 0x2,-0x1
0757 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0758 481a |H | Short_Literal 0x1a
0759 e5ff | | Load 0x2,-0x1
075a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
075b 00eb | | Load_Encached Diana_Cache
075c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
075d e5ff | | Load 0x2,-0x1
075e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
075f 4800 |H | Short_Literal 0x0
0760 e5ff | | Load 0x2,-0x1
0761 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0762 4806 |H | Short_Literal 0x6
0763 e5ff | | Load 0x2,-0x1
0764 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0765 4302 |C | Exit_Subprogram From_Utility,0x2
0766 0000 0000 | | .XXX[0x2]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0776 | v | .CONST 0x0776 ; Address of begin
0769 07ac | | .CONST 0x07ac ; Address of exception handler
076a 0006 | | .CONST 0x0006 ; Number of locals
076b INIT_0768:
076b 00ec | | Load_Encached Diana_Tree_Cache
076c e002 | | Load 0x0,0x2
076d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
076e e00e | | Load 0x0,0xe
076f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0770 02c7 | | Declare_Variable Any
0771 00d8 | | Load_Top At_Offset_0
0772 1c00 | | Execute_Immediate Run_Utility,0x0
0773 00e1 | | Load_Encached Boolean_Cache
0774 029f 0c43 | C| Declare_Subprogram For_Call,INIT_0c40
0776 BODY_0768:
0776 e5ff | | Load 0x2,-0x1
0777 8212 | | Call 0x1,0x12
0778 6802 |h | Jump_Zero 0x77b
0779 4800 |H | Short_Literal 0x0
077a 4402 |D | Exit_Subprogram With_Result,0x2
077b e5fe | | Load 0x2,-0x2
077c 7009 |p | Jump_Nonzero 0x786
077d e5ff | | Load 0x2,-0x1
077e 8250 | P | Call 0x1,0x50
077f 0217 | | Execute Heap_Access,All_Reference
0780 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0781 824e | N | Call 0x1,0x4e
0782 0217 | | Execute Heap_Access,All_Reference
0783 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0784 a402 | | Store_Unchecked 0x2,0x2
0785 780b |x | Jump 0x791
0786 e5fe | | Load 0x2,-0x2
0787 0f01 | | Execute_Immediate Equal,0x1
0788 6806 |h | Jump_Zero 0x78f
0789 e5ff | | Load 0x2,-0x1
078a 8250 | P | Call 0x1,0x50
078b 0217 | | Execute Heap_Access,All_Reference
078c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
078d a402 | | Store_Unchecked 0x2,0x2
078e 7802 |x | Jump 0x791
078f 4800 |H | Short_Literal 0x0
0790 4402 |D | Exit_Subprogram With_Result,0x2
0791 e402 | | Load 0x2,0x2
0792 00eb | | Load_Encached Diana_Cache
0793 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0794 021f | | Execute Heap_Access,Equal
0795 7014 |p | Jump_Nonzero 0x7aa
0796 e402 | | Load 0x2,0x2
0797 00eb | | Load_Encached Diana_Cache
0798 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0799 a403 | | Store_Unchecked 0x2,0x3
079a 00e1 | | Load_Encached Boolean_Cache
079b e404 | | Load 0x2,0x4
079c e403 | | Load 0x2,0x3
079d e24d | M | Load 0x1,0x4d
079e e24b | K | Load 0x1,0x4b
079f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
07a0 c404 | | Store 0x2,0x4
07a1 c405 | | Store 0x2,0x5
07a2 e405 | | Load 0x2,0x5
07a3 7001 |p | Jump_Nonzero 0x7a5
07a4 8406 | | Call 0x2,0x6
07a5 e404 | | Load 0x2,0x4
07a6 e402 | | Load 0x2,0x2
07a7 e00e | | Load 0x0,0xe
07a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07a9 4402 |D | Exit_Subprogram With_Result,0x2
07aa 4800 |H | Short_Literal 0x0
07ab 4402 |D | Exit_Subprogram With_Result,0x2
07ac TRAP_0768:
07ac 0007 | | Action Break_Optional
07ad 4800 |H | Short_Literal 0x0
07ae 4402 |D | Exit_Subprogram With_Result,0x2
07af 0000 | | .XXX[0x1]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3 | | .CONST 0x07b3 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0001 | | .CONST 0x0001 ; Number of locals
07b3 BODY_07b0:
07b3 INIT_07b0:
07b3 e7ff | | Load 0x3,-0x1
07b4 0b19 | | Execute_Immediate Case_Compare,0x19
07b5 7036 |p6 | Jump_Nonzero 0x7ec
07b6 0b1d | | Execute_Immediate Case_Compare,0x1d
07b7 7036 |p6 | Jump_Nonzero 0x7ee
07b8 0b33 | 3 | Execute_Immediate Case_Compare,0x33
07b9 7036 |p6 | Jump_Nonzero 0x7f0
07ba 0b1e | | Execute_Immediate Case_Compare,0x1e
07bb 7036 |p6 | Jump_Nonzero 0x7f2
07bc 0b1f | | Execute_Immediate Case_Compare,0x1f
07bd 7036 |p6 | Jump_Nonzero 0x7f4
07be 0b31 | 1 | Execute_Immediate Case_Compare,0x31
07bf 7036 |p6 | Jump_Nonzero 0x7f6
07c0 0b20 | | Execute_Immediate Case_Compare,0x20
07c1 7036 |p6 | Jump_Nonzero 0x7f8
07c2 0b21 | ! | Execute_Immediate Case_Compare,0x21
07c3 7036 |p6 | Jump_Nonzero 0x7fa
07c4 0b22 | " | Execute_Immediate Case_Compare,0x22
07c5 7036 |p6 | Jump_Nonzero 0x7fc
07c6 0b23 | # | Execute_Immediate Case_Compare,0x23
07c7 7036 |p6 | Jump_Nonzero 0x7fe
07c8 0b24 | $ | Execute_Immediate Case_Compare,0x24
07c9 7036 |p6 | Jump_Nonzero 0x800
07ca 0b26 | & | Execute_Immediate Case_Compare,0x26
07cb 7036 |p6 | Jump_Nonzero 0x802
07cc 0b27 | ' | Execute_Immediate Case_Compare,0x27
07cd 7036 |p6 | Jump_Nonzero 0x804
07ce 0b2b | + | Execute_Immediate Case_Compare,0x2b
07cf 7036 |p6 | Jump_Nonzero 0x806
07d0 0b59 | Y | Execute_Immediate Case_Compare,0x59
07d1 7036 |p6 | Jump_Nonzero 0x808
07d2 0b28 | ( | Execute_Immediate Case_Compare,0x28
07d3 7036 |p6 | Jump_Nonzero 0x80a
07d4 0b25 | % | Execute_Immediate Case_Compare,0x25
07d5 7036 |p6 | Jump_Nonzero 0x80c
07d6 0b29 | ) | Execute_Immediate Case_Compare,0x29
07d7 7036 |p6 | Jump_Nonzero 0x80e
07d8 0b1a | | Execute_Immediate Case_Compare,0x1a
07d9 7036 |p6 | Jump_Nonzero 0x810
07da 0b1b | | Execute_Immediate Case_Compare,0x1b
07db 7036 |p6 | Jump_Nonzero 0x812
07dc 0b2a | * | Execute_Immediate Case_Compare,0x2a
07dd 7036 |p6 | Jump_Nonzero 0x814
07de 0b2c | , | Execute_Immediate Case_Compare,0x2c
07df 7036 |p6 | Jump_Nonzero 0x816
07e0 0b1c | | Execute_Immediate Case_Compare,0x1c
07e1 7036 |p6 | Jump_Nonzero 0x818
07e2 0b2d | - | Execute_Immediate Case_Compare,0x2d
07e3 7036 |p6 | Jump_Nonzero 0x81a
07e4 0b2e | . | Execute_Immediate Case_Compare,0x2e
07e5 7036 |p6 | Jump_Nonzero 0x81c
07e6 0b2f | / | Execute_Immediate Case_Compare,0x2f
07e7 7036 |p6 | Jump_Nonzero 0x81e
07e8 0b30 | 0 | Execute_Immediate Case_Compare,0x30
07e9 7036 |p6 | Jump_Nonzero 0x820
07ea 481a |H | Short_Literal 0x1a
07eb 4401 |D | Exit_Subprogram With_Result,0x1
07ec 4800 |H | Short_Literal 0x0
07ed 4401 |D | Exit_Subprogram With_Result,0x1
07ee 4801 |H | Short_Literal 0x1
07ef 4401 |D | Exit_Subprogram With_Result,0x1
07f0 4806 |H | Short_Literal 0x6
07f1 4401 |D | Exit_Subprogram With_Result,0x1
07f2 4802 |H | Short_Literal 0x2
07f3 4401 |D | Exit_Subprogram With_Result,0x1
07f4 4803 |H | Short_Literal 0x3
07f5 4401 |D | Exit_Subprogram With_Result,0x1
07f6 4804 |H | Short_Literal 0x4
07f7 4401 |D | Exit_Subprogram With_Result,0x1
07f8 4805 |H | Short_Literal 0x5
07f9 4401 |D | Exit_Subprogram With_Result,0x1
07fa 4806 |H | Short_Literal 0x6
07fb 4401 |D | Exit_Subprogram With_Result,0x1
07fc 4807 |H | Short_Literal 0x7
07fd 4401 |D | Exit_Subprogram With_Result,0x1
07fe 4808 |H | Short_Literal 0x8
07ff 4401 |D | Exit_Subprogram With_Result,0x1
0800 4809 |H | Short_Literal 0x9
0801 4401 |D | Exit_Subprogram With_Result,0x1
0802 480a |H | Short_Literal 0xa
0803 4401 |D | Exit_Subprogram With_Result,0x1
0804 480b |H | Short_Literal 0xb
0805 4401 |D | Exit_Subprogram With_Result,0x1
0806 480c |H | Short_Literal 0xc
0807 4401 |D | Exit_Subprogram With_Result,0x1
0808 480d |H | Short_Literal 0xd
0809 4401 |D | Exit_Subprogram With_Result,0x1
080a 480e |H | Short_Literal 0xe
080b 4401 |D | Exit_Subprogram With_Result,0x1
080c 480f |H | Short_Literal 0xf
080d 4401 |D | Exit_Subprogram With_Result,0x1
080e 4810 |H | Short_Literal 0x10
080f 4401 |D | Exit_Subprogram With_Result,0x1
0810 4811 |H | Short_Literal 0x11
0811 4401 |D | Exit_Subprogram With_Result,0x1
0812 4812 |H | Short_Literal 0x12
0813 4401 |D | Exit_Subprogram With_Result,0x1
0814 4813 |H | Short_Literal 0x13
0815 4401 |D | Exit_Subprogram With_Result,0x1
0816 4814 |H | Short_Literal 0x14
0817 4401 |D | Exit_Subprogram With_Result,0x1
0818 4815 |H | Short_Literal 0x15
0819 4401 |D | Exit_Subprogram With_Result,0x1
081a 4816 |H | Short_Literal 0x16
081b 4401 |D | Exit_Subprogram With_Result,0x1
081c 4817 |H | Short_Literal 0x17
081d 4401 |D | Exit_Subprogram With_Result,0x1
081e 4818 |H | Short_Literal 0x18
081f 4401 |D | Exit_Subprogram With_Result,0x1
0820 4819 |H | Short_Literal 0x19
0821 4401 |D | Exit_Subprogram With_Result,0x1
0822 0000 0000 | | .BLANK 0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0833 | 3 | .CONST 0x0833 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0006 | | .CONST 0x0006 ; Number of locals
082b INIT_0828:
082b 00ec | | Load_Encached Diana_Tree_Cache
082c e7ff | | Load 0x3,-0x1
082d c602 | | Store 0x3,0x2
082e 00ec | | Load_Encached Diana_Tree_Cache
082f 00ec | | Load_Encached Diana_Tree_Cache
0830 00e1 | | Load_Encached Boolean_Cache
0831 e014 | | Load 0x0,0x14
0832 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0833 BODY_0828:
0833 e014 | | Load 0x0,0x14
0834 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0835 e014 | | Load 0x0,0x14
0836 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0837 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0838 e7ff | | Load 0x3,-0x1
0839 e014 | | Load 0x0,0x14
083a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
083b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
083c c603 | | Store 0x3,0x3
083d c606 | | Store 0x3,0x6
083e 00d8 | | Load_Top At_Offset_0
083f 6802 |h | Jump_Zero 0x842
0840 4806 |H | Short_Literal 0x6
0841 4401 |D | Exit_Subprogram With_Result,0x1
0842 e603 | | Load 0x3,0x3
0843 00eb | | Load_Encached Diana_Cache
0844 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0845 0fa8 | | Execute_Immediate Equal,0xa8
0846 6821 |h! | Jump_Zero 0x868
0847 e603 | | Load 0x3,0x3
0848 00eb | | Load_Encached Diana_Cache
0849 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
084a 00eb | | Load_Encached Diana_Cache
084b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
084c 0b3d | = | Execute_Immediate Case_Compare,0x3d
084d 700e |p | Jump_Nonzero 0x85c
084e 0b3e | > | Execute_Immediate Case_Compare,0x3e
084f 700e |p | Jump_Nonzero 0x85e
0850 0b41 | A | Execute_Immediate Case_Compare,0x41
0851 700c |p | Jump_Nonzero 0x85e
0852 0b47 | G | Execute_Immediate Case_Compare,0x47
0853 700d |p | Jump_Nonzero 0x861
0854 0b48 | H | Execute_Immediate Case_Compare,0x48
0855 700b |p | Jump_Nonzero 0x861
0856 0b49 | I | Execute_Immediate Case_Compare,0x49
0857 7009 |p | Jump_Nonzero 0x861
0858 0b00 | | Execute_Immediate Case_Compare,0x0
0859 700a |p | Jump_Nonzero 0x864
085a 48e2 |H | Short_Literal 0xe2
085b 0257 | W | Execute Discrete,Raise
085c 4800 |H | Short_Literal 0x0
085d 4401 |D | Exit_Subprogram With_Result,0x1
085e 4801 |H | Short_Literal 0x1
085f a605 | | Store_Unchecked 0x3,0x5
0860 7805 |x | Jump 0x866
0861 4800 |H | Short_Literal 0x0
0862 a605 | | Store_Unchecked 0x3,0x5
0863 7802 |x | Jump 0x866
0864 4806 |H | Short_Literal 0x6
0865 4401 |D | Exit_Subprogram With_Result,0x1
0866 00d1 | | Pop_Control Pop_Count_1
0867 7802 |x | Jump 0x86a
0868 4800 |H | Short_Literal 0x0
0869 a605 | | Store_Unchecked 0x3,0x5
086a 00cf | | Action Mark_Auxiliary
086b 0007 | | Action Break_Optional
086c e602 | | Load 0x3,0x2
086d a604 | | Store_Unchecked 0x3,0x4
086e e602 | | Load 0x3,0x2
086f 00eb | | Load_Encached Diana_Cache
0870 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0871 a602 | | Store_Unchecked 0x3,0x2
0872 e602 | | Load 0x3,0x2
0873 00eb | | Load_Encached Diana_Cache
0874 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0875 0b3e | > | Execute_Immediate Case_Compare,0x3e
0876 700f |p | Jump_Nonzero 0x886
0877 0b7c | | | Execute_Immediate Case_Compare,0x7c
0878 7013 |p | Jump_Nonzero 0x88c
0879 0b47 | G | Execute_Immediate Case_Compare,0x47
087a 7023 |p# | Jump_Nonzero 0x89e
087b 0b48 | H | Execute_Immediate Case_Compare,0x48
087c 7023 |p# | Jump_Nonzero 0x8a0
087d 0b00 | | Execute_Immediate Case_Compare,0x0
087e 7023 |p# | Jump_Nonzero 0x8a2
087f 0b7b | { | Execute_Immediate Case_Compare,0x7b
0880 7027 |p' | Jump_Nonzero 0x8a8
0881 0b7a | z | Execute_Immediate Case_Compare,0x7a
0882 7025 |p% | Jump_Nonzero 0x8a8
0883 0b41 | A | Execute_Immediate Case_Compare,0x41
0884 7025 |p% | Jump_Nonzero 0x8aa
0885 784e |xN | Jump 0x8d4
0886 e605 | | Load 0x3,0x5
0887 6802 |h | Jump_Zero 0x88a
0888 4801 |H | Short_Literal 0x1
0889 4401 |D | Exit_Subprogram With_Result,0x1
088a 4803 |H | Short_Literal 0x3
088b 4401 |D | Exit_Subprogram With_Result,0x1
088c e602 | | Load 0x3,0x2
088d 00eb | | Load_Encached Diana_Cache
088e 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
088f e604 | | Load 0x3,0x4
0890 021f | | Execute Heap_Access,Equal
0891 6806 |h | Jump_Zero 0x898
0892 e605 | | Load 0x3,0x5
0893 6802 |h | Jump_Zero 0x896
0894 4801 |H | Short_Literal 0x1
0895 4401 |D | Exit_Subprogram With_Result,0x1
0896 4803 |H | Short_Literal 0x3
0897 4401 |D | Exit_Subprogram With_Result,0x1
0898 e605 | | Load 0x3,0x5
0899 6802 |h | Jump_Zero 0x89c
089a 4802 |H | Short_Literal 0x2
089b 4401 |D | Exit_Subprogram With_Result,0x1
089c 4804 |H | Short_Literal 0x4
089d 4401 |D | Exit_Subprogram With_Result,0x1
089e 4805 |H | Short_Literal 0x5
089f 4401 |D | Exit_Subprogram With_Result,0x1
08a0 4806 |H | Short_Literal 0x6
08a1 4401 |D | Exit_Subprogram With_Result,0x1
08a2 e605 | | Load 0x3,0x5
08a3 6802 |h | Jump_Zero 0x8a6
08a4 4800 |H | Short_Literal 0x0
08a5 4401 |D | Exit_Subprogram With_Result,0x1
08a6 4806 |H | Short_Literal 0x6
08a7 4401 |D | Exit_Subprogram With_Result,0x1
08a8 4806 |H | Short_Literal 0x6
08a9 4401 |D | Exit_Subprogram With_Result,0x1
08aa e604 | | Load 0x3,0x4
08ab 00eb | | Load_Encached Diana_Cache
08ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08ad 0b22 | " | Execute_Immediate Case_Compare,0x22
08ae 7008 |p | Jump_Nonzero 0x8b7
08af 0b7c | | | Execute_Immediate Case_Compare,0x7c
08b0 701b |p | Jump_Nonzero 0x8cc
08b1 0b7b | { | Execute_Immediate Case_Compare,0x7b
08b2 701f |p | Jump_Nonzero 0x8d2
08b3 0b7a | z | Execute_Immediate Case_Compare,0x7a
08b4 701d |p | Jump_Nonzero 0x8d2
08b5 4806 |H | Short_Literal 0x6
08b6 4401 |D | Exit_Subprogram With_Result,0x1
08b7 e602 | | Load 0x3,0x2
08b8 00eb | | Load_Encached Diana_Cache
08b9 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
08ba 00eb | | Load_Encached Diana_Cache
08bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08bc 0b7c | | | Execute_Immediate Case_Compare,0x7c
08bd 7006 |p | Jump_Nonzero 0x8c4
08be 0b7b | { | Execute_Immediate Case_Compare,0x7b
08bf 7006 |p | Jump_Nonzero 0x8c6
08c0 0b7a | z | Execute_Immediate Case_Compare,0x7a
08c1 7004 |p | Jump_Nonzero 0x8c6
08c2 48e2 |H | Short_Literal 0xe2
08c3 0257 | W | Execute Discrete,Raise
08c4 4801 |H | Short_Literal 0x1
08c5 4401 |D | Exit_Subprogram With_Result,0x1
08c6 e605 | | Load 0x3,0x5
08c7 6802 |h | Jump_Zero 0x8ca
08c8 4800 |H | Short_Literal 0x0
08c9 4401 |D | Exit_Subprogram With_Result,0x1
08ca 4806 |H | Short_Literal 0x6
08cb 4401 |D | Exit_Subprogram With_Result,0x1
08cc e605 | | Load 0x3,0x5
08cd 6802 |h | Jump_Zero 0x8d0
08ce 4801 |H | Short_Literal 0x1
08cf 4401 |D | Exit_Subprogram With_Result,0x1
08d0 4803 |H | Short_Literal 0x3
08d1 4401 |D | Exit_Subprogram With_Result,0x1
08d2 4806 |H | Short_Literal 0x6
08d3 4401 |D | Exit_Subprogram With_Result,0x1
08d4 00d1 | | Pop_Control Pop_Count_1
08d5 00c9 | | Action Pop_Auxiliary_Loop
08d6 7f95 | | Jump 0x86c
08d7 0000 | | .XXX[0x1]
08d8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
08dc 0000 0000 | | .BLANK 0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e9 | | .CONST 0x08e9 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0005 | | .CONST 0x0005 ; Number of locals
08e3 INIT_08e0:
08e3 00e3 | | Load_Encached Natural_Cache
08e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08e5 e014 | | Load 0x0,0x14
08e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e7 00ec | | Load_Encached Diana_Tree_Cache
08e8 e247 | G | Load 0x1,0x47
08e9 BODY_08e0:
08e9 00cf | | Action Mark_Auxiliary
08ea 7809 |x | Jump 0x8f4
08eb e602 | | Load 0x3,0x2
08ec 0a01 | | Execute_Immediate Plus,0x1
08ed c602 | | Store 0x3,0x2
08ee e7ff | | Load 0x3,-0x1
08ef e015 | | Load 0x0,0x15
08f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08f2 c7ff | | Store 0x3,-0x1
08f3 00c9 | | Action Pop_Auxiliary_Loop
08f4 e7ff | | Load 0x3,-0x1
08f5 e015 | | Load 0x0,0x15
08f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
08f8 6ff2 |o | Jump_Zero 0x8eb
08f9 00ce | | Action Pop_Auxiliary
08fa e602 | | Load 0x3,0x2
08fb 7003 |p | Jump_Nonzero 0x8ff
08fc e247 | G | Load 0x1,0x47
08fd a7fe | | Store_Unchecked 0x3,-0x2
08fe 4501 |E | Exit_Subprogram 0x1
08ff e7ff | | Load 0x3,-0x1
0900 e015 | | Load 0x0,0x15
0901 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0902 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0903 4801 |H | Short_Literal 0x1
0904 e602 | | Load 0x3,0x2
0905 e247 | G | Load 0x1,0x47
0906 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0907 a605 | | Store_Unchecked 0x3,0x5
0908 4800 |H | Short_Literal 0x0
0909 a602 | | Store_Unchecked 0x3,0x2
090a 00cf | | Action Mark_Auxiliary
090b 783c |x< | Jump 0x948
090c e602 | | Load 0x3,0x2
090d 0a01 | | Execute_Immediate Plus,0x1
090e c602 | | Store 0x3,0x2
090f e014 | | Load 0x0,0x14
0910 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0911 00ec | | Load_Encached Diana_Tree_Cache
0912 62bd |b | Indirect_Literal Discrete,0xbd0,{0x00000000, 0x00004000}
0913 e01f | | Load 0x0,0x1f
0914 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0915 e7ff | | Load 0x3,-0x1
0916 e015 | | Load 0x0,0x15
0917 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0918 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0919 e015 | | Load 0x0,0x15
091a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
091b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
091c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
091d c604 | | Store 0x3,0x4
091e c603 | | Store 0x3,0x3
091f e603 | | Load 0x3,0x3
0920 6811 |h | Jump_Zero 0x932
0921 e014 | | Load 0x0,0x14
0922 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0923 e014 | | Load 0x0,0x14
0924 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0925 62aa |b | Indirect_Literal Discrete,0xbd0,{0x00000000, 0x00004000}
0926 e01f | | Load 0x0,0x1f
0927 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0928 e7ff | | Load 0x3,-0x1
0929 e015 | | Load 0x0,0x15
092a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
092c e015 | | Load 0x0,0x15
092d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
092f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0930 c604 | | Store 0x3,0x4
0931 c603 | | Store 0x3,0x3
0932 e603 | | Load 0x3,0x3
0933 7008 |p | Jump_Nonzero 0x93c
0934 e604 | | Load 0x3,0x4
0935 00eb | | Load_Encached Diana_Cache
0936 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0937 e602 | | Load 0x3,0x2
0938 e605 | | Load 0x3,0x5
0939 0227 | ' | Execute Access,All_Reference
093a 01d6 | | Execute Vector,Field_Write
093b 7806 |x | Jump 0x942
093c e002 | | Load 0x0,0x2
093d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
093e e602 | | Load 0x3,0x2
093f e605 | | Load 0x3,0x5
0940 0227 | ' | Execute Access,All_Reference
0941 01d6 | | Execute Vector,Field_Write
0942 e7ff | | Load 0x3,-0x1
0943 e015 | | Load 0x0,0x15
0944 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0945 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0946 c7ff | | Store 0x3,-0x1
0947 00c9 | | Action Pop_Auxiliary_Loop
0948 e7ff | | Load 0x3,-0x1
0949 e015 | | Load 0x0,0x15
094a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
094b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
094c 6fbf |o | Jump_Zero 0x90c
094d 00ce | | Action Pop_Auxiliary
094e 00d8 | | Load_Top At_Offset_0
094f a7fe | | Store_Unchecked 0x3,-0x2
0950 4501 |E | Exit_Subprogram 0x1
0951 0000 0000 | | .BLANK 0000[0x7]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 0963 | c | .CONST 0x0963 ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0003 | | .CONST 0x0003 ; Number of locals
095b INIT_0958:
095b e002 | | Load 0x0,0x2
095c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
095d e7ff | | Load 0x3,-0x1
095e 00eb | | Load_Encached Diana_Cache
095f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0960 c602 | | Store 0x3,0x2
0961 00e1 | | Load_Encached Boolean_Cache
0962 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0963 BODY_0958:
0963 e411 | | Load 0x2,0x11
0964 681f |h | Jump_Zero 0x984
0965 00cf | | Action Mark_Auxiliary
0966 e411 | | Load 0x2,0x11
0967 0227 | ' | Execute Access,All_Reference
0968 01dc | | Execute Vector,Last
0969 4801 |H | Short_Literal 0x1
096a 0263 | c | Execute Discrete,Above_Bound
096b 7015 |p | Jump_Nonzero 0x981
096c 00d8 | | Load_Top At_Offset_0
096d e411 | | Load 0x2,0x11
096e 0227 | ' | Execute Access,All_Reference
096f 01d7 | | Execute Vector,Field_Read
0970 e002 | | Load 0x0,0x2
0971 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0972 021e | | Execute Heap_Access,Maximum
0973 680b |h | Jump_Zero 0x97f
0974 4800 |H | Short_Literal 0x0
0975 a603 | | Store_Unchecked 0x3,0x3
0976 00d8 | | Load_Top At_Offset_0
0977 e411 | | Load 0x2,0x11
0978 0227 | ' | Execute Access,All_Reference
0979 01d7 | | Execute Vector,Field_Read
097a e602 | | Load 0x3,0x2
097b 021f | | Execute Heap_Access,Equal
097c 6802 |h | Jump_Zero 0x97f
097d 4801 |H | Short_Literal 0x1
097e 4401 |D | Exit_Subprogram With_Result,0x1
097f 00c8 | | Action Pop_Auxiliary_Range
0980 3feb |? | Loop_Increasing 0x96c
0981 00ce | | Action Pop_Auxiliary
0982 00d8 | | Load_Top At_Offset_0
0983 4401 |D | Exit_Subprogram With_Result,0x1
0984 e412 | | Load 0x2,0x12
0985 681f |h | Jump_Zero 0x9a5
0986 00cf | | Action Mark_Auxiliary
0987 e412 | | Load 0x2,0x12
0988 0227 | ' | Execute Access,All_Reference
0989 01dc | | Execute Vector,Last
098a 4801 |H | Short_Literal 0x1
098b 0263 | c | Execute Discrete,Above_Bound
098c 7016 |p | Jump_Nonzero 0x9a3
098d 00d8 | | Load_Top At_Offset_0
098e e411 | | Load 0x2,0x11
098f 0227 | ' | Execute Access,All_Reference
0990 01d7 | | Execute Vector,Field_Read
0991 e002 | | Load 0x0,0x2
0992 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0993 021e | | Execute Heap_Access,Maximum
0994 680b |h | Jump_Zero 0x9a0
0995 4800 |H | Short_Literal 0x0
0996 a603 | | Store_Unchecked 0x3,0x3
0997 00d8 | | Load_Top At_Offset_0
0998 e412 | | Load 0x2,0x12
0999 0227 | ' | Execute Access,All_Reference
099a 01d7 | | Execute Vector,Field_Read
099b e602 | | Load 0x3,0x2
099c 021f | | Execute Heap_Access,Equal
099d 6802 |h | Jump_Zero 0x9a0
099e 4800 |H | Short_Literal 0x0
099f 4401 |D | Exit_Subprogram With_Result,0x1
09a0 e603 | | Load 0x3,0x3
09a1 0f00 | | Execute_Immediate Equal,0x0
09a2 4401 |D | Exit_Subprogram With_Result,0x1
09a3 00ce | | Action Pop_Auxiliary
09a4 7802 |x | Jump 0x9a7
09a5 4801 |H | Short_Literal 0x1
09a6 4401 |D | Exit_Subprogram With_Result,0x1
09a7 4831 |H1 | Short_Literal 0x31
09a8 0257 | W | Execute Discrete,Raise
09a9 0000 0000 | | .BLANK 0000[0x7]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09d3 | | .CONST 0x09d3 ; Address of begin
09b1 0004 | | .CONST 0x0004 ; Address of exception handler
09b2 0011 | | .CONST 0x0011 ; Number of locals
09b3 INIT_09b0:
09b3 00eb | | Load_Encached Diana_Cache
09b4 1b82 | | Execute Package,Field_Read,Field_Number 0x82
09b5 00eb | | Load_Encached Diana_Cache
09b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09b7 00ee | | Load_Encached Diana_Seq_Type_Cache
09b8 00ec | | Load_Encached Diana_Tree_Cache
09b9 e7fe | | Load 0x3,-0x2
09ba 00e3 | | Load_Encached Natural_Cache
09bb 03f1 | | Declare_Variable Discrete,With_Value
09bc 00e1 | | Load_Encached Boolean_Cache
09bd e001 | | Load 0x0,0x1
09be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09bf e001 | | Load 0x0,0x1
09c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09c1 00e3 | | Load_Encached Natural_Cache
09c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09c3 e015 | | Load 0x0,0x15
09c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09c6 02c7 | | Declare_Variable Any
09c7 00d8 | | Load_Top At_Offset_0
09c8 1c00 | | Execute_Immediate Run_Utility,0x0
09c9 e7fc | | Load 0x3,-0x4
09ca e214 | | Load 0x1,0x14
09cb 03f1 | | Declare_Variable Discrete,With_Value
09cc 00ef | | Load_Encached Diana_Sequence_Cache
09cd 00ef | | Load_Encached Diana_Sequence_Cache
09ce 00e3 | | Load_Encached Natural_Cache
09cf 029f 0c83 | | Declare_Subprogram For_Call,INIT_0c80
09d1 029f 0ca3 | | Declare_Subprogram For_Call,INIT_0ca0
09d3 BODY_09b0:
09d3 e7ff | | Load 0x3,-0x1
09d4 00eb | | Load_Encached Diana_Cache
09d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09d6 6801 |h | Jump_Zero 0x9d8
09d7 4505 |E | Exit_Subprogram 0x5
09d8 e7ff | | Load 0x3,-0x1
09d9 00eb | | Load_Encached Diana_Cache
09da 1883 | | Execute Package,Field_Execute,Field_Number 0x83
09db a602 | | Store_Unchecked 0x3,0x2
09dc e7ff | | Load 0x3,-0x1
09dd 00eb | | Load_Encached Diana_Cache
09de 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09df a603 | | Store_Unchecked 0x3,0x3
09e0 4800 |H | Short_Literal 0x0
09e1 a607 | | Store_Unchecked 0x3,0x7
09e2 e7ff | | Load 0x3,-0x1
09e3 00eb | | Load_Encached Diana_Cache
09e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09e5 0b77 | w | Execute_Immediate Case_Compare,0x77
09e6 700b |p | Jump_Nonzero 0x9f2
09e7 0b48 | H | Execute_Immediate Case_Compare,0x48
09e8 702c |p, | Jump_Nonzero 0xa15
09e9 0b3d | = | Execute_Immediate Case_Compare,0x3d
09ea 702a |p* | Jump_Nonzero 0xa15
09eb 0b3e | > | Execute_Immediate Case_Compare,0x3e
09ec 702f |p/ | Jump_Nonzero 0xa1c
09ed 0b41 | A | Execute_Immediate Case_Compare,0x41
09ee 702d |p- | Jump_Nonzero 0xa1c
09ef 0b47 | G | Execute_Immediate Case_Compare,0x47
09f0 702b |p+ | Jump_Nonzero 0xa1c
09f1 7830 |x0 | Jump 0xa22
09f2 e7ff | | Load 0x3,-0x1
09f3 00eb | | Load_Encached Diana_Cache
09f4 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09f5 4976 |Iv | Short_Literal 0x176
09f6 00eb | | Load_Encached Diana_Cache
09f7 0098 | | Execute Package,Field_Read_Dynamic
09f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09f9 a605 | | Store_Unchecked 0x3,0x5
09fa 4801 |H | Short_Literal 0x1
09fb e40d | | Load 0x2,0xd
09fc e605 | | Load 0x3,0x5
09fd 00eb | | Load_Encached Diana_Cache
09fe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
09ff 00eb | | Load_Encached Diana_Cache
0a00 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0a01 e015 | | Load 0x0,0x15
0a02 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a03 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0a04 c60b | | Store 0x3,0xb
0a05 e60b | | Load 0x3,0xb
0a06 e015 | | Load 0x0,0x15
0a07 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a08 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0a09 7018 |p | Jump_Nonzero 0xa22
0a0a 00e1 | | Load_Encached Boolean_Cache
0a0b e015 | | Load 0x0,0x15
0a0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a0e e40d | | Load 0x2,0xd
0a0f e409 | | Load 0x2,0x9
0a10 e015 | | Load 0x0,0x15
0a11 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a12 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0a13 c40f | | Store 0x2,0xf
0a14 780d |x | Jump 0xa22
0a15 4801 |H | Short_Literal 0x1
0a16 a607 | | Store_Unchecked 0x3,0x7
0a17 e7ff | | Load 0x3,-0x1
0a18 00eb | | Load_Encached Diana_Cache
0a19 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0a1a a605 | | Store_Unchecked 0x3,0x5
0a1b 7806 |x | Jump 0xa22
0a1c 4801 |H | Short_Literal 0x1
0a1d a607 | | Store_Unchecked 0x3,0x7
0a1e e7ff | | Load 0x3,-0x1
0a1f 00eb | | Load_Encached Diana_Cache
0a20 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a21 a605 | | Store_Unchecked 0x3,0x5
0a22 00d1 | | Pop_Control Pop_Count_1
0a23 e607 | | Load 0x3,0x7
0a24 6843 |hC | Jump_Zero 0xa68
0a25 4801 |H | Short_Literal 0x1
0a26 e24c | L | Load 0x1,0x4c
0a27 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "'"
0a29 e605 | | Load 0x3,0x5
0a2a e014 | | Load 0x0,0x14
0a2b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a2c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0a2d 01cc | | Execute Vector,Catenate
0a2e e001 | | Load 0x0,0x1
0a2f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a30 a608 | | Store_Unchecked 0x3,0x8
0a31 e608 | | Load 0x3,0x8
0a32 e404 | | Load 0x2,0x4
0a33 e001 | | Load 0x0,0x1
0a34 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a35 6802 |h | Jump_Zero 0xa38
0a36 e403 | | Load 0x2,0x3
0a37 a608 | | Store_Unchecked 0x3,0x8
0a38 e251 | Q | Load 0x1,0x51
0a39 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a3a 0a01 | | Execute_Immediate Plus,0x1
0a3b e251 | Q | Load 0x1,0x51
0a3c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a3d e240 | @ | Load 0x1,0x40
0a3e 0322 | " | Declare_Variable Record
0a3f 4801 |H | Short_Literal 0x1
0a40 e24c | L | Load 0x1,0x4c
0a41 e605 | | Load 0x3,0x5
0a42 e014 | | Load 0x0,0x14
0a43 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a44 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0a45 e608 | | Load 0x3,0x8
0a46 e001 | | Load 0x0,0x1
0a47 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0a48 01cc | | Execute Vector,Catenate
0a49 e001 | | Load 0x0,0x1
0a4a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a4b e612 | | Load 0x3,0x12
0a4c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a4d e7fd | | Load 0x3,-0x3
0a4e e612 | | Load 0x3,0x12
0a4f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a50 e605 | | Load 0x3,0x5
0a51 00eb | | Load_Encached Diana_Cache
0a52 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a53 8419 | | Call 0x2,0x19
0a54 e612 | | Load 0x3,0x12
0a55 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a56 e605 | | Load 0x3,0x5
0a57 e612 | | Load 0x3,0x12
0a58 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a59 4800 |H | Short_Literal 0x0
0a5a e612 | | Load 0x3,0x12
0a5b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0a5c 4806 |H | Short_Literal 0x6
0a5d e612 | | Load 0x3,0x12
0a5e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0a5f e251 | Q | Load 0x1,0x51
0a60 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a61 00e3 | | Load_Encached Natural_Cache
0a62 025b | [ | Execute Discrete,Check_In_Type
0a63 824f | O | Call 0x1,0x4f
0a64 0218 | | Execute Heap_Access,All_Write
0a65 e251 | Q | Load 0x1,0x51
0a66 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a67 c606 | | Store 0x3,0x6
0a68 e7ff | | Load 0x3,-0x1
0a69 00eb | | Load_Encached Diana_Cache
0a6a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a6b 0b17 | | Execute_Immediate Case_Compare,0x17
0a6c 7058 |pX | Jump_Nonzero 0xac5
0a6d 0b16 | | Execute_Immediate Case_Compare,0x16
0a6e 7056 |pV | Jump_Nonzero 0xac5
0a6f 0b14 | | Execute_Immediate Case_Compare,0x14
0a70 7054 |pT | Jump_Nonzero 0xac5
0a71 0b5b | [ | Execute_Immediate Case_Compare,0x5b
0a72 70ca |p | Jump_Nonzero 0xb3d
0a73 0b10 | | Execute_Immediate Case_Compare,0x10
0a74 70c8 |p | Jump_Nonzero 0xb3d
0a75 0b0d | | Execute_Immediate Case_Compare,0xd
0a76 7131 |q1 | Jump_Nonzero 0xba8
0a77 0b4d | M | Execute_Immediate Case_Compare,0x4d
0a78 7148 |qH | Jump_Nonzero 0xbc1
0a79 e602 | | Load 0x3,0x2
0a7a 4604 |F | Jump_Case 0x4
0a7b 4505 |E | Exit_Subprogram 0x5 ; case 0x0
0a7c 7803 |x | Jump 0xa80 ; case 0x1
0a7d 780a |x | Jump 0xa88 ; case 0x2
0a7e 7818 |x | Jump 0xa97 ; case 0x3
0a7f 782d |x- | Jump 0xaad ; case 0x4
0a80 e60c | | Load 0x3,0xc
0a81 e7fd | | Load 0x3,-0x3
0a82 e606 | | Load 0x3,0x6
0a83 e7ff | | Load 0x3,-0x1
0a84 00eb | | Load_Encached Diana_Cache
0a85 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0a86 841d | | Call 0x2,0x1d
0a87 4505 |E | Exit_Subprogram 0x5
0a88 e60c | | Load 0x3,0xc
0a89 e7fd | | Load 0x3,-0x3
0a8a e606 | | Load 0x3,0x6
0a8b e7ff | | Load 0x3,-0x1
0a8c 00eb | | Load_Encached Diana_Cache
0a8d 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0a8e 841d | | Call 0x2,0x1d
0a8f e60c | | Load 0x3,0xc
0a90 e7fd | | Load 0x3,-0x3
0a91 e606 | | Load 0x3,0x6
0a92 e7ff | | Load 0x3,-0x1
0a93 00eb | | Load_Encached Diana_Cache
0a94 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0a95 841d | | Call 0x2,0x1d
0a96 4505 |E | Exit_Subprogram 0x5
0a97 e60c | | Load 0x3,0xc
0a98 e7fd | | Load 0x3,-0x3
0a99 e606 | | Load 0x3,0x6
0a9a e7ff | | Load 0x3,-0x1
0a9b 00eb | | Load_Encached Diana_Cache
0a9c 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0a9d 841d | | Call 0x2,0x1d
0a9e e60c | | Load 0x3,0xc
0a9f e7fd | | Load 0x3,-0x3
0aa0 e606 | | Load 0x3,0x6
0aa1 e7ff | | Load 0x3,-0x1
0aa2 00eb | | Load_Encached Diana_Cache
0aa3 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0aa4 841d | | Call 0x2,0x1d
0aa5 e60c | | Load 0x3,0xc
0aa6 e7fd | | Load 0x3,-0x3
0aa7 e606 | | Load 0x3,0x6
0aa8 e7ff | | Load 0x3,-0x1
0aa9 00eb | | Load_Encached Diana_Cache
0aaa 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0aab 841d | | Call 0x2,0x1d
0aac 4505 |E | Exit_Subprogram 0x5
0aad e7ff | | Load 0x3,-0x1
0aae 00eb | | Load_Encached Diana_Cache
0aaf 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0ab0 a604 | | Store_Unchecked 0x3,0x4
0ab1 00cf | | Action Mark_Auxiliary
0ab2 780c |x | Jump 0xabf
0ab3 e60c | | Load 0x3,0xc
0ab4 e7fd | | Load 0x3,-0x3
0ab5 e606 | | Load 0x3,0x6
0ab6 e604 | | Load 0x3,0x4
0ab7 00eb | | Load_Encached Diana_Cache
0ab8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0ab9 841d | | Call 0x2,0x1d
0aba e604 | | Load 0x3,0x4
0abb 00eb | | Load_Encached Diana_Cache
0abc 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0abd a604 | | Store_Unchecked 0x3,0x4
0abe 00c9 | | Action Pop_Auxiliary_Loop
0abf e604 | | Load 0x3,0x4
0ac0 00eb | | Load_Encached Diana_Cache
0ac1 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0ac2 6ff0 |o | Jump_Zero 0xab3
0ac3 00ce | | Action Pop_Auxiliary
0ac4 4505 |E | Exit_Subprogram 0x5
0ac5 e7ff | | Load 0x3,-0x1
0ac6 00eb | | Load_Encached Diana_Cache
0ac7 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0ac8 a605 | | Store_Unchecked 0x3,0x5
0ac9 e605 | | Load 0x3,0x5
0aca 00eb | | Load_Encached Diana_Cache
0acb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0acc 706f |po | Jump_Nonzero 0xb3c
0acd e605 | | Load 0x3,0x5
0ace 841c | | Call 0x2,0x1c
0acf 686c |hl | Jump_Zero 0xb3c
0ad0 00e1 | | Load_Encached Boolean_Cache
0ad1 e60a | | Load 0x3,0xa
0ad2 e605 | | Load 0x3,0x5
0ad3 e410 | | Load 0x2,0x10
0ad4 e402 | | Load 0x2,0x2
0ad5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ad6 c60a | | Store 0x3,0xa
0ad7 c607 | | Store 0x3,0x7
0ad8 e607 | | Load 0x3,0x7
0ad9 704b |pK | Jump_Nonzero 0xb25
0ada 4801 |H | Short_Literal 0x1
0adb e24c | L | Load 0x1,0x4c
0adc 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "'"
0ade e605 | | Load 0x3,0x5
0adf e014 | | Load 0x0,0x14
0ae0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ae1 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0ae2 01cc | | Execute Vector,Catenate
0ae3 e001 | | Load 0x0,0x1
0ae4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ae5 a608 | | Store_Unchecked 0x3,0x8
0ae6 e608 | | Load 0x3,0x8
0ae7 e404 | | Load 0x2,0x4
0ae8 e001 | | Load 0x0,0x1
0ae9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0aea 6802 |h | Jump_Zero 0xaed
0aeb e403 | | Load 0x2,0x3
0aec a608 | | Store_Unchecked 0x3,0x8
0aed e251 | Q | Load 0x1,0x51
0aee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0aef 0a01 | | Execute_Immediate Plus,0x1
0af0 e251 | Q | Load 0x1,0x51
0af1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0af2 4801 |H | Short_Literal 0x1
0af3 e24c | L | Load 0x1,0x4c
0af4 e605 | | Load 0x3,0x5
0af5 8610 | | Call 0x3,0x10
0af6 e608 | | Load 0x3,0x8
0af7 e001 | | Load 0x0,0x1
0af8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0af9 01cc | | Execute Vector,Catenate
0afa e001 | | Load 0x0,0x1
0afb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0afc a609 | | Store_Unchecked 0x3,0x9
0afd e240 | @ | Load 0x1,0x40
0afe 0322 | " | Declare_Variable Record
0aff e609 | | Load 0x3,0x9
0b00 e613 | | Load 0x3,0x13
0b01 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b02 e60f | | Load 0x3,0xf
0b03 e613 | | Load 0x3,0x13
0b04 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b05 e605 | | Load 0x3,0x5
0b06 00eb | | Load_Encached Diana_Cache
0b07 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b08 8419 | | Call 0x2,0x19
0b09 e613 | | Load 0x3,0x13
0b0a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b0b e605 | | Load 0x3,0x5
0b0c e613 | | Load 0x3,0x13
0b0d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b0e 4800 |H | Short_Literal 0x0
0b0f e613 | | Load 0x3,0x13
0b10 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b11 e605 | | Load 0x3,0x5
0b12 841a | | Call 0x2,0x1a
0b13 e613 | | Load 0x3,0x13
0b14 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b15 e251 | Q | Load 0x1,0x51
0b16 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0b17 00e3 | | Load_Encached Natural_Cache
0b18 025b | [ | Execute Discrete,Check_In_Type
0b19 824e | N | Call 0x1,0x4e
0b1a 0218 | | Execute Heap_Access,All_Write
0b1b e251 | Q | Load 0x1,0x51
0b1c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0b1d c60a | | Store 0x3,0xa
0b1e e410 | | Load 0x2,0x10
0b1f 4800 |H | Short_Literal 0x0
0b20 e60a | | Load 0x3,0xa
0b21 e605 | | Load 0x3,0x5
0b22 e402 | | Load 0x2,0x2
0b23 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b24 c410 | | Store 0x2,0x10
0b25 e251 | Q | Load 0x1,0x51
0b26 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b27 0a01 | | Execute_Immediate Plus,0x1
0b28 e251 | Q | Load 0x1,0x51
0b29 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b2a e242 | B | Load 0x1,0x42
0b2b 0322 | " | Declare_Variable Record
0b2c e60a | | Load 0x3,0xa
0b2d e613 | | Load 0x3,0x13
0b2e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b2f e606 | | Load 0x3,0x6
0b30 e613 | | Load 0x3,0x13
0b31 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b32 e7ff | | Load 0x3,-0x1
0b33 e613 | | Load 0x3,0x13
0b34 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b35 e60c | | Load 0x3,0xc
0b36 e613 | | Load 0x3,0x13
0b37 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b38 e251 | Q | Load 0x1,0x51
0b39 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b3a 8250 | P | Call 0x1,0x50
0b3b 0218 | | Execute Heap_Access,All_Write
0b3c 4505 |E | Exit_Subprogram 0x5
0b3d 4801 |H | Short_Literal 0x1
0b3e e7fd | | Load 0x3,-0x3
0b3f e606 | | Load 0x3,0x6
0b40 e7ff | | Load 0x3,-0x1
0b41 00eb | | Load_Encached Diana_Cache
0b42 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0b43 841d | | Call 0x2,0x1d
0b44 e7ff | | Load 0x3,-0x1
0b45 00eb | | Load_Encached Diana_Cache
0b46 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0b47 8611 | | Call 0x3,0x11
0b48 a605 | | Store_Unchecked 0x3,0x5
0b49 e605 | | Load 0x3,0x5
0b4a 00eb | | Load_Encached Diana_Cache
0b4b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b4c 6808 |h | Jump_Zero 0xb55
0b4d 4801 |H | Short_Literal 0x1
0b4e e7fd | | Load 0x3,-0x3
0b4f e606 | | Load 0x3,0x6
0b50 e7ff | | Load 0x3,-0x1
0b51 00eb | | Load_Encached Diana_Cache
0b52 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0b53 841d | | Call 0x2,0x1d
0b54 4505 |E | Exit_Subprogram 0x5
0b55 e605 | | Load 0x3,0x5
0b56 4976 |Iv | Short_Literal 0x176
0b57 00eb | | Load_Encached Diana_Cache
0b58 0098 | | Execute Package,Field_Read_Dynamic
0b59 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b5a a60e | | Store_Unchecked 0x3,0xe
0b5b e7ff | | Load 0x3,-0x1
0b5c 490c |I | Short_Literal 0x10c
0b5d 00eb | | Load_Encached Diana_Cache
0b5e 0096 | | Execute Package,Field_Execute_Dynamic
0b5f 00eb | | Load_Encached Diana_Cache
0b60 18ed | | Execute Package,Field_Execute,Field_Number 0xed
0b61 a60d | | Store_Unchecked 0x3,0xd
0b62 00cf | | Action Mark_Auxiliary
0b63 783e |x> | Jump 0xba2
0b64 e60e | | Load 0x3,0xe
0b65 00eb | | Load_Encached Diana_Cache
0b66 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b67 a605 | | Store_Unchecked 0x3,0x5
0b68 e605 | | Load 0x3,0x5
0b69 00eb | | Load_Encached Diana_Cache
0b6a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b6b 0b23 | # | Execute_Immediate Case_Compare,0x23
0b6c 7014 |p | Jump_Nonzero 0xb81
0b6d 0b24 | $ | Execute_Immediate Case_Compare,0x24
0b6e 701a |p | Jump_Nonzero 0xb89
0b6f 0b25 | % | Execute_Immediate Case_Compare,0x25
0b70 7020 |p | Jump_Nonzero 0xb91
0b71 e019 | | Load 0x0,0x19
0b72 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b73 4807 |H | Short_Literal 0x7
0b74 0092 0f3d | =| Action Push_String_Extended,0xf3d ; "Formals contained unexpected node "
0b76 e605 | | Load 0x3,0x5
0b77 00eb | | Load_Encached Diana_Cache
0b78 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b79 00eb | | Load_Encached Diana_Cache
0b7a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b7b 025e | ^ | Execute Discrete,Convert
0b7c 1c01 | | Execute_Immediate Run_Utility,0x1
0b7d 01cc | | Execute Vector,Catenate
0b7e e01a | | Load 0x0,0x1a
0b7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b80 7817 |x | Jump 0xb98
0b81 4801 |H | Short_Literal 0x1
0b82 e7fd | | Load 0x3,-0x3
0b83 e606 | | Load 0x3,0x6
0b84 e60d | | Load 0x3,0xd
0b85 00eb | | Load_Encached Diana_Cache
0b86 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b87 841d | | Call 0x2,0x1d
0b88 780f |x | Jump 0xb98
0b89 4803 |H | Short_Literal 0x3
0b8a e7fd | | Load 0x3,-0x3
0b8b e606 | | Load 0x3,0x6
0b8c e60d | | Load 0x3,0xd
0b8d 00eb | | Load_Encached Diana_Cache
0b8e 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b8f 841d | | Call 0x2,0x1d
0b90 7807 |x | Jump 0xb98
0b91 4802 |H | Short_Literal 0x2
0b92 e7fd | | Load 0x3,-0x3
0b93 e606 | | Load 0x3,0x6
0b94 e60d | | Load 0x3,0xd
0b95 00eb | | Load_Encached Diana_Cache
0b96 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b97 841d | | Call 0x2,0x1d
0b98 00d1 | | Pop_Control Pop_Count_1
0b99 e60d | | Load 0x3,0xd
0b9a 00eb | | Load_Encached Diana_Cache
0b9b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0b9c a60d | | Store_Unchecked 0x3,0xd
0b9d e60e | | Load 0x3,0xe
0b9e 00eb | | Load_Encached Diana_Cache
0b9f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0ba0 a60e | | Store_Unchecked 0x3,0xe
0ba1 00c9 | | Action Pop_Auxiliary_Loop
0ba2 e60e | | Load 0x3,0xe
0ba3 00eb | | Load_Encached Diana_Cache
0ba4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0ba5 6fbe |o | Jump_Zero 0xb64
0ba6 00ce | | Action Pop_Auxiliary
0ba7 4505 |E | Exit_Subprogram 0x5
0ba8 e60c | | Load 0x3,0xc
0ba9 4606 |F | Jump_Case 0x6
0baa 780e |x | Jump 0xbb9 ; case 0x0
0bab 7805 |x | Jump 0xbb1 ; case 0x1
0bac 7807 |x | Jump 0xbb4 ; case 0x2
0bad 7809 |x | Jump 0xbb7 ; case 0x3
0bae 780a |x | Jump 0xbb9 ; case 0x4
0baf 7809 |x | Jump 0xbb9 ; case 0x5
0bb0 7808 |x | Jump 0xbb9 ; case 0x6
0bb1 4804 |H | Short_Literal 0x4
0bb2 a60c | | Store_Unchecked 0x3,0xc
0bb3 7805 |x | Jump 0xbb9
0bb4 4805 |H | Short_Literal 0x5
0bb5 a60c | | Store_Unchecked 0x3,0xc
0bb6 7802 |x | Jump 0xbb9
0bb7 4806 |H | Short_Literal 0x6
0bb8 a60c | | Store_Unchecked 0x3,0xc
0bb9 e60c | | Load 0x3,0xc
0bba e7fd | | Load 0x3,-0x3
0bbb e606 | | Load 0x3,0x6
0bbc e7ff | | Load 0x3,-0x1
0bbd 00eb | | Load_Encached Diana_Cache
0bbe 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0bbf 841d | | Call 0x2,0x1d
0bc0 4505 |E | Exit_Subprogram 0x5
0bc1 4802 |H | Short_Literal 0x2
0bc2 e7fd | | Load 0x3,-0x3
0bc3 e606 | | Load 0x3,0x6
0bc4 e7ff | | Load 0x3,-0x1
0bc5 00eb | | Load_Encached Diana_Cache
0bc6 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0bc7 841d | | Call 0x2,0x1d
0bc8 4801 |H | Short_Literal 0x1
0bc9 e7fd | | Load 0x3,-0x3
0bca e606 | | Load 0x3,0x6
0bcb e7ff | | Load 0x3,-0x1
0bcc 00eb | | Load_Encached Diana_Cache
0bcd 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0bce 841d | | Call 0x2,0x1d
0bcf 4505 |E | Exit_Subprogram 0x5
0bd0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0bd4 0000 0000 | | .BLANK 0000[0x4]
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0be2 | | .CONST 0x0be2 ; Address of begin
0bd9 0004 | | .CONST 0x0004 ; Address of exception handler
0bda 0002 | | .CONST 0x0002 ; Number of locals
0bdb INIT_0bd8:
0bdb e406 | | Load 0x2,0x6
0bdc e014 | | Load 0x0,0x14
0bdd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0bde 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bdf e014 | | Load 0x0,0x14
0be0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0be1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0be2 BODY_0bd8:
0be2 4801 |H | Short_Literal 0x1
0be3 e24c | L | Load 0x1,0x4c
0be4 e602 | | Load 0x3,0x2
0be5 0092 0f3e | >| Action Push_String_Extended,0xf3e ; ".#WITH#"
0be7 01cc | | Execute Vector,Catenate
0be8 e001 | | Load 0x0,0x1
0be9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bea e251 | Q | Load 0x1,0x51
0beb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bec 00e3 | | Load_Encached Natural_Cache
0bed 025b | [ | Execute Discrete,Check_In_Type
0bee 824f | O | Call 0x1,0x4f
0bef 0217 | | Execute Heap_Access,All_Reference
0bf0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bf1 00d8 | | Load_Top At_Offset_0
0bf2 01db | | Execute Vector,Length
0bf3 e251 | Q | Load 0x1,0x51
0bf4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bf5 00e3 | | Load_Encached Natural_Cache
0bf6 025b | [ | Execute Discrete,Check_In_Type
0bf7 824f | O | Call 0x1,0x4f
0bf8 0217 | | Execute Heap_Access,All_Reference
0bf9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bfa 4801 |H | Short_Literal 0x1
0bfb e602 | | Load 0x3,0x2
0bfc 01db | | Execute Vector,Length
0bfd 00e3 | | Load_Encached Natural_Cache
0bfe 025b | [ | Execute Discrete,Check_In_Type
0bff e251 | Q | Load 0x1,0x51
0c00 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c01 00e3 | | Load_Encached Natural_Cache
0c02 025b | [ | Execute Discrete,Check_In_Type
0c03 e405 | | Load 0x2,0x5
0c04 841d | | Call 0x2,0x1d
0c05 00e1 | | Load_Encached Boolean_Cache
0c06 e015 | | Load 0x0,0x15
0c07 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c08 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c09 e40d | | Load 0x2,0xd
0c0a e40c | | Load 0x2,0xc
0c0b e015 | | Load 0x0,0x15
0c0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c0d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0c0e c40f | | Store 0x2,0xf
0c0f e40e | | Load 0x2,0xe
0c10 0120 | | Execute Any,Is_Value
0c11 6804 |h | Jump_Zero 0xc16
0c12 e015 | | Load 0x0,0x15
0c13 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c14 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0c15 7801 |x | Jump 0xc17
0c16 e40e | | Load 0x2,0xe
0c17 e40d | | Load 0x2,0xd
0c18 e015 | | Load 0x0,0x15
0c19 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0c1a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0c1b c40e | | Store 0x2,0xe
0c1c e019 | | Load 0x0,0x19
0c1d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c1e e40e | | Load 0x2,0xe
0c1f e015 | | Load 0x0,0x15
0c20 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c21 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0c22 4501 |E | Exit_Subprogram 0x1
0c23 0000 0000 | | .BLANK 0000[0x5]
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c31 | 1 | .CONST 0x0c31 ; Address of begin
0c29 0004 | | .CONST 0x0004 ; Address of exception handler
0c2a 0002 | | .CONST 0x0002 ; Number of locals
0c2b INIT_0c28:
0c2b e5ff | | Load 0x2,-0x1
0c2c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c2d 0217 | | Execute Heap_Access,All_Reference
0c2e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c2f e001 | | Load 0x0,0x1
0c30 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c31 BODY_0c28:
0c31 00d8 | | Load_Top At_Offset_0
0c32 01dd | | Execute Vector,First
0c33 e602 | | Load 0x3,0x2
0c34 01dd | | Execute Vector,First
0c35 e5ff | | Load 0x2,-0x1
0c36 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c37 0217 | | Execute Heap_Access,All_Reference
0c38 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c39 0273 | s | Execute Discrete,Plus
0c3a 0aff | | Execute_Immediate Plus,-0x1
0c3b 0248 | H | Execute Discrete,Check_In_Integer
0c3c e602 | | Load 0x3,0x2
0c3d 01cf | | Execute Vector,Slice_Read
0c3e 00cb | | Action Pop_Block_With_Result
0c3f 4401 |D | Exit_Subprogram With_Result,0x1
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c4f | O | .CONST 0x0c4f ; Address of begin
0c41 0004 | | .CONST 0x0004 ; Address of exception handler
0c42 0003 | | .CONST 0x0003 ; Number of locals
0c43 INIT_0c40:
0c43 e015 | | Load 0x0,0x15
0c44 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c45 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c46 02c7 | | Declare_Variable Any
0c47 00d8 | | Load_Top At_Offset_0
0c48 1c00 | | Execute_Immediate Run_Utility,0x0
0c49 e015 | | Load 0x0,0x15
0c4a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c4b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0c4c 02c7 | | Declare_Variable Any
0c4d 00d8 | | Load_Top At_Offset_0
0c4e 1c00 | | Execute_Immediate Run_Utility,0x0
0c4f BODY_0c40:
0c4f 00d8 | | Load_Top At_Offset_0
0c50 0120 | | Execute Any,Is_Value
0c51 6804 |h | Jump_Zero 0xc56
0c52 e015 | | Load 0x0,0x15
0c53 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c54 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0c55 7801 |x | Jump 0xc57
0c56 00d8 | | Load_Top At_Offset_0
0c57 e602 | | Load 0x3,0x2
0c58 0120 | | Execute Any,Is_Value
0c59 6804 |h | Jump_Zero 0xc5e
0c5a e015 | | Load 0x0,0x15
0c5b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c5c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c5d 7801 |x | Jump 0xc5f
0c5e e602 | | Load 0x3,0x2
0c5f e402 | | Load 0x2,0x2
0c60 e015 | | Load 0x0,0x15
0c61 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0c62 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0c63 c602 | | Store 0x3,0x2
0c64 c603 | | Store 0x3,0x3
0c65 00d8 | | Load_Top At_Offset_0
0c66 0120 | | Execute Any,Is_Value
0c67 6804 |h | Jump_Zero 0xc6c
0c68 e015 | | Load 0x0,0x15
0c69 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c6a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0c6b 7801 |x | Jump 0xc6d
0c6c 00d8 | | Load_Top At_Offset_0
0c6d e404 | | Load 0x2,0x4
0c6e 0120 | | Execute Any,Is_Value
0c6f 6803 |h | Jump_Zero 0xc73
0c70 e00e | | Load 0x0,0xe
0c71 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c72 7801 |x | Jump 0xc74
0c73 e404 | | Load 0x2,0x4
0c74 e602 | | Load 0x3,0x2
0c75 e00e | | Load 0x0,0xe
0c76 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c77 c404 | | Store 0x2,0x4
0c78 c603 | | Store 0x3,0x3
0c79 4801 |H | Short_Literal 0x1
0c7a e404 | | Load 0x2,0x4
0c7b e403 | | Load 0x2,0x3
0c7c e24d | M | Load 0x1,0x4d
0c7d e24b | K | Load 0x1,0x4b
0c7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c7f 4501 |E | Exit_Subprogram 0x1
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c85 | | .CONST 0x0c85 ; Address of begin
0c81 0004 | | .CONST 0x0004 ; Address of exception handler
0c82 0002 | | .CONST 0x0002 ; Number of locals
0c83 INIT_0c80:
0c83 029f 0cd3 | | Declare_Subprogram For_Call,INIT_0cd0
0c85 BODY_0c80:
0c85 e9ff | | Load 0x4,-0x1
0c86 00eb | | Load_Encached Diana_Cache
0c87 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c88 6802 |h | Jump_Zero 0xc8b
0c89 00ea | | Load_Encached Null_String_Cache
0c8a 4401 |D | Exit_Subprogram With_Result,0x1
0c8b e9ff | | Load 0x4,-0x1
0c8c e020 | | Load 0x0,0x20
0c8d 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0c8e 7001 |p | Jump_Nonzero 0xc90
0c8f 8802 | | Call 0x4,0x2
0c90 e9ff | | Load 0x4,-0x1
0c91 e020 | | Load 0x0,0x20
0c92 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0c93 8610 | | Call 0x3,0x10
0c94 0092 0f3f | ?| Action Push_String_Extended,0xf3f ; "."
0c96 01cc | | Execute Vector,Catenate
0c97 e9ff | | Load 0x4,-0x1
0c98 00eb | | Load_Encached Diana_Cache
0c99 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0c9a 00eb | | Load_Encached Diana_Cache
0c9b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0c9c 01cc | | Execute Vector,Catenate
0c9d 4401 |D | Exit_Subprogram With_Result,0x1
0c9e 0000 0000 | | .XXX[0x2]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0ca4 | | .CONST 0x0ca4 ; Address of begin
0ca1 0004 | | .CONST 0x0004 ; Address of exception handler
0ca2 0002 | | .CONST 0x0002 ; Number of locals
0ca3 INIT_0ca0:
0ca3 00ec | | Load_Encached Diana_Tree_Cache
0ca4 BODY_0ca0:
0ca4 e9ff | | Load 0x4,-0x1
0ca5 00eb | | Load_Encached Diana_Cache
0ca6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0ca7 0b12 | | Execute_Immediate Case_Compare,0x12
0ca8 7005 |p | Jump_Nonzero 0xcae
0ca9 0b17 | | Execute_Immediate Case_Compare,0x17
0caa 7008 |p | Jump_Nonzero 0xcb3
0cab 00eb | | Load_Encached Diana_Cache
0cac 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0cad 4401 |D | Exit_Subprogram With_Result,0x1
0cae e9ff | | Load 0x4,-0x1
0caf 00eb | | Load_Encached Diana_Cache
0cb0 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
0cb1 8611 | | Call 0x3,0x11
0cb2 4401 |D | Exit_Subprogram With_Result,0x1
0cb3 e9ff | | Load 0x4,-0x1
0cb4 00eb | | Load_Encached Diana_Cache
0cb5 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0cb6 a802 | | Store_Unchecked 0x4,0x2
0cb7 e802 | | Load 0x4,0x2
0cb8 00eb | | Load_Encached Diana_Cache
0cb9 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0cba a802 | | Store_Unchecked 0x4,0x2
0cbb e802 | | Load 0x4,0x2
0cbc 00eb | | Load_Encached Diana_Cache
0cbd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cbe 0f41 | A | Execute_Immediate Equal,0x41
0cbf 6805 |h | Jump_Zero 0xcc5
0cc0 e802 | | Load 0x4,0x2
0cc1 00eb | | Load_Encached Diana_Cache
0cc2 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0cc3 a802 | | Store_Unchecked 0x4,0x2
0cc4 7804 |x | Jump 0xcc9
0cc5 e802 | | Load 0x4,0x2
0cc6 00eb | | Load_Encached Diana_Cache
0cc7 18ce | | Execute Package,Field_Execute,Field_Number 0xce
0cc8 a802 | | Store_Unchecked 0x4,0x2
0cc9 e802 | | Load 0x4,0x2
0cca 00eb | | Load_Encached Diana_Cache
0ccb 18da | | Execute Package,Field_Execute,Field_Number 0xda
0ccc a802 | | Store_Unchecked 0x4,0x2
0ccd e802 | | Load 0x4,0x2
0cce 4401 |D | Exit_Subprogram With_Result,0x1
0ccf 0000 | | .XXX[0x1]
0cd0 ; --------------------------------------------------------------------------------------
0cd0 ; SUBPROGRAM
0cd0 ; --------------------------------------------------------------------------------------
0cd0 0cd7 | | .CONST 0x0cd7 ; Address of begin
0cd1 0004 | | .CONST 0x0004 ; Address of exception handler
0cd2 0002 | | .CONST 0x0002 ; Number of locals
0cd3 INIT_0cd0:
0cd3 e9ff | | Load 0x4,-0x1
0cd4 e014 | | Load 0x0,0x14
0cd5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0cd6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0cd7 BODY_0cd0:
0cd7 00d8 | | Load_Top At_Offset_0
0cd8 01db | | Execute Vector,Length
0cd9 c60f | | Store 0x3,0xf
0cda 00d8 | | Load_Top At_Offset_0
0cdb 00cb | | Action Pop_Block_With_Result
0cdc 4401 |D | Exit_Subprogram With_Result,0x1
0cdd 0000 0000 | | .XXX[0x3]
0cdf 0000 | |
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0d03 | | .CONST 0x0d03 ; Address of begin
0ce1 0004 | | .CONST 0x0004 ; Address of exception handler
0ce2 0024 | $ | .CONST 0x0024 ; Number of locals
0ce3 INIT_0ce0:
0ce3 029a 0d13 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0d10
0ce5 029a 0df3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0df0
0ce7 029a 0e13 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0e10
0ce9 029a 0e43 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0e40
0ceb 029a 0e5b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0e58
0ced 00bf | | Action Accept_Activation
0cee 00e4 | | Load_Encached Positive_Cache
0cef 00e2 | | Load_Encached Integer_Cache
0cf0 00e3 | | Load_Encached Natural_Cache
0cf1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0cf2 00e3 | | Load_Encached Natural_Cache
0cf3 029d 0e73 | s| Declare_Subprogram For_Outer_Call,INIT_0e70
0cf5 029d 0e83 | | Declare_Subprogram For_Outer_Call,INIT_0e80
0cf7 029d 0e93 | | Declare_Subprogram For_Outer_Call,INIT_0e90
0cf9 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0cfa 00c7 | | Action Elaborate_Subprogram
0cfb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0cfc 00c7 | | Action Elaborate_Subprogram
0cfd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0cfe 00c7 | | Action Elaborate_Subprogram
0cff 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0d00 00c7 | | Action Elaborate_Subprogram
0d01 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0d02 00c7 | | Action Elaborate_Subprogram
0d03 BODY_0ce0:
0d03 e215 | | Load 0x1,0x15
0d04 e217 | | Load 0x1,0x17
0d05 8222 | " | Call 0x1,0x22
0d06 0273 | s | Execute Discrete,Plus
0d07 0248 | H | Execute Discrete,Check_In_Integer
0d08 0272 | r | Execute Discrete,Minus
0d09 c21e | | Store 0x1,0x1e
0d0a e215 | | Load 0x1,0x15
0d0b 0af6 | | Execute_Immediate Plus,-0xa
0d0c 0248 | H | Execute Discrete,Check_In_Integer
0d0d a21f | | Store_Unchecked 0x1,0x1f
0d0e 00bc | | Action Signal_Activated
0d0f 00bb | | Action Signal_Completion
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d1e | | .CONST 0x0d1e ; Address of begin
0d11 0004 | | .CONST 0x0004 ; Address of exception handler
0d12 0006 | | .CONST 0x0006 ; Number of locals
0d13 INIT_0d10:
0d13 e001 | | Load 0x0,0x1
0d14 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0d15 0322 | " | Declare_Variable Record
0d16 e001 | | Load 0x0,0x1
0d17 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0d18 0322 | " | Declare_Variable Record
0d19 00e1 | | Load_Encached Boolean_Cache
0d1a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d1b 00e3 | | Load_Encached Natural_Cache
0d1c 029f 0ea3 | | Declare_Subprogram For_Call,INIT_0ea0
0d1e BODY_0d10:
0d1e 4800 |H | Short_Literal 0x0
0d1f e5ff | | Load 0x2,-0x1
0d20 e001 | | Load 0x0,0x1
0d21 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d22 e402 | | Load 0x2,0x2
0d23 017d | } | Execute Record,Structure_Write
0d24 4800 |H | Short_Literal 0x0
0d25 e5fc | | Load 0x2,-0x4
0d26 e001 | | Load 0x0,0x1
0d27 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d28 e403 | | Load 0x2,0x3
0d29 017d | } | Execute Record,Structure_Write
0d2a e403 | | Load 0x2,0x3
0d2b e001 | | Load 0x0,0x1
0d2c 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d2d e402 | | Load 0x2,0x2
0d2e e001 | | Load 0x0,0x1
0d2f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d30 027e | ~ | Execute Discrete,Not_Equal
0d31 681b |h | Jump_Zero 0xd4d
0d32 e5fd | | Load 0x2,-0x3
0d33 e5ff | | Load 0x2,-0x1
0d34 8211 | | Call 0x1,0x11
0d35 c5fd | | Store 0x2,-0x3
0d36 e402 | | Load 0x2,0x2
0d37 8212 | | Call 0x1,0x12
0d38 820f | | Call 0x1,0xf
0d39 0092 0f40 | @| Action Push_String_Extended,0xf40 ; " "
0d3b 820f | | Call 0x1,0xf
0d3c e216 | | Load 0x1,0x16
0d3d 8210 | | Call 0x1,0x10
0d3e e402 | | Load 0x2,0x2
0d3f 8213 | | Call 0x1,0x13
0d40 820f | | Call 0x1,0xf
0d41 e402 | | Load 0x2,0x2
0d42 e001 | | Load 0x0,0x1
0d43 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d44 8224 | $ | Call 0x1,0x24
0d45 4800 |H | Short_Literal 0x0
0d46 e5ff | | Load 0x2,-0x1
0d47 8002 | | Call 0x0,0x2
0d48 00e0 | | Load_Encached Standard_Cache
0d49 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0d4a 820f | | Call 0x1,0xf
0d4b 4801 |H | Short_Literal 0x1
0d4c a404 | | Store_Unchecked 0x2,0x4
0d4d 4801 |H | Short_Literal 0x1
0d4e e5ff | | Load 0x2,-0x1
0d4f e001 | | Load 0x0,0x1
0d50 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d51 e402 | | Load 0x2,0x2
0d52 017d | } | Execute Record,Structure_Write
0d53 4801 |H | Short_Literal 0x1
0d54 e5fc | | Load 0x2,-0x4
0d55 e001 | | Load 0x0,0x1
0d56 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d57 e403 | | Load 0x2,0x3
0d58 017d | } | Execute Record,Structure_Write
0d59 e403 | | Load 0x2,0x3
0d5a e001 | | Load 0x0,0x1
0d5b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d5c e402 | | Load 0x2,0x2
0d5d e001 | | Load 0x0,0x1
0d5e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d5f 027e | ~ | Execute Discrete,Not_Equal
0d60 e5fc | | Load 0x2,-0x4
0d61 e001 | | Load 0x0,0x1
0d62 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0d63 e5ff | | Load 0x2,-0x1
0d64 e001 | | Load 0x0,0x1
0d65 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0d66 027e | ~ | Execute Discrete,Not_Equal
0d67 e404 | | Load 0x2,0x4
0d68 e5fe | | Load 0x2,-0x2
0d69 0278 | x | Execute Discrete,Or
0d6a 0278 | x | Execute Discrete,Or
0d6b 0278 | x | Execute Discrete,Or
0d6c 6855 |hU | Jump_Zero 0xdc2
0d6d e404 | | Load 0x2,0x4
0d6e 7004 |p | Jump_Nonzero 0xd73
0d6f e5fd | | Load 0x2,-0x3
0d70 e5ff | | Load 0x2,-0x1
0d71 8211 | | Call 0x1,0x11
0d72 c5fd | | Store 0x2,-0x3
0d73 4800 |H | Short_Literal 0x0
0d74 a220 | | Store_Unchecked 0x1,0x20
0d75 8406 | | Call 0x2,0x6
0d76 e5ff | | Load 0x2,-0x1
0d77 e001 | | Load 0x0,0x1
0d78 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0d79 4606 |F | Jump_Case 0x6
0d7a 7806 |x | Jump 0xd81 ; case 0x0
0d7b 780c |x | Jump 0xd88 ; case 0x1
0d7c 7812 |x | Jump 0xd8f ; case 0x2
0d7d 7818 |x | Jump 0xd96 ; case 0x3
0d7e 781e |x | Jump 0xd9d ; case 0x4
0d7f 7824 |x$ | Jump 0xda4 ; case 0x5
0d80 782a |x* | Jump 0xdab ; case 0x6
0d81 0092 0f41 | A| Action Push_String_Extended,0xf41 ; "(?)"
0d83 820f | | Call 0x1,0xf
0d84 e221 | ! | Load 0x1,0x21
0d85 0a03 | | Execute_Immediate Plus,0x3
0d86 c221 | ! | Store 0x1,0x21
0d87 7829 |x) | Jump 0xdb1
0d88 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "(U)"
0d8a 820f | | Call 0x1,0xf
0d8b e221 | ! | Load 0x1,0x21
0d8c 0a03 | | Execute_Immediate Plus,0x3
0d8d c221 | ! | Store 0x1,0x21
0d8e 7822 |x" | Jump 0xdb1
0d8f 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "(S)"
0d91 820f | | Call 0x1,0xf
0d92 e221 | ! | Load 0x1,0x21
0d93 0a03 | | Execute_Immediate Plus,0x3
0d94 c221 | ! | Store 0x1,0x21
0d95 781b |x | Jump 0xdb1
0d96 0092 0f44 | D| Action Push_String_Extended,0xf44 ; "(B)"
0d98 820f | | Call 0x1,0xf
0d99 e221 | ! | Load 0x1,0x21
0d9a 0a03 | | Execute_Immediate Plus,0x3
0d9b c221 | ! | Store 0x1,0x21
0d9c 7814 |x | Jump 0xdb1
0d9d 0092 0f45 | E| Action Push_String_Extended,0xf45 ; "(UT)"
0d9f 820f | | Call 0x1,0xf
0da0 e221 | ! | Load 0x1,0x21
0da1 0a04 | | Execute_Immediate Plus,0x4
0da2 c221 | ! | Store 0x1,0x21
0da3 780d |x | Jump 0xdb1
0da4 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "(ST)"
0da6 820f | | Call 0x1,0xf
0da7 e221 | ! | Load 0x1,0x21
0da8 0a04 | | Execute_Immediate Plus,0x4
0da9 c221 | ! | Store 0x1,0x21
0daa 7806 |x | Jump 0xdb1
0dab 0092 0f47 | G| Action Push_String_Extended,0xf47 ; "(BT)"
0dad 820f | | Call 0x1,0xf
0dae e221 | ! | Load 0x1,0x21
0daf 0a04 | | Execute_Immediate Plus,0x4
0db0 c221 | ! | Store 0x1,0x21
0db1 e402 | | Load 0x2,0x2
0db2 e001 | | Load 0x0,0x1
0db3 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0db4 8224 | $ | Call 0x1,0x24
0db5 e221 | ! | Load 0x1,0x21
0db6 e402 | | Load 0x2,0x2
0db7 e001 | | Load 0x0,0x1
0db8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0db9 00e0 | | Load_Encached Standard_Cache
0dba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0dbb 01db | | Execute Vector,Length
0dbc 0273 | s | Execute Discrete,Plus
0dbd 0248 | H | Execute Discrete,Check_In_Integer
0dbe 0a01 | | Execute_Immediate Plus,0x1
0dbf c221 | ! | Store 0x1,0x21
0dc0 e5ff | | Load 0x2,-0x1
0dc1 a5fc | | Store_Unchecked 0x2,-0x4
0dc2 4801 |H | Short_Literal 0x1
0dc3 e5ff | | Load 0x2,-0x1
0dc4 8002 | | Call 0x0,0x2
0dc5 a405 | | Store_Unchecked 0x2,0x5
0dc6 e405 | | Load 0x2,0x5
0dc7 e220 | | Load 0x1,0x20
0dc8 027e | ~ | Execute Discrete,Not_Equal
0dc9 681e |h | Jump_Zero 0xde8
0dca e405 | | Load 0x2,0x5
0dcb 00e0 | | Load_Encached Standard_Cache
0dcc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0dcd 01db | | Execute Vector,Length
0dce e221 | ! | Load 0x1,0x21
0dcf 0273 | s | Execute Discrete,Plus
0dd0 e215 | | Load 0x1,0x15
0dd1 027d | } | Execute Discrete,Greater
0dd2 6808 |h | Jump_Zero 0xddb
0dd3 e5fd | | Load 0x2,-0x3
0dd4 e5ff | | Load 0x2,-0x1
0dd5 8211 | | Call 0x1,0x11
0dd6 c5fd | | Store 0x2,-0x3
0dd7 e217 | | Load 0x1,0x17
0dd8 8210 | | Call 0x1,0x10
0dd9 e217 | | Load 0x1,0x17
0dda a221 | ! | Store_Unchecked 0x1,0x21
0ddb e405 | | Load 0x2,0x5
0ddc 00e0 | | Load_Encached Standard_Cache
0ddd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0dde 820f | | Call 0x1,0xf
0ddf e405 | | Load 0x2,0x5
0de0 a220 | | Store_Unchecked 0x1,0x20
0de1 e221 | ! | Load 0x1,0x21
0de2 e405 | | Load 0x2,0x5
0de3 00e0 | | Load_Encached Standard_Cache
0de4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0de5 01db | | Execute Vector,Length
0de6 0273 | s | Execute Discrete,Plus
0de7 c221 | ! | Store 0x1,0x21
0de8 4503 |E | Exit_Subprogram 0x3
0de9 0000 0000 | | .BLANK 0000[0x7]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df3 | | .CONST 0x0df3 ; Address of begin
0df1 0004 | | .CONST 0x0004 ; Address of exception handler
0df2 0001 | | .CONST 0x0001 ; Number of locals
0df3 BODY_0df0:
0df3 INIT_0df0:
0df3 0092 0f48 | H| Action Push_String_Extended,0xf48 ; "ITEM"
0df5 820f | | Call 0x1,0xf
0df6 e216 | | Load 0x1,0x16
0df7 8210 | | Call 0x1,0x10
0df8 0092 0f49 | I| Action Push_String_Extended,0xf49 ; "DEFINED IN"
0dfa 820f | | Call 0x1,0xf
0dfb e217 | | Load 0x1,0x17
0dfc 8210 | | Call 0x1,0x10
0dfd 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "IS REFERRED TO BY"
0dff 820f | | Call 0x1,0xf
0e00 e5ff | | Load 0x2,-0x1
0e01 e001 | | Load 0x0,0x1
0e02 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e03 8211 | | Call 0x1,0x11
0e04 c5ff | | Store 0x2,-0x1
0e05 e001 | | Load 0x0,0x1
0e06 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e07 a5fe | | Store_Unchecked 0x2,-0x2
0e08 4501 |E | Exit_Subprogram 0x1
0e09 0000 0000 | | .BLANK 0000[0x7]
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e16 | | .CONST 0x0e16 ; Address of begin
0e11 0004 | | .CONST 0x0004 ; Address of exception handler
0e12 0002 | | .CONST 0x0002 ; Number of locals
0e13 INIT_0e10:
0e13 e5ff | | Load 0x2,-0x1
0e14 e001 | | Load 0x0,0x1
0e15 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0e16 BODY_0e10:
0e16 e5ff | | Load 0x2,-0x1
0e17 e001 | | Load 0x0,0x1
0e18 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0e19 8223 | # | Call 0x1,0x23
0e1a 820f | | Call 0x1,0xf
0e1b 480a |H | Short_Literal 0xa
0e1c 8210 | | Call 0x1,0x10
0e1d 00d8 | | Load_Top At_Offset_0
0e1e 01db | | Execute Vector,Length
0e1f e21f | | Load 0x1,0x1f
0e20 027d | } | Execute Discrete,Greater
0e21 6810 |h | Jump_Zero 0xe32
0e22 00d8 | | Load_Top At_Offset_0
0e23 01dc | | Execute Vector,Last
0e24 e21f | | Load 0x1,0x1f
0e25 0272 | r | Execute Discrete,Minus
0e26 0248 | H | Execute Discrete,Check_In_Integer
0e27 e402 | | Load 0x2,0x2
0e28 01dc | | Execute Vector,Last
0e29 e402 | | Load 0x2,0x2
0e2a 01cf | | Execute Vector,Slice_Read
0e2b 820f | | Call 0x1,0xf
0e2c e5fe | | Load 0x2,-0x2
0e2d e001 | | Load 0x0,0x1
0e2e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e2f 8211 | | Call 0x1,0x11
0e30 c5fe | | Store 0x2,-0x2
0e31 4502 |E | Exit_Subprogram 0x2
0e32 00d8 | | Load_Top At_Offset_0
0e33 820f | | Call 0x1,0xf
0e34 e5fe | | Load 0x2,-0x2
0e35 e001 | | Load 0x0,0x1
0e36 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e37 8211 | | Call 0x1,0x11
0e38 c5fe | | Store 0x2,-0x2
0e39 4502 |E | Exit_Subprogram 0x2
0e3a 0000 0000 | | .BLANK 0000[0x6]
0e40 ; --------------------------------------------------------------------------------------
0e40 ; SUBPROGRAM
0e40 ; --------------------------------------------------------------------------------------
0e40 0e43 | C | .CONST 0x0e43 ; Address of begin
0e41 0004 | | .CONST 0x0004 ; Address of exception handler
0e42 0001 | | .CONST 0x0001 ; Number of locals
0e43 BODY_0e40:
0e43 INIT_0e40:
0e43 0092 0f4b | K| Action Push_String_Extended,0xf4b ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS"
0e45 820f | | Call 0x1,0xf
0e46 e5ff | | Load 0x2,-0x1
0e47 e001 | | Load 0x0,0x1
0e48 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e49 8211 | | Call 0x1,0x11
0e4a c5ff | | Store 0x2,-0x1
0e4b e5ff | | Load 0x2,-0x1
0e4c e001 | | Load 0x0,0x1
0e4d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e4e 8211 | | Call 0x1,0x11
0e4f c5ff | | Store 0x2,-0x1
0e50 4501 |E | Exit_Subprogram 0x1
0e51 0000 0000 | | .BLANK 0000[0x7]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5b | [ | .CONST 0x0e5b ; Address of begin
0e59 0004 | | .CONST 0x0004 ; Address of exception handler
0e5a 0001 | | .CONST 0x0001 ; Number of locals
0e5b BODY_0e58:
0e5b INIT_0e58:
0e5b 0092 0f4c | L| Action Push_String_Extended,0xf4c ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS "
0e5d 820f | | Call 0x1,0xf
0e5e e5ff | | Load 0x2,-0x1
0e5f e001 | | Load 0x0,0x1
0e60 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e61 8211 | | Call 0x1,0x11
0e62 c5ff | | Store 0x2,-0x1
0e63 e5ff | | Load 0x2,-0x1
0e64 e001 | | Load 0x0,0x1
0e65 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e66 8211 | | Call 0x1,0x11
0e67 c5ff | | Store 0x2,-0x1
0e68 4501 |E | Exit_Subprogram 0x1
0e69 0000 0000 | | .BLANK 0000[0x7]
0e70 ; --------------------------------------------------------------------------------------
0e70 ; SUBPROGRAM
0e70 ; --------------------------------------------------------------------------------------
0e70 0e73 | s | .CONST 0x0e73 ; Address of begin
0e71 0004 | | .CONST 0x0004 ; Address of exception handler
0e72 0001 | | .CONST 0x0001 ; Number of locals
0e73 BODY_0e70:
0e73 INIT_0e70:
0e73 e218 | | Load 0x1,0x18
0e74 6802 |h | Jump_Zero 0xe77
0e75 4809 |H | Short_Literal 0x9
0e76 00ca | | Action Exit_Nullary_Function
0e77 4804 |H | Short_Literal 0x4
0e78 00ca | | Action Exit_Nullary_Function
0e79 0000 0000 | | .BLANK 0000[0x7]
0e80 ; --------------------------------------------------------------------------------------
0e80 ; SUBPROGRAM
0e80 ; --------------------------------------------------------------------------------------
0e80 0e86 | | .CONST 0x0e86 ; Address of begin
0e81 0004 | | .CONST 0x0004 ; Address of exception handler
0e82 0002 | | .CONST 0x0002 ; Number of locals
0e83 INIT_0e80:
0e83 e5ff | | Load 0x2,-0x1
0e84 00e0 | | Load_Encached Standard_Cache
0e85 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0e86 BODY_0e80:
0e86 00d8 | | Load_Top At_Offset_0
0e87 01dd | | Execute Vector,First
0e88 0a01 | | Execute_Immediate Plus,0x1
0e89 0248 | H | Execute Discrete,Check_In_Integer
0e8a e402 | | Load 0x2,0x2
0e8b 01dc | | Execute Vector,Last
0e8c e402 | | Load 0x2,0x2
0e8d 01cf | | Execute Vector,Slice_Read
0e8e 4401 |D | Exit_Subprogram With_Result,0x1
0e8f 0000 | | .XXX[0x1]
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e93 | | .CONST 0x0e93 ; Address of begin
0e91 0004 | | .CONST 0x0004 ; Address of exception handler
0e92 0001 | | .CONST 0x0001 ; Number of locals
0e93 BODY_0e90:
0e93 INIT_0e90:
0e93 e218 | | Load 0x1,0x18
0e94 6809 |h | Jump_Zero 0xe9e
0e95 0092 0f4d | M| Action Push_String_Extended,0xf4d ; "["
0e97 e5ff | | Load 0x2,-0x1
0e98 8223 | # | Call 0x1,0x23
0e99 01cc | | Execute Vector,Catenate
0e9a 0092 0f4e | N| Action Push_String_Extended,0xf4e ; "]"
0e9c 01cc | | Execute Vector,Catenate
0e9d 820f | | Call 0x1,0xf
0e9e 4502 |E | Exit_Subprogram 0x2
0e9f 0000 | | .XXX[0x1]
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ea9 | | .CONST 0x0ea9 ; Address of begin
0ea1 0004 | | .CONST 0x0004 ; Address of exception handler
0ea2 0006 | | .CONST 0x0006 ; Number of locals
0ea3 INIT_0ea0:
0ea3 00e2 | | Load_Encached Integer_Cache
0ea4 03e9 | | Declare_Variable Discrete,Duplicate
0ea5 03e9 | | Declare_Variable Discrete,Duplicate
0ea6 e402 | | Load 0x2,0x2
0ea7 8214 | | Call 0x1,0x14
0ea8 00e1 | | Load_Encached Boolean_Cache
0ea9 BODY_0ea0:
0ea9 e217 | | Load 0x1,0x17
0eaa 8210 | | Call 0x1,0x10
0eab e605 | | Load 0x3,0x5
0eac 01db | | Execute Vector,Length
0ead a602 | | Store_Unchecked 0x3,0x2
0eae e602 | | Load 0x3,0x2
0eaf e605 | | Load 0x3,0x5
0eb0 01dd | | Execute Vector,First
0eb1 0273 | s | Execute Discrete,Plus
0eb2 0aff | | Execute_Immediate Plus,-0x1
0eb3 0248 | H | Execute Discrete,Check_In_Integer
0eb4 a604 | | Store_Unchecked 0x3,0x4
0eb5 e602 | | Load 0x3,0x2
0eb6 e21e | | Load 0x1,0x1e
0eb7 027a | z | Execute Discrete,Less_Equal
0eb8 6809 |h | Jump_Zero 0xec2
0eb9 e605 | | Load 0x3,0x5
0eba 820f | | Call 0x1,0xf
0ebb e217 | | Load 0x1,0x17
0ebc e602 | | Load 0x3,0x2
0ebd 0273 | s | Execute Discrete,Plus
0ebe 0248 | H | Execute Discrete,Check_In_Integer
0ebf 0a01 | | Execute_Immediate Plus,0x1
0ec0 c221 | ! | Store 0x1,0x21
0ec1 4501 |E | Exit_Subprogram 0x1
0ec2 4800 |H | Short_Literal 0x0
0ec3 a606 | | Store_Unchecked 0x3,0x6
0ec4 00cf | | Action Mark_Auxiliary
0ec5 e604 | | Load 0x3,0x4
0ec6 e604 | | Load 0x3,0x4
0ec7 e21e | | Load 0x1,0x1e
0ec8 0272 | r | Execute Discrete,Minus
0ec9 0248 | H | Execute Discrete,Check_In_Integer
0eca 0263 | c | Execute Discrete,Above_Bound
0ecb 7017 |p | Jump_Nonzero 0xee3
0ecc 00d8 | | Load_Top At_Offset_0
0ecd e605 | | Load 0x3,0x5
0ece 01d7 | | Execute Vector,Field_Read
0ecf 0f2e | . | Execute_Immediate Equal,0x2e
0ed0 6810 |h | Jump_Zero 0xee1
0ed1 00d8 | | Load_Top At_Offset_0
0ed2 e604 | | Load 0x3,0x4
0ed3 e605 | | Load 0x3,0x5
0ed4 01cf | | Execute Vector,Slice_Read
0ed5 820f | | Call 0x1,0xf
0ed6 4801 |H | Short_Literal 0x1
0ed7 a606 | | Store_Unchecked 0x3,0x6
0ed8 e217 | | Load 0x1,0x17
0ed9 e609 | | Load 0x3,0x9
0eda e604 | | Load 0x3,0x4
0edb 0272 | r | Execute Discrete,Minus
0edc 0248 | H | Execute Discrete,Check_In_Integer
0edd 0273 | s | Execute Discrete,Plus
0ede c221 | ! | Store 0x1,0x21
0edf 00d2 | | Pop_Control Pop_Count_2
0ee0 7802 |x | Jump 0xee3
0ee1 00c8 | | Action Pop_Auxiliary_Range
0ee2 3fe9 |? | Loop_Increasing 0xecc
0ee3 00ce | | Action Pop_Auxiliary
0ee4 00d8 | | Load_Top At_Offset_0
0ee5 700e |p | Jump_Nonzero 0xef4
0ee6 0092 0f4f | O| Action Push_String_Extended,0xf4f ; "...."
0ee8 e604 | | Load 0x3,0x4
0ee9 e21e | | Load 0x1,0x1e
0eea 0272 | r | Execute Discrete,Minus
0eeb 0248 | H | Execute Discrete,Check_In_Integer
0eec e604 | | Load 0x3,0x4
0eed e605 | | Load 0x3,0x5
0eee 01cf | | Execute Vector,Slice_Read
0eef 01cc | | Execute Vector,Catenate
0ef0 820f | | Call 0x1,0xf
0ef1 e21e | | Load 0x1,0x1e
0ef2 0a01 | | Execute_Immediate Plus,0x1
0ef3 c221 | ! | Store 0x1,0x21
0ef4 4501 |E | Exit_Subprogram 0x1
0ef5 ; --------------------------------------------------------------------------------------
0ef5 ; STRING TABLE
0ef5 ; --------------------------------------------------------------------------------------
0ef5 00b8 | | .STRTAB 0x00b8->0x0f51 ; "REFERRED_TO_ITEM"
0ef6 00c6 | | .STRTAB 0x00c6->0x0f59 ; "REFERRING_TO_ITEM"
0ef7 00d5 | | .STRTAB 0x00d5->0x0f61 ; "BOTH"
0ef8 00d7 | | .STRTAB 0x00d7->0x0f63 ; "NONE"
0ef9 00d9 | | .STRTAB 0x00d9->0x0f65 ; "USED"
0efa 00db | | .STRTAB 0x00db->0x0f67 ; "SET"
0efb 00dc | | .STRTAB 0x00dc->0x0f69 ; "BOTH_USED_AND_SET"
0efc 00eb | | .STRTAB 0x00eb->0x0f71 ; "USED_THROUGH"
0efd 00f5 | | .STRTAB 0x00f5->0x0f77 ; "SET_THROUGH"
0efe 00fe | | .STRTAB 0x00fe->0x0f7d ; "BOTH_USED_AND_SET_THROUGH"
0eff 0115 | | .STRTAB 0x0115->0x0f89 ; "ATTRIBUTE_ID"
0f00 011f | | .STRTAB 0x011f->0x0f8f ; "CONSTANT_ID"
0f01 0128 | ( | .STRTAB 0x0128->0x0f95 ; "DISCRIMINANT_ID"
0f02 0135 | 5 | .STRTAB 0x0135->0x0f9c ; "ENTRY_ID"
0f03 013b | ; | .STRTAB 0x013b->0x0fa0 ; "ENUMERATION_ID"
0f04 0147 | G | .STRTAB 0x0147->0x0fa7 ; "EXCEPTION_ID"
0f05 0151 | Q | .STRTAB 0x0151->0x0fad ; "FUNCTION_ID"
0f06 015a | Z | .STRTAB 0x015a->0x0fb3 ; "GENERIC_ID"
0f07 0162 | b | .STRTAB 0x0162->0x0fb8 ; "IN_ID"
0f08 0165 | e | .STRTAB 0x0165->0x0fba ; "IN_OUT_ID"
0f09 016c | l | .STRTAB 0x016c->0x0fbf ; "ITERATION_ID"
0f0a 0176 | v | .STRTAB 0x0176->0x0fc5 ; "LABEL_ID"
0f0b 017c | | | .STRTAB 0x017c->0x0fc9 ; "LIMITED_PRIVATE_TYPE_ID"
0f0c 0191 | | .STRTAB 0x0191->0x0fd4 ; "NAMED_STATEMENT_ID"
0f0d 01a1 | | .STRTAB 0x01a1->0x0fdd ; "NUMBER_ID"
0f0e 01a8 | | .STRTAB 0x01a8->0x0fe2 ; "OUT_ID"
0f0f 01ac | | .STRTAB 0x01ac->0x0fe5 ; "PACKAGE_ID"
0f10 01b4 | | .STRTAB 0x01b4->0x0fea ; "PRAGMA_ID"
0f11 01bb | | .STRTAB 0x01bb->0x0fee ; "PRAGMA_ARGUMENT_ID"
0f12 01cb | | .STRTAB 0x01cb->0x0ff7 ; "PRIVATE_TYPE_ID"
0f13 01d8 | | .STRTAB 0x01d8->0x0fff ; "PROCEDURE_ID"
0f14 01e2 | | .STRTAB 0x01e2->0x1005 ; "RECORD_COMPONENT_ID"
0f15 01f3 | | .STRTAB 0x01f3->0x100e ; "SUBTYPE_ID"
0f16 01fb | | .STRTAB 0x01fb->0x1013 ; "TASK_BODY_ID"
0f17 0205 | | .STRTAB 0x0205->0x1019 ; "TYPE_ID"
0f18 020a | | .STRTAB 0x020a->0x101d ; "VARIABLE_ID"
0f19 0213 | | .STRTAB 0x0213->0x1022 ; "UNKNOWN_ID"
0f1a 021b | | .STRTAB 0x021b->0x1027 ; "ATTRIBUTE_TYPE"
0f1b 0227 | ' | .STRTAB 0x0227->0x102e ; "COMPONENT_TYPE"
0f1c 0233 | 3 | .STRTAB 0x0233->0x1035 ; "CONSTANT_TYPE"
0f1d 023e | > | .STRTAB 0x023e->0x103c ; "ENTRY_TYPE"
0f1e 0246 | F | .STRTAB 0x0246->0x1041 ; "EXCEPTION_TYPE"
0f1f 0252 | R | .STRTAB 0x0252->0x1048 ; "FUNCTION_TYPE"
0f20 025d | ] | .STRTAB 0x025d->0x104e ; "GENERIC_TYPE"
0f21 0267 | g | .STRTAB 0x0267->0x1054 ; "LABEL_TYPE"
0f22 026f | o | .STRTAB 0x026f->0x1059 ; "PACKAGE_TYPE"
0f23 0279 | y | .STRTAB 0x0279->0x105f ; "PARAMETER_TYPE"
0f24 0285 | | .STRTAB 0x0285->0x1066 ; "PRAGMA_TYPE"
0f25 028e | | .STRTAB 0x028e->0x106c ; "PROCEDURE_TYPE"
0f26 029a | | .STRTAB 0x029a->0x1073 ; "TASK_BODY_TYPE"
0f27 02a6 | | .STRTAB 0x02a6->0x107a ; "TYPE_TYPE"
0f28 02ad | | .STRTAB 0x02ad->0x107e ; "VARIABLE_TYPE"
0f29 02b8 | | .STRTAB 0x02b8->0x1085 ; "UNKNOWN_TYPE"
0f2a 02c2 | | .STRTAB 0x02c2->0x108b ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART"
0f2b 02df | | .STRTAB 0x02df->0x109a ; "IN_VISIBLE_PACKAGE_SPEC_PART"
0f2c 02f9 | | .STRTAB 0x02f9->0x10a8 ; "IN_VISIBLE_PACKAGE_PRIVATE_PART"
0f2d 0316 | | .STRTAB 0x0316->0x10b8 ; "IN_PACKAGE_SPEC_PART"
0f2e 0328 | ( | .STRTAB 0x0328->0x10c2 ; "IN_PACKAGE_PRIVATE_PART"
0f2f 033d | = | .STRTAB 0x033d->0x10cd ; "IN_PACKAGE_BODY_PART"
0f30 034f | O | .STRTAB 0x034f->0x10d7 ; "IN_OTHER_PART"
0f31 035a | Z | .STRTAB 0x035a->0x10de ; "SUCCESSFUL"
0f32 0362 | b | .STRTAB 0x0362->0x10e3 ; "ITEM_LOCKED"
0f33 036b | k | .STRTAB 0x036b->0x10e8 ; "ITEM_DISAPPEARED"
0f34 0379 | y | .STRTAB 0x0379->0x10f0 ; "INVALID_WHICH"
0f35 0384 | | .STRTAB 0x0384->0x10f7 ; "OTHER_ERROR"
0f36 038d | | .STRTAB 0x038d->0x10fc ; "START"
0f37 0390 | | .STRTAB 0x0390->0x10ff ; "FINISH"
0f38 0394 | | .STRTAB 0x0394->0x1102 ; "'1"
0f39 0394 | | .STRTAB 0x0394->0x1103 ; "?"
0f3a 0393 | | .STRTAB 0x0393->0x1103 ; " is not an ada object"
0f3b 03a6 | | .STRTAB 0x03a6->0x110e ; " isn't installed or higher"
0f3c 03be | | .STRTAB 0x03be->0x111b ; "'"
; "'"
0f3d 03bd | | .STRTAB 0x03bd->0x111b ; "Formals contained unexpected node "
0f3e 03dd | | .STRTAB 0x03dd->0x112c ; ".#WITH#"
0f3f 03e2 | | .STRTAB 0x03e2->0x1130 ; "."
0f40 03e1 | | .STRTAB 0x03e1->0x1130 ; " "
0f41 03e0 | | .STRTAB 0x03e0->0x1131 ; "(?)"
0f42 03e1 | | .STRTAB 0x03e1->0x1132 ; "(U)"
0f43 03e2 | | .STRTAB 0x03e2->0x1134 ; "(S)"
0f44 03e3 | | .STRTAB 0x03e3->0x1135 ; "(B)"
0f45 03e4 | | .STRTAB 0x03e4->0x1137 ; "(UT)"
0f46 03e6 | | .STRTAB 0x03e6->0x1139 ; "(ST)"
0f47 03e8 | | .STRTAB 0x03e8->0x113b ; "(BT)"
0f48 03ea | | .STRTAB 0x03ea->0x113d ; "ITEM"
0f49 03ec | | .STRTAB 0x03ec->0x113f ; "DEFINED IN"
0f4a 03f4 | | .STRTAB 0x03f4->0x1144 ; "IS REFERRED TO BY"
0f4b 0403 | | .STRTAB 0x0403->0x114c ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS"
0f4c 0436 | 6 | .STRTAB 0x0436->0x1167 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS "
0f4d 0463 | c | .STRTAB 0x0463->0x117e ; "["
0f4e 0462 | b | .STRTAB 0x0462->0x117f ; "]"
0f4f 0461 | a | .STRTAB 0x0461->0x117f ; "...."
0f50 0463 | c | .STREND 0x0463->0x1181
0f51 5245 4645 |REFE| .STRTAB_STRINGS
1182 0000 0000 | | .BLANK 0000[0x6]
1188 ; --------------------------------------------------------------------------------------
1188 ; Debug Table
1188 ; --------------------------------------------------------------------------------------
1188 0004 0003 | | .DEBUG4 0x0004,0x0003,0xe46a,0x0000,0x0001,0x0000
118e c000 9ed9 | | .XXX[0x72]
1190 234f c013 |#O |
1192 f300 0000 | |
1194 0001 3d47 | =G|
1196 004f 5da0 | O] |
1198 0000 0228 | (|
119a 4601 3d47 |F =G|
119c 0000 0000 | |
119e 2180 0007 |! |
11a0 1e20 0000 | |
11a2 0000 009e | |
11a4 6580 0140 |e @|
11a6 0000 0009 | |
11a8 e65a 1120 | Z |
11aa 013c 8100 | < |
11ac 0000 0013 | |
11ae d2cc ec5c | \|
11b0 0279 0200 | y |
11b2 0000 001e | |
11b4 0000 0e28 | (|
11b6 9000 0001 | |
11b8 1a7e 009f | ~ |
11ba 9800 0000 | |
11bc 0009 f42c | ,|
11be 027d 6a00 | }j |
11c0 9f78 5142 | xQB|
11c2 3009 f42c |0 ,|
11c4 0000 0001 | |
11c6 2c00 003e |, >|
11c8 88c0 27de | ' |
11ca 1000 04f8 | |
11cc 2600 0600 |& |
11ce 0000 004f | O|
11d0 8270 8900 | p |
11d2 09ed fc00 | |
11d4 0000 009f | |
11d6 35a7 62e0 |5 b |
11d8 13db f800 | |
11da 0000 0134 | 4|
11dc 0000 7ca3 | | |
11de cb82 0027 | '|
11e0 b7f0 0000 | |
11e2 0003 e814 | |
11e4 053e dafb | > |
11e6 864a 004f | J O|
11e8 1100 0000 | |
11ea 0004 f1ce | |
11ec 0004 fde0 | |
11ee 0000 0000 | |
11f0 0002 0002 | |
11f2 7f30 0000 | 0 |
11f4 0000 0000 | |
11f6 0003 0000 | |
11f8 0000 0002 | |
11fa 7fd0 0000 | |
11fc 0000 0002 | |
11fe 806d 0000 | m |