|
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 0cf0 | | .CONST 0x0cf0 ; 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 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003e | > | .CONST 0x003e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0013 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
001b 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
001d 00bf | | Action Accept_Activation
001e 00e1 | | Load_Encached Boolean_Cache
001f 00e1 | | Load_Encached Boolean_Cache
0020 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0022 4802 |H | Short_Literal 0x2
0023 032d | - | Declare_Type Record,Defined
0024 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0026 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
0028 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
002a 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002d 00c7 | | Action Elaborate_Subprogram
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002f 00c7 | | Action Elaborate_Subprogram
0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0031 00c7 | | Action Elaborate_Subprogram
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0033 00c7 | | Action Elaborate_Subprogram
0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0035 00c7 | | Action Elaborate_Subprogram
0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0037 00c7 | | Action Elaborate_Subprogram
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0039 00c7 | | Action Elaborate_Subprogram
003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003b 00c7 | | Action Elaborate_Subprogram
003c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003d 00c7 | | Action Elaborate_Subprogram
003e BODY_0008:
003e 00bc | | Action Signal_Activated
003f 00bb | | Action Signal_Completion
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 005b | [ | .CONST 0x005b ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0006 | | .CONST 0x0006 ; Number of locals
0043 INIT_0040:
0043 00ee | | Load_Encached Diana_Seq_Type_Cache
0044 02c7 | | Declare_Variable Any
0045 00db | | Load_Top At_Offset_3
0046 00eb | | Load_Encached Diana_Cache
0047 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
0048 00eb | | Load_Encached Diana_Cache
0049 1888 | | Execute Package,Field_Execute,Field_Number 0x88
004a a402 | | Store_Unchecked 0x2,0x2
004b 00ec | | Load_Encached Diana_Tree_Cache
004c 02c7 | | Declare_Variable Any
004d 00d8 | | Load_Top At_Offset_0
004e 1c00 | | Execute_Immediate Run_Utility,0x0
004f 00ee | | Load_Encached Diana_Seq_Type_Cache
0050 02c7 | | Declare_Variable Any
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 00ec | | Load_Encached Diana_Tree_Cache
0054 02c7 | | Declare_Variable Any
0055 00d8 | | Load_Top At_Offset_0
0056 1c00 | | Execute_Immediate Run_Utility,0x0
0057 00ec | | Load_Encached Diana_Tree_Cache
0058 02c7 | | Declare_Variable Any
0059 00d8 | | Load_Top At_Offset_0
005a 1c00 | | Execute_Immediate Run_Utility,0x0
005b BODY_0040:
005b 00cf | | Action Mark_Auxiliary
005c 7832 |x2 | Jump 0x8f
005d e402 | | Load 0x2,0x2
005e 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
005f c403 | | Store 0x2,0x3
0060 e403 | | Load 0x2,0x3
0061 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0062 0f85 | | Execute_Immediate Equal,-0x7b
0063 6826 |h& | Jump_Zero 0x8a
0064 e403 | | Load 0x2,0x3
0065 00eb | | Load_Encached Diana_Cache
0066 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0067 c404 | | Store 0x2,0x4
0068 00cf | | Action Mark_Auxiliary
0069 e404 | | Load 0x2,0x4
006a 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
006b 00eb | | Load_Encached Diana_Cache
006c 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
006d c405 | | Store 0x2,0x5
006e 00db | | Load_Top At_Offset_3
006f 490b |I | Short_Literal 0x10b
0070 00eb | | Load_Encached Diana_Cache
0071 0096 | | Execute Package,Entry
0072 e001 | | Load 0x0,0x1
0073 180d | | Execute Package,Field_Execute,Field_Number 0xd
0074 c406 | | Store 0x2,0x6
0075 00ea | | Load_Encached Null_String_Cache
0076 00db | | Load_Top At_Offset_3
0077 0092 0b3c | <| Action Push_String_Extended,0xb3c ; "WITH"
0079 8217 | | Call 0x1,0x17
007a 4800 |H | Short_Literal 0x0
007b e5fc | | Load 0x2,-0x4
007c e5fd | | Load 0x2,-0x3
007d e5fe | | Load 0x2,-0x2
007e e406 | | Load 0x2,0x6
007f 8218 | | Call 0x1,0x18
0080 c5fc | | Store 0x2,-0x4
0081 e404 | | Load 0x2,0x4
0082 0217 | | Execute Heap_Access,All_Reference
0083 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0084 c404 | | Store 0x2,0x4
0085 e404 | | Load 0x2,0x4
0086 6802 |h | Jump_Zero 0x89
0087 00c9 | | Action Pop_Auxiliary_Loop
0088 7fe0 | | Jump 0x69
0089 00ce | | Action Pop_Auxiliary
008a e402 | | Load 0x2,0x2
008b 0217 | | Execute Heap_Access,All_Reference
008c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
008d c402 | | Store 0x2,0x2
008e 00c9 | | Action Pop_Auxiliary_Loop
008f e402 | | Load 0x2,0x2
0090 77cc |w | Jump_Nonzero 0x5d
0091 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00aa | | .CONST 0x00aa ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 00ec | | Load_Encached Diana_Tree_Cache
009c 02c7 | | Declare_Variable Any
009d 00db | | Load_Top At_Offset_3
009e 4976 |Iv | Short_Literal 0x176
009f 00eb | | Load_Encached Diana_Cache
00a0 0098 | | Execute Package,Field_Read_Dynamic
00a1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a2 a402 | | Store_Unchecked 0x2,0x2
00a3 00ec | | Load_Encached Diana_Tree_Cache
00a4 02c7 | | Declare_Variable Any
00a5 00d9 | | Load_Top At_Offset_1
00a6 490b |I | Short_Literal 0x10b
00a7 00eb | | Load_Encached Diana_Cache
00a8 0096 | | Execute Package,Entry
00a9 a403 | | Store_Unchecked 0x2,0x3
00aa BODY_0098:
00aa 00d8 | | Load_Top At_Offset_0
00ab 00da | | Load_Top At_Offset_2
00ac 012f | / | Execute Any,Equal
00ad 700e |p | Jump_Nonzero 0xbc
00ae 00ea | | Load_Encached Null_String_Cache
00af e5ff | | Load 0x2,-0x1
00b0 0092 0b3d | =| Action Push_String_Extended,0xb3d ; "SPEC"
00b2 8217 | | Call 0x1,0x17
00b3 4800 |H | Short_Literal 0x0
00b4 e5fc | | Load 0x2,-0x4
00b5 e5fd | | Load 0x2,-0x3
00b6 e5fe | | Load 0x2,-0x2
00b7 e403 | | Load 0x2,0x3
00b8 e001 | | Load 0x0,0x1
00b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ba 8218 | | Call 0x1,0x18
00bb c5fc | | Store 0x2,-0x4
00bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cf | | .CONST 0x00cf ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 4976 |Iv | Short_Literal 0x176
00c5 00eb | | Load_Encached Diana_Cache
00c6 0098 | | Execute Package,Field_Read_Dynamic
00c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c8 490d |I | Short_Literal 0x10d
00c9 00eb | | Load_Encached Diana_Cache
00ca 0096 | | Execute Package,Entry
00cb e001 | | Load 0x0,0x1
00cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00cd 00ec | | Load_Encached Diana_Tree_Cache
00ce 011e | | Execute Any,Convert
00cf BODY_00c0:
00cf 00ea | | Load_Encached Null_String_Cache
00d0 00d9 | | Load_Top At_Offset_1
00d1 0092 0b3e | >| Action Push_String_Extended,0xb3e ; "PARENT"
00d3 8217 | | Call 0x1,0x17
00d4 4800 |H | Short_Literal 0x0
00d5 e5fc | | Load 0x2,-0x4
00d6 e5fd | | Load 0x2,-0x3
00d7 e5fe | | Load 0x2,-0x2
00d8 e402 | | Load 0x2,0x2
00d9 8218 | | Call 0x1,0x18
00da c5fc | | Store 0x2,-0x4
00db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f0 | | .CONST 0x00f0 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e002 | | Load 0x0,0x2
00e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e5 02c7 | | Declare_Variable Any
00e6 e5fc | | Load 0x2,-0x4
00e7 e5fd | | Load 0x2,-0x3
00e8 e5ff | | Load 0x2,-0x1
00e9 e002 | | Load 0x0,0x2
00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00eb a402 | | Store_Unchecked 0x2,0x2
00ec 00ec | | Load_Encached Diana_Tree_Cache
00ed 02c7 | | Declare_Variable Any
00ee 00d8 | | Load_Top At_Offset_0
00ef 1c00 | | Execute_Immediate Run_Utility,0x0
00f0 BODY_00e0:
00f0 00cf | | Action Mark_Auxiliary
00f1 7814 |x | Jump 0x106
00f2 00da | | Load_Top At_Offset_2
00f3 e002 | | Load 0x0,0x2
00f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f5 c403 | | Store 0x2,0x3
00f6 4800 |H | Short_Literal 0x0
00f7 e5fb | | Load 0x2,-0x5
00f8 e5fd | | Load 0x2,-0x3
00f9 e5fe | | Load 0x2,-0x2
00fa e403 | | Load 0x2,0x3
00fb 4974 |It | Short_Literal 0x174
00fc 00eb | | Load_Encached Diana_Cache
00fd 0098 | | Execute Package,Field_Read_Dynamic
00fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ff 8218 | | Call 0x1,0x18
0100 c5fb | | Store 0x2,-0x5
0101 00da | | Load_Top At_Offset_2
0102 e002 | | Load 0x0,0x2
0103 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0104 c402 | | Store 0x2,0x2
0105 00c9 | | Action Pop_Auxiliary_Loop
0106 00da | | Load_Top At_Offset_2
0107 e002 | | Load 0x0,0x2
0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0109 6fe8 |o | Jump_Zero 0xf2
010a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0121 | ! | .CONST 0x0121 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 00ec | | Load_Encached Diana_Tree_Cache
0114 02c7 | | Declare_Variable Any
0115 e5fc | | Load 0x2,-0x4
0116 6011 |` | Indirect_Literal Discrete,0x128,{0x00007fff, 0xffffffff}
0117 e5ff | | Load 0x2,-0x1
0118 4976 |Iv | Short_Literal 0x176
0119 00eb | | Load_Encached Diana_Cache
011a 0098 | | Execute Package,Field_Read_Dynamic
011b 180f | | Execute Package,Field_Execute,Field_Number 0xf
011c e003 | | Load 0x0,0x3
011d 180e | | Execute Package,Field_Execute,Field_Number 0xe
011e a402 | | Store_Unchecked 0x2,0x2
011f 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
0121 BODY_0110:
0121 00d9 | | Load_Top At_Offset_1
0122 6801 |h | Jump_Zero 0x124
0123 8403 | | Call 0x2,0x3
0124 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0145 | E | .CONST 0x0145 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0005 | | .CONST 0x0005 ; Number of locals
0133 INIT_0130:
0133 00ef | | Load_Encached Diana_Sequence_Cache
0134 02c7 | | Declare_Variable Any
0135 00db | | Load_Top At_Offset_3
0136 e004 | | Load 0x0,0x4
0137 18b0 | | Execute Package,Field_Execute,Field_Number 0xb0
0138 a402 | | Store_Unchecked 0x2,0x2
0139 00ec | | Load_Encached Diana_Tree_Cache
013a 02c7 | | Declare_Variable Any
013b 00d8 | | Load_Top At_Offset_0
013c 1c00 | | Execute_Immediate Run_Utility,0x0
013d 00ec | | Load_Encached Diana_Tree_Cache
013e 02c7 | | Declare_Variable Any
013f 00d8 | | Load_Top At_Offset_0
0140 1c00 | | Execute_Immediate Run_Utility,0x0
0141 00ec | | Load_Encached Diana_Tree_Cache
0142 02c7 | | Declare_Variable Any
0143 00d8 | | Load_Top At_Offset_0
0144 1c00 | | Execute_Immediate Run_Utility,0x0
0145 BODY_0130:
0145 00cf | | Action Mark_Auxiliary
0146 7835 |x5 | Jump 0x17c
0147 e402 | | Load 0x2,0x2
0148 00eb | | Load_Encached Diana_Cache
0149 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
014a c403 | | Store 0x2,0x3
014b e5fc | | Load 0x2,-0x4
014c 67db |g | Indirect_Literal Discrete,0x128,{0x00007fff, 0xffffffff}
014d e403 | | Load 0x2,0x3
014e e003 | | Load 0x0,0x3
014f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0150 c404 | | Store 0x2,0x4
0151 00da | | Load_Top At_Offset_2
0152 7012 |p | Jump_Nonzero 0x165
0153 00db | | Load_Top At_Offset_3
0154 00eb | | Load_Encached Diana_Cache
0155 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0156 c405 | | Store 0x2,0x5
0157 0092 0b3f | ?| Action Push_String_Extended,0xb3f ; "as body surrogate"
0159 00da | | Load_Top At_Offset_2
015a 0092 0b40 | @| Action Push_String_Extended,0xb40 ; "SUBUNIT"
015c 8217 | | Call 0x1,0x17
015d 4801 |H | Short_Literal 0x1
015e e5fb | | Load 0x2,-0x5
015f e5fd | | Load 0x2,-0x3
0160 e5fe | | Load 0x2,-0x2
0161 e405 | | Load 0x2,0x5
0162 8218 | | Call 0x1,0x18
0163 c5fb | | Store 0x2,-0x5
0164 7812 |x | Jump 0x177
0165 00da | | Load_Top At_Offset_2
0166 4974 |It | Short_Literal 0x174
0167 00eb | | Load_Encached Diana_Cache
0168 0098 | | Execute Package,Field_Read_Dynamic
0169 181a | | Execute Package,Field_Execute,Field_Number 0x1a
016a c405 | | Store 0x2,0x5
016b 00ea | | Load_Encached Null_String_Cache
016c 00da | | Load_Top At_Offset_2
016d 0092 0b40 | @| Action Push_String_Extended,0xb40 ; "SUBUNIT"
016f 8217 | | Call 0x1,0x17
0170 4800 |H | Short_Literal 0x0
0171 e5fb | | Load 0x2,-0x5
0172 e5fd | | Load 0x2,-0x3
0173 e5fe | | Load 0x2,-0x2
0174 e405 | | Load 0x2,0x5
0175 8218 | | Call 0x1,0x18
0176 c5fb | | Store 0x2,-0x5
0177 e402 | | Load 0x2,0x2
0178 0217 | | Execute Heap_Access,All_Reference
0179 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017a c402 | | Store 0x2,0x2
017b 00c9 | | Action Pop_Auxiliary_Loop
017c e402 | | Load 0x2,0x2
017d 77c9 |w | Jump_Nonzero 0x147
017e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 01f2 | | .CONST 0x01f2 ; Address of begin
0181 024e | N | .CONST 0x024e ; Address of exception handler
0182 0024 | $ | .CONST 0x0024 ; Number of locals
0183 INIT_0180:
0183 e005 | | Load 0x0,0x5
0184 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0185 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0186 4fff |O | Short_Literal -0x1
0187 4802 |H | Short_Literal 0x2
0188 0099 | | Action Reference_Dynamic
0189 e5ff | | Load 0x2,-0x1
018a 4976 |Iv | Short_Literal 0x176
018b 00eb | | Load_Encached Diana_Cache
018c 0098 | | Execute Package,Field_Read_Dynamic
018d 180f | | Execute Package,Field_Execute,Field_Number 0xf
018e 00ec | | Load_Encached Diana_Tree_Cache
018f 011e | | Execute Any,Convert
0190 e006 | | Load 0x0,0x6
0191 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0192 e007 | | Load 0x0,0x7
0193 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0194 e008 | | Load 0x0,0x8
0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0196 e009 | | Load 0x0,0x9
0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0198 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0199 00e2 | | Load_Encached Integer_Cache
019a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019b e5ff | | Load 0x2,-0x1
019c 800a | | Call 0x0,0xa
019d 0f04 | | Execute_Immediate Equal,0x4
019e 6803 |h | Jump_Zero 0x1a2
019f e5ff | | Load 0x2,-0x1
01a0 800b | | Call 0x0,0xb
01a1 7802 |x | Jump 0x1a4
01a2 4800 |H | Short_Literal 0x0
01a3 0007 | | Action Break_Optional
01a4 00ec | | Load_Encached Diana_Tree_Cache
01a5 02c7 | | Declare_Variable Any
01a6 00d8 | | Load_Top At_Offset_0
01a7 1c00 | | Execute_Immediate Run_Utility,0x0
01a8 e00c | | Load 0x0,0xc
01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01aa 02c7 | | Declare_Variable Any
01ab e00d | | Load 0x0,0xd
01ac a40b | | Store_Unchecked 0x2,0xb
01ad e00e | | Load 0x0,0xe
01ae 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01af 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b0 02c7 | | Declare_Variable Any
01b1 00d8 | | Load_Top At_Offset_0
01b2 1c00 | | Execute_Immediate Run_Utility,0x0
01b3 e00e | | Load 0x0,0xe
01b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b5 02c7 | | Declare_Variable Any
01b6 00d8 | | Load_Top At_Offset_0
01b7 1c00 | | Execute_Immediate Run_Utility,0x0
01b8 e00e | | Load 0x0,0xe
01b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ba 02c7 | | Declare_Variable Any
01bb e00e | | Load 0x0,0xe
01bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bd a40e | | Store_Unchecked 0x2,0xe
01be e009 | | Load 0x0,0x9
01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c1 e009 | | Load 0x0,0x9
01c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c4 e009 | | Load 0x0,0x9
01c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c7 e009 | | Load 0x0,0x9
01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ca e009 | | Load 0x0,0x9
01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01cd e009 | | Load 0x0,0x9
01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cf 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d0 e009 | | Load 0x0,0x9
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d3 029f 0383 | | Declare_Subprogram INIT_0380,For_Call
01d5 e008 | | Load 0x0,0x8
01d6 1912 | | Execute Package,Field_Reference,Field_Number 0x12
01d7 00c6 | | Action Check_Subprogram_Elaborated
01d8 00e2 | | Load_Encached Integer_Cache
01d9 4816 |H | Short_Literal 0x16
01da 4802 |H | Short_Literal 0x2
01db 0099 | | Action Reference_Dynamic
01dc e00f | | Load 0x0,0xf
01dd e010 | | Load 0x0,0x10
01de 481b |H | Short_Literal 0x1b
01df 0007 | | Action Break_Optional
01e0 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
01e2 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
01e4 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
01e6 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
01e8 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call
01ea 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call
01ec 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call
01ee 029f 0613 | | Declare_Subprogram INIT_0610,For_Call
01f0 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
01f2 BODY_0180:
01f2 e5fa | | Load 0x2,-0x6
01f3 0e02 | | Execute_Immediate Not_Equal,0x2
01f4 6815 |h | Jump_Zero 0x20a
01f5 4800 |H | Short_Literal 0x0
01f6 4800 |H | Short_Literal 0x0
01f7 4801 |H | Short_Literal 0x1
01f8 e40b | | Load 0x2,0xb
01f9 e5fc | | Load 0x2,-0x4
01fa e5fd | | Load 0x2,-0x3
01fb e00e | | Load 0x0,0xe
01fc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01fe c40c | | Store 0x2,0xc
01ff e40b | | Load 0x2,0xb
0200 e00c | | Load 0x0,0xc
0201 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0202 7009 |p | Jump_Nonzero 0x20c
0203 e40b | | Load 0x2,0xb
0204 e00c | | Load 0x0,0xc
0205 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0206 0c02 | | Execute_Immediate Greater_Equal,0x2
0207 6804 |h | Jump_Zero 0x20c
0208 e011 | | Load 0x0,0x11
0209 0257 | W | Execute Discrete,Raise
020a e5fb | | Load 0x2,-0x5
020b c40c | | Store 0x2,0xc
020c e009 | | Load 0x0,0x9
020d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
020f e405 | | Load 0x2,0x5
0210 e009 | | Load 0x0,0x9
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0213 c40f | | Store 0x2,0xf
0214 e009 | | Load 0x0,0x9
0215 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0216 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0217 e405 | | Load 0x2,0x5
0218 e009 | | Load 0x0,0x9
0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021b c411 | | Store 0x2,0x11
021c e009 | | Load 0x0,0x9
021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
021f e405 | | Load 0x2,0x5
0220 e009 | | Load 0x0,0x9
0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0222 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0223 c410 | | Store 0x2,0x10
0224 e009 | | Load 0x0,0x9
0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0226 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0227 e405 | | Load 0x2,0x5
0228 e009 | | Load 0x0,0x9
0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
022b c412 | | Store 0x2,0x12
022c e009 | | Load 0x0,0x9
022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022f e405 | | Load 0x2,0x5
0230 e009 | | Load 0x0,0x9
0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0232 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0233 c413 | | Store 0x2,0x13
0234 e009 | | Load 0x0,0x9
0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0236 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0237 e405 | | Load 0x2,0x5
0238 e009 | | Load 0x0,0x9
0239 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
023b c414 | | Store 0x2,0x14
023c e009 | | Load 0x0,0x9
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
023f e405 | | Load 0x2,0x5
0240 e009 | | Load 0x0,0x9
0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0242 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0243 c415 | | Store 0x2,0x15
0244 8422 | " | Call 0x2,0x22
0245 8423 | # | Call 0x2,0x23
0246 e5fa | | Load 0x2,-0x6
0247 0e02 | | Execute_Immediate Not_Equal,0x2
0248 6804 |h | Jump_Zero 0x24d
0249 e40c | | Load 0x2,0xc
024a e00e | | Load 0x0,0xe
024b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
024c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
024e TRAP_0180:
024e e011 | | Load 0x0,0x11
024f 010f | | Execute Exception,Equal
0250 6802 |h | Jump_Zero 0x253
0251 8424 | $ | Call 0x2,0x24
0252 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0253 e40c | | Load 0x2,0xc
0254 e00e | | Load 0x0,0xe
0255 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0256 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0257 e012 | | Load 0x0,0x12
0258 180e | | Execute Package,Field_Execute,Field_Number 0xe
0259 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "Cc_Instance.Cg_Coupler.Need_Ops"
025b e013 | | Load 0x0,0x13
025c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025d e014 | | Load 0x0,0x14
025e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
025f 00d8 | | Load_Top At_Offset_0
0260 0101 | | Execute Exception,Reraise
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0276 | v | .CONST 0x0276 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0004 | | .CONST 0x0004 ; Number of locals
026b INIT_0268:
026b e015 | | Load 0x0,0x15
026c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
026d 02c7 | | Declare_Variable Any
026e 00d8 | | Load_Top At_Offset_0
026f 1c00 | | Execute_Immediate Run_Utility,0x0
0270 00ec | | Load_Encached Diana_Tree_Cache
0271 02c7 | | Declare_Variable Any
0272 00d8 | | Load_Top At_Offset_0
0273 1c00 | | Execute_Immediate Run_Utility,0x0
0274 029f 077b | {| Declare_Subprogram INIT_0778,For_Call
0276 BODY_0268:
0276 e5fd | | Load 0x2,-0x3
0277 e5fc | | Load 0x2,-0x4
0278 e5ff | | Load 0x2,-0x1
0279 4976 |Iv | Short_Literal 0x176
027a 00eb | | Load_Encached Diana_Cache
027b 0098 | | Execute Package,Field_Read_Dynamic
027c 180f | | Execute Package,Field_Execute,Field_Number 0xf
027d 4806 |H | Short_Literal 0x6
027e e015 | | Load 0x0,0x15
027f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0280 c402 | | Store 0x2,0x2
0281 00cf | | Action Mark_Auxiliary
0282 7817 |x | Jump 0x29a
0283 8404 | | Call 0x2,0x4
0284 00da | | Load_Top At_Offset_2
0285 7008 |p | Jump_Nonzero 0x28e
0286 e012 | | Load 0x0,0x12
0287 180e | | Execute Package,Field_Execute,Field_Number 0xe
0288 4802 |H | Short_Literal 0x2
0289 0092 0b42 | B| Action Push_String_Extended,0xb42 ; "Referencing expander is non-existent"
028b e016 | | Load 0x0,0x16
028c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028d 7807 |x | Jump 0x295
028e 4800 |H | Short_Literal 0x0
028f e5fb | | Load 0x2,-0x5
0290 e5fd | | Load 0x2,-0x3
0291 e5fe | | Load 0x2,-0x2
0292 e403 | | Load 0x2,0x3
0293 8218 | | Call 0x1,0x18
0294 c5fb | | Store 0x2,-0x5
0295 00db | | Load_Top At_Offset_3
0296 e015 | | Load 0x0,0x15
0297 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0298 c402 | | Store 0x2,0x2
0299 00c9 | | Action Pop_Auxiliary_Loop
029a 00db | | Load_Top At_Offset_3
029b e015 | | Load 0x0,0x15
029c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
029d 6fe5 |o | Jump_Zero 0x283
029e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02bc | | .CONST 0x02bc ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0006 | | .CONST 0x0006 ; Number of locals
02a3 INIT_02a0:
02a3 e015 | | Load 0x0,0x15
02a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02a5 02c7 | | Declare_Variable Any
02a6 00d8 | | Load_Top At_Offset_0
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 00ec | | Load_Encached Diana_Tree_Cache
02a9 02c7 | | Declare_Variable Any
02aa 00d8 | | Load_Top At_Offset_0
02ab 1c00 | | Execute_Immediate Run_Utility,0x0
02ac 00ec | | Load_Encached Diana_Tree_Cache
02ad 02c7 | | Declare_Variable Any
02ae e5ff | | Load 0x2,-0x1
02af e001 | | Load 0x0,0x1
02b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b1 a404 | | Store_Unchecked 0x2,0x4
02b2 00ec | | Load_Encached Diana_Tree_Cache
02b3 02c7 | | Declare_Variable Any
02b4 00d9 | | Load_Top At_Offset_1
02b5 4976 |Iv | Short_Literal 0x176
02b6 00eb | | Load_Encached Diana_Cache
02b7 0098 | | Execute Package,Field_Read_Dynamic
02b8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b9 a405 | | Store_Unchecked 0x2,0x5
02ba 029f 078b | | Declare_Subprogram INIT_0788,For_Call
02bc BODY_02a0:
02bc e5fd | | Load 0x2,-0x3
02bd e5fc | | Load 0x2,-0x4
02be 00db | | Load_Top At_Offset_3
02bf 4806 |H | Short_Literal 0x6
02c0 e015 | | Load 0x0,0x15
02c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c2 c402 | | Store 0x2,0x2
02c3 00cf | | Action Mark_Auxiliary
02c4 7817 |x | Jump 0x2dc
02c5 8406 | | Call 0x2,0x6
02c6 e403 | | Load 0x2,0x3
02c7 7008 |p | Jump_Nonzero 0x2d0
02c8 e012 | | Load 0x0,0x12
02c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ca 4802 |H | Short_Literal 0x2
02cb 0092 0b43 | C| Action Push_String_Extended,0xb43 ; "Referencing main program is non-existent"
02cd e016 | | Load 0x0,0x16
02ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cf 7807 |x | Jump 0x2d7
02d0 4800 |H | Short_Literal 0x0
02d1 e5fb | | Load 0x2,-0x5
02d2 e5fd | | Load 0x2,-0x3
02d3 e5fe | | Load 0x2,-0x2
02d4 e403 | | Load 0x2,0x3
02d5 8218 | | Call 0x1,0x18
02d6 c5fb | | Store 0x2,-0x5
02d7 e402 | | Load 0x2,0x2
02d8 e015 | | Load 0x0,0x15
02d9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02da c402 | | Store 0x2,0x2
02db 00c9 | | Action Pop_Auxiliary_Loop
02dc e402 | | Load 0x2,0x2
02dd e015 | | Load 0x0,0x15
02de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02df 6fe5 |o | Jump_Zero 0x2c5
02e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4608 |F | Jump_Case 0x9
02ec 7808 |x | Jump 0x2f5 ; case 0x0
02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02ee 780d |x | Jump 0x2fc ; case 0x2
02ef 780c |x | Jump 0x2fc ; case 0x3
02f0 780b |x | Jump 0x2fc ; case 0x4
02f1 780a |x | Jump 0x2fc ; case 0x5
02f2 7809 |x | Jump 0x2fc ; case 0x6
02f3 7808 |x | Jump 0x2fc ; case 0x7
02f4 7807 |x | Jump 0x2fc ; case 0x8
02f5 4800 |H | Short_Literal 0x0
02f6 00db | | Load_Top At_Offset_3
02f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f8 4800 |H | Short_Literal 0x0
02f9 00db | | Load_Top At_Offset_3
02fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02fb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02fc 0869 | i | Execute_Immediate Raise,0x69
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e012 | | Load 0x0,0x12
0304 180e | | Execute Package,Field_Execute,Field_Number 0xe
0305 4801 |H | Short_Literal 0x1
0306 0092 0b44 | D| Action Push_String_Extended,0xb44 ; "Specifying "
0308 e5ff | | Load 0x2,-0x1
0309 01cc | | Execute Vector,Catenate
030a 0092 0b45 | E| Action Push_String_Extended,0xb45 ; " need: "
030c 01cc | | Execute Vector,Catenate
030d e5fe | | Load 0x2,-0x2
030e e001 | | Load 0x0,0x1
030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0310 01cc | | Execute Vector,Catenate
0311 0092 0b46 | F| Action Push_String_Extended,0xb46 ; " "
0313 01cc | | Execute Vector,Catenate
0314 e5fd | | Load 0x2,-0x3
0315 01cc | | Execute Vector,Catenate
0316 e016 | | Load 0x0,0x16
0317 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0318 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 e5fd | | Load 0x2,-0x3
0324 e5fc | | Load 0x2,-0x4
0325 e5fb | | Load 0x2,-0x5
0326 e5fe | | Load 0x2,-0x2
0327 e5ff | | Load 0x2,-0x1
0328 e017 | | Load 0x0,0x17
0329 1b14 | | Execute Package,Field_Read,Field_Number 0x14
032a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
032b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
032c 0000 0000 | | .BLANK 0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0339 | 9 | .CONST 0x0339 ; 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 00eb | | Load_Encached Diana_Cache
0335 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0336 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0337 0f49 | I | Execute_Immediate Equal,0x49
0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0339 TRAP_0330:
0339 0007 | | Action Break_Optional
033a 4800 |H | Short_Literal 0x0
033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034f | O | .CONST 0x034f ; Address of begin
0341 0360 | ` | .CONST 0x0360 ; Address of exception handler
0342 0004 | | .CONST 0x0004 ; Number of locals
0343 INIT_0340:
0343 00ec | | Load_Encached Diana_Tree_Cache
0344 02c7 | | Declare_Variable Any
0345 00d8 | | Load_Top At_Offset_0
0346 1c00 | | Execute_Immediate Run_Utility,0x0
0347 00ec | | Load_Encached Diana_Tree_Cache
0348 02c7 | | Declare_Variable Any
0349 00d8 | | Load_Top At_Offset_0
034a 1c00 | | Execute_Immediate Run_Utility,0x0
034b 00ec | | Load_Encached Diana_Tree_Cache
034c 02c7 | | Declare_Variable Any
034d 00d8 | | Load_Top At_Offset_0
034e 1c00 | | Execute_Immediate Run_Utility,0x0
034f BODY_0340:
034f e5ff | | Load 0x2,-0x1
0350 4976 |Iv | Short_Literal 0x176
0351 00eb | | Load_Encached Diana_Cache
0352 0098 | | Execute Package,Field_Read_Dynamic
0353 180f | | Execute Package,Field_Execute,Field_Number 0xf
0354 c402 | | Store 0x2,0x2
0355 00da | | Load_Top At_Offset_2
0356 490d |I | Short_Literal 0x10d
0357 00eb | | Load_Encached Diana_Cache
0358 0096 | | Execute Package,Entry
0359 c403 | | Store 0x2,0x3
035a 00d9 | | Load_Top At_Offset_1
035b e001 | | Load 0x0,0x1
035c 180d | | Execute Package,Field_Execute,Field_Number 0xd
035d c404 | | Store 0x2,0x4
035e 00d8 | | Load_Top At_Offset_0
035f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0360 TRAP_0340:
0360 0007 | | Action Break_Optional
0361 00ec | | Load_Encached Diana_Tree_Cache
0362 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0370 | p | .CONST 0x0370 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b e402 | | Load 0x2,0x2
036c e001 | | Load 0x0,0x1
036d 180d | | Execute Package,Field_Execute,Field_Number 0xd
036e 00ec | | Load_Encached Diana_Tree_Cache
036f 011e | | Execute Any,Convert
0370 BODY_0368:
0370 00ea | | Load_Encached Null_String_Cache
0371 00d9 | | Load_Top At_Offset_1
0372 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "BODY"
0374 8217 | | Call 0x1,0x17
0375 4800 |H | Short_Literal 0x0
0376 e5fb | | Load 0x2,-0x5
0377 e5fd | | Load 0x2,-0x3
0378 e5fe | | Load 0x2,-0x2
0379 e602 | | Load 0x3,0x2
037a 8218 | | Call 0x1,0x18
037b c5fb | | Store 0x2,-0x5
037c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0389 | | .CONST 0x0389 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0004 | | .CONST 0x0004 ; Number of locals
0383 INIT_0380:
0383 e402 | | Load 0x2,0x2
0384 0007 | | Action Break_Optional
0385 029f 079b | | Declare_Subprogram INIT_0798,For_Call
0387 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call
0389 BODY_0380:
0389 e012 | | Load 0x0,0x12
038a 180e | | Execute Package,Field_Execute,Field_Number 0xe
038b 4801 |H | Short_Literal 0x1
038c 0092 0b48 | H| Action Push_String_Extended,0xb48 ; "Process_Unit of "
038e e7fe | | Load 0x3,-0x2
038f e001 | | Load 0x0,0x1
0390 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0391 01cc | | Execute Vector,Catenate
0392 0092 0b49 | I| Action Push_String_Extended,0xb49 ; ";Kind = "
0394 01cc | | Execute Vector,Catenate
0395 e7ff | | Load 0x3,-0x1
0396 e008 | | Load 0x0,0x8
0397 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0398 011c | | Execute Any,Convert_Unchecked
0399 1c01 | | Execute_Immediate Run_Utility,0x1
039a 01cc | | Execute Vector,Catenate
039b 0092 0b4a | J| Action Push_String_Extended,0xb4a ; ", Unit_State = "
039d 01cc | | Execute Vector,Catenate
039e e7fe | | Load 0x3,-0x2
039f 8603 | | Call 0x3,0x3
03a0 01cc | | Execute Vector,Catenate
03a1 e016 | | Load 0x0,0x16
03a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a3 e7ff | | Load 0x3,-0x1
03a4 4605 |F | Jump_Case 0x6
03a5 7811 |x | Jump 0x3b7 ; case 0x0
03a6 7810 |x | Jump 0x3b7 ; case 0x1
03a7 780f |x | Jump 0x3b7 ; case 0x2
03a8 7877 |xw | Jump 0x420 ; case 0x3
03a9 789b |x | Jump 0x445 ; case 0x4
03aa 7800 |x | Jump 0x3ab ; case 0x5
03ab e012 | | Load 0x0,0x12
03ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ad 4802 |H | Short_Literal 0x2
03ae 0092 0b4b | K| Action Push_String_Extended,0xb4b ; "Bad directory status "
03b0 e7fe | | Load 0x3,-0x2
03b1 e001 | | Load 0x0,0x1
03b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03b3 01cc | | Execute Vector,Catenate
03b4 e016 | | Load 0x0,0x16
03b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03b7 e5fc | | Load 0x2,-0x4
03b8 e7fe | | Load 0x3,-0x2
03b9 e001 | | Load 0x0,0x1
03ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03bb 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
03bc 00da | | Load_Top At_Offset_2
03bd 0f04 | | Execute_Immediate Equal,0x4
03be 681d |h | Jump_Zero 0x3dc
03bf e7fe | | Load 0x3,-0x2
03c0 4976 |Iv | Short_Literal 0x176
03c1 00eb | | Load_Encached Diana_Cache
03c2 0098 | | Execute Package,Field_Read_Dynamic
03c3 180f | | Execute Package,Field_Execute,Field_Number 0xf
03c4 e404 | | Load 0x2,0x4
03c5 012f | / | Execute Any,Equal
03c6 7051 |pQ | Jump_Nonzero 0x418
03c7 e012 | | Load 0x0,0x12
03c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c9 4801 |H | Short_Literal 0x1
03ca 0092 0b4c | L| Action Push_String_Extended,0xb4c ; "Coded unit "
03cc e7fe | | Load 0x3,-0x2
03cd e001 | | Load 0x0,0x1
03ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03cf 01cc | | Execute Vector,Catenate
03d0 0092 0b4d | M| Action Push_String_Extended,0xb4d ; "Added to set of already coded unit"
03d2 01cc | | Execute Vector,Catenate
03d3 e016 | | Load 0x0,0x16
03d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d5 e415 | | Load 0x2,0x15
03d6 e7fe | | Load 0x3,-0x2
03d7 e009 | | Load 0x0,0x9
03d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03da c415 | | Store 0x2,0x15
03db 783c |x< | Jump 0x418
03dc 00da | | Load_Top At_Offset_2
03dd 0f03 | | Execute_Immediate Equal,0x3
03de 681d |h | Jump_Zero 0x3fc
03df e7fe | | Load 0x3,-0x2
03e0 4976 |Iv | Short_Literal 0x176
03e1 00eb | | Load_Encached Diana_Cache
03e2 0098 | | Execute Package,Field_Read_Dynamic
03e3 180f | | Execute Package,Field_Execute,Field_Number 0xf
03e4 e404 | | Load 0x2,0x4
03e5 012f | / | Execute Any,Equal
03e6 7031 |p1 | Jump_Nonzero 0x418
03e7 e012 | | Load 0x0,0x12
03e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e9 4801 |H | Short_Literal 0x1
03ea 0092 0b4e | N| Action Push_String_Extended,0xb4e ; "Installed unit "
03ec e7fe | | Load 0x3,-0x2
03ed e001 | | Load 0x0,0x1
03ee 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ef 01cc | | Execute Vector,Catenate
03f0 0092 0b4f | O| Action Push_String_Extended,0xb4f ; "Added to set of uncoded units"
03f2 01cc | | Execute Vector,Catenate
03f3 e016 | | Load 0x0,0x16
03f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f5 e414 | | Load 0x2,0x14
03f6 e7fe | | Load 0x3,-0x2
03f7 e009 | | Load 0x0,0x9
03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03fa c414 | | Store 0x2,0x14
03fb 781c |x | Jump 0x418
03fc e7fe | | Load 0x3,-0x2
03fd 4976 |Iv | Short_Literal 0x176
03fe 00eb | | Load_Encached Diana_Cache
03ff 0098 | | Execute Package,Field_Read_Dynamic
0400 180f | | Execute Package,Field_Execute,Field_Number 0xf
0401 e404 | | Load 0x2,0x4
0402 012f | / | Execute Any,Equal
0403 7014 |p | Jump_Nonzero 0x418
0404 e012 | | Load 0x0,0x12
0405 180e | | Execute Package,Field_Execute,Field_Number 0xe
0406 4801 |H | Short_Literal 0x1
0407 0092 0b50 | P| Action Push_String_Extended,0xb50 ; "Source unit "
0409 e7fe | | Load 0x3,-0x2
040a e001 | | Load 0x0,0x1
040b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040c 01cc | | Execute Vector,Catenate
040d 0092 0b51 | Q| Action Push_String_Extended,0xb51 ; " Added to set of missing units"
040f 01cc | | Execute Vector,Catenate
0410 e016 | | Load 0x0,0x16
0411 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0412 e413 | | Load 0x2,0x13
0413 e7fe | | Load 0x3,-0x2
0414 e009 | | Load 0x0,0x9
0415 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0416 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0417 c413 | | Store 0x2,0x13
0418 e7ff | | Load 0x3,-0x1
0419 0f01 | | Execute_Immediate Equal,0x1
041a 6804 |h | Jump_Zero 0x41f
041b e7fe | | Load 0x3,-0x2
041c 8219 | | Call 0x1,0x19
041d 6801 |h | Jump_Zero 0x41f
041e 8604 | | Call 0x3,0x4
041f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0420 e7fe | | Load 0x3,-0x2
0421 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0422 0fa8 | | Execute_Immediate Equal,-0x58
0423 6808 |h | Jump_Zero 0x42c
0424 e7fe | | Load 0x3,-0x2
0425 4976 |Iv | Short_Literal 0x176
0426 00eb | | Load_Encached Diana_Cache
0427 0098 | | Execute Package,Field_Read_Dynamic
0428 180f | | Execute Package,Field_Execute,Field_Number 0xf
0429 e404 | | Load 0x2,0x4
042a 012f | / | Execute Any,Equal
042b 6804 |h | Jump_Zero 0x430
042c e7fe | | Load 0x3,-0x2
042d e404 | | Load 0x2,0x4
042e 012f | / | Execute Any,Equal
042f 7014 |p | Jump_Nonzero 0x444
0430 e012 | | Load 0x0,0x12
0431 180e | | Execute Package,Field_Execute,Field_Number 0xe
0432 4801 |H | Short_Literal 0x1
0433 0092 0b52 | R| Action Push_String_Extended,0xb52 ; "Missing unit "
0435 e7fe | | Load 0x3,-0x2
0436 e001 | | Load 0x0,0x1
0437 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0438 01cc | | Execute Vector,Catenate
0439 0092 0b51 | Q| Action Push_String_Extended,0xb51 ; " Added to set of missing units"
043b 01cc | | Execute Vector,Catenate
043c e016 | | Load 0x0,0x16
043d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043e e413 | | Load 0x2,0x13
043f e7fe | | Load 0x3,-0x2
0440 e009 | | Load 0x0,0x9
0441 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0442 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0443 c413 | | Store 0x2,0x13
0444 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0445 e012 | | Load 0x0,0x12
0446 180e | | Execute Package,Field_Execute,Field_Number 0xe
0447 4801 |H | Short_Literal 0x1
0448 0092 0b53 | S| Action Push_String_Extended,0xb53 ; "Missing subunit "
044a e7fe | | Load 0x3,-0x2
044b e001 | | Load 0x0,0x1
044c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
044d 01cc | | Execute Vector,Catenate
044e 0092 0b54 | T| Action Push_String_Extended,0xb54 ; "Added to set of missing units"
0450 01cc | | Execute Vector,Catenate
0451 e016 | | Load 0x0,0x16
0452 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0453 e413 | | Load 0x2,0x13
0454 e7fe | | Load 0x3,-0x2
0455 e009 | | Load 0x0,0x9
0456 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0457 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0458 c413 | | Store 0x2,0x13
0459 4503 |E | Exit_Suprogram New_Top_Offset 0x3
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046e | n | .CONST 0x046e ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0006 | | .CONST 0x0006 ; Number of locals
0463 INIT_0460:
0463 e009 | | Load 0x0,0x9
0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0465 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0466 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call
0468 029f 080b | | Declare_Subprogram INIT_0808,For_Call
046a 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call
046c 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
046e BODY_0460:
046e e009 | | Load 0x0,0x9
046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0470 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0471 e006 | | Load 0x0,0x6
0472 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0473 e007 | | Load 0x0,0x7
0474 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0475 e009 | | Load 0x0,0x9
0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0477 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0478 c602 | | Store 0x3,0x2
0479 e7ff | | Load 0x3,-0x1
047a 8605 | | Call 0x3,0x5
047b e7ff | | Load 0x3,-0x1
047c 800a | | Call 0x0,0xa
047d 4604 |F | Jump_Case 0x5
047e 780c |x | Jump 0x48b ; case 0x0
047f 7809 |x | Jump 0x489 ; case 0x1
0480 780a |x | Jump 0x48b ; case 0x2
0481 7807 |x | Jump 0x489 ; case 0x3
0482 7800 |x | Jump 0x483 ; case 0x4
0483 e7ff | | Load 0x3,-0x1
0484 800b | | Call 0x0,0xb
0485 7005 |p | Jump_Nonzero 0x48b
0486 e7ff | | Load 0x3,-0x1
0487 8604 | | Call 0x3,0x4
0488 7802 |x | Jump 0x48b
0489 e7ff | | Load 0x3,-0x1
048a 8603 | | Call 0x3,0x3
048b e7ff | | Load 0x3,-0x1
048c 8606 | | Call 0x3,0x6
048d e602 | | Load 0x3,0x2
048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048f 0000 | | .XXX[0x1]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 049f | | .CONST 0x049f ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0006 | | .CONST 0x0006 ; Number of locals
0493 INIT_0490:
0493 00ec | | Load_Encached Diana_Tree_Cache
0494 02c7 | | Declare_Variable Any
0495 00d8 | | Load_Top At_Offset_0
0496 1c00 | | Execute_Immediate Run_Utility,0x0
0497 00e1 | | Load_Encached Boolean_Cache
0498 e5ff | | Load 0x2,-0x1
0499 00ec | | Load_Encached Diana_Tree_Cache
049a 011e | | Execute Any,Convert
049b 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call
049d 029f 0913 | | Declare_Subprogram INIT_0910,For_Call
049f BODY_0490:
049f e012 | | Load 0x0,0x12
04a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a1 4801 |H | Short_Literal 0x1
04a2 0092 0b55 | U| Action Push_String_Extended,0xb55 ; "Removing circular dependencies of "
04a4 e5ff | | Load 0x2,-0x1
04a5 e001 | | Load 0x0,0x1
04a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04a7 01cc | | Execute Vector,Catenate
04a8 e016 | | Load 0x0,0x16
04a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04aa 8606 | | Call 0x3,0x6
04ab 00e1 | | Load_Encached Boolean_Cache
04ac 4801 |H | Short_Literal 0x1
04ad e411 | | Load 0x2,0x11
04ae 8605 | | Call 0x3,0x5
04af c603 | | Store 0x3,0x3
04b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b1 0000 0000 | | .BLANK 0000[0x7]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04da | | .CONST 0x04da ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 000b | | .CONST 0x000b ; Number of locals
04bb INIT_04b8:
04bb e009 | | Load 0x0,0x9
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04be e018 | | Load 0x0,0x18
04bf 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
04c0 e00e | | Load 0x0,0xe
04c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04c2 02c7 | | Declare_Variable Any
04c3 00d8 | | Load_Top At_Offset_0
04c4 1c00 | | Execute_Immediate Run_Utility,0x0
04c5 e00e | | Load 0x0,0xe
04c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04c7 02c7 | | Declare_Variable Any
04c8 00d8 | | Load_Top At_Offset_0
04c9 1c00 | | Execute_Immediate Run_Utility,0x0
04ca e00e | | Load 0x0,0xe
04cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04cc 02c7 | | Declare_Variable Any
04cd 00d8 | | Load_Top At_Offset_0
04ce 1c00 | | Execute_Immediate Run_Utility,0x0
04cf 00e1 | | Load_Encached Boolean_Cache
04d0 00e1 | | Load_Encached Boolean_Cache
04d1 e00c | | Load 0x0,0xc
04d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d3 02c7 | | Declare_Variable Any
04d4 00d8 | | Load_Top At_Offset_0
04d5 1c00 | | Execute_Immediate Run_Utility,0x0
04d6 e014 | | Load 0x0,0x14
04d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d8 029f 093b | ;| Declare_Subprogram INIT_0938,For_Call
04da BODY_04b8:
04da e009 | | Load 0x0,0x9
04db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04dd e405 | | Load 0x2,0x5
04de e009 | | Load 0x0,0x9
04df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e1 c602 | | Store 0x3,0x2
04e2 e606 | | Load 0x3,0x6
04e3 0120 | | Execute Any,Is_Value
04e4 6803 |h | Jump_Zero 0x4e8
04e5 e00e | | Load 0x0,0xe
04e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e7 7801 |x | Jump 0x4e9
04e8 e606 | | Load 0x3,0x6
04e9 4800 |H | Short_Literal 0x0
04ea 4802 |H | Short_Literal 0x2
04eb e7ff | | Load 0x3,-0x1
04ec e40c | | Load 0x2,0xc
04ed e00e | | Load 0x0,0xe
04ee 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
04ef 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f0 c606 | | Store 0x3,0x6
04f1 e606 | | Load 0x3,0x6
04f2 e00e | | Load 0x0,0xe
04f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f4 012f | / | Execute Any,Equal
04f5 6802 |h | Jump_Zero 0x4f8
04f6 e011 | | Load 0x0,0x11
04f7 0257 | W | Execute Discrete,Raise
04f8 e7ff | | Load 0x3,-0x1
04f9 e40c | | Load 0x2,0xc
04fa e00e | | Load 0x0,0xe
04fb 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
04fc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04fd c605 | | Store 0x3,0x5
04fe e605 | | Load 0x3,0x5
04ff e018 | | Load 0x0,0x18
0500 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0501 e018 | | Load 0x0,0x18
0502 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0503 0216 | | Execute Heap_Access,Convert
0504 a603 | | Store_Unchecked 0x3,0x3
0505 00cf | | Action Mark_Auxiliary
0506 781a |x | Jump 0x521
0507 e603 | | Load 0x3,0x3
0508 e018 | | Load 0x0,0x18
0509 1b15 | | Execute Package,Field_Read,Field_Number 0x15
050a 0216 | | Execute Heap_Access,Convert
050b 860b | | Call 0x3,0xb
050c e603 | | Load 0x3,0x3
050d 0217 | | Execute Heap_Access,All_Reference
050e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
050f 680c |h | Jump_Zero 0x51c
0510 e607 | | Load 0x3,0x7
0511 700a |p | Jump_Nonzero 0x51c
0512 e608 | | Load 0x3,0x8
0513 7008 |p | Jump_Nonzero 0x51c
0514 e602 | | Load 0x3,0x2
0515 e603 | | Load 0x3,0x3
0516 0217 | | Execute Heap_Access,All_Reference
0517 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0518 e009 | | Load 0x0,0x9
0519 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
051b c602 | | Store 0x3,0x2
051c e603 | | Load 0x3,0x3
051d 0217 | | Execute Heap_Access,All_Reference
051e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
051f a603 | | Store_Unchecked 0x3,0x3
0520 00c9 | | Action Pop_Auxiliary_Loop
0521 e603 | | Load 0x3,0x3
0522 77e4 |w | Jump_Nonzero 0x507
0523 00ce | | Action Pop_Auxiliary
0524 e602 | | Load 0x3,0x2
0525 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0526 0000 0000 | | .XXX[0x2]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 4976 |Iv | Short_Literal 0x176
052d 00eb | | Load_Encached Diana_Cache
052e 0098 | | Execute Package,Field_Read_Dynamic
052f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0530 00eb | | Load_Encached Diana_Cache
0531 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0532 00eb | | Load_Encached Diana_Cache
0533 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0535 0000 0000 | | .XXX[0x3]
0537 0000 | |
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c e7fe | | Load 0x3,-0x2
053d 012f | / | Execute Any,Equal
053e 6802 |h | Jump_Zero 0x541
053f 4800 |H | Short_Literal 0x0
0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0541 00da | | Load_Top At_Offset_2
0542 7002 |p | Jump_Nonzero 0x545
0543 4800 |H | Short_Literal 0x0
0544 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0545 00db | | Load_Top At_Offset_3
0546 7002 |p | Jump_Nonzero 0x549
0547 4801 |H | Short_Literal 0x1
0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0549 00da | | Load_Top At_Offset_2
054a 0212 | | Execute Heap_Access,Address
054b e7fe | | Load 0x3,-0x2
054c 0212 | | Execute Heap_Access,Address
054d 027c | | | Execute Discrete,Less
054e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
054f 0000 | | .XXX[0x1]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0562 | b | .CONST 0x0562 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0005 | | .CONST 0x0005 ; Number of locals
0553 INIT_0550:
0553 e009 | | Load 0x0,0x9
0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0555 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0556 00ec | | Load_Encached Diana_Tree_Cache
0557 02c7 | | Declare_Variable Any
0558 00d8 | | Load_Top At_Offset_0
0559 1c00 | | Execute_Immediate Run_Utility,0x0
055a e216 | | Load 0x1,0x16
055b 0322 | " | Declare_Variable Record
055c 00d8 | | Load_Top At_Offset_0
055d 1c00 | | Execute_Immediate Run_Utility,0x0
055e e216 | | Load 0x1,0x16
055f 0322 | " | Declare_Variable Record
0560 00d8 | | Load_Top At_Offset_0
0561 1c00 | | Execute_Immediate Run_Utility,0x0
0562 BODY_0550:
0562 e009 | | Load 0x0,0x9
0563 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0564 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0565 e7ff | | Load 0x3,-0x1
0566 e009 | | Load 0x0,0x9
0567 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0568 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0569 c602 | | Store 0x3,0x2
056a 00cf | | Action Mark_Auxiliary
056b 7864 |xd | Jump 0x5d0
056c e602 | | Load 0x3,0x2
056d e009 | | Load 0x0,0x9
056e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
056f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0570 c603 | | Store 0x3,0x3
0571 00db | | Load_Top At_Offset_3
0572 e403 | | Load 0x2,0x3
0573 012f | / | Execute Any,Equal
0574 6807 |h | Jump_Zero 0x57c
0575 4801 |H | Short_Literal 0x1
0576 00da | | Load_Top At_Offset_2
0577 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0578 4801 |H | Short_Literal 0x1
0579 00da | | Load_Top At_Offset_2
057a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
057b 7859 |xY | Jump 0x5d5
057c 00db | | Load_Top At_Offset_3
057d e410 | | Load 0x2,0x10
057e e009 | | Load 0x0,0x9
057f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0580 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0581 6804 |h | Jump_Zero 0x586
0582 4801 |H | Short_Literal 0x1
0583 00da | | Load_Top At_Offset_2
0584 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0585 7844 |xD | Jump 0x5ca
0586 00db | | Load_Top At_Offset_3
0587 e40f | | Load 0x2,0xf
0588 e009 | | Load 0x0,0x9
0589 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
058b 6801 |h | Jump_Zero 0x58d
058c 783d |x= | Jump 0x5ca
058d e40c | | Load 0x2,0xc
058e e00e | | Load 0x0,0xe
058f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0590 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0591 e603 | | Load 0x3,0x3
0592 e001 | | Load 0x0,0x1
0593 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0594 6801 |h | Jump_Zero 0x596
0595 7834 |x4 | Jump 0x5ca
0596 e410 | | Load 0x2,0x10
0597 e603 | | Load 0x3,0x3
0598 e009 | | Load 0x0,0x9
0599 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
059b c410 | | Store 0x2,0x10
059c 00da | | Load_Top At_Offset_2
059d e603 | | Load 0x3,0x3
059e 841c | | Call 0x2,0x1c
059f 8421 | ! | Call 0x2,0x21
05a0 00d1 | | Pop_Control Pop_Count_1
05a1 00da | | Load_Top At_Offset_2
05a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05a3 6804 |h | Jump_Zero 0x5a8
05a4 4801 |H | Short_Literal 0x1
05a5 00da | | Load_Top At_Offset_2
05a6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05a7 781c |x | Jump 0x5c4
05a8 00da | | Load_Top At_Offset_2
05a9 e603 | | Load 0x3,0x3
05aa 841e | | Call 0x2,0x1e
05ab 8421 | ! | Call 0x2,0x21
05ac 00d1 | | Pop_Control Pop_Count_1
05ad 00da | | Load_Top At_Offset_2
05ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05af 680e |h | Jump_Zero 0x5be
05b0 00da | | Load_Top At_Offset_2
05b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b2 6811 |h | Jump_Zero 0x5c4
05b3 e403 | | Load 0x2,0x3
05b4 e603 | | Load 0x3,0x3
05b5 8420 | | Call 0x2,0x20
05b6 680d |h | Jump_Zero 0x5c4
05b7 4801 |H | Short_Literal 0x1
05b8 00da | | Load_Top At_Offset_2
05b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05ba 4801 |H | Short_Literal 0x1
05bb 00da | | Load_Top At_Offset_2
05bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05bd 7817 |x | Jump 0x5d5
05be e40f | | Load 0x2,0xf
05bf e603 | | Load 0x3,0x3
05c0 e009 | | Load 0x0,0x9
05c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c3 c40f | | Store 0x2,0xf
05c4 e410 | | Load 0x2,0x10
05c5 e603 | | Load 0x3,0x3
05c6 e009 | | Load 0x0,0x9
05c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05c9 c410 | | Store 0x2,0x10
05ca e602 | | Load 0x3,0x2
05cb e009 | | Load 0x0,0x9
05cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05ce c602 | | Store 0x3,0x2
05cf 00c9 | | Action Pop_Auxiliary_Loop
05d0 e602 | | Load 0x3,0x2
05d1 e009 | | Load 0x0,0x9
05d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05d4 6f97 |o | Jump_Zero 0x56c
05d5 00ce | | Action Pop_Auxiliary
05d6 00d8 | | Load_Top At_Offset_0
05d7 e7fe | | Load 0x3,-0x2
05d8 017d | } | Execute Record,Structure_Write
05d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05da 0000 0000 | | .BLANK 0000[0x6]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05ee | | .CONST 0x05ee ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0005 | | .CONST 0x0005 ; Number of locals
05e3 INIT_05e0:
05e3 e5ff | | Load 0x2,-0x1
05e4 841e | | Call 0x2,0x1e
05e5 e009 | | Load 0x0,0x9
05e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e7 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05e8 00ec | | Load_Encached Diana_Tree_Cache
05e9 02c7 | | Declare_Variable Any
05ea 00d8 | | Load_Top At_Offset_0
05eb 1c00 | | Execute_Immediate Run_Utility,0x0
05ec 029f 0983 | | Declare_Subprogram INIT_0980,For_Call
05ee BODY_05e0:
05ee e410 | | Load 0x2,0x10
05ef e5ff | | Load 0x2,-0x1
05f0 e009 | | Load 0x0,0x9
05f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05f3 c410 | | Store 0x2,0x10
05f4 e009 | | Load 0x0,0x9
05f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05f7 e602 | | Load 0x3,0x2
05f8 e009 | | Load 0x0,0x9
05f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05fb 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05fc 00cf | | Action Mark_Auxiliary
05fd 7807 |x | Jump 0x605
05fe 8605 | | Call 0x3,0x5
05ff 00db | | Load_Top At_Offset_3
0600 e009 | | Load 0x0,0x9
0601 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0602 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0603 c603 | | Store 0x3,0x3
0604 00c9 | | Action Pop_Auxiliary_Loop
0605 00db | | Load_Top At_Offset_3
0606 e009 | | Load 0x0,0x9
0607 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0608 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0609 6ff4 |o | Jump_Zero 0x5fe
060a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
060b 0000 0000 | | .BLANK 0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 061b | | .CONST 0x061b ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0005 | | .CONST 0x0005 ; Number of locals
0613 INIT_0610:
0613 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call
0615 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call
0617 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call
0619 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call
061b BODY_0610:
061b e012 | | Load 0x0,0x12
061c 180e | | Execute Package,Field_Execute,Field_Number 0xe
061d 4801 |H | Short_Literal 0x1
061e 0092 0b56 | V| Action Push_String_Extended,0xb56 ; "Adding generic sources of "
0620 e5ff | | Load 0x2,-0x1
0621 e001 | | Load 0x0,0x1
0622 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0623 01cc | | Execute Vector,Catenate
0624 0092 0b57 | W| Action Push_String_Extended,0xb57 ; "Start, Is_Generic_Subunit = "
0626 01cc | | Execute Vector,Catenate
0627 e409 | | Load 0x2,0x9
0628 00e1 | | Load_Encached Boolean_Cache
0629 011c | | Execute Any,Convert_Unchecked
062a 1c01 | | Execute_Immediate Run_Utility,0x1
062b 01cc | | Execute Vector,Catenate
062c e016 | | Load 0x0,0x16
062d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
062e e409 | | Load 0x2,0x9
062f 680b |h | Jump_Zero 0x63b
0630 e5ff | | Load 0x2,-0x1
0631 4976 |Iv | Short_Literal 0x176
0632 00eb | | Load_Encached Diana_Cache
0633 0098 | | Execute Package,Field_Read_Dynamic
0634 180f | | Execute Package,Field_Execute,Field_Number 0xf
0635 490d |I | Short_Literal 0x10d
0636 00eb | | Load_Encached Diana_Cache
0637 0096 | | Execute Package,Entry
0638 e001 | | Load 0x0,0x1
0639 180d | | Execute Package,Field_Execute,Field_Number 0xd
063a c40a | | Store 0x2,0xa
063b e5ff | | Load 0x2,-0x1
063c e008 | | Load 0x0,0x8
063d 180e | | Execute Package,Field_Execute,Field_Number 0xe
063e a406 | | Store_Unchecked 0x2,0x6
063f e009 | | Load 0x0,0x9
0640 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0641 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0642 e406 | | Load 0x2,0x6
0643 e009 | | Load 0x0,0x9
0644 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0645 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0646 c407 | | Store 0x2,0x7
0647 00cf | | Action Mark_Auxiliary
0648 781f |x | Jump 0x668
0649 00ea | | Load_Encached Null_String_Cache
064a e407 | | Load 0x2,0x7
064b e009 | | Load 0x0,0x9
064c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
064e 0092 0b58 | X| Action Push_String_Extended,0xb58 ; "Processing instantiation "
0650 8217 | | Call 0x1,0x17
0651 e408 | | Load 0x2,0x8
0652 e5fc | | Load 0x2,-0x4
0653 4801 |H | Short_Literal 0x1
0654 e407 | | Load 0x2,0x7
0655 e009 | | Load 0x0,0x9
0656 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0657 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0658 e417 | | Load 0x2,0x17
0659 4818 |H | Short_Literal 0x18
065a 4802 |H | Short_Literal 0x2
065b 0099 | | Action Reference_Dynamic
065c 4819 |H | Short_Literal 0x19
065d 4802 |H | Short_Literal 0x2
065e 0099 | | Action Reference_Dynamic
065f e008 | | Load 0x0,0x8
0660 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0661 c408 | | Store 0x2,0x8
0662 e407 | | Load 0x2,0x7
0663 e009 | | Load 0x0,0x9
0664 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0665 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0666 c407 | | Store 0x2,0x7
0667 00c9 | | Action Pop_Auxiliary_Loop
0668 e407 | | Load 0x2,0x7
0669 e009 | | Load 0x0,0x9
066a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
066c 6fdc |o | Jump_Zero 0x649
066d 00ce | | Action Pop_Auxiliary
066e e009 | | Load 0x0,0x9
066f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0670 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0671 e413 | | Load 0x2,0x13
0672 e009 | | Load 0x0,0x9
0673 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0674 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0675 c407 | | Store 0x2,0x7
0676 00cf | | Action Mark_Auxiliary
0677 7802 |x | Jump 0x67a
0678 8603 | | Call 0x3,0x3
0679 00c9 | | Action Pop_Auxiliary_Loop
067a e407 | | Load 0x2,0x7
067b e009 | | Load 0x0,0x9
067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
067e 6ff9 |o | Jump_Zero 0x678
067f 00ce | | Action Pop_Auxiliary
0680 e5fa | | Load 0x2,-0x6
0681 0e01 | | Execute_Immediate Not_Equal,0x1
0682 6838 |h8 | Jump_Zero 0x6bb
0683 e009 | | Load 0x0,0x9
0684 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0685 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0686 e414 | | Load 0x2,0x14
0687 e009 | | Load 0x0,0x9
0688 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0689 1819 | | Execute Package,Field_Execute,Field_Number 0x19
068a c407 | | Store 0x2,0x7
068b e407 | | Load 0x2,0x7
068c e009 | | Load 0x0,0x9
068d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
068f 702b |p+ | Jump_Nonzero 0x6bb
0690 e40e | | Load 0x2,0xe
0691 0120 | | Execute Any,Is_Value
0692 6803 |h | Jump_Zero 0x696
0693 e00e | | Load 0x0,0xe
0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0695 7801 |x | Jump 0x697
0696 e40e | | Load 0x2,0xe
0697 4800 |H | Short_Literal 0x0
0698 4802 |H | Short_Literal 0x2
0699 e5ff | | Load 0x2,-0x1
069a e40c | | Load 0x2,0xc
069b e00e | | Load 0x0,0xe
069c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
069d 180e | | Execute Package,Field_Execute,Field_Number 0xe
069e c40e | | Store 0x2,0xe
069f e40e | | Load 0x2,0xe
06a0 e00e | | Load 0x0,0xe
06a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a2 012f | / | Execute Any,Equal
06a3 6802 |h | Jump_Zero 0x6a6
06a4 e011 | | Load 0x0,0x11
06a5 0257 | W | Execute Discrete,Raise
06a6 e5ff | | Load 0x2,-0x1
06a7 e40c | | Load 0x2,0xc
06a8 e00e | | Load 0x0,0xe
06a9 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
06aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06ab c40d | | Store 0x2,0xd
06ac 00cf | | Action Mark_Auxiliary
06ad 7807 |x | Jump 0x6b5
06ae 8604 | | Call 0x3,0x4
06af e407 | | Load 0x2,0x7
06b0 e009 | | Load 0x0,0x9
06b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06b3 c407 | | Store 0x2,0x7
06b4 00c9 | | Action Pop_Auxiliary_Loop
06b5 e407 | | Load 0x2,0x7
06b6 e009 | | Load 0x0,0x9
06b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06b9 6ff4 |o | Jump_Zero 0x6ae
06ba 00ce | | Action Pop_Auxiliary
06bb e414 | | Load 0x2,0x14
06bc e009 | | Load 0x0,0x9
06bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06be 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06bf 7003 |p | Jump_Nonzero 0x6c3
06c0 e414 | | Load 0x2,0x14
06c1 841d | | Call 0x2,0x1d
06c2 c414 | | Store 0x2,0x14
06c3 e009 | | Load 0x0,0x9
06c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
06c6 e414 | | Load 0x2,0x14
06c7 e009 | | Load 0x0,0x9
06c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06ca c407 | | Store 0x2,0x7
06cb e407 | | Load 0x2,0x7
06cc e009 | | Load 0x0,0x9
06cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06cf 700f |p | Jump_Nonzero 0x6df
06d0 00cf | | Action Mark_Auxiliary
06d1 7807 |x | Jump 0x6d9
06d2 8605 | | Call 0x3,0x5
06d3 e407 | | Load 0x2,0x7
06d4 e009 | | Load 0x0,0x9
06d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06d7 c407 | | Store 0x2,0x7
06d8 00c9 | | Action Pop_Auxiliary_Loop
06d9 e407 | | Load 0x2,0x7
06da e009 | | Load 0x0,0x9
06db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06dd 6ff4 |o | Jump_Zero 0x6d2
06de 00ce | | Action Pop_Auxiliary
06df e5fa | | Load 0x2,-0x6
06e0 0e01 | | Execute_Immediate Not_Equal,0x1
06e1 6853 |hS | Jump_Zero 0x735
06e2 e009 | | Load 0x0,0x9
06e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e4 1b18 | | Execute Package,Field_Read,Field_Number 0x18
06e5 e415 | | Load 0x2,0x15
06e6 e009 | | Load 0x0,0x9
06e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06e9 c407 | | Store 0x2,0x7
06ea e407 | | Load 0x2,0x7
06eb e009 | | Load 0x0,0x9
06ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06ee 7046 |pF | Jump_Nonzero 0x735
06ef e40e | | Load 0x2,0xe
06f0 e00e | | Load 0x0,0xe
06f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f2 012f | / | Execute Any,Equal
06f3 681c |h | Jump_Zero 0x710
06f4 e40e | | Load 0x2,0xe
06f5 0120 | | Execute Any,Is_Value
06f6 6803 |h | Jump_Zero 0x6fa
06f7 e00e | | Load 0x0,0xe
06f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f9 7801 |x | Jump 0x6fb
06fa e40e | | Load 0x2,0xe
06fb 4800 |H | Short_Literal 0x0
06fc 4802 |H | Short_Literal 0x2
06fd e5ff | | Load 0x2,-0x1
06fe e40c | | Load 0x2,0xc
06ff e00e | | Load 0x0,0xe
0700 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0701 180e | | Execute Package,Field_Execute,Field_Number 0xe
0702 c40e | | Store 0x2,0xe
0703 e40e | | Load 0x2,0xe
0704 e00e | | Load 0x0,0xe
0705 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0706 012f | / | Execute Any,Equal
0707 6802 |h | Jump_Zero 0x70a
0708 e011 | | Load 0x0,0x11
0709 0257 | W | Execute Discrete,Raise
070a e5ff | | Load 0x2,-0x1
070b e40c | | Load 0x2,0xc
070c e00e | | Load 0x0,0xe
070d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
070e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
070f c40d | | Store 0x2,0xd
0710 00cf | | Action Mark_Auxiliary
0711 781d |x | Jump 0x72f
0712 e409 | | Load 0x2,0x9
0713 6807 |h | Jump_Zero 0x71b
0714 e407 | | Load 0x2,0x7
0715 e009 | | Load 0x0,0x9
0716 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0717 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0718 e40a | | Load 0x2,0xa
0719 012f | / | Execute Any,Equal
071a 700e |p | Jump_Nonzero 0x729
071b e40e | | Load 0x2,0xe
071c e40d | | Load 0x2,0xd
071d e407 | | Load 0x2,0x7
071e e009 | | Load 0x0,0x9
071f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0720 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0721 e001 | | Load 0x0,0x1
0722 180d | | Execute Package,Field_Execute,Field_Number 0xd
0723 4976 |Iv | Short_Literal 0x176
0724 00eb | | Load_Encached Diana_Cache
0725 0098 | | Execute Package,Field_Read_Dynamic
0726 180f | | Execute Package,Field_Execute,Field_Number 0xf
0727 e018 | | Load 0x0,0x18
0728 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0729 e407 | | Load 0x2,0x7
072a e009 | | Load 0x0,0x9
072b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
072d c407 | | Store 0x2,0x7
072e 00c9 | | Action Pop_Auxiliary_Loop
072f e407 | | Load 0x2,0x7
0730 e009 | | Load 0x0,0x9
0731 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0732 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0733 6fde |o | Jump_Zero 0x712
0734 00ce | | Action Pop_Auxiliary
0735 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0736 0000 0000 | | .XXX[0x2]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0745 | E | .CONST 0x0745 ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0004 | | .CONST 0x0004 ; Number of locals
073b INIT_0738:
073b e005 | | Load 0x0,0x5
073c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
073d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
073e 02ff | | Declare_Variable Variant_Record
073f 00d8 | | Load_Top At_Offset_0
0740 1c00 | | Execute_Immediate Run_Utility,0x0
0741 e005 | | Load 0x0,0x5
0742 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0743 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call
0745 BODY_0738:
0745 e005 | | Load 0x0,0x5
0746 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0747 00db | | Load_Top At_Offset_3
0748 e5ff | | Load 0x2,-0x1
0749 e005 | | Load 0x0,0x5
074a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
074b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
074c 00d1 | | Pop_Control Pop_Count_1
074d 005a | Z | Store_Top Discrete,At_Offset_2
074e e012 | | Load 0x0,0x12
074f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0750 4801 |H | Short_Literal 0x1
0751 4802 |H | Short_Literal 0x2
0752 e019 | | Load 0x0,0x19
0753 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0754 035b | [ | Declare_Type Array,Constrained
0755 0337 | 7 | Declare_Variable Array
0756 e602 | | Load 0x3,0x2
0757 e019 | | Load 0x0,0x19
0758 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0759 e019 | | Load 0x0,0x19
075a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
075b 0119 | | Execute Any,Check_In_Formal_Type
075c 4801 |H | Short_Literal 0x1
075d 00da | | Load_Top At_Offset_2
075e 01d6 | | Execute Vector,Field_Write
075f 8604 | | Call 0x3,0x4
0760 e019 | | Load 0x0,0x19
0761 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0762 e019 | | Load 0x0,0x19
0763 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0764 0119 | | Execute Any,Check_In_Formal_Type
0765 4802 |H | Short_Literal 0x2
0766 00da | | Load_Top At_Offset_2
0767 01d6 | | Execute Vector,Field_Write
0768 6007 |` | Indirect_Literal Discrete,0x770,{0x00000000, 0x000081da}
0769 e014 | | Load 0x0,0x14
076a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
076b e014 | | Load 0x0,0x14
076c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
076d e425 | % | Load 0x2,0x25
076e 0101 | | Execute Exception,Reraise
076f 0000 | | .XXX[0x1]
0770 0000 0000 | | .LITERAL {0x00000000, 0x000081da}
0774 0000 0000 | | .BLANK 0000[0x4]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0783 | | .CONST 0x0783 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b e5fc | | Load 0x2,-0x4
077c e402 | | Load 0x2,0x2
077d e015 | | Load 0x0,0x15
077e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
077f e001 | | Load 0x0,0x1
0780 180e | | Execute Package,Field_Execute,Field_Number 0xe
0781 c403 | | Store 0x2,0x3
0782 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0783 TRAP_0778:
0783 0007 | | Action Break_Optional
0784 00ec | | Load_Encached Diana_Tree_Cache
0785 c403 | | Store 0x2,0x3
0786 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0787 0000 | | .XXX[0x1]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0793 | | .CONST 0x0793 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b e5fc | | Load 0x2,-0x4
078c e402 | | Load 0x2,0x2
078d e015 | | Load 0x0,0x15
078e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
078f e001 | | Load 0x0,0x1
0790 180e | | Execute Package,Field_Execute,Field_Number 0xe
0791 c403 | | Store 0x2,0x3
0792 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0793 TRAP_0788:
0793 0007 | | Action Break_Optional
0794 00ec | | Load_Encached Diana_Tree_Cache
0795 c403 | | Store 0x2,0x3
0796 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0797 0000 | | .XXX[0x1]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b e5fc | | Load 0x2,-0x4
079c 00db | | Load_Top At_Offset_3
079d e001 | | Load 0x0,0x1
079e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
079f e005 | | Load 0x0,0x5
07a0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
07a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a2 011c | | Execute Any,Convert_Unchecked
07a3 1c01 | | Execute_Immediate Run_Utility,0x1
07a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a5 0000 0000 | | .XXX[0x3]
07a7 0000 | |
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b3 | | .CONST 0x07b3 ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0003 | | .CONST 0x0003 ; Number of locals
07ab INIT_07a8:
07ab e7fe | | Load 0x3,-0x2
07ac 821a | | Call 0x1,0x1a
07ad 00ec | | Load_Encached Diana_Tree_Cache
07ae 011e | | Execute Any,Convert
07af e5fc | | Load 0x2,-0x4
07b0 00d9 | | Load_Top At_Offset_1
07b1 e001 | | Load 0x0,0x1
07b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07b3 BODY_07a8:
07b3 00d9 | | Load_Top At_Offset_1
07b4 800b | | Call 0x0,0xb
07b5 702c |p, | Jump_Nonzero 0x7e2
07b6 00d8 | | Load_Top At_Offset_0
07b7 0f04 | | Execute_Immediate Equal,0x4
07b8 7015 |p | Jump_Nonzero 0x7ce
07b9 e012 | | Load 0x0,0x12
07ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
07bb 4801 |H | Short_Literal 0x1
07bc 0092 0b59 | Y| Action Push_String_Extended,0xb59 ; "Need a parent of a generic subunit "
07be e7fe | | Load 0x3,-0x2
07bf e001 | | Load 0x0,0x1
07c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07c1 01cc | | Execute Vector,Catenate
07c2 0092 0b5a | Z| Action Push_String_Extended,0xb5a ; " added to set of uncoded units"
07c4 01cc | | Execute Vector,Catenate
07c5 e016 | | Load 0x0,0x16
07c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c7 e414 | | Load 0x2,0x14
07c8 00da | | Load_Top At_Offset_2
07c9 e009 | | Load 0x0,0x9
07ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07cc c414 | | Store 0x2,0x14
07cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07ce e012 | | Load 0x0,0x12
07cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
07d0 4801 |H | Short_Literal 0x1
07d1 0092 0b59 | Y| Action Push_String_Extended,0xb59 ; "Need a parent of a generic subunit "
07d3 e7fe | | Load 0x3,-0x2
07d4 e001 | | Load 0x0,0x1
07d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07d6 01cc | | Execute Vector,Catenate
07d7 0092 0b5b | [| Action Push_String_Extended,0xb5b ; " added to set of coded units"
07d9 01cc | | Execute Vector,Catenate
07da e016 | | Load 0x0,0x16
07db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07dc e415 | | Load 0x2,0x15
07dd 00da | | Load_Top At_Offset_2
07de e009 | | Load 0x0,0x9
07df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07e1 c415 | | Store 0x2,0x15
07e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e3 0000 0000 | | .BLANK 0000[0x5]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f9 | | .CONST 0x07f9 ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0003 | | .CONST 0x0003 ; Number of locals
07eb INIT_07e8:
07eb 00da | | Load_Top At_Offset_2
07ec 4976 |Iv | Short_Literal 0x176
07ed 00eb | | Load_Encached Diana_Cache
07ee 0098 | | Execute Package,Field_Read_Dynamic
07ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
07f0 00ec | | Load_Encached Diana_Tree_Cache
07f1 011e | | Execute Any,Convert
07f2 00ec | | Load_Encached Diana_Tree_Cache
07f3 02c7 | | Declare_Variable Any
07f4 00d9 | | Load_Top At_Offset_1
07f5 490b |I | Short_Literal 0x10b
07f6 00eb | | Load_Encached Diana_Cache
07f7 0096 | | Execute Package,Entry
07f8 a803 | | Store_Unchecked 0x4,0x3
07f9 BODY_07e8:
07f9 00d8 | | Load_Top At_Offset_0
07fa 00da | | Load_Top At_Offset_2
07fb 012f | / | Execute Any,Equal
07fc 7008 |p | Jump_Nonzero 0x805
07fd e602 | | Load 0x3,0x2
07fe 00d9 | | Load_Top At_Offset_1
07ff e001 | | Load 0x0,0x1
0800 180d | | Execute Package,Field_Execute,Field_Number 0xd
0801 e009 | | Load 0x0,0x9
0802 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0803 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0804 c602 | | Store 0x3,0x2
0805 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0806 0000 0000 | | .XXX[0x2]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b e602 | | Load 0x3,0x2
080c 00db | | Load_Top At_Offset_3
080d 4976 |Iv | Short_Literal 0x176
080e 00eb | | Load_Encached Diana_Cache
080f 0098 | | Execute Package,Field_Read_Dynamic
0810 180f | | Execute Package,Field_Execute,Field_Number 0xf
0811 490d |I | Short_Literal 0x10d
0812 00eb | | Load_Encached Diana_Cache
0813 0096 | | Execute Package,Entry
0814 e001 | | Load 0x0,0x1
0815 180d | | Execute Package,Field_Execute,Field_Number 0xd
0816 e009 | | Load 0x0,0x9
0817 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0818 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0819 c602 | | Store 0x3,0x2
081a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081b 0000 0000 | | .BLANK 0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0837 | 7 | .CONST 0x0837 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0005 | | .CONST 0x0005 ; Number of locals
0823 INIT_0820:
0823 00ee | | Load_Encached Diana_Seq_Type_Cache
0824 02c7 | | Declare_Variable Any
0825 00db | | Load_Top At_Offset_3
0826 00eb | | Load_Encached Diana_Cache
0827 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
0828 00eb | | Load_Encached Diana_Cache
0829 1888 | | Execute Package,Field_Execute,Field_Number 0x88
082a a802 | | Store_Unchecked 0x4,0x2
082b 00ec | | Load_Encached Diana_Tree_Cache
082c 02c7 | | Declare_Variable Any
082d 00d8 | | Load_Top At_Offset_0
082e 1c00 | | Execute_Immediate Run_Utility,0x0
082f 00ee | | Load_Encached Diana_Seq_Type_Cache
0830 02c7 | | Declare_Variable Any
0831 00d8 | | Load_Top At_Offset_0
0832 1c00 | | Execute_Immediate Run_Utility,0x0
0833 00ec | | Load_Encached Diana_Tree_Cache
0834 02c7 | | Declare_Variable Any
0835 00d8 | | Load_Top At_Offset_0
0836 1c00 | | Execute_Immediate Run_Utility,0x0
0837 BODY_0820:
0837 00cf | | Action Mark_Auxiliary
0838 782a |x* | Jump 0x863
0839 e802 | | Load 0x4,0x2
083a 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
083b c803 | | Store 0x4,0x3
083c 00db | | Load_Top At_Offset_3
083d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
083e 0f85 | | Execute_Immediate Equal,-0x7b
083f 681e |h | Jump_Zero 0x85e
0840 00db | | Load_Top At_Offset_3
0841 00eb | | Load_Encached Diana_Cache
0842 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0843 c804 | | Store 0x4,0x4
0844 00cf | | Action Mark_Auxiliary
0845 00db | | Load_Top At_Offset_3
0846 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0847 00eb | | Load_Encached Diana_Cache
0848 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0849 c805 | | Store 0x4,0x5
084a e602 | | Load 0x3,0x2
084b 00db | | Load_Top At_Offset_3
084c 490b |I | Short_Literal 0x10b
084d 00eb | | Load_Encached Diana_Cache
084e 0096 | | Execute Package,Entry
084f e001 | | Load 0x0,0x1
0850 180d | | Execute Package,Field_Execute,Field_Number 0xd
0851 e009 | | Load 0x0,0x9
0852 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0853 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0854 c602 | | Store 0x3,0x2
0855 00db | | Load_Top At_Offset_3
0856 0217 | | Execute Heap_Access,All_Reference
0857 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0858 c804 | | Store 0x4,0x4
0859 00db | | Load_Top At_Offset_3
085a 6802 |h | Jump_Zero 0x85d
085b 00c9 | | Action Pop_Auxiliary_Loop
085c 7fe8 | | Jump 0x845
085d 00ce | | Action Pop_Auxiliary
085e e802 | | Load 0x4,0x2
085f 0217 | | Execute Heap_Access,All_Reference
0860 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0861 c802 | | Store 0x4,0x2
0862 00c9 | | Action Pop_Auxiliary_Loop
0863 e802 | | Load 0x4,0x2
0864 77d4 |w | Jump_Nonzero 0x839
0865 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0866 0000 0000 | | .XXX[0x2]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 087f | | .CONST 0x087f ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 000a | | .CONST 0x000a ; Number of locals
086b INIT_0868:
086b e008 | | Load 0x0,0x8
086c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086d e009 | | Load 0x0,0x9
086e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0870 00e2 | | Load_Encached Integer_Cache
0871 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0872 029f 0a7b | {| Declare_Subprogram INIT_0a78,For_Call
0874 e008 | | Load 0x0,0x8
0875 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0876 00c6 | | Action Check_Subprogram_Elaborated
0877 00e2 | | Load_Encached Integer_Cache
0878 4805 |H | Short_Literal 0x5
0879 4804 |H | Short_Literal 0x4
087a 0099 | | Action Reference_Dynamic
087b e01a | | Load 0x0,0x1a
087c e01b | | Load 0x0,0x1b
087d 480a |H | Short_Literal 0xa
087e 0007 | | Action Break_Optional
087f BODY_0868:
087f e9ff | | Load 0x4,-0x1
0880 e008 | | Load 0x0,0x8
0881 180e | | Execute Package,Field_Execute,Field_Number 0xe
0882 a802 | | Store_Unchecked 0x4,0x2
0883 e009 | | Load 0x0,0x9
0884 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0885 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0886 e802 | | Load 0x4,0x2
0887 e009 | | Load 0x0,0x9
0888 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0889 1819 | | Execute Package,Field_Execute,Field_Number 0x19
088a c803 | | Store 0x4,0x3
088b 00cf | | Action Mark_Auxiliary
088c 7817 |x | Jump 0x8a4
088d e804 | | Load 0x4,0x4
088e e5fc | | Load 0x2,-0x4
088f 4801 |H | Short_Literal 0x1
0890 e803 | | Load 0x4,0x3
0891 e009 | | Load 0x0,0x9
0892 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0893 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0894 e806 | | Load 0x4,0x6
0895 4807 |H | Short_Literal 0x7
0896 4804 |H | Short_Literal 0x4
0897 0099 | | Action Reference_Dynamic
0898 4808 |H | Short_Literal 0x8
0899 4804 |H | Short_Literal 0x4
089a 0099 | | Action Reference_Dynamic
089b e008 | | Load 0x0,0x8
089c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
089d c804 | | Store 0x4,0x4
089e e803 | | Load 0x4,0x3
089f e009 | | Load 0x0,0x9
08a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08a2 c803 | | Store 0x4,0x3
08a3 00c9 | | Action Pop_Auxiliary_Loop
08a4 e803 | | Load 0x4,0x3
08a5 e009 | | Load 0x0,0x9
08a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08a8 6fe4 |o | Jump_Zero 0x88d
08a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08aa 0000 0000 | | .BLANK 0000[0x6]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08bb | | .CONST 0x08bb ; Address of begin
08b1 0004 | | .CONST 0x0004 ; Address of exception handler
08b2 0004 | | .CONST 0x0004 ; Number of locals
08b3 INIT_08b0:
08b3 e009 | | Load 0x0,0x9
08b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
08b6 00ec | | Load_Encached Diana_Tree_Cache
08b7 02c7 | | Declare_Variable Any
08b8 00d8 | | Load_Top At_Offset_0
08b9 1c00 | | Execute_Immediate Run_Utility,0x0
08ba 00e1 | | Load_Encached Boolean_Cache
08bb BODY_08b0:
08bb 4800 |H | Short_Literal 0x0
08bc a9fd | | Store_Unchecked 0x4,-0x3
08bd e009 | | Load 0x0,0x9
08be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08bf 1b18 | | Execute Package,Field_Read,Field_Number 0x18
08c0 e9ff | | Load 0x4,-0x1
08c1 e009 | | Load 0x0,0x9
08c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
08c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
08c5 00cf | | Action Mark_Auxiliary
08c6 783e |x> | Jump 0x905
08c7 00db | | Load_Top At_Offset_3
08c8 e009 | | Load 0x0,0x9
08c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08cb c803 | | Store 0x4,0x3
08cc e9fe | | Load 0x4,-0x2
08cd 6802 |h | Jump_Zero 0x8d0
08ce 00da | | Load_Top At_Offset_2
08cf c602 | | Store 0x3,0x2
08d0 00da | | Load_Top At_Offset_2
08d1 e604 | | Load 0x3,0x4
08d2 012f | / | Execute Any,Equal
08d3 6809 |h | Jump_Zero 0x8dd
08d4 4801 |H | Short_Literal 0x1
08d5 a9fd | | Store_Unchecked 0x4,-0x3
08d6 e7ff | | Load 0x3,-0x1
08d7 e602 | | Load 0x3,0x2
08d8 e009 | | Load 0x0,0x9
08d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08da 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08db c7ff | | Store 0x3,-0x1
08dc 7822 |x" | Jump 0x8ff
08dd 00da | | Load_Top At_Offset_2
08de e40f | | Load 0x2,0xf
08df e009 | | Load 0x0,0x9
08e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08e2 6801 |h | Jump_Zero 0x8e4
08e3 781b |x | Jump 0x8ff
08e4 e40f | | Load 0x2,0xf
08e5 00db | | Load_Top At_Offset_3
08e6 e009 | | Load 0x0,0x9
08e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08e9 c40f | | Store 0x2,0xf
08ea 00e1 | | Load_Encached Boolean_Cache
08eb 4800 |H | Short_Literal 0x0
08ec e803 | | Load 0x4,0x3
08ed 841c | | Call 0x2,0x1c
08ee 8605 | | Call 0x3,0x5
08ef 005a | Z | Store_Top Discrete,At_Offset_2
08f0 00d9 | | Load_Top At_Offset_1
08f1 680d |h | Jump_Zero 0x8ff
08f2 e012 | | Load 0x0,0x12
08f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
08f4 4802 |H | Short_Literal 0x2
08f5 0092 0b5c | \| Action Push_String_Extended,0xb5c ; "Promotion prerequisites: The following unit is involved in a circular dependency problem due to generic instantiations: "
08f7 e803 | | Load 0x4,0x3
08f8 e001 | | Load 0x0,0x1
08f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08fa 01cc | | Execute Vector,Catenate
08fb e016 | | Load 0x0,0x16
08fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08fd 4801 |H | Short_Literal 0x1
08fe a9fd | | Store_Unchecked 0x4,-0x3
08ff 00db | | Load_Top At_Offset_3
0900 e009 | | Load 0x0,0x9
0901 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0902 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0903 c802 | | Store 0x4,0x2
0904 00c9 | | Action Pop_Auxiliary_Loop
0905 00db | | Load_Top At_Offset_3
0906 e009 | | Load 0x0,0x9
0907 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0908 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0909 6fbd |o | Jump_Zero 0x8c7
090a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
090b 0000 0000 | | .BLANK 0000[0x5]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0916 | | .CONST 0x0916 ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0002 | | .CONST 0x0002 ; Number of locals
0913 INIT_0910:
0913 e009 | | Load 0x0,0x9
0914 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0915 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0916 BODY_0910:
0916 e009 | | Load 0x0,0x9
0917 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0918 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0919 e7ff | | Load 0x3,-0x1
091a e009 | | Load 0x0,0x9
091b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
091c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
091d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
091e 00cf | | Action Mark_Auxiliary
091f 780f |x | Jump 0x92f
0920 e411 | | Load 0x2,0x11
0921 00da | | Load_Top At_Offset_2
0922 e009 | | Load 0x0,0x9
0923 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0924 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0925 e009 | | Load 0x0,0x9
0926 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0927 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0928 c411 | | Store 0x2,0x11
0929 00d9 | | Load_Top At_Offset_1
092a e009 | | Load 0x0,0x9
092b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
092d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
092e 00c9 | | Action Pop_Auxiliary_Loop
092f 00d9 | | Load_Top At_Offset_1
0930 e009 | | Load 0x0,0x9
0931 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0932 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0933 6fec |o | Jump_Zero 0x920
0934 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0935 0000 0000 | | .XXX[0x3]
0937 0000 | |
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0954 | T | .CONST 0x0954 ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0007 | | .CONST 0x0007 ; Number of locals
093b INIT_0938:
093b e00e | | Load 0x0,0xe
093c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
093d 02c7 | | Declare_Variable Any
093e 00db | | Load_Top At_Offset_3
093f 0217 | | Execute Heap_Access,All_Reference
0940 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0941 e00e | | Load 0x0,0xe
0942 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0943 a802 | | Store_Unchecked 0x4,0x2
0944 e00e | | Load 0x0,0xe
0945 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0946 02c7 | | Declare_Variable Any
0947 00d8 | | Load_Top At_Offset_0
0948 1c00 | | Execute_Immediate Run_Utility,0x0
0949 00e1 | | Load_Encached Boolean_Cache
094a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
094b e00e | | Load 0x0,0xe
094c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
094d 02c7 | | Declare_Variable Any
094e 00d8 | | Load_Top At_Offset_0
094f 1c00 | | Execute_Immediate Run_Utility,0x0
0950 029f 0a93 | | Declare_Subprogram INIT_0a90,For_Call
0952 029f 0ab3 | | Declare_Subprogram INIT_0ab0,For_Call
0954 BODY_0938:
0954 e802 | | Load 0x4,0x2
0955 e00e | | Load 0x0,0xe
0956 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0957 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0958 a608 | | Store_Unchecked 0x3,0x8
0959 8806 | | Call 0x4,0x6
095a c803 | | Store 0x4,0x3
095b e803 | | Load 0x4,0x3
095c e00e | | Load 0x0,0xe
095d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
095e 012f | / | Execute Any,Equal
095f 701d |p | Jump_Nonzero 0x97d
0960 8807 | | Call 0x4,0x7
0961 c805 | | Store 0x4,0x5
0962 00da | | Load_Top At_Offset_2
0963 e00e | | Load 0x0,0xe
0964 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0965 012f | / | Execute Any,Equal
0966 7016 |p | Jump_Nonzero 0x97d
0967 00da | | Load_Top At_Offset_2
0968 e605 | | Load 0x3,0x5
0969 012e | . | Execute Any,Not_Equal
096a 6812 |h | Jump_Zero 0x97d
096b e5fa | | Load 0x2,-0x6
096c 0e01 | | Execute_Immediate Not_Equal,0x1
096d 6809 |h | Jump_Zero 0x977
096e 00da | | Load_Top At_Offset_2
096f e00e | | Load 0x0,0xe
0970 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
0971 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0972 e001 | | Load 0x0,0x1
0973 180d | | Execute Package,Field_Execute,Field_Number 0xd
0974 e9ff | | Load 0x4,-0x1
0975 0217 | | Execute Heap_Access,All_Reference
0976 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0977 00da | | Load_Top At_Offset_2
0978 e00e | | Load 0x0,0xe
0979 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
097a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
097b 0f04 | | Execute_Immediate Equal,0x4
097c a607 | | Store_Unchecked 0x3,0x7
097d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
097e 0000 0000 | | .XXX[0x2]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0987 | | .CONST 0x0987 ; Address of begin
0981 0004 | | .CONST 0x0004 ; Address of exception handler
0982 0002 | | .CONST 0x0002 ; Number of locals
0983 INIT_0980:
0983 e216 | | Load 0x1,0x16
0984 0322 | " | Declare_Variable Record
0985 00d8 | | Load_Top At_Offset_0
0986 1c00 | | Execute_Immediate Run_Utility,0x0
0987 BODY_0980:
0987 e603 | | Load 0x3,0x3
0988 e009 | | Load 0x0,0x9
0989 1b0d | | Execute Package,Field_Read,Field_Number 0xd
098a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
098b c604 | | Store 0x3,0x4
098c e604 | | Load 0x3,0x4
098d e410 | | Load 0x2,0x10
098e e009 | | Load 0x0,0x9
098f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0990 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0991 6804 |h | Jump_Zero 0x996
0992 4801 |H | Short_Literal 0x1
0993 00d9 | | Load_Top At_Offset_1
0994 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0995 7828 |x( | Jump 0x9be
0996 e410 | | Load 0x2,0x10
0997 e604 | | Load 0x3,0x4
0998 e009 | | Load 0x0,0x9
0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
099b c410 | | Store 0x2,0x10
099c 00d8 | | Load_Top At_Offset_0
099d e604 | | Load 0x3,0x4
099e 841c | | Call 0x2,0x1c
099f 8421 | ! | Call 0x2,0x21
09a0 00d1 | | Pop_Control Pop_Count_1
09a1 00d8 | | Load_Top At_Offset_0
09a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09a3 7014 |p | Jump_Nonzero 0x9b8
09a4 00d8 | | Load_Top At_Offset_0
09a5 e604 | | Load 0x3,0x4
09a6 841e | | Call 0x2,0x1e
09a7 8421 | ! | Call 0x2,0x21
09a8 00d1 | | Pop_Control Pop_Count_1
09a9 00d8 | | Load_Top At_Offset_0
09aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09ab 680c |h | Jump_Zero 0x9b8
09ac 00d8 | | Load_Top At_Offset_0
09ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09ae 6806 |h | Jump_Zero 0x9b5
09af e403 | | Load 0x2,0x3
09b0 e604 | | Load 0x3,0x4
09b1 8420 | | Call 0x2,0x20
09b2 00d9 | | Load_Top At_Offset_1
09b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
09b4 7803 |x | Jump 0x9b8
09b5 4800 |H | Short_Literal 0x0
09b6 00d9 | | Load_Top At_Offset_1
09b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
09b8 e410 | | Load 0x2,0x10
09b9 e604 | | Load 0x3,0x4
09ba e009 | | Load 0x0,0x9
09bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
09bd c410 | | Store 0x2,0x10
09be 00d8 | | Load_Top At_Offset_0
09bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09c0 700d |p | Jump_Nonzero 0x9ce
09c1 4800 |H | Short_Literal 0x0
09c2 e5f9 | | Load 0x2,-0x7
09c3 e5fd | | Load 0x2,-0x3
09c4 e5fe | | Load 0x2,-0x2
09c5 e604 | | Load 0x3,0x4
09c6 8218 | | Call 0x1,0x18
09c7 c5f9 | | Store 0x2,-0x7
09c8 e40f | | Load 0x2,0xf
09c9 e604 | | Load 0x3,0x4
09ca e009 | | Load 0x0,0x9
09cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09cd c40f | | Store 0x2,0xf
09ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09cf 0000 | | .XXX[0x1]
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09db | | .CONST 0x09db ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0003 | | .CONST 0x0003 ; Number of locals
09d3 INIT_09d0:
09d3 e005 | | Load 0x0,0x5
09d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d6 02c7 | | Declare_Variable Any
09d7 00d8 | | Load_Top At_Offset_0
09d8 1c00 | | Execute_Immediate Run_Utility,0x0
09d9 e005 | | Load 0x0,0x5
09da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09db BODY_09d0:
09db e005 | | Load 0x0,0x5
09dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09dd 00da | | Load_Top At_Offset_2
09de 0120 | | Execute Any,Is_Value
09df 6804 |h | Jump_Zero 0x9e4
09e0 e005 | | Load 0x0,0x5
09e1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09e3 7801 |x | Jump 0x9e5
09e4 00da | | Load_Top At_Offset_2
09e5 e9ff | | Load 0x4,-0x1
09e6 e005 | | Load 0x0,0x5
09e7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
09e9 c802 | | Store 0x4,0x2
09ea 0059 | Y | Store_Top Discrete,At_Offset_1
09eb 00d8 | | Load_Top At_Offset_0
09ec 6801 |h | Jump_Zero 0x9ee
09ed 0887 | | Execute_Immediate Raise,0x87
09ee 00d9 | | Load_Top At_Offset_1
09ef e005 | | Load 0x0,0x5
09f0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
09f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09f3 0000 0000 | | .BLANK 0000[0x5]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 0a01 | | .CONST 0x0a01 ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0002 | | .CONST 0x0002 ; Number of locals
09fb INIT_09f8:
09fb e407 | | Load 0x2,0x7
09fc e009 | | Load 0x0,0x9
09fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09ff 00ec | | Load_Encached Diana_Tree_Cache
0a00 011e | | Execute Any,Convert
0a01 BODY_09f8:
0a01 00d8 | | Load_Top At_Offset_0
0a02 8602 | | Call 0x3,0x2
0a03 e01c | | Load 0x0,0x1c
0a04 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a05 700d |p | Jump_Nonzero 0xa13
0a06 0092 0b5d | ]| Action Push_String_Extended,0xb5d ; " as body surrogate"
0a08 00d9 | | Load_Top At_Offset_1
0a09 0092 0b5e | ^| Action Push_String_Extended,0xb5e ; "GENERIC SOURCE "
0a0b 8217 | | Call 0x1,0x17
0a0c 4801 |H | Short_Literal 0x1
0a0d e5f9 | | Load 0x2,-0x7
0a0e e5fd | | Load 0x2,-0x3
0a0f e5fe | | Load 0x2,-0x2
0a10 e802 | | Load 0x4,0x2
0a11 8218 | | Call 0x1,0x18
0a12 c5f9 | | Store 0x2,-0x7
0a13 e407 | | Load 0x2,0x7
0a14 e009 | | Load 0x0,0x9
0a15 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a16 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0a17 c407 | | Store 0x2,0x7
0a18 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a19 0000 0000 | | .BLANK 0000[0x7]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a29 | ) | .CONST 0x0a29 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0002 | | .CONST 0x0002 ; Number of locals
0a23 INIT_0a20:
0a23 e407 | | Load 0x2,0x7
0a24 e009 | | Load 0x0,0x9
0a25 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a26 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a27 00ec | | Load_Encached Diana_Tree_Cache
0a28 011e | | Execute Any,Convert
0a29 BODY_0a20:
0a29 e409 | | Load 0x2,0x9
0a2a 6804 |h | Jump_Zero 0xa2f
0a2b 00d8 | | Load_Top At_Offset_0
0a2c e40a | | Load 0x2,0xa
0a2d 012f | / | Execute Any,Equal
0a2e 700b |p | Jump_Nonzero 0xa3a
0a2f e40e | | Load 0x2,0xe
0a30 e40d | | Load 0x2,0xd
0a31 00da | | Load_Top At_Offset_2
0a32 e001 | | Load 0x0,0x1
0a33 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a34 4976 |Iv | Short_Literal 0x176
0a35 00eb | | Load_Encached Diana_Cache
0a36 0098 | | Execute Package,Field_Read_Dynamic
0a37 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a38 e018 | | Load 0x0,0x18
0a39 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0a3a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a3b 0000 0000 | | .BLANK 0000[0x5]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a49 | I | .CONST 0x0a49 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0002 | | .CONST 0x0002 ; Number of locals
0a43 INIT_0a40:
0a43 e407 | | Load 0x2,0x7
0a44 e009 | | Load 0x0,0x9
0a45 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a46 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a47 00ec | | Load_Encached Diana_Tree_Cache
0a48 011e | | Execute Any,Convert
0a49 BODY_0a40:
0a49 e409 | | Load 0x2,0x9
0a4a 6804 |h | Jump_Zero 0xa4f
0a4b 00d8 | | Load_Top At_Offset_0
0a4c e40a | | Load 0x2,0xa
0a4d 012f | / | Execute Any,Equal
0a4e 700c |p | Jump_Nonzero 0xa5b
0a4f 00ea | | Load_Encached Null_String_Cache
0a50 00d9 | | Load_Top At_Offset_1
0a51 0092 0b5f | _| Action Push_String_Extended,0xb5f ; "GENERIC SOURCE"
0a53 8217 | | Call 0x1,0x17
0a54 4800 |H | Short_Literal 0x0
0a55 e5f9 | | Load 0x2,-0x7
0a56 e5fd | | Load 0x2,-0x3
0a57 e5fe | | Load 0x2,-0x2
0a58 e802 | | Load 0x4,0x2
0a59 8218 | | Call 0x1,0x18
0a5a c5f9 | | Store 0x2,-0x7
0a5b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a5c 0000 0000 | | .BLANK 0000[0x4]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63 | c | .CONST 0x0a63 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0001 | | .CONST 0x0001 ; Number of locals
0a63 BODY_0a60:
0a63 INIT_0a60:
0a63 e40b | | Load 0x2,0xb
0a64 e00c | | Load 0x0,0xc
0a65 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0a66 7004 |p | Jump_Nonzero 0xa6b
0a67 e40b | | Load 0x2,0xb
0a68 e00c | | Load 0x0,0xc
0a69 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a6a 00ca | | Action Exit_Nullary_Function
0a6b e40c | | Load 0x2,0xc
0a6c e00e | | Load 0x0,0xe
0a6d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0a6e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a6f e00c | | Load 0x0,0xc
0a70 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a71 00ca | | Action Exit_Nullary_Function
0a72 0000 0000 | | .BLANK 0000[0x6]
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a7b | { | .CONST 0x0a7b ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0001 | | .CONST 0x0001 ; Number of locals
0a7b BODY_0a78:
0a7b INIT_0a78:
0a7b 00da | | Load_Top At_Offset_2
0a7c 4803 |H | Short_Literal 0x3
0a7d 4805 |H | Short_Literal 0x5
0a7e 0262 | b | Execute Discrete,In_Range
0a7f 700c |p | Jump_Nonzero 0xa8c
0a80 7800 |x | Jump 0xa81
0a81 e5fc | | Load 0x2,-0x4
0a82 ebfe | | Load 0x5,-0x2
0a83 e001 | | Load 0x0,0x1
0a84 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a85 7006 |p | Jump_Nonzero 0xa8c
0a86 e602 | | Load 0x3,0x2
0a87 ebfe | | Load 0x5,-0x2
0a88 e009 | | Load 0x0,0x9
0a89 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a8a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a8b c602 | | Store 0x3,0x2
0a8c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a8d 0000 0000 | | .XXX[0x3]
0a8f 0000 | |
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a98 | | .CONST 0x0a98 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0002 | | .CONST 0x0002 ; Number of locals
0a93 INIT_0a90:
0a93 e00e | | Load 0x0,0xe
0a94 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0a95 02c7 | | Declare_Variable Any
0a96 00d8 | | Load_Top At_Offset_0
0a97 1c00 | | Execute_Immediate Run_Utility,0x0
0a98 BODY_0a90:
0a98 e608 | | Load 0x3,0x8
0a99 6808 |h | Jump_Zero 0xaa2
0a9a 4800 |H | Short_Literal 0x0
0a9b e802 | | Load 0x4,0x2
0a9c e40c | | Load 0x2,0xc
0a9d e00e | | Load 0x0,0xe
0a9e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0a9f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0aa0 ca02 | | Store 0x5,0x2
0aa1 7802 |x | Jump 0xaa4
0aa2 e802 | | Load 0x4,0x2
0aa3 ca02 | | Store 0x5,0x2
0aa4 00d8 | | Load_Top At_Offset_0
0aa5 e00e | | Load 0x0,0xe
0aa6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0aa7 180f | | Execute Package,Field_Execute,Field_Number 0xf
0aa8 00ca | | Action Exit_Nullary_Function
0aa9 0000 0000 | | .BLANK 0000[0x7]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ab7 | | .CONST 0x0ab7 ; Address of begin
0ab1 0004 | | .CONST 0x0004 ; Address of exception handler
0ab2 0003 | | .CONST 0x0003 ; Number of locals
0ab3 INIT_0ab0:
0ab3 029f 0acb | | Declare_Subprogram INIT_0ac8,For_Call
0ab5 029f 0aeb | | Declare_Subprogram INIT_0ae8,For_Call
0ab7 BODY_0ab0:
0ab7 e803 | | Load 0x4,0x3
0ab8 8a02 | | Call 0x5,0x2
0ab9 6807 |h | Jump_Zero 0xac1
0aba e803 | | Load 0x4,0x3
0abb 00d8 | | Load_Top At_Offset_0
0abc 0120 | | Execute Any,Is_Value
0abd 7002 |p | Jump_Nonzero 0xac0
0abe 00d8 | | Load_Top At_Offset_0
0abf 011e | | Execute Any,Convert
0ac0 00ca | | Action Exit_Nullary_Function
0ac1 e803 | | Load 0x4,0x3
0ac2 8a03 | | Call 0x5,0x3
0ac3 00ca | | Action Exit_Nullary_Function
0ac4 0000 0000 | | .BLANK 0000[0x4]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ad1 | | .CONST 0x0ad1 ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0002 | | .CONST 0x0002 ; Number of locals
0acb INIT_0ac8:
0acb 00da | | Load_Top At_Offset_2
0acc e018 | | Load 0x0,0x18
0acd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0ace e018 | | Load 0x0,0x18
0acf 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0ad0 0216 | | Execute Heap_Access,Convert
0ad1 BODY_0ac8:
0ad1 00cf | | Action Mark_Auxiliary
0ad2 780f |x | Jump 0xae2
0ad3 00d9 | | Load_Top At_Offset_1
0ad4 0217 | | Execute Heap_Access,All_Reference
0ad5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ad6 e9ff | | Load 0x4,-0x1
0ad7 0217 | | Execute Heap_Access,All_Reference
0ad8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0ad9 027f | | Execute Discrete,Equal
0ada 6802 |h | Jump_Zero 0xadd
0adb 4801 |H | Short_Literal 0x1
0adc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0add 00d9 | | Load_Top At_Offset_1
0ade 0217 | | Execute Heap_Access,All_Reference
0adf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ae0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0ae1 00c9 | | Action Pop_Auxiliary_Loop
0ae2 00d9 | | Load_Top At_Offset_1
0ae3 77ef |w | Jump_Nonzero 0xad3
0ae4 00ce | | Action Pop_Auxiliary
0ae5 4800 |H | Short_Literal 0x0
0ae6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ae7 0000 | | .XXX[0x1]
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0b01 | | .CONST 0x0b01 ; Address of begin
0ae9 0004 | | .CONST 0x0004 ; Address of exception handler
0aea 0005 | | .CONST 0x0005 ; Number of locals
0aeb INIT_0ae8:
0aeb 00da | | Load_Top At_Offset_2
0aec e00e | | Load 0x0,0xe
0aed 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0aee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aef 00e3 | | Load_Encached Natural_Cache
0af0 03f1 | | Declare_Variable Discrete,With_Value
0af1 e00e | | Load 0x0,0xe
0af2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0af3 02c7 | | Declare_Variable Any
0af4 00d8 | | Load_Top At_Offset_0
0af5 1c00 | | Execute_Immediate Run_Utility,0x0
0af6 e00e | | Load 0x0,0xe
0af7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0af8 02c7 | | Declare_Variable Any
0af9 00d8 | | Load_Top At_Offset_0
0afa 1c00 | | Execute_Immediate Run_Utility,0x0
0afb e00e | | Load 0x0,0xe
0afc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0afd 02c7 | | Declare_Variable Any
0afe e00e | | Load 0x0,0xe
0aff 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0b00 ac05 | | Store_Unchecked 0x6,0x5
0b01 BODY_0ae8:
0b01 00db | | Load_Top At_Offset_3
0b02 0c01 | | Execute_Immediate Greater_Equal,0x1
0b03 6836 |h6 | Jump_Zero 0xb3a
0b04 edff | | Load 0x6,-0x1
0b05 e00e | | Load 0x0,0xe
0b06 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0b07 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b08 cc03 | | Store 0x6,0x3
0b09 00cf | | Action Mark_Auxiliary
0b0a 7829 |x) | Jump 0xb34
0b0b 00db | | Load_Top At_Offset_3
0b0c e00e | | Load 0x0,0xe
0b0d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b0e cc04 | | Store 0x6,0x4
0b0f 00da | | Load_Top At_Offset_2
0b10 e00e | | Load 0x0,0xe
0b11 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0b12 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0b13 0f03 | | Execute_Immediate Equal,0x3
0b14 00db | | Load_Top At_Offset_3
0b15 e00e | | Load 0x0,0xe
0b16 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0b17 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0b18 0f04 | | Execute_Immediate Equal,0x4
0b19 0278 | x | Execute Discrete,Or
0b1a 6814 |h | Jump_Zero 0xb2f
0b1b 00da | | Load_Top At_Offset_2
0b1c 8a02 | | Call 0x5,0x2
0b1d 6802 |h | Jump_Zero 0xb20
0b1e 00da | | Load_Top At_Offset_2
0b1f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b20 00da | | Load_Top At_Offset_2
0b21 8a03 | | Call 0x5,0x3
0b22 cc05 | | Store 0x6,0x5
0b23 00d9 | | Load_Top At_Offset_1
0b24 e00e | | Load 0x0,0xe
0b25 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0b26 012f | / | Execute Any,Equal
0b27 7002 |p | Jump_Nonzero 0xb2a
0b28 00d9 | | Load_Top At_Offset_1
0b29 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b2a 00db | | Load_Top At_Offset_3
0b2b e00e | | Load 0x0,0xe
0b2c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0b2d cc03 | | Store 0x6,0x3
0b2e 7804 |x | Jump 0xb33
0b2f 00db | | Load_Top At_Offset_3
0b30 e00e | | Load 0x0,0xe
0b31 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0b32 cc03 | | Store 0x6,0x3
0b33 00c9 | | Action Pop_Auxiliary_Loop
0b34 00db | | Load_Top At_Offset_3
0b35 e00e | | Load 0x0,0xe
0b36 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0b37 012f | / | Execute Any,Equal
0b38 6fd2 |o | Jump_Zero 0xb0b
0b39 00ce | | Action Pop_Auxiliary
0b3a 00d8 | | Load_Top At_Offset_0
0b3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b3c ; --------------------------------------------------------------------------------------
0b3c ; STRING TABLE
0b3c ; --------------------------------------------------------------------------------------
0b3c 004a | J | .STRTAB 0x004a->0x0b61 ; "WITH"
0b3d 004c | L | .STRTAB 0x004c->0x0b63 ; "SPEC"
0b3e 004e | N | .STRTAB 0x004e->0x0b65 ; "PARENT"
0b3f 0052 | R | .STRTAB 0x0052->0x0b68 ; "as body surrogate"
0b40 0061 | a | .STRTAB 0x0061->0x0b70 ; "SUBUNIT"
0b41 0066 | f | .STRTAB 0x0066->0x0b74 ; "Cc_Instance.Cg_Coupler.Need_Ops"
0b42 0083 | | .STRTAB 0x0083->0x0b83 ; "Referencing expander is non-existent"
0b43 00a5 | | .STRTAB 0x00a5->0x0b95 ; "Referencing main program is non-existent"
0b44 00cb | | .STRTAB 0x00cb->0x0ba9 ; "Specifying "
0b45 00d4 | | .STRTAB 0x00d4->0x0baf ; " need: "
0b46 00d9 | | .STRTAB 0x00d9->0x0bb2 ; " "
0b47 00d8 | | .STRTAB 0x00d8->0x0bb3 ; "BODY"
0b48 00da | | .STRTAB 0x00da->0x0bb5 ; "Process_Unit of "
0b49 00e8 | | .STRTAB 0x00e8->0x0bbd ; ";Kind = "
0b4a 00ee | | .STRTAB 0x00ee->0x0bc1 ; ", Unit_State = "
0b4b 00fb | | .STRTAB 0x00fb->0x0bc8 ; "Bad directory status "
0b4c 010e | | .STRTAB 0x010e->0x0bd3 ; "Coded unit "
0b4d 0117 | | .STRTAB 0x0117->0x0bd8 ; "Added to set of already coded unit"
0b4e 0137 | 7 | .STRTAB 0x0137->0x0be9 ; "Installed unit "
0b4f 0144 | D | .STRTAB 0x0144->0x0bf1 ; "Added to set of uncoded units"
0b50 015f | _ | .STRTAB 0x015f->0x0bff ; "Source unit "
0b51 0169 | i | .STRTAB 0x0169->0x0c05 ; " Added to set of missing units"
0b52 0185 | | .STRTAB 0x0185->0x0c14 ; "Missing unit "
0b53 0190 | | .STRTAB 0x0190->0x0c1b ; "Missing subunit "
0b54 019e | | .STRTAB 0x019e->0x0c23 ; "Added to set of missing units"
0b55 01b9 | | .STRTAB 0x01b9->0x0c31 ; "Removing circular dependencies of "
0b56 01d9 | | .STRTAB 0x01d9->0x0c42 ; "Adding generic sources of "
0b57 01f1 | | .STRTAB 0x01f1->0x0c4f ; "Start, Is_Generic_Subunit = "
0b58 020b | | .STRTAB 0x020b->0x0c5d ; "Processing instantiation "
0b59 0222 | " | .STRTAB 0x0222->0x0c6a ; "Need a parent of a generic subunit "
0b5a 0243 | C | .STRTAB 0x0243->0x0c7b ; " added to set of uncoded units"
0b5b 025f | _ | .STRTAB 0x025f->0x0c8a ; " added to set of coded units"
0b5c 0279 | y | .STRTAB 0x0279->0x0c98 ; "Promotion prerequisites: The following unit is involved in a circular dependency problem due to generic instantiations: "
0b5d 02f1 | | .STRTAB 0x02f1->0x0cd5 ; " as body surrogate"
0b5e 0301 | | .STRTAB 0x0301->0x0cde ; "GENERIC SOURCE "
0b5f 030e | | .STRTAB 0x030e->0x0ce6 ; "GENERIC SOURCE"
0b60 031a | | .STREND 0x031a->0x0ced
0b61 5749 5448 |WITH| .STRTAB_STRINGS
0ced 0000 0000 | | .XXX[0x3]
0cef 0000 | |
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; Debug Table
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0004 000d | | .DEBUG4 0x0004,0x000d,0xcef9,0x0000,0x0001,0x0000
0cf6 2aca 0000 |* | .XXX[0x2a]
0cf8 0000 0000 | |
0cfa 2ae7 5800 |* X |
0cfc 0000 0000 | |
0cfe 2b02 d000 |+ |
0d00 0000 0000 | |
0d02 2b09 0c00 |+ |
0d04 0000 0000 | |
0d06 2b24 8400 |+$ |
0d08 0000 0000 | |
0d0a 2b2b 2000 |++ |
0d0c 0000 0000 | |
0d0e 2b46 9800 |+F |
0d10 0000 0000 | |
0d12 2b51 9400 |+Q |
0d14 0000 0000 | |
0d16 2b76 ec00 |+v |
0d18 0000 0000 | |
0d1a 2b9b 6400 |+ d |
0d1c 0000 0000 | |
0d1e 2bb6 dc00 |+ |
0d20 0000 0000 | | .BLANK 0000[0x1b]
0d3b 00af d0b0 | | .XXX[0xc5]
0d3d 019b c1e0 | |
0d3f 0000 0000 | |
0d41 0011 651a | e |
0d43 0000 0000 | |
0d45 00cc 63c4 | c |
0d47 51d0 e857 |Q W|
0d49 e858 00d3 | X |
0d4b 6d60 0000 |m` |
0d4d 0000 0008 | |
0d4f b35e 0000 | ^ |
0d51 0000 0066 | f|
0d53 7172 2b18 |qr+ |
0d55 742b f42c |t+ ,|
0d57 0061 89dc | a |
0d59 0000 0002 | |
0d5b 8004 5a17 | Z |
0d5d 8000 0000 | |
0d5f 0033 74c1 | 3t |
0d61 1590 3a15 | : |
0d63 fa16 0029 | )|
0d65 dbc8 0000 | |
0d67 0000 4002 | @ |
0d69 2d40 0000 |-@ |
0d6b 0000 0030 | 0|
0d6d 04e0 7fff | |
0d6f 1d0a fd0b | |
0d71 0002 478a | G |
0d73 0000 0000 | |
0d75 0001 16ba | |
0d77 2000 0000 | |
0d79 5ff2 2df6 |_ - |
0d7b 4600 8e85 |F |
0d7d 7e85 8002 |~ |
0d7f 877b 0000 | { |
0d81 0000 0000 | |
0d83 8b6a 2000 | j |
0d85 0000 2ff9 | / |
0d87 8f0b 1fff | |
0d89 c7d8 f442 | B|
0d8b c000 30eb | 0 |
0d8d 6000 0000 |` |
0d8f 0000 45bb | E |
0d91 9800 0000 | |
0d93 17fc cb7e | ~|
0d95 9240 03ec | @ |
0d97 7a21 6000 |z!` |
0d99 79e1 0000 |y |
0d9b 0000 0000 | |
0d9d 22e1 1000 |" |
0d9f 0000 0bfe | |
0da1 77bc 07ff |w |
0da3 f1f6 3d10 | = |
0da5 b000 5b6b | [k|
0da7 9000 0000 | |
0da9 0a00 1172 | r|
0dab 2a00 0017 |* |
0dad f684 5ea8 | ^ |
0daf 83ff f8e8 | |
0db1 57e8 5800 |W X |
0db3 1c79 1800 | y |
0db5 0000 0000 | |
0db7 08b9 e600 | |
0db9 0000 0000 | |
0dbb 6541 d240 |eA @|
0dbd 0074 2bf4 | t+ |
0dbf 2c00 2732 |, '2|
0dc1 dc00 0000 | |
0dc3 0000 045d | ]|
0dc5 5b80 0000 |[ |
0dc7 0000 3335 | 35|
0dc9 3914 ba3a |9 :|
0dcb 15fa 1600 | |
0dcd 2f0e 4400 |/ D |
0dcf 0000 0000 | |
0dd1 022e e200 | . |
0dd3 0000 00bf | |
0dd5 e45b f092 | [ |
0dd7 001d 0afd | |
0dd9 0b00 0513 | |
0ddb 5d00 0000 |] |
0ddd 0000 0117 | |
0ddf 8b20 0000 | |
0de1 005f f32d | _ -|
0de3 fc49 008f | I |
0de5 b1e8 8580 | |
0de7 01eb ad80 | |
0de9 0000 0000 | |
0deb 008b d2a0 | |
0ded 0000 002f | /|
0def f9de f11f | |
0df1 ffc7 d8f4 | |
0df3 42c0 016f |B o|
0df5 4040 0000 |@@ |
0df7 0028 0045 | ( E|
0df9 efd8 0000 | |
0dfb 0000 0315 | |
0dfd 5011 5183 |P Q |
0dff a15f | _ |