|
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_ccb0b3
└─⟦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 0e58 | X | .CONST 0x0e58 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01ca | | .CONST 0x01ca ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0085 | | .CONST 0x0085 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 48ff |H | Short_Literal 0xff
000d 00e5 | | Load_Encached Long_Integer_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0011 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 4802 |H | Short_Literal 0x2
0040 032b | + | Declare_Type Record,Incomplete,Visible
0041 c239 | 9 | Store 0x1,0x39
0042 00da | | Load_Top At_Offset_2
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 03ae | | Declare_Type Heap_Access,Defined,Visible
0045 c212 | | Store 0x1,0x12
0046 e212 | | Load 0x1,0x12
0047 0129 | ) | Execute Any,Make_Visible
0048 c213 | | Store 0x1,0x13
0049 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative
004a e212 | | Load 0x1,0x12
004b 00d9 | | Load_Top At_Offset_1
004c 03a2 | | Complete_Type Heap_Access,By_Renaming
004d c21c | | Store 0x1,0x1c
004e 00e2 | | Load_Encached Integer_Cache
004f 0129 | ) | Execute Any,Make_Visible
0050 c23a | : | Store 0x1,0x3a
0051 00d9 | | Load_Top At_Offset_1
0052 e21c | | Load 0x1,0x1c
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 e239 | 9 | Load 0x1,0x39
0055 0326 | & | Complete_Type Record,By_Defining
0056 4805 |H | Short_Literal 0x5
0057 032b | + | Declare_Type Record,Incomplete,Visible
0058 c23b | ; | Store 0x1,0x3b
0059 00d8 | | Load_Top At_Offset_0
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b 03ae | | Declare_Type Heap_Access,Defined,Visible
005c c215 | | Store 0x1,0x15
005d e215 | | Load 0x1,0x15
005e 0129 | ) | Execute Any,Make_Visible
005f c216 | | Store 0x1,0x16
0060 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative
0061 e215 | | Load 0x1,0x15
0062 00d9 | | Load_Top At_Offset_1
0063 03a2 | | Complete_Type Heap_Access,By_Renaming
0064 c21e | | Store 0x1,0x1e
0065 e001 | | Load 0x0,0x1
0066 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0067 00ec | | Load_Encached Diana_Tree_Cache
0068 00db | | Load_Top At_Offset_3
0069 00e3 | | Load_Encached Natural_Cache
006a e21e | | Load 0x1,0x1e
006b 029f 0ceb | | Declare_Subprogram INIT_0ce8,For_Call
006d e23b | ; | Load 0x1,0x3b
006e 0326 | & | Complete_Type Record,By_Defining
006f 4802 |H | Short_Literal 0x2
0070 032b | + | Declare_Type Record,Incomplete,Visible
0071 c22c | , | Store 0x1,0x2c
0072 e22c | , | Load 0x1,0x2c
0073 02a0 | | Declare_Subprogram Null_Subprogram
0074 03ae | | Declare_Type Heap_Access,Defined,Visible
0075 c22d | - | Store 0x1,0x2d
0076 e22d | - | Load 0x1,0x2d
0077 0129 | ) | Execute Any,Make_Visible
0078 c22e | . | Store 0x1,0x2e
0079 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative
007a e22d | - | Load 0x1,0x2d
007b 00d9 | | Load_Top At_Offset_1
007c 03a2 | | Complete_Type Heap_Access,By_Renaming
007d c22f | / | Store 0x1,0x2f
007e 00ec | | Load_Encached Diana_Tree_Cache
007f e22f | / | Load 0x1,0x2f
0080 029f 0d13 | | Declare_Subprogram INIT_0d10,For_Call
0082 e22c | , | Load 0x1,0x2c
0083 0326 | & | Complete_Type Record,By_Defining
0084 4801 |H | Short_Literal 0x1
0085 4800 |H | Short_Literal 0x0
0086 49a0 |I | Short_Literal 0x1a0
0087 00eb | | Load_Encached Diana_Cache
0088 0098 | | Execute Package,Field_Read_Dynamic
0089 035b | [ | Declare_Type Array,Constrained
008a 0336 | 6 | Declare_Variable Array,Visible
008b 00d8 | | Load_Top At_Offset_0
008c 0335 | 5 | Declare_Variable Array,Duplicate
008d 00cd | | Action Spare6_Action
008e 00d9 | | Load_Top At_Offset_1
008f 01d4 | | Execute Vector,Structure_Write
0090 c237 | 7 | Store 0x1,0x37
0091 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0093 c228 | ( | Store 0x1,0x28
0094 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0096 c229 | ) | Store 0x1,0x29
0097 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0099 c230 | 0 | Store 0x1,0x30
009a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
009c c231 | 1 | Store 0x1,0x31
009d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
009f c232 | 2 | Store 0x1,0x32
00a0 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
00a2 c238 | 8 | Store 0x1,0x38
00a3 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
00a5 c236 | 6 | Store 0x1,0x36
00a6 00bf | | Action Accept_Activation
00a7 e20d | | Load 0x1,0xd
00a8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00a9 e20d | | Load 0x1,0xd
00aa e001 | | Load 0x0,0x1
00ab 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00ac e001 | | Load 0x0,0x1
00ad 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00ae e001 | | Load 0x0,0x1
00af 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00b0 e001 | | Load 0x0,0x1
00b1 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00b2 e001 | | Load 0x0,0x1
00b3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00b4 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
00b6 4806 |H | Short_Literal 0x6
00b7 032d | - | Declare_Type Record,Defined
00b8 00d8 | | Load_Top At_Offset_0
00b9 02a0 | | Declare_Subprogram Null_Subprogram
00ba 03ad | | Declare_Type Heap_Access,Defined
00bb e216 | | Load 0x1,0x16
00bc e213 | | Load 0x1,0x13
00bd 02a0 | | Declare_Subprogram Null_Subprogram
00be 4802 |H | Short_Literal 0x2
00bf 032d | - | Declare_Type Record,Defined
00c0 00d8 | | Load_Top At_Offset_0
00c1 e22e | . | Load 0x1,0x2e
00c2 02a0 | | Declare_Subprogram Null_Subprogram
00c3 4802 |H | Short_Literal 0x2
00c4 032d | - | Declare_Type Record,Defined
00c5 49a0 |I | Short_Literal 0x1a0
00c6 00eb | | Load_Encached Diana_Cache
00c7 0098 | | Execute Package,Field_Read_Dynamic
00c8 02a0 | | Declare_Subprogram Null_Subprogram
00c9 03ad | | Declare_Type Heap_Access,Defined
00ca 00d9 | | Load_Top At_Offset_1
00cb 00d9 | | Load_Top At_Offset_1
00cc 02a0 | | Declare_Subprogram Null_Subprogram
00cd 4802 |H | Short_Literal 0x2
00ce 032d | - | Declare_Type Record,Defined
00cf 00d8 | | Load_Top At_Offset_0
00d0 02a0 | | Declare_Subprogram Null_Subprogram
00d1 03ad | | Declare_Type Heap_Access,Defined
00d2 4800 |H | Short_Literal 0x0
00d3 4801 |H | Short_Literal 0x1
00d4 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
00d6 03fd | | Declare_Type Discrete,Defined
00d7 e002 | | Load 0x0,0x2
00d8 e003 | | Load 0x0,0x3
00d9 e23d | = | Load 0x1,0x3d
00da e23e | > | Load 0x1,0x3e
00db e242 | B | Load 0x1,0x42
00dc e243 | C | Load 0x1,0x43
00dd e001 | | Load 0x0,0x1
00de 1b74 | t | Execute Package,Field_Read,Field_Number 0x74
00df 0387 | | Declare_Variable Package
00e0 00d8 | | Load_Top At_Offset_0
00e1 020f | | Execute Module,Activate
00e2 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
00e4 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
00e6 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
00e8 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call
00ea e004 | | Load 0x0,0x4
00eb e005 | | Load 0x0,0x5
00ec e242 | B | Load 0x1,0x42
00ed e243 | C | Load 0x1,0x43
00ee e001 | | Load 0x0,0x1
00ef 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d
00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f1 0387 | | Declare_Variable Package
00f2 00d8 | | Load_Top At_Offset_0
00f3 020f | | Execute Module,Activate
00f4 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
00f6 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
00f8 e006 | | Load 0x0,0x6
00f9 e007 | | Load 0x0,0x7
00fa e23b | ; | Load 0x1,0x3b
00fb e215 | | Load 0x1,0x15
00fc e001 | | Load 0x0,0x1
00fd 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 0387 | | Declare_Variable Package
0100 00d8 | | Load_Top At_Offset_0
0101 020f | | Execute Module,Activate
0102 e008 | | Load 0x0,0x8
0103 e009 | | Load 0x0,0x9
0104 e239 | 9 | Load 0x1,0x39
0105 e212 | | Load 0x1,0x12
0106 e001 | | Load 0x0,0x1
0107 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d
0108 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0109 0387 | | Declare_Variable Package
010a 00d8 | | Load_Top At_Offset_0
010b 020f | | Execute Module,Activate
010c e00a | | Load 0x0,0xa
010d e00b | | Load 0x0,0xb
010e e22c | , | Load 0x1,0x2c
010f e22d | - | Load 0x1,0x2d
0110 e001 | | Load 0x0,0x1
0111 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d
0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0113 0387 | | Declare_Variable Package
0114 00d8 | | Load_Top At_Offset_0
0115 020f | | Execute Module,Activate
0116 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
0118 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
011a 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
011c e00c | | Load 0x0,0xc
011d e00d | | Load 0x0,0xd
011e 49a0 |I | Short_Literal 0x1a0
011f 00eb | | Load_Encached Diana_Cache
0120 0098 | | Execute Package,Field_Read_Dynamic
0121 e241 | A | Load 0x1,0x41
0122 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
0123 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
0124 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0125 e001 | | Load 0x0,0x1
0126 1b6d | m | Execute Package,Field_Read,Field_Number 0x6d
0127 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0128 0387 | | Declare_Variable Package
0129 00d8 | | Load_Top At_Offset_0
012a 020f | | Execute Module,Activate
012b 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
012d 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
012f 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
0131 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
0133 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
0135 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0137 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
0139 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
013b 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
013d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
013e 00c7 | | Action Elaborate_Subprogram
013f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0140 00c7 | | Action Elaborate_Subprogram
0141 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0142 00c7 | | Action Elaborate_Subprogram
0143 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0144 00c7 | | Action Elaborate_Subprogram
0145 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0146 00c7 | | Action Elaborate_Subprogram
0147 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0148 00c7 | | Action Elaborate_Subprogram
0149 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
014a 00c7 | | Action Elaborate_Subprogram
014b 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
014c 00c7 | | Action Elaborate_Subprogram
014d 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
014e 00c7 | | Action Elaborate_Subprogram
014f 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
0151 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
0153 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
0155 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call
0157 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
0159 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
015b 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
015d 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
015f 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
0161 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0163 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
0165 029b 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Unelaborated
0167 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
0168 00c7 | | Action Elaborate_Subprogram
0169 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
016b 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call
016d 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
016f 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
0171 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call
0173 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
0175 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call
0177 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call
0179 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
017b 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call
017d 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call
017f 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call
0181 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call
0183 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call
0185 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call
0187 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
0189 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call
018b 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call
018d 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
018f 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call
0191 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call
0193 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
0195 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call
0197 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call
0199 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
019b 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call
019d 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call
019f 029d 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call
01a1 e00e | | Load 0x0,0xe
01a2 e00f | | Load 0x0,0xf
01a3 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01a4 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
01a5 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
01a6 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
01a7 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
01a8 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
01a9 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
01aa 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
01ab 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
01ac 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
01ad 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
01ae 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
01af 1d81 | | Execute_Immediate Reference_Lex_1,0x81
01b0 1d82 | | Execute_Immediate Reference_Lex_1,0x82
01b1 1d83 | | Execute_Immediate Reference_Lex_1,0x83
01b2 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
01b3 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
01b4 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
01b5 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
01b6 1d74 | t | Execute_Immediate Reference_Lex_1,0x74
01b7 1d75 | u | Execute_Immediate Reference_Lex_1,0x75
01b8 1d76 | v | Execute_Immediate Reference_Lex_1,0x76
01b9 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
01ba 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
01bb 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
01bc 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
01bd 1d84 | | Execute_Immediate Reference_Lex_1,0x84
01be 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
01bf 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
01c0 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c
01c1 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b
01c2 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
01c3 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
01c4 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e
01c5 e010 | | Load 0x0,0x10
01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c7 0387 | | Declare_Variable Package
01c8 00d8 | | Load_Top At_Offset_0
01c9 020f | | Execute Module,Activate
01ca BODY_0008:
01ca e011 | | Load 0x0,0x11
01cb 180d | | Execute Package,Field_Execute,Field_Number 0xd
01cc 00d9 | | Load_Top At_Offset_1
01cd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01ce e010 | | Load 0x0,0x10
01cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d0 8012 | | Call 0x0,0x12
01d1 00bc | | Action Signal_Activated
01d2 00bb | | Action Signal_Completion
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e23c | < | Load 0x1,0x3c
01dc 00ca | | Action Exit_Nullary_Function
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e001 | | Load 0x0,0x1
01e5 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e7 e245 | E | Load 0x1,0x45
01e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e9 0217 | | Execute Heap_Access,All_Reference
01ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ec 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
01f4 e001 | | Load 0x0,0x1
01f5 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f7 6804 |h | Jump_Zero 0x1fc
01f8 e001 | | Load 0x0,0x1
01f9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fb 0257 | W | Execute Discrete,Raise
01fc 00da | | Load_Top At_Offset_2
01fd e001 | | Load 0x0,0x1
01fe 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01ff 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0200 e245 | E | Load 0x1,0x45
0201 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0202 0217 | | Execute Heap_Access,All_Reference
0203 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0204 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0205 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c e001 | | Load 0x0,0x1
020d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
020e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
020f 6804 |h | Jump_Zero 0x214
0210 e001 | | Load 0x0,0x1
0211 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0213 0257 | W | Execute Discrete,Raise
0214 00da | | Load_Top At_Offset_2
0215 e001 | | Load 0x0,0x1
0216 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0217 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0218 e245 | E | Load 0x1,0x45
0219 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021a 0217 | | Execute Heap_Access,All_Reference
021b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021f 0000 | | .XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022f | / | .CONST 0x022f ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0005 | | .CONST 0x0005 ; Number of locals
0223 INIT_0220:
0223 e22d | - | Load 0x1,0x2d
0224 0007 | | Action Break_Optional
0225 e5fe | | Load 0x2,-0x2
0226 8248 | H | Call 0x1,0x48
0227 00d8 | | Load_Top At_Offset_0
0228 0217 | | Execute Heap_Access,All_Reference
0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022b e22f | / | Load 0x1,0x2f
022c 0216 | | Execute Heap_Access,Convert
022d 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call
022f BODY_0220:
022f e22d | - | Load 0x1,0x2d
0230 e5fd | | Load 0x2,-0x3
0231 8258 | X | Call 0x1,0x58
0232 c402 | | Store 0x2,0x2
0233 e5ff | | Load 0x2,-0x1
0234 e402 | | Load 0x2,0x2
0235 0217 | | Execute Heap_Access,All_Reference
0236 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0237 e22f | / | Load 0x1,0x2f
0238 e402 | | Load 0x2,0x2
0239 0217 | | Execute Heap_Access,All_Reference
023a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
023b 00db | | Load_Top At_Offset_3
023c 8405 | | Call 0x2,0x5
023d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 0833 | 3 | Execute_Immediate Raise,0x33
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c e001 | | Load 0x0,0x1
024d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
024e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
024f 6804 |h | Jump_Zero 0x254
0250 e001 | | Load 0x0,0x1
0251 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0253 0257 | W | Execute Discrete,Raise
0254 00da | | Load_Top At_Offset_2
0255 e001 | | Load 0x0,0x1
0256 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0257 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0258 e245 | E | Load 0x1,0x45
0259 1815 | | Execute Package,Field_Execute,Field_Number 0x15
025a 0217 | | Execute Heap_Access,All_Reference
025b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
0265 BODY_0260:
0265 00db | | Load_Top At_Offset_3
0266 e001 | | Load 0x0,0x1
0267 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0268 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0269 6804 |h | Jump_Zero 0x26e
026a e001 | | Load 0x0,0x1
026b 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
026c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026d 0257 | W | Execute Discrete,Raise
026e 8402 | | Call 0x2,0x2
026f 0831 | 1 | Execute_Immediate Raise,0x31
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 028f | | .CONST 0x028f ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 000b | | .CONST 0x000b ; Number of locals
0273 INIT_0270:
0273 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0274 02c7 | | Declare_Variable Any
0275 00d8 | | Load_Top At_Offset_0
0276 1c00 | | Execute_Immediate Run_Utility,0x0
0277 00eb | | Load_Encached Diana_Cache
0278 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0279 00ec | | Load_Encached Diana_Tree_Cache
027a 02c7 | | Declare_Variable Any
027b 00d8 | | Load_Top At_Offset_0
027c 1c00 | | Execute_Immediate Run_Utility,0x0
027d 00e3 | | Load_Encached Natural_Cache
027e 00e1 | | Load_Encached Boolean_Cache
027f 00e1 | | Load_Encached Boolean_Cache
0280 e013 | | Load 0x0,0x13
0281 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0282 02ff | | Declare_Variable Variant_Record
0283 00d8 | | Load_Top At_Offset_0
0284 1c00 | | Execute_Immediate Run_Utility,0x0
0285 e014 | | Load 0x0,0x14
0286 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0287 e5fe | | Load 0x2,-0x2
0288 e014 | | Load 0x0,0x14
0289 1814 | | Execute Package,Field_Execute,Field_Number 0x14
028a e014 | | Load 0x0,0x14
028b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028c 03f1 | | Declare_Variable Discrete,With_Value
028d e5ff | | Load 0x2,-0x1
028e 8248 | H | Call 0x1,0x48
028f BODY_0270:
028f 00d8 | | Load_Top At_Offset_0
0290 0217 | | Execute Heap_Access,All_Reference
0291 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0292 680c |h | Jump_Zero 0x29f
0293 00d8 | | Load_Top At_Offset_0
0294 0219 | | Execute Heap_Access,All_Read
0295 00d8 | | Load_Top At_Offset_0
0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0297 e5ff | | Load 0x2,-0x1
0298 e001 | | Load 0x0,0x1
0299 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
029a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029b 825b | [ | Call 0x1,0x5b
029c 00d9 | | Load_Top At_Offset_1
029d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
029e 00d1 | | Pop_Control Pop_Count_1
029f 00d8 | | Load_Top At_Offset_0
02a0 0219 | | Execute Heap_Access,All_Read
02a1 e241 | A | Load 0x1,0x41
02a2 00db | | Load_Top At_Offset_3
02a3 4801 |H | Short_Literal 0x1
02a4 e5ff | | Load 0x2,-0x1
02a5 e001 | | Load 0x0,0x1
02a6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a8 825a | Z | Call 0x1,0x5a
02a9 00d9 | | Load_Top At_Offset_1
02aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ab 00d1 | | Pop_Control Pop_Count_1
02ac 00cf | | Action Mark_Auxiliary
02ad 00da | | Load_Top At_Offset_2
02ae 4801 |H | Short_Literal 0x1
02af 0263 | c | Execute Discrete,Above_Bound
02b0 7029 |p) | Jump_Nonzero 0x2da
02b1 e014 | | Load 0x0,0x14
02b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02b3 e408 | | Load 0x2,0x8
02b4 00e1 | | Load_Encached Boolean_Cache
02b5 00e1 | | Load_Encached Boolean_Cache
02b6 00e3 | | Load_Encached Natural_Cache
02b7 e404 | | Load 0x2,0x4
02b8 0120 | | Execute Any,Is_Value
02b9 6802 |h | Jump_Zero 0x2bc
02ba 00ec | | Load_Encached Diana_Tree_Cache
02bb 7801 |x | Jump 0x2bd
02bc e404 | | Load 0x2,0x4
02bd 00eb | | Load_Encached Diana_Cache
02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bf e402 | | Load 0x2,0x2
02c0 0120 | | Execute Any,Is_Value
02c1 6802 |h | Jump_Zero 0x2c4
02c2 00ed | | Load_Encached Diana_Symbol_Rep_Cache
02c3 7801 |x | Jump 0x2c5
02c4 e402 | | Load 0x2,0x2
02c5 e40e | | Load 0x2,0xe
02c6 e5fe | | Load 0x2,-0x2
02c7 e014 | | Load 0x0,0x14
02c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c9 c402 | | Store 0x2,0x2
02ca c403 | | Store 0x2,0x3
02cb c404 | | Store 0x2,0x4
02cc c405 | | Store 0x2,0x5
02cd c406 | | Store 0x2,0x6
02ce c407 | | Store 0x2,0x7
02cf 00d1 | | Pop_Control Pop_Count_1
02d0 c409 | | Store 0x2,0x9
02d1 e404 | | Load 0x2,0x4
02d2 00d9 | | Load_Top At_Offset_1
02d3 e40b | | Load 0x2,0xb
02d4 0217 | | Execute Heap_Access,All_Reference
02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d6 0217 | | Execute Heap_Access,All_Reference
02d7 01d6 | | Execute Vector,Field_Write
02d8 00c8 | | Action Pop_Auxiliary_Range
02d9 3fd7 |? | Loop_Increasing 0x2b1
02da 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4608 |F | Jump_Case 0x9
02e4 7808 |x | Jump 0x2ed ; case 0x0
02e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02e6 7825 |x% | Jump 0x30c ; case 0x2
02e7 7824 |x$ | Jump 0x30c ; case 0x3
02e8 7823 |x# | Jump 0x30c ; case 0x4
02e9 7822 |x" | Jump 0x30c ; case 0x5
02ea 7821 |x! | Jump 0x30c ; case 0x6
02eb 7820 |x | Jump 0x30c ; case 0x7
02ec 781f |x | Jump 0x30c ; case 0x8
02ed 00da | | Load_Top At_Offset_2
02ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02ef 0125 | % | Execute Any,Set_Constraint
02f0 00da | | Load_Top At_Offset_2
02f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02f2 1c00 | | Execute_Immediate Run_Utility,0x0
02f3 00da | | Load_Top At_Offset_2
02f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02f5 0125 | % | Execute Any,Set_Constraint
02f6 00da | | Load_Top At_Offset_2
02f7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02f8 1c00 | | Execute_Immediate Run_Utility,0x0
02f9 00da | | Load_Top At_Offset_2
02fa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02fb 0125 | % | Execute Any,Set_Constraint
02fc 00da | | Load_Top At_Offset_2
02fd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02fe 1c00 | | Execute_Immediate Run_Utility,0x0
02ff 00da | | Load_Top At_Offset_2
0300 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0301 0125 | % | Execute Any,Set_Constraint
0302 00da | | Load_Top At_Offset_2
0303 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0304 1c00 | | Execute_Immediate Run_Utility,0x0
0305 00da | | Load_Top At_Offset_2
0306 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0307 0125 | % | Execute Any,Set_Constraint
0308 00da | | Load_Top At_Offset_2
0309 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
030a 1c00 | | Execute_Immediate Run_Utility,0x0
030b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
030c 0869 | i | Execute_Immediate Raise,0x69
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4607 |F | Jump_Case 0x8
0314 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0315 7806 |x | Jump 0x31c ; case 0x1
0316 7809 |x | Jump 0x320 ; case 0x2
0317 780d |x | Jump 0x325 ; case 0x3
0318 7810 |x | Jump 0x329 ; case 0x4
0319 7811 |x | Jump 0x32b ; case 0x5
031a 7812 |x | Jump 0x32d ; case 0x6
031b 7815 |x | Jump 0x331 ; case 0x7
031c 00da | | Load_Top At_Offset_2
031d 0091 0d25 | %| Action Push_String_Extended_Indexed,0xd25 ; "UNIT_INSTALL"
031f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0320 00db | | Load_Top At_Offset_3
0321 00db | | Load_Top At_Offset_3
0322 00e0 | | Load_Encached Standard_Cache
0323 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0325 00da | | Load_Top At_Offset_2
0326 00e0 | | Load_Encached Standard_Cache
0327 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0328 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0329 00db | | Load_Top At_Offset_3
032a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032b 00db | | Load_Top At_Offset_3
032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032d e244 | D | Load 0x1,0x44
032e 00dc | | Load_Top At_Offset_4
032f 0267 | g | Execute Discrete,Predecessor
0330 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0331 e244 | D | Load 0x1,0x44
0332 00dc | | Load_Top At_Offset_4
0333 0268 | h | Execute Discrete,Successor
0334 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c e001 | | Load 0x0,0x1
033d 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
033e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
033f e245 | E | Load 0x1,0x45
0340 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00db | | Load_Top At_Offset_3
034c e245 | E | Load 0x1,0x45
034d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
034e 00db | | Load_Top At_Offset_3
034f e001 | | Load 0x0,0x1
0350 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c e001 | | Load 0x0,0x1
035d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
035e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
035f e245 | E | Load 0x1,0x45
0360 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0361 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0362 0000 0000 | | .BLANK 0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00db | | Load_Top At_Offset_3
036c e245 | E | Load 0x1,0x45
036d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036e 00db | | Load_Top At_Offset_3
036f e001 | | Load 0x0,0x1
0370 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0371 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0372 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 8246 | F | Call 0x1,0x46
037d 0219 | | Execute Heap_Access,All_Read
037e e24a | J | Load 0x1,0x4a
037f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0380 00d9 | | Load_Top At_Offset_1
0381 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0382 e5ff | | Load 0x2,-0x1
0383 e24a | J | Load 0x1,0x4a
0384 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0385 00da | | Load_Top At_Offset_2
0386 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0387 c5fe | | Store 0x2,-0x2
0388 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0389 0000 0000 | | .BLANK 0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 8246 | F | Call 0x1,0x46
0395 0219 | | Execute Heap_Access,All_Read
0396 e5fe | | Load 0x2,-0x2
0397 00d9 | | Load_Top At_Offset_1
0398 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0399 e5ff | | Load 0x2,-0x1
039a e24a | J | Load 0x1,0x4a
039b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
039c 00da | | Load_Top At_Offset_2
039d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
039e c5fe | | Store 0x2,-0x2
039f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00db | | Load_Top At_Offset_3
03a4 e5fd | | Load 0x2,-0x3
03a5 e241 | A | Load 0x1,0x41
03a6 e5ff | | Load 0x2,-0x1
03a7 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
03a8 00d8 | | Load_Top At_Offset_0
03a9 0217 | | Execute Heap_Access,All_Reference
03aa 1c00 | | Execute_Immediate Run_Utility,0x0
03ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 0217 | | Execute Heap_Access,All_Reference
03b5 01dd | | Execute Vector,First
03b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b7 0000 | | .XXX[0x1]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 0217 | | Execute Heap_Access,All_Reference
03bd 01dc | | Execute Vector,Last
03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 8246 | F | Call 0x1,0x46
03c5 0219 | | Execute Heap_Access,All_Read
03c6 e24d | M | Load 0x1,0x4d
03c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03c8 00d9 | | Load_Top At_Offset_1
03c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ca e5ff | | Load 0x2,-0x1
03cb e24d | M | Load 0x1,0x4d
03cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03cd 00da | | Load_Top At_Offset_2
03ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03cf c5fe | | Store 0x2,-0x2
03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d1 0000 0000 | | .BLANK 0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 8246 | F | Call 0x1,0x46
03dd 0219 | | Execute Heap_Access,All_Read
03de e5fe | | Load 0x2,-0x2
03df 00d9 | | Load_Top At_Offset_1
03e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03e1 e5ff | | Load 0x2,-0x1
03e2 e24d | M | Load 0x1,0x4d
03e3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e4 00da | | Load_Top At_Offset_2
03e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03e6 c5fe | | Store 0x2,-0x2
03e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec 8246 | F | Call 0x1,0x46
03ed 0219 | | Execute Heap_Access,All_Read
03ee e24e | N | Load 0x1,0x4e
03ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03f0 00d9 | | Load_Top At_Offset_1
03f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03f2 e5ff | | Load 0x2,-0x1
03f3 e24e | N | Load 0x1,0x4e
03f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f5 00da | | Load_Top At_Offset_2
03f6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03f7 c5fe | | Store 0x2,-0x2
03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f9 0000 0000 | | .BLANK 0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 8246 | F | Call 0x1,0x46
0405 0219 | | Execute Heap_Access,All_Read
0406 e5fe | | Load 0x2,-0x2
0407 00d9 | | Load_Top At_Offset_1
0408 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0409 e5ff | | Load 0x2,-0x1
040a e24e | N | Load 0x1,0x4e
040b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
040c 00da | | Load_Top At_Offset_2
040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
040e c5fe | | Store 0x2,-0x2
040f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 8246 | F | Call 0x1,0x46
0415 0219 | | Execute Heap_Access,All_Read
0416 e24f | O | Load 0x1,0x4f
0417 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0418 00d9 | | Load_Top At_Offset_1
0419 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
041a e5ff | | Load 0x2,-0x1
041b e24f | O | Load 0x1,0x4f
041c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041d 00da | | Load_Top At_Offset_2
041e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
041f c5fe | | Store 0x2,-0x2
0420 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0421 0000 0000 | | .BLANK 0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 8246 | F | Call 0x1,0x46
042d 0219 | | Execute Heap_Access,All_Read
042e e5fe | | Load 0x2,-0x2
042f 00d9 | | Load_Top At_Offset_1
0430 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0431 e5ff | | Load 0x2,-0x1
0432 e24f | O | Load 0x1,0x4f
0433 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0434 00da | | Load_Top At_Offset_2
0435 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0436 c5fe | | Store 0x2,-0x2
0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 8246 | F | Call 0x1,0x46
043d 0219 | | Execute Heap_Access,All_Read
043e e253 | S | Load 0x1,0x53
043f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0440 00d9 | | Load_Top At_Offset_1
0441 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0442 e5fd | | Load 0x2,-0x3
0443 e5fe | | Load 0x2,-0x2
0444 e5ff | | Load 0x2,-0x1
0445 e253 | S | Load 0x1,0x53
0446 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0447 00da | | Load_Top At_Offset_2
0448 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0449 c5fc | | Store 0x2,-0x4
044a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 00da | | Load_Top At_Offset_2
0454 8246 | F | Call 0x1,0x46
0455 0219 | | Execute Heap_Access,All_Read
0456 e5fe | | Load 0x2,-0x2
0457 00d9 | | Load_Top At_Offset_1
0458 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0459 e5ff | | Load 0x2,-0x1
045a e253 | S | Load 0x1,0x53
045b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045c 00da | | Load_Top At_Offset_2
045d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
045e c5fe | | Store 0x2,-0x2
045f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 047f | | .CONST 0x047f ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0008 | | .CONST 0x0008 ; Number of locals
0463 INIT_0460:
0463 e5fd | | Load 0x2,-0x3
0464 8248 | H | Call 0x1,0x48
0465 00d8 | | Load_Top At_Offset_0
0466 0217 | | Execute Heap_Access,All_Reference
0467 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0468 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0469 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
046a 0007 | | Action Break_Optional
046b e216 | | Load 0x1,0x16
046c 0007 | | Action Break_Optional
046d 00da | | Load_Top At_Offset_2
046e 0217 | | Execute Heap_Access,All_Reference
046f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0470 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0471 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0472 0007 | | Action Break_Optional
0473 e213 | | Load 0x1,0x13
0474 0007 | | Action Break_Optional
0475 e241 | A | Load 0x1,0x41
0476 e402 | | Load 0x2,0x2
0477 0217 | | Execute Heap_Access,All_Reference
0478 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0479 0031 | 1 | Store_Top Heap_Access,At_Offset_1
047a e001 | | Load 0x0,0x1
047b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
047c 02c7 | | Declare_Variable Any
047d 00d8 | | Load_Top At_Offset_0
047e 1c00 | | Execute_Immediate Run_Utility,0x0
047f BODY_0460:
047f 00cf | | Action Mark_Auxiliary
0480 7820 |x | Jump 0x4a1
0481 e403 | | Load 0x2,0x3
0482 0217 | | Execute Heap_Access,All_Reference
0483 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0484 e216 | | Load 0x1,0x16
0485 0216 | | Execute Heap_Access,Convert
0486 a404 | | Store_Unchecked 0x2,0x4
0487 e403 | | Load 0x2,0x3
0488 0217 | | Execute Heap_Access,All_Reference
0489 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
048a e001 | | Load 0x0,0x1
048b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
048c c408 | | Store 0x2,0x8
048d 00d9 | | Load_Top At_Offset_1
048e e001 | | Load 0x0,0x1
048f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0490 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0491 6806 |h | Jump_Zero 0x498
0492 00d9 | | Load_Top At_Offset_1
0493 e5ff | | Load 0x2,-0x1
0494 e001 | | Load 0x0,0x1
0495 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0496 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0497 c408 | | Store 0x2,0x8
0498 e403 | | Load 0x2,0x3
0499 e215 | | Load 0x1,0x15
049a 0216 | | Execute Heap_Access,Convert
049b e5fe | | Load 0x2,-0x2
049c 8255 | U | Call 0x1,0x55
049d c403 | | Store 0x2,0x3
049e e404 | | Load 0x2,0x4
049f a403 | | Store_Unchecked 0x2,0x3
04a0 00c9 | | Action Pop_Auxiliary_Loop
04a1 e403 | | Load 0x2,0x3
04a2 77de |w | Jump_Nonzero 0x481
04a3 00ce | | Action Pop_Auxiliary
04a4 e216 | | Load 0x1,0x16
04a5 e402 | | Load 0x2,0x2
04a6 0217 | | Execute Heap_Access,All_Reference
04a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04aa 00cf | | Action Mark_Auxiliary
04ab 780f |x | Jump 0x4bb
04ac e405 | | Load 0x2,0x5
04ad 0217 | | Execute Heap_Access,All_Reference
04ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04af e213 | | Load 0x1,0x13
04b0 0216 | | Execute Heap_Access,Convert
04b1 a406 | | Store_Unchecked 0x2,0x6
04b2 e405 | | Load 0x2,0x5
04b3 e212 | | Load 0x1,0x12
04b4 0216 | | Execute Heap_Access,Convert
04b5 e5fe | | Load 0x2,-0x2
04b6 8257 | W | Call 0x1,0x57
04b7 c405 | | Store 0x2,0x5
04b8 00db | | Load_Top At_Offset_3
04b9 a405 | | Store_Unchecked 0x2,0x5
04ba 00c9 | | Action Pop_Auxiliary_Loop
04bb e405 | | Load 0x2,0x5
04bc 77ef |w | Jump_Nonzero 0x4ac
04bd 00ce | | Action Pop_Auxiliary
04be e213 | | Load 0x1,0x13
04bf e402 | | Load 0x2,0x2
04c0 0217 | | Execute Heap_Access,All_Reference
04c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c4 00d9 | | Load_Top At_Offset_1
04c5 680d |h | Jump_Zero 0x4d3
04c6 00cf | | Action Mark_Auxiliary
04c7 00da | | Load_Top At_Offset_2
04c8 0217 | | Execute Heap_Access,All_Reference
04c9 01d9 | | Execute Vector,Reverse_Bounds
04ca 0263 | c | Execute Discrete,Above_Bound
04cb 7006 |p | Jump_Nonzero 0x4d2
04cc e407 | | Load 0x2,0x7
04cd e5fe | | Load 0x2,-0x2
04ce 825b | [ | Call 0x1,0x5b
04cf c407 | | Store 0x2,0x7
04d0 00c8 | | Action Pop_Auxiliary_Range
04d1 3ffa |? | Loop_Increasing 0x4cc
04d2 00ce | | Action Pop_Auxiliary
04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04dd | | .CONST 0x04dd ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0002 | | .CONST 0x0002 ; Number of locals
04db INIT_04d8:
04db e23e | > | Load 0x1,0x3e
04dc 0007 | | Action Break_Optional
04dd BODY_04d8:
04dd e23e | > | Load 0x1,0x3e
04de e5fe | | Load 0x2,-0x2
04df e001 | | Load 0x0,0x1
04e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e1 039c | | Declare_Variable Heap_Access,By_Allocation
04e2 00d8 | | Load_Top At_Offset_0
04e3 0217 | | Execute Heap_Access,All_Reference
04e4 1c00 | | Execute_Immediate Run_Utility,0x0
04e5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04e6 e001 | | Load 0x0,0x1
04e7 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
04e8 00d9 | | Load_Top At_Offset_1
04e9 0217 | | Execute Heap_Access,All_Reference
04ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04eb e23c | < | Load 0x1,0x3c
04ec 00d9 | | Load_Top At_Offset_1
04ed 0217 | | Execute Heap_Access,All_Reference
04ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04ef 00d8 | | Load_Top At_Offset_0
04f0 e5fe | | Load 0x2,-0x2
04f1 8247 | G | Call 0x1,0x47
04f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04f3 0000 0000 | | .BLANK 0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0551 | Q | .CONST 0x0551 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0021 | ! | .CONST 0x0021 ; Number of locals
0503 INIT_0500:
0503 00db | | Load_Top At_Offset_3
0504 8246 | F | Call 0x1,0x46
0505 00e1 | | Load_Encached Boolean_Cache
0506 029f 08eb | | Declare_Subprogram INIT_08e8,For_Call
0508 e001 | | Load 0x0,0x1
0509 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
050a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
050b 1911 | | Execute Package,Field_Reference,Field_Number 0x11
050c 00c6 | | Action Check_Subprogram_Elaborated
050d e5ff | | Load 0x2,-0x1
050e 00d8 | | Load_Top At_Offset_0
050f 0120 | | Execute Any,Is_Value
0510 7002 |p | Jump_Nonzero 0x513
0511 00d8 | | Load_Top At_Offset_0
0512 011e | | Execute Any,Convert
0513 e242 | B | Load 0x1,0x42
0514 e243 | C | Load 0x1,0x43
0515 0092 0d27 | '| Action Push_String_Extended,0xd27 ; "target-dependent unit"
0517 4804 |H | Short_Literal 0x4
0518 4802 |H | Short_Literal 0x2
0519 0099 | | Action Reference_Dynamic
051a 4800 |H | Short_Literal 0x0
051b e015 | | Load 0x0,0x15
051c e016 | | Load 0x0,0x16
051d 480d |H | Short_Literal 0xd
051e 0007 | | Action Break_Optional
051f 029f 0913 | | Declare_Subprogram INIT_0910,For_Call
0521 e001 | | Load 0x0,0x1
0522 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0523 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0524 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0525 00c6 | | Action Check_Subprogram_Elaborated
0526 e5ff | | Load 0x2,-0x1
0527 00d8 | | Load_Top At_Offset_0
0528 0120 | | Execute Any,Is_Value
0529 7002 |p | Jump_Nonzero 0x52c
052a 00d8 | | Load_Top At_Offset_0
052b 011e | | Execute Any,Convert
052c e23b | ; | Load 0x1,0x3b
052d e215 | | Load 0x1,0x15
052e 0092 0d28 | (| Action Push_String_Extended,0xd28 ; "call"
0530 480e |H | Short_Literal 0xe
0531 4802 |H | Short_Literal 0x2
0532 0099 | | Action Reference_Dynamic
0533 4800 |H | Short_Literal 0x0
0534 e017 | | Load 0x0,0x17
0535 e018 | | Load 0x0,0x18
0536 4817 |H | Short_Literal 0x17
0537 0007 | | Action Break_Optional
0538 029f 092b | +| Declare_Subprogram INIT_0928,For_Call
053a e001 | | Load 0x0,0x1
053b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
053c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
053d 1911 | | Execute Package,Field_Reference,Field_Number 0x11
053e 00c6 | | Action Check_Subprogram_Elaborated
053f e5ff | | Load 0x2,-0x1
0540 00d8 | | Load_Top At_Offset_0
0541 0120 | | Execute Any,Is_Value
0542 7002 |p | Jump_Nonzero 0x545
0543 00d8 | | Load_Top At_Offset_0
0544 011e | | Execute Any,Convert
0545 e239 | 9 | Load 0x1,0x39
0546 e212 | | Load 0x1,0x12
0547 0092 0d29 | )| Action Push_String_Extended,0xd29 ; "defn"
0549 4818 |H | Short_Literal 0x18
054a 4802 |H | Short_Literal 0x2
054b 0099 | | Action Reference_Dynamic
054c 4800 |H | Short_Literal 0x0
054d e019 | | Load 0x0,0x19
054e e01a | | Load 0x0,0x1a
054f 4821 |H! | Short_Literal 0x21
0550 0007 | | Action Break_Optional
0551 BODY_0500:
0551 e402 | | Load 0x2,0x2
0552 700c |p | Jump_Nonzero 0x55f
0553 4802 |H | Short_Literal 0x2
0554 0092 0d2a | *| Action Push_String_Extended,0xd2a ; "Null target-dependent header"
0556 e5ff | | Load 0x2,-0x1
0557 e001 | | Load 0x0,0x1
0558 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0559 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055a 180f | | Execute Package,Field_Execute,Field_Number 0xf
055b e001 | | Load 0x0,0x1
055c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
055d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
055e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
055f e402 | | Load 0x2,0x2
0560 0217 | | Execute Heap_Access,All_Reference
0561 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0562 e405 | | Load 0x2,0x5
0563 e406 | | Load 0x2,0x6
0564 e407 | | Load 0x2,0x7
0565 e408 | | Load 0x2,0x8
0566 4809 |H | Short_Literal 0x9
0567 4802 |H | Short_Literal 0x2
0568 0099 | | Action Reference_Dynamic
0569 e40a | | Load 0x2,0xa
056a 480b |H | Short_Literal 0xb
056b 4802 |H | Short_Literal 0x2
056c 0099 | | Action Reference_Dynamic
056d e001 | | Load 0x0,0x1
056e 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
056f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0570 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0571 e402 | | Load 0x2,0x2
0572 0217 | | Execute Heap_Access,All_Reference
0573 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0574 e40f | | Load 0x2,0xf
0575 e410 | | Load 0x2,0x10
0576 e411 | | Load 0x2,0x11
0577 e412 | | Load 0x2,0x12
0578 4813 |H | Short_Literal 0x13
0579 4802 |H | Short_Literal 0x2
057a 0099 | | Action Reference_Dynamic
057b e414 | | Load 0x2,0x14
057c 4815 |H | Short_Literal 0x15
057d 4802 |H | Short_Literal 0x2
057e 0099 | | Action Reference_Dynamic
057f e001 | | Load 0x0,0x1
0580 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0581 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0582 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0583 e402 | | Load 0x2,0x2
0584 0217 | | Execute Heap_Access,All_Reference
0585 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0586 e419 | | Load 0x2,0x19
0587 e41a | | Load 0x2,0x1a
0588 e41b | | Load 0x2,0x1b
0589 e41c | | Load 0x2,0x1c
058a 481d |H | Short_Literal 0x1d
058b 4802 |H | Short_Literal 0x2
058c 0099 | | Action Reference_Dynamic
058d e41e | | Load 0x2,0x1e
058e 481f |H | Short_Literal 0x1f
058f 4802 |H | Short_Literal 0x2
0590 0099 | | Action Reference_Dynamic
0591 e001 | | Load 0x0,0x1
0592 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0593 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0594 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0595 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0596 0000 0000 | | .XXX[0x2]
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 e01b | | Load 0x0,0x1b
059c 0257 | W | Execute Discrete,Raise
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
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 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ac 0000 0000 | | .BLANK 0000[0x4]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e01b | | Load 0x0,0x1b
05b4 0257 | W | Execute Discrete,Raise
05b5 0000 0000 | | .XXX[0x3]
05b7 0000 | |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bf | | .CONST 0x05bf ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0003 | | .CONST 0x0003 ; Number of locals
05bb INIT_05b8:
05bb e5fc | | Load 0x2,-0x4
05bc 8248 | H | Call 0x1,0x48
05bd e216 | | Load 0x1,0x16
05be 0007 | | Action Break_Optional
05bf BODY_05b8:
05bf e5fc | | Load 0x2,-0x4
05c0 e001 | | Load 0x0,0x1
05c1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
05c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05c3 7025 |p% | Jump_Nonzero 0x5e9
05c4 00d9 | | Load_Top At_Offset_1
05c5 0217 | | Execute Heap_Access,All_Reference
05c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05c9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05ca 00cf | | Action Mark_Auxiliary
05cb 781a |x | Jump 0x5e6
05cc 00d9 | | Load_Top At_Offset_1
05cd 0217 | | Execute Heap_Access,All_Reference
05ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05cf e001 | | Load 0x0,0x1
05d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05d1 e001 | | Load 0x0,0x1
05d2 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
05d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05d4 680a |h | Jump_Zero 0x5df
05d5 00d9 | | Load_Top At_Offset_1
05d6 0217 | | Execute Heap_Access,All_Reference
05d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d8 e001 | | Load 0x0,0x1
05d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05da e5ff | | Load 0x2,-0x1
05db e001 | | Load 0x0,0x1
05dc 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
05dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05df 00d9 | | Load_Top At_Offset_1
05e0 0217 | | Execute Heap_Access,All_Reference
05e1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05e2 e216 | | Load 0x1,0x16
05e3 0216 | | Execute Heap_Access,Convert
05e4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05e5 00c9 | | Action Pop_Auxiliary_Loop
05e6 00d9 | | Load_Top At_Offset_1
05e7 77e4 |w | Jump_Nonzero 0x5cc
05e8 00ce | | Action Pop_Auxiliary
05e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05ea 0000 0000 | | .BLANK 0000[0x6]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 e01c | | Load 0x0,0x1c
05f5 189e | | Execute Package,Field_Execute,Field_Number 0x9e
05f6 6804 |h | Jump_Zero 0x5fb
05f7 00da | | Load_Top At_Offset_2
05f8 e01c | | Load 0x0,0x1c
05f9 189d | | Execute Package,Field_Execute,Field_Number 0x9d
05fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05fb 00da | | Load_Top At_Offset_2
05fc 0148 | H | Execute Heap_Access,Get_Offset
05fd 00d8 | | Load_Top At_Offset_0
05fe 49a2 |I | Short_Literal 0x1a2
05ff 00eb | | Load_Encached Diana_Cache
0600 0098 | | Execute Package,Field_Read_Dynamic
0601 0260 | ` | Execute Discrete,In_Type
0602 7001 |p | Jump_Nonzero 0x604
0603 0801 | | Execute_Immediate Raise,0x1
0604 0275 | u | Execute Discrete,Unary_Minus
0605 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0606 0000 0000 | | .XXX[0x2]
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 e01c | | Load 0x0,0x1c
060d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
060e 680c |h | Jump_Zero 0x61b
060f 00da | | Load_Top At_Offset_2
0610 e01c | | Load 0x0,0x1c
0611 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0612 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0613 4867 |Hg | Short_Literal 0x67
0614 486a |Hj | Short_Literal 0x6a
0615 0262 | b | Execute Discrete,In_Range
0616 7002 |p | Jump_Nonzero 0x619
0617 4800 |H | Short_Literal 0x0
0618 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0619 4801 |H | Short_Literal 0x1
061a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061b 4800 |H | Short_Literal 0x0
061c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061d 0000 0000 | | .XXX[0x3]
061f 0000 | |
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0633 | 3 | .CONST 0x0633 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0005 | | .CONST 0x0005 ; Number of locals
0623 INIT_0620:
0623 00ec | | Load_Encached Diana_Tree_Cache
0624 02c7 | | Declare_Variable Any
0625 00db | | Load_Top At_Offset_3
0626 a402 | | Store_Unchecked 0x2,0x2
0627 00ec | | Load_Encached Diana_Tree_Cache
0628 02c7 | | Declare_Variable Any
0629 00d8 | | Load_Top At_Offset_0
062a 1c00 | | Execute_Immediate Run_Utility,0x0
062b 00ec | | Load_Encached Diana_Tree_Cache
062c 02c7 | | Declare_Variable Any
062d 00d8 | | Load_Top At_Offset_0
062e 1c00 | | Execute_Immediate Run_Utility,0x0
062f 00ec | | Load_Encached Diana_Tree_Cache
0630 02c7 | | Declare_Variable Any
0631 00d8 | | Load_Top At_Offset_0
0632 1c00 | | Execute_Immediate Run_Utility,0x0
0633 BODY_0620:
0633 00cf | | Action Mark_Auxiliary
0634 e402 | | Load 0x2,0x2
0635 e01c | | Load 0x0,0x1c
0636 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0637 6807 |h | Jump_Zero 0x63f
0638 e402 | | Load 0x2,0x2
0639 8266 | f | Call 0x1,0x66
063a 7004 |p | Jump_Nonzero 0x63f
063b e402 | | Load 0x2,0x2
063c e01c | | Load 0x0,0x1c
063d 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
063e c402 | | Store 0x2,0x2
063f e402 | | Load 0x2,0x2
0640 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0641 0f15 | | Execute_Immediate Equal,0x15
0642 6801 |h | Jump_Zero 0x644
0643 7855 |xU | Jump 0x699
0644 e402 | | Load 0x2,0x2
0645 00eb | | Load_Encached Diana_Cache
0646 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
0647 c403 | | Store 0x2,0x3
0648 00db | | Load_Top At_Offset_3
0649 0145 | E | Execute Heap_Access,Diana_Tree_Kind
064a 0f80 | | Execute_Immediate Equal,-0x80
064b 684d |hM | Jump_Zero 0x699
064c 00db | | Load_Top At_Offset_3
064d 00eb | | Load_Encached Diana_Cache
064e 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
064f c404 | | Store 0x2,0x4
0650 00da | | Load_Top At_Offset_2
0651 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0652 0f12 | | Execute_Immediate Equal,0x12
0653 6805 |h | Jump_Zero 0x659
0654 00da | | Load_Top At_Offset_2
0655 00eb | | Load_Encached Diana_Cache
0656 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
0657 c405 | | Store 0x2,0x5
0658 7802 |x | Jump 0x65b
0659 00da | | Load_Top At_Offset_2
065a c405 | | Store 0x2,0x5
065b 00d9 | | Load_Top At_Offset_1
065c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
065d 00d8 | | Load_Top At_Offset_0
065e 0c18 | | Execute_Immediate Greater_Equal,0x18
065f 7024 |p$ | Jump_Nonzero 0x684
0660 4617 |F | Jump_Case 0x18
0661 7823 |x# | Jump 0x685 ; case 0x0
0662 7822 |x" | Jump 0x685 ; case 0x1
0663 7821 |x! | Jump 0x685 ; case 0x2
0664 7820 |x | Jump 0x685 ; case 0x3
0665 781f |x | Jump 0x685 ; case 0x4
0666 781e |x | Jump 0x685 ; case 0x5
0667 781d |x | Jump 0x685 ; case 0x6
0668 781c |x | Jump 0x685 ; case 0x7
0669 781b |x | Jump 0x685 ; case 0x8
066a 781a |x | Jump 0x685 ; case 0x9
066b 7819 |x | Jump 0x685 ; case 0xa
066c 7818 |x | Jump 0x685 ; case 0xb
066d 7821 |x! | Jump 0x68f ; case 0xc
066e 7816 |x | Jump 0x685 ; case 0xd
066f 7824 |x$ | Jump 0x694 ; case 0xe
0670 7814 |x | Jump 0x685 ; case 0xf
0671 7813 |x | Jump 0x685 ; case 0x10
0672 7814 |x | Jump 0x687 ; case 0x11
0673 7811 |x | Jump 0x685 ; case 0x12
0674 7810 |x | Jump 0x685 ; case 0x13
0675 7814 |x | Jump 0x68a ; case 0x14
0676 780e |x | Jump 0x685 ; case 0x15
0677 7817 |x | Jump 0x68f ; case 0x16
0678 7800 |x | Jump 0x679 ; case 0x17
0679 00d9 | | Load_Top At_Offset_1
067a 00eb | | Load_Encached Diana_Cache
067b 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
067c c402 | | Store 0x2,0x2
067d e402 | | Load 0x2,0x2
067e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
067f 0f1f | | Execute_Immediate Equal,0x1f
0680 6816 |h | Jump_Zero 0x697
0681 00da | | Load_Top At_Offset_2
0682 c402 | | Store 0x2,0x2
0683 7815 |x | Jump 0x699
0684 00d1 | | Pop_Control Pop_Count_1
0685 e01d | | Load 0x0,0x1d
0686 0257 | W | Execute Discrete,Raise
0687 00da | | Load_Top At_Offset_2
0688 c402 | | Store 0x2,0x2
0689 780f |x | Jump 0x699
068a 00d9 | | Load_Top At_Offset_1
068b 00eb | | Load_Encached Diana_Cache
068c 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
068d c402 | | Store 0x2,0x2
068e 7808 |x | Jump 0x697
068f 00d9 | | Load_Top At_Offset_1
0690 00eb | | Load_Encached Diana_Cache
0691 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0692 c402 | | Store 0x2,0x2
0693 7805 |x | Jump 0x699
0694 00d9 | | Load_Top At_Offset_1
0695 c402 | | Store 0x2,0x2
0696 7802 |x | Jump 0x699
0697 00c9 | | Action Pop_Auxiliary_Loop
0698 7f9b | | Jump 0x634
0699 00ce | | Action Pop_Auxiliary
069a 00db | | Load_Top At_Offset_3
069b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069c 0000 0000 | | .BLANK 0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a5 | | .CONST 0x06a5 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0002 | | .CONST 0x0002 ; Number of locals
06a3 INIT_06a0:
06a3 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call
06a5 BODY_06a0:
06a5 e5fc | | Load 0x2,-0x4
06a6 8402 | | Call 0x2,0x2
06a7 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06c5 | | .CONST 0x06c5 ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0009 | | .CONST 0x0009 ; Number of locals
06ab INIT_06a8:
06ab e215 | | Load 0x1,0x15
06ac 0007 | | Action Break_Optional
06ad 00ec | | Load_Encached Diana_Tree_Cache
06ae 02c7 | | Declare_Variable Any
06af e5ff | | Load 0x2,-0x1
06b0 4974 |It | Short_Literal 0x174
06b1 00eb | | Load_Encached Diana_Cache
06b2 0098 | | Execute Package,Field_Read_Dynamic
06b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06b4 a403 | | Store_Unchecked 0x2,0x3
06b5 e001 | | Load 0x0,0x1
06b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06b7 02c7 | | Declare_Variable Any
06b8 00d8 | | Load_Top At_Offset_0
06b9 1c00 | | Execute_Immediate Run_Utility,0x0
06ba 00e1 | | Load_Encached Boolean_Cache
06bb e5ff | | Load 0x2,-0x1
06bc 8265 | e | Call 0x1,0x65
06bd e23a | : | Load 0x1,0x3a
06be 03f1 | | Declare_Variable Discrete,With_Value
06bf 029f 09eb | | Declare_Subprogram INIT_09e8,For_Call
06c1 029f 0a0b | | Declare_Subprogram INIT_0a08,For_Call
06c3 029f 0a3b | ;| Declare_Subprogram INIT_0a38,For_Call
06c5 BODY_06a8:
06c5 e403 | | Load 0x2,0x3
06c6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06c7 0ea8 | | Execute_Immediate Not_Equal,-0x58
06c8 6801 |h | Jump_Zero 0x6ca
06c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06ca e403 | | Load 0x2,0x3
06cb e5fc | | Load 0x2,-0x4
06cc e001 | | Load 0x0,0x1
06cd 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
06ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06cf c404 | | Store 0x2,0x4
06d0 00e1 | | Load_Encached Boolean_Cache
06d1 e406 | | Load 0x2,0x6
06d2 8409 | | Call 0x2,0x9
06d3 c405 | | Store 0x2,0x5
06d4 e405 | | Load 0x2,0x5
06d5 6808 |h | Jump_Zero 0x6de
06d6 e215 | | Load 0x1,0x15
06d7 e5fd | | Load 0x2,-0x3
06d8 8254 | T | Call 0x1,0x54
06d9 c402 | | Store 0x2,0x2
06da e402 | | Load 0x2,0x2
06db 8407 | | Call 0x2,0x7
06dc e402 | | Load 0x2,0x2
06dd 8408 | | Call 0x2,0x8
06de 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06df 0000 | | .XXX[0x1]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06ee | | .CONST 0x06ee ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0007 | | .CONST 0x0007 ; Number of locals
06e3 INIT_06e0:
06e3 e243 | C | Load 0x1,0x43
06e4 0007 | | Action Break_Optional
06e5 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
06e6 00c6 | | Action Check_Subprogram_Elaborated
06e7 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
06e8 e01e | | Load 0x0,0x1e
06e9 e01f | | Load 0x0,0x1f
06ea 4806 |H | Short_Literal 0x6
06eb 0007 | | Action Break_Optional
06ec 029f 0a6b | k| Declare_Subprogram INIT_0a68,For_Call
06ee BODY_06e0:
06ee e5fc | | Load 0x2,-0x4
06ef 8248 | H | Call 0x1,0x48
06f0 a402 | | Store_Unchecked 0x2,0x2
06f1 e243 | C | Load 0x1,0x43
06f2 e5fd | | Load 0x2,-0x3
06f3 824b | K | Call 0x1,0x4b
06f4 c402 | | Store 0x2,0x2
06f5 e5fd | | Load 0x2,-0x3
06f6 e5ff | | Load 0x2,-0x1
06f7 e402 | | Load 0x2,0x2
06f8 e5fe | | Load 0x2,-0x2
06f9 4800 |H | Short_Literal 0x0
06fa 4803 |H | Short_Literal 0x3
06fb 4802 |H | Short_Literal 0x2
06fc 0099 | | Action Reference_Dynamic
06fd 4804 |H | Short_Literal 0x4
06fe 4802 |H | Short_Literal 0x2
06ff 0099 | | Action Reference_Dynamic
0700 8268 | h | Call 0x1,0x68
0701 e402 | | Load 0x2,0x2
0702 e5fc | | Load 0x2,-0x4
0703 8249 | I | Call 0x1,0x49
0704 e5ff | | Load 0x2,-0x1
0705 e001 | | Load 0x0,0x1
0706 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0707 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0708 7005 |p | Jump_Nonzero 0x70e
0709 e020 | | Load 0x0,0x20
070a 180e | | Execute Package,Field_Execute,Field_Number 0xe
070b 7002 |p | Jump_Nonzero 0x70e
070c e5fe | | Load 0x2,-0x2
070d 8407 | | Call 0x2,0x7
070e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
070f 0000 | | .XXX[0x1]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0714 0000 0000 | | .BLANK 0000[0x4]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b e01b | | Load 0x0,0x1b
071c 0257 | W | Execute Discrete,Raise
071d 0000 0000 | | .XXX[0x3]
071f 0000 | |
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 072b | + | .CONST 0x072b ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0003 | | .CONST 0x0003 ; Number of locals
0723 INIT_0720:
0723 e013 | | Load 0x0,0x13
0724 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0726 02c7 | | Declare_Variable Any
0727 00d8 | | Load_Top At_Offset_0
0728 1c00 | | Execute_Immediate Run_Utility,0x0
0729 e013 | | Load 0x0,0x13
072a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072b BODY_0720:
072b e013 | | Load 0x0,0x13
072c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072d 00da | | Load_Top At_Offset_2
072e 0120 | | Execute Any,Is_Value
072f 6804 |h | Jump_Zero 0x734
0730 e013 | | Load 0x0,0x13
0731 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0732 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0733 7801 |x | Jump 0x735
0734 00da | | Load_Top At_Offset_2
0735 e5fe | | Load 0x2,-0x2
0736 e021 | ! | Load 0x0,0x21
0737 180d | | Execute Package,Field_Execute,Field_Number 0xd
0738 e013 | | Load 0x0,0x13
0739 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
073a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
073b c402 | | Store 0x2,0x2
073c 0059 | Y | Store_Top Discrete,At_Offset_1
073d 00d9 | | Load_Top At_Offset_1
073e e013 | | Load 0x0,0x13
073f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0740 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0741 e022 | " | Load 0x0,0x22
0742 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0743 0f00 | | Execute_Immediate Equal,0x0
0744 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0745 0000 0000 | | .XXX[0x3]
0747 0000 | |
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b e01b | | Load 0x0,0x1b
074c 0257 | W | Execute Discrete,Raise
074d 0000 0000 | | .XXX[0x3]
074f 0000 | |
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0755 | U | .CONST 0x0755 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0002 | | .CONST 0x0002 ; Number of locals
0753 INIT_0750:
0753 e243 | C | Load 0x1,0x43
0754 0007 | | Action Break_Optional
0755 BODY_0750:
0755 e023 | # | Load 0x0,0x23
0756 180e | | Execute Package,Field_Execute,Field_Number 0xe
0757 e024 | $ | Load 0x0,0x24
0758 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0759 e5fc | | Load 0x2,-0x4
075a 8248 | H | Call 0x1,0x48
075b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
075c e5fc | | Load 0x2,-0x4
075d e5fd | | Load 0x2,-0x3
075e e5ff | | Load 0x2,-0x1
075f 825c | \ | Call 0x1,0x5c
0760 00d8 | | Load_Top At_Offset_0
0761 e5fd | | Load 0x2,-0x3
0762 824c | L | Call 0x1,0x4c
0763 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0764 e243 | C | Load 0x1,0x43
0765 e5fc | | Load 0x2,-0x4
0766 8249 | I | Call 0x1,0x49
0767 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0777 | w | .CONST 0x0777 ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0007 | | .CONST 0x0007 ; Number of locals
076b INIT_0768:
076b e5fb | | Load 0x2,-0x5
076c 8248 | H | Call 0x1,0x48
076d 00f1 | | Load_Encached Diana_Temp_Seq
076e 02c7 | | Declare_Variable Any
076f e5fe | | Load 0x2,-0x2
0770 a403 | | Store_Unchecked 0x2,0x3
0771 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
0772 00c6 | | Action Check_Subprogram_Elaborated
0773 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
0774 e025 | % | Load 0x0,0x25
0775 e026 | & | Load 0x0,0x26
0776 4807 |H | Short_Literal 0x7
0777 BODY_0768:
0777 00cf | | Action Mark_Auxiliary
0778 7813 |x | Jump 0x78c
0779 e5fc | | Load 0x2,-0x4
077a e5ff | | Load 0x2,-0x1
077b e402 | | Load 0x2,0x2
077c e403 | | Load 0x2,0x3
077d 0217 | | Execute Heap_Access,All_Reference
077e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
077f 4801 |H | Short_Literal 0x1
0780 4804 |H | Short_Literal 0x4
0781 4802 |H | Short_Literal 0x2
0782 0099 | | Action Reference_Dynamic
0783 4805 |H | Short_Literal 0x5
0784 4802 |H | Short_Literal 0x2
0785 0099 | | Action Reference_Dynamic
0786 8268 | h | Call 0x1,0x68
0787 e403 | | Load 0x2,0x3
0788 0217 | | Execute Heap_Access,All_Reference
0789 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
078a c403 | | Store 0x2,0x3
078b 00c9 | | Action Pop_Auxiliary_Loop
078c e403 | | Load 0x2,0x3
078d 77eb |w | Jump_Nonzero 0x779
078e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
078f 0000 | | .XXX[0x1]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a4 | | .CONST 0x07a4 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0008 | | .CONST 0x0008 ; Number of locals
0793 INIT_0790:
0793 e5fb | | Load 0x2,-0x5
0794 8248 | H | Call 0x1,0x48
0795 00f1 | | Load_Encached Diana_Temp_Seq
0796 02c7 | | Declare_Variable Any
0797 e5fe | | Load 0x2,-0x2
0798 a403 | | Store_Unchecked 0x2,0x3
0799 029f 0b63 | c| Declare_Subprogram INIT_0b60,For_Call
079b 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
079c 00c6 | | Action Check_Subprogram_Elaborated
079d 4804 |H | Short_Literal 0x4
079e 4802 |H | Short_Literal 0x2
079f 0099 | | Action Reference_Dynamic
07a0 e027 | ' | Load 0x0,0x27
07a1 e028 | ( | Load 0x0,0x28
07a2 4808 |H | Short_Literal 0x8
07a3 0007 | | Action Break_Optional
07a4 BODY_0790:
07a4 e023 | # | Load 0x0,0x23
07a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
07a6 e024 | $ | Load 0x0,0x24
07a7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07a8 00cf | | Action Mark_Auxiliary
07a9 7813 |x | Jump 0x7bd
07aa e5fc | | Load 0x2,-0x4
07ab e5ff | | Load 0x2,-0x1
07ac e402 | | Load 0x2,0x2
07ad e403 | | Load 0x2,0x3
07ae 0217 | | Execute Heap_Access,All_Reference
07af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07b0 4801 |H | Short_Literal 0x1
07b1 4805 |H | Short_Literal 0x5
07b2 4802 |H | Short_Literal 0x2
07b3 0099 | | Action Reference_Dynamic
07b4 4806 |H | Short_Literal 0x6
07b5 4802 |H | Short_Literal 0x2
07b6 0099 | | Action Reference_Dynamic
07b7 8268 | h | Call 0x1,0x68
07b8 e403 | | Load 0x2,0x3
07b9 0217 | | Execute Heap_Access,All_Reference
07ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07bb c403 | | Store 0x2,0x3
07bc 00c9 | | Action Pop_Auxiliary_Loop
07bd e403 | | Load 0x2,0x3
07be 77eb |w | Jump_Nonzero 0x7aa
07bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
07c4 0000 0000 | | .BLANK 0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb | | .CONST 0x07cb ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0001 | | .CONST 0x0001 ; Number of locals
07cb BODY_07c8:
07cb INIT_07c8:
07cb e023 | # | Load 0x0,0x23
07cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
07cd e024 | $ | Load 0x0,0x24
07ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07cf 4507 |E | Exit_Suprogram New_Top_Offset 0x7
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07d4 0000 0000 | | .BLANK 0000[0x4]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db | | .CONST 0x07db ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0001 | | .CONST 0x0001 ; Number of locals
07db BODY_07d8:
07db INIT_07d8:
07db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 4801 |H | Short_Literal 0x1
07e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07e5 0000 0000 | | .XXX[0x3]
07e7 0000 | |
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb 4800 |H | Short_Literal 0x0
07ec a5fc | | Store_Unchecked 0x2,-0x4
07ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07ee 0000 0000 | | .XXX[0x2]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07f4 0000 0000 | | .BLANK 0000[0x4]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb 0833 | 3 | Execute_Immediate Raise,0x33
07fc 0000 0000 | | .BLANK 0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0809 | | .CONST 0x0809 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0002 | | .CONST 0x0002 ; Number of locals
0803 INIT_0800:
0803 4801 |H | Short_Literal 0x1
0804 4800 |H | Short_Literal 0x0
0805 e029 | ) | Load 0x0,0x29
0806 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0807 035b | [ | Declare_Type Array,Constrained
0808 0337 | 7 | Declare_Variable Array
0809 BODY_0800:
0809 e01b | | Load 0x0,0x1b
080a 0257 | W | Execute Discrete,Raise
080b 0000 0000 | | .BLANK 0000[0x5]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0819 | | .CONST 0x0819 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0002 | | .CONST 0x0002 ; Number of locals
0813 INIT_0810:
0813 4801 |H | Short_Literal 0x1
0814 4800 |H | Short_Literal 0x0
0815 e029 | ) | Load 0x0,0x29
0816 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0817 035b | [ | Declare_Type Array,Constrained
0818 0337 | 7 | Declare_Variable Array
0819 BODY_0810:
0819 e01b | | Load 0x0,0x1b
081a 0257 | W | Execute Discrete,Raise
081b 0000 0000 | | .BLANK 0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 e01b | | Load 0x0,0x1b
0824 0257 | W | Execute Discrete,Raise
0825 0000 0000 | | .XXX[0x3]
0827 0000 | |
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b e01b | | Load 0x0,0x1b
082c 0257 | W | Execute Discrete,Raise
082d 0000 0000 | | .XXX[0x3]
082f 0000 | |
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 e01b | | Load 0x0,0x1b
0834 0257 | W | Execute Discrete,Raise
0835 0000 0000 | | .XXX[0x3]
0837 0000 | |
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b | ; | .CONST 0x083b ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0001 | | .CONST 0x0001 ; Number of locals
083b BODY_0838:
083b INIT_0838:
083b e01b | | Load 0x0,0x1b
083c 0257 | W | Execute Discrete,Raise
083d 0000 0000 | | .XXX[0x3]
083f 0000 | |
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 00da | | Load_Top At_Offset_2
0844 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0845 0000 0000 | | .XXX[0x3]
0847 0000 | |
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 085a | Z | .CONST 0x085a ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0005 | | .CONST 0x0005 ; Number of locals
084b INIT_0848:
084b e013 | | Load 0x0,0x13
084c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
084d 02ff | | Declare_Variable Variant_Record
084e 00d8 | | Load_Top At_Offset_0
084f 1c00 | | Execute_Immediate Run_Utility,0x0
0850 e02a | * | Load 0x0,0x2a
0851 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0852 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0853 02c7 | | Declare_Variable Any
0854 00d8 | | Load_Top At_Offset_0
0855 1c00 | | Execute_Immediate Run_Utility,0x0
0856 e013 | | Load 0x0,0x13
0857 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0858 e02b | + | Load 0x0,0x2b
0859 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085a BODY_0848:
085a e5ff | | Load 0x2,-0x1
085b e001 | | Load 0x0,0x1
085c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
085d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
085e 680e |h | Jump_Zero 0x86d
085f e5ff | | Load 0x2,-0x1
0860 00d8 | | Load_Top At_Offset_0
0861 e001 | | Load 0x0,0x1
0862 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0863 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0864 e02c | , | Load 0x0,0x2c
0865 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0866 e02d | - | Load 0x0,0x2d
0867 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0868 e5fe | | Load 0x2,-0x2
0869 e02e | . | Load 0x0,0x2e
086a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
086c c403 | | Store 0x2,0x3
086d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
086e 0000 0000 | | .XXX[0x2]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 087b | { | .CONST 0x087b ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0004 | | .CONST 0x0004 ; Number of locals
0873 INIT_0870:
0873 e5fc | | Load 0x2,-0x4
0874 8248 | H | Call 0x1,0x48
0875 00d8 | | Load_Top At_Offset_0
0876 0217 | | Execute Heap_Access,All_Reference
0877 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0878 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0879 0007 | | Action Break_Optional
087a e22e | . | Load 0x1,0x2e
087b BODY_0870:
087b 00cf | | Action Mark_Auxiliary
087c 780f |x | Jump 0x88c
087d 00da | | Load_Top At_Offset_2
087e 0217 | | Execute Heap_Access,All_Reference
087f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0880 e22e | . | Load 0x1,0x2e
0881 0216 | | Execute Heap_Access,Convert
0882 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0883 00da | | Load_Top At_Offset_2
0884 e22d | - | Load 0x1,0x2d
0885 0216 | | Execute Heap_Access,Convert
0886 e5fd | | Load 0x2,-0x3
0887 8259 | Y | Call 0x1,0x59
0888 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0889 00d9 | | Load_Top At_Offset_1
088a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
088b 00c9 | | Action Pop_Auxiliary_Loop
088c 00da | | Load_Top At_Offset_2
088d 77ef |w | Jump_Nonzero 0x87d
088e 00ce | | Action Pop_Auxiliary
088f e22e | . | Load 0x1,0x2e
0890 00db | | Load_Top At_Offset_3
0891 0217 | | Execute Heap_Access,All_Reference
0892 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0893 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0894 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0895 0000 0000 | | .XXX[0x3]
0897 0000 | |
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 4507 |E | Exit_Suprogram New_Top_Offset 0x7
089c 0000 0000 | | .BLANK 0000[0x4]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 450c |E | Exit_Suprogram New_Top_Offset 0xc
08a4 0000 0000 | | .BLANK 0000[0x4]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ad | | .CONST 0x08ad ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0002 | | .CONST 0x0002 ; Number of locals
08ab INIT_08a8:
08ab e22f | / | Load 0x1,0x2f
08ac 0007 | | Action Break_Optional
08ad BODY_08a8:
08ad e404 | | Load 0x2,0x4
08ae 7006 |p | Jump_Nonzero 0x8b5
08af 00db | | Load_Top At_Offset_3
08b0 e403 | | Load 0x2,0x3
08b1 0217 | | Execute Heap_Access,All_Reference
08b2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08b5 e404 | | Load 0x2,0x4
08b6 0217 | | Execute Heap_Access,All_Reference
08b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
08b9 00cf | | Action Mark_Auxiliary
08ba 7807 |x | Jump 0x8c2
08bb 00d9 | | Load_Top At_Offset_1
08bc a404 | | Store_Unchecked 0x2,0x4
08bd 00d9 | | Load_Top At_Offset_1
08be 0217 | | Execute Heap_Access,All_Reference
08bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08c0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08c1 00c9 | | Action Pop_Auxiliary_Loop
08c2 00d9 | | Load_Top At_Offset_1
08c3 77f7 |w | Jump_Nonzero 0x8bb
08c4 00ce | | Action Pop_Auxiliary
08c5 00db | | Load_Top At_Offset_3
08c6 e22f | / | Load 0x1,0x2f
08c7 0216 | | Execute Heap_Access,Convert
08c8 e404 | | Load 0x2,0x4
08c9 0217 | | Execute Heap_Access,All_Reference
08ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08cc 0000 0000 | | .BLANK 0000[0x4]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d9 | | .CONST 0x08d9 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0002 | | .CONST 0x0002 ; Number of locals
08d3 INIT_08d0:
08d3 e241 | A | Load 0x1,0x41
08d4 e5ff | | Load 0x2,-0x1
08d5 8248 | H | Call 0x1,0x48
08d6 0217 | | Execute Heap_Access,All_Reference
08d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
08d9 BODY_08d0:
08d9 00d8 | | Load_Top At_Offset_0
08da 7003 |p | Jump_Nonzero 0x8de
08db e237 | 7 | Load 0x1,0x37
08dc 00cb | | Action Pop_Block_With_Result
08dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08de 00d8 | | Load_Top At_Offset_0
08df 0217 | | Execute Heap_Access,All_Reference
08e0 0335 | 5 | Declare_Variable Array,Duplicate
08e1 00cd | | Action Spare6_Action
08e2 00cb | | Action Pop_Block_With_Result
08e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08e4 0000 0000 | | .BLANK 0000[0x4]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb | | .CONST 0x08eb ; Address of begin
08e9 0004 | | .CONST 0x0004 ; Address of exception handler
08ea 0001 | | .CONST 0x0001 ; Number of locals
08eb BODY_08e8:
08eb INIT_08e8:
08eb 00da | | Load_Top At_Offset_2
08ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08ef 680b |h | Jump_Zero 0x8fb
08f0 4802 |H | Short_Literal 0x2
08f1 0092 0d2b | +| Action Push_String_Extended,0xd2b ; "Item on target-dependent unit free list has a non-null list of calls"
08f3 e5ff | | Load 0x2,-0x1
08f4 e001 | | Load 0x0,0x1
08f5 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
08f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08f7 180f | | Execute Package,Field_Execute,Field_Number 0xf
08f8 e001 | | Load 0x0,0x1
08f9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
08fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
08fb 00da | | Load_Top At_Offset_2
08fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08ff 680b |h | Jump_Zero 0x90b
0900 4802 |H | Short_Literal 0x2
0901 0092 0d2c | ,| Action Push_String_Extended,0xd2c ; "Item on target-dependent unit free list has a non-null list of defns"
0903 e5ff | | Load 0x2,-0x1
0904 e001 | | Load 0x0,0x1
0905 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0906 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0907 180f | | Execute Package,Field_Execute,Field_Number 0xf
0908 e001 | | Load 0x0,0x1
0909 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
090a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
090b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
090c 0000 0000 | | .BLANK 0000[0x4]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913 | | .CONST 0x0913 ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0001 | | .CONST 0x0001 ; Number of locals
0913 BODY_0910:
0913 INIT_0910:
0913 00da | | Load_Top At_Offset_2
0914 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0915 680b |h | Jump_Zero 0x921
0916 4802 |H | Short_Literal 0x2
0917 0092 0d2d | -| Action Push_String_Extended,0xd2d ; "A calls node on the free list has a non-null link"
0919 e5ff | | Load 0x2,-0x1
091a e001 | | Load 0x0,0x1
091b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
091c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
091d 180f | | Execute Package,Field_Execute,Field_Number 0xf
091e e001 | | Load 0x0,0x1
091f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0920 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0921 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
092d 680b |h | Jump_Zero 0x939
092e 4802 |H | Short_Literal 0x2
092f 0092 0d2e | .| Action Push_String_Extended,0xd2e ; "A defns node on the free list has a non-null link"
0931 e5ff | | Load 0x2,-0x1
0932 e001 | | Load 0x0,0x1
0933 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0934 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0935 180f | | Execute Package,Field_Execute,Field_Number 0xf
0936 e001 | | Load 0x0,0x1
0937 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0938 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0939 4502 |E | Exit_Suprogram New_Top_Offset 0x2
093a 0000 0000 | | .BLANK 0000[0x6]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 095d | ] | .CONST 0x095d ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0009 | | .CONST 0x0009 ; Number of locals
0943 INIT_0940:
0943 00da | | Load_Top At_Offset_2
0944 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0945 008e | | Action Discrete,Diana_Arity_For_Kind
0946 00eb | | Load_Encached Diana_Cache
0947 1b82 | | Execute Package,Field_Read,Field_Number 0x82
0948 03f1 | | Declare_Variable Discrete,With_Value
0949 00ee | | Load_Encached Diana_Seq_Type_Cache
094a 02c7 | | Declare_Variable Any
094b 00d8 | | Load_Top At_Offset_0
094c 1c00 | | Execute_Immediate Run_Utility,0x0
094d 00ec | | Load_Encached Diana_Tree_Cache
094e 02c7 | | Declare_Variable Any
094f 00d8 | | Load_Top At_Offset_0
0950 1c00 | | Execute_Immediate Run_Utility,0x0
0951 00ec | | Load_Encached Diana_Tree_Cache
0952 02c7 | | Declare_Variable Any
0953 00d8 | | Load_Top At_Offset_0
0954 1c00 | | Execute_Immediate Run_Utility,0x0
0955 029f 0bdb | | Declare_Subprogram INIT_0bd8,For_Call
0957 029f 0c13 | | Declare_Subprogram INIT_0c10,For_Call
0959 029f 0c23 | #| Declare_Subprogram INIT_0c20,For_Call
095b 029f 0c3b | ;| Declare_Subprogram INIT_0c38,For_Call
095d BODY_0940:
095d e602 | | Load 0x3,0x2
095e 4604 |F | Jump_Case 0x5
095f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0960 7815 |x | Jump 0x976 ; case 0x1
0961 7819 |x | Jump 0x97b ; case 0x2
0962 7861 |xa | Jump 0x9c4 ; case 0x3
0963 7800 |x | Jump 0x964 ; case 0x4
0964 e7ff | | Load 0x3,-0x1
0965 00eb | | Load_Encached Diana_Cache
0966 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0967 c603 | | Store 0x3,0x3
0968 00cf | | Action Mark_Auxiliary
0969 7808 |x | Jump 0x972
096a e603 | | Load 0x3,0x3
096b 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
096c 8402 | | Call 0x2,0x2
096d e603 | | Load 0x3,0x3
096e 0217 | | Execute Heap_Access,All_Reference
096f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0970 c603 | | Store 0x3,0x3
0971 00c9 | | Action Pop_Auxiliary_Loop
0972 e603 | | Load 0x3,0x3
0973 77f6 |w | Jump_Nonzero 0x96a
0974 00ce | | Action Pop_Auxiliary
0975 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0976 e7ff | | Load 0x3,-0x1
0977 00eb | | Load_Encached Diana_Cache
0978 188a | | Execute Package,Field_Execute,Field_Number 0x8a
0979 8402 | | Call 0x2,0x2
097a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
097b e7ff | | Load 0x3,-0x1
097c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
097d 0f10 | | Execute_Immediate Equal,0x10
097e e7ff | | Load 0x3,-0x1
097f 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0980 0f5b | [ | Execute_Immediate Equal,0x5b
0981 0278 | x | Execute Discrete,Or
0982 681c |h | Jump_Zero 0x99f
0983 e7ff | | Load 0x3,-0x1
0984 00eb | | Load_Encached Diana_Cache
0985 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0986 4976 |Iv | Short_Literal 0x176
0987 00eb | | Load_Encached Diana_Cache
0988 0098 | | Execute Package,Field_Read_Dynamic
0989 1813 | | Execute Package,Field_Execute,Field_Number 0x13
098a c604 | | Store 0x3,0x4
098b e604 | | Load 0x3,0x4
098c 8606 | | Call 0x3,0x6
098d 682d |h- | Jump_Zero 0x9bb
098e e604 | | Load 0x3,0x4
098f 8267 | g | Call 0x1,0x67
0990 c604 | | Store 0x3,0x4
0991 e604 | | Load 0x3,0x4
0992 8607 | | Call 0x3,0x7
0993 6827 |h' | Jump_Zero 0x9bb
0994 e7ff | | Load 0x3,-0x1
0995 490c |I | Short_Literal 0x10c
0996 00eb | | Load_Encached Diana_Cache
0997 0096 | | Execute Package,Entry
0998 8609 | | Call 0x3,0x9
0999 e5fa | | Load 0x2,-0x6
099a e5f9 | | Load 0x2,-0x7
099b e5fb | | Load 0x2,-0x5
099c e604 | | Load 0x3,0x4
099d 85fe | | Call 0x2,-0x2
099e 781c |x | Jump 0x9bb
099f e7ff | | Load 0x3,-0x1
09a0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09a1 0f40 | @ | Execute_Immediate Equal,0x40
09a2 6818 |h | Jump_Zero 0x9bb
09a3 e5fd | | Load 0x2,-0x3
09a4 0f01 | | Execute_Immediate Equal,0x1
09a5 6815 |h | Jump_Zero 0x9bb
09a6 4801 |H | Short_Literal 0x1
09a7 0092 0d2f | /| Action Push_String_Extended,0xd2f ; "INLINE"
09a9 e7ff | | Load 0x3,-0x1
09aa 00eb | | Load_Encached Diana_Cache
09ab 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
09ac 00eb | | Load_Encached Diana_Cache
09ad 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
09ae 00eb | | Load_Encached Diana_Cache
09af 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
09b0 e02f | / | Load 0x0,0x2f
09b1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
09b2 6808 |h | Jump_Zero 0x9bb
09b3 4802 |H | Short_Literal 0x2
09b4 0092 0d30 | 0| Action Push_String_Extended,0xd30 ; "Incremental insertion and removal of pragma Inline with RCI is disallowed"
09b6 e5fa | | Load 0x2,-0x6
09b7 e001 | | Load 0x0,0x1
09b8 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
09b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
09ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09bb e7ff | | Load 0x3,-0x1
09bc 00eb | | Load_Encached Diana_Cache
09bd 188a | | Execute Package,Field_Execute,Field_Number 0x8a
09be 8402 | | Call 0x2,0x2
09bf e7ff | | Load 0x3,-0x1
09c0 00eb | | Load_Encached Diana_Cache
09c1 188b | | Execute Package,Field_Execute,Field_Number 0x8b
09c2 8402 | | Call 0x2,0x2
09c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09c4 e5fd | | Load 0x2,-0x3
09c5 7011 |p | Jump_Nonzero 0x9d7
09c6 e7ff | | Load 0x3,-0x1
09c7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09c8 0f48 | H | Execute_Immediate Equal,0x48
09c9 680d |h | Jump_Zero 0x9d7
09ca e7ff | | Load 0x3,-0x1
09cb 00eb | | Load_Encached Diana_Cache
09cc 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
09cd 4976 |Iv | Short_Literal 0x176
09ce 00eb | | Load_Encached Diana_Cache
09cf 0098 | | Execute Package,Field_Read_Dynamic
09d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
09d1 c605 | | Store 0x3,0x5
09d2 e605 | | Load 0x3,0x5
09d3 8606 | | Call 0x3,0x6
09d4 6802 |h | Jump_Zero 0x9d7
09d5 e605 | | Load 0x3,0x5
09d6 8608 | | Call 0x3,0x8
09d7 e7ff | | Load 0x3,-0x1
09d8 00eb | | Load_Encached Diana_Cache
09d9 188a | | Execute Package,Field_Execute,Field_Number 0x8a
09da 8402 | | Call 0x2,0x2
09db e7ff | | Load 0x3,-0x1
09dc 00eb | | Load_Encached Diana_Cache
09dd 188b | | Execute Package,Field_Execute,Field_Number 0x8b
09de 8402 | | Call 0x2,0x2
09df e7ff | | Load 0x3,-0x1
09e0 00eb | | Load_Encached Diana_Cache
09e1 188c | | Execute Package,Field_Execute,Field_Number 0x8c
09e2 8402 | | Call 0x2,0x2
09e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09e4 0000 0000 | | .BLANK 0000[0x4]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09ef | | .CONST 0x09ef ; Address of begin
09e9 0004 | | .CONST 0x0004 ; Address of exception handler
09ea 0003 | | .CONST 0x0003 ; Number of locals
09eb INIT_09e8:
09eb 029f 0c7b | {| Declare_Subprogram INIT_0c78,For_Call
09ed 029f 0c8b | | Declare_Subprogram INIT_0c88,For_Call
09ef BODY_09e8:
09ef e404 | | Load 0x2,0x4
09f0 8602 | | Call 0x3,0x2
09f1 6802 |h | Jump_Zero 0x9f4
09f2 8603 | | Call 0x3,0x3
09f3 7806 |x | Jump 0x9fa
09f4 e404 | | Load 0x2,0x4
09f5 e001 | | Load 0x0,0x1
09f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
09f7 e7ff | | Load 0x3,-0x1
09f8 0217 | | Execute Heap_Access,All_Reference
09f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
09fa e21e | | Load 0x1,0x1e
09fb e7ff | | Load 0x3,-0x1
09fc 0217 | | Execute Heap_Access,All_Reference
09fd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09fe e406 | | Load 0x2,0x6
09ff e7ff | | Load 0x3,-0x1
0a00 0217 | | Execute Heap_Access,All_Reference
0a01 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a02 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a03 0000 0000 | | .BLANK 0000[0x5]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a14 | | .CONST 0x0a14 ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0003 | | .CONST 0x0003 ; Number of locals
0a0b INIT_0a08:
0a0b e21e | | Load 0x1,0x1e
0a0c 0007 | | Action Break_Optional
0a0d e5fe | | Load 0x2,-0x2
0a0e 0217 | | Execute Heap_Access,All_Reference
0a0f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a10 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a11 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a12 e21e | | Load 0x1,0x1e
0a13 0216 | | Execute Heap_Access,Convert
0a14 BODY_0a08:
0a14 00d8 | | Load_Top At_Offset_0
0a15 7007 |p | Jump_Nonzero 0xa1d
0a16 e7ff | | Load 0x3,-0x1
0a17 e5fe | | Load 0x2,-0x2
0a18 0217 | | Execute Heap_Access,All_Reference
0a19 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a1a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a1b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a1c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a1d 00d8 | | Load_Top At_Offset_0
0a1e 0217 | | Execute Heap_Access,All_Reference
0a1f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a20 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a21 00cf | | Action Mark_Auxiliary
0a22 7807 |x | Jump 0xa2a
0a23 00da | | Load_Top At_Offset_2
0a24 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a25 00da | | Load_Top At_Offset_2
0a26 0217 | | Execute Heap_Access,All_Reference
0a27 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a28 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0a29 00c9 | | Action Pop_Auxiliary_Loop
0a2a 00da | | Load_Top At_Offset_2
0a2b 77f7 |w | Jump_Nonzero 0xa23
0a2c 00ce | | Action Pop_Auxiliary
0a2d e7ff | | Load 0x3,-0x1
0a2e e21e | | Load 0x1,0x1e
0a2f 0216 | | Execute Heap_Access,Convert
0a30 00d9 | | Load_Top At_Offset_1
0a31 0217 | | Execute Heap_Access,All_Reference
0a32 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0a33 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a34 0000 0000 | | .BLANK 0000[0x4]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a42 | B | .CONST 0x0a42 ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0002 | | .CONST 0x0002 ; Number of locals
0a3b INIT_0a38:
0a3b e5fe | | Load 0x2,-0x2
0a3c 0217 | | Execute Heap_Access,All_Reference
0a3d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a3e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a3f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a40 e21e | | Load 0x1,0x1e
0a41 0216 | | Execute Heap_Access,Convert
0a42 BODY_0a38:
0a42 4801 |H | Short_Literal 0x1
0a43 a7fe | | Store_Unchecked 0x3,-0x2
0a44 00cf | | Action Mark_Auxiliary
0a45 781d |x | Jump 0xa63
0a46 00d9 | | Load_Top At_Offset_1
0a47 0217 | | Execute Heap_Access,All_Reference
0a48 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a49 e406 | | Load 0x2,0x6
0a4a 027f | | Execute Discrete,Equal
0a4b 6812 |h | Jump_Zero 0xa5e
0a4c 00d9 | | Load_Top At_Offset_1
0a4d 0217 | | Execute Heap_Access,All_Reference
0a4e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a4f e404 | | Load 0x2,0x4
0a50 e001 | | Load 0x0,0x1
0a51 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a52 012f | / | Execute Any,Equal
0a53 680a |h | Jump_Zero 0xa5e
0a54 00d9 | | Load_Top At_Offset_1
0a55 0217 | | Execute Heap_Access,All_Reference
0a56 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a57 0a01 | | Execute_Immediate Plus,0x1
0a58 00da | | Load_Top At_Offset_2
0a59 0217 | | Execute Heap_Access,All_Reference
0a5a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a5b 4800 |H | Short_Literal 0x0
0a5c a7fe | | Store_Unchecked 0x3,-0x2
0a5d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a5e 00d9 | | Load_Top At_Offset_1
0a5f 0217 | | Execute Heap_Access,All_Reference
0a60 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a61 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a62 00c9 | | Action Pop_Auxiliary_Loop
0a63 00d9 | | Load_Top At_Offset_1
0a64 77e1 |w | Jump_Nonzero 0xa46
0a65 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a66 0000 0000 | | .XXX[0x2]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a8b | | .CONST 0x0a8b ; Address of begin
0a69 0b40 | @ | .CONST 0x0b40 ; Address of exception handler
0a6a 0008 | | .CONST 0x0008 ; Number of locals
0a6b INIT_0a68:
0a6b e030 | 0 | Load 0x0,0x30
0a6c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a6d 02c7 | | Declare_Variable Any
0a6e 00d8 | | Load_Top At_Offset_0
0a6f 1c00 | | Execute_Immediate Run_Utility,0x0
0a70 e013 | | Load 0x0,0x13
0a71 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a72 e02b | + | Load 0x0,0x2b
0a73 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a74 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a75 e013 | | Load 0x0,0x13
0a76 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0a77 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a78 02c7 | | Declare_Variable Any
0a79 00d8 | | Load_Top At_Offset_0
0a7a 1c00 | | Execute_Immediate Run_Utility,0x0
0a7b e013 | | Load 0x0,0x13
0a7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a7d 02c7 | | Declare_Variable Any
0a7e 00d8 | | Load_Top At_Offset_0
0a7f 1c00 | | Execute_Immediate Run_Utility,0x0
0a80 e013 | | Load 0x0,0x13
0a81 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0a82 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a83 02c7 | | Declare_Variable Any
0a84 00d8 | | Load_Top At_Offset_0
0a85 1c00 | | Execute_Immediate Run_Utility,0x0
0a86 e013 | | Load 0x0,0x13
0a87 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a88 02c7 | | Declare_Variable Any
0a89 00d8 | | Load_Top At_Offset_0
0a8a 1c00 | | Execute_Immediate Run_Utility,0x0
0a8b BODY_0a68:
0a8b e013 | | Load 0x0,0x13
0a8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a8d e605 | | Load 0x3,0x5
0a8e 0120 | | Execute Any,Is_Value
0a8f 6804 |h | Jump_Zero 0xa94
0a90 e013 | | Load 0x0,0x13
0a91 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0a92 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a93 7801 |x | Jump 0xa95
0a94 e605 | | Load 0x3,0x5
0a95 e7ff | | Load 0x3,-0x1
0a96 e013 | | Load 0x0,0x13
0a97 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0a98 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a99 c605 | | Store 0x3,0x5
0a9a c603 | | Store 0x3,0x3
0a9b e603 | | Load 0x3,0x3
0a9c 681e |h | Jump_Zero 0xabb
0a9d 00ec | | Load_Encached Diana_Tree_Cache
0a9e 00ec | | Load_Encached Diana_Tree_Cache
0a9f e02c | , | Load 0x0,0x2c
0aa0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0aa1 e02d | - | Load 0x0,0x2d
0aa2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0aa3 00ec | | Load_Encached Diana_Tree_Cache
0aa4 0092 0d31 | 1| Action Push_String_Extended,0xd31 ; "Error while obtaining object for "
0aa6 e7ff | | Load 0x3,-0x1
0aa7 e013 | | Load 0x0,0x13
0aa8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0aa9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0aaa 01cc | | Execute Vector,Catenate
0aab 0092 0d32 | 2| Action Push_String_Extended,0xd32 ; ": "
0aad 01cc | | Execute Vector,Catenate
0aae e603 | | Load 0x3,0x3
0aaf e013 | | Load 0x0,0x13
0ab0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ab1 011c | | Execute Any,Convert_Unchecked
0ab2 1c01 | | Execute_Immediate Run_Utility,0x1
0ab3 01cc | | Execute Vector,Catenate
0ab4 00ec | | Load_Encached Diana_Tree_Cache
0ab5 4802 |H | Short_Literal 0x2
0ab6 e602 | | Load 0x3,0x2
0ab7 e030 | 0 | Load 0x0,0x30
0ab8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ab9 c602 | | Store 0x3,0x2
0aba 787f |x | Jump 0xb3a
0abb 00db | | Load_Top At_Offset_3
0abc e013 | | Load 0x0,0x13
0abd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0abe 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0abf c606 | | Store 0x3,0x6
0ac0 e013 | | Load 0x0,0x13
0ac1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ac2 00da | | Load_Top At_Offset_2
0ac3 0120 | | Execute Any,Is_Value
0ac4 6804 |h | Jump_Zero 0xac9
0ac5 e013 | | Load 0x0,0x13
0ac6 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0ac7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ac8 7801 |x | Jump 0xaca
0ac9 00da | | Load_Top At_Offset_2
0aca e606 | | Load 0x3,0x6
0acb e013 | | Load 0x0,0x13
0acc 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0acd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ace c607 | | Store 0x3,0x7
0acf c603 | | Store 0x3,0x3
0ad0 e603 | | Load 0x3,0x3
0ad1 681d |h | Jump_Zero 0xaef
0ad2 00ec | | Load_Encached Diana_Tree_Cache
0ad3 00ec | | Load_Encached Diana_Tree_Cache
0ad4 e02c | , | Load 0x0,0x2c
0ad5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ad6 e02d | - | Load 0x0,0x2d
0ad7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ad8 00ec | | Load_Encached Diana_Tree_Cache
0ad9 0092 0d33 | 3| Action Push_String_Extended,0xd33 ; "Error while obtaining enclosing world for "
0adb e606 | | Load 0x3,0x6
0adc e013 | | Load 0x0,0x13
0add 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ade 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0adf 01cc | | Execute Vector,Catenate
0ae0 0092 0d32 | 2| Action Push_String_Extended,0xd32 ; ": "
0ae2 01cc | | Execute Vector,Catenate
0ae3 e603 | | Load 0x3,0x3
0ae4 e013 | | Load 0x0,0x13
0ae5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ae6 011c | | Execute Any,Convert_Unchecked
0ae7 1c01 | | Execute_Immediate Run_Utility,0x1
0ae8 01cc | | Execute Vector,Catenate
0ae9 00ec | | Load_Encached Diana_Tree_Cache
0aea 4802 |H | Short_Literal 0x2
0aeb e602 | | Load 0x3,0x2
0aec e030 | 0 | Load 0x0,0x30
0aed 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0aee c602 | | Store 0x3,0x2
0aef 00d9 | | Load_Top At_Offset_1
0af0 e013 | | Load 0x0,0x13
0af1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0af2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0af3 c608 | | Store 0x3,0x8
0af4 00d8 | | Load_Top At_Offset_0
0af5 e013 | | Load 0x0,0x13
0af6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0af7 e031 | 1 | Load 0x0,0x31
0af8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0af9 027e | ~ | Execute Discrete,Not_Equal
0afa 681c |h | Jump_Zero 0xb17
0afb 00d8 | | Load_Top At_Offset_0
0afc e022 | " | Load 0x0,0x22
0afd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0afe 7018 |p | Jump_Nonzero 0xb17
0aff 00d8 | | Load_Top At_Offset_0
0b00 e022 | " | Load 0x0,0x22
0b01 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b02 7014 |p | Jump_Nonzero 0xb17
0b03 00ec | | Load_Encached Diana_Tree_Cache
0b04 00ec | | Load_Encached Diana_Tree_Cache
0b05 e02c | , | Load 0x0,0x2c
0b06 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b07 e02d | - | Load 0x0,0x2d
0b08 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b09 00ec | | Load_Encached Diana_Tree_Cache
0b0a e608 | | Load 0x3,0x8
0b0b e013 | | Load 0x0,0x13
0b0c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b0d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b0e 0092 0d34 | 4| Action Push_String_Extended,0xd34 ; " is not a combined or spec view"
0b10 01cc | | Execute Vector,Catenate
0b11 00ec | | Load_Encached Diana_Tree_Cache
0b12 4802 |H | Short_Literal 0x2
0b13 e602 | | Load 0x3,0x2
0b14 e030 | 0 | Load 0x0,0x30
0b15 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b16 c602 | | Store 0x3,0x2
0b17 00d8 | | Load_Top At_Offset_0
0b18 e022 | " | Load 0x0,0x22
0b19 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b1a 0f00 | | Execute_Immediate Equal,0x0
0b1b 00d9 | | Load_Top At_Offset_1
0b1c e022 | " | Load 0x0,0x22
0b1d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b1e 0f00 | | Execute_Immediate Equal,0x0
0b1f 0279 | y | Execute Discrete,And
0b20 680e |h | Jump_Zero 0xb2f
0b21 e02b | + | Load 0x0,0x2b
0b22 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b23 e023 | # | Load 0x0,0x23
0b24 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b25 e023 | # | Load 0x0,0x23
0b26 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b27 00db | | Load_Top At_Offset_3
0b28 e022 | " | Load 0x0,0x22
0b29 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b2a 00db | | Load_Top At_Offset_3
0b2b e606 | | Load 0x3,0x6
0b2c e032 | 2 | Load 0x0,0x32
0b2d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b2e c604 | | Store 0x3,0x4
0b2f 4800 |H | Short_Literal 0x0
0b30 e604 | | Load 0x3,0x4
0b31 e02b | + | Load 0x0,0x2b
0b32 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b33 7006 |p | Jump_Nonzero 0xb3a
0b34 e602 | | Load 0x3,0x2
0b35 e604 | | Load 0x3,0x4
0b36 e033 | 3 | Load 0x0,0x33
0b37 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b38 c602 | | Store 0x3,0x2
0b39 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b3a e602 | | Load 0x3,0x2
0b3b e5ff | | Load 0x2,-0x1
0b3c e001 | | Load 0x0,0x1
0b3d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0b3e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b3f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b40 TRAP_0a68:
0b40 0007 | | Action Break_Optional
0b41 00ec | | Load_Encached Diana_Tree_Cache
0b42 00ec | | Load_Encached Diana_Tree_Cache
0b43 e02c | , | Load 0x0,0x2c
0b44 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b45 e02d | - | Load 0x0,0x2d
0b46 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b47 00ec | | Load_Encached Diana_Tree_Cache
0b48 0092 0d35 | 5| Action Push_String_Extended,0xd35 ; "Unhandled exception: "
0b4a 4800 |H | Short_Literal 0x0
0b4b 4801 |H | Short_Literal 0x1
0b4c e034 | 4 | Load 0x0,0x34
0b4d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0b4e 01cc | | Execute Vector,Catenate
0b4f 0092 0d36 | 6| Action Push_String_Extended,0xd36 ; " encountered while installing "
0b51 01cc | | Execute Vector,Catenate
0b52 e7ff | | Load 0x3,-0x1
0b53 e013 | | Load 0x0,0x13
0b54 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b55 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b56 01cc | | Execute Vector,Catenate
0b57 00ec | | Load_Encached Diana_Tree_Cache
0b58 4802 |H | Short_Literal 0x2
0b59 e602 | | Load 0x3,0x2
0b5a e030 | 0 | Load 0x0,0x30
0b5b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b5c c602 | | Store 0x3,0x2
0b5d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b5e 0000 0000 | | .XXX[0x2]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b7f | | .CONST 0x0b7f ; Address of begin
0b61 0004 | | .CONST 0x0004 ; Address of exception handler
0b62 0007 | | .CONST 0x0007 ; Number of locals
0b63 INIT_0b60:
0b63 00db | | Load_Top At_Offset_3
0b64 0217 | | Execute Heap_Access,All_Reference
0b65 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b66 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b67 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b68 e21e | | Load 0x1,0x1e
0b69 0216 | | Execute Heap_Access,Convert
0b6a 00d8 | | Load_Top At_Offset_0
0b6b 0007 | | Action Break_Optional
0b6c 00d9 | | Load_Top At_Offset_1
0b6d 0007 | | Action Break_Optional
0b6e e7ff | | Load 0x3,-0x1
0b6f 8265 | e | Call 0x1,0x65
0b70 e23a | : | Load 0x1,0x3a
0b71 03f1 | | Declare_Variable Discrete,With_Value
0b72 00ec | | Load_Encached Diana_Tree_Cache
0b73 02c7 | | Declare_Variable Any
0b74 e7ff | | Load 0x3,-0x1
0b75 4974 |It | Short_Literal 0x174
0b76 00eb | | Load_Encached Diana_Cache
0b77 0098 | | Execute Package,Field_Read_Dynamic
0b78 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b79 a606 | | Store_Unchecked 0x3,0x6
0b7a e001 | | Load 0x0,0x1
0b7b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b7c 02c7 | | Declare_Variable Any
0b7d 00d8 | | Load_Top At_Offset_0
0b7e 1c00 | | Execute_Immediate Run_Utility,0x0
0b7f BODY_0b60:
0b7f 00d9 | | Load_Top At_Offset_1
0b80 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b81 0ea8 | | Execute_Immediate Not_Equal,-0x58
0b82 6801 |h | Jump_Zero 0xb84
0b83 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b84 00d9 | | Load_Top At_Offset_1
0b85 e7fc | | Load 0x3,-0x4
0b86 e001 | | Load 0x0,0x1
0b87 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0b88 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b89 e001 | | Load 0x0,0x1
0b8a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b8b c607 | | Store 0x3,0x7
0b8c 00cf | | Action Mark_Auxiliary
0b8d 7840 |x@ | Jump 0xbce
0b8e e602 | | Load 0x3,0x2
0b8f 0217 | | Execute Heap_Access,All_Reference
0b90 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0b91 e605 | | Load 0x3,0x5
0b92 027f | | Execute Discrete,Equal
0b93 e602 | | Load 0x3,0x2
0b94 0217 | | Execute Heap_Access,All_Reference
0b95 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b96 00db | | Load_Top At_Offset_3
0b97 012f | / | Execute Any,Equal
0b98 0279 | y | Execute Discrete,And
0b99 682d |h- | Jump_Zero 0xbc7
0b9a e602 | | Load 0x3,0x2
0b9b 0217 | | Execute Heap_Access,All_Reference
0b9c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0b9d 0f01 | | Execute_Immediate Equal,0x1
0b9e 6820 |h | Jump_Zero 0xbbf
0b9f e602 | | Load 0x3,0x2
0ba0 e603 | | Load 0x3,0x3
0ba1 021f | | Execute Heap_Access,Equal
0ba2 680b |h | Jump_Zero 0xbae
0ba3 e602 | | Load 0x3,0x2
0ba4 0217 | | Execute Heap_Access,All_Reference
0ba5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ba6 e216 | | Load 0x1,0x16
0ba7 0216 | | Execute Heap_Access,Convert
0ba8 e7fe | | Load 0x3,-0x2
0ba9 0217 | | Execute Heap_Access,All_Reference
0baa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bab 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bad 7806 |x | Jump 0xbb4
0bae e602 | | Load 0x3,0x2
0baf 0217 | | Execute Heap_Access,All_Reference
0bb0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0bb1 e604 | | Load 0x3,0x4
0bb2 0217 | | Execute Heap_Access,All_Reference
0bb3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0bb4 e602 | | Load 0x3,0x2
0bb5 e215 | | Load 0x1,0x15
0bb6 0216 | | Execute Heap_Access,Convert
0bb7 e215 | | Load 0x1,0x15
0bb8 0216 | | Execute Heap_Access,Convert
0bb9 e7fd | | Load 0x3,-0x3
0bba 8255 | U | Call 0x1,0x55
0bbb e21e | | Load 0x1,0x1e
0bbc 0216 | | Execute Heap_Access,Convert
0bbd c602 | | Store 0x3,0x2
0bbe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0bbf e602 | | Load 0x3,0x2
0bc0 0217 | | Execute Heap_Access,All_Reference
0bc1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0bc2 0aff | | Execute_Immediate Plus,-0x1
0bc3 e602 | | Load 0x3,0x2
0bc4 0217 | | Execute Heap_Access,All_Reference
0bc5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0bc6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0bc7 e602 | | Load 0x3,0x2
0bc8 a604 | | Store_Unchecked 0x3,0x4
0bc9 e602 | | Load 0x3,0x2
0bca 0217 | | Execute Heap_Access,All_Reference
0bcb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0bcc a602 | | Store_Unchecked 0x3,0x2
0bcd 00c9 | | Action Pop_Auxiliary_Loop
0bce e602 | | Load 0x3,0x2
0bcf 77be |w | Jump_Nonzero 0xb8e
0bd0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0bd1 0000 0000 | | .BLANK 0000[0x7]
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0be3 | | .CONST 0x0be3 ; Address of begin
0bd9 0004 | | .CONST 0x0004 ; Address of exception handler
0bda 0003 | | .CONST 0x0003 ; Number of locals
0bdb INIT_0bd8:
0bdb 00ef | | Load_Encached Diana_Sequence_Cache
0bdc 02c7 | | Declare_Variable Any
0bdd 00d8 | | Load_Top At_Offset_0
0bde 1c00 | | Execute_Immediate Run_Utility,0x0
0bdf 00ec | | Load_Encached Diana_Tree_Cache
0be0 02c7 | | Declare_Variable Any
0be1 00d8 | | Load_Top At_Offset_0
0be2 1c00 | | Execute_Immediate Run_Utility,0x0
0be3 BODY_0bd8:
0be3 e9ff | | Load 0x4,-0x1
0be4 e01c | | Load 0x0,0x1c
0be5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0be6 6821 |h! | Jump_Zero 0xc08
0be7 e9ff | | Load 0x4,-0x1
0be8 e01c | | Load 0x0,0x1c
0be9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bea c802 | | Store 0x4,0x2
0beb 00cf | | Action Mark_Auxiliary
0bec 7818 |x | Jump 0xc05
0bed 00da | | Load_Top At_Offset_2
0bee 00eb | | Load_Encached Diana_Cache
0bef 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0bf0 c803 | | Store 0x4,0x3
0bf1 4801 |H | Short_Literal 0x1
0bf2 0092 0d37 | 7| Action Push_String_Extended,0xd37 ; "inline"
0bf4 00db | | Load_Top At_Offset_3
0bf5 00eb | | Load_Encached Diana_Cache
0bf6 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0bf7 00eb | | Load_Encached Diana_Cache
0bf8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0bf9 00eb | | Load_Encached Diana_Cache
0bfa 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0bfb e02f | / | Load 0x0,0x2f
0bfc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0bfd 6802 |h | Jump_Zero 0xc00
0bfe 4801 |H | Short_Literal 0x1
0bff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c00 00da | | Load_Top At_Offset_2
0c01 0217 | | Execute Heap_Access,All_Reference
0c02 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c03 c802 | | Store 0x4,0x2
0c04 00c9 | | Action Pop_Auxiliary_Loop
0c05 00da | | Load_Top At_Offset_2
0c06 77e6 |w | Jump_Nonzero 0xbed
0c07 00ce | | Action Pop_Auxiliary
0c08 4800 |H | Short_Literal 0x0
0c09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c0a 0000 0000 | | .BLANK 0000[0x6]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c13 | | .CONST 0x0c13 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0001 | | .CONST 0x0001 ; Number of locals
0c13 BODY_0c10:
0c13 INIT_0c10:
0c13 00da | | Load_Top At_Offset_2
0c14 4974 |It | Short_Literal 0x174
0c15 00eb | | Load_Encached Diana_Cache
0c16 0098 | | Execute Package,Field_Read_Dynamic
0c17 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c18 e5fc | | Load 0x2,-0x4
0c19 012f | / | Execute Any,Equal
0c1a 0f00 | | Execute_Immediate Equal,0x0
0c1b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c1c 0000 0000 | | .BLANK 0000[0x4]
0c20 ; --------------------------------------------------------------------------------------
0c20 ; SUBPROGRAM
0c20 ; --------------------------------------------------------------------------------------
0c20 0c29 | ) | .CONST 0x0c29 ; Address of begin
0c21 0004 | | .CONST 0x0004 ; Address of exception handler
0c22 0004 | | .CONST 0x0004 ; Number of locals
0c23 INIT_0c20:
0c23 e212 | | Load 0x1,0x12
0c24 0007 | | Action Break_Optional
0c25 029f 0cab | | Declare_Subprogram INIT_0ca8,For_Call
0c27 029f 0cbb | | Declare_Subprogram INIT_0cb8,For_Call
0c29 BODY_0c20:
0c29 e212 | | Load 0x1,0x12
0c2a e5f9 | | Load 0x2,-0x7
0c2b 8256 | V | Call 0x1,0x56
0c2c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0c2d 00da | | Load_Top At_Offset_2
0c2e 8803 | | Call 0x4,0x3
0c2f 00da | | Load_Top At_Offset_2
0c30 8804 | | Call 0x4,0x4
0c31 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c32 0000 0000 | | .BLANK 0000[0x6]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c49 | I | .CONST 0x0c49 ; Address of begin
0c39 0004 | | .CONST 0x0004 ; Address of exception handler
0c3a 0004 | | .CONST 0x0004 ; Number of locals
0c3b INIT_0c38:
0c3b 00ef | | Load_Encached Diana_Sequence_Cache
0c3c 02c7 | | Declare_Variable Any
0c3d 00db | | Load_Top At_Offset_3
0c3e 00eb | | Load_Encached Diana_Cache
0c3f 18ed | | Execute Package,Field_Execute,Field_Number 0xed
0c40 a802 | | Store_Unchecked 0x4,0x2
0c41 00ec | | Load_Encached Diana_Tree_Cache
0c42 02c7 | | Declare_Variable Any
0c43 00d8 | | Load_Top At_Offset_0
0c44 1c00 | | Execute_Immediate Run_Utility,0x0
0c45 00ec | | Load_Encached Diana_Tree_Cache
0c46 02c7 | | Declare_Variable Any
0c47 00d8 | | Load_Top At_Offset_0
0c48 1c00 | | Execute_Immediate Run_Utility,0x0
0c49 BODY_0c38:
0c49 00cf | | Action Mark_Auxiliary
0c4a 7823 |x# | Jump 0xc6e
0c4b 00db | | Load_Top At_Offset_3
0c4c 00eb | | Load_Encached Diana_Cache
0c4d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0c4e c803 | | Store 0x4,0x3
0c4f 00da | | Load_Top At_Offset_2
0c50 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0c51 0f10 | | Execute_Immediate Equal,0x10
0c52 6816 |h | Jump_Zero 0xc69
0c53 00da | | Load_Top At_Offset_2
0c54 00eb | | Load_Encached Diana_Cache
0c55 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0c56 4976 |Iv | Short_Literal 0x176
0c57 00eb | | Load_Encached Diana_Cache
0c58 0098 | | Execute Package,Field_Read_Dynamic
0c59 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c5a c804 | | Store 0x4,0x4
0c5b 00d9 | | Load_Top At_Offset_1
0c5c 8606 | | Call 0x3,0x6
0c5d 680b |h | Jump_Zero 0xc69
0c5e 00d9 | | Load_Top At_Offset_1
0c5f 8267 | g | Call 0x1,0x67
0c60 c804 | | Store 0x4,0x4
0c61 00d9 | | Load_Top At_Offset_1
0c62 8607 | | Call 0x3,0x7
0c63 6805 |h | Jump_Zero 0xc69
0c64 e5fa | | Load 0x2,-0x6
0c65 e5f9 | | Load 0x2,-0x7
0c66 e5fb | | Load 0x2,-0x5
0c67 e804 | | Load 0x4,0x4
0c68 85fe | | Call 0x2,-0x2
0c69 00db | | Load_Top At_Offset_3
0c6a 0217 | | Execute Heap_Access,All_Reference
0c6b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c6c c802 | | Store 0x4,0x2
0c6d 00c9 | | Action Pop_Auxiliary_Loop
0c6e 00db | | Load_Top At_Offset_3
0c6f 77db |w | Jump_Nonzero 0xc4b
0c70 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c71 0000 0000 | | .BLANK 0000[0x7]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c7b | { | .CONST 0x0c7b ; Address of begin
0c79 0004 | | .CONST 0x0004 ; Address of exception handler
0c7a 0001 | | .CONST 0x0001 ; Number of locals
0c7b BODY_0c78:
0c7b INIT_0c78:
0c7b 00da | | Load_Top At_Offset_2
0c7c e001 | | Load 0x0,0x1
0c7d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0c7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c7f e5fd | | Load 0x2,-0x3
0c80 012e | . | Execute Any,Not_Equal
0c81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c82 0000 0000 | | .BLANK 0000[0x6]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c90 | | .CONST 0x0c90 ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0002 | | .CONST 0x0002 ; Number of locals
0c8b INIT_0c88:
0c8b e001 | | Load 0x0,0x1
0c8c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0c8d 02c7 | | Declare_Variable Any
0c8e 00d8 | | Load_Top At_Offset_0
0c8f 1c00 | | Execute_Immediate Run_Utility,0x0
0c90 BODY_0c88:
0c90 00d8 | | Load_Top At_Offset_0
0c91 0120 | | Execute Any,Is_Value
0c92 6803 |h | Jump_Zero 0xc96
0c93 e001 | | Load 0x0,0x1
0c94 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0c95 7801 |x | Jump 0xc97
0c96 00d8 | | Load_Top At_Offset_0
0c97 4801 |H | Short_Literal 0x1
0c98 e404 | | Load 0x2,0x4
0c99 e5fd | | Load 0x2,-0x3
0c9a e5fc | | Load 0x2,-0x4
0c9b e001 | | Load 0x0,0x1
0c9c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0c9d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c9e c802 | | Store 0x4,0x2
0c9f 00d8 | | Load_Top At_Offset_0
0ca0 e001 | | Load 0x0,0x1
0ca1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ca2 e7ff | | Load 0x3,-0x1
0ca3 0217 | | Execute Heap_Access,All_Reference
0ca4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0ca5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ca6 0000 0000 | | .XXX[0x2]
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0cab | | .CONST 0x0cab ; Address of begin
0ca9 0004 | | .CONST 0x0004 ; Address of exception handler
0caa 0001 | | .CONST 0x0001 ; Number of locals
0cab BODY_0ca8:
0cab INIT_0ca8:
0cab e21c | | Load 0x1,0x1c
0cac 00db | | Load_Top At_Offset_3
0cad 0217 | | Execute Heap_Access,All_Reference
0cae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0caf e9ff | | Load 0x4,-0x1
0cb0 8265 | e | Call 0x1,0x65
0cb1 00db | | Load_Top At_Offset_3
0cb2 0217 | | Execute Heap_Access,All_Reference
0cb3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0cb4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cb5 0000 0000 | | .XXX[0x3]
0cb7 0000 | |
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cc4 | | .CONST 0x0cc4 ; Address of begin
0cb9 0004 | | .CONST 0x0004 ; Address of exception handler
0cba 0003 | | .CONST 0x0003 ; Number of locals
0cbb INIT_0cb8:
0cbb e5fb | | Load 0x2,-0x5
0cbc 0217 | | Execute Heap_Access,All_Reference
0cbd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cbe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cbf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0cc0 e21c | | Load 0x1,0x1c
0cc1 0216 | | Execute Heap_Access,Convert
0cc2 e21c | | Load 0x1,0x1c
0cc3 0007 | | Action Break_Optional
0cc4 BODY_0cb8:
0cc4 00d9 | | Load_Top At_Offset_1
0cc5 7007 |p | Jump_Nonzero 0xccd
0cc6 ebff | | Load 0x5,-0x1
0cc7 e5fb | | Load 0x2,-0x5
0cc8 0217 | | Execute Heap_Access,All_Reference
0cc9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ccb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0ccc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ccd 00d9 | | Load_Top At_Offset_1
0cce 0217 | | Execute Heap_Access,All_Reference
0ccf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0cd0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cd1 00cf | | Action Mark_Auxiliary
0cd2 7807 |x | Jump 0xcda
0cd3 00d9 | | Load_Top At_Offset_1
0cd4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0cd5 00d9 | | Load_Top At_Offset_1
0cd6 0217 | | Execute Heap_Access,All_Reference
0cd7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0cd8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0cd9 00c9 | | Action Pop_Auxiliary_Loop
0cda 00d9 | | Load_Top At_Offset_1
0cdb 77f7 |w | Jump_Nonzero 0xcd3
0cdc 00ce | | Action Pop_Auxiliary
0cdd ebff | | Load 0x5,-0x1
0cde e21c | | Load 0x1,0x1c
0cdf 0216 | | Execute Heap_Access,Convert
0ce0 00da | | Load_Top At_Offset_2
0ce1 0217 | | Execute Heap_Access,All_Reference
0ce2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0ce3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ce4 0000 0000 | | .BLANK 0000[0x4]
0ce8 ; --------------------------------------------------------------------------------------
0ce8 ; SUBPROGRAM
0ce8 ; --------------------------------------------------------------------------------------
0ce8 0ceb | | .CONST 0x0ceb ; Address of begin
0ce9 0004 | | .CONST 0x0004 ; Address of exception handler
0cea 0001 | | .CONST 0x0001 ; Number of locals
0ceb BODY_0ce8:
0ceb INIT_0ce8:
0ceb 4608 |F | Jump_Case 0x9
0cec 7808 |x | Jump 0xcf5 ; case 0x0
0ced 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0cee 781b |x | Jump 0xd0a ; case 0x2
0cef 781a |x | Jump 0xd0a ; case 0x3
0cf0 7819 |x | Jump 0xd0a ; case 0x4
0cf1 7818 |x | Jump 0xd0a ; case 0x5
0cf2 7817 |x | Jump 0xd0a ; case 0x6
0cf3 7816 |x | Jump 0xd0a ; case 0x7
0cf4 7815 |x | Jump 0xd0a ; case 0x8
0cf5 00da | | Load_Top At_Offset_2
0cf6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cf7 0125 | % | Execute Any,Set_Constraint
0cf8 00da | | Load_Top At_Offset_2
0cf9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cfa 1c00 | | Execute_Immediate Run_Utility,0x0
0cfb 00da | | Load_Top At_Offset_2
0cfc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0cfd 0125 | % | Execute Any,Set_Constraint
0cfe 00ec | | Load_Encached Diana_Tree_Cache
0cff 00db | | Load_Top At_Offset_3
0d00 00d9 | | Load_Top At_Offset_1
0d01 00d9 | | Load_Top At_Offset_1
0d02 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0d03 0119 | | Execute Any,Check_In_Formal_Type
0d04 00d1 | | Pop_Control Pop_Count_1
0d05 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0d06 4800 |H | Short_Literal 0x0
0d07 00db | | Load_Top At_Offset_3
0d08 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0d09 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0d0a 0869 | i | Execute_Immediate Raise,0x69
0d0b 0000 0000 | | .BLANK 0000[0x5]
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d13 | | .CONST 0x0d13 ; Address of begin
0d11 0004 | | .CONST 0x0004 ; Address of exception handler
0d12 0001 | | .CONST 0x0001 ; Number of locals
0d13 BODY_0d10:
0d13 INIT_0d10:
0d13 4608 |F | Jump_Case 0x9
0d14 7808 |x | Jump 0xd1d ; case 0x0
0d15 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0d16 780d |x | Jump 0xd24 ; case 0x2
0d17 780c |x | Jump 0xd24 ; case 0x3
0d18 780b |x | Jump 0xd24 ; case 0x4
0d19 780a |x | Jump 0xd24 ; case 0x5
0d1a 7809 |x | Jump 0xd24 ; case 0x6
0d1b 7808 |x | Jump 0xd24 ; case 0x7
0d1c 7807 |x | Jump 0xd24 ; case 0x8
0d1d 00da | | Load_Top At_Offset_2
0d1e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d1f 0125 | % | Execute Any,Set_Constraint
0d20 00da | | Load_Top At_Offset_2
0d21 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d22 1c00 | | Execute_Immediate Run_Utility,0x0
0d23 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0d24 0869 | i | Execute_Immediate Raise,0x69
0d25 ; --------------------------------------------------------------------------------------
0d25 ; STRING TABLE
0d25 ; --------------------------------------------------------------------------------------
0d25 0028 | ( | .STRTAB 0x0028->0x0d39 ; "UNIT_INSTALL"
0d26 0032 | 2 | .STRTAB 0x0032->0x0d3f ; "ITEM_INSTALL"
0d27 003c | < | .STRTAB 0x003c->0x0d45 ; "target-dependent unit"
0d28 004f | O | .STRTAB 0x004f->0x0d4f ; "call"
0d29 0051 | Q | .STRTAB 0x0051->0x0d51 ; "defn"
0d2a 0053 | S | .STRTAB 0x0053->0x0d53 ; "Null target-dependent header"
0d2b 006d | m | .STRTAB 0x006d->0x0d61 ; "Item on target-dependent unit free list has a non-null list of calls"
0d2c 00b0 | | .STRTAB 0x00b0->0x0d84 ; "Item on target-dependent unit free list has a non-null list of defns"
0d2d 00f2 | | .STRTAB 0x00f2->0x0da6 ; "A calls node on the free list has a non-null link"
0d2e 0121 | ! | .STRTAB 0x0121->0x0dbe ; "A defns node on the free list has a non-null link"
0d2f 0150 | P | .STRTAB 0x0150->0x0dd7 ; "INLINE"
0d30 0154 | T | .STRTAB 0x0154->0x0dda ; "Incremental insertion and removal of pragma Inline with RCI is disallowed"
0d31 019b | | .STRTAB 0x019b->0x0dfe ; "Error while obtaining object for "
0d32 01ba | | .STRTAB 0x01ba->0x0e0f ; ": "
0d33 01ba | | .STRTAB 0x01ba->0x0e10 ; "Error while obtaining enclosing world for "
0d34 01e2 | | .STRTAB 0x01e2->0x0e25 ; " is not a combined or spec view"
0d35 01ff | | .STRTAB 0x01ff->0x0e34 ; "Unhandled exception: "
0d36 0212 | | .STRTAB 0x0212->0x0e3f ; " encountered while installing "
0d37 022e | . | .STRTAB 0x022e->0x0e4e ; "inline"
0d38 0232 | 2 | .STREND 0x0232->0x0e51
0d39 554e 4954 |UNIT| .STRTAB_STRINGS
0e51 0000 0000 | | .BLANK 0000[0x7]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; Debug Table
0e58 ; --------------------------------------------------------------------------------------
0e58 0004 000f | | .DEBUG4 0x0004,0x000f,0x331b,0x0000,0x0001,0x0000
0e5e 0404 0404 | | .BLANK 0404[0x49]
0ea7 040e 4cae | L | .XXX[0x12]
0ea9 8eae 4dc4 | M |
0eab 09ec 4d4c | ML|
0ead ae85 c9cd | |
0eaf edac 4e4c | NL|
0eb1 a407 a409 | |
0eb3 ac2f 0be8 | / |
0eb5 ad8c adac | |
0eb7 adce 8764 | d|
0eb9 0404 0404 | | .BLANK 0404[0x3c]
0ef5 040c adcc | | .XXX[0x6]
0ef7 840a 0d8c | |
0ef9 ad2d c764 | - d|
0efb 0404 0404 | | .BLANK 0404[0xea]
0fe5 040c cead | | .XXX[0x1b]
0fe7 cc6e 8d2d | n -|
0fe9 edc4 08af | |
0feb 0d2e 6e8c | .n |
0fed a405 0a6c | l|
0fef 2c64 0744 |,d D|
0ff1 09ec 4d4c | ML|
0ff3 ae87 6409 | d |
0ff5 cded a407 | |
0ff7 4408 6d0c |D m |
0ff9 2d2d cca5 |-- |
0ffb c9ec 4d4c | ML|
0ffd ae85 240e | $ |
0fff 4cae |L |