|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0f08 | | .CONST 0x0f08 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 800a | | .CONST 0x800a ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01e3 | | .CONST 0x01e3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007c | | | .CONST 0x007c ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480d |H | Short_Literal 0xd
000d 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 621a |b | Indirect_Literal Discrete,0x22c,{0x00000000, 0x0000ffff}
0012 00e5 | | Load_Encached Long_Integer_Cache
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 00e4 | | Load_Encached Positive_Cache
0015 0266 | f | Execute Discrete,Bounds
0016 00da | | Load_Top At_Offset_2
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 4801 |H | Short_Literal 0x1
0019 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001a 00d8 | | Load_Top At_Offset_0
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4818 |H | Short_Literal 0x18
001d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
001e 00e4 | | Load_Encached Positive_Cache
001f 0266 | f | Execute Discrete,Bounds
0020 00e2 | | Load_Encached Integer_Cache
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0024 00d8 | | Load_Top At_Offset_0
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4818 |H | Short_Literal 0x18
0027 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0028 0093 0000 | | push_full_address 0x0
002a 61fd |a | Indirect_Literal Discrete,0x228,{0x80000000, 0x00010000}
002b 0273 | s | Execute Discrete,Plus
002c 0129 | ) | Execute Any,Make_Visible
002d 0093 0000 | | push_full_address 0x0
002f 61f4 |a | Indirect_Literal Discrete,0x224,{0x80000000, 0x00020000}
0030 0273 | s | Execute Discrete,Plus
0031 0129 | ) | Execute Any,Make_Visible
0032 0093 0000 | | push_full_address 0x0
0034 61eb |a | Indirect_Literal Discrete,0x220,{0x80000000, 0x00030000}
0035 0273 | s | Execute Discrete,Plus
0036 0129 | ) | Execute Any,Make_Visible
0037 0093 0000 | | push_full_address 0x0
0039 61e2 |a | Indirect_Literal Discrete,0x21c,{0x80000000, 0x00040000}
003a 0273 | s | Execute Discrete,Plus
003b 0129 | ) | Execute Any,Make_Visible
003c 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
003e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0040 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0042 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0044 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0046 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0048 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
004a 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
004c 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
004e 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
0050 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
0052 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0054 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
0056 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0058 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
005a 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
005c 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
005e 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
0060 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated
0062 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
0064 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
0066 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
0068 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
006a 029a 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Visible,Unelaborated
006c 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
006e 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
0070 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
0072 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
0074 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
0076 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0078 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated
007a 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated
007c 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated
007e 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
0080 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated
0082 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0084 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated
0086 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
0088 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated
008a 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
008c 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated
008e 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated
0090 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
0092 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0094 029a 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call,Visible,Unelaborated
0096 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated
0098 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated
009a 029a 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call,Visible,Unelaborated
009c 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated
009e 029a 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call,Visible,Unelaborated
00a0 029a 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call,Visible,Unelaborated
00a2 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated
00a4 029a 091b | | Declare_Subprogram INIT_0918,For_Outer_Call,Visible,Unelaborated
00a6 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated
00a8 029a 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call,Visible,Unelaborated
00aa 029a 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call,Visible,Unelaborated
00ac 029a 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call,Visible,Unelaborated
00ae 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated
00b0 029a 098b | | Declare_Subprogram INIT_0988,For_Outer_Call,Visible,Unelaborated
00b2 029a 099b | | Declare_Subprogram INIT_0998,For_Outer_Call,Visible,Unelaborated
00b4 029a 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call,Visible,Unelaborated
00b6 029a 0ab3 | | Declare_Subprogram INIT_0ab0,For_Outer_Call,Visible,Unelaborated
00b8 029a 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call,Visible,Unelaborated
00ba 029a 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call,Visible,Unelaborated
00bc 029a 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call,Visible,Unelaborated
00be 029a 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call,Visible,Unelaborated
00c0 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated
00c2 e003 | | Load 0x0,0x3
00c3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c4 e002 | | Load 0x0,0x2
00c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c6 00ec | | Load_Encached Diana_Tree_Cache
00c7 e20e | | Load 0x1,0xe
00c8 00e3 | | Load_Encached Natural_Cache
00c9 e210 | | Load 0x1,0x10
00ca e212 | | Load 0x1,0x12
00cb 029f 0e2b | +| Declare_Subprogram INIT_0e28,For_Call
00cd 4807 |H | Short_Literal 0x7
00ce 032e | . | Declare_Type Record,Defined,Visible
00cf 00d8 | | Load_Top At_Offset_0
00d0 00e3 | | Load_Encached Natural_Cache
00d1 e20e | | Load 0x1,0xe
00d2 00e3 | | Load_Encached Natural_Cache
00d3 00e3 | | Load_Encached Natural_Cache
00d4 00e1 | | Load_Encached Boolean_Cache
00d5 00e1 | | Load_Encached Boolean_Cache
00d6 029f 0e4b | K| Declare_Subprogram INIT_0e48,For_Call
00d8 4807 |H | Short_Literal 0x7
00d9 032e | . | Declare_Type Record,Defined,Visible
00da 00d8 | | Load_Top At_Offset_0
00db 00e3 | | Load_Encached Natural_Cache
00dc e20e | | Load 0x1,0xe
00dd 029f 0e6b | k| Declare_Subprogram INIT_0e68,For_Call
00df 4803 |H | Short_Literal 0x3
00e0 032e | . | Declare_Type Record,Defined,Visible
00e1 00bf | | Action Accept_Activation
00e2 029b 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call,Unelaborated
00e4 029d 0b43 | C| Declare_Subprogram INIT_0b40,For_Outer_Call
00e6 0093 0000 | | push_full_address 0x0
00e8 612f |a/ | Indirect_Literal Discrete,0x218,{0x80000000, 0x00010000}
00e9 0273 | s | Execute Discrete,Plus
00ea e004 | | Load 0x0,0x4
00eb 0273 | s | Execute Discrete,Plus
00ec e005 | | Load 0x0,0x5
00ed 0273 | s | Execute Discrete,Plus
00ee 48ff |H | Short_Literal 0xff
00ef e003 | | Load 0x0,0x3
00f0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f1 e25a | Z | Load 0x1,0x5a
00f2 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
00f3 e006 | | Load 0x0,0x6
00f4 0387 | | Declare_Variable Package
00f5 00d8 | | Load_Top At_Offset_0
00f6 020f | | Execute Module,Activate
00f7 e007 | | Load 0x0,0x7
00f8 00d9 | | Load_Top At_Offset_1
00f9 0098 | | Execute Package,Field_Read_Dynamic
00fa 0007 | | Action Break_Optional
00fb 4800 |H | Short_Literal 0x0
00fc 4804 |H | Short_Literal 0x4
00fd e001 | | Load 0x0,0x1
00fe 01d7 | | Execute Vector,Field_Read
00ff 02a0 | | Declare_Subprogram Null_Subprogram
0100 038e | | Declare_Type Package,Defined
0101 e001 | | Load 0x0,0x1
0102 4803 |H | Short_Literal 0x3
0103 e001 | | Load 0x0,0x1
0104 01d7 | | Execute Vector,Field_Read
0105 4802 |H | Short_Literal 0x2
0106 00db | | Load_Top At_Offset_3
0107 020e | | Execute Module,Augment_Imports
0108 0387 | | Declare_Variable Package
0109 4800 |H | Short_Literal 0x0
010a 4802 |H | Short_Literal 0x2
010b e001 | | Load 0x0,0x1
010c 01d7 | | Execute Vector,Field_Read
010d 02a0 | | Declare_Subprogram Null_Subprogram
010e 038e | | Declare_Type Package,Defined
010f e001 | | Load 0x0,0x1
0110 4801 |H | Short_Literal 0x1
0111 e001 | | Load 0x0,0x1
0112 01d7 | | Execute Vector,Field_Read
0113 4802 |H | Short_Literal 0x2
0114 00db | | Load_Top At_Offset_3
0115 020e | | Execute Module,Augment_Imports
0116 0387 | | Declare_Variable Package
0117 029d 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call
0119 029d 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call
011b 029d 0b73 | s| Declare_Subprogram INIT_0b70,For_Outer_Call
011d 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call
011f 029d 0b8b | | Declare_Subprogram INIT_0b88,For_Outer_Call
0121 029d 0b9b | | Declare_Subprogram INIT_0b98,For_Outer_Call
0123 029d 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call
0125 029d 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call
0127 029d 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call
0129 029d 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call
012b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
012c 00c7 | | Action Elaborate_Subprogram
012d 029d 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call
012f 029d 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call
0131 029d 0c0b | | Declare_Subprogram INIT_0c08,For_Outer_Call
0133 029d 0c63 | c| Declare_Subprogram INIT_0c60,For_Outer_Call
0135 029d 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call
0137 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call
0139 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
013a 00c7 | | Action Elaborate_Subprogram
013b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
013c 00c7 | | Action Elaborate_Subprogram
013d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
013e 00c7 | | Action Elaborate_Subprogram
013f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0140 00c7 | | Action Elaborate_Subprogram
0141 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0142 00c7 | | Action Elaborate_Subprogram
0143 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0144 00c7 | | Action Elaborate_Subprogram
0145 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0146 00c7 | | Action Elaborate_Subprogram
0147 029d 0cbb | | Declare_Subprogram INIT_0cb8,For_Outer_Call
0149 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
014a 00c7 | | Action Elaborate_Subprogram
014b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
014c 00c7 | | Action Elaborate_Subprogram
014d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
014e 00c7 | | Action Elaborate_Subprogram
014f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0150 00c7 | | Action Elaborate_Subprogram
0151 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0152 00c7 | | Action Elaborate_Subprogram
0153 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0154 00c7 | | Action Elaborate_Subprogram
0155 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0156 00c7 | | Action Elaborate_Subprogram
0157 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0158 00c7 | | Action Elaborate_Subprogram
0159 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
015a 00c7 | | Action Elaborate_Subprogram
015b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
015c 00c7 | | Action Elaborate_Subprogram
015d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
015e 00c7 | | Action Elaborate_Subprogram
015f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0160 00c7 | | Action Elaborate_Subprogram
0161 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0162 00c7 | | Action Elaborate_Subprogram
0163 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0164 00c7 | | Action Elaborate_Subprogram
0165 029d 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call
0167 029d 0cd3 | | Declare_Subprogram INIT_0cd0,For_Outer_Call
0169 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call
016b 029d 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call
016d 029d 0d0b | | Declare_Subprogram INIT_0d08,For_Outer_Call
016f 029d 0d1b | | Declare_Subprogram INIT_0d18,For_Outer_Call
0171 029d 0d2b | +| Declare_Subprogram INIT_0d28,For_Outer_Call
0173 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0174 00c7 | | Action Elaborate_Subprogram
0175 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0176 00c7 | | Action Elaborate_Subprogram
0177 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0178 00c7 | | Action Elaborate_Subprogram
0179 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
017a 00c7 | | Action Elaborate_Subprogram
017b 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
017c 00c7 | | Action Elaborate_Subprogram
017d 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
017e 00c7 | | Action Elaborate_Subprogram
017f 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0180 00c7 | | Action Elaborate_Subprogram
0181 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0182 00c7 | | Action Elaborate_Subprogram
0183 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0184 00c7 | | Action Elaborate_Subprogram
0185 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0186 00c7 | | Action Elaborate_Subprogram
0187 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0188 00c7 | | Action Elaborate_Subprogram
0189 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
018a 00c7 | | Action Elaborate_Subprogram
018b 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
018c 00c7 | | Action Elaborate_Subprogram
018d 029d 0d33 | 3| Declare_Subprogram INIT_0d30,For_Outer_Call
018f 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0190 00c7 | | Action Elaborate_Subprogram
0191 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0192 00c7 | | Action Elaborate_Subprogram
0193 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0194 00c7 | | Action Elaborate_Subprogram
0195 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0196 00c7 | | Action Elaborate_Subprogram
0197 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0198 00c7 | | Action Elaborate_Subprogram
0199 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
019a 00c7 | | Action Elaborate_Subprogram
019b 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
019c 00c7 | | Action Elaborate_Subprogram
019d 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
019e 00c7 | | Action Elaborate_Subprogram
019f 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
01a0 00c7 | | Action Elaborate_Subprogram
01a1 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
01a2 00c7 | | Action Elaborate_Subprogram
01a3 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
01a4 00c7 | | Action Elaborate_Subprogram
01a5 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
01a6 00c7 | | Action Elaborate_Subprogram
01a7 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01a8 00c7 | | Action Elaborate_Subprogram
01a9 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
01aa 00c7 | | Action Elaborate_Subprogram
01ab 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
01ac 00c7 | | Action Elaborate_Subprogram
01ad 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01ae 00c7 | | Action Elaborate_Subprogram
01af 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01b0 00c7 | | Action Elaborate_Subprogram
01b1 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01b2 00c7 | | Action Elaborate_Subprogram
01b3 029d 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call
01b5 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
01b6 00c7 | | Action Elaborate_Subprogram
01b7 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
01b8 00c7 | | Action Elaborate_Subprogram
01b9 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
01ba 00c7 | | Action Elaborate_Subprogram
01bb 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
01bc 00c7 | | Action Elaborate_Subprogram
01bd 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01be 00c7 | | Action Elaborate_Subprogram
01bf 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
01c0 00c7 | | Action Elaborate_Subprogram
01c1 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
01c2 00c7 | | Action Elaborate_Subprogram
01c3 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
01c4 00c7 | | Action Elaborate_Subprogram
01c5 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
01c6 00c7 | | Action Elaborate_Subprogram
01c7 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
01c8 00c7 | | Action Elaborate_Subprogram
01c9 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
01ca 00c7 | | Action Elaborate_Subprogram
01cb 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
01cc 00c7 | | Action Elaborate_Subprogram
01cd 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
01ce 00c7 | | Action Elaborate_Subprogram
01cf 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
01d0 00c7 | | Action Elaborate_Subprogram
01d1 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01d2 00c7 | | Action Elaborate_Subprogram
01d3 e20e | | Load 0x1,0xe
01d4 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
01d5 e003 | | Load 0x0,0x3
01d6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
01d7 4804 |H | Short_Literal 0x4
01d8 e261 | a | Load 0x1,0x61
01d9 020e | | Execute Module,Augment_Imports
01da e261 | a | Load 0x1,0x61
01db 020f | | Execute Module,Activate
01dc a008 | | Store_Unchecked 0x0,0x8
01dd a009 | | Store_Unchecked 0x0,0x9
01de 4802 |H | Short_Literal 0x2
01df e262 | b | Load 0x1,0x62
01e0 020e | | Execute Module,Augment_Imports
01e1 e262 | b | Load 0x1,0x62
01e2 020f | | Execute Module,Activate
01e3 BODY_0008:
01e3 e007 | | Load 0x0,0x7
01e4 e25f | _ | Load 0x1,0x5f
01e5 0098 | | Execute Package,Field_Read_Dynamic
01e6 48ff |H | Short_Literal 0xff
01e7 e00a | | Load 0x0,0xa
01e8 e25f | _ | Load 0x1,0x5f
01e9 0096 | | Execute Package,Entry
01ea c260 | ` | Store 0x1,0x60
01eb 00bc | | Action Signal_Activated
01ec 00bb | | Action Signal_Completion
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 4607 |F | Jump_Case 0x8
01f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01f5 7807 |x | Jump 0x1fd ; case 0x1
01f6 780a |x | Jump 0x201 ; case 0x2
01f7 780e |x | Jump 0x206 ; case 0x3
01f8 7811 |x | Jump 0x20a ; case 0x4
01f9 7812 |x | Jump 0x20c ; case 0x5
01fa 7813 |x | Jump 0x20e ; case 0x6
01fb 7816 |x | Jump 0x212 ; case 0x7
01fc 4302 |C | .XXX[0x1]
01fd 00da | | Load_Top At_Offset_2
01fe 0091 0e78 | x| Action Push_String_Extended_Indexed,0xe78 ; "MODULE_BLOCK"
0200 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0201 00db | | Load_Top At_Offset_3
0202 00db | | Load_Top At_Offset_3
0203 00e0 | | Load_Encached Standard_Cache
0204 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0206 00da | | Load_Top At_Offset_2
0207 00e0 | | Load_Encached Standard_Cache
0208 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0209 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
020a 00db | | Load_Top At_Offset_3
020b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020c 00db | | Load_Top At_Offset_3
020d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020e e20d | | Load 0x1,0xd
020f 00dc | | Load_Top At_Offset_4
0210 0267 | g | Execute Discrete,Predecessor
0211 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0212 e20d | | Load 0x1,0xd
0213 00dc | | Load_Top At_Offset_4
0214 0268 | h | Execute Discrete,Successor
0215 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
021c 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0220 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0224 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0228 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
022c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023c | < | .CONST 0x023c ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0004 | | .CONST 0x0004 ; Number of locals
0233 INIT_0230:
0233 e002 | | Load 0x0,0x2
0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0235 e002 | | Load 0x0,0x2
0236 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0237 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0238 02c7 | | Declare_Variable Any
0239 00d8 | | Load_Top At_Offset_0
023a 1c00 | | Execute_Immediate Run_Utility,0x0
023b 00ec | | Load_Encached Diana_Tree_Cache
023c BODY_0230:
023c e002 | | Load 0x0,0x2
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e 00da | | Load_Top At_Offset_2
023f 0120 | | Execute Any,Is_Value
0240 6804 |h | Jump_Zero 0x245
0241 e002 | | Load 0x0,0x2
0242 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0243 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0244 7801 |x | Jump 0x246
0245 00da | | Load_Top At_Offset_2
0246 e002 | | Load 0x0,0x2
0247 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0248 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0249 601a |` | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
024a 4801 |H | Short_Literal 0x1
024b 4800 |H | Short_Literal 0x0
024c 4800 |H | Short_Literal 0x0
024d e5fe | | Load 0x2,-0x2
024e 4800 |H | Short_Literal 0x0
024f e5ff | | Load 0x2,-0x1
0250 e002 | | Load 0x0,0x2
0251 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0252 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0253 e002 | | Load 0x0,0x2
0254 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0255 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0256 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0257 c403 | | Store 0x2,0x3
0258 005b | [ | Store_Top Discrete,At_Offset_3
0259 00da | | Load_Top At_Offset_2
025a a5fb | | Store_Unchecked 0x2,-0x5
025b 00da | | Load_Top At_Offset_2
025c 826a | j | Call 0x1,0x6a
025d 6805 |h | Jump_Zero 0x263
025e e5fd | | Load 0x2,-0x3
025f 00d9 | | Load_Top At_Offset_1
0260 821e | | Call 0x1,0x1e
0261 e5fc | | Load 0x2,-0x4
0262 017d | } | Execute Record,Structure_Write
0263 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0264 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 027b | { | .CONST 0x027b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0005 | | .CONST 0x0005 ; Number of locals
026b INIT_0268:
026b e002 | | Load 0x0,0x2
026c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
026d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
026e 02ff | | Declare_Variable Variant_Record
026f 00db | | Load_Top At_Offset_3
0270 00d9 | | Load_Top At_Offset_1
0271 016d | m | Execute Variant_Record,Structure_Write
0272 e002 | | Load 0x0,0x2
0273 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0274 e002 | | Load 0x0,0x2
0275 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0276 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0277 02c7 | | Declare_Variable Any
0278 00d8 | | Load_Top At_Offset_0
0279 1c00 | | Execute_Immediate Run_Utility,0x0
027a 00ec | | Load_Encached Diana_Tree_Cache
027b BODY_0268:
027b e002 | | Load 0x0,0x2
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d 00da | | Load_Top At_Offset_2
027e 0120 | | Execute Any,Is_Value
027f 6804 |h | Jump_Zero 0x284
0280 e002 | | Load 0x0,0x2
0281 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0282 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0283 7801 |x | Jump 0x285
0284 00da | | Load_Top At_Offset_2
0285 e002 | | Load 0x0,0x2
0286 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0287 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0288 e402 | | Load 0x2,0x2
0289 67da |g | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
028a 4801 |H | Short_Literal 0x1
028b 4800 |H | Short_Literal 0x0
028c e5fe | | Load 0x2,-0x2
028d 4800 |H | Short_Literal 0x0
028e e002 | | Load 0x0,0x2
028f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0290 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0291 00d1 | | Pop_Control Pop_Count_1
0292 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0293 c404 | | Store 0x2,0x4
0294 005b | [ | Store_Top Discrete,At_Offset_3
0295 00da | | Load_Top At_Offset_2
0296 a5fb | | Store_Unchecked 0x2,-0x5
0297 00da | | Load_Top At_Offset_2
0298 826a | j | Call 0x1,0x6a
0299 6805 |h | Jump_Zero 0x29f
029a e5fd | | Load 0x2,-0x3
029b 00d9 | | Load_Top At_Offset_1
029c 821e | | Call 0x1,0x1e
029d e5fc | | Load 0x2,-0x4
029e 017d | } | Execute Record,Structure_Write
029f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4800 |H | Short_Literal 0x0
02a4 a5fb | | Store_Unchecked 0x2,-0x5
02a5 e5fd | | Load 0x2,-0x3
02a6 00db | | Load_Top At_Offset_3
02a7 821e | | Call 0x1,0x1e
02a8 e5fc | | Load 0x2,-0x4
02a9 017d | } | Execute Record,Structure_Write
02aa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02c1 | | .CONST 0x02c1 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0005 | | .CONST 0x0005 ; Number of locals
02b3 INIT_02b0:
02b3 e002 | | Load 0x0,0x2
02b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02b5 02ff | | Declare_Variable Variant_Record
02b6 00d8 | | Load_Top At_Offset_0
02b7 1c00 | | Execute_Immediate Run_Utility,0x0
02b8 e002 | | Load 0x0,0x2
02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ba e002 | | Load 0x0,0x2
02bb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02bd 02c7 | | Declare_Variable Any
02be 00d8 | | Load_Top At_Offset_0
02bf 1c00 | | Execute_Immediate Run_Utility,0x0
02c0 00ec | | Load_Encached Diana_Tree_Cache
02c1 BODY_02b0:
02c1 e5ff | | Load 0x2,-0x1
02c2 8271 | q | Call 0x1,0x71
02c3 e402 | | Load 0x2,0x2
02c4 016d | m | Execute Variant_Record,Structure_Write
02c5 e002 | | Load 0x0,0x2
02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c7 00da | | Load_Top At_Offset_2
02c8 0120 | | Execute Any,Is_Value
02c9 6804 |h | Jump_Zero 0x2ce
02ca e002 | | Load 0x0,0x2
02cb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02cc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02cd 7801 |x | Jump 0x2cf
02ce 00da | | Load_Top At_Offset_2
02cf e002 | | Load 0x0,0x2
02d0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02d2 e402 | | Load 0x2,0x2
02d3 6014 |` | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x00004000}
02d4 4801 |H | Short_Literal 0x1
02d5 4800 |H | Short_Literal 0x0
02d6 e5fe | | Load 0x2,-0x2
02d7 4800 |H | Short_Literal 0x0
02d8 e002 | | Load 0x0,0x2
02d9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02da 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02db 00d1 | | Pop_Control Pop_Count_1
02dc 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02dd c404 | | Store 0x2,0x4
02de 005b | [ | Store_Top Discrete,At_Offset_3
02df 4800 |H | Short_Literal 0x0
02e0 a5fc | | Store_Unchecked 0x2,-0x4
02e1 00d8 | | Load_Top At_Offset_0
02e2 e5ff | | Load 0x2,-0x1
02e3 8272 | r | Call 0x1,0x72
02e4 e5fd | | Load 0x2,-0x3
02e5 017d | } | Execute Record,Structure_Write
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 0000 | | .XXX[0x1]
02e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4800 |H | Short_Literal 0x0
02f4 a5fe | | Store_Unchecked 0x2,-0x2
02f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 031e | | .CONST 0x031e ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 000a | | .CONST 0x000a ; Number of locals
02fb INIT_02f8:
02fb e20e | | Load 0x1,0xe
02fc 03e9 | | Declare_Variable Discrete,Duplicate
02fd 03e9 | | Declare_Variable Discrete,Duplicate
02fe e5ff | | Load 0x2,-0x1
02ff 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0300 e20e | | Load 0x1,0xe
0301 03f1 | | Declare_Variable Discrete,With_Value
0302 e25b | [ | Load 0x1,0x5b
0303 0322 | " | Declare_Variable Record
0304 00d8 | | Load_Top At_Offset_0
0305 1c00 | | Execute_Immediate Run_Utility,0x0
0306 00e2 | | Load_Encached Integer_Cache
0307 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0308 e20e | | Load 0x1,0xe
0309 0007 | | Action Break_Optional
030a 4800 |H | Short_Literal 0x0
030b 6110 |a | Indirect_Literal Discrete,0x41c,{0x00000000, 0x0000ffff}
030c 00e1 | | Load_Encached Boolean_Cache
030d 02a0 | | Declare_Subprogram Null_Subprogram
030e 4801 |H | Short_Literal 0x1
030f 035d | ] | Declare_Type Array,Defined
0310 00d8 | | Load_Top At_Offset_0
0311 0337 | 7 | Declare_Variable Array
0312 00d8 | | Load_Top At_Offset_0
0313 0335 | 5 | Declare_Variable Array,Duplicate
0314 00cd | | Action Spare6_Action
0315 6106 |a | Indirect_Literal Discrete,0x41c,{0x00000000, 0x0000ffff}
0316 4800 |H | Short_Literal 0x0
0317 4800 |H | Short_Literal 0x0
0318 00d9 | | Load_Top At_Offset_1
0319 e40b | | Load 0x2,0xb
031a 01d6 | | Execute Vector,Field_Write
031b 3ffb |? | Loop_Increasing 0x317
031c 00d9 | | Load_Top At_Offset_1
031d 01d4 | | Execute Vector,Structure_Write
031e BODY_02f8:
031e 00cf | | Action Mark_Auxiliary
031f e5ff | | Load 0x2,-0x1
0320 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0321 4801 |H | Short_Literal 0x1
0322 0263 | c | Execute Discrete,Above_Bound
0323 70e0 |p | Jump_Nonzero 0x404
0324 00d8 | | Load_Top At_Offset_0
0325 e5ff | | Load 0x2,-0x1
0326 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0327 027f | | Execute Discrete,Equal
0328 6804 |h | Jump_Zero 0x32d
0329 e405 | | Load 0x2,0x5
032a 0aff | | Execute_Immediate Plus,-0x1
032b c403 | | Store 0x2,0x3
032c 7820 |x | Jump 0x34d
032d 00d8 | | Load_Top At_Offset_0
032e 0a01 | | Execute_Immediate Plus,0x1
032f 00d8 | | Load_Top At_Offset_0
0330 00e4 | | Load_Encached Positive_Cache
0331 0260 | ` | Execute Discrete,In_Type
0332 7001 |p | Jump_Nonzero 0x334
0333 0801 | | Execute_Immediate Raise,0x1
0334 e5ff | | Load 0x2,-0x1
0335 8244 | D | Call 0x1,0x44
0336 e406 | | Load 0x2,0x6
0337 017d | } | Execute Record,Structure_Write
0338 e406 | | Load 0x2,0x6
0339 823c | < | Call 0x1,0x3c
033a a403 | | Store_Unchecked 0x2,0x3
033b e406 | | Load 0x2,0x6
033c 8241 | A | Call 0x1,0x41
033d 00eb | | Load_Encached Diana_Cache
033e 18ec | | Execute Package,Field_Execute,Field_Number 0xec
033f 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0340 4846 |HF | Short_Literal 0x46
0341 4847 |HG | Short_Literal 0x47
0342 0262 | b | Execute Discrete,In_Range
0343 7006 |p | Jump_Nonzero 0x34a
0344 e403 | | Load 0x2,0x3
0345 09fd | | Execute_Immediate Binary_Scale,-0x3
0346 0903 | | Execute_Immediate Binary_Scale,0x3
0347 0aff | | Execute_Immediate Plus,-0x1
0348 c403 | | Store 0x2,0x3
0349 7803 |x | Jump 0x34d
034a e403 | | Load 0x2,0x3
034b 0aff | | Execute_Immediate Plus,-0x1
034c c403 | | Store 0x2,0x3
034d 00cf | | Action Mark_Auxiliary
034e e403 | | Load 0x2,0x3
034f 00da | | Load_Top At_Offset_2
0350 e5ff | | Load 0x2,-0x1
0351 8244 | D | Call 0x1,0x44
0352 823c | < | Call 0x1,0x3c
0353 0263 | c | Execute Discrete,Above_Bound
0354 7091 |p | Jump_Nonzero 0x3e6
0355 00d8 | | Load_Top At_Offset_0
0356 e403 | | Load 0x2,0x3
0357 027f | | Execute Discrete,Equal
0358 6802 |h | Jump_Zero 0x35b
0359 00d2 | | Pop_Control Pop_Count_2
035a 788b |x | Jump 0x3e6
035b 00d8 | | Load_Top At_Offset_0
035c e5ff | | Load 0x2,-0x1
035d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035e 826b | k | Call 0x1,0x6b
035f a408 | | Store_Unchecked 0x2,0x8
0360 e408 | | Load 0x2,0x8
0361 0c90 | | Execute_Immediate Greater_Equal,-0x70
0362 e408 | | Load 0x2,0x8
0363 0d93 | | Execute_Immediate Less,-0x6d
0364 0279 | y | Execute Discrete,And
0365 682b |h+ | Jump_Zero 0x391
0366 00d8 | | Load_Top At_Offset_0
0367 0a01 | | Execute_Immediate Plus,0x1
0368 00d8 | | Load_Top At_Offset_0
0369 e20e | | Load 0x1,0xe
036a 0260 | ` | Execute Discrete,In_Type
036b 7001 |p | Jump_Nonzero 0x36d
036c 0801 | | Execute_Immediate Raise,0x1
036d e5ff | | Load 0x2,-0x1
036e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036f 826b | k | Call 0x1,0x6b
0370 a402 | | Store_Unchecked 0x2,0x2
0371 e402 | | Load 0x2,0x2
0372 e5ff | | Load 0x2,-0x1
0373 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0374 00d8 | | Load_Top At_Offset_0
0375 00e4 | | Load_Encached Positive_Cache
0376 0260 | ` | Execute Discrete,In_Type
0377 7001 |p | Jump_Nonzero 0x379
0378 0801 | | Execute_Immediate Raise,0x1
0379 e5ff | | Load 0x2,-0x1
037a 8244 | D | Call 0x1,0x44
037b 823c | < | Call 0x1,0x3c
037c 027d | } | Execute Discrete,Greater
037d e402 | | Load 0x2,0x2
037e e405 | | Load 0x2,0x5
037f 027c | | | Execute Discrete,Less
0380 0279 | y | Execute Discrete,And
0381 6862 |hb | Jump_Zero 0x3e4
0382 e402 | | Load 0x2,0x2
0383 a405 | | Store_Unchecked 0x2,0x5
0384 00db | | Load_Top At_Offset_3
0385 e5ff | | Load 0x2,-0x1
0386 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0387 027f | | Execute Discrete,Equal
0388 e402 | | Load 0x2,0x2
0389 e403 | | Load 0x2,0x3
038a 027a | z | Execute Discrete,Less_Equal
038b 0279 | y | Execute Discrete,And
038c 6857 |hW | Jump_Zero 0x3e4
038d e405 | | Load 0x2,0x5
038e 0aff | | Execute_Immediate Plus,-0x1
038f c403 | | Store 0x2,0x3
0390 7853 |xS | Jump 0x3e4
0391 e408 | | Load 0x2,0x8
0392 0ca0 | | Execute_Immediate Greater_Equal,-0x60
0393 e408 | | Load 0x2,0x8
0394 0da3 | | Execute_Immediate Less,-0x5d
0395 0279 | y | Execute Discrete,And
0396 681d |h | Jump_Zero 0x3b4
0397 00d8 | | Load_Top At_Offset_0
0398 0a01 | | Execute_Immediate Plus,0x1
0399 00d8 | | Load_Top At_Offset_0
039a e20e | | Load 0x1,0xe
039b 0260 | ` | Execute Discrete,In_Type
039c 7001 |p | Jump_Nonzero 0x39e
039d 0801 | | Execute_Immediate Raise,0x1
039e e5ff | | Load 0x2,-0x1
039f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a0 826b | k | Call 0x1,0x6b
03a1 a402 | | Store_Unchecked 0x2,0x2
03a2 e402 | | Load 0x2,0x2
03a3 e40a | | Load 0x2,0xa
03a4 01d7 | | Execute Vector,Field_Read
03a5 703e |p> | Jump_Nonzero 0x3e4
03a6 00cf | | Action Mark_Auxiliary
03a7 e402 | | Load 0x2,0x2
03a8 0a03 | | Execute_Immediate Plus,0x3
03a9 e402 | | Load 0x2,0x2
03aa 0263 | c | Execute Discrete,Above_Bound
03ab 7006 |p | Jump_Nonzero 0x3b2
03ac 4801 |H | Short_Literal 0x1
03ad 00d9 | | Load_Top At_Offset_1
03ae e40a | | Load 0x2,0xa
03af 01d6 | | Execute Vector,Field_Write
03b0 00c8 | | Action Pop_Auxiliary_Range
03b1 3ffa |? | Loop_Increasing 0x3ac
03b2 00ce | | Action Pop_Auxiliary
03b3 7830 |x0 | Jump 0x3e4
03b4 e408 | | Load 0x2,0x8
03b5 6062 |`b | Indirect_Literal Discrete,0x418,{0x00000000, 0x00005000}
03b6 027b | { | Execute Discrete,Greater_Equal
03b7 e408 | | Load 0x2,0x8
03b8 605b |`[ | Indirect_Literal Discrete,0x414,{0x00000000, 0x000067ff}
03b9 027a | z | Execute Discrete,Less_Equal
03ba 0279 | y | Execute Discrete,And
03bb 6828 |h( | Jump_Zero 0x3e4
03bc 00d8 | | Load_Top At_Offset_0
03bd e408 | | Load 0x2,0x8
03be 6051 |`Q | Indirect_Literal Discrete,0x410,{0x00000000, 0x000007ff}
03bf 0279 | y | Execute Discrete,And
03c0 00d8 | | Load_Top At_Offset_0
03c1 e20e | | Load 0x1,0xe
03c2 0260 | ` | Execute Discrete,In_Type
03c3 7001 |p | Jump_Nonzero 0x3c5
03c4 0801 | | Execute_Immediate Raise,0x1
03c5 0273 | s | Execute Discrete,Plus
03c6 0a01 | | Execute_Immediate Plus,0x1
03c7 c402 | | Store 0x2,0x2
03c8 e402 | | Load 0x2,0x2
03c9 00d9 | | Load_Top At_Offset_1
03ca 6041 |`A | Indirect_Literal Discrete,0x40c,{0x00000000, 0x00000400}
03cb 0273 | s | Execute Discrete,Plus
03cc 0a01 | | Execute_Immediate Plus,0x1
03cd 027b | { | Execute Discrete,Greater_Equal
03ce 6804 |h | Jump_Zero 0x3d3
03cf e402 | | Load 0x2,0x2
03d0 6037 |`7 | Indirect_Literal Discrete,0x408,{0xffffffff, 0xfffff800}
03d1 0273 | s | Execute Discrete,Plus
03d2 c402 | | Store 0x2,0x2
03d3 e402 | | Load 0x2,0x2
03d4 e40a | | Load 0x2,0xa
03d5 01d7 | | Execute Vector,Field_Read
03d6 700d |p | Jump_Nonzero 0x3e4
03d7 00cf | | Action Mark_Auxiliary
03d8 e402 | | Load 0x2,0x2
03d9 0a03 | | Execute_Immediate Plus,0x3
03da e402 | | Load 0x2,0x2
03db 0263 | c | Execute Discrete,Above_Bound
03dc 7006 |p | Jump_Nonzero 0x3e3
03dd 4801 |H | Short_Literal 0x1
03de 00d9 | | Load_Top At_Offset_1
03df e40a | | Load 0x2,0xa
03e0 01d6 | | Execute Vector,Field_Write
03e1 00c8 | | Action Pop_Auxiliary_Range
03e2 3ffa |? | Loop_Increasing 0x3dd
03e3 00ce | | Action Pop_Auxiliary
03e4 00c8 | | Action Pop_Auxiliary_Range
03e5 3f6f |?o | Loop_Increasing 0x355
03e6 00c9 | | Action Pop_Auxiliary_Loop
03e7 7807 |x | Jump 0x3ef
03e8 e403 | | Load 0x2,0x3
03e9 0aff | | Execute_Immediate Plus,-0x1
03ea c403 | | Store 0x2,0x3
03eb e407 | | Load 0x2,0x7
03ec 0a01 | | Execute_Immediate Plus,0x1
03ed c407 | | Store 0x2,0x7
03ee 00c9 | | Action Pop_Auxiliary_Loop
03ef e403 | | Load 0x2,0x3
03f0 e40a | | Load 0x2,0xa
03f1 01d7 | | Execute Vector,Field_Read
03f2 77f5 |w | Jump_Nonzero 0x3e8
03f3 00ce | | Action Pop_Auxiliary
03f4 e403 | | Load 0x2,0x3
03f5 00d9 | | Load_Top At_Offset_1
03f6 e5ff | | Load 0x2,-0x1
03f7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03f8 0227 | ' | Execute Access,All_Reference
03f9 01d6 | | Execute Vector,Field_Write
03fa e407 | | Load 0x2,0x7
03fb 00d9 | | Load_Top At_Offset_1
03fc e5ff | | Load 0x2,-0x1
03fd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
03fe 0227 | ' | Execute Access,All_Reference
03ff 01d6 | | Execute Vector,Field_Write
0400 4800 |H | Short_Literal 0x0
0401 a407 | | Store_Unchecked 0x2,0x7
0402 00c8 | | Action Pop_Auxiliary_Range
0403 3f20 |? | Loop_Increasing 0x324
0404 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ffff ffff | | .LITERAL {0xffffffff, 0xfffff800}
040c 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0410 0000 0000 | | .LITERAL {0x00000000, 0x000007ff}
0414 0000 0000 | | .LITERAL {0x00000000, 0x000067ff}
0418 0000 0000 | | .LITERAL {0x00000000, 0x00005000}
041c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00db | | Load_Top At_Offset_3
0424 00db | | Load_Top At_Offset_3
0425 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0426 e00b | | Load 0x0,0xb
0427 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0428 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 043b | ; | .CONST 0x043b ; Address of begin
0431 0480 | | .CONST 0x0480 ; Address of exception handler
0432 0004 | | .CONST 0x0004 ; Number of locals
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 0007 | | Action Break_Optional
0435 00db | | Load_Top At_Offset_3
0436 4976 |Iv | Short_Literal 0x176
0437 00eb | | Load_Encached Diana_Cache
0438 0098 | | Execute Package,Field_Read_Dynamic
0439 180f | | Execute Package,Field_Execute,Field_Number 0xf
043a 00e2 | | Load_Encached Integer_Cache
043b BODY_0430:
043b e5fe | | Load 0x2,-0x2
043c 681d |h | Jump_Zero 0x45a
043d 00d9 | | Load_Top At_Offset_1
043e e00c | | Load 0x0,0xc
043f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0440 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0441 7012 |p | Jump_Nonzero 0x454
0442 00da | | Load_Top At_Offset_2
0443 826f | o | Call 0x1,0x6f
0444 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0445 00da | | Load_Top At_Offset_2
0446 6806 |h | Jump_Zero 0x44d
0447 00da | | Load_Top At_Offset_2
0448 4976 |Iv | Short_Literal 0x176
0449 00eb | | Load_Encached Diana_Cache
044a 0098 | | Execute Package,Field_Read_Dynamic
044b 180f | | Execute Package,Field_Execute,Field_Number 0xf
044c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
044d 00d9 | | Load_Top At_Offset_1
044e e00c | | Load 0x0,0xc
044f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0450 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0451 7002 |p | Jump_Nonzero 0x454
0452 e216 | | Load 0x1,0x16
0453 0257 | W | Execute Discrete,Raise
0454 00d9 | | Load_Top At_Offset_1
0455 e00c | | Load 0x0,0xc
0456 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0457 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0458 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0459 781c |x | Jump 0x476
045a 00d9 | | Load_Top At_Offset_1
045b e00c | | Load 0x0,0xc
045c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
045d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
045e 7012 |p | Jump_Nonzero 0x471
045f 00da | | Load_Top At_Offset_2
0460 826f | o | Call 0x1,0x6f
0461 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0462 00da | | Load_Top At_Offset_2
0463 6806 |h | Jump_Zero 0x46a
0464 00da | | Load_Top At_Offset_2
0465 4976 |Iv | Short_Literal 0x176
0466 00eb | | Load_Encached Diana_Cache
0467 0098 | | Execute Package,Field_Read_Dynamic
0468 180f | | Execute Package,Field_Execute,Field_Number 0xf
0469 0032 | 2 | Store_Top Heap_Access,At_Offset_2
046a 00d9 | | Load_Top At_Offset_1
046b e00c | | Load 0x0,0xc
046c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
046d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
046e 7002 |p | Jump_Nonzero 0x471
046f e216 | | Load 0x1,0x16
0470 0257 | W | Execute Discrete,Raise
0471 00d9 | | Load_Top At_Offset_1
0472 e00c | | Load 0x0,0xc
0473 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0474 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0475 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0476 00da | | Load_Top At_Offset_2
0477 00d9 | | Load_Top At_Offset_1
0478 00d8 | | Load_Top At_Offset_0
0479 e003 | | Load 0x0,0x3
047a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
047b 0260 | ` | Execute Discrete,In_Type
047c 7001 |p | Jump_Nonzero 0x47e
047d 0801 | | Execute_Immediate Raise,0x1
047e 8272 | r | Call 0x1,0x72
047f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0480 TRAP_0430:
0480 0007 | | Action Break_Optional
0481 e5fe | | Load 0x2,-0x2
0482 6807 |h | Jump_Zero 0x48a
0483 00da | | Load_Top At_Offset_2
0484 e00c | | Load 0x0,0xc
0485 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0486 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0487 6802 |h | Jump_Zero 0x48a
0488 00d8 | | Load_Top At_Offset_0
0489 0101 | | Execute Exception,Reraise
048a e5fe | | Load 0x2,-0x2
048b 7007 |p | Jump_Nonzero 0x493
048c 00da | | Load_Top At_Offset_2
048d e00c | | Load 0x0,0xc
048e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
048f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0490 6802 |h | Jump_Zero 0x493
0491 00d8 | | Load_Top At_Offset_0
0492 0101 | | Execute Exception,Reraise
0493 e216 | | Load 0x1,0x16
0494 0257 | W | Execute Discrete,Raise
0495 0000 0000 | | .XXX[0x3]
0497 0000 | |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c 8273 | s | Call 0x1,0x73
049d 6808 |h | Jump_Zero 0x4a6
049e 00da | | Load_Top At_Offset_2
049f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a0 4976 |Iv | Short_Literal 0x176
04a1 00eb | | Load_Encached Diana_Cache
04a2 0098 | | Execute Package,Field_Read_Dynamic
04a3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04a4 8264 | d | Call 0x1,0x64
04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a6 00ea | | Load_Encached Null_String_Cache
04a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00da | | Load_Top At_Offset_2
04ac 8273 | s | Call 0x1,0x73
04ad 6808 |h | Jump_Zero 0x4b6
04ae 00da | | Load_Top At_Offset_2
04af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04b0 4976 |Iv | Short_Literal 0x176
04b1 00eb | | Load_Encached Diana_Cache
04b2 0098 | | Execute Package,Field_Read_Dynamic
04b3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b4 8265 | e | Call 0x1,0x65
04b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b6 00ea | | Load_Encached Null_String_Cache
04b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00da | | Load_Top At_Offset_2
04bc 8273 | s | Call 0x1,0x73
04bd 6808 |h | Jump_Zero 0x4c6
04be 00da | | Load_Top At_Offset_2
04bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c0 4976 |Iv | Short_Literal 0x176
04c1 00eb | | Load_Encached Diana_Cache
04c2 0098 | | Execute Package,Field_Read_Dynamic
04c3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c4 8266 | f | Call 0x1,0x66
04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c6 00ea | | Load_Encached Null_String_Cache
04c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 8273 | s | Call 0x1,0x73
04cd 6808 |h | Jump_Zero 0x4d6
04ce 00da | | Load_Top At_Offset_2
04cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d0 4976 |Iv | Short_Literal 0x176
04d1 00eb | | Load_Encached Diana_Cache
04d2 0098 | | Execute Package,Field_Read_Dynamic
04d3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04d4 8267 | g | Call 0x1,0x67
04d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d6 00ea | | Load_Encached Null_String_Cache
04d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e5 | | .CONST 0x04e5 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 00e3 | | Load_Encached Natural_Cache
04e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04e5 BODY_04e0:
04e5 00cf | | Action Mark_Auxiliary
04e6 e5ff | | Load 0x2,-0x1
04e7 8223 | # | Call 0x1,0x23
04e8 4801 |H | Short_Literal 0x1
04e9 0263 | c | Execute Discrete,Above_Bound
04ea 7009 |p | Jump_Nonzero 0x4f4
04eb 00db | | Load_Top At_Offset_3
04ec 00d9 | | Load_Top At_Offset_1
04ed e5ff | | Load 0x2,-0x1
04ee 8244 | D | Call 0x1,0x44
04ef 8239 | 9 | Call 0x1,0x39
04f0 0273 | s | Execute Discrete,Plus
04f1 c402 | | Store 0x2,0x2
04f2 00c8 | | Action Pop_Auxiliary_Range
04f3 3ff7 |? | Loop_Increasing 0x4eb
04f4 00ce | | Action Pop_Auxiliary
04f5 00d8 | | Load_Top At_Offset_0
04f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f7 0000 | | .XXX[0x1]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fd | | .CONST 0x04fd ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb 00e3 | | Load_Encached Natural_Cache
04fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04fd BODY_04f8:
04fd 00cf | | Action Mark_Auxiliary
04fe e5ff | | Load 0x2,-0x1
04ff 8223 | # | Call 0x1,0x23
0500 4801 |H | Short_Literal 0x1
0501 0263 | c | Execute Discrete,Above_Bound
0502 7009 |p | Jump_Nonzero 0x50c
0503 00db | | Load_Top At_Offset_3
0504 00d9 | | Load_Top At_Offset_1
0505 e5ff | | Load 0x2,-0x1
0506 8244 | D | Call 0x1,0x44
0507 8238 | 8 | Call 0x1,0x38
0508 0273 | s | Execute Discrete,Plus
0509 c402 | | Store 0x2,0x2
050a 00c8 | | Action Pop_Auxiliary_Range
050b 3ff7 |? | Loop_Increasing 0x503
050c 00ce | | Action Pop_Auxiliary
050d 00d8 | | Load_Top At_Offset_0
050e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050f 0000 | | .XXX[0x1]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0515 | | .CONST 0x0515 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 00e3 | | Load_Encached Natural_Cache
0514 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0515 BODY_0510:
0515 00cf | | Action Mark_Auxiliary
0516 e5ff | | Load 0x2,-0x1
0517 8223 | # | Call 0x1,0x23
0518 4801 |H | Short_Literal 0x1
0519 0263 | c | Execute Discrete,Above_Bound
051a 7009 |p | Jump_Nonzero 0x524
051b 00db | | Load_Top At_Offset_3
051c 00d9 | | Load_Top At_Offset_1
051d e5ff | | Load 0x2,-0x1
051e 8244 | D | Call 0x1,0x44
051f 823a | : | Call 0x1,0x3a
0520 0273 | s | Execute Discrete,Plus
0521 c402 | | Store 0x2,0x2
0522 00c8 | | Action Pop_Auxiliary_Range
0523 3ff7 |? | Loop_Increasing 0x51b
0524 00ce | | Action Pop_Auxiliary
0525 00d8 | | Load_Top At_Offset_0
0526 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0527 0000 | | .XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052d | - | .CONST 0x052d ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0002 | | .CONST 0x0002 ; Number of locals
052b INIT_0528:
052b 00e3 | | Load_Encached Natural_Cache
052c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
052d BODY_0528:
052d 00cf | | Action Mark_Auxiliary
052e e5ff | | Load 0x2,-0x1
052f 8223 | # | Call 0x1,0x23
0530 4801 |H | Short_Literal 0x1
0531 0263 | c | Execute Discrete,Above_Bound
0532 7009 |p | Jump_Nonzero 0x53c
0533 00db | | Load_Top At_Offset_3
0534 00d9 | | Load_Top At_Offset_1
0535 e5ff | | Load 0x2,-0x1
0536 8244 | D | Call 0x1,0x44
0537 823b | ; | Call 0x1,0x3b
0538 0273 | s | Execute Discrete,Plus
0539 c402 | | Store 0x2,0x2
053a 00c8 | | Action Pop_Auxiliary_Range
053b 3ff7 |? | Loop_Increasing 0x533
053c 00ce | | Action Pop_Auxiliary
053d 00d8 | | Load_Top At_Offset_0
053e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053f 0000 | | .XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0554 | T | .CONST 0x0554 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0003 | | .CONST 0x0003 ; Number of locals
0543 INIT_0540:
0543 00da | | Load_Top At_Offset_2
0544 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0545 00d8 | | Load_Top At_Offset_0
0546 00e4 | | Load_Encached Positive_Cache
0547 0260 | ` | Execute Discrete,In_Type
0548 7001 |p | Jump_Nonzero 0x54a
0549 0801 | | Execute_Immediate Raise,0x1
054a 00db | | Load_Top At_Offset_3
054b 8244 | D | Call 0x1,0x44
054c 823f | ? | Call 0x1,0x3f
054d e20e | | Load 0x1,0xe
054e 03f1 | | Declare_Variable Discrete,With_Value
054f 00db | | Load_Top At_Offset_3
0550 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0551 0aff | | Execute_Immediate Plus,-0x1
0552 e20e | | Load 0x1,0xe
0553 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0554 BODY_0540:
0554 00d8 | | Load_Top At_Offset_0
0555 00da | | Load_Top At_Offset_2
0556 027d | } | Execute Discrete,Greater
0557 6809 |h | Jump_Zero 0x561
0558 00d8 | | Load_Top At_Offset_0
0559 00da | | Load_Top At_Offset_2
055a 0272 | r | Execute Discrete,Minus
055b 00d8 | | Load_Top At_Offset_0
055c 00e3 | | Load_Encached Natural_Cache
055d 0260 | ` | Execute Discrete,In_Type
055e 7001 |p | Jump_Nonzero 0x560
055f 0801 | | Execute_Immediate Raise,0x1
0560 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0561 4800 |H | Short_Literal 0x0
0562 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0563 0000 0000 | | .BLANK 0000[0x5]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
0574 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0575 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0576 0000 0000 | | .XXX[0x2]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
057d 02fd | | Declare_Variable Variant_Record,Duplicate
057e 00cd | | Action Spare6_Action
057f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0584 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0586 0000 0000 | | .XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 827a | z | Call 0x1,0x7a
058d 6804 |h | Jump_Zero 0x592
058e 00da | | Load_Top At_Offset_2
058f 8241 | A | Call 0x1,0x41
0590 8264 | d | Call 0x1,0x64
0591 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0592 00ea | | Load_Encached Null_String_Cache
0593 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0594 0000 0000 | | .BLANK 0000[0x4]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b | | .CONST 0x059b ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0001 | | .CONST 0x0001 ; Number of locals
059b BODY_0598:
059b INIT_0598:
059b 00da | | Load_Top At_Offset_2
059c 827a | z | Call 0x1,0x7a
059d 6804 |h | Jump_Zero 0x5a2
059e 00da | | Load_Top At_Offset_2
059f 8241 | A | Call 0x1,0x41
05a0 8265 | e | Call 0x1,0x65
05a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a2 00ea | | Load_Encached Null_String_Cache
05a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac 827a | z | Call 0x1,0x7a
05ad 6804 |h | Jump_Zero 0x5b2
05ae 00da | | Load_Top At_Offset_2
05af 8241 | A | Call 0x1,0x41
05b0 8266 | f | Call 0x1,0x66
05b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b2 00ea | | Load_Encached Null_String_Cache
05b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 827a | z | Call 0x1,0x7a
05bd 6804 |h | Jump_Zero 0x5c2
05be 00da | | Load_Top At_Offset_2
05bf 8241 | A | Call 0x1,0x41
05c0 8267 | g | Call 0x1,0x67
05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c2 00ea | | Load_Encached Null_String_Cache
05c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c4 0000 0000 | | .BLANK 0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05cd 00d8 | | Load_Top At_Offset_0
05ce 00e4 | | Load_Encached Positive_Cache
05cf 0260 | ` | Execute Discrete,In_Type
05d0 7001 |p | Jump_Nonzero 0x5d2
05d1 0801 | | Execute_Immediate Raise,0x1
05d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d3 0000 0000 | | .BLANK 0000[0x5]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 4802 |H | Short_Literal 0x2
05dc 00db | | Load_Top At_Offset_3
05dd 826d | m | Call 0x1,0x6d
05de 480f |H | Short_Literal 0xf
05df 0279 | y | Execute Discrete,And
05e0 00d8 | | Load_Top At_Offset_0
05e1 e20d | | Load 0x1,0xd
05e2 0260 | ` | Execute Discrete,In_Type
05e3 7001 |p | Jump_Nonzero 0x5e5
05e4 0801 | | Execute_Immediate Raise,0x1
05e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e6 0000 0000 | | .XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 4803 |H | Short_Literal 0x3
05ec 00db | | Load_Top At_Offset_3
05ed 826d | m | Call 0x1,0x6d
05ee 480f |H | Short_Literal 0xf
05ef 0279 | y | Execute Discrete,And
05f0 00d8 | | Load_Top At_Offset_0
05f1 00e3 | | Load_Encached Natural_Cache
05f2 0260 | ` | Execute Discrete,In_Type
05f3 7001 |p | Jump_Nonzero 0x5f5
05f4 0801 | | Execute_Immediate Raise,0x1
05f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 08e2 | | Execute_Immediate Raise,0xe2
05fc 0000 0000 | | .BLANK 0000[0x4]
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 08e2 | | Execute_Immediate Raise,0xe2
0604 0000 0000 | | .BLANK 0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
060d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
060e 0000 0000 | | .XXX[0x2]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 00da | | Load_Top At_Offset_2
0614 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0615 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0616 0000 0000 | | .XXX[0x2]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 00da | | Load_Top At_Offset_2
061c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
061d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061e 0000 0000 | | .XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 00da | | Load_Top At_Offset_2
0624 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0625 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0626 0000 0000 | | .XXX[0x2]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b 00da | | Load_Top At_Offset_2
062c 823d | = | Call 0x1,0x3d
062d 00db | | Load_Top At_Offset_3
062e 823c | < | Call 0x1,0x3c
062f 0272 | r | Execute Discrete,Minus
0630 00d8 | | Load_Top At_Offset_0
0631 e20e | | Load 0x1,0xe
0632 0260 | ` | Execute Discrete,In_Type
0633 7001 |p | Jump_Nonzero 0x635
0634 0801 | | Execute_Immediate Raise,0x1
0635 0a01 | | Execute_Immediate Plus,0x1
0636 00d8 | | Load_Top At_Offset_0
0637 00e3 | | Load_Encached Natural_Cache
0638 0260 | ` | Execute Discrete,In_Type
0639 7001 |p | Jump_Nonzero 0x63b
063a 0801 | | Execute_Immediate Raise,0x1
063b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063c 0000 0000 | | .BLANK 0000[0x4]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00da | | Load_Top At_Offset_2
0644 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0645 00db | | Load_Top At_Offset_3
0646 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0647 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0648 0227 | ' | Execute Access,All_Reference
0649 01d7 | | Execute Vector,Field_Read
064a 00d8 | | Load_Top At_Offset_0
064b 00e3 | | Load_Encached Natural_Cache
064c 0260 | ` | Execute Discrete,In_Type
064d 7001 |p | Jump_Nonzero 0x64f
064e 0801 | | Execute_Immediate Raise,0x1
064f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0655 00d8 | | Load_Top At_Offset_0
0656 e20e | | Load 0x1,0xe
0657 0260 | ` | Execute Discrete,In_Type
0658 7001 |p | Jump_Nonzero 0x65a
0659 0801 | | Execute_Immediate Raise,0x1
065a 00db | | Load_Top At_Offset_3
065b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
065c 821d | | Call 0x1,0x1d
065d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065e 0000 0000 | | .XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0665 00db | | Load_Top At_Offset_3
0666 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0667 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0668 0227 | ' | Execute Access,All_Reference
0669 01d7 | | Execute Vector,Field_Read
066a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066b 0000 0000 | | .BLANK 0000[0x5]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067c | | | .CONST 0x067c ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0003 | | .CONST 0x0003 ; Number of locals
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 823c | < | Call 0x1,0x3c
0675 0afd | | Execute_Immediate Plus,-0x3
0676 e20e | | Load 0x1,0xe
0677 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0678 00db | | Load_Top At_Offset_3
0679 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
067a 00e3 | | Load_Encached Natural_Cache
067b 03f1 | | Declare_Variable Discrete,With_Value
067c BODY_0670:
067c 00d8 | | Load_Top At_Offset_0
067d 0c02 | | Execute_Immediate Greater_Equal,0x2
067e 6811 |h | Jump_Zero 0x690
067f 00d9 | | Load_Top At_Offset_1
0680 00d9 | | Load_Top At_Offset_1
0681 0aff | | Execute_Immediate Plus,-0x1
0682 00d8 | | Load_Top At_Offset_0
0683 00e4 | | Load_Encached Positive_Cache
0684 0260 | ` | Execute Discrete,In_Type
0685 7001 |p | Jump_Nonzero 0x687
0686 0801 | | Execute_Immediate Raise,0x1
0687 e5ff | | Load 0x2,-0x1
0688 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0689 8244 | D | Call 0x1,0x44
068a 823f | ? | Call 0x1,0x3f
068b 027a | z | Execute Discrete,Less_Equal
068c 6803 |h | Jump_Zero 0x690
068d e5ff | | Load 0x2,-0x1
068e 823c | < | Call 0x1,0x3c
068f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0690 00d9 | | Load_Top At_Offset_1
0691 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0692 0000 0000 | | .BLANK 0000[0x6]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 00da | | Load_Top At_Offset_2
069c 823d | = | Call 0x1,0x3d
069d 00db | | Load_Top At_Offset_3
069e 823b | ; | Call 0x1,0x3b
069f 00d8 | | Load_Top At_Offset_0
06a0 e20e | | Load 0x1,0xe
06a1 0260 | ` | Execute Discrete,In_Type
06a2 7001 |p | Jump_Nonzero 0x6a4
06a3 0801 | | Execute_Immediate Raise,0x1
06a4 0273 | s | Execute Discrete,Plus
06a5 00d8 | | Load_Top At_Offset_0
06a6 e20e | | Load 0x1,0xe
06a7 0260 | ` | Execute Discrete,In_Type
06a8 7001 |p | Jump_Nonzero 0x6aa
06a9 0801 | | Execute_Immediate Raise,0x1
06aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ab 0000 0000 | | .BLANK 0000[0x5]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 00da | | Load_Top At_Offset_2
06b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06b5 0320 | | Declare_Variable Record,Duplicate
06b6 00cd | | Action Spare6_Action
06b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06c4 | | .CONST 0x06c4 ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0003 | | .CONST 0x0003 ; Number of locals
06bb INIT_06b8:
06bb e00d | | Load 0x0,0xd
06bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06bd 02ff | | Declare_Variable Variant_Record
06be 00db | | Load_Top At_Offset_3
06bf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06c0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06c1 00d9 | | Load_Top At_Offset_1
06c2 016d | m | Execute Variant_Record,Structure_Write
06c3 00ec | | Load_Encached Diana_Tree_Cache
06c4 BODY_06b8:
06c4 e5ff | | Load 0x2,-0x1
06c5 827a | z | Call 0x1,0x7a
06c6 6838 |h8 | Jump_Zero 0x6ff
06c7 e5ff | | Load 0x2,-0x1
06c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06c9 0f01 | | Execute_Immediate Equal,0x1
06ca 6823 |h# | Jump_Zero 0x6ee
06cb e5ff | | Load 0x2,-0x1
06cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06ce 4976 |Iv | Short_Literal 0x176
06cf 00eb | | Load_Encached Diana_Cache
06d0 0098 | | Execute Package,Field_Read_Dynamic
06d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
06d2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06d3 00d8 | | Load_Top At_Offset_0
06d4 00eb | | Load_Encached Diana_Cache
06d5 18ec | | Execute Package,Field_Execute,Field_Number 0xec
06d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06d7 0f48 | H | Execute_Immediate Equal,0x48
06d8 680a |h | Jump_Zero 0x6e3
06d9 00d8 | | Load_Top At_Offset_0
06da 00eb | | Load_Encached Diana_Cache
06db 18ec | | Execute Package,Field_Execute,Field_Number 0xec
06dc 00eb | | Load_Encached Diana_Cache
06dd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
06de 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06df 0f49 | I | Execute_Immediate Equal,0x49
06e0 6802 |h | Jump_Zero 0x6e3
06e1 00d8 | | Load_Top At_Offset_0
06e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e3 e00e | | Load 0x0,0xe
06e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e5 601e |` | Indirect_Literal Discrete,0x704,{0x00007fff, 0xffffffff}
06e6 00da | | Load_Top At_Offset_2
06e7 e00f | | Load 0x0,0xf
06e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06ea 00d8 | | Load_Top At_Offset_0
06eb 6802 |h | Jump_Zero 0x6ee
06ec 00d8 | | Load_Top At_Offset_0
06ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ee e5ff | | Load 0x2,-0x1
06ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f0 00d8 | | Load_Top At_Offset_0
06f1 00e4 | | Load_Encached Positive_Cache
06f2 0260 | ` | Execute Discrete,In_Type
06f3 7001 |p | Jump_Nonzero 0x6f5
06f4 0801 | | Execute_Immediate Raise,0x1
06f5 00da | | Load_Top At_Offset_2
06f6 e00d | | Load 0x0,0xd
06f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06f8 00db | | Load_Top At_Offset_3
06f9 e00d | | Load 0x0,0xd
06fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06fb e00c | | Load 0x0,0xc
06fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ff e215 | | Load 0x1,0x15
0700 0257 | W | Execute Discrete,Raise
0701 0000 0000 | | .XXX[0x3]
0703 0000 | |
0704 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0713 | | .CONST 0x0713 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0006 | | .CONST 0x0006 ; Number of locals
070b INIT_0708:
070b 00da | | Load_Top At_Offset_2
070c 8241 | A | Call 0x1,0x41
070d 00ec | | Load_Encached Diana_Tree_Cache
070e 00ec | | Load_Encached Diana_Tree_Cache
070f 029f 0d53 | S| Declare_Subprogram INIT_0d50,For_Call
0711 029f 0d63 | c| Declare_Subprogram INIT_0d60,For_Call
0713 BODY_0708:
0713 e402 | | Load 0x2,0x2
0714 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0715 00d8 | | Load_Top At_Offset_0
0716 0c4f | O | Execute_Immediate Greater_Equal,0x4f
0717 7053 |pS | Jump_Nonzero 0x76b
0718 464e |FN | Jump_Case 0x4f
0719 7852 |xR | Jump 0x76c ; case 0x0
071a 7851 |xQ | Jump 0x76c ; case 0x1
071b 7850 |xP | Jump 0x76c ; case 0x2
071c 784f |xO | Jump 0x76c ; case 0x3
071d 784e |xN | Jump 0x76c ; case 0x4
071e 784d |xM | Jump 0x76c ; case 0x5
071f 784c |xL | Jump 0x76c ; case 0x6
0720 784b |xK | Jump 0x76c ; case 0x7
0721 784a |xJ | Jump 0x76c ; case 0x8
0722 7849 |xI | Jump 0x76c ; case 0x9
0723 7848 |xH | Jump 0x76c ; case 0xa
0724 7847 |xG | Jump 0x76c ; case 0xb
0725 7846 |xF | Jump 0x76c ; case 0xc
0726 7845 |xE | Jump 0x76c ; case 0xd
0727 7844 |xD | Jump 0x76c ; case 0xe
0728 7843 |xC | Jump 0x76c ; case 0xf
0729 7842 |xB | Jump 0x76c ; case 0x10
072a 7841 |xA | Jump 0x76c ; case 0x11
072b 7840 |x@ | Jump 0x76c ; case 0x12
072c 783f |x? | Jump 0x76c ; case 0x13
072d 783e |x> | Jump 0x76c ; case 0x14
072e 783d |x= | Jump 0x76c ; case 0x15
072f 783c |x< | Jump 0x76c ; case 0x16
0730 783b |x; | Jump 0x76c ; case 0x17
0731 783a |x: | Jump 0x76c ; case 0x18
0732 7839 |x9 | Jump 0x76c ; case 0x19
0733 7838 |x8 | Jump 0x76c ; case 0x1a
0734 7837 |x7 | Jump 0x76c ; case 0x1b
0735 7836 |x6 | Jump 0x76c ; case 0x1c
0736 7835 |x5 | Jump 0x76c ; case 0x1d
0737 7834 |x4 | Jump 0x76c ; case 0x1e
0738 7833 |x3 | Jump 0x76c ; case 0x1f
0739 7832 |x2 | Jump 0x76c ; case 0x20
073a 7833 |x3 | Jump 0x76e ; case 0x21
073b 7849 |xI | Jump 0x785 ; case 0x22
073c 782f |x/ | Jump 0x76c ; case 0x23
073d 782e |x. | Jump 0x76c ; case 0x24
073e 782d |x- | Jump 0x76c ; case 0x25
073f 782c |x, | Jump 0x76c ; case 0x26
0740 782b |x+ | Jump 0x76c ; case 0x27
0741 782a |x* | Jump 0x76c ; case 0x28
0742 7834 |x4 | Jump 0x777 ; case 0x29
0743 7828 |x( | Jump 0x76c ; case 0x2a
0744 7827 |x' | Jump 0x76c ; case 0x2b
0745 7828 |x( | Jump 0x76e ; case 0x2c
0746 7825 |x% | Jump 0x76c ; case 0x2d
0747 7826 |x& | Jump 0x76e ; case 0x2e
0748 784a |xJ | Jump 0x793 ; case 0x2f
0749 7857 |xW | Jump 0x7a1 ; case 0x30
074a 7821 |x! | Jump 0x76c ; case 0x31
074b 7820 |x | Jump 0x76c ; case 0x32
074c 7821 |x! | Jump 0x76e ; case 0x33
074d 781e |x | Jump 0x76c ; case 0x34
074e 781d |x | Jump 0x76c ; case 0x35
074f 781c |x | Jump 0x76c ; case 0x36
0750 781b |x | Jump 0x76c ; case 0x37
0751 781a |x | Jump 0x76c ; case 0x38
0752 7819 |x | Jump 0x76c ; case 0x39
0753 7818 |x | Jump 0x76c ; case 0x3a
0754 7817 |x | Jump 0x76c ; case 0x3b
0755 7816 |x | Jump 0x76c ; case 0x3c
0756 7815 |x | Jump 0x76c ; case 0x3d
0757 7814 |x | Jump 0x76c ; case 0x3e
0758 7813 |x | Jump 0x76c ; case 0x3f
0759 7812 |x | Jump 0x76c ; case 0x40
075a 7811 |x | Jump 0x76c ; case 0x41
075b 7810 |x | Jump 0x76c ; case 0x42
075c 780f |x | Jump 0x76c ; case 0x43
075d 780e |x | Jump 0x76c ; case 0x44
075e 780d |x | Jump 0x76c ; case 0x45
075f 780c |x | Jump 0x76c ; case 0x46
0760 780b |x | Jump 0x76c ; case 0x47
0761 780a |x | Jump 0x76c ; case 0x48
0762 7809 |x | Jump 0x76c ; case 0x49
0763 7808 |x | Jump 0x76c ; case 0x4a
0764 7807 |x | Jump 0x76c ; case 0x4b
0765 7802 |x | Jump 0x768 ; case 0x4c
0766 7805 |x | Jump 0x76c ; case 0x4d
0767 7800 |x | Jump 0x768 ; case 0x4e
0768 e402 | | Load 0x2,0x2
0769 0033 | 3 | Store_Top Heap_Access,At_Offset_3
076a 7844 |xD | Jump 0x7af
076b 00d1 | | Pop_Control Pop_Count_1
076c e402 | | Load 0x2,0x2
076d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076e e402 | | Load 0x2,0x2
076f 8405 | | Call 0x2,0x5
0770 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0771 00da | | Load_Top At_Offset_2
0772 703c |p< | Jump_Nonzero 0x7af
0773 e402 | | Load 0x2,0x2
0774 8406 | | Call 0x2,0x6
0775 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0776 7838 |x8 | Jump 0x7af
0777 e402 | | Load 0x2,0x2
0778 00eb | | Load_Encached Diana_Cache
0779 18ec | | Execute Package,Field_Execute,Field_Number 0xec
077a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
077b 0f3e | > | Execute_Immediate Equal,0x3e
077c 6804 |h | Jump_Zero 0x781
077d e402 | | Load 0x2,0x2
077e 8406 | | Call 0x2,0x6
077f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0780 782e |x. | Jump 0x7af
0781 e402 | | Load 0x2,0x2
0782 8405 | | Call 0x2,0x5
0783 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0784 782a |x* | Jump 0x7af
0785 e402 | | Load 0x2,0x2
0786 8406 | | Call 0x2,0x6
0787 a403 | | Store_Unchecked 0x2,0x3
0788 00db | | Load_Top At_Offset_3
0789 0145 | E | Execute Heap_Access,Diana_Tree_Kind
078a 0f7c | | | Execute_Immediate Equal,0x7c
078b 6803 |h | Jump_Zero 0x78f
078c 00db | | Load_Top At_Offset_3
078d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
078e 7820 |x | Jump 0x7af
078f e402 | | Load 0x2,0x2
0790 8405 | | Call 0x2,0x5
0791 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0792 781c |x | Jump 0x7af
0793 e402 | | Load 0x2,0x2
0794 4907 |I | Short_Literal 0x107
0795 00eb | | Load_Encached Diana_Cache
0796 0096 | | Execute Package,Entry
0797 a403 | | Store_Unchecked 0x2,0x3
0798 00db | | Load_Top At_Offset_3
0799 0145 | E | Execute Heap_Access,Diana_Tree_Kind
079a 0f73 | s | Execute_Immediate Equal,0x73
079b 6803 |h | Jump_Zero 0x79f
079c 00db | | Load_Top At_Offset_3
079d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
079e 7810 |x | Jump 0x7af
079f e402 | | Load 0x2,0x2
07a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a1 e402 | | Load 0x2,0x2
07a2 4902 |I | Short_Literal 0x102
07a3 00eb | | Load_Encached Diana_Cache
07a4 0096 | | Execute Package,Entry
07a5 a403 | | Store_Unchecked 0x2,0x3
07a6 00db | | Load_Top At_Offset_3
07a7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07a8 0f73 | s | Execute_Immediate Equal,0x73
07a9 6803 |h | Jump_Zero 0x7ad
07aa 00db | | Load_Top At_Offset_3
07ab 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07ac 7802 |x | Jump 0x7af
07ad e402 | | Load 0x2,0x2
07ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07af 00da | | Load_Top At_Offset_2
07b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b1 0000 0000 | | .BLANK 0000[0x7]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07be | | .CONST 0x07be ; Address of begin
07b9 0844 | D | .CONST 0x0844 ; Address of exception handler
07ba 0004 | | .CONST 0x0004 ; Number of locals
07bb INIT_07b8:
07bb 00e4 | | Load_Encached Positive_Cache
07bc 00ec | | Load_Encached Diana_Tree_Cache
07bd 00ec | | Load_Encached Diana_Tree_Cache
07be BODY_07b8:
07be e5ff | | Load 0x2,-0x1
07bf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
07c0 00cf | | Action Mark_Auxiliary
07c1 00d9 | | Load_Top At_Offset_1
07c2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07c3 00d8 | | Load_Top At_Offset_0
07c4 0d3b | ; | Execute_Immediate Less,0x3b
07c5 702e |p. | Jump_Nonzero 0x7f4
07c6 00d8 | | Load_Top At_Offset_0
07c7 0c4f | O | Execute_Immediate Greater_Equal,0x4f
07c8 7028 |p( | Jump_Nonzero 0x7f1
07c9 0ac5 | | Execute_Immediate Plus,-0x3b
07ca 4613 |F | Jump_Case 0x14
07cb 785d |x] | Jump 0x829 ; case 0x0
07cc 7861 |xa | Jump 0x82e ; case 0x1
07cd 7860 |x` | Jump 0x82e ; case 0x2
07ce 782f |x/ | Jump 0x7fe ; case 0x3
07cf 7859 |xY | Jump 0x829 ; case 0x4
07d0 785d |x] | Jump 0x82e ; case 0x5
07d1 7841 |xA | Jump 0x813 ; case 0x6
07d2 785b |x[ | Jump 0x82e ; case 0x7
07d3 785a |xZ | Jump 0x82e ; case 0x8
07d4 7859 |xY | Jump 0x82e ; case 0x9
07d5 7858 |xX | Jump 0x82e ; case 0xa
07d6 7852 |xR | Jump 0x829 ; case 0xb
07d7 7851 |xQ | Jump 0x829 ; case 0xc
07d8 781d |x | Jump 0x7f6 ; case 0xd
07d9 7854 |xT | Jump 0x82e ; case 0xe
07da 7853 |xS | Jump 0x82e ; case 0xf
07db 7852 |xR | Jump 0x82e ; case 0x10
07dc 7844 |xD | Jump 0x821 ; case 0x11
07dd 7850 |xP | Jump 0x82e ; case 0x12
07de 7800 |x | Jump 0x7df ; case 0x13
07df 00d9 | | Load_Top At_Offset_1
07e0 e00c | | Load 0x0,0xc
07e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07e2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07e3 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07e4 00d9 | | Load_Top At_Offset_1
07e5 00eb | | Load_Encached Diana_Cache
07e6 18ec | | Execute Package,Field_Execute,Field_Number 0xec
07e7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07e8 0f97 | | Execute_Immediate Equal,-0x69
07e9 00da | | Load_Top At_Offset_2
07ea 00eb | | Load_Encached Diana_Cache
07eb 18ec | | Execute Package,Field_Execute,Field_Number 0xec
07ec 0145 | E | Execute Heap_Access,Diana_Tree_Kind
07ed 0f58 | X | Execute_Immediate Equal,0x58
07ee 0278 | x | Execute Discrete,Or
07ef 7044 |pD | Jump_Nonzero 0x834
07f0 783d |x= | Jump 0x82e
07f1 0fa8 | | Execute_Immediate Equal,-0x58
07f2 7034 |p4 | Jump_Nonzero 0x827
07f3 783a |x: | Jump 0x82e
07f4 00d1 | | Pop_Control Pop_Count_1
07f5 7838 |x8 | Jump 0x82e
07f6 00d9 | | Load_Top At_Offset_1
07f7 00eb | | Load_Encached Diana_Cache
07f8 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
07f9 e00c | | Load 0x0,0xc
07fa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07fb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07fc 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07fd 7836 |x6 | Jump 0x834
07fe 00d9 | | Load_Top At_Offset_1
07ff 00eb | | Load_Encached Diana_Cache
0800 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0801 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0802 e00e | | Load 0x0,0xe
0803 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0804 6047 |`G | Indirect_Literal Discrete,0x84c,{0x00007fff, 0xffffffff}
0805 e403 | | Load 0x2,0x3
0806 e00f | | Load 0x0,0xf
0807 180e | | Execute Package,Field_Execute,Field_Number 0xe
0808 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0809 00d9 | | Load_Top At_Offset_1
080a 7029 |p) | Jump_Nonzero 0x834
080b e00e | | Load 0x0,0xe
080c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
080d 603e |`> | Indirect_Literal Discrete,0x84c,{0x00007fff, 0xffffffff}
080e e403 | | Load 0x2,0x3
080f e00f | | Load 0x0,0xf
0810 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0811 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0812 7821 |x! | Jump 0x834
0813 00d9 | | Load_Top At_Offset_1
0814 00eb | | Load_Encached Diana_Cache
0815 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0816 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0817 e00e | | Load 0x0,0xe
0818 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0819 6032 |`2 | Indirect_Literal Discrete,0x84c,{0x00007fff, 0xffffffff}
081a e403 | | Load 0x2,0x3
081b e00f | | Load 0x0,0xf
081c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
081d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
081e 0f7c | | | Execute_Immediate Equal,0x7c
081f 680e |h | Jump_Zero 0x82e
0820 7813 |x | Jump 0x834
0821 00d9 | | Load_Top At_Offset_1
0822 e00c | | Load 0x0,0xc
0823 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0824 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0825 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0826 780d |x | Jump 0x834
0827 e213 | | Load 0x1,0x13
0828 0257 | W | Execute Discrete,Raise
0829 00d9 | | Load_Top At_Offset_1
082a 00eb | | Load_Encached Diana_Cache
082b 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
082c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
082d 7806 |x | Jump 0x834
082e 00d9 | | Load_Top At_Offset_1
082f 00eb | | Load_Encached Diana_Cache
0830 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0831 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0832 00c9 | | Action Pop_Auxiliary_Loop
0833 7f8d | | Jump 0x7c1
0834 00ce | | Action Pop_Auxiliary
0835 00d9 | | Load_Top At_Offset_1
0836 e00c | | Load 0x0,0xc
0837 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0838 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0839 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
083a 00da | | Load_Top At_Offset_2
083b 4800 |H | Short_Literal 0x0
083c 00da | | Load_Top At_Offset_2
083d 4974 |It | Short_Literal 0x174
083e 00eb | | Load_Encached Diana_Cache
083f 0098 | | Execute Package,Field_Read_Dynamic
0840 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0841 821e | | Call 0x1,0x1e
0842 8244 | D | Call 0x1,0x44
0843 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0844 TRAP_07b8:
0844 010c | | Execute Exception,Is_Program_Error
0845 6805 |h | Jump_Zero 0x84b
0846 00d9 | | Load_Top At_Offset_1
0847 00eb | | Load_Encached Diana_Cache
0848 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0849 8243 | C | Call 0x1,0x43
084a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
084b 0100 | | Execute Exception,Raise
084c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 086e | n | .CONST 0x086e ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0006 | | .CONST 0x0006 ; Number of locals
0853 INIT_0850:
0853 00db | | Load_Top At_Offset_3
0854 00db | | Load_Top At_Offset_3
0855 e261 | a | Load 0x1,0x61
0856 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0857 e20e | | Load 0x1,0xe
0858 03f1 | | Declare_Variable Discrete,With_Value
0859 e5fe | | Load 0x2,-0x2
085a e5ff | | Load 0x2,-0x1
085b e261 | a | Load 0x1,0x61
085c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
085d e20e | | Load 0x1,0xe
085e 03f1 | | Declare_Variable Discrete,With_Value
085f 00d9 | | Load_Top At_Offset_1
0860 e5ff | | Load 0x2,-0x1
0861 8277 | w | Call 0x1,0x77
0862 e20e | | Load 0x1,0xe
0863 03f1 | | Declare_Variable Discrete,With_Value
0864 00d9 | | Load_Top At_Offset_1
0865 e5ff | | Load 0x2,-0x1
0866 8275 | u | Call 0x1,0x75
0867 00e3 | | Load_Encached Natural_Cache
0868 03f1 | | Declare_Variable Discrete,With_Value
0869 00da | | Load_Top At_Offset_2
086a e5ff | | Load 0x2,-0x1
086b 8276 | v | Call 0x1,0x76
086c 00e3 | | Load_Encached Natural_Cache
086d 03f1 | | Declare_Variable Discrete,With_Value
086e BODY_0850:
086e e5fe | | Load 0x2,-0x2
086f e5ff | | Load 0x2,-0x1
0870 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0871 027a | z | Execute Discrete,Less_Equal
0872 681c |h | Jump_Zero 0x88f
0873 e25b | [ | Load 0x1,0x5b
0874 0322 | " | Declare_Variable Record
0875 e5ff | | Load 0x2,-0x1
0876 00d9 | | Load_Top At_Offset_1
0877 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0878 e5fe | | Load 0x2,-0x2
0879 00d9 | | Load_Top At_Offset_1
087a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
087b e402 | | Load 0x2,0x2
087c 00d9 | | Load_Top At_Offset_1
087d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
087e 00da | | Load_Top At_Offset_2
087f 00da | | Load_Top At_Offset_2
0880 0273 | s | Execute Discrete,Plus
0881 00d9 | | Load_Top At_Offset_1
0882 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0883 00da | | Load_Top At_Offset_2
0884 00d9 | | Load_Top At_Offset_1
0885 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0886 00db | | Load_Top At_Offset_3
0887 8278 | x | Call 0x1,0x78
0888 00d9 | | Load_Top At_Offset_1
0889 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
088a 00db | | Load_Top At_Offset_3
088b 8279 | y | Call 0x1,0x79
088c 00d9 | | Load_Top At_Offset_1
088d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
088e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
088f e213 | | Load 0x1,0x13
0890 0257 | W | Execute Discrete,Raise
0891 0000 0000 | | .BLANK 0000[0x7]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b | | .CONST 0x089b ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0001 | | .CONST 0x0001 ; Number of locals
089b BODY_0898:
089b INIT_0898:
089b 00da | | Load_Top At_Offset_2
089c 824b | K | Call 0x1,0x4b
089d 6806 |h | Jump_Zero 0x8a4
089e 4864 |Hd | Short_Literal 0x64
089f 00db | | Load_Top At_Offset_3
08a0 824a | J | Call 0x1,0x4a
08a1 8268 | h | Call 0x1,0x68
08a2 01cb | | Execute Vector,Append
08a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a4 4873 |Hs | Short_Literal 0x73
08a5 00db | | Load_Top At_Offset_3
08a6 824a | J | Call 0x1,0x4a
08a7 8268 | h | Call 0x1,0x68
08a8 01cb | | Execute Vector,Append
08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08aa 0000 0000 | | .BLANK 0000[0x6]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3 | | .CONST 0x08b3 ; Address of begin
08b1 0004 | | .CONST 0x0004 ; Address of exception handler
08b2 0001 | | .CONST 0x0001 ; Number of locals
08b3 BODY_08b0:
08b3 INIT_08b0:
08b3 482e |H. | Short_Literal 0x2e
08b4 00db | | Load_Top At_Offset_3
08b5 824f | O | Call 0x1,0x4f
08b6 822e | . | Call 0x1,0x2e
08b7 01cb | | Execute Vector,Append
08b8 00db | | Load_Top At_Offset_3
08b9 8245 | E | Call 0x1,0x45
08ba 01cc | | Execute Vector,Catenate
08bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3 | | .CONST 0x08c3 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0001 | | .CONST 0x0001 ; Number of locals
08c3 BODY_08c0:
08c3 INIT_08c0:
08c3 00da | | Load_Top At_Offset_2
08c4 8245 | E | Call 0x1,0x45
08c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08c6 0000 0000 | | .XXX[0x2]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb 00da | | Load_Top At_Offset_2
08cc 8246 | F | Call 0x1,0x46
08cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08ce 0000 0000 | | .XXX[0x2]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 00da | | Load_Top At_Offset_2
08d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08d5 00d8 | | Load_Top At_Offset_0
08d6 00e4 | | Load_Encached Positive_Cache
08d7 0260 | ` | Execute Discrete,In_Type
08d8 7001 |p | Jump_Nonzero 0x8da
08d9 0801 | | Execute_Immediate Raise,0x1
08da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08db 0000 0000 | | .BLANK 0000[0x5]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08f1 | | .CONST 0x08f1 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0006 | | .CONST 0x0006 ; Number of locals
08e3 INIT_08e0:
08e3 00da | | Load_Top At_Offset_2
08e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08e5 0007 | | Action Break_Optional
08e6 00d8 | | Load_Top At_Offset_0
08e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08e8 0007 | | Action Break_Optional
08e9 e5ff | | Load 0x2,-0x1
08ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08eb 00e4 | | Load_Encached Positive_Cache
08ec 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
08ed 029f 0d73 | s| Declare_Subprogram INIT_0d70,For_Call
08ef 029f 0d83 | | Declare_Subprogram INIT_0d80,For_Call
08f1 BODY_08e0:
08f1 e5ff | | Load 0x2,-0x1
08f2 824b | K | Call 0x1,0x4b
08f3 6807 |h | Jump_Zero 0x8fb
08f4 e402 | | Load 0x2,0x2
08f5 8236 | 6 | Call 0x1,0x36
08f6 7002 |p | Jump_Nonzero 0x8f9
08f7 00da | | Load_Top At_Offset_2
08f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08f9 8405 | | Call 0x2,0x5
08fa 7816 |x | Jump 0x911
08fb e402 | | Load 0x2,0x2
08fc 8237 | 7 | Call 0x1,0x37
08fd 700a |p | Jump_Nonzero 0x908
08fe 00da | | Load_Top At_Offset_2
08ff e402 | | Load 0x2,0x2
0900 8239 | 9 | Call 0x1,0x39
0901 0272 | r | Execute Discrete,Minus
0902 00d8 | | Load_Top At_Offset_0
0903 00e3 | | Load_Encached Natural_Cache
0904 0260 | ` | Execute Discrete,In_Type
0905 7001 |p | Jump_Nonzero 0x907
0906 0801 | | Execute_Immediate Raise,0x1
0907 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0908 e402 | | Load 0x2,0x2
0909 8236 | 6 | Call 0x1,0x36
090a 7005 |p | Jump_Nonzero 0x910
090b 00da | | Load_Top At_Offset_2
090c e402 | | Load 0x2,0x2
090d 8239 | 9 | Call 0x1,0x39
090e 0272 | r | Execute Discrete,Minus
090f 005b | [ | Store_Top Discrete,At_Offset_3
0910 8406 | | Call 0x2,0x6
0911 0831 | 1 | Execute_Immediate Raise,0x31
0912 0000 0000 | | .BLANK 0000[0x6]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b | | .CONST 0x091b ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 0001 | | .CONST 0x0001 ; Number of locals
091b BODY_0918:
091b INIT_0918:
091b 00da | | Load_Top At_Offset_2
091c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
091d 00db | | Load_Top At_Offset_3
091e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
091f 8239 | 9 | Call 0x1,0x39
0920 027a | z | Execute Discrete,Less_Equal
0921 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0922 0000 0000 | | .BLANK 0000[0x6]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b | + | .CONST 0x092b ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0001 | | .CONST 0x0001 ; Number of locals
092b BODY_0928:
092b INIT_0928:
092b 00da | | Load_Top At_Offset_2
092c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
092d 00d8 | | Load_Top At_Offset_0
092e e20e | | Load 0x1,0xe
092f 0260 | ` | Execute Discrete,In_Type
0930 7001 |p | Jump_Nonzero 0x932
0931 0801 | | Execute_Immediate Raise,0x1
0932 00db | | Load_Top At_Offset_3
0933 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0934 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0935 821d | | Call 0x1,0x1d
0936 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0937 0000 | | .XXX[0x1]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b | ; | .CONST 0x093b ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0001 | | .CONST 0x0001 ; Number of locals
093b BODY_0938:
093b INIT_0938:
093b 00da | | Load_Top At_Offset_2
093c 827c | | | Call 0x1,0x7c
093d 7013 |p | Jump_Nonzero 0x951
093e 00da | | Load_Top At_Offset_2
093f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0940 0a01 | | Execute_Immediate Plus,0x1
0941 00d8 | | Load_Top At_Offset_0
0942 00e4 | | Load_Encached Positive_Cache
0943 0260 | ` | Execute Discrete,In_Type
0944 7001 |p | Jump_Nonzero 0x946
0945 0801 | | Execute_Immediate Raise,0x1
0946 00db | | Load_Top At_Offset_3
0947 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0948 8253 | S | Call 0x1,0x53
0949 824c | L | Call 0x1,0x4c
094a 0aff | | Execute_Immediate Plus,-0x1
094b 00d8 | | Load_Top At_Offset_0
094c e20e | | Load 0x1,0xe
094d 0260 | ` | Execute Discrete,In_Type
094e 7001 |p | Jump_Nonzero 0x950
094f 0801 | | Execute_Immediate Raise,0x1
0950 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0951 00da | | Load_Top At_Offset_2
0952 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0953 823d | = | Call 0x1,0x3d
0954 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0955 0000 0000 | | .XXX[0x3]
0957 0000 | |
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 00da | | Load_Top At_Offset_2
095c 824c | L | Call 0x1,0x4c
095d e20e | | Load 0x1,0xe
095e 03f1 | | Declare_Variable Discrete,With_Value
095f 00db | | Load_Top At_Offset_3
0960 824d | M | Call 0x1,0x4d
0961 e20e | | Load 0x1,0xe
0962 03f1 | | Declare_Variable Discrete,With_Value
0963 BODY_0958:
0963 00d8 | | Load_Top At_Offset_0
0964 00da | | Load_Top At_Offset_2
0965 0272 | r | Execute Discrete,Minus
0966 0a01 | | Execute_Immediate Plus,0x1
0967 00d8 | | Load_Top At_Offset_0
0968 e20e | | Load 0x1,0xe
0969 0260 | ` | Execute Discrete,In_Type
096a 7001 |p | Jump_Nonzero 0x96c
096b 0801 | | Execute_Immediate Raise,0x1
096c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
096d 0000 0000 | | .XXX[0x3]
096f 0000 | |
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 00da | | Load_Top At_Offset_2
0974 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0975 0320 | | Declare_Variable Record,Duplicate
0976 00cd | | Action Spare6_Action
0977 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097b | { | .CONST 0x097b ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0001 | | .CONST 0x0001 ; Number of locals
097b BODY_0978:
097b INIT_0978:
097b 00da | | Load_Top At_Offset_2
097c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
097d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
097e 0320 | | Declare_Variable Record,Duplicate
097f 00cd | | Action Spare6_Action
0980 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0981 0000 0000 | | .BLANK 0000[0x7]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098e | | .CONST 0x098e ; Address of begin
0989 0004 | | .CONST 0x0004 ; Address of exception handler
098a 0002 | | .CONST 0x0002 ; Number of locals
098b INIT_0988:
098b 00da | | Load_Top At_Offset_2
098c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
098d 8242 | B | Call 0x1,0x42
098e BODY_0988:
098e 00db | | Load_Top At_Offset_3
098f 824b | K | Call 0x1,0x4b
0990 e5ff | | Load 0x2,-0x1
0991 824a | J | Call 0x1,0x4a
0992 00da | | Load_Top At_Offset_2
0993 e262 | b | Load 0x1,0x62
0994 180d | | Execute Package,Field_Execute,Field_Number 0xd
0995 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0996 0000 0000 | | .XXX[0x2]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09a7 | | .CONST 0x09a7 ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0008 | | .CONST 0x0008 ; Number of locals
099b INIT_0998:
099b 00ec | | Load_Encached Diana_Tree_Cache
099c 00ec | | Load_Encached Diana_Tree_Cache
099d 00e3 | | Load_Encached Natural_Cache
099e e25b | [ | Load 0x1,0x5b
099f 0322 | " | Declare_Variable Record
09a0 00d8 | | Load_Top At_Offset_0
09a1 1c00 | | Execute_Immediate Run_Utility,0x0
09a2 00e1 | | Load_Encached Boolean_Cache
09a3 029f 0d9b | | Declare_Subprogram INIT_0d98,For_Call
09a5 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call
09a7 BODY_0998:
09a7 e5ff | | Load 0x2,-0x1
09a8 a402 | | Store_Unchecked 0x2,0x2
09a9 e402 | | Load 0x2,0x2
09aa 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09ab 7002 |p | Jump_Nonzero 0x9ae
09ac 8407 | | Call 0x2,0x7
09ad 78dd |x | Jump 0xa8b
09ae 00cf | | Action Mark_Auxiliary
09af e402 | | Load 0x2,0x2
09b0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09b1 00d8 | | Load_Top At_Offset_0
09b2 0d49 | I | Execute_Immediate Less,0x49
09b3 7014 |p | Jump_Nonzero 0x9c8
09b4 00d8 | | Load_Top At_Offset_0
09b5 0c4a | J | Execute_Immediate Greater_Equal,0x4a
09b6 7006 |p | Jump_Nonzero 0x9bd
09b7 00d1 | | Pop_Control Pop_Count_1
09b8 e402 | | Load 0x2,0x2
09b9 00eb | | Load_Encached Diana_Cache
09ba 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09bb a402 | | Store_Unchecked 0x2,0x2
09bc 781a |x | Jump 0x9d7
09bd 00d8 | | Load_Top At_Offset_0
09be 0c59 | Y | Execute_Immediate Greater_Equal,0x59
09bf 6811 |h | Jump_Zero 0x9d1
09c0 00d8 | | Load_Top At_Offset_0
09c1 485a |HZ | Short_Literal 0x5a
09c2 4860 |H` | Short_Literal 0x60
09c3 0262 | b | Execute Discrete,In_Range
09c4 700c |p | Jump_Nonzero 0x9d1
09c5 0fa8 | | Execute_Immediate Equal,-0x58
09c6 700e |p | Jump_Nonzero 0x9d5
09c7 7ff0 | | Jump 0x9b8
09c8 0b02 | | Execute_Immediate Case_Compare,0x2
09c9 7007 |p | Jump_Nonzero 0x9d1
09ca 0b37 | 7 | Execute_Immediate Case_Compare,0x37
09cb 7007 |p | Jump_Nonzero 0x9d3
09cc 4838 |H8 | Short_Literal 0x38
09cd 4848 |HH | Short_Literal 0x48
09ce 0262 | b | Execute Discrete,In_Range
09cf 7009 |p | Jump_Nonzero 0x9d9
09d0 7fe7 | | Jump 0x9b8
09d1 00d1 | | Pop_Control Pop_Count_1
09d2 7806 |x | Jump 0x9d9
09d3 00d1 | | Pop_Control Pop_Count_1
09d4 7804 |x | Jump 0x9d9
09d5 e213 | | Load 0x1,0x13
09d6 0257 | W | Execute Discrete,Raise
09d7 00c9 | | Action Pop_Auxiliary_Loop
09d8 7fd6 | | Jump 0x9af
09d9 00ce | | Action Pop_Auxiliary
09da e402 | | Load 0x2,0x2
09db 00eb | | Load_Encached Diana_Cache
09dc 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09dd a403 | | Store_Unchecked 0x2,0x3
09de 00cf | | Action Mark_Auxiliary
09df e403 | | Load 0x2,0x3
09e0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09e1 00d8 | | Load_Top At_Offset_0
09e2 0d39 | 9 | Execute_Immediate Less,0x39
09e3 702b |p+ | Jump_Nonzero 0xa0f
09e4 00d8 | | Load_Top At_Offset_0
09e5 0c4f | O | Execute_Immediate Greater_Equal,0x4f
09e6 7025 |p% | Jump_Nonzero 0xa0c
09e7 0ac7 | | Execute_Immediate Plus,-0x39
09e8 4615 |F | Jump_Case 0x16
09e9 784d |xM | Jump 0xa37 ; case 0x0
09ea 7867 |xg | Jump 0xa52 ; case 0x1
09eb 7837 |x7 | Jump 0xa23 ; case 0x2
09ec 7865 |xe | Jump 0xa52 ; case 0x3
09ed 7864 |xd | Jump 0xa52 ; case 0x4
09ee 7822 |x" | Jump 0xa11 ; case 0x5
09ef 7826 |x& | Jump 0xa16 ; case 0x6
09f0 7861 |xa | Jump 0xa52 ; case 0x7
09f1 7829 |x) | Jump 0xa1b ; case 0x8
09f2 785f |x_ | Jump 0xa52 ; case 0x9
09f3 785e |x^ | Jump 0xa52 ; case 0xa
09f4 785d |x] | Jump 0xa52 ; case 0xb
09f5 785c |x\ | Jump 0xa52 ; case 0xc
09f6 7856 |xV | Jump 0xa4d ; case 0xd
09f7 7855 |xU | Jump 0xa4d ; case 0xe
09f8 7854 |xT | Jump 0xa4d ; case 0xf
09f9 7858 |xX | Jump 0xa52 ; case 0x10
09fa 7857 |xW | Jump 0xa52 ; case 0x11
09fb 7856 |xV | Jump 0xa52 ; case 0x12
09fc 785b |x[ | Jump 0xa58 ; case 0x13
09fd 7854 |xT | Jump 0xa52 ; case 0x14
09fe 7800 |x | Jump 0x9ff ; case 0x15
09ff e403 | | Load 0x2,0x3
0a00 00eb | | Load_Encached Diana_Cache
0a01 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a02 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a03 0f97 | | Execute_Immediate Equal,-0x69
0a04 e403 | | Load 0x2,0x3
0a05 00eb | | Load_Encached Diana_Cache
0a06 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a07 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a08 0f58 | X | Execute_Immediate Equal,0x58
0a09 0278 | x | Execute Discrete,Or
0a0a 704d |pM | Jump_Nonzero 0xa58
0a0b 7846 |xF | Jump 0xa52
0a0c 0fa8 | | Execute_Immediate Equal,-0x58
0a0d 703d |p= | Jump_Nonzero 0xa4b
0a0e 7843 |xC | Jump 0xa52
0a0f 00d1 | | Pop_Control Pop_Count_1
0a10 7841 |xA | Jump 0xa52
0a11 e403 | | Load 0x2,0x3
0a12 00eb | | Load_Encached Diana_Cache
0a13 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
0a14 a403 | | Store_Unchecked 0x2,0x3
0a15 7842 |xB | Jump 0xa58
0a16 e403 | | Load 0x2,0x3
0a17 00eb | | Load_Encached Diana_Cache
0a18 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
0a19 a403 | | Store_Unchecked 0x2,0x3
0a1a 783d |x= | Jump 0xa58
0a1b e403 | | Load 0x2,0x3
0a1c 00eb | | Load_Encached Diana_Cache
0a1d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a1e 4904 |I | Short_Literal 0x104
0a1f 00eb | | Load_Encached Diana_Cache
0a20 0096 | | Execute Package,Entry
0a21 a403 | | Store_Unchecked 0x2,0x3
0a22 7835 |x5 | Jump 0xa58
0a23 e403 | | Load 0x2,0x3
0a24 00eb | | Load_Encached Diana_Cache
0a25 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a26 4907 |I | Short_Literal 0x107
0a27 00eb | | Load_Encached Diana_Cache
0a28 0096 | | Execute Package,Entry
0a29 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a2a 0f73 | s | Execute_Immediate Equal,0x73
0a2b 6808 |h | Jump_Zero 0xa34
0a2c e403 | | Load 0x2,0x3
0a2d 00eb | | Load_Encached Diana_Cache
0a2e 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a2f 4907 |I | Short_Literal 0x107
0a30 00eb | | Load_Encached Diana_Cache
0a31 0096 | | Execute Package,Entry
0a32 a403 | | Store_Unchecked 0x2,0x3
0a33 7824 |x$ | Jump 0xa58
0a34 e403 | | Load 0x2,0x3
0a35 a402 | | Store_Unchecked 0x2,0x2
0a36 781b |x | Jump 0xa52
0a37 e403 | | Load 0x2,0x3
0a38 00eb | | Load_Encached Diana_Cache
0a39 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a3a 4902 |I | Short_Literal 0x102
0a3b 00eb | | Load_Encached Diana_Cache
0a3c 0096 | | Execute Package,Entry
0a3d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a3e 0f73 | s | Execute_Immediate Equal,0x73
0a3f 6808 |h | Jump_Zero 0xa48
0a40 e403 | | Load 0x2,0x3
0a41 00eb | | Load_Encached Diana_Cache
0a42 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0a43 4902 |I | Short_Literal 0x102
0a44 00eb | | Load_Encached Diana_Cache
0a45 0096 | | Execute Package,Entry
0a46 a403 | | Store_Unchecked 0x2,0x3
0a47 7810 |x | Jump 0xa58
0a48 e403 | | Load 0x2,0x3
0a49 a402 | | Store_Unchecked 0x2,0x2
0a4a 7807 |x | Jump 0xa52
0a4b e213 | | Load 0x1,0x13
0a4c 0257 | W | Execute Discrete,Raise
0a4d e403 | | Load 0x2,0x3
0a4e 00eb | | Load_Encached Diana_Cache
0a4f 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
0a50 a403 | | Store_Unchecked 0x2,0x3
0a51 7806 |x | Jump 0xa58
0a52 e403 | | Load 0x2,0x3
0a53 00eb | | Load_Encached Diana_Cache
0a54 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a55 a403 | | Store_Unchecked 0x2,0x3
0a56 00c9 | | Action Pop_Auxiliary_Loop
0a57 7f87 | | Jump 0x9df
0a58 00ce | | Action Pop_Auxiliary
0a59 00e1 | | Load_Encached Boolean_Cache
0a5a 00e3 | | Load_Encached Natural_Cache
0a5b e402 | | Load 0x2,0x2
0a5c e403 | | Load 0x2,0x3
0a5d e262 | b | Load 0x1,0x62
0a5e 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a5f c404 | | Store 0x2,0x4
0a60 005b | [ | Store_Top Discrete,At_Offset_3
0a61 e404 | | Load 0x2,0x4
0a62 6826 |h& | Jump_Zero 0xa89
0a63 e402 | | Load 0x2,0x2
0a64 00eb | | Load_Encached Diana_Cache
0a65 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a66 8243 | C | Call 0x1,0x43
0a67 e405 | | Load 0x2,0x5
0a68 017d | } | Execute Record,Structure_Write
0a69 00db | | Load_Top At_Offset_3
0a6a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a6b e405 | | Load 0x2,0x5
0a6c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a6d 0278 | x | Execute Discrete,Or
0a6e 6803 |h | Jump_Zero 0xa72
0a6f 8408 | | Call 0x2,0x8
0a70 e213 | | Load 0x1,0x13
0a71 0257 | W | Execute Discrete,Raise
0a72 00da | | Load_Top At_Offset_2
0a73 6809 |h | Jump_Zero 0xa7d
0a74 e404 | | Load 0x2,0x4
0a75 00d8 | | Load_Top At_Offset_0
0a76 00e4 | | Load_Encached Positive_Cache
0a77 0260 | ` | Execute Discrete,In_Type
0a78 7001 |p | Jump_Nonzero 0xa7a
0a79 0801 | | Execute_Immediate Raise,0x1
0a7a e405 | | Load 0x2,0x5
0a7b 8253 | S | Call 0x1,0x53
0a7c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7d e404 | | Load 0x2,0x4
0a7e e405 | | Load 0x2,0x5
0a7f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a80 0273 | s | Execute Discrete,Plus
0a81 00d8 | | Load_Top At_Offset_0
0a82 00e4 | | Load_Encached Positive_Cache
0a83 0260 | ` | Execute Discrete,In_Type
0a84 7001 |p | Jump_Nonzero 0xa86
0a85 0801 | | Execute_Immediate Raise,0x1
0a86 e405 | | Load 0x2,0x5
0a87 8253 | S | Call 0x1,0x53
0a88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a89 e213 | | Load 0x1,0x13
0a8a 0257 | W | Execute Discrete,Raise
0a8b 0831 | 1 | Execute_Immediate Raise,0x31
0a8c 0000 0000 | | .BLANK 0000[0x4]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93 | | .CONST 0x0a93 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0001 | | .CONST 0x0001 ; Number of locals
0a93 BODY_0a90:
0a93 INIT_0a90:
0a93 00db | | Load_Top At_Offset_3
0a94 00db | | Load_Top At_Offset_3
0a95 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a96 027a | z | Execute Discrete,Less_Equal
0a97 680f |h | Jump_Zero 0xaa7
0a98 e25c | \ | Load 0x1,0x5c
0a99 0322 | " | Declare_Variable Record
0a9a 00db | | Load_Top At_Offset_3
0a9b 00d9 | | Load_Top At_Offset_1
0a9c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a9d e5fe | | Load 0x2,-0x2
0a9e 00d9 | | Load_Top At_Offset_1
0a9f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0aa0 e5fe | | Load 0x2,-0x2
0aa1 e5ff | | Load 0x2,-0x1
0aa2 e261 | a | Load 0x1,0x61
0aa3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0aa4 00d9 | | Load_Top At_Offset_1
0aa5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0aa6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0aa7 e213 | | Load 0x1,0x13
0aa8 0257 | W | Execute Discrete,Raise
0aa9 0000 0000 | | .BLANK 0000[0x7]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ab3 | | .CONST 0x0ab3 ; Address of begin
0ab1 0004 | | .CONST 0x0004 ; Address of exception handler
0ab2 0001 | | .CONST 0x0001 ; Number of locals
0ab3 BODY_0ab0:
0ab3 INIT_0ab0:
0ab3 00da | | Load_Top At_Offset_2
0ab4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0ab5 00db | | Load_Top At_Offset_3
0ab6 8256 | V | Call 0x1,0x56
0ab7 0273 | s | Execute Discrete,Plus
0ab8 00d8 | | Load_Top At_Offset_0
0ab9 00e3 | | Load_Encached Natural_Cache
0aba 0260 | ` | Execute Discrete,In_Type
0abb 7001 |p | Jump_Nonzero 0xabd
0abc 0801 | | Execute_Immediate Raise,0x1
0abd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0abe 0000 0000 | | .XXX[0x2]
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0ac3 | | .CONST 0x0ac3 ; Address of begin
0ac1 0004 | | .CONST 0x0004 ; Address of exception handler
0ac2 0001 | | .CONST 0x0001 ; Number of locals
0ac3 BODY_0ac0:
0ac3 INIT_0ac0:
0ac3 4807 |H | Short_Literal 0x7
0ac4 00db | | Load_Top At_Offset_3
0ac5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ac6 826b | k | Call 0x1,0x6b
0ac7 48ff |H | Short_Literal 0xff
0ac8 0279 | y | Execute Discrete,And
0ac9 00d8 | | Load_Top At_Offset_0
0aca 00e3 | | Load_Encached Natural_Cache
0acb 0260 | ` | Execute Discrete,In_Type
0acc 7001 |p | Jump_Nonzero 0xace
0acd 0801 | | Execute_Immediate Raise,0x1
0ace 0a01 | | Execute_Immediate Plus,0x1
0acf 00d8 | | Load_Top At_Offset_0
0ad0 00e3 | | Load_Encached Natural_Cache
0ad1 0260 | ` | Execute Discrete,In_Type
0ad2 7001 |p | Jump_Nonzero 0xad4
0ad3 0801 | | Execute_Immediate Raise,0x1
0ad4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ad5 0000 0000 | | .XXX[0x3]
0ad7 0000 | |
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0ae1 | | .CONST 0x0ae1 ; Address of begin
0ad9 0004 | | .CONST 0x0004 ; Address of exception handler
0ada 0003 | | .CONST 0x0003 ; Number of locals
0adb INIT_0ad8:
0adb 00e3 | | Load_Encached Natural_Cache
0adc 0605 | | Execute_Immediate Set_Value_Unchecked,0x5
0add e25b | [ | Load 0x1,0x5b
0ade 0322 | " | Declare_Variable Record
0adf 00d8 | | Load_Top At_Offset_0
0ae0 1c00 | | Execute_Immediate Run_Utility,0x0
0ae1 BODY_0ad8:
0ae1 00d9 | | Load_Top At_Offset_1
0ae2 e5ff | | Load 0x2,-0x1
0ae3 8257 | W | Call 0x1,0x57
0ae4 0273 | s | Execute Discrete,Plus
0ae5 005a | Z | Store_Top Discrete,At_Offset_2
0ae6 00cf | | Action Mark_Auxiliary
0ae7 e5ff | | Load 0x2,-0x1
0ae8 8223 | # | Call 0x1,0x23
0ae9 4801 |H | Short_Literal 0x1
0aea 0263 | c | Execute Discrete,Above_Bound
0aeb 700f |p | Jump_Nonzero 0xafb
0aec 00d8 | | Load_Top At_Offset_0
0aed e5ff | | Load 0x2,-0x1
0aee 8244 | D | Call 0x1,0x44
0aef e403 | | Load 0x2,0x3
0af0 017d | } | Execute Record,Structure_Write
0af1 e402 | | Load 0x2,0x2
0af2 e403 | | Load 0x2,0x3
0af3 8258 | X | Call 0x1,0x58
0af4 0273 | s | Execute Discrete,Plus
0af5 e403 | | Load 0x2,0x3
0af6 8259 | Y | Call 0x1,0x59
0af7 0273 | s | Execute Discrete,Plus
0af8 c402 | | Store 0x2,0x2
0af9 00c8 | | Action Pop_Auxiliary_Range
0afa 3ff1 |? | Loop_Increasing 0xaec
0afb 00ce | | Action Pop_Auxiliary
0afc 00d9 | | Load_Top At_Offset_1
0afd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0afe 0000 0000 | | .XXX[0x2]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03 | | .CONST 0x0b03 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0001 | | .CONST 0x0001 ; Number of locals
0b03 BODY_0b00:
0b03 INIT_0b00:
0b03 00da | | Load_Top At_Offset_2
0b04 8223 | # | Call 0x1,0x23
0b05 0902 | | Execute_Immediate Binary_Scale,0x2
0b06 0a01 | | Execute_Immediate Plus,0x1
0b07 00d8 | | Load_Top At_Offset_0
0b08 00e3 | | Load_Encached Natural_Cache
0b09 0260 | ` | Execute Discrete,In_Type
0b0a 7001 |p | Jump_Nonzero 0xb0c
0b0b 0801 | | Execute_Immediate Raise,0x1
0b0c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b0d 0000 0000 | | .XXX[0x3]
0b0f 0000 | |
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b13 | | .CONST 0x0b13 ; Address of begin
0b11 0004 | | .CONST 0x0004 ; Address of exception handler
0b12 0001 | | .CONST 0x0001 ; Number of locals
0b13 BODY_0b10:
0b13 INIT_0b10:
0b13 00da | | Load_Top At_Offset_2
0b14 8238 | 8 | Call 0x1,0x38
0b15 0a02 | | Execute_Immediate Plus,0x2
0b16 00d8 | | Load_Top At_Offset_0
0b17 00e3 | | Load_Encached Natural_Cache
0b18 0260 | ` | Execute Discrete,In_Type
0b19 7001 |p | Jump_Nonzero 0xb1b
0b1a 0801 | | Execute_Immediate Raise,0x1
0b1b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b1c 0000 0000 | | .BLANK 0000[0x4]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b25 | % | .CONST 0x0b25 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0002 | | .CONST 0x0002 ; Number of locals
0b23 INIT_0b20:
0b23 00e3 | | Load_Encached Natural_Cache
0b24 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b25 BODY_0b20:
0b25 00db | | Load_Top At_Offset_3
0b26 8236 | 6 | Call 0x1,0x36
0b27 6805 |h | Jump_Zero 0xb2d
0b28 00d8 | | Load_Top At_Offset_0
0b29 e5ff | | Load 0x2,-0x1
0b2a 8239 | 9 | Call 0x1,0x39
0b2b 0273 | s | Execute Discrete,Plus
0b2c 0059 | Y | Store_Top Discrete,At_Offset_1
0b2d 00db | | Load_Top At_Offset_3
0b2e 8237 | 7 | Call 0x1,0x37
0b2f 6805 |h | Jump_Zero 0xb35
0b30 00d8 | | Load_Top At_Offset_0
0b31 e5ff | | Load 0x2,-0x1
0b32 8238 | 8 | Call 0x1,0x38
0b33 0273 | s | Execute Discrete,Plus
0b34 0059 | Y | Store_Top Discrete,At_Offset_1
0b35 00d8 | | Load_Top At_Offset_0
0b36 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b37 0000 | | .XXX[0x1]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b3b | ; | .CONST 0x0b3b ; Address of begin
0b39 0004 | | .CONST 0x0004 ; Address of exception handler
0b3a 0001 | | .CONST 0x0001 ; Number of locals
0b3b BODY_0b38:
0b3b INIT_0b38:
0b3b 00da | | Load_Top At_Offset_2
0b3c 48ff |H | Short_Literal 0xff
0b3d 0279 | y | Execute Discrete,And
0b3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b3f 0000 | | .XXX[0x1]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b43 | C | .CONST 0x0b43 ; Address of begin
0b41 0004 | | .CONST 0x0004 ; Address of exception handler
0b42 0001 | | .CONST 0x0001 ; Number of locals
0b43 BODY_0b40:
0b43 INIT_0b40:
0b43 00da | | Load_Top At_Offset_2
0b44 e003 | | Load 0x0,0x3
0b45 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0b46 00d9 | | Load_Top At_Offset_1
0b47 00d0 | | Action Swap_Control
0b48 0260 | ` | Execute Discrete,In_Type
0b49 7001 |p | Jump_Nonzero 0xb4b
0b4a 0801 | | Execute_Immediate Raise,0x1
0b4b 825d | ] | Call 0x1,0x5d
0b4c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b4d 0000 0000 | | .XXX[0x3]
0b4f 0000 | |
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b53 | S | .CONST 0x0b53 ; Address of begin
0b51 0004 | | .CONST 0x0004 ; Address of exception handler
0b52 0001 | | .CONST 0x0001 ; Number of locals
0b53 BODY_0b50:
0b53 INIT_0b50:
0b53 00da | | Load_Top At_Offset_2
0b54 e002 | | Load 0x0,0x2
0b55 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b56 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0b57 680a |h | Jump_Zero 0xb62
0b58 4829 |H) | Short_Literal 0x29
0b59 0092 0e86 | | Action Push_String_Extended,0xe86 ; "'N("
0b5b e5ff | | Load 0x2,-0x1
0b5c e002 | | Load 0x0,0x2
0b5d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b5e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b5f 01cc | | Execute Vector,Catenate
0b60 01cb | | Execute Vector,Append
0b61 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b62 00ea | | Load_Encached Null_String_Cache
0b63 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b64 0000 0000 | | .BLANK 0000[0x4]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b | k | .CONST 0x0b6b ; Address of begin
0b69 0004 | | .CONST 0x0004 ; Address of exception handler
0b6a 0001 | | .CONST 0x0001 ; Number of locals
0b6b BODY_0b68:
0b6b INIT_0b68:
0b6b 00da | | Load_Top At_Offset_2
0b6c e002 | | Load 0x0,0x2
0b6d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b6e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b6f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b73 | s | .CONST 0x0b73 ; Address of begin
0b71 0004 | | .CONST 0x0004 ; Address of exception handler
0b72 0001 | | .CONST 0x0001 ; Number of locals
0b73 BODY_0b70:
0b73 INIT_0b70:
0b73 00da | | Load_Top At_Offset_2
0b74 e002 | | Load 0x0,0x2
0b75 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b76 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0b77 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b | { | .CONST 0x0b7b ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0001 | | .CONST 0x0001 ; Number of locals
0b7b BODY_0b78:
0b7b INIT_0b78:
0b7b 00da | | Load_Top At_Offset_2
0b7c e002 | | Load 0x0,0x2
0b7d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b7e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b7f 00db | | Load_Top At_Offset_3
0b80 8263 | c | Call 0x1,0x63
0b81 01cc | | Execute Vector,Catenate
0b82 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b83 0000 0000 | | .BLANK 0000[0x5]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b | | .CONST 0x0b8b ; Address of begin
0b89 0004 | | .CONST 0x0004 ; Address of exception handler
0b8a 0001 | | .CONST 0x0001 ; Number of locals
0b8b BODY_0b88:
0b8b INIT_0b88:
0b8b 00da | | Load_Top At_Offset_2
0b8c e002 | | Load 0x0,0x2
0b8d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b8e 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0b8f 00db | | Load_Top At_Offset_3
0b90 8263 | c | Call 0x1,0x63
0b91 01cc | | Execute Vector,Catenate
0b92 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b93 0000 0000 | | .BLANK 0000[0x5]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9b | | .CONST 0x0b9b ; Address of begin
0b99 0004 | | .CONST 0x0004 ; Address of exception handler
0b9a 0001 | | .CONST 0x0001 ; Number of locals
0b9b BODY_0b98:
0b9b INIT_0b98:
0b9b 4820 |H | Short_Literal 0x20
0b9c 4800 |H | Short_Literal 0x0
0b9d 480a |H | Short_Literal 0xa
0b9e e5ff | | Load 0x2,-0x1
0b9f e010 | | Load 0x0,0x10
0ba0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ba1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ba2 0000 0000 | | .BLANK 0000[0x6]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab | | .CONST 0x0bab ; Address of begin
0ba9 0004 | | .CONST 0x0004 ; Address of exception handler
0baa 0001 | | .CONST 0x0001 ; Number of locals
0bab BODY_0ba8:
0bab INIT_0ba8:
0bab 00da | | Load_Top At_Offset_2
0bac e5fe | | Load 0x2,-0x2
0bad 0270 | p | Execute Discrete,Divide
0bae 4801 |H | Short_Literal 0x1
0baf 0279 | y | Execute Discrete,And
0bb0 00d8 | | Load_Top At_Offset_0
0bb1 00e1 | | Load_Encached Boolean_Cache
0bb2 0260 | ` | Execute Discrete,In_Type
0bb3 7001 |p | Jump_Nonzero 0xbb5
0bb4 0801 | | Execute_Immediate Raise,0x1
0bb5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bb6 0000 0000 | | .XXX[0x2]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbb | | .CONST 0x0bbb ; Address of begin
0bb9 0004 | | .CONST 0x0004 ; Address of exception handler
0bba 0001 | | .CONST 0x0001 ; Number of locals
0bbb BODY_0bb8:
0bbb INIT_0bb8:
0bbb 00da | | Load_Top At_Offset_2
0bbc 0f00 | | Execute_Immediate Equal,0x0
0bbd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bbe 0000 0000 | | .XXX[0x2]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bc3 | | .CONST 0x0bc3 ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0001 | | .CONST 0x0001 ; Number of locals
0bc3 BODY_0bc0:
0bc3 INIT_0bc0:
0bc3 00db | | Load_Top At_Offset_3
0bc4 00db | | Load_Top At_Offset_3
0bc5 e00b | | Load 0x0,0xb
0bc6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bc7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcb | | .CONST 0x0bcb ; Address of begin
0bc9 0004 | | .CONST 0x0004 ; Address of exception handler
0bca 0001 | | .CONST 0x0001 ; Number of locals
0bcb BODY_0bc8:
0bcb INIT_0bc8:
0bcb 00db | | Load_Top At_Offset_3
0bcc 00db | | Load_Top At_Offset_3
0bcd 826b | k | Call 0x1,0x6b
0bce 0910 | | Execute_Immediate Binary_Scale,0x10
0bcf e5fe | | Load 0x2,-0x2
0bd0 0a01 | | Execute_Immediate Plus,0x1
0bd1 00d8 | | Load_Top At_Offset_0
0bd2 e20e | | Load 0x1,0xe
0bd3 0260 | ` | Execute Discrete,In_Type
0bd4 7001 |p | Jump_Nonzero 0xbd6
0bd5 0801 | | Execute_Immediate Raise,0x1
0bd6 e5ff | | Load 0x2,-0x1
0bd7 826b | k | Call 0x1,0x6b
0bd8 0273 | s | Execute Discrete,Plus
0bd9 00d8 | | Load_Top At_Offset_0
0bda 00e3 | | Load_Encached Natural_Cache
0bdb 0260 | ` | Execute Discrete,In_Type
0bdc 7001 |p | Jump_Nonzero 0xbde
0bdd 0801 | | Execute_Immediate Raise,0x1
0bde 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bdf 0000 | | .XXX[0x1]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be3 | | .CONST 0x0be3 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0001 | | .CONST 0x0001 ; Number of locals
0be3 BODY_0be0:
0be3 INIT_0be0:
0be3 00da | | Load_Top At_Offset_2
0be4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0be5 e5fe | | Load 0x2,-0x2
0be6 0273 | s | Execute Discrete,Plus
0be7 00d8 | | Load_Top At_Offset_0
0be8 e20e | | Load 0x1,0xe
0be9 0260 | ` | Execute Discrete,In_Type
0bea 7001 |p | Jump_Nonzero 0xbec
0beb 0801 | | Execute_Immediate Raise,0x1
0bec 00db | | Load_Top At_Offset_3
0bed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bee 821d | | Call 0x1,0x1d
0bef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf3 | | .CONST 0x0bf3 ; Address of begin
0bf1 0004 | | .CONST 0x0004 ; Address of exception handler
0bf2 0001 | | .CONST 0x0001 ; Number of locals
0bf3 BODY_0bf0:
0bf3 INIT_0bf0:
0bf3 00da | | Load_Top At_Offset_2
0bf4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0bf5 e5fe | | Load 0x2,-0x2
0bf6 0273 | s | Execute Discrete,Plus
0bf7 00d8 | | Load_Top At_Offset_0
0bf8 e20e | | Load 0x1,0xe
0bf9 0260 | ` | Execute Discrete,In_Type
0bfa 7001 |p | Jump_Nonzero 0xbfc
0bfb 0801 | | Execute_Immediate Raise,0x1
0bfc 00db | | Load_Top At_Offset_3
0bfd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bfe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bff 821d | | Call 0x1,0x1d
0c00 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c01 0000 0000 | | .BLANK 0000[0x7]
0c08 ; --------------------------------------------------------------------------------------
0c08 ; SUBPROGRAM
0c08 ; --------------------------------------------------------------------------------------
0c08 0c1e | | .CONST 0x0c1e ; Address of begin
0c09 0004 | | .CONST 0x0004 ; Address of exception handler
0c0a 0006 | | .CONST 0x0006 ; Number of locals
0c0b INIT_0c08:
0c0b 00da | | Load_Top At_Offset_2
0c0c 0007 | | Action Break_Optional
0c0d e002 | | Load 0x0,0x2
0c0e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0c0f 02ff | | Declare_Variable Variant_Record
0c10 00d8 | | Load_Top At_Offset_0
0c11 1c00 | | Execute_Immediate Run_Utility,0x0
0c12 00d8 | | Load_Top At_Offset_0
0c13 02ff | | Declare_Variable Variant_Record
0c14 00d8 | | Load_Top At_Offset_0
0c15 1c00 | | Execute_Immediate Run_Utility,0x0
0c16 e002 | | Load 0x0,0x2
0c17 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c18 e002 | | Load 0x0,0x2
0c19 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0c1a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c1b 02c7 | | Declare_Variable Any
0c1c 00d8 | | Load_Top At_Offset_0
0c1d 1c00 | | Execute_Immediate Run_Utility,0x0
0c1e BODY_0c08:
0c1e e002 | | Load 0x0,0x2
0c1f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c20 e403 | | Load 0x2,0x3
0c21 e402 | | Load 0x2,0x2
0c22 e002 | | Load 0x0,0x2
0c23 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0c24 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c25 00d1 | | Pop_Control Pop_Count_1
0c26 005a | Z | Store_Top Discrete,At_Offset_2
0c27 e002 | | Load 0x0,0x2
0c28 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c29 00db | | Load_Top At_Offset_3
0c2a 602d |`- | Indirect_Literal Discrete,0xc58,{0x00000000, 0x00004000}
0c2b e00e | | Load 0x0,0xe
0c2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c2d e403 | | Load 0x2,0x3
0c2e e002 | | Load 0x0,0x2
0c2f 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0c30 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c31 00d1 | | Pop_Control Pop_Count_1
0c32 005a | Z | Store_Top Discrete,At_Offset_2
0c33 00da | | Load_Top At_Offset_2
0c34 e002 | | Load 0x0,0x2
0c35 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0c36 701d |p | Jump_Nonzero 0xc54
0c37 e002 | | Load 0x0,0x2
0c38 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c39 00d9 | | Load_Top At_Offset_1
0c3a 0120 | | Execute Any,Is_Value
0c3b 6804 |h | Jump_Zero 0xc40
0c3c e002 | | Load 0x0,0x2
0c3d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0c3e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c3f 7801 |x | Jump 0xc41
0c40 00d9 | | Load_Top At_Offset_1
0c41 e002 | | Load 0x0,0x2
0c42 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0c43 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0c44 e404 | | Load 0x2,0x4
0c45 6012 |` | Indirect_Literal Discrete,0xc58,{0x00000000, 0x00004000}
0c46 4801 |H | Short_Literal 0x1
0c47 4800 |H | Short_Literal 0x0
0c48 e00e | | Load 0x0,0xe
0c49 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c4a 4800 |H | Short_Literal 0x0
0c4b e002 | | Load 0x0,0x2
0c4c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0c4d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0c4e 00d1 | | Pop_Control Pop_Count_1
0c4f c402 | | Store 0x2,0x2
0c50 c406 | | Store 0x2,0x6
0c51 005a | Z | Store_Top Discrete,At_Offset_2
0c52 e402 | | Load 0x2,0x2
0c53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c54 00ec | | Load_Encached Diana_Tree_Cache
0c55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c56 0000 0000 | | .XXX[0x2]
0c58 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0c5c 0000 0000 | | .BLANK 0000[0x4]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c63 | c | .CONST 0x0c63 ; Address of begin
0c61 0004 | | .CONST 0x0004 ; Address of exception handler
0c62 0001 | | .CONST 0x0001 ; Number of locals
0c63 BODY_0c60:
0c63 INIT_0c60:
0c63 00da | | Load_Top At_Offset_2
0c64 e261 | a | Load 0x1,0x61
0c65 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c66 00d8 | | Load_Top At_Offset_0
0c67 e20e | | Load 0x1,0xe
0c68 0260 | ` | Execute Discrete,In_Type
0c69 7001 |p | Jump_Nonzero 0xc6b
0c6a 0801 | | Execute_Immediate Raise,0x1
0c6b 00db | | Load_Top At_Offset_3
0c6c 826b | k | Call 0x1,0x6b
0c6d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c6e 0000 0000 | | .XXX[0x2]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c93 | | .CONST 0x0c93 ; Address of begin
0c71 0004 | | .CONST 0x0004 ; Address of exception handler
0c72 0005 | | .CONST 0x0005 ; Number of locals
0c73 INIT_0c70:
0c73 00da | | Load_Top At_Offset_2
0c74 e261 | a | Load 0x1,0x61
0c75 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c76 e20e | | Load 0x1,0xe
0c77 03f1 | | Declare_Variable Discrete,With_Value
0c78 00d8 | | Load_Top At_Offset_0
0c79 0a01 | | Execute_Immediate Plus,0x1
0c7a 00d8 | | Load_Top At_Offset_0
0c7b e20e | | Load 0x1,0xe
0c7c 0260 | ` | Execute Discrete,In_Type
0c7d 7001 |p | Jump_Nonzero 0xc7f
0c7e 0801 | | Execute_Immediate Raise,0x1
0c7f e5ff | | Load 0x2,-0x1
0c80 826c | l | Call 0x1,0x6c
0c81 00e3 | | Load_Encached Natural_Cache
0c82 03f1 | | Declare_Variable Discrete,With_Value
0c83 00d9 | | Load_Top At_Offset_1
0c84 0a03 | | Execute_Immediate Plus,0x3
0c85 00d8 | | Load_Top At_Offset_0
0c86 e20e | | Load 0x1,0xe
0c87 0260 | ` | Execute Discrete,In_Type
0c88 7001 |p | Jump_Nonzero 0xc8a
0c89 0801 | | Execute_Immediate Raise,0x1
0c8a e5ff | | Load 0x2,-0x1
0c8b 826c | l | Call 0x1,0x6c
0c8c 00e3 | | Load_Encached Natural_Cache
0c8d 03f1 | | Declare_Variable Discrete,With_Value
0c8e e011 | | Load 0x0,0x11
0c8f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c90 02ff | | Declare_Variable Variant_Record
0c91 00d8 | | Load_Top At_Offset_0
0c92 1c00 | | Execute_Immediate Run_Utility,0x0
0c93 BODY_0c70:
0c93 00d8 | | Load_Top At_Offset_0
0c94 e00d | | Load 0x0,0xd
0c95 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c96 0162 | b | Execute Variant_Record,Check_In_Type
0c97 00da | | Load_Top At_Offset_2
0c98 e403 | | Load 0x2,0x3
0c99 e00d | | Load 0x0,0xd
0c9a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0c9b 00d1 | | Pop_Control Pop_Count_1
0c9c 00d8 | | Load_Top At_Offset_0
0c9d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c9e 0000 0000 | | .XXX[0x2]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0caa | | .CONST 0x0caa ; Address of begin
0ca1 0004 | | .CONST 0x0004 ; Address of exception handler
0ca2 0003 | | .CONST 0x0003 ; Number of locals
0ca3 INIT_0ca0:
0ca3 00da | | Load_Top At_Offset_2
0ca4 e261 | a | Load 0x1,0x61
0ca5 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ca6 e20e | | Load 0x1,0xe
0ca7 03f1 | | Declare_Variable Discrete,With_Value
0ca8 029f 0de3 | | Declare_Subprogram INIT_0de0,For_Call
0caa BODY_0ca0:
0caa 00d9 | | Load_Top At_Offset_1
0cab 6802 |h | Jump_Zero 0xcae
0cac 8403 | | Call 0x2,0x3
0cad 7802 |x | Jump 0xcb0
0cae e214 | | Load 0x1,0x14
0caf 0257 | W | Execute Discrete,Raise
0cb0 0831 | 1 | Execute_Immediate Raise,0x31
0cb1 0000 0000 | | .BLANK 0000[0x7]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cbb | | .CONST 0x0cbb ; Address of begin
0cb9 0004 | | .CONST 0x0004 ; Address of exception handler
0cba 0001 | | .CONST 0x0001 ; Number of locals
0cbb BODY_0cb8:
0cbb INIT_0cb8:
0cbb 00da | | Load_Top At_Offset_2
0cbc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0cbd 021d | | Execute Heap_Access,Is_Null
0cbe 0f00 | | Execute_Immediate Equal,0x0
0cbf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cc3 | | .CONST 0x0cc3 ; Address of begin
0cc1 0004 | | .CONST 0x0004 ; Address of exception handler
0cc2 0001 | | .CONST 0x0001 ; Number of locals
0cc3 BODY_0cc0:
0cc3 INIT_0cc0:
0cc3 00da | | Load_Top At_Offset_2
0cc4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0cc5 00db | | Load_Top At_Offset_3
0cc6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0cc7 0227 | ' | Execute Access,All_Reference
0cc8 01d7 | | Execute Vector,Field_Read
0cc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cca 0000 0000 | | .BLANK 0000[0x6]
0cd0 ; --------------------------------------------------------------------------------------
0cd0 ; SUBPROGRAM
0cd0 ; --------------------------------------------------------------------------------------
0cd0 0cd3 | | .CONST 0x0cd3 ; Address of begin
0cd1 0004 | | .CONST 0x0004 ; Address of exception handler
0cd2 0001 | | .CONST 0x0001 ; Number of locals
0cd3 BODY_0cd0:
0cd3 INIT_0cd0:
0cd3 00db | | Load_Top At_Offset_3
0cd4 7002 |p | Jump_Nonzero 0xcd7
0cd5 4800 |H | Short_Literal 0x0
0cd6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0cd7 00db | | Load_Top At_Offset_3
0cd8 00d8 | | Load_Top At_Offset_0
0cd9 e20e | | Load 0x1,0xe
0cda 0260 | ` | Execute Discrete,In_Type
0cdb 7001 |p | Jump_Nonzero 0xcdd
0cdc 0801 | | Execute_Immediate Raise,0x1
0cdd 00db | | Load_Top At_Offset_3
0cde 821d | | Call 0x1,0x1d
0cdf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce3 | | .CONST 0x0ce3 ; Address of begin
0ce1 0004 | | .CONST 0x0004 ; Address of exception handler
0ce2 0001 | | .CONST 0x0001 ; Number of locals
0ce3 BODY_0ce0:
0ce3 INIT_0ce0:
0ce3 00db | | Load_Top At_Offset_3
0ce4 7002 |p | Jump_Nonzero 0xce7
0ce5 4800 |H | Short_Literal 0x0
0ce6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ce7 00db | | Load_Top At_Offset_3
0ce8 0a01 | | Execute_Immediate Plus,0x1
0ce9 00d8 | | Load_Top At_Offset_0
0cea e20e | | Load 0x1,0xe
0ceb 0260 | ` | Execute Discrete,In_Type
0cec 7001 |p | Jump_Nonzero 0xcee
0ced 0801 | | Execute_Immediate Raise,0x1
0cee 00db | | Load_Top At_Offset_3
0cef 821d | | Call 0x1,0x1d
0cf0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0cf1 0000 0000 | | .BLANK 0000[0x7]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0cfb | | .CONST 0x0cfb ; Address of begin
0cf9 0004 | | .CONST 0x0004 ; Address of exception handler
0cfa 0001 | | .CONST 0x0001 ; Number of locals
0cfb BODY_0cf8:
0cfb INIT_0cf8:
0cfb 00db | | Load_Top At_Offset_3
0cfc 0a03 | | Execute_Immediate Plus,0x3
0cfd 00d8 | | Load_Top At_Offset_0
0cfe e20e | | Load 0x1,0xe
0cff 0260 | ` | Execute Discrete,In_Type
0d00 7001 |p | Jump_Nonzero 0xd02
0d01 0801 | | Execute_Immediate Raise,0x1
0d02 00db | | Load_Top At_Offset_3
0d03 821d | | Call 0x1,0x1d
0d04 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0d05 0000 0000 | | .XXX[0x3]
0d07 0000 | |
0d08 ; --------------------------------------------------------------------------------------
0d08 ; SUBPROGRAM
0d08 ; --------------------------------------------------------------------------------------
0d08 0d0b | | .CONST 0x0d0b ; Address of begin
0d09 0004 | | .CONST 0x0004 ; Address of exception handler
0d0a 0001 | | .CONST 0x0001 ; Number of locals
0d0b BODY_0d08:
0d0b INIT_0d08:
0d0b 6004 |` | Indirect_Literal Discrete,0xd10,{0x00000000, 0x00008000}
0d0c 00db | | Load_Top At_Offset_3
0d0d 8269 | i | Call 0x1,0x69
0d0e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d0f 0000 | | .XXX[0x1]
0d10 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0d14 0000 0000 | | .BLANK 0000[0x4]
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d1b | | .CONST 0x0d1b ; Address of begin
0d19 0004 | | .CONST 0x0004 ; Address of exception handler
0d1a 0001 | | .CONST 0x0001 ; Number of locals
0d1b BODY_0d18:
0d1b INIT_0d18:
0d1b 6004 |` | Indirect_Literal Discrete,0xd20,{0x00000000, 0x00004000}
0d1c 00db | | Load_Top At_Offset_3
0d1d 8269 | i | Call 0x1,0x69
0d1e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d1f 0000 | | .XXX[0x1]
0d20 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0d24 0000 0000 | | .BLANK 0000[0x4]
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d2b | + | .CONST 0x0d2b ; Address of begin
0d29 0004 | | .CONST 0x0004 ; Address of exception handler
0d2a 0001 | | .CONST 0x0001 ; Number of locals
0d2b BODY_0d28:
0d2b INIT_0d28:
0d2b 00da | | Load_Top At_Offset_2
0d2c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d2d 8273 | s | Call 0x1,0x73
0d2e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d2f 0000 | | .XXX[0x1]
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d33 | 3 | .CONST 0x0d33 ; Address of begin
0d31 0004 | | .CONST 0x0004 ; Address of exception handler
0d32 0001 | | .CONST 0x0001 ; Number of locals
0d33 BODY_0d30:
0d33 INIT_0d30:
0d33 00da | | Load_Top At_Offset_2
0d34 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d35 00db | | Load_Top At_Offset_3
0d36 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d37 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0d38 027b | { | Execute Discrete,Greater_Equal
0d39 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d3a 0000 0000 | | .BLANK 0000[0x6]
0d40 ; --------------------------------------------------------------------------------------
0d40 ; SUBPROGRAM
0d40 ; --------------------------------------------------------------------------------------
0d40 0d43 | C | .CONST 0x0d43 ; Address of begin
0d41 0004 | | .CONST 0x0004 ; Address of exception handler
0d42 0001 | | .CONST 0x0001 ; Number of locals
0d43 BODY_0d40:
0d43 INIT_0d40:
0d43 00da | | Load_Top At_Offset_2
0d44 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d45 00db | | Load_Top At_Offset_3
0d46 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d47 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0d48 027b | { | Execute Discrete,Greater_Equal
0d49 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d4a 0000 0000 | | .BLANK 0000[0x6]
0d50 ; --------------------------------------------------------------------------------------
0d50 ; SUBPROGRAM
0d50 ; --------------------------------------------------------------------------------------
0d50 0d53 | S | .CONST 0x0d53 ; Address of begin
0d51 0004 | | .CONST 0x0004 ; Address of exception handler
0d52 0001 | | .CONST 0x0001 ; Number of locals
0d53 BODY_0d50:
0d53 INIT_0d50:
0d53 e00e | | Load 0x0,0xe
0d54 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d55 6006 |` | Indirect_Literal Discrete,0xd5c,{0x00007fff, 0xffffffff}
0d56 e7ff | | Load 0x3,-0x1
0d57 e00f | | Load 0x0,0xf
0d58 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d5a 0000 0000 | | .XXX[0x2]
0d5c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0d60 ; --------------------------------------------------------------------------------------
0d60 ; SUBPROGRAM
0d60 ; --------------------------------------------------------------------------------------
0d60 0d63 | c | .CONST 0x0d63 ; Address of begin
0d61 0004 | | .CONST 0x0004 ; Address of exception handler
0d62 0001 | | .CONST 0x0001 ; Number of locals
0d63 BODY_0d60:
0d63 INIT_0d60:
0d63 e00e | | Load 0x0,0xe
0d64 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d65 67f6 |g | Indirect_Literal Discrete,0xd5c,{0x00007fff, 0xffffffff}
0d66 e7ff | | Load 0x3,-0x1
0d67 e00f | | Load 0x0,0xf
0d68 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d69 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d6a 0000 0000 | | .BLANK 0000[0x6]
0d70 ; --------------------------------------------------------------------------------------
0d70 ; SUBPROGRAM
0d70 ; --------------------------------------------------------------------------------------
0d70 0d7b | { | .CONST 0x0d7b ; Address of begin
0d71 0004 | | .CONST 0x0004 ; Address of exception handler
0d72 0002 | | .CONST 0x0002 ; Number of locals
0d73 INIT_0d70:
0d73 e404 | | Load 0x2,0x4
0d74 e402 | | Load 0x2,0x2
0d75 e261 | a | Load 0x1,0x61
0d76 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d77 e403 | | Load 0x2,0x3
0d78 821d | | Call 0x1,0x1d
0d79 00e3 | | Load_Encached Natural_Cache
0d7a 03f1 | | Declare_Variable Discrete,With_Value
0d7b BODY_0d70:
0d7b 00d8 | | Load_Top At_Offset_0
0d7c 00cb | | Action Pop_Block_With_Result
0d7d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d7e 0000 0000 | | .XXX[0x2]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d8e | | .CONST 0x0d8e ; Address of begin
0d81 0004 | | .CONST 0x0004 ; Address of exception handler
0d82 0003 | | .CONST 0x0003 ; Number of locals
0d83 INIT_0d80:
0d83 e404 | | Load 0x2,0x4
0d84 e402 | | Load 0x2,0x2
0d85 e261 | a | Load 0x1,0x61
0d86 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d87 e20e | | Load 0x1,0xe
0d88 03f1 | | Declare_Variable Discrete,With_Value
0d89 00d8 | | Load_Top At_Offset_0
0d8a e403 | | Load 0x2,0x3
0d8b 821d | | Call 0x1,0x1d
0d8c 00e3 | | Load_Encached Natural_Cache
0d8d 03f1 | | Declare_Variable Discrete,With_Value
0d8e BODY_0d80:
0d8e 00d8 | | Load_Top At_Offset_0
0d8f 00cb | | Action Pop_Block_With_Result
0d90 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d91 0000 0000 | | .BLANK 0000[0x7]
0d98 ; --------------------------------------------------------------------------------------
0d98 ; SUBPROGRAM
0d98 ; --------------------------------------------------------------------------------------
0d98 0d9f | | .CONST 0x0d9f ; Address of begin
0d99 0004 | | .CONST 0x0004 ; Address of exception handler
0d9a 0002 | | .CONST 0x0002 ; Number of locals
0d9b INIT_0d98:
0d9b e25c | \ | Load 0x1,0x5c
0d9c 0322 | " | Declare_Variable Record
0d9d 00d8 | | Load_Top At_Offset_0
0d9e 1c00 | | Execute_Immediate Run_Utility,0x0
0d9f BODY_0d98:
0d9f 00d8 | | Load_Top At_Offset_0
0da0 00cb | | Action Pop_Block_With_Result
0da1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0da2 0000 0000 | | .BLANK 0000[0x6]
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0db2 | | .CONST 0x0db2 ; Address of begin
0da9 0004 | | .CONST 0x0004 ; Address of exception handler
0daa 0005 | | .CONST 0x0005 ; Number of locals
0dab INIT_0da8:
0dab 00e3 | | Load_Encached Natural_Cache
0dac 03e9 | | Declare_Variable Discrete,Duplicate
0dad e25c | \ | Load 0x1,0x5c
0dae 0322 | " | Declare_Variable Record
0daf 00d8 | | Load_Top At_Offset_0
0db0 1c00 | | Execute_Immediate Run_Utility,0x0
0db1 00e3 | | Load_Encached Natural_Cache
0db2 BODY_0da8:
0db2 e406 | | Load 0x2,0x6
0db3 6806 |h | Jump_Zero 0xdba
0db4 4801 |H | Short_Literal 0x1
0db5 a602 | | Store_Unchecked 0x3,0x2
0db6 e405 | | Load 0x2,0x5
0db7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0db8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0db9 7807 |x | Jump 0xdc1
0dba e405 | | Load 0x2,0x5
0dbb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0dbc 0a01 | | Execute_Immediate Plus,0x1
0dbd c602 | | Store 0x3,0x2
0dbe e405 | | Load 0x2,0x5
0dbf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0dc0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0dc1 00cf | | Action Mark_Auxiliary
0dc2 00db | | Load_Top At_Offset_3
0dc3 e602 | | Load 0x3,0x2
0dc4 0263 | c | Execute Discrete,Above_Bound
0dc5 7016 |p | Jump_Nonzero 0xddc
0dc6 00d8 | | Load_Top At_Offset_0
0dc7 00d8 | | Load_Top At_Offset_0
0dc8 00e4 | | Load_Encached Positive_Cache
0dc9 0260 | ` | Execute Discrete,In_Type
0dca 7001 |p | Jump_Nonzero 0xdcc
0dcb 0801 | | Execute_Immediate Raise,0x1
0dcc e405 | | Load 0x2,0x5
0dcd 8253 | S | Call 0x1,0x53
0dce e604 | | Load 0x3,0x4
0dcf 017d | } | Execute Record,Structure_Write
0dd0 e604 | | Load 0x3,0x4
0dd1 824a | J | Call 0x1,0x4a
0dd2 a605 | | Store_Unchecked 0x3,0x5
0dd3 00db | | Load_Top At_Offset_3
0dd4 e404 | | Load 0x2,0x4
0dd5 027f | | Execute Discrete,Equal
0dd6 6803 |h | Jump_Zero 0xdda
0dd7 e604 | | Load 0x3,0x4
0dd8 00cb | | Action Pop_Block_With_Result
0dd9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dda 00c8 | | Action Pop_Auxiliary_Range
0ddb 3fea |? | Loop_Increasing 0xdc6
0ddc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ddd 0000 0000 | | .XXX[0x3]
0ddf 0000 | |
0de0 ; --------------------------------------------------------------------------------------
0de0 ; SUBPROGRAM
0de0 ; --------------------------------------------------------------------------------------
0de0 0deb | | .CONST 0x0deb ; Address of begin
0de1 0004 | | .CONST 0x0004 ; Address of exception handler
0de2 0005 | | .CONST 0x0005 ; Number of locals
0de3 INIT_0de0:
0de3 e25a | Z | Load 0x1,0x5a
0de4 0322 | " | Declare_Variable Record
0de5 00d8 | | Load_Top At_Offset_0
0de6 1c00 | | Execute_Immediate Run_Utility,0x0
0de7 00e1 | | Load_Encached Boolean_Cache
0de8 00e3 | | Load_Encached Natural_Cache
0de9 e20e | | Load 0x1,0xe
0dea 0007 | | Action Break_Optional
0deb BODY_0de0:
0deb 00e1 | | Load_Encached Boolean_Cache
0dec e602 | | Load 0x3,0x2
0ded e5ff | | Load 0x2,-0x1
0dee e260 | ` | Load 0x1,0x60
0def e012 | | Load 0x0,0x12
0df0 e25f | _ | Load 0x1,0x5f
0df1 0096 | | Execute Package,Entry
0df2 00d1 | | Pop_Control Pop_Count_1
0df3 005b | [ | Store_Top Discrete,At_Offset_3
0df4 00da | | Load_Top At_Offset_2
0df5 702f |p/ | Jump_Nonzero 0xe25
0df6 e5ff | | Load 0x2,-0x1
0df7 8270 | p | Call 0x1,0x70
0df8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0df9 e5ff | | Load 0x2,-0x1
0dfa e261 | a | Load 0x1,0x61
0dfb 180e | | Execute Package,Field_Execute,Field_Number 0xe
0dfc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dfd e25a | Z | Load 0x1,0x5a
0dfe 0322 | " | Declare_Variable Record
0dff e5ff | | Load 0x2,-0x1
0e00 00d9 | | Load_Top At_Offset_1
0e01 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0e02 e5fe | | Load 0x2,-0x2
0e03 00d9 | | Load_Top At_Offset_1
0e04 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0e05 e5ff | | Load 0x2,-0x1
0e06 8271 | q | Call 0x1,0x71
0e07 00d9 | | Load_Top At_Offset_1
0e08 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0e09 00d9 | | Load_Top At_Offset_1
0e0a 00d9 | | Load_Top At_Offset_1
0e0b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0e0c 00da | | Load_Top At_Offset_2
0e0d 00d9 | | Load_Top At_Offset_1
0e0e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0e0f 4801 |H | Short_Literal 0x1
0e10 00db | | Load_Top At_Offset_3
0e11 e210 | | Load 0x1,0x10
0e12 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0e13 00d9 | | Load_Top At_Offset_1
0e14 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0e15 4801 |H | Short_Literal 0x1
0e16 00db | | Load_Top At_Offset_3
0e17 e212 | | Load 0x1,0x12
0e18 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0e19 00d9 | | Load_Top At_Offset_1
0e1a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0e1b e602 | | Load 0x3,0x2
0e1c 017d | } | Execute Record,Structure_Write
0e1d e260 | ` | Load 0x1,0x60
0e1e 4800 |H | Short_Literal 0x0
0e1f e602 | | Load 0x3,0x2
0e20 e5ff | | Load 0x2,-0x1
0e21 e013 | | Load 0x0,0x13
0e22 e25f | _ | Load 0x1,0x5f
0e23 0096 | | Execute Package,Entry
0e24 c260 | ` | Store 0x1,0x60
0e25 00db | | Load_Top At_Offset_3
0e26 00cb | | Action Pop_Block_With_Result
0e27 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0e28 ; --------------------------------------------------------------------------------------
0e28 ; SUBPROGRAM
0e28 ; --------------------------------------------------------------------------------------
0e28 0e2b | + | .CONST 0x0e2b ; Address of begin
0e29 0004 | | .CONST 0x0004 ; Address of exception handler
0e2a 0001 | | .CONST 0x0001 ; Number of locals
0e2b BODY_0e28:
0e2b INIT_0e28:
0e2b 4601 |F | Jump_Case 0x2
0e2c 7801 |x | Jump 0xe2e ; case 0x0
0e2d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0e2e 4800 |H | Short_Literal 0x0
0e2f 00db | | Load_Top At_Offset_3
0e30 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0e31 00da | | Load_Top At_Offset_2
0e32 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0e33 0125 | % | Execute Any,Set_Constraint
0e34 e002 | | Load 0x0,0x2
0e35 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0e36 00db | | Load_Top At_Offset_3
0e37 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0e38 00ec | | Load_Encached Diana_Tree_Cache
0e39 00db | | Load_Top At_Offset_3
0e3a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0e3b 4800 |H | Short_Literal 0x0
0e3c 00db | | Load_Top At_Offset_3
0e3d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0e3e 4800 |H | Short_Literal 0x0
0e3f 00db | | Load_Top At_Offset_3
0e40 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0e41 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0e42 0000 0000 | | .BLANK 0000[0x6]
0e48 ; --------------------------------------------------------------------------------------
0e48 ; SUBPROGRAM
0e48 ; --------------------------------------------------------------------------------------
0e48 0e4b | K | .CONST 0x0e4b ; Address of begin
0e49 0004 | | .CONST 0x0004 ; Address of exception handler
0e4a 0001 | | .CONST 0x0001 ; Number of locals
0e4b BODY_0e48:
0e4b INIT_0e48:
0e4b 4601 |F | Jump_Case 0x2
0e4c 7801 |x | Jump 0xe4e ; case 0x0
0e4d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0e4e 00da | | Load_Top At_Offset_2
0e4f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0e50 1c00 | | Execute_Immediate Run_Utility,0x0
0e51 4800 |H | Short_Literal 0x0
0e52 00db | | Load_Top At_Offset_3
0e53 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0e54 4800 |H | Short_Literal 0x0
0e55 00db | | Load_Top At_Offset_3
0e56 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0e57 4800 |H | Short_Literal 0x0
0e58 00db | | Load_Top At_Offset_3
0e59 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0e5a 4800 |H | Short_Literal 0x0
0e5b 00db | | Load_Top At_Offset_3
0e5c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0e5d 4800 |H | Short_Literal 0x0
0e5e 00db | | Load_Top At_Offset_3
0e5f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0e60 4800 |H | Short_Literal 0x0
0e61 00db | | Load_Top At_Offset_3
0e62 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0e63 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0e64 0000 0000 | | .BLANK 0000[0x4]
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e6b | k | .CONST 0x0e6b ; Address of begin
0e69 0004 | | .CONST 0x0004 ; Address of exception handler
0e6a 0001 | | .CONST 0x0001 ; Number of locals
0e6b BODY_0e68:
0e6b INIT_0e68:
0e6b 4601 |F | Jump_Case 0x2
0e6c 7801 |x | Jump 0xe6e ; case 0x0
0e6d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0e6e 00da | | Load_Top At_Offset_2
0e6f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0e70 1c00 | | Execute_Immediate Run_Utility,0x0
0e71 4800 |H | Short_Literal 0x0
0e72 00db | | Load_Top At_Offset_3
0e73 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0e74 4800 |H | Short_Literal 0x0
0e75 00db | | Load_Top At_Offset_3
0e76 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0e77 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0e78 ; --------------------------------------------------------------------------------------
0e78 ; STRING TABLE
0e78 ; --------------------------------------------------------------------------------------
0e78 0020 | | .STRTAB 0x0020->0x0e88 ; "MODULE_BLOCK"
0e79 002a | * | .STRTAB 0x002a->0x0e8e ; "PROCEDURE_BLOCK"
0e7a 0037 | 7 | .STRTAB 0x0037->0x0e95 ; "FUNCTION_BLOCK"
0e7b 0043 | C | .STRTAB 0x0043->0x0e9c ; "ACCEPT_BLOCK"
0e7c 004d | M | .STRTAB 0x004d->0x0ea2 ; "DECLARE_BLOCK"
0e7d 0058 | X | .STRTAB 0x0058->0x0ea9 ; "UTILITY_BLOCK"
0e7e 0063 | c | .STRTAB 0x0063->0x0eaf ; "COMMAND_BLOCK"
0e7f 006e | n | .STRTAB 0x006e->0x0eb6 ; "LIBRARY_BLOCK"
0e80 0079 | y | .STRTAB 0x0079->0x0ebc ; "COMMAND_ELABORATION_BLOCK"
0e81 0090 | | .STRTAB 0x0090->0x0ec9 ; "LIBRARY_ELABORATION_BLOCK"
0e82 00a7 | | .STRTAB 0x00a7->0x0ed5 ; "SUBSYSTEM_ELABORATION_BLOCK"
0e83 00c0 | | .STRTAB 0x00c0->0x0ee3 ; "MANUFACTURED_PROCEDURE_BLOCK"
0e84 00da | | .STRTAB 0x00da->0x0ef1 ; "MANUFACTURED_FUNCTION_BLOCK"
0e85 00f3 | | .STRTAB 0x00f3->0x0efe ; "UNKNOWN_BLOCK"
0e86 00fe | | .STRTAB 0x00fe->0x0f05 ; "'N("
0e87 00ff | | .STREND 0x00ff->0x0f06
0e88 4d4f 4455 |MODU| .STRTAB_STRINGS
0f07 0000 | | .XXX[0x1]
0f08 ; --------------------------------------------------------------------------------------
0f08 ; Debug Table
0f08 ; --------------------------------------------------------------------------------------
0f08 0004 000a | | .DEBUG4 0x0004,0x000a,0xa790,0x0000,0x0001,0x0000
0f0e 0000 0000 | | .BLANK 0000[0xf2]