|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0d60 | ` | .CONST 0x0d60 ; 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 01c6 | | .CONST 0x01c6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0083 | | .CONST 0x0083 ; 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 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0011 029a 01db | | Declare_Subprogram INIT_01d8,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 0bfb | | Declare_Subprogram INIT_0bf8,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 0c23 | #| Declare_Subprogram INIT_0c20,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 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0093 c228 | ( | Store 0x1,0x28
0094 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0096 c229 | ) | Store 0x1,0x29
0097 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0099 c230 | 0 | Store 0x1,0x30
009a 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
009c c231 | 1 | Store 0x1,0x31
009d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
009f c232 | 2 | Store 0x1,0x32
00a0 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
00a2 c238 | 8 | Store 0x1,0x38
00a3 029a 026b | k| Declare_Subprogram INIT_0268,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 02db | | Declare_Subprogram INIT_02d8,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 030b | | Declare_Subprogram INIT_0308,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 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
00e4 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
00e6 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
00e8 029d 0363 | c| Declare_Subprogram INIT_0360,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 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
00f6 029d 038b | | Declare_Subprogram INIT_0388,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 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
0118 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
011a 029d 03b3 | | Declare_Subprogram INIT_03b0,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 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
012d 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
012f 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
0131 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
0133 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
0135 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
0137 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
0139 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
013b 029d 045b | [| Declare_Subprogram INIT_0458,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 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
0151 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
0153 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
0155 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call
0157 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call
0159 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
015b 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
015d 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
015f 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
0161 029b 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Unelaborated
0163 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
0164 00c7 | | Action Elaborate_Subprogram
0165 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
0167 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
0169 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
016b 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
016d 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
016f 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
0171 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
0173 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
0175 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
0177 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
0179 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
017b 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call
017d 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
017f 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
0181 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call
0183 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
0185 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
0187 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call
0189 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
018b 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
018d 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
018f 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call
0191 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
0193 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
0195 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call
0197 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call
0199 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call
019b 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call
019d e00e | | Load 0x0,0xe
019e e00f | | Load 0x0,0xf
019f 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01a0 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
01a1 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
01a2 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
01a3 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
01a4 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
01a5 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
01a6 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
01a7 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
01a8 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
01a9 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
01aa 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
01ab 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
01ac 1d80 | | Execute_Immediate Reference_Lex_1,0x80
01ad 1d81 | | Execute_Immediate Reference_Lex_1,0x81
01ae 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
01af 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
01b0 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
01b1 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
01b2 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
01b3 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
01b4 1d74 | t | Execute_Immediate Reference_Lex_1,0x74
01b5 1d75 | u | Execute_Immediate Reference_Lex_1,0x75
01b6 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
01b7 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
01b8 1d76 | v | Execute_Immediate Reference_Lex_1,0x76
01b9 1d82 | | Execute_Immediate Reference_Lex_1,0x82
01ba 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
01bb 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
01bc 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
01bd 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
01be 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b
01bf 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
01c0 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c
01c1 e010 | | Load 0x0,0x10
01c2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c3 0387 | | Declare_Variable Package
01c4 00d8 | | Load_Top At_Offset_0
01c5 020f | | Execute Module,Activate
01c6 BODY_0008:
01c6 e011 | | Load 0x0,0x11
01c7 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c8 00d9 | | Load_Top At_Offset_1
01c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01ca e010 | | Load 0x0,0x10
01cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01cc 8012 | | Call 0x0,0x12
01cd 00bc | | Action Signal_Activated
01ce 00bb | | Action Signal_Completion
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e23c | < | Load 0x1,0x3c
01d4 00ca | | Action Exit_Nullary_Function
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc e001 | | Load 0x0,0x1
01dd 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01df e245 | E | Load 0x1,0x45
01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e1 0217 | | Execute Heap_Access,All_Reference
01e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e001 | | Load 0x0,0x1
01ed 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ef 6804 |h | Jump_Zero 0x1f4
01f0 e001 | | Load 0x0,0x1
01f1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f3 0257 | W | Execute Discrete,Raise
01f4 00da | | Load_Top At_Offset_2
01f5 e001 | | Load 0x0,0x1
01f6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01f8 e245 | E | Load 0x1,0x45
01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01fa 0217 | | Execute Heap_Access,All_Reference
01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e001 | | Load 0x0,0x1
0205 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0206 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0207 6804 |h | Jump_Zero 0x20c
0208 e001 | | Load 0x0,0x1
0209 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
020a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020b 0257 | W | Execute Discrete,Raise
020c 00da | | Load_Top At_Offset_2
020d e001 | | Load 0x0,0x1
020e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
020f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0210 e245 | E | Load 0x1,0x45
0211 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0212 0217 | | Execute Heap_Access,All_Reference
0213 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0214 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0215 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0217 0000 | | .XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0227 | ' | .CONST 0x0227 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0005 | | .CONST 0x0005 ; Number of locals
021b INIT_0218:
021b e22d | - | Load 0x1,0x2d
021c 0007 | | Action Break_Optional
021d e5fe | | Load 0x2,-0x2
021e 8248 | H | Call 0x1,0x48
021f 00d8 | | Load_Top At_Offset_0
0220 0217 | | Execute Heap_Access,All_Reference
0221 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0222 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0223 e22f | / | Load 0x1,0x2f
0224 0216 | | Execute Heap_Access,Convert
0225 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
0227 BODY_0218:
0227 e22d | - | Load 0x1,0x2d
0228 e5fd | | Load 0x2,-0x3
0229 8258 | X | Call 0x1,0x58
022a c402 | | Store 0x2,0x2
022b e5ff | | Load 0x2,-0x1
022c e402 | | Load 0x2,0x2
022d 0217 | | Execute Heap_Access,All_Reference
022e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
022f e22f | / | Load 0x1,0x2f
0230 e402 | | Load 0x2,0x2
0231 0217 | | Execute Heap_Access,All_Reference
0232 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0233 00db | | Load_Top At_Offset_3
0234 8405 | | Call 0x2,0x5
0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 0833 | 3 | Execute_Immediate Raise,0x33
023c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0244 e001 | | Load 0x0,0x1
0245 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0247 6804 |h | Jump_Zero 0x24c
0248 e001 | | Load 0x0,0x1
0249 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024b 0257 | W | Execute Discrete,Raise
024c 00da | | Load_Top At_Offset_2
024d e001 | | Load 0x0,0x1
024e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
024f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0250 e245 | E | Load 0x1,0x45
0251 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0252 0217 | | Execute Heap_Access,All_Reference
0253 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0254 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025d | ] | .CONST 0x025d ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b 029f 080b | | Declare_Subprogram INIT_0808,For_Call
025d BODY_0258:
025d 00db | | Load_Top At_Offset_3
025e e001 | | Load 0x0,0x1
025f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0260 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0261 6804 |h | Jump_Zero 0x266
0262 e001 | | Load 0x0,0x1
0263 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0265 0257 | W | Execute Discrete,Raise
0266 8402 | | Call 0x2,0x2
0267 0831 | 1 | Execute_Immediate Raise,0x31
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0287 | | .CONST 0x0287 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 000b | | .CONST 0x000b ; Number of locals
026b INIT_0268:
026b 00ed | | Load_Encached Diana_Symbol_Rep_Cache
026c 02c7 | | Declare_Variable Any
026d 00d8 | | Load_Top At_Offset_0
026e 1c00 | | Execute_Immediate Run_Utility,0x0
026f 00eb | | Load_Encached Diana_Cache
0270 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0271 00ec | | Load_Encached Diana_Tree_Cache
0272 02c7 | | Declare_Variable Any
0273 00d8 | | Load_Top At_Offset_0
0274 1c00 | | Execute_Immediate Run_Utility,0x0
0275 00e3 | | Load_Encached Natural_Cache
0276 00e1 | | Load_Encached Boolean_Cache
0277 00e1 | | Load_Encached Boolean_Cache
0278 e013 | | Load 0x0,0x13
0279 1b14 | | Execute Package,Field_Read,Field_Number 0x14
027a 02ff | | Declare_Variable Variant_Record
027b 00d8 | | Load_Top At_Offset_0
027c 1c00 | | Execute_Immediate Run_Utility,0x0
027d e014 | | Load 0x0,0x14
027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
027f e5fe | | Load 0x2,-0x2
0280 e014 | | Load 0x0,0x14
0281 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0282 e014 | | Load 0x0,0x14
0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0284 03f1 | | Declare_Variable Discrete,With_Value
0285 e5ff | | Load 0x2,-0x1
0286 8248 | H | Call 0x1,0x48
0287 BODY_0268:
0287 00d8 | | Load_Top At_Offset_0
0288 0217 | | Execute Heap_Access,All_Reference
0289 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028a 680c |h | Jump_Zero 0x297
028b 00d8 | | Load_Top At_Offset_0
028c 0219 | | Execute Heap_Access,All_Read
028d 00d8 | | Load_Top At_Offset_0
028e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028f e5ff | | Load 0x2,-0x1
0290 e001 | | Load 0x0,0x1
0291 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0292 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0293 825b | [ | Call 0x1,0x5b
0294 00d9 | | Load_Top At_Offset_1
0295 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0296 00d1 | | Pop_Control Pop_Count_1
0297 00d8 | | Load_Top At_Offset_0
0298 0219 | | Execute Heap_Access,All_Read
0299 e241 | A | Load 0x1,0x41
029a 00db | | Load_Top At_Offset_3
029b 4801 |H | Short_Literal 0x1
029c e5ff | | Load 0x2,-0x1
029d e001 | | Load 0x0,0x1
029e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
029f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a0 825a | Z | Call 0x1,0x5a
02a1 00d9 | | Load_Top At_Offset_1
02a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a3 00d1 | | Pop_Control Pop_Count_1
02a4 00cf | | Action Mark_Auxiliary
02a5 00da | | Load_Top At_Offset_2
02a6 4801 |H | Short_Literal 0x1
02a7 0263 | c | Execute Discrete,Above_Bound
02a8 7029 |p) | Jump_Nonzero 0x2d2
02a9 e014 | | Load 0x0,0x14
02aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ab e408 | | Load 0x2,0x8
02ac 00e1 | | Load_Encached Boolean_Cache
02ad 00e1 | | Load_Encached Boolean_Cache
02ae 00e3 | | Load_Encached Natural_Cache
02af e404 | | Load 0x2,0x4
02b0 0120 | | Execute Any,Is_Value
02b1 6802 |h | Jump_Zero 0x2b4
02b2 00ec | | Load_Encached Diana_Tree_Cache
02b3 7801 |x | Jump 0x2b5
02b4 e404 | | Load 0x2,0x4
02b5 00eb | | Load_Encached Diana_Cache
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 e402 | | Load 0x2,0x2
02b8 0120 | | Execute Any,Is_Value
02b9 6802 |h | Jump_Zero 0x2bc
02ba 00ed | | Load_Encached Diana_Symbol_Rep_Cache
02bb 7801 |x | Jump 0x2bd
02bc e402 | | Load 0x2,0x2
02bd e40e | | Load 0x2,0xe
02be e5fe | | Load 0x2,-0x2
02bf e014 | | Load 0x0,0x14
02c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c1 c402 | | Store 0x2,0x2
02c2 c403 | | Store 0x2,0x3
02c3 c404 | | Store 0x2,0x4
02c4 c405 | | Store 0x2,0x5
02c5 c406 | | Store 0x2,0x6
02c6 c407 | | Store 0x2,0x7
02c7 00d1 | | Pop_Control Pop_Count_1
02c8 c409 | | Store 0x2,0x9
02c9 e404 | | Load 0x2,0x4
02ca 00d9 | | Load_Top At_Offset_1
02cb e40b | | Load 0x2,0xb
02cc 0217 | | Execute Heap_Access,All_Reference
02cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ce 0217 | | Execute Heap_Access,All_Reference
02cf 01d6 | | Execute Vector,Field_Write
02d0 00c8 | | Action Pop_Auxiliary_Range
02d1 3fd7 |? | Loop_Increasing 0x2a9
02d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 4608 |F | Jump_Case 0x9
02dc 7808 |x | Jump 0x2e5 ; case 0x0
02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02de 7825 |x% | Jump 0x304 ; case 0x2
02df 7824 |x$ | Jump 0x304 ; case 0x3
02e0 7823 |x# | Jump 0x304 ; case 0x4
02e1 7822 |x" | Jump 0x304 ; case 0x5
02e2 7821 |x! | Jump 0x304 ; case 0x6
02e3 7820 |x | Jump 0x304 ; case 0x7
02e4 781f |x | Jump 0x304 ; case 0x8
02e5 00da | | Load_Top At_Offset_2
02e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e7 0125 | % | Execute Any,Set_Constraint
02e8 00da | | Load_Top At_Offset_2
02e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02ea 1c00 | | Execute_Immediate Run_Utility,0x0
02eb 00da | | Load_Top At_Offset_2
02ec 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ed 0125 | % | Execute Any,Set_Constraint
02ee 00da | | Load_Top At_Offset_2
02ef 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02f0 1c00 | | Execute_Immediate Run_Utility,0x0
02f1 00da | | Load_Top At_Offset_2
02f2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02f3 0125 | % | Execute Any,Set_Constraint
02f4 00da | | Load_Top At_Offset_2
02f5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02f6 1c00 | | Execute_Immediate Run_Utility,0x0
02f7 00da | | Load_Top At_Offset_2
02f8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02f9 0125 | % | Execute Any,Set_Constraint
02fa 00da | | Load_Top At_Offset_2
02fb 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02fc 1c00 | | Execute_Immediate Run_Utility,0x0
02fd 00da | | Load_Top At_Offset_2
02fe 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02ff 0125 | % | Execute Any,Set_Constraint
0300 00da | | Load_Top At_Offset_2
0301 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0302 1c00 | | Execute_Immediate Run_Utility,0x0
0303 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0304 0869 | i | Execute_Immediate Raise,0x69
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4607 |F | Jump_Case 0x8
030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
030d 7806 |x | Jump 0x314 ; case 0x1
030e 7809 |x | Jump 0x318 ; case 0x2
030f 780d |x | Jump 0x31d ; case 0x3
0310 7810 |x | Jump 0x321 ; case 0x4
0311 7811 |x | Jump 0x323 ; case 0x5
0312 7812 |x | Jump 0x325 ; case 0x6
0313 7815 |x | Jump 0x329 ; case 0x7
0314 00da | | Load_Top At_Offset_2
0315 0091 0c35 | 5| Action Push_String_Extended_Indexed,0xc35 ; "UNIT_INSTALL"
0317 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0318 00db | | Load_Top At_Offset_3
0319 00db | | Load_Top At_Offset_3
031a 00e0 | | Load_Encached Standard_Cache
031b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
031c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031d 00da | | Load_Top At_Offset_2
031e 00e0 | | Load_Encached Standard_Cache
031f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0320 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0321 00db | | Load_Top At_Offset_3
0322 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0323 00db | | Load_Top At_Offset_3
0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0325 e244 | D | Load 0x1,0x44
0326 00dc | | Load_Top At_Offset_4
0327 0267 | g | Execute Discrete,Predecessor
0328 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0329 e244 | D | Load 0x1,0x44
032a 00dc | | Load_Top At_Offset_4
032b 0268 | h | Execute Discrete,Successor
032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 e001 | | Load 0x0,0x1
0335 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0336 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0337 e245 | E | Load 0x1,0x45
0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033a 0000 0000 | | .BLANK 0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00db | | Load_Top At_Offset_3
0344 e245 | E | Load 0x1,0x45
0345 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0346 00db | | Load_Top At_Offset_3
0347 e001 | | Load 0x0,0x1
0348 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0349 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034b 0000 0000 | | .BLANK 0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 e001 | | Load 0x0,0x1
0355 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0356 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0357 e245 | E | Load 0x1,0x45
0358 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0359 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00db | | Load_Top At_Offset_3
0364 e245 | E | Load 0x1,0x45
0365 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0366 00db | | Load_Top At_Offset_3
0367 e001 | | Load 0x0,0x1
0368 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0369 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
036a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 8246 | F | Call 0x1,0x46
0375 0219 | | Execute Heap_Access,All_Read
0376 e24a | J | Load 0x1,0x4a
0377 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0378 00d9 | | Load_Top At_Offset_1
0379 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037a e5ff | | Load 0x2,-0x1
037b e24a | J | Load 0x1,0x4a
037c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037d 00da | | Load_Top At_Offset_2
037e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
037f c5fe | | Store 0x2,-0x2
0380 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c 8246 | F | Call 0x1,0x46
038d 0219 | | Execute Heap_Access,All_Read
038e e5fe | | Load 0x2,-0x2
038f 00d9 | | Load_Top At_Offset_1
0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0391 e5ff | | Load 0x2,-0x1
0392 e24a | J | Load 0x1,0x4a
0393 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0394 00da | | Load_Top At_Offset_2
0395 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0396 c5fe | | Store 0x2,-0x2
0397 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3
039c e5fd | | Load 0x2,-0x3
039d e241 | A | Load 0x1,0x41
039e e5ff | | Load 0x2,-0x1
039f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
03a0 00d8 | | Load_Top At_Offset_0
03a1 0217 | | Execute Heap_Access,All_Reference
03a2 1c00 | | Execute_Immediate Run_Utility,0x0
03a3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 0217 | | Execute Heap_Access,All_Reference
03ad 01dd | | Execute Vector,First
03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03af 0000 | | .XXX[0x1]
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 01dc | | Execute Vector,Last
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 8246 | F | Call 0x1,0x46
03bd 0219 | | Execute Heap_Access,All_Read
03be e24d | M | Load 0x1,0x4d
03bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03c0 00d9 | | Load_Top At_Offset_1
03c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c2 e5ff | | Load 0x2,-0x1
03c3 e24d | M | Load 0x1,0x4d
03c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c5 00da | | Load_Top At_Offset_2
03c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03c7 c5fe | | Store 0x2,-0x2
03c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c9 0000 0000 | | .BLANK 0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 8246 | F | Call 0x1,0x46
03d5 0219 | | Execute Heap_Access,All_Read
03d6 e5fe | | Load 0x2,-0x2
03d7 00d9 | | Load_Top At_Offset_1
03d8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d9 e5ff | | Load 0x2,-0x1
03da e24d | M | Load 0x1,0x4d
03db 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03dc 00da | | Load_Top At_Offset_2
03dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03de c5fe | | Store 0x2,-0x2
03df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 8246 | F | Call 0x1,0x46
03e5 0219 | | Execute Heap_Access,All_Read
03e6 e24e | N | Load 0x1,0x4e
03e7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03e8 00d9 | | Load_Top At_Offset_1
03e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ea e5ff | | Load 0x2,-0x1
03eb e24e | N | Load 0x1,0x4e
03ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ed 00da | | Load_Top At_Offset_2
03ee 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03ef c5fe | | Store 0x2,-0x2
03f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f1 0000 0000 | | .BLANK 0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 8246 | F | Call 0x1,0x46
03fd 0219 | | Execute Heap_Access,All_Read
03fe e5fe | | Load 0x2,-0x2
03ff 00d9 | | Load_Top At_Offset_1
0400 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0401 e5ff | | Load 0x2,-0x1
0402 e24e | N | Load 0x1,0x4e
0403 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0404 00da | | Load_Top At_Offset_2
0405 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0406 c5fe | | Store 0x2,-0x2
0407 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 8246 | F | Call 0x1,0x46
040d 0219 | | Execute Heap_Access,All_Read
040e e24f | O | Load 0x1,0x4f
040f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0410 00d9 | | Load_Top At_Offset_1
0411 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0412 e5ff | | Load 0x2,-0x1
0413 e24f | O | Load 0x1,0x4f
0414 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0415 00da | | Load_Top At_Offset_2
0416 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0417 c5fe | | Store 0x2,-0x2
0418 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0419 0000 0000 | | .BLANK 0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 8246 | F | Call 0x1,0x46
0425 0219 | | Execute Heap_Access,All_Read
0426 e5fe | | Load 0x2,-0x2
0427 00d9 | | Load_Top At_Offset_1
0428 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0429 e5ff | | Load 0x2,-0x1
042a e24f | O | Load 0x1,0x4f
042b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
042c 00da | | Load_Top At_Offset_2
042d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
042e c5fe | | Store 0x2,-0x2
042f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 8246 | F | Call 0x1,0x46
0435 0219 | | Execute Heap_Access,All_Read
0436 e253 | S | Load 0x1,0x53
0437 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0438 00d9 | | Load_Top At_Offset_1
0439 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043a e5fd | | Load 0x2,-0x3
043b e5fe | | Load 0x2,-0x2
043c e5ff | | Load 0x2,-0x1
043d e253 | S | Load 0x1,0x53
043e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
043f 00da | | Load_Top At_Offset_2
0440 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0441 c5fc | | Store 0x2,-0x4
0442 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0443 0000 0000 | | .BLANK 0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 8246 | F | Call 0x1,0x46
044d 0219 | | Execute Heap_Access,All_Read
044e e5fe | | Load 0x2,-0x2
044f 00d9 | | Load_Top At_Offset_1
0450 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0451 e5ff | | Load 0x2,-0x1
0452 e253 | S | Load 0x1,0x53
0453 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0454 00da | | Load_Top At_Offset_2
0455 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0456 c5fe | | Store 0x2,-0x2
0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0477 | w | .CONST 0x0477 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0008 | | .CONST 0x0008 ; Number of locals
045b INIT_0458:
045b e5fd | | Load 0x2,-0x3
045c 8248 | H | Call 0x1,0x48
045d 00d8 | | Load_Top At_Offset_0
045e 0217 | | Execute Heap_Access,All_Reference
045f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0460 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0461 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0462 0007 | | Action Break_Optional
0463 e216 | | Load 0x1,0x16
0464 0007 | | Action Break_Optional
0465 00da | | Load_Top At_Offset_2
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
046a 0007 | | Action Break_Optional
046b e213 | | Load 0x1,0x13
046c 0007 | | Action Break_Optional
046d e241 | A | Load 0x1,0x41
046e e402 | | Load 0x2,0x2
046f 0217 | | Execute Heap_Access,All_Reference
0470 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0471 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0472 e001 | | Load 0x0,0x1
0473 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0474 02c7 | | Declare_Variable Any
0475 00d8 | | Load_Top At_Offset_0
0476 1c00 | | Execute_Immediate Run_Utility,0x0
0477 BODY_0458:
0477 00cf | | Action Mark_Auxiliary
0478 7820 |x | Jump 0x499
0479 e403 | | Load 0x2,0x3
047a 0217 | | Execute Heap_Access,All_Reference
047b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
047c e216 | | Load 0x1,0x16
047d 0216 | | Execute Heap_Access,Convert
047e a404 | | Store_Unchecked 0x2,0x4
047f e403 | | Load 0x2,0x3
0480 0217 | | Execute Heap_Access,All_Reference
0481 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0482 e001 | | Load 0x0,0x1
0483 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0484 c408 | | Store 0x2,0x8
0485 00d9 | | Load_Top At_Offset_1
0486 e001 | | Load 0x0,0x1
0487 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0488 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0489 6806 |h | Jump_Zero 0x490
048a 00d9 | | Load_Top At_Offset_1
048b e5ff | | Load 0x2,-0x1
048c e001 | | Load 0x0,0x1
048d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
048e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
048f c408 | | Store 0x2,0x8
0490 e403 | | Load 0x2,0x3
0491 e215 | | Load 0x1,0x15
0492 0216 | | Execute Heap_Access,Convert
0493 e5fe | | Load 0x2,-0x2
0494 8255 | U | Call 0x1,0x55
0495 c403 | | Store 0x2,0x3
0496 e404 | | Load 0x2,0x4
0497 a403 | | Store_Unchecked 0x2,0x3
0498 00c9 | | Action Pop_Auxiliary_Loop
0499 e403 | | Load 0x2,0x3
049a 77de |w | Jump_Nonzero 0x479
049b 00ce | | Action Pop_Auxiliary
049c e216 | | Load 0x1,0x16
049d e402 | | Load 0x2,0x2
049e 0217 | | Execute Heap_Access,All_Reference
049f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04a2 00cf | | Action Mark_Auxiliary
04a3 780f |x | Jump 0x4b3
04a4 e405 | | Load 0x2,0x5
04a5 0217 | | Execute Heap_Access,All_Reference
04a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a7 e213 | | Load 0x1,0x13
04a8 0216 | | Execute Heap_Access,Convert
04a9 a406 | | Store_Unchecked 0x2,0x6
04aa e405 | | Load 0x2,0x5
04ab e212 | | Load 0x1,0x12
04ac 0216 | | Execute Heap_Access,Convert
04ad e5fe | | Load 0x2,-0x2
04ae 8257 | W | Call 0x1,0x57
04af c405 | | Store 0x2,0x5
04b0 00db | | Load_Top At_Offset_3
04b1 a405 | | Store_Unchecked 0x2,0x5
04b2 00c9 | | Action Pop_Auxiliary_Loop
04b3 e405 | | Load 0x2,0x5
04b4 77ef |w | Jump_Nonzero 0x4a4
04b5 00ce | | Action Pop_Auxiliary
04b6 e213 | | Load 0x1,0x13
04b7 e402 | | Load 0x2,0x2
04b8 0217 | | Execute Heap_Access,All_Reference
04b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04ba 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04bc 00d9 | | Load_Top At_Offset_1
04bd 680d |h | Jump_Zero 0x4cb
04be 00cf | | Action Mark_Auxiliary
04bf 00da | | Load_Top At_Offset_2
04c0 0217 | | Execute Heap_Access,All_Reference
04c1 01d9 | | Execute Vector,Reverse_Bounds
04c2 0263 | c | Execute Discrete,Above_Bound
04c3 7006 |p | Jump_Nonzero 0x4ca
04c4 e407 | | Load 0x2,0x7
04c5 e5fe | | Load 0x2,-0x2
04c6 825b | [ | Call 0x1,0x5b
04c7 c407 | | Store 0x2,0x7
04c8 00c8 | | Action Pop_Auxiliary_Range
04c9 3ffa |? | Loop_Increasing 0x4c4
04ca 00ce | | Action Pop_Auxiliary
04cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04cc 0000 0000 | | .BLANK 0000[0x4]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d5 | | .CONST 0x04d5 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0002 | | .CONST 0x0002 ; Number of locals
04d3 INIT_04d0:
04d3 e23e | > | Load 0x1,0x3e
04d4 0007 | | Action Break_Optional
04d5 BODY_04d0:
04d5 e23e | > | Load 0x1,0x3e
04d6 e5fe | | Load 0x2,-0x2
04d7 e001 | | Load 0x0,0x1
04d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d9 039c | | Declare_Variable Heap_Access,By_Allocation
04da 00d8 | | Load_Top At_Offset_0
04db 0217 | | Execute Heap_Access,All_Reference
04dc 1c00 | | Execute_Immediate Run_Utility,0x0
04dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04de e001 | | Load 0x0,0x1
04df 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
04e0 00d9 | | Load_Top At_Offset_1
04e1 0217 | | Execute Heap_Access,All_Reference
04e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e3 e23c | < | Load 0x1,0x3c
04e4 00d9 | | Load_Top At_Offset_1
04e5 0217 | | Execute Heap_Access,All_Reference
04e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04e7 00d8 | | Load_Top At_Offset_0
04e8 e5fe | | Load 0x2,-0x2
04e9 8247 | G | Call 0x1,0x47
04ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04eb 0000 0000 | | .BLANK 0000[0x5]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04f4 0000 0000 | | .BLANK 0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0549 | I | .CONST 0x0549 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0021 | ! | .CONST 0x0021 ; Number of locals
04fb INIT_04f8:
04fb 00db | | Load_Top At_Offset_3
04fc 8246 | F | Call 0x1,0x46
04fd 00e1 | | Load_Encached Boolean_Cache
04fe 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call
0500 e001 | | Load 0x0,0x1
0501 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0502 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0503 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0504 00c6 | | Action Check_Subprogram_Elaborated
0505 e5ff | | Load 0x2,-0x1
0506 00d8 | | Load_Top At_Offset_0
0507 0120 | | Execute Any,Is_Value
0508 7002 |p | Jump_Nonzero 0x50b
0509 00d8 | | Load_Top At_Offset_0
050a 011e | | Execute Any,Convert
050b e242 | B | Load 0x1,0x42
050c e243 | C | Load 0x1,0x43
050d 0092 0c37 | 7| Action Push_String_Extended,0xc37 ; "target-dependent unit"
050f 4804 |H | Short_Literal 0x4
0510 4802 |H | Short_Literal 0x2
0511 0099 | | Action Reference_Dynamic
0512 4800 |H | Short_Literal 0x0
0513 e015 | | Load 0x0,0x15
0514 e016 | | Load 0x0,0x16
0515 480d |H | Short_Literal 0xd
0516 0007 | | Action Break_Optional
0517 029f 084b | K| Declare_Subprogram INIT_0848,For_Call
0519 e001 | | Load 0x0,0x1
051a 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
051b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
051c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
051d 00c6 | | Action Check_Subprogram_Elaborated
051e e5ff | | Load 0x2,-0x1
051f 00d8 | | Load_Top At_Offset_0
0520 0120 | | Execute Any,Is_Value
0521 7002 |p | Jump_Nonzero 0x524
0522 00d8 | | Load_Top At_Offset_0
0523 011e | | Execute Any,Convert
0524 e23b | ; | Load 0x1,0x3b
0525 e215 | | Load 0x1,0x15
0526 0092 0c38 | 8| Action Push_String_Extended,0xc38 ; "call"
0528 480e |H | Short_Literal 0xe
0529 4802 |H | Short_Literal 0x2
052a 0099 | | Action Reference_Dynamic
052b 4800 |H | Short_Literal 0x0
052c e017 | | Load 0x0,0x17
052d e018 | | Load 0x0,0x18
052e 4817 |H | Short_Literal 0x17
052f 0007 | | Action Break_Optional
0530 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
0532 e001 | | Load 0x0,0x1
0533 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0534 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0535 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0536 00c6 | | Action Check_Subprogram_Elaborated
0537 e5ff | | Load 0x2,-0x1
0538 00d8 | | Load_Top At_Offset_0
0539 0120 | | Execute Any,Is_Value
053a 7002 |p | Jump_Nonzero 0x53d
053b 00d8 | | Load_Top At_Offset_0
053c 011e | | Execute Any,Convert
053d e239 | 9 | Load 0x1,0x39
053e e212 | | Load 0x1,0x12
053f 0092 0c39 | 9| Action Push_String_Extended,0xc39 ; "defn"
0541 4818 |H | Short_Literal 0x18
0542 4802 |H | Short_Literal 0x2
0543 0099 | | Action Reference_Dynamic
0544 4800 |H | Short_Literal 0x0
0545 e019 | | Load 0x0,0x19
0546 e01a | | Load 0x0,0x1a
0547 4821 |H! | Short_Literal 0x21
0548 0007 | | Action Break_Optional
0549 BODY_04f8:
0549 e402 | | Load 0x2,0x2
054a 700c |p | Jump_Nonzero 0x557
054b 4802 |H | Short_Literal 0x2
054c 0092 0c3a | :| Action Push_String_Extended,0xc3a ; "Null target-dependent header"
054e e5ff | | Load 0x2,-0x1
054f e001 | | Load 0x0,0x1
0550 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0551 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0552 180f | | Execute Package,Field_Execute,Field_Number 0xf
0553 e001 | | Load 0x0,0x1
0554 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0555 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0556 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0557 e402 | | Load 0x2,0x2
0558 0217 | | Execute Heap_Access,All_Reference
0559 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
055a e405 | | Load 0x2,0x5
055b e406 | | Load 0x2,0x6
055c e407 | | Load 0x2,0x7
055d e408 | | Load 0x2,0x8
055e 4809 |H | Short_Literal 0x9
055f 4802 |H | Short_Literal 0x2
0560 0099 | | Action Reference_Dynamic
0561 e40a | | Load 0x2,0xa
0562 480b |H | Short_Literal 0xb
0563 4802 |H | Short_Literal 0x2
0564 0099 | | Action Reference_Dynamic
0565 e001 | | Load 0x0,0x1
0566 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0567 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0568 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0569 e402 | | Load 0x2,0x2
056a 0217 | | Execute Heap_Access,All_Reference
056b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
056c e40f | | Load 0x2,0xf
056d e410 | | Load 0x2,0x10
056e e411 | | Load 0x2,0x11
056f e412 | | Load 0x2,0x12
0570 4813 |H | Short_Literal 0x13
0571 4802 |H | Short_Literal 0x2
0572 0099 | | Action Reference_Dynamic
0573 e414 | | Load 0x2,0x14
0574 4815 |H | Short_Literal 0x15
0575 4802 |H | Short_Literal 0x2
0576 0099 | | Action Reference_Dynamic
0577 e001 | | Load 0x0,0x1
0578 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0579 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
057b e402 | | Load 0x2,0x2
057c 0217 | | Execute Heap_Access,All_Reference
057d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
057e e419 | | Load 0x2,0x19
057f e41a | | Load 0x2,0x1a
0580 e41b | | Load 0x2,0x1b
0581 e41c | | Load 0x2,0x1c
0582 481d |H | Short_Literal 0x1d
0583 4802 |H | Short_Literal 0x2
0584 0099 | | Action Reference_Dynamic
0585 e41e | | Load 0x2,0x1e
0586 481f |H | Short_Literal 0x1f
0587 4802 |H | Short_Literal 0x2
0588 0099 | | Action Reference_Dynamic
0589 e001 | | Load 0x0,0x1
058a 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
058b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
058c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
058d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
058e 0000 0000 | | .XXX[0x2]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 INIT_0590:
0593 e01b | | Load 0x0,0x1b
0594 0257 | W | Execute Discrete,Raise
0595 0000 0000 | | .XXX[0x3]
0597 0000 | |
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 4505 |E | Exit_Suprogram New_Top_Offset 0x5
059c 0000 0000 | | .BLANK 0000[0x4]
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 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 e01b | | Load 0x0,0x1b
05ac 0257 | W | Execute Discrete,Raise
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
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 0833 | 3 | Execute_Immediate Raise,0x33
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc e01c | | Load 0x0,0x1c
05bd 189e | | Execute Package,Field_Execute,Field_Number 0x9e
05be 6804 |h | Jump_Zero 0x5c3
05bf 00da | | Load_Top At_Offset_2
05c0 e01c | | Load 0x0,0x1c
05c1 189d | | Execute Package,Field_Execute,Field_Number 0x9d
05c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c3 00da | | Load_Top At_Offset_2
05c4 0148 | H | Execute Heap_Access,Get_Offset
05c5 00d8 | | Load_Top At_Offset_0
05c6 49a2 |I | Short_Literal 0x1a2
05c7 00eb | | Load_Encached Diana_Cache
05c8 0098 | | Execute Package,Field_Read_Dynamic
05c9 0260 | ` | Execute Discrete,In_Type
05ca 7001 |p | Jump_Nonzero 0x5cc
05cb 0801 | | Execute_Immediate Raise,0x1
05cc 0275 | u | Execute Discrete,Unary_Minus
05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d5 | | .CONST 0x05d5 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0002 | | .CONST 0x0002 ; Number of locals
05d3 INIT_05d0:
05d3 029f 087b | {| Declare_Subprogram INIT_0878,For_Call
05d5 BODY_05d0:
05d5 e5fc | | Load 0x2,-0x4
05d6 8402 | | Call 0x2,0x2
05d7 4508 |E | Exit_Suprogram New_Top_Offset 0x8
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05fb | | .CONST 0x05fb ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0009 | | .CONST 0x0009 ; Number of locals
05db INIT_05d8:
05db e215 | | Load 0x1,0x15
05dc 0007 | | Action Break_Optional
05dd 00ec | | Load_Encached Diana_Tree_Cache
05de 02c7 | | Declare_Variable Any
05df e5ff | | Load 0x2,-0x1
05e0 4974 |It | Short_Literal 0x174
05e1 00eb | | Load_Encached Diana_Cache
05e2 0098 | | Execute Package,Field_Read_Dynamic
05e3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05e4 a403 | | Store_Unchecked 0x2,0x3
05e5 e001 | | Load 0x0,0x1
05e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05e7 02c7 | | Declare_Variable Any
05e8 00d8 | | Load_Top At_Offset_0
05e9 1c00 | | Execute_Immediate Run_Utility,0x0
05ea e5fe | | Load 0x2,-0x2
05eb 0217 | | Execute Heap_Access,All_Reference
05ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ef e21e | | Load 0x1,0x1e
05f0 0216 | | Execute Heap_Access,Convert
05f1 e5ff | | Load 0x2,-0x1
05f2 8265 | e | Call 0x1,0x65
05f3 e23a | : | Load 0x1,0x3a
05f4 03f1 | | Declare_Variable Discrete,With_Value
05f5 029f 0923 | #| Declare_Subprogram INIT_0920,For_Call
05f7 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call
05f9 029f 096b | k| Declare_Subprogram INIT_0968,For_Call
05fb BODY_05d8:
05fb e403 | | Load 0x2,0x3
05fc e01c | | Load 0x0,0x1c
05fd 180d | | Execute Package,Field_Execute,Field_Number 0xd
05fe 6801 |h | Jump_Zero 0x600
05ff 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0600 e403 | | Load 0x2,0x3
0601 e5fc | | Load 0x2,-0x4
0602 e001 | | Load 0x0,0x1
0603 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0604 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0605 c404 | | Store 0x2,0x4
0606 8409 | | Call 0x2,0x9
0607 6808 |h | Jump_Zero 0x610
0608 e215 | | Load 0x1,0x15
0609 e5fd | | Load 0x2,-0x3
060a 8254 | T | Call 0x1,0x54
060b c402 | | Store 0x2,0x2
060c e402 | | Load 0x2,0x2
060d 8407 | | Call 0x2,0x7
060e e402 | | Load 0x2,0x2
060f 8408 | | Call 0x2,0x8
0610 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0611 0000 0000 | | .BLANK 0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0626 | & | .CONST 0x0626 ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0007 | | .CONST 0x0007 ; Number of locals
061b INIT_0618:
061b e243 | C | Load 0x1,0x43
061c 0007 | | Action Break_Optional
061d 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
061e 00c6 | | Action Check_Subprogram_Elaborated
061f 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
0620 e01d | | Load 0x0,0x1d
0621 e01e | | Load 0x0,0x1e
0622 4806 |H | Short_Literal 0x6
0623 0007 | | Action Break_Optional
0624 029f 0993 | | Declare_Subprogram INIT_0990,For_Call
0626 BODY_0618:
0626 e5fc | | Load 0x2,-0x4
0627 8248 | H | Call 0x1,0x48
0628 a402 | | Store_Unchecked 0x2,0x2
0629 e243 | C | Load 0x1,0x43
062a e5fd | | Load 0x2,-0x3
062b 824b | K | Call 0x1,0x4b
062c c402 | | Store 0x2,0x2
062d e5fd | | Load 0x2,-0x3
062e e5ff | | Load 0x2,-0x1
062f e402 | | Load 0x2,0x2
0630 e5fe | | Load 0x2,-0x2
0631 4800 |H | Short_Literal 0x0
0632 4803 |H | Short_Literal 0x3
0633 4802 |H | Short_Literal 0x2
0634 0099 | | Action Reference_Dynamic
0635 4804 |H | Short_Literal 0x4
0636 4802 |H | Short_Literal 0x2
0637 0099 | | Action Reference_Dynamic
0638 8266 | f | Call 0x1,0x66
0639 e402 | | Load 0x2,0x2
063a e5fc | | Load 0x2,-0x4
063b 8249 | I | Call 0x1,0x49
063c e5ff | | Load 0x2,-0x1
063d e001 | | Load 0x0,0x1
063e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
063f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0640 7002 |p | Jump_Nonzero 0x643
0641 e5fe | | Load 0x2,-0x2
0642 8407 | | Call 0x2,0x7
0643 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0644 0000 0000 | | .BLANK 0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
064c 0000 0000 | | .BLANK 0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 e01b | | Load 0x0,0x1b
0654 0257 | W | Execute Discrete,Raise
0655 0000 0000 | | .XXX[0x3]
0657 0000 | |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0663 | c | .CONST 0x0663 ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0003 | | .CONST 0x0003 ; Number of locals
065b INIT_0658:
065b e013 | | Load 0x0,0x13
065c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
065d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
065e 02c7 | | Declare_Variable Any
065f 00d8 | | Load_Top At_Offset_0
0660 1c00 | | Execute_Immediate Run_Utility,0x0
0661 e013 | | Load 0x0,0x13
0662 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0663 BODY_0658:
0663 e013 | | Load 0x0,0x13
0664 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0665 00da | | Load_Top At_Offset_2
0666 0120 | | Execute Any,Is_Value
0667 6804 |h | Jump_Zero 0x66c
0668 e013 | | Load 0x0,0x13
0669 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
066a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
066b 7801 |x | Jump 0x66d
066c 00da | | Load_Top At_Offset_2
066d e5fe | | Load 0x2,-0x2
066e e01f | | Load 0x0,0x1f
066f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0670 e013 | | Load 0x0,0x13
0671 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0672 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0673 c402 | | Store 0x2,0x2
0674 0059 | Y | Store_Top Discrete,At_Offset_1
0675 00d9 | | Load_Top At_Offset_1
0676 e013 | | Load 0x0,0x13
0677 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0678 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0679 e020 | | Load 0x0,0x20
067a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
067b 0f00 | | Execute_Immediate Equal,0x0
067c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
067d 0000 0000 | | .XXX[0x3]
067f 0000 | |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 e01b | | Load 0x0,0x1b
0684 0257 | W | Execute Discrete,Raise
0685 0000 0000 | | .XXX[0x3]
0687 0000 | |
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068d | | .CONST 0x068d ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b e243 | C | Load 0x1,0x43
068c 0007 | | Action Break_Optional
068d BODY_0688:
068d e021 | ! | Load 0x0,0x21
068e 180e | | Execute Package,Field_Execute,Field_Number 0xe
068f e022 | " | Load 0x0,0x22
0690 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0691 e5fc | | Load 0x2,-0x4
0692 8248 | H | Call 0x1,0x48
0693 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0694 e5fc | | Load 0x2,-0x4
0695 e5fd | | Load 0x2,-0x3
0696 e5ff | | Load 0x2,-0x1
0697 825c | \ | Call 0x1,0x5c
0698 00d8 | | Load_Top At_Offset_0
0699 e5fd | | Load 0x2,-0x3
069a 824c | L | Call 0x1,0x4c
069b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
069c e243 | C | Load 0x1,0x43
069d e5fc | | Load 0x2,-0x4
069e 8249 | I | Call 0x1,0x49
069f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06af | | .CONST 0x06af ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0007 | | .CONST 0x0007 ; Number of locals
06a3 INIT_06a0:
06a3 e5fb | | Load 0x2,-0x5
06a4 8248 | H | Call 0x1,0x48
06a5 00f1 | | Load_Encached Diana_Temp_Seq
06a6 02c7 | | Declare_Variable Any
06a7 e5fe | | Load 0x2,-0x2
06a8 a403 | | Store_Unchecked 0x2,0x3
06a9 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
06aa 00c6 | | Action Check_Subprogram_Elaborated
06ab 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
06ac e023 | # | Load 0x0,0x23
06ad e024 | $ | Load 0x0,0x24
06ae 4807 |H | Short_Literal 0x7
06af BODY_06a0:
06af 00cf | | Action Mark_Auxiliary
06b0 7813 |x | Jump 0x6c4
06b1 e5fc | | Load 0x2,-0x4
06b2 e5ff | | Load 0x2,-0x1
06b3 e402 | | Load 0x2,0x2
06b4 e403 | | Load 0x2,0x3
06b5 0217 | | Execute Heap_Access,All_Reference
06b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b7 4801 |H | Short_Literal 0x1
06b8 4804 |H | Short_Literal 0x4
06b9 4802 |H | Short_Literal 0x2
06ba 0099 | | Action Reference_Dynamic
06bb 4805 |H | Short_Literal 0x5
06bc 4802 |H | Short_Literal 0x2
06bd 0099 | | Action Reference_Dynamic
06be 8266 | f | Call 0x1,0x66
06bf e403 | | Load 0x2,0x3
06c0 0217 | | Execute Heap_Access,All_Reference
06c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06c2 c403 | | Store 0x2,0x3
06c3 00c9 | | Action Pop_Auxiliary_Loop
06c4 e403 | | Load 0x2,0x3
06c5 77eb |w | Jump_Nonzero 0x6b1
06c6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06c7 0000 | | .XXX[0x1]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06dc | | .CONST 0x06dc ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0008 | | .CONST 0x0008 ; Number of locals
06cb INIT_06c8:
06cb e5fb | | Load 0x2,-0x5
06cc 8248 | H | Call 0x1,0x48
06cd 00f1 | | Load_Encached Diana_Temp_Seq
06ce 02c7 | | Declare_Variable Any
06cf e5fe | | Load 0x2,-0x2
06d0 a403 | | Store_Unchecked 0x2,0x3
06d1 029f 0a7b | {| Declare_Subprogram INIT_0a78,For_Call
06d3 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
06d4 00c6 | | Action Check_Subprogram_Elaborated
06d5 4804 |H | Short_Literal 0x4
06d6 4802 |H | Short_Literal 0x2
06d7 0099 | | Action Reference_Dynamic
06d8 e025 | % | Load 0x0,0x25
06d9 e026 | & | Load 0x0,0x26
06da 4808 |H | Short_Literal 0x8
06db 0007 | | Action Break_Optional
06dc BODY_06c8:
06dc e021 | ! | Load 0x0,0x21
06dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
06de e022 | " | Load 0x0,0x22
06df 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06e0 00cf | | Action Mark_Auxiliary
06e1 7813 |x | Jump 0x6f5
06e2 e5fc | | Load 0x2,-0x4
06e3 e5ff | | Load 0x2,-0x1
06e4 e402 | | Load 0x2,0x2
06e5 e403 | | Load 0x2,0x3
06e6 0217 | | Execute Heap_Access,All_Reference
06e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06e8 4801 |H | Short_Literal 0x1
06e9 4805 |H | Short_Literal 0x5
06ea 4802 |H | Short_Literal 0x2
06eb 0099 | | Action Reference_Dynamic
06ec 4806 |H | Short_Literal 0x6
06ed 4802 |H | Short_Literal 0x2
06ee 0099 | | Action Reference_Dynamic
06ef 8266 | f | Call 0x1,0x66
06f0 e403 | | Load 0x2,0x3
06f1 0217 | | Execute Heap_Access,All_Reference
06f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f3 c403 | | Store 0x2,0x3
06f4 00c9 | | Action Pop_Auxiliary_Loop
06f5 e403 | | Load 0x2,0x3
06f6 77eb |w | Jump_Nonzero 0x6e2
06f7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 4507 |E | Exit_Suprogram New_Top_Offset 0x7
06fc 0000 0000 | | .BLANK 0000[0x4]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 e021 | ! | Load 0x0,0x21
0704 180e | | Execute Package,Field_Execute,Field_Number 0xe
0705 e022 | " | Load 0x0,0x22
0706 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0707 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b e01b | | Load 0x0,0x1b
070c 0257 | W | Execute Discrete,Raise
070d 0000 0000 | | .XXX[0x3]
070f 0000 | |
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 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 4801 |H | Short_Literal 0x1
071c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
071d 0000 0000 | | .XXX[0x3]
071f 0000 | |
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 4800 |H | Short_Literal 0x0
0724 a5fc | | Store_Unchecked 0x2,-0x4
0725 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0726 0000 0000 | | .XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 0833 | 3 | Execute_Immediate Raise,0x33
0734 0000 0000 | | .BLANK 0000[0x4]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0741 | A | .CONST 0x0741 ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0002 | | .CONST 0x0002 ; Number of locals
073b INIT_0738:
073b 4801 |H | Short_Literal 0x1
073c 4800 |H | Short_Literal 0x0
073d e027 | ' | Load 0x0,0x27
073e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
073f 035b | [ | Declare_Type Array,Constrained
0740 0337 | 7 | Declare_Variable Array
0741 BODY_0738:
0741 e01b | | Load 0x0,0x1b
0742 0257 | W | Execute Discrete,Raise
0743 0000 0000 | | .BLANK 0000[0x5]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0751 | Q | .CONST 0x0751 ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0002 | | .CONST 0x0002 ; Number of locals
074b INIT_0748:
074b 4801 |H | Short_Literal 0x1
074c 4800 |H | Short_Literal 0x0
074d e027 | ' | Load 0x0,0x27
074e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
074f 035b | [ | Declare_Type Array,Constrained
0750 0337 | 7 | Declare_Variable Array
0751 BODY_0748:
0751 e01b | | Load 0x0,0x1b
0752 0257 | W | Execute Discrete,Raise
0753 0000 0000 | | .BLANK 0000[0x5]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b e01b | | Load 0x0,0x1b
075c 0257 | W | Execute Discrete,Raise
075d 0000 0000 | | .XXX[0x3]
075f 0000 | |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 e01b | | Load 0x0,0x1b
0764 0257 | W | Execute Discrete,Raise
0765 0000 0000 | | .XXX[0x3]
0767 0000 | |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b e01b | | Load 0x0,0x1b
076c 0257 | W | Execute Discrete,Raise
076d 0000 0000 | | .XXX[0x3]
076f 0000 | |
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 e01b | | Load 0x0,0x1b
0774 0257 | W | Execute Discrete,Raise
0775 0000 0000 | | .XXX[0x3]
0777 0000 | |
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077d 0000 0000 | | .XXX[0x3]
077f 0000 | |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0792 | | .CONST 0x0792 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0005 | | .CONST 0x0005 ; Number of locals
0783 INIT_0780:
0783 e013 | | Load 0x0,0x13
0784 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0785 02ff | | Declare_Variable Variant_Record
0786 00d8 | | Load_Top At_Offset_0
0787 1c00 | | Execute_Immediate Run_Utility,0x0
0788 e028 | ( | Load 0x0,0x28
0789 1b14 | | Execute Package,Field_Read,Field_Number 0x14
078a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
078b 02c7 | | Declare_Variable Any
078c 00d8 | | Load_Top At_Offset_0
078d 1c00 | | Execute_Immediate Run_Utility,0x0
078e e013 | | Load 0x0,0x13
078f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0790 e029 | ) | Load 0x0,0x29
0791 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0792 BODY_0780:
0792 e5ff | | Load 0x2,-0x1
0793 e001 | | Load 0x0,0x1
0794 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0795 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0796 680e |h | Jump_Zero 0x7a5
0797 e5ff | | Load 0x2,-0x1
0798 00d8 | | Load_Top At_Offset_0
0799 e001 | | Load 0x0,0x1
079a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
079b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
079c e02a | * | Load 0x0,0x2a
079d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
079e e02b | + | Load 0x0,0x2b
079f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07a0 e5fe | | Load 0x2,-0x2
07a1 e02c | , | Load 0x0,0x2c
07a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07a4 c403 | | Store 0x2,0x3
07a5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
07a6 0000 0000 | | .XXX[0x2]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b3 | | .CONST 0x07b3 ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0004 | | .CONST 0x0004 ; Number of locals
07ab INIT_07a8:
07ab e5fc | | Load 0x2,-0x4
07ac 8248 | H | Call 0x1,0x48
07ad 00d8 | | Load_Top At_Offset_0
07ae 0217 | | Execute Heap_Access,All_Reference
07af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07b1 0007 | | Action Break_Optional
07b2 e22e | . | Load 0x1,0x2e
07b3 BODY_07a8:
07b3 00cf | | Action Mark_Auxiliary
07b4 780f |x | Jump 0x7c4
07b5 00da | | Load_Top At_Offset_2
07b6 0217 | | Execute Heap_Access,All_Reference
07b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07b8 e22e | . | Load 0x1,0x2e
07b9 0216 | | Execute Heap_Access,Convert
07ba 0032 | 2 | Store_Top Heap_Access,At_Offset_2
07bb 00da | | Load_Top At_Offset_2
07bc e22d | - | Load 0x1,0x2d
07bd 0216 | | Execute Heap_Access,Convert
07be e5fd | | Load 0x2,-0x3
07bf 8259 | Y | Call 0x1,0x59
07c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07c1 00d9 | | Load_Top At_Offset_1
07c2 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07c3 00c9 | | Action Pop_Auxiliary_Loop
07c4 00da | | Load_Top At_Offset_2
07c5 77ef |w | Jump_Nonzero 0x7b5
07c6 00ce | | Action Pop_Auxiliary
07c7 e22e | . | Load 0x1,0x2e
07c8 00db | | Load_Top At_Offset_3
07c9 0217 | | Execute Heap_Access,All_Reference
07ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07cd 0000 0000 | | .XXX[0x3]
07cf 0000 | |
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 4507 |E | Exit_Suprogram New_Top_Offset 0x7
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 450c |E | Exit_Suprogram New_Top_Offset 0xc
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e5 | | .CONST 0x07e5 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0002 | | .CONST 0x0002 ; Number of locals
07e3 INIT_07e0:
07e3 e22f | / | Load 0x1,0x2f
07e4 0007 | | Action Break_Optional
07e5 BODY_07e0:
07e5 e404 | | Load 0x2,0x4
07e6 7006 |p | Jump_Nonzero 0x7ed
07e7 00db | | Load_Top At_Offset_3
07e8 e403 | | Load 0x2,0x3
07e9 0217 | | Execute Heap_Access,All_Reference
07ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07ed e404 | | Load 0x2,0x4
07ee 0217 | | Execute Heap_Access,All_Reference
07ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07f0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
07f1 00cf | | Action Mark_Auxiliary
07f2 7807 |x | Jump 0x7fa
07f3 00d9 | | Load_Top At_Offset_1
07f4 a404 | | Store_Unchecked 0x2,0x4
07f5 00d9 | | Load_Top At_Offset_1
07f6 0217 | | Execute Heap_Access,All_Reference
07f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
07f9 00c9 | | Action Pop_Auxiliary_Loop
07fa 00d9 | | Load_Top At_Offset_1
07fb 77f7 |w | Jump_Nonzero 0x7f3
07fc 00ce | | Action Pop_Auxiliary
07fd 00db | | Load_Top At_Offset_3
07fe e22f | / | Load 0x1,0x2f
07ff 0216 | | Execute Heap_Access,Convert
0800 e404 | | Load 0x2,0x4
0801 0217 | | Execute Heap_Access,All_Reference
0802 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0803 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0804 0000 0000 | | .BLANK 0000[0x4]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 0811 | | .CONST 0x0811 ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0002 | | .CONST 0x0002 ; Number of locals
080b INIT_0808:
080b e241 | A | Load 0x1,0x41
080c e5ff | | Load 0x2,-0x1
080d 8248 | H | Call 0x1,0x48
080e 0217 | | Execute Heap_Access,All_Reference
080f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0810 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0811 BODY_0808:
0811 00d8 | | Load_Top At_Offset_0
0812 7003 |p | Jump_Nonzero 0x816
0813 e237 | 7 | Load 0x1,0x37
0814 00cb | | Action Pop_Block_With_Result
0815 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0816 00d8 | | Load_Top At_Offset_0
0817 0217 | | Execute Heap_Access,All_Reference
0818 0335 | 5 | Declare_Variable Array,Duplicate
0819 00cd | | Action Spare6_Action
081a 00cb | | Action Pop_Block_With_Result
081b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
081c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0824 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0825 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0826 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0827 680b |h | Jump_Zero 0x833
0828 4802 |H | Short_Literal 0x2
0829 0092 0c3b | ;| Action Push_String_Extended,0xc3b ; "Item on target-dependent unit free list has a non-null list of calls"
082b e5ff | | Load 0x2,-0x1
082c e001 | | Load 0x0,0x1
082d 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
082e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
082f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0830 e001 | | Load 0x0,0x1
0831 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0832 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0833 00da | | Load_Top At_Offset_2
0834 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0835 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0836 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0837 680b |h | Jump_Zero 0x843
0838 4802 |H | Short_Literal 0x2
0839 0092 0c3c | <| Action Push_String_Extended,0xc3c ; "Item on target-dependent unit free list has a non-null list of defns"
083b e5ff | | Load 0x2,-0x1
083c e001 | | Load 0x0,0x1
083d 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
083e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
083f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0840 e001 | | Load 0x0,0x1
0841 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0842 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0843 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0844 0000 0000 | | .BLANK 0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 00da | | Load_Top At_Offset_2
084c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
084d 680b |h | Jump_Zero 0x859
084e 4802 |H | Short_Literal 0x2
084f 0092 0c3d | =| Action Push_String_Extended,0xc3d ; "A calls node on the free list has a non-null link"
0851 e5ff | | Load 0x2,-0x1
0852 e001 | | Load 0x0,0x1
0853 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
0854 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0855 180f | | Execute Package,Field_Execute,Field_Number 0xf
0856 e001 | | Load 0x0,0x1
0857 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0858 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0859 4502 |E | Exit_Suprogram New_Top_Offset 0x2
085a 0000 0000 | | .BLANK 0000[0x6]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 00da | | Load_Top At_Offset_2
0864 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0865 680b |h | Jump_Zero 0x871
0866 4802 |H | Short_Literal 0x2
0867 0092 0c3e | >| Action Push_String_Extended,0xc3e ; "A defns node on the free list has a non-null link"
0869 e5ff | | Load 0x2,-0x1
086a e001 | | Load 0x0,0x1
086b 1b73 | s | Execute Package,Field_Read,Field_Number 0x73
086c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
086d 180f | | Execute Package,Field_Execute,Field_Number 0xf
086e e001 | | Load 0x0,0x1
086f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0870 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0871 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0872 0000 0000 | | .BLANK 0000[0x6]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 0895 | | .CONST 0x0895 ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0009 | | .CONST 0x0009 ; Number of locals
087b INIT_0878:
087b 00da | | Load_Top At_Offset_2
087c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
087d 008e | | Action Discrete,Diana_Arity_For_Kind
087e 00eb | | Load_Encached Diana_Cache
087f 1b82 | | Execute Package,Field_Read,Field_Number 0x82
0880 03f1 | | Declare_Variable Discrete,With_Value
0881 00ee | | Load_Encached Diana_Seq_Type_Cache
0882 02c7 | | Declare_Variable Any
0883 00d8 | | Load_Top At_Offset_0
0884 1c00 | | Execute_Immediate Run_Utility,0x0
0885 00ec | | Load_Encached Diana_Tree_Cache
0886 02c7 | | Declare_Variable Any
0887 00d8 | | Load_Top At_Offset_0
0888 1c00 | | Execute_Immediate Run_Utility,0x0
0889 00ec | | Load_Encached Diana_Tree_Cache
088a 02c7 | | Declare_Variable Any
088b 00d8 | | Load_Top At_Offset_0
088c 1c00 | | Execute_Immediate Run_Utility,0x0
088d 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call
088f 029f 0b2b | +| Declare_Subprogram INIT_0b28,For_Call
0891 029f 0b3b | ;| Declare_Subprogram INIT_0b38,For_Call
0893 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call
0895 BODY_0878:
0895 e602 | | Load 0x3,0x2
0896 4604 |F | Jump_Case 0x5
0897 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0898 7815 |x | Jump 0x8ae ; case 0x1
0899 7819 |x | Jump 0x8b3 ; case 0x2
089a 785e |x^ | Jump 0x8f9 ; case 0x3
089b 7800 |x | Jump 0x89c ; case 0x4
089c e7ff | | Load 0x3,-0x1
089d 00eb | | Load_Encached Diana_Cache
089e 1889 | | Execute Package,Field_Execute,Field_Number 0x89
089f c603 | | Store 0x3,0x3
08a0 00cf | | Action Mark_Auxiliary
08a1 7808 |x | Jump 0x8aa
08a2 e603 | | Load 0x3,0x3
08a3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
08a4 8402 | | Call 0x2,0x2
08a5 e603 | | Load 0x3,0x3
08a6 0217 | | Execute Heap_Access,All_Reference
08a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08a8 c603 | | Store 0x3,0x3
08a9 00c9 | | Action Pop_Auxiliary_Loop
08aa e603 | | Load 0x3,0x3
08ab 77f6 |w | Jump_Nonzero 0x8a2
08ac 00ce | | Action Pop_Auxiliary
08ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08ae e7ff | | Load 0x3,-0x1
08af 00eb | | Load_Encached Diana_Cache
08b0 188a | | Execute Package,Field_Execute,Field_Number 0x8a
08b1 8402 | | Call 0x2,0x2
08b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08b3 e7ff | | Load 0x3,-0x1
08b4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08b5 0f10 | | Execute_Immediate Equal,0x10
08b6 e7ff | | Load 0x3,-0x1
08b7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08b8 0f5b | [ | Execute_Immediate Equal,0x5b
08b9 0278 | x | Execute Discrete,Or
08ba 6819 |h | Jump_Zero 0x8d4
08bb e7ff | | Load 0x3,-0x1
08bc 00eb | | Load_Encached Diana_Cache
08bd 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
08be 4976 |Iv | Short_Literal 0x176
08bf 00eb | | Load_Encached Diana_Cache
08c0 0098 | | Execute Package,Field_Read_Dynamic
08c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08c2 c604 | | Store 0x3,0x4
08c3 e604 | | Load 0x3,0x4
08c4 8607 | | Call 0x3,0x7
08c5 682a |h* | Jump_Zero 0x8f0
08c6 e604 | | Load 0x3,0x4
08c7 8606 | | Call 0x3,0x6
08c8 6827 |h' | Jump_Zero 0x8f0
08c9 e7ff | | Load 0x3,-0x1
08ca 490c |I | Short_Literal 0x10c
08cb 00eb | | Load_Encached Diana_Cache
08cc 0096 | | Execute Package,Entry
08cd 8609 | | Call 0x3,0x9
08ce e5fa | | Load 0x2,-0x6
08cf e5f9 | | Load 0x2,-0x7
08d0 e5fb | | Load 0x2,-0x5
08d1 e604 | | Load 0x3,0x4
08d2 85fe | | Call 0x2,-0x2
08d3 781c |x | Jump 0x8f0
08d4 e7ff | | Load 0x3,-0x1
08d5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08d6 0f40 | @ | Execute_Immediate Equal,0x40
08d7 6818 |h | Jump_Zero 0x8f0
08d8 e5fd | | Load 0x2,-0x3
08d9 0f01 | | Execute_Immediate Equal,0x1
08da 6815 |h | Jump_Zero 0x8f0
08db 4801 |H | Short_Literal 0x1
08dc 0092 0c3f | ?| Action Push_String_Extended,0xc3f ; "INLINE"
08de e7ff | | Load 0x3,-0x1
08df 00eb | | Load_Encached Diana_Cache
08e0 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
08e1 00eb | | Load_Encached Diana_Cache
08e2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
08e3 00eb | | Load_Encached Diana_Cache
08e4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
08e5 e02d | - | Load 0x0,0x2d
08e6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08e7 6808 |h | Jump_Zero 0x8f0
08e8 4802 |H | Short_Literal 0x2
08e9 0092 0c40 | @| Action Push_String_Extended,0xc40 ; "Incremental insertion and removal of pragma Inline with RCI is disallowed"
08eb e5fa | | Load 0x2,-0x6
08ec e001 | | Load 0x0,0x1
08ed 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
08ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
08ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08f0 e7ff | | Load 0x3,-0x1
08f1 00eb | | Load_Encached Diana_Cache
08f2 188a | | Execute Package,Field_Execute,Field_Number 0x8a
08f3 8402 | | Call 0x2,0x2
08f4 e7ff | | Load 0x3,-0x1
08f5 00eb | | Load_Encached Diana_Cache
08f6 188b | | Execute Package,Field_Execute,Field_Number 0x8b
08f7 8402 | | Call 0x2,0x2
08f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08f9 e5fd | | Load 0x2,-0x3
08fa 7011 |p | Jump_Nonzero 0x90c
08fb e7ff | | Load 0x3,-0x1
08fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08fd 0f48 | H | Execute_Immediate Equal,0x48
08fe 680d |h | Jump_Zero 0x90c
08ff e7ff | | Load 0x3,-0x1
0900 00eb | | Load_Encached Diana_Cache
0901 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0902 4976 |Iv | Short_Literal 0x176
0903 00eb | | Load_Encached Diana_Cache
0904 0098 | | Execute Package,Field_Read_Dynamic
0905 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0906 c605 | | Store 0x3,0x5
0907 e605 | | Load 0x3,0x5
0908 8606 | | Call 0x3,0x6
0909 6802 |h | Jump_Zero 0x90c
090a e605 | | Load 0x3,0x5
090b 8608 | | Call 0x3,0x8
090c e7ff | | Load 0x3,-0x1
090d 00eb | | Load_Encached Diana_Cache
090e 188a | | Execute Package,Field_Execute,Field_Number 0x8a
090f 8402 | | Call 0x2,0x2
0910 e7ff | | Load 0x3,-0x1
0911 00eb | | Load_Encached Diana_Cache
0912 188b | | Execute Package,Field_Execute,Field_Number 0x8b
0913 8402 | | Call 0x2,0x2
0914 e7ff | | Load 0x3,-0x1
0915 00eb | | Load_Encached Diana_Cache
0916 188c | | Execute Package,Field_Execute,Field_Number 0x8c
0917 8402 | | Call 0x2,0x2
0918 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0919 0000 0000 | | .BLANK 0000[0x7]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0927 | ' | .CONST 0x0927 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0003 | | .CONST 0x0003 ; Number of locals
0923 INIT_0920:
0923 029f 0b8b | | Declare_Subprogram INIT_0b88,For_Call
0925 029f 0b9b | | Declare_Subprogram INIT_0b98,For_Call
0927 BODY_0920:
0927 e404 | | Load 0x2,0x4
0928 8602 | | Call 0x3,0x2
0929 6802 |h | Jump_Zero 0x92c
092a 8603 | | Call 0x3,0x3
092b 7806 |x | Jump 0x932
092c e404 | | Load 0x2,0x4
092d e001 | | Load 0x0,0x1
092e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
092f e7ff | | Load 0x3,-0x1
0930 0217 | | Execute Heap_Access,All_Reference
0931 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0932 e21e | | Load 0x1,0x1e
0933 e7ff | | Load 0x3,-0x1
0934 0217 | | Execute Heap_Access,All_Reference
0935 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0936 e406 | | Load 0x2,0x6
0937 e7ff | | Load 0x3,-0x1
0938 0217 | | Execute Heap_Access,All_Reference
0939 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
093a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
093b 0000 0000 | | .BLANK 0000[0x5]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0945 | E | .CONST 0x0945 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0002 | | .CONST 0x0002 ; Number of locals
0943 INIT_0940:
0943 e21e | | Load 0x1,0x1e
0944 0007 | | Action Break_Optional
0945 BODY_0940:
0945 e405 | | Load 0x2,0x5
0946 7007 |p | Jump_Nonzero 0x94e
0947 00db | | Load_Top At_Offset_3
0948 e5fe | | Load 0x2,-0x2
0949 0217 | | Execute Heap_Access,All_Reference
094a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
094b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
094c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
094d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
094e e405 | | Load 0x2,0x5
094f 0217 | | Execute Heap_Access,All_Reference
0950 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0951 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0952 00cf | | Action Mark_Auxiliary
0953 7807 |x | Jump 0x95b
0954 00d9 | | Load_Top At_Offset_1
0955 a405 | | Store_Unchecked 0x2,0x5
0956 00d9 | | Load_Top At_Offset_1
0957 0217 | | Execute Heap_Access,All_Reference
0958 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0959 0032 | 2 | Store_Top Heap_Access,At_Offset_2
095a 00c9 | | Action Pop_Auxiliary_Loop
095b 00d9 | | Load_Top At_Offset_1
095c 77f7 |w | Jump_Nonzero 0x954
095d 00ce | | Action Pop_Auxiliary
095e 00db | | Load_Top At_Offset_3
095f e21e | | Load 0x1,0x1e
0960 0216 | | Execute Heap_Access,Convert
0961 e405 | | Load 0x2,0x5
0962 0217 | | Execute Heap_Access,All_Reference
0963 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0964 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0965 0000 0000 | | .XXX[0x3]
0967 0000 | |
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b | k | .CONST 0x096b ; Address of begin
0969 0004 | | .CONST 0x0004 ; Address of exception handler
096a 0001 | | .CONST 0x0001 ; Number of locals
096b BODY_0968:
096b INIT_0968:
096b 00cf | | Action Mark_Auxiliary
096c 781c |x | Jump 0x989
096d e405 | | Load 0x2,0x5
096e 0217 | | Execute Heap_Access,All_Reference
096f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0970 e406 | | Load 0x2,0x6
0971 027f | | Execute Discrete,Equal
0972 6811 |h | Jump_Zero 0x984
0973 e405 | | Load 0x2,0x5
0974 0217 | | Execute Heap_Access,All_Reference
0975 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0976 e404 | | Load 0x2,0x4
0977 e001 | | Load 0x0,0x1
0978 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0979 012f | / | Execute Any,Equal
097a 6809 |h | Jump_Zero 0x984
097b e405 | | Load 0x2,0x5
097c 0217 | | Execute Heap_Access,All_Reference
097d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
097e 0a01 | | Execute_Immediate Plus,0x1
097f e405 | | Load 0x2,0x5
0980 0217 | | Execute Heap_Access,All_Reference
0981 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0982 4800 |H | Short_Literal 0x0
0983 00ca | | Action Exit_Nullary_Function
0984 e405 | | Load 0x2,0x5
0985 0217 | | Execute Heap_Access,All_Reference
0986 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0987 a405 | | Store_Unchecked 0x2,0x5
0988 00c9 | | Action Pop_Auxiliary_Loop
0989 e405 | | Load 0x2,0x5
098a 77e2 |w | Jump_Nonzero 0x96d
098b 00ce | | Action Pop_Auxiliary
098c 4801 |H | Short_Literal 0x1
098d 00ca | | Action Exit_Nullary_Function
098e 0000 0000 | | .XXX[0x2]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 09b3 | | .CONST 0x09b3 ; Address of begin
0991 0a59 | Y | .CONST 0x0a59 ; Address of exception handler
0992 0008 | | .CONST 0x0008 ; Number of locals
0993 INIT_0990:
0993 e02e | . | Load 0x0,0x2e
0994 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0995 02c7 | | Declare_Variable Any
0996 00d8 | | Load_Top At_Offset_0
0997 1c00 | | Execute_Immediate Run_Utility,0x0
0998 e013 | | Load 0x0,0x13
0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099a e029 | ) | Load 0x0,0x29
099b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
099d e013 | | Load 0x0,0x13
099e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
099f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a0 02c7 | | Declare_Variable Any
09a1 00d8 | | Load_Top At_Offset_0
09a2 1c00 | | Execute_Immediate Run_Utility,0x0
09a3 e013 | | Load 0x0,0x13
09a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09a5 02c7 | | Declare_Variable Any
09a6 00d8 | | Load_Top At_Offset_0
09a7 1c00 | | Execute_Immediate Run_Utility,0x0
09a8 e013 | | Load 0x0,0x13
09a9 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
09aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09ab 02c7 | | Declare_Variable Any
09ac 00d8 | | Load_Top At_Offset_0
09ad 1c00 | | Execute_Immediate Run_Utility,0x0
09ae e013 | | Load 0x0,0x13
09af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09b0 02c7 | | Declare_Variable Any
09b1 00d8 | | Load_Top At_Offset_0
09b2 1c00 | | Execute_Immediate Run_Utility,0x0
09b3 BODY_0990:
09b3 e013 | | Load 0x0,0x13
09b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09b5 e605 | | Load 0x3,0x5
09b6 0120 | | Execute Any,Is_Value
09b7 6804 |h | Jump_Zero 0x9bc
09b8 e013 | | Load 0x0,0x13
09b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09bb 7801 |x | Jump 0x9bd
09bc e605 | | Load 0x3,0x5
09bd e7ff | | Load 0x3,-0x1
09be e013 | | Load 0x0,0x13
09bf 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
09c1 c605 | | Store 0x3,0x5
09c2 c603 | | Store 0x3,0x3
09c3 e603 | | Load 0x3,0x3
09c4 681e |h | Jump_Zero 0x9e3
09c5 00ec | | Load_Encached Diana_Tree_Cache
09c6 00ec | | Load_Encached Diana_Tree_Cache
09c7 e02a | * | Load 0x0,0x2a
09c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09c9 e02b | + | Load 0x0,0x2b
09ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09cb 00ec | | Load_Encached Diana_Tree_Cache
09cc 0092 0c41 | A| Action Push_String_Extended,0xc41 ; "Error while obtaining object for "
09ce e7ff | | Load 0x3,-0x1
09cf e013 | | Load 0x0,0x13
09d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09d1 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
09d2 01cc | | Execute Vector,Catenate
09d3 0092 0c42 | B| Action Push_String_Extended,0xc42 ; ": "
09d5 01cc | | Execute Vector,Catenate
09d6 e603 | | Load 0x3,0x3
09d7 e013 | | Load 0x0,0x13
09d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09d9 011c | | Execute Any,Convert_Unchecked
09da 1c01 | | Execute_Immediate Run_Utility,0x1
09db 01cc | | Execute Vector,Catenate
09dc 00ec | | Load_Encached Diana_Tree_Cache
09dd 4802 |H | Short_Literal 0x2
09de e602 | | Load 0x3,0x2
09df e02e | . | Load 0x0,0x2e
09e0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09e1 c602 | | Store 0x3,0x2
09e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09e3 00db | | Load_Top At_Offset_3
09e4 e013 | | Load 0x0,0x13
09e5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09e7 c606 | | Store 0x3,0x6
09e8 e013 | | Load 0x0,0x13
09e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09ea 00da | | Load_Top At_Offset_2
09eb 0120 | | Execute Any,Is_Value
09ec 6804 |h | Jump_Zero 0x9f1
09ed e013 | | Load 0x0,0x13
09ee 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
09ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09f0 7801 |x | Jump 0x9f2
09f1 00da | | Load_Top At_Offset_2
09f2 e606 | | Load 0x3,0x6
09f3 e013 | | Load 0x0,0x13
09f4 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
09f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
09f6 c607 | | Store 0x3,0x7
09f7 c603 | | Store 0x3,0x3
09f8 e603 | | Load 0x3,0x3
09f9 681d |h | Jump_Zero 0xa17
09fa 00ec | | Load_Encached Diana_Tree_Cache
09fb 00ec | | Load_Encached Diana_Tree_Cache
09fc e02a | * | Load 0x0,0x2a
09fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09fe e02b | + | Load 0x0,0x2b
09ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a00 00ec | | Load_Encached Diana_Tree_Cache
0a01 0092 0c43 | C| Action Push_String_Extended,0xc43 ; "Error while obtaining enclosing world for "
0a03 e606 | | Load 0x3,0x6
0a04 e013 | | Load 0x0,0x13
0a05 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a06 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a07 01cc | | Execute Vector,Catenate
0a08 0092 0c42 | B| Action Push_String_Extended,0xc42 ; ": "
0a0a 01cc | | Execute Vector,Catenate
0a0b e603 | | Load 0x3,0x3
0a0c e013 | | Load 0x0,0x13
0a0d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0e 011c | | Execute Any,Convert_Unchecked
0a0f 1c01 | | Execute_Immediate Run_Utility,0x1
0a10 01cc | | Execute Vector,Catenate
0a11 00ec | | Load_Encached Diana_Tree_Cache
0a12 4802 |H | Short_Literal 0x2
0a13 e602 | | Load 0x3,0x2
0a14 e02e | . | Load 0x0,0x2e
0a15 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a16 c602 | | Store 0x3,0x2
0a17 00d9 | | Load_Top At_Offset_1
0a18 e013 | | Load 0x0,0x13
0a19 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0a1a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a1b c608 | | Store 0x3,0x8
0a1c 00d8 | | Load_Top At_Offset_0
0a1d e013 | | Load 0x0,0x13
0a1e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0a1f e02f | / | Load 0x0,0x2f
0a20 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a21 027e | ~ | Execute Discrete,Not_Equal
0a22 6818 |h | Jump_Zero 0xa3b
0a23 00d8 | | Load_Top At_Offset_0
0a24 e020 | | Load 0x0,0x20
0a25 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a26 7014 |p | Jump_Nonzero 0xa3b
0a27 00ec | | Load_Encached Diana_Tree_Cache
0a28 00ec | | Load_Encached Diana_Tree_Cache
0a29 e02a | * | Load 0x0,0x2a
0a2a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a2b e02b | + | Load 0x0,0x2b
0a2c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a2d 00ec | | Load_Encached Diana_Tree_Cache
0a2e e608 | | Load 0x3,0x8
0a2f e013 | | Load 0x0,0x13
0a30 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a31 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a32 0092 0c44 | D| Action Push_String_Extended,0xc44 ; " is not a combined view"
0a34 01cc | | Execute Vector,Catenate
0a35 00ec | | Load_Encached Diana_Tree_Cache
0a36 4802 |H | Short_Literal 0x2
0a37 e602 | | Load 0x3,0x2
0a38 e02e | . | Load 0x0,0x2e
0a39 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a3a c602 | | Store 0x3,0x2
0a3b 00d8 | | Load_Top At_Offset_0
0a3c e020 | | Load 0x0,0x20
0a3d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a3e 700e |p | Jump_Nonzero 0xa4d
0a3f e029 | ) | Load 0x0,0x29
0a40 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a41 e021 | ! | Load 0x0,0x21
0a42 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a43 e021 | ! | Load 0x0,0x21
0a44 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a45 00db | | Load_Top At_Offset_3
0a46 e020 | | Load 0x0,0x20
0a47 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0a48 00db | | Load_Top At_Offset_3
0a49 e606 | | Load 0x3,0x6
0a4a e030 | 0 | Load 0x0,0x30
0a4b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0a4c c604 | | Store 0x3,0x4
0a4d 4800 |H | Short_Literal 0x0
0a4e e604 | | Load 0x3,0x4
0a4f e029 | ) | Load 0x0,0x29
0a50 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a51 7006 |p | Jump_Nonzero 0xa58
0a52 e602 | | Load 0x3,0x2
0a53 e604 | | Load 0x3,0x4
0a54 e031 | 1 | Load 0x0,0x31
0a55 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a56 c602 | | Store 0x3,0x2
0a57 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a58 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a59 TRAP_0990:
0a59 0007 | | Action Break_Optional
0a5a 00ec | | Load_Encached Diana_Tree_Cache
0a5b 00ec | | Load_Encached Diana_Tree_Cache
0a5c e02a | * | Load 0x0,0x2a
0a5d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a5e e02b | + | Load 0x0,0x2b
0a5f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a60 00ec | | Load_Encached Diana_Tree_Cache
0a61 0092 0c45 | E| Action Push_String_Extended,0xc45 ; "Unhandled exception: "
0a63 4800 |H | Short_Literal 0x0
0a64 4801 |H | Short_Literal 0x1
0a65 e032 | 2 | Load 0x0,0x32
0a66 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a67 01cc | | Execute Vector,Catenate
0a68 0092 0c46 | F| Action Push_String_Extended,0xc46 ; " encountered while installing "
0a6a 01cc | | Execute Vector,Catenate
0a6b e7ff | | Load 0x3,-0x1
0a6c e013 | | Load 0x0,0x13
0a6d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a6e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0a6f 01cc | | Execute Vector,Catenate
0a70 00ec | | Load_Encached Diana_Tree_Cache
0a71 4802 |H | Short_Literal 0x2
0a72 e602 | | Load 0x3,0x2
0a73 e02e | . | Load 0x0,0x2e
0a74 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a75 c602 | | Store 0x3,0x2
0a76 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a77 0000 | | .XXX[0x1]
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a97 | | .CONST 0x0a97 ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0007 | | .CONST 0x0007 ; Number of locals
0a7b INIT_0a78:
0a7b 00db | | Load_Top At_Offset_3
0a7c 0217 | | Execute Heap_Access,All_Reference
0a7d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a7e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a7f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a80 e21e | | Load 0x1,0x1e
0a81 0216 | | Execute Heap_Access,Convert
0a82 00d8 | | Load_Top At_Offset_0
0a83 0007 | | Action Break_Optional
0a84 00d9 | | Load_Top At_Offset_1
0a85 0007 | | Action Break_Optional
0a86 e7ff | | Load 0x3,-0x1
0a87 8265 | e | Call 0x1,0x65
0a88 e23a | : | Load 0x1,0x3a
0a89 03f1 | | Declare_Variable Discrete,With_Value
0a8a 00ec | | Load_Encached Diana_Tree_Cache
0a8b 02c7 | | Declare_Variable Any
0a8c e7ff | | Load 0x3,-0x1
0a8d 4974 |It | Short_Literal 0x174
0a8e 00eb | | Load_Encached Diana_Cache
0a8f 0098 | | Execute Package,Field_Read_Dynamic
0a90 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0a91 a606 | | Store_Unchecked 0x3,0x6
0a92 e001 | | Load 0x0,0x1
0a93 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a94 02c7 | | Declare_Variable Any
0a95 00d8 | | Load_Top At_Offset_0
0a96 1c00 | | Execute_Immediate Run_Utility,0x0
0a97 BODY_0a78:
0a97 00d9 | | Load_Top At_Offset_1
0a98 e01c | | Load 0x0,0x1c
0a99 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a9a 6801 |h | Jump_Zero 0xa9c
0a9b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a9c 00d9 | | Load_Top At_Offset_1
0a9d e7fc | | Load 0x3,-0x4
0a9e e001 | | Load 0x0,0x1
0a9f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0aa0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0aa1 e001 | | Load 0x0,0x1
0aa2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0aa3 c607 | | Store 0x3,0x7
0aa4 00cf | | Action Mark_Auxiliary
0aa5 7840 |x@ | Jump 0xae6
0aa6 e602 | | Load 0x3,0x2
0aa7 0217 | | Execute Heap_Access,All_Reference
0aa8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0aa9 e605 | | Load 0x3,0x5
0aaa 027f | | Execute Discrete,Equal
0aab e602 | | Load 0x3,0x2
0aac 0217 | | Execute Heap_Access,All_Reference
0aad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0aae 00db | | Load_Top At_Offset_3
0aaf 012f | / | Execute Any,Equal
0ab0 0279 | y | Execute Discrete,And
0ab1 682d |h- | Jump_Zero 0xadf
0ab2 e602 | | Load 0x3,0x2
0ab3 0217 | | Execute Heap_Access,All_Reference
0ab4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0ab5 0f01 | | Execute_Immediate Equal,0x1
0ab6 6820 |h | Jump_Zero 0xad7
0ab7 e602 | | Load 0x3,0x2
0ab8 e603 | | Load 0x3,0x3
0ab9 021f | | Execute Heap_Access,Equal
0aba 680b |h | Jump_Zero 0xac6
0abb e602 | | Load 0x3,0x2
0abc 0217 | | Execute Heap_Access,All_Reference
0abd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0abe e216 | | Load 0x1,0x16
0abf 0216 | | Execute Heap_Access,Convert
0ac0 e7fe | | Load 0x3,-0x2
0ac1 0217 | | Execute Heap_Access,All_Reference
0ac2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ac3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ac4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0ac5 7806 |x | Jump 0xacc
0ac6 e602 | | Load 0x3,0x2
0ac7 0217 | | Execute Heap_Access,All_Reference
0ac8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ac9 e604 | | Load 0x3,0x4
0aca 0217 | | Execute Heap_Access,All_Reference
0acb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0acc e602 | | Load 0x3,0x2
0acd e215 | | Load 0x1,0x15
0ace 0216 | | Execute Heap_Access,Convert
0acf e215 | | Load 0x1,0x15
0ad0 0216 | | Execute Heap_Access,Convert
0ad1 e7fd | | Load 0x3,-0x3
0ad2 8255 | U | Call 0x1,0x55
0ad3 e21e | | Load 0x1,0x1e
0ad4 0216 | | Execute Heap_Access,Convert
0ad5 c602 | | Store 0x3,0x2
0ad6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ad7 e602 | | Load 0x3,0x2
0ad8 0217 | | Execute Heap_Access,All_Reference
0ad9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0ada 0aff | | Execute_Immediate Plus,-0x1
0adb e602 | | Load 0x3,0x2
0adc 0217 | | Execute Heap_Access,All_Reference
0add 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0ade 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0adf e602 | | Load 0x3,0x2
0ae0 a604 | | Store_Unchecked 0x3,0x4
0ae1 e602 | | Load 0x3,0x2
0ae2 0217 | | Execute Heap_Access,All_Reference
0ae3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ae4 a602 | | Store_Unchecked 0x3,0x2
0ae5 00c9 | | Action Pop_Auxiliary_Loop
0ae6 e602 | | Load 0x3,0x2
0ae7 77be |w | Jump_Nonzero 0xaa6
0ae8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ae9 0000 0000 | | .BLANK 0000[0x7]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0afb | | .CONST 0x0afb ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0003 | | .CONST 0x0003 ; Number of locals
0af3 INIT_0af0:
0af3 00ef | | Load_Encached Diana_Sequence_Cache
0af4 02c7 | | Declare_Variable Any
0af5 00d8 | | Load_Top At_Offset_0
0af6 1c00 | | Execute_Immediate Run_Utility,0x0
0af7 00ec | | Load_Encached Diana_Tree_Cache
0af8 02c7 | | Declare_Variable Any
0af9 00d8 | | Load_Top At_Offset_0
0afa 1c00 | | Execute_Immediate Run_Utility,0x0
0afb BODY_0af0:
0afb e9ff | | Load 0x4,-0x1
0afc e01c | | Load 0x0,0x1c
0afd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0afe 6821 |h! | Jump_Zero 0xb20
0aff e9ff | | Load 0x4,-0x1
0b00 e01c | | Load 0x0,0x1c
0b01 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b02 c802 | | Store 0x4,0x2
0b03 00cf | | Action Mark_Auxiliary
0b04 7818 |x | Jump 0xb1d
0b05 00da | | Load_Top At_Offset_2
0b06 00eb | | Load_Encached Diana_Cache
0b07 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b08 c803 | | Store 0x4,0x3
0b09 4801 |H | Short_Literal 0x1
0b0a 0092 0c47 | G| Action Push_String_Extended,0xc47 ; "inline"
0b0c 00db | | Load_Top At_Offset_3
0b0d 00eb | | Load_Encached Diana_Cache
0b0e 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0b0f 00eb | | Load_Encached Diana_Cache
0b10 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0b11 00eb | | Load_Encached Diana_Cache
0b12 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0b13 e02d | - | Load 0x0,0x2d
0b14 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0b15 6802 |h | Jump_Zero 0xb18
0b16 4801 |H | Short_Literal 0x1
0b17 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b18 00da | | Load_Top At_Offset_2
0b19 0217 | | Execute Heap_Access,All_Reference
0b1a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b1b c802 | | Store 0x4,0x2
0b1c 00c9 | | Action Pop_Auxiliary_Loop
0b1d 00da | | Load_Top At_Offset_2
0b1e 77e6 |w | Jump_Nonzero 0xb05
0b1f 00ce | | Action Pop_Auxiliary
0b20 4800 |H | Short_Literal 0x0
0b21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b22 0000 0000 | | .BLANK 0000[0x6]
0b28 ; --------------------------------------------------------------------------------------
0b28 ; SUBPROGRAM
0b28 ; --------------------------------------------------------------------------------------
0b28 0b2b | + | .CONST 0x0b2b ; Address of begin
0b29 0004 | | .CONST 0x0004 ; Address of exception handler
0b2a 0001 | | .CONST 0x0001 ; Number of locals
0b2b BODY_0b28:
0b2b INIT_0b28:
0b2b 00da | | Load_Top At_Offset_2
0b2c 4974 |It | Short_Literal 0x174
0b2d 00eb | | Load_Encached Diana_Cache
0b2e 0098 | | Execute Package,Field_Read_Dynamic
0b2f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b30 e5fc | | Load 0x2,-0x4
0b31 012f | / | Execute Any,Equal
0b32 0f00 | | Execute_Immediate Equal,0x0
0b33 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b34 0000 0000 | | .BLANK 0000[0x4]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b41 | A | .CONST 0x0b41 ; Address of begin
0b39 0004 | | .CONST 0x0004 ; Address of exception handler
0b3a 0004 | | .CONST 0x0004 ; Number of locals
0b3b INIT_0b38:
0b3b e212 | | Load 0x1,0x12
0b3c 0007 | | Action Break_Optional
0b3d 029f 0bbb | | Declare_Subprogram INIT_0bb8,For_Call
0b3f 029f 0bcb | | Declare_Subprogram INIT_0bc8,For_Call
0b41 BODY_0b38:
0b41 e212 | | Load 0x1,0x12
0b42 e5f9 | | Load 0x2,-0x7
0b43 8256 | V | Call 0x1,0x56
0b44 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0b45 00da | | Load_Top At_Offset_2
0b46 8803 | | Call 0x4,0x3
0b47 00da | | Load_Top At_Offset_2
0b48 8804 | | Call 0x4,0x4
0b49 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b4a 0000 0000 | | .BLANK 0000[0x6]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b61 | a | .CONST 0x0b61 ; Address of begin
0b51 0004 | | .CONST 0x0004 ; Address of exception handler
0b52 0004 | | .CONST 0x0004 ; Number of locals
0b53 INIT_0b50:
0b53 00ef | | Load_Encached Diana_Sequence_Cache
0b54 02c7 | | Declare_Variable Any
0b55 00db | | Load_Top At_Offset_3
0b56 00eb | | Load_Encached Diana_Cache
0b57 18ed | | Execute Package,Field_Execute,Field_Number 0xed
0b58 a802 | | Store_Unchecked 0x4,0x2
0b59 00ec | | Load_Encached Diana_Tree_Cache
0b5a 02c7 | | Declare_Variable Any
0b5b 00d8 | | Load_Top At_Offset_0
0b5c 1c00 | | Execute_Immediate Run_Utility,0x0
0b5d 00ec | | Load_Encached Diana_Tree_Cache
0b5e 02c7 | | Declare_Variable Any
0b5f 00d8 | | Load_Top At_Offset_0
0b60 1c00 | | Execute_Immediate Run_Utility,0x0
0b61 BODY_0b50:
0b61 00cf | | Action Mark_Auxiliary
0b62 7820 |x | Jump 0xb83
0b63 00db | | Load_Top At_Offset_3
0b64 00eb | | Load_Encached Diana_Cache
0b65 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b66 c803 | | Store 0x4,0x3
0b67 00da | | Load_Top At_Offset_2
0b68 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b69 0f10 | | Execute_Immediate Equal,0x10
0b6a 6813 |h | Jump_Zero 0xb7e
0b6b 00da | | Load_Top At_Offset_2
0b6c 00eb | | Load_Encached Diana_Cache
0b6d 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0b6e 4976 |Iv | Short_Literal 0x176
0b6f 00eb | | Load_Encached Diana_Cache
0b70 0098 | | Execute Package,Field_Read_Dynamic
0b71 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b72 c804 | | Store 0x4,0x4
0b73 00d9 | | Load_Top At_Offset_1
0b74 8607 | | Call 0x3,0x7
0b75 6808 |h | Jump_Zero 0xb7e
0b76 00d9 | | Load_Top At_Offset_1
0b77 8606 | | Call 0x3,0x6
0b78 6805 |h | Jump_Zero 0xb7e
0b79 e5fa | | Load 0x2,-0x6
0b7a e5f9 | | Load 0x2,-0x7
0b7b e5fb | | Load 0x2,-0x5
0b7c e804 | | Load 0x4,0x4
0b7d 85fe | | Call 0x2,-0x2
0b7e 00db | | Load_Top At_Offset_3
0b7f 0217 | | Execute Heap_Access,All_Reference
0b80 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b81 c802 | | Store 0x4,0x2
0b82 00c9 | | Action Pop_Auxiliary_Loop
0b83 00db | | Load_Top At_Offset_3
0b84 77de |w | Jump_Nonzero 0xb63
0b85 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b86 0000 0000 | | .XXX[0x2]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b | | .CONST 0x0b8b ; Address of begin
0b89 0004 | | .CONST 0x0004 ; Address of exception handler
0b8a 0001 | | .CONST 0x0001 ; Number of locals
0b8b BODY_0b88:
0b8b INIT_0b88:
0b8b 00da | | Load_Top At_Offset_2
0b8c e001 | | Load 0x0,0x1
0b8d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0b8e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b8f e5fd | | Load 0x2,-0x3
0b90 012e | . | Execute Any,Not_Equal
0b91 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b92 0000 0000 | | .BLANK 0000[0x6]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0ba0 | | .CONST 0x0ba0 ; Address of begin
0b99 0004 | | .CONST 0x0004 ; Address of exception handler
0b9a 0002 | | .CONST 0x0002 ; Number of locals
0b9b INIT_0b98:
0b9b e001 | | Load 0x0,0x1
0b9c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0b9d 02c7 | | Declare_Variable Any
0b9e 00d8 | | Load_Top At_Offset_0
0b9f 1c00 | | Execute_Immediate Run_Utility,0x0
0ba0 BODY_0b98:
0ba0 00d8 | | Load_Top At_Offset_0
0ba1 0120 | | Execute Any,Is_Value
0ba2 6803 |h | Jump_Zero 0xba6
0ba3 e001 | | Load 0x0,0x1
0ba4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0ba5 7801 |x | Jump 0xba7
0ba6 00d8 | | Load_Top At_Offset_0
0ba7 4801 |H | Short_Literal 0x1
0ba8 e404 | | Load 0x2,0x4
0ba9 e5fd | | Load 0x2,-0x3
0baa e5fc | | Load 0x2,-0x4
0bab e001 | | Load 0x0,0x1
0bac 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0bad 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0bae c802 | | Store 0x4,0x2
0baf 00d8 | | Load_Top At_Offset_0
0bb0 e001 | | Load 0x0,0x1
0bb1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0bb2 e7ff | | Load 0x3,-0x1
0bb3 0217 | | Execute Heap_Access,All_Reference
0bb4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bb5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bb6 0000 0000 | | .XXX[0x2]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbb | | .CONST 0x0bbb ; Address of begin
0bb9 0004 | | .CONST 0x0004 ; Address of exception handler
0bba 0001 | | .CONST 0x0001 ; Number of locals
0bbb BODY_0bb8:
0bbb INIT_0bb8:
0bbb e21c | | Load 0x1,0x1c
0bbc 00db | | Load_Top At_Offset_3
0bbd 0217 | | Execute Heap_Access,All_Reference
0bbe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bbf e9ff | | Load 0x4,-0x1
0bc0 8265 | e | Call 0x1,0x65
0bc1 00db | | Load_Top At_Offset_3
0bc2 0217 | | Execute Heap_Access,All_Reference
0bc3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bc4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0bc5 0000 0000 | | .XXX[0x3]
0bc7 0000 | |
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bd4 | | .CONST 0x0bd4 ; Address of begin
0bc9 0004 | | .CONST 0x0004 ; Address of exception handler
0bca 0003 | | .CONST 0x0003 ; Number of locals
0bcb INIT_0bc8:
0bcb e5fb | | Load 0x2,-0x5
0bcc 0217 | | Execute Heap_Access,All_Reference
0bcd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bcf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bd0 e21c | | Load 0x1,0x1c
0bd1 0216 | | Execute Heap_Access,Convert
0bd2 e21c | | Load 0x1,0x1c
0bd3 0007 | | Action Break_Optional
0bd4 BODY_0bc8:
0bd4 00d9 | | Load_Top At_Offset_1
0bd5 7007 |p | Jump_Nonzero 0xbdd
0bd6 ebff | | Load 0x5,-0x1
0bd7 e5fb | | Load 0x2,-0x5
0bd8 0217 | | Execute Heap_Access,All_Reference
0bd9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bda 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bdb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bdc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0bdd 00d9 | | Load_Top At_Offset_1
0bde 0217 | | Execute Heap_Access,All_Reference
0bdf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0be0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0be1 00cf | | Action Mark_Auxiliary
0be2 7807 |x | Jump 0xbea
0be3 00d9 | | Load_Top At_Offset_1
0be4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0be5 00d9 | | Load_Top At_Offset_1
0be6 0217 | | Execute Heap_Access,All_Reference
0be7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0be8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0be9 00c9 | | Action Pop_Auxiliary_Loop
0bea 00d9 | | Load_Top At_Offset_1
0beb 77f7 |w | Jump_Nonzero 0xbe3
0bec 00ce | | Action Pop_Auxiliary
0bed ebff | | Load 0x5,-0x1
0bee e21c | | Load 0x1,0x1c
0bef 0216 | | Execute Heap_Access,Convert
0bf0 00da | | Load_Top At_Offset_2
0bf1 0217 | | Execute Heap_Access,All_Reference
0bf2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bf3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0bf4 0000 0000 | | .BLANK 0000[0x4]
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0bfb | | .CONST 0x0bfb ; Address of begin
0bf9 0004 | | .CONST 0x0004 ; Address of exception handler
0bfa 0001 | | .CONST 0x0001 ; Number of locals
0bfb BODY_0bf8:
0bfb INIT_0bf8:
0bfb 4608 |F | Jump_Case 0x9
0bfc 7808 |x | Jump 0xc05 ; case 0x0
0bfd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0bfe 781b |x | Jump 0xc1a ; case 0x2
0bff 781a |x | Jump 0xc1a ; case 0x3
0c00 7819 |x | Jump 0xc1a ; case 0x4
0c01 7818 |x | Jump 0xc1a ; case 0x5
0c02 7817 |x | Jump 0xc1a ; case 0x6
0c03 7816 |x | Jump 0xc1a ; case 0x7
0c04 7815 |x | Jump 0xc1a ; case 0x8
0c05 00da | | Load_Top At_Offset_2
0c06 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0c07 0125 | % | Execute Any,Set_Constraint
0c08 00da | | Load_Top At_Offset_2
0c09 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0c0a 1c00 | | Execute_Immediate Run_Utility,0x0
0c0b 00da | | Load_Top At_Offset_2
0c0c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0c0d 0125 | % | Execute Any,Set_Constraint
0c0e 00ec | | Load_Encached Diana_Tree_Cache
0c0f 00db | | Load_Top At_Offset_3
0c10 00d9 | | Load_Top At_Offset_1
0c11 00d9 | | Load_Top At_Offset_1
0c12 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0c13 0119 | | Execute Any,Check_In_Formal_Type
0c14 00d1 | | Pop_Control Pop_Count_1
0c15 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c16 4800 |H | Short_Literal 0x0
0c17 00db | | Load_Top At_Offset_3
0c18 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c19 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0c1a 0869 | i | Execute_Immediate Raise,0x69
0c1b 0000 0000 | | .BLANK 0000[0x5]
0c20 ; --------------------------------------------------------------------------------------
0c20 ; SUBPROGRAM
0c20 ; --------------------------------------------------------------------------------------
0c20 0c23 | # | .CONST 0x0c23 ; Address of begin
0c21 0004 | | .CONST 0x0004 ; Address of exception handler
0c22 0001 | | .CONST 0x0001 ; Number of locals
0c23 BODY_0c20:
0c23 INIT_0c20:
0c23 4608 |F | Jump_Case 0x9
0c24 7808 |x | Jump 0xc2d ; case 0x0
0c25 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0c26 780d |x | Jump 0xc34 ; case 0x2
0c27 780c |x | Jump 0xc34 ; case 0x3
0c28 780b |x | Jump 0xc34 ; case 0x4
0c29 780a |x | Jump 0xc34 ; case 0x5
0c2a 7809 |x | Jump 0xc34 ; case 0x6
0c2b 7808 |x | Jump 0xc34 ; case 0x7
0c2c 7807 |x | Jump 0xc34 ; case 0x8
0c2d 00da | | Load_Top At_Offset_2
0c2e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0c2f 0125 | % | Execute Any,Set_Constraint
0c30 00da | | Load_Top At_Offset_2
0c31 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0c32 1c00 | | Execute_Immediate Run_Utility,0x0
0c33 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0c34 0869 | i | Execute_Immediate Raise,0x69
0c35 ; --------------------------------------------------------------------------------------
0c35 ; STRING TABLE
0c35 ; --------------------------------------------------------------------------------------
0c35 0028 | ( | .STRTAB 0x0028->0x0c49 ; "UNIT_INSTALL"
0c36 0032 | 2 | .STRTAB 0x0032->0x0c4f ; "ITEM_INSTALL"
0c37 003c | < | .STRTAB 0x003c->0x0c55 ; "target-dependent unit"
0c38 004f | O | .STRTAB 0x004f->0x0c5f ; "call"
0c39 0051 | Q | .STRTAB 0x0051->0x0c61 ; "defn"
0c3a 0053 | S | .STRTAB 0x0053->0x0c63 ; "Null target-dependent header"
0c3b 006d | m | .STRTAB 0x006d->0x0c71 ; "Item on target-dependent unit free list has a non-null list of calls"
0c3c 00b0 | | .STRTAB 0x00b0->0x0c94 ; "Item on target-dependent unit free list has a non-null list of defns"
0c3d 00f2 | | .STRTAB 0x00f2->0x0cb6 ; "A calls node on the free list has a non-null link"
0c3e 0121 | ! | .STRTAB 0x0121->0x0cce ; "A defns node on the free list has a non-null link"
0c3f 0150 | P | .STRTAB 0x0150->0x0ce7 ; "INLINE"
0c40 0154 | T | .STRTAB 0x0154->0x0cea ; "Incremental insertion and removal of pragma Inline with RCI is disallowed"
0c41 019b | | .STRTAB 0x019b->0x0d0e ; "Error while obtaining object for "
0c42 01ba | | .STRTAB 0x01ba->0x0d1f ; ": "
0c43 01ba | | .STRTAB 0x01ba->0x0d20 ; "Error while obtaining enclosing world for "
0c44 01e2 | | .STRTAB 0x01e2->0x0d35 ; " is not a combined view"
0c45 01f7 | | .STRTAB 0x01f7->0x0d40 ; "Unhandled exception: "
0c46 020a | | .STRTAB 0x020a->0x0d4b ; " encountered while installing "
0c47 0226 | & | .STRTAB 0x0226->0x0d5a ; "inline"
0c48 022a | * | .STREND 0x022a->0x0d5d
0c49 554e 4954 |UNIT| .STRTAB_STRINGS
0d5d 0000 0000 | | .XXX[0x3]
0d5f 0000 | |
0d60 ; --------------------------------------------------------------------------------------
0d60 ; Debug Table
0d60 ; --------------------------------------------------------------------------------------
0d60 0004 000d | | .DEBUG4 0x0004,0x000d,0xae3b,0x0000,0x0001,0x0000
0d66 0000 0000 | | .BLANK 0000[0x9a]