|
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: 3072 (0xc00)
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 05e8 | | .CONST 0x05e8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0051 | Q | .CONST 0x0051 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 4800 |H | Short_Literal 0x0
0016 4805 |H | Short_Literal 0x5
0017 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001c 00bf | | Action Accept_Activation
001d e002 | | Load 0x0,0x2
001e 190e | | Execute Package,Field_Reference,Field_Number 0xe
001f 0007 | | Action Break_Optional
0020 e002 | | Load 0x0,0x2
0021 190f | | Execute Package,Field_Reference,Field_Number 0xf
0022 0007 | | Action Break_Optional
0023 e003 | | Load 0x0,0x3
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 e20d | | Load 0x1,0xd
0026 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0028 4802 |H | Short_Literal 0x2
0029 032d | - | Declare_Type Record,Defined
002a 029b 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Unelaborated
002c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002d 00c7 | | Action Elaborate_Subprogram
002e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002f 00c7 | | Action Elaborate_Subprogram
0030 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0032 e004 | | Load 0x0,0x4
0033 190d | | Execute Package,Field_Reference,Field_Number 0xd
0034 00c6 | | Action Check_Subprogram_Elaborated
0035 00da | | Load_Top At_Offset_2
0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0037 e005 | | Load 0x0,0x5
0038 e006 | | Load 0x0,0x6
0039 4800 |H | Short_Literal 0x0
003a 0007 | | Action Break_Optional
003b 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003c 00c7 | | Action Elaborate_Subprogram
003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003e 00c7 | | Action Elaborate_Subprogram
003f 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
0041 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0043 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
0045 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0047 029b 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Unelaborated
0049 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call
004b 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
004d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
004e 00c7 | | Action Elaborate_Subprogram
004f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0050 00c7 | | Action Elaborate_Subprogram
0051 BODY_0008:
0051 00bc | | Action Signal_Activated
0052 00bb | | Action Signal_Completion
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0067 | g | .CONST 0x0067 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b 00ef | | Load_Encached Diana_Sequence_Cache
005c 02c7 | | Declare_Variable Any
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f 00ec | | Load_Encached Diana_Tree_Cache
0060 02c7 | | Declare_Variable Any
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 e20d | | Load 0x1,0xd
0064 0007 | | Action Break_Optional
0065 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0067 BODY_0058:
0067 e5ff | | Load 0x2,-0x1
0068 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0069 0fa8 | | Execute_Immediate Equal,-0x58
006a 7001 |p | Jump_Nonzero 0x6c
006b 0887 | | Execute_Immediate Raise,0x87
006c e001 | | Load 0x0,0x1
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006f e007 | | Load 0x0,0x7
0070 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0071 e008 | | Load 0x0,0x8
0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0073 e001 | | Load 0x0,0x1
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0076 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0077 e5ff | | Load 0x2,-0x1
0078 e009 | | Load 0x0,0x9
0079 18ad | | Execute Package,Field_Execute,Field_Number 0xad
007a c402 | | Store 0x2,0x2
007b 00cf | | Action Mark_Auxiliary
007c 7812 |x | Jump 0x8f
007d e402 | | Load 0x2,0x2
007e 00eb | | Load_Encached Diana_Cache
007f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0080 c403 | | Store 0x2,0x3
0081 00db | | Load_Top At_Offset_3
0082 8405 | | Call 0x2,0x5
0083 6806 |h | Jump_Zero 0x8a
0084 00da | | Load_Top At_Offset_2
0085 e403 | | Load 0x2,0x3
0086 e001 | | Load 0x0,0x1
0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0089 0033 | 3 | Store_Top Heap_Access,At_Offset_3
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 77ec |w | Jump_Nonzero 0x7d
0091 00ce | | Action Pop_Auxiliary
0092 00d9 | | Load_Top At_Offset_1
0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3
009c 00db | | Load_Top At_Offset_3
009d 820e | | Call 0x1,0xe
009e 8210 | | Call 0x1,0x10
009f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00aa | | .CONST 0x00aa ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e215 | | Load 0x1,0x15
00a4 0322 | " | Declare_Variable Record
00a5 00d8 | | Load_Top At_Offset_0
00a6 1c00 | | Execute_Immediate Run_Utility,0x0
00a7 e001 | | Load 0x0,0x1
00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00aa BODY_00a0:
00aa e001 | | Load 0x0,0x1
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ad e007 | | Load 0x0,0x7
00ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00af e008 | | Load 0x0,0x8
00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b1 e001 | | Load 0x0,0x1
00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b4 00da | | Load_Top At_Offset_2
00b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b6 e5fe | | Load 0x2,-0x2
00b7 00da | | Load_Top At_Offset_2
00b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00bc e5ff | | Load 0x2,-0x1
00bd e001 | | Load 0x0,0x1
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00c1 00cf | | Action Mark_Auxiliary
00c2 780d |x | Jump 0xd0
00c3 00da | | Load_Top At_Offset_2
00c4 00da | | Load_Top At_Offset_2
00c5 e001 | | Load 0x0,0x1
00c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 8216 | | Call 0x1,0x16
00c9 00d1 | | Pop_Control Pop_Count_1
00ca 00d9 | | Load_Top At_Offset_1
00cb e001 | | Load 0x0,0x1
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ce 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00cf 00c9 | | Action Pop_Auxiliary_Loop
00d0 00d9 | | Load_Top At_Offset_1
00d1 e001 | | Load 0x0,0x1
00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d4 6fee |o | Jump_Zero 0xc3
00d5 00ce | | Action Pop_Auxiliary
00d6 00d9 | | Load_Top At_Offset_1
00d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7806 |x | Jump 0xec ; case 0x1
00e6 7809 |x | Jump 0xf0 ; case 0x2
00e7 780d |x | Jump 0xf5 ; case 0x3
00e8 7810 |x | Jump 0xf9 ; case 0x4
00e9 7811 |x | Jump 0xfb ; case 0x5
00ea 7812 |x | Jump 0xfd ; case 0x6
00eb 7815 |x | Jump 0x101 ; case 0x7
00ec 00da | | Load_Top At_Offset_2
00ed 0091 04e4 | | Action Push_String_Extended_Indexed,0x4e4 ; "CONTAINS_GENERIC_SPEC"
00ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db | | Load_Top At_Offset_3
00f1 00db | | Load_Top At_Offset_3
00f2 00e0 | | Load_Encached Standard_Cache
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da | | Load_Top At_Offset_2
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db | | Load_Top At_Offset_3
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd e211 | | Load 0x1,0x11
00fe 00dc | | Load_Top At_Offset_4
00ff 0267 | g | Execute Discrete,Predecessor
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0101 e211 | | Load 0x1,0x11
0102 00dc | | Load_Top At_Offset_4
0103 0268 | h | Execute Discrete,Successor
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0137 | 7 | .CONST 0x0137 ; Address of begin
0109 01ac | | .CONST 0x01ac ; Address of exception handler
010a 000c | | .CONST 0x000c ; Number of locals
010b INIT_0108:
010b e5fc | | Load 0x2,-0x4
010c 00eb | | Load_Encached Diana_Cache
010d 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
010e 00ec | | Load_Encached Diana_Tree_Cache
010f 011e | | Execute Any,Convert
0110 00d8 | | Load_Top At_Offset_0
0111 00eb | | Load_Encached Diana_Cache
0112 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0113 4976 |Iv | Short_Literal 0x176
0114 00eb | | Load_Encached Diana_Cache
0115 0098 | | Execute Package,Field_Read_Dynamic
0116 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0117 00ec | | Load_Encached Diana_Tree_Cache
0118 011e | | Execute Any,Convert
0119 00ec | | Load_Encached Diana_Tree_Cache
011a 02c7 | | Declare_Variable Any
011b 00d8 | | Load_Top At_Offset_0
011c 1c00 | | Execute_Immediate Run_Utility,0x0
011d 00ec | | Load_Encached Diana_Tree_Cache
011e 02c7 | | Declare_Variable Any
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 00ec | | Load_Encached Diana_Tree_Cache
0122 02c7 | | Declare_Variable Any
0123 00d8 | | Load_Top At_Offset_0
0124 1c00 | | Execute_Immediate Run_Utility,0x0
0125 00ec | | Load_Encached Diana_Tree_Cache
0126 02c7 | | Declare_Variable Any
0127 00d8 | | Load_Top At_Offset_0
0128 1c00 | | Execute_Immediate Run_Utility,0x0
0129 e00a | | Load 0x0,0xa
012a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
012b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012c 02c7 | | Declare_Variable Any
012d 00d8 | | Load_Top At_Offset_0
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f e00a | | Load 0x0,0xa
0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0131 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
0133 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
0135 029f 046b | k| Declare_Subprogram INIT_0468,For_Call
0137 BODY_0108:
0137 00ea | | Load_Encached Null_String_Cache
0138 e403 | | Load 0x2,0x3
0139 0092 04ea | | Action Push_String_Extended,0x4ea ; "Process_Generics_Units of "
013b 821d | | Call 0x1,0x1d
013c e403 | | Load 0x2,0x3
013d 4904 |I | Short_Literal 0x104
013e 00eb | | Load_Encached Diana_Cache
013f 0096 | | Execute Package,Entry
0140 c404 | | Store 0x2,0x4
0141 e5fa | | Load 0x2,-0x6
0142 6095 |` | Indirect_Literal Discrete,0x1d8,{0x00007fff, 0xffffffff}
0143 e403 | | Load 0x2,0x3
0144 e002 | | Load 0x0,0x2
0145 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0146 8213 | | Call 0x1,0x13
0147 c405 | | Store 0x2,0x5
0148 e404 | | Load 0x2,0x4
0149 7001 |p | Jump_Nonzero 0x14b
014a 0887 | | Execute_Immediate Raise,0x87
014b e404 | | Load 0x2,0x4
014c e00b | | Load 0x0,0xb
014d 180d | | Execute Package,Field_Execute,Field_Number 0xd
014e c407 | | Store 0x2,0x7
014f e5f9 | | Load 0x2,-0x7
0150 00d8 | | Load_Top At_Offset_0
0151 0120 | | Execute Any,Is_Value
0152 6803 |h | Jump_Zero 0x156
0153 e5fd | | Load 0x2,-0x3
0154 011e | | Execute Any,Convert
0155 7802 |x | Jump 0x158
0156 e5fd | | Load 0x2,-0x3
0157 0119 | | Execute Any,Check_In_Formal_Type
0158 e407 | | Load 0x2,0x7
0159 4800 |H | Short_Literal 0x0
015a 85fe | | Call 0x2,-0x2
015b c5f9 | | Store 0x2,-0x7
015c e405 | | Load 0x2,0x5
015d 7006 |p | Jump_Nonzero 0x164
015e 4801 |H | Short_Literal 0x1
015f e404 | | Load 0x2,0x4
0160 8222 | " | Call 0x1,0x22
0161 6801 |h | Jump_Zero 0x163
0162 840c | | Call 0x2,0xc
0163 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0164 e5f9 | | Load 0x2,-0x7
0165 00d8 | | Load_Top At_Offset_0
0166 0120 | | Execute Any,Is_Value
0167 6803 |h | Jump_Zero 0x16b
0168 e5fd | | Load 0x2,-0x3
0169 011e | | Execute Any,Convert
016a 7802 |x | Jump 0x16d
016b e5fd | | Load 0x2,-0x3
016c 0119 | | Execute Any,Check_In_Formal_Type
016d e405 | | Load 0x2,0x5
016e e00b | | Load 0x0,0xb
016f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0170 4801 |H | Short_Literal 0x1
0171 85fe | | Call 0x2,-0x2
0172 c5f9 | | Store 0x2,-0x7
0173 e00a | | Load 0x0,0xa
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 e406 | | Load 0x2,0x6
0176 0120 | | Execute Any,Is_Value
0177 6804 |h | Jump_Zero 0x17c
0178 e00a | | Load 0x0,0xa
0179 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
017a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
017b 7801 |x | Jump 0x17d
017c e406 | | Load 0x2,0x6
017d e405 | | Load 0x2,0x5
017e e00a | | Load 0x0,0xa
017f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0180 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0181 c406 | | Store 0x2,0x6
0182 c409 | | Store 0x2,0x9
0183 00db | | Load_Top At_Offset_3
0184 840a | | Call 0x2,0xa
0185 e406 | | Load 0x2,0x6
0186 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0187 0fa8 | | Execute_Immediate Equal,-0x58
0188 6822 |h" | Jump_Zero 0x1ab
0189 e406 | | Load 0x2,0x6
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 e405 | | Load 0x2,0x5
018f 00eb | | Load_Encached Diana_Cache
0190 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0191 4976 |Iv | Short_Literal 0x176
0192 00eb | | Load_Encached Diana_Cache
0193 0098 | | Execute Package,Field_Read_Dynamic
0194 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0195 012f | / | Execute Any,Equal
0196 6814 |h | Jump_Zero 0x1ab
0197 e00a | | Load 0x0,0xa
0198 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0199 e408 | | Load 0x2,0x8
019a 0120 | | Execute Any,Is_Value
019b 6804 |h | Jump_Zero 0x1a0
019c e00a | | Load 0x0,0xa
019d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
019e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019f 7801 |x | Jump 0x1a1
01a0 e408 | | Load 0x2,0x8
01a1 e406 | | Load 0x2,0x6
01a2 e00a | | Load 0x0,0xa
01a3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01a4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a5 c408 | | Store 0x2,0x8
01a6 c409 | | Store 0x2,0x9
01a7 00db | | Load_Top At_Offset_3
01a8 840a | | Call 0x2,0xa
01a9 e406 | | Load 0x2,0x6
01aa 840b | | Call 0x2,0xb
01ab 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01ac TRAP_0108:
01ac e00c | | Load 0x0,0xc
01ad 010f | | Execute Exception,Equal
01ae 680e |h | Jump_Zero 0x1bd
01af e5f9 | | Load 0x2,-0x7
01b0 00d8 | | Load_Top At_Offset_0
01b1 0120 | | Execute Any,Is_Value
01b2 6803 |h | Jump_Zero 0x1b6
01b3 e5fd | | Load 0x2,-0x3
01b4 011e | | Execute Any,Convert
01b5 7802 |x | Jump 0x1b8
01b6 e5fd | | Load 0x2,-0x3
01b7 0119 | | Execute Any,Check_In_Formal_Type
01b8 00ec | | Load_Encached Diana_Tree_Cache
01b9 4805 |H | Short_Literal 0x5
01ba 85fe | | Call 0x2,-0x2
01bb c5f9 | | Store 0x2,-0x7
01bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01bd e00d | | Load 0x0,0xd
01be 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bf 4801 |H | Short_Literal 0x1
01c0 0092 04eb | | Action Push_String_Extended,0x4eb ; "Generic_Utils.Process_Generics_Units caught "
01c2 4800 |H | Short_Literal 0x0
01c3 4801 |H | Short_Literal 0x1
01c4 e00e | | Load 0x0,0xe
01c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c6 01cc | | Execute Vector,Catenate
01c7 0092 04ec | | Action Push_String_Extended,0x4ec ; " at "
01c9 01cc | | Execute Vector,Catenate
01ca 4800 |H | Short_Literal 0x0
01cb 4801 |H | Short_Literal 0x1
01cc e00e | | Load 0x0,0xe
01cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ce 01cc | | Execute Vector,Catenate
01cf 0092 04ed | | Action Push_String_Extended,0x4ed ; "; continuing."
01d1 01cc | | Execute Vector,Catenate
01d2 e00f | | Load 0x0,0xf
01d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4608 |F | Jump_Case 0x9
01e4 7808 |x | Jump 0x1ed ; case 0x0
01e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01e6 780d |x | Jump 0x1f4 ; case 0x2
01e7 780c |x | Jump 0x1f4 ; case 0x3
01e8 780b |x | Jump 0x1f4 ; case 0x4
01e9 780a |x | Jump 0x1f4 ; case 0x5
01ea 7809 |x | Jump 0x1f4 ; case 0x6
01eb 7808 |x | Jump 0x1f4 ; case 0x7
01ec 7807 |x | Jump 0x1f4 ; case 0x8
01ed 00da | | Load_Top At_Offset_2
01ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ef 0125 | % | Execute Any,Set_Constraint
01f0 00da | | Load_Top At_Offset_2
01f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f2 1c00 | | Execute_Immediate Run_Utility,0x0
01f3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f4 0869 | i | Execute_Immediate Raise,0x69
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3
01fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fd 00db | | Load_Top At_Offset_3
01fe e001 | | Load 0x0,0x1
01ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0200 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0201 e5fe | | Load 0x2,-0x2
0202 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0203 00db | | Load_Top At_Offset_3
0204 e5fe | | Load 0x2,-0x2
0205 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0206 6009 |` | Indirect_Literal Discrete,0x210,{0x00007fff, 0xffffffff}
0207 e5ff | | Load 0x2,-0x1
0208 e002 | | Load 0x0,0x2
0209 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020a e218 | | Load 0x1,0x18
020b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
020c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
020d e004 | | Load 0x0,0x4
020e 180d | | Execute Package,Field_Execute,Field_Number 0xd
020f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0210 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0223 | # | .CONST 0x0223 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b 00ec | | Load_Encached Diana_Tree_Cache
021c 02c7 | | Declare_Variable Any
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f 00ec | | Load_Encached Diana_Tree_Cache
0220 02c7 | | Declare_Variable Any
0221 00d8 | | Load_Top At_Offset_0
0222 1c00 | | Execute_Immediate Run_Utility,0x0
0223 BODY_0218:
0223 e5ff | | Load 0x2,-0x1
0224 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0225 0f36 | 6 | Execute_Immediate Equal,0x36
0226 6815 |h | Jump_Zero 0x23c
0227 e5ff | | Load 0x2,-0x1
0228 00eb | | Load_Encached Diana_Cache
0229 18ec | | Execute Package,Field_Execute,Field_Number 0xec
022a c402 | | Store 0x2,0x2
022b 00d9 | | Load_Top At_Offset_1
022c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
022d 0f3e | > | Execute_Immediate Equal,0x3e
022e 6805 |h | Jump_Zero 0x234
022f 00d9 | | Load_Top At_Offset_1
0230 00eb | | Load_Encached Diana_Cache
0231 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0232 c403 | | Store 0x2,0x3
0233 7804 |x | Jump 0x238
0234 00d9 | | Load_Top At_Offset_1
0235 00eb | | Load_Encached Diana_Cache
0236 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
0237 c403 | | Store 0x2,0x3
0238 e5fe | | Load 0x2,-0x2
0239 00d9 | | Load_Top At_Offset_1
023a 8216 | | Call 0x1,0x16
023b 00d1 | | Pop_Control Pop_Count_1
023c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 0092 04ee | | Action Push_String_Extended,0x4ee ; "Process_Generic_Units => "
0245 BODY_0240:
0245 e5fd | | Load 0x2,-0x3
0246 01db | | Execute Vector,Length
0247 700d |p | Jump_Nonzero 0x255
0248 e00d | | Load 0x0,0xd
0249 180e | | Execute Package,Field_Execute,Field_Number 0xe
024a 4801 |H | Short_Literal 0x1
024b 00da | | Load_Top At_Offset_2
024c e5ff | | Load 0x2,-0x1
024d 01cc | | Execute Vector,Catenate
024e e5fe | | Load 0x2,-0x2
024f e00b | | Load 0x0,0xb
0250 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0251 01cc | | Execute Vector,Catenate
0252 e00f | | Load 0x0,0xf
0253 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0254 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0255 e00d | | Load 0x0,0xd
0256 180e | | Execute Package,Field_Execute,Field_Number 0xe
0257 4801 |H | Short_Literal 0x1
0258 00da | | Load_Top At_Offset_2
0259 e5ff | | Load 0x2,-0x1
025a 01cc | | Execute Vector,Catenate
025b e5fe | | Load 0x2,-0x2
025c e00b | | Load 0x0,0xb
025d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
025e 01cc | | Execute Vector,Catenate
025f 0092 04ef | | Action Push_String_Extended,0x4ef ; ": "
0261 01cc | | Execute Vector,Catenate
0262 e5fd | | Load 0x2,-0x3
0263 01cc | | Execute Vector,Catenate
0264 e00f | | Load 0x0,0xf
0265 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0266 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0271 | q | .CONST 0x0271 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 00ec | | Load_Encached Diana_Tree_Cache
026c 02c7 | | Declare_Variable Any
026d 00d8 | | Load_Top At_Offset_0
026e 1c00 | | Execute_Immediate Run_Utility,0x0
026f 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
0271 BODY_0268:
0271 8403 | | Call 0x2,0x3
0272 00d9 | | Load_Top At_Offset_1
0273 021d | | Execute Heap_Access,Is_Null
0274 0f00 | | Execute_Immediate Equal,0x0
0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c 6803 |h | Jump_Zero 0x280
027d 00da | | Load_Top At_Offset_2
027e 821e | | Call 0x1,0x1e
027f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0280 4800 |H | Short_Literal 0x0
0281 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028f | | .CONST 0x028f ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 00ec | | Load_Encached Diana_Tree_Cache
028c 02c7 | | Declare_Variable Any
028d 00db | | Load_Top At_Offset_3
028e a402 | | Store_Unchecked 0x2,0x2
028f BODY_0288:
028f 00d8 | | Load_Top At_Offset_0
0290 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0291 0f7c | | | Execute_Immediate Equal,0x7c
0292 680d |h | Jump_Zero 0x2a0
0293 00d8 | | Load_Top At_Offset_0
0294 00eb | | Load_Encached Diana_Cache
0295 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0296 6805 |h | Jump_Zero 0x29c
0297 00d8 | | Load_Top At_Offset_0
0298 00eb | | Load_Encached Diana_Cache
0299 18ec | | Execute Package,Field_Execute,Field_Number 0xec
029a c402 | | Store 0x2,0x2
029b 7804 |x | Jump 0x2a0
029c 00d8 | | Load_Top At_Offset_0
029d e009 | | Load 0x0,0x9
029e 180e | | Execute Package,Field_Execute,Field_Number 0xe
029f c402 | | Store 0x2,0x2
02a0 00d8 | | Load_Top At_Offset_0
02a1 4976 |Iv | Short_Literal 0x176
02a2 00eb | | Load_Encached Diana_Cache
02a3 0098 | | Execute Package,Field_Read_Dynamic
02a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 00db | | Load_Top At_Offset_3
02ad 00eb | | Load_Encached Diana_Cache
02ae 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
02af 8223 | # | Call 0x1,0x23
02b0 7006 |p | Jump_Nonzero 0x2b7
02b1 00db | | Load_Top At_Offset_3
02b2 00db | | Load_Top At_Offset_3
02b3 00eb | | Load_Encached Diana_Cache
02b4 18be | | Execute Package,Field_Execute,Field_Number 0xbe
02b5 8223 | # | Call 0x1,0x23
02b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b7 4801 |H | Short_Literal 0x1
02b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b9 0000 0000 | | .BLANK 0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c7 | | .CONST 0x02c7 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 00ec | | Load_Encached Diana_Tree_Cache
02c4 02c7 | | Declare_Variable Any
02c5 00d8 | | Load_Top At_Offset_0
02c6 1c00 | | Execute_Immediate Run_Utility,0x0
02c7 BODY_02c0:
02c7 00db | | Load_Top At_Offset_3
02c8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02c9 00d8 | | Load_Top At_Offset_0
02ca 0d3e | > | Execute_Immediate Less,0x3e
02cb 7010 |p | Jump_Nonzero 0x2dc
02cc 00d8 | | Load_Top At_Offset_0
02cd 0c42 | B | Execute_Immediate Greater_Equal,0x42
02ce 7005 |p | Jump_Nonzero 0x2d4
02cf 0b3e | > | Execute_Immediate Case_Compare,0x3e
02d0 700e |p | Jump_Nonzero 0x2df
02d1 0f41 | A | Execute_Immediate Equal,0x41
02d2 7030 |p0 | Jump_Nonzero 0x303
02d3 7809 |x | Jump 0x2dd
02d4 00d8 | | Load_Top At_Offset_0
02d5 487a |Hz | Short_Literal 0x7a
02d6 487b |H{ | Short_Literal 0x7b
02d7 0262 | b | Execute Discrete,In_Range
02d8 7045 |pE | Jump_Nonzero 0x31e
02d9 0f7c | | | Execute_Immediate Equal,0x7c
02da 7046 |pF | Jump_Nonzero 0x321
02db 7801 |x | Jump 0x2dd
02dc 00d1 | | Pop_Control Pop_Count_1
02dd 4800 |H | Short_Literal 0x0
02de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02df 00d1 | | Pop_Control Pop_Count_1
02e0 00db | | Load_Top At_Offset_3
02e1 00eb | | Load_Encached Diana_Cache
02e2 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
02e3 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02e4 0b77 | w | Execute_Immediate Case_Compare,0x77
02e5 7004 |p | Jump_Nonzero 0x2ea
02e6 0f7c | | | Execute_Immediate Equal,0x7c
02e7 7003 |p | Jump_Nonzero 0x2eb
02e8 4800 |H | Short_Literal 0x0
02e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ea 00d1 | | Pop_Control Pop_Count_1
02eb e003 | | Load 0x0,0x3
02ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ed 603e |`> | Indirect_Literal Discrete,0x32c,{0x00000000, 0x00004000}
02ee e5ff | | Load 0x2,-0x1
02ef 00eb | | Load_Encached Diana_Cache
02f0 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
02f1 e002 | | Load 0x0,0x2
02f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f3 c402 | | Store 0x2,0x2
02f4 00d8 | | Load_Top At_Offset_0
02f5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f6 0f7c | | | Execute_Immediate Equal,0x7c
02f7 6809 |h | Jump_Zero 0x301
02f8 e5fe | | Load 0x2,-0x2
02f9 00d9 | | Load_Top At_Offset_1
02fa 8221 | ! | Call 0x1,0x21
02fb e5fe | | Load 0x2,-0x2
02fc e5ff | | Load 0x2,-0x1
02fd 8220 | | Call 0x1,0x20
02fe 821f | | Call 0x1,0x1f
02ff 0278 | x | Execute Discrete,Or
0300 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0301 4800 |H | Short_Literal 0x0
0302 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0303 00db | | Load_Top At_Offset_3
0304 00eb | | Load_Encached Diana_Cache
0305 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0306 4904 |I | Short_Literal 0x104
0307 00eb | | Load_Encached Diana_Cache
0308 0096 | | Execute Package,Entry
0309 c402 | | Store 0x2,0x2
030a 00d8 | | Load_Top At_Offset_0
030b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
030c 0f7c | | | Execute_Immediate Equal,0x7c
030d 6809 |h | Jump_Zero 0x317
030e e5fe | | Load 0x2,-0x2
030f 00d9 | | Load_Top At_Offset_1
0310 8221 | ! | Call 0x1,0x21
0311 e5fe | | Load 0x2,-0x2
0312 e5ff | | Load 0x2,-0x1
0313 8220 | | Call 0x1,0x20
0314 821f | | Call 0x1,0x1f
0315 0278 | x | Execute Discrete,Or
0316 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0317 00db | | Load_Top At_Offset_3
0318 00eb | | Load_Encached Diana_Cache
0319 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
031a 00eb | | Load_Encached Diana_Cache
031b 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
031c 021d | | Execute Heap_Access,Is_Null
031d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
031e 00d1 | | Pop_Control Pop_Count_1
031f 4801 |H | Short_Literal 0x1
0320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0321 e5fe | | Load 0x2,-0x2
0322 e5ff | | Load 0x2,-0x1
0323 8221 | ! | Call 0x1,0x21
0324 e5fe | | Load 0x2,-0x2
0325 e5ff | | Load 0x2,-0x1
0326 8220 | | Call 0x1,0x20
0327 821f | | Call 0x1,0x1f
0328 0278 | x | Execute Discrete,Or
0329 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032a 0000 0000 | | .XXX[0x2]
032c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033d | = | .CONST 0x033d ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 00ee | | Load_Encached Diana_Seq_Type_Cache
0334 02c7 | | Declare_Variable Any
0335 00db | | Load_Top At_Offset_3
0336 00eb | | Load_Encached Diana_Cache
0337 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0338 a402 | | Store_Unchecked 0x2,0x2
0339 00ec | | Load_Encached Diana_Tree_Cache
033a 02c7 | | Declare_Variable Any
033b 00d8 | | Load_Top At_Offset_0
033c 1c00 | | Execute_Immediate Run_Utility,0x0
033d BODY_0330:
033d 00cf | | Action Mark_Auxiliary
033e 7846 |xF | Jump 0x385
033f 00da | | Load_Top At_Offset_2
0340 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0341 c403 | | Store 0x2,0x3
0342 00d9 | | Load_Top At_Offset_1
0343 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0344 00d8 | | Load_Top At_Offset_0
0345 483b |H; | Short_Literal 0x3b
0346 4841 |HA | Short_Literal 0x41
0347 0262 | b | Execute Discrete,In_Range
0348 680f |h | Jump_Zero 0x358
0349 0ac5 | | Execute_Immediate Plus,-0x3b
034a 4606 |F | Jump_Case 0x7
034b 780e |x | Jump 0x35a ; case 0x0
034c 7833 |x3 | Jump 0x380 ; case 0x1
034d 782a |x* | Jump 0x378 ; case 0x2
034e 7803 |x | Jump 0x352 ; case 0x3
034f 7826 |x& | Jump 0x376 ; case 0x4
0350 782f |x/ | Jump 0x380 ; case 0x5
0351 7800 |x | Jump 0x352 ; case 0x6
0352 e5fe | | Load 0x2,-0x2
0353 00da | | Load_Top At_Offset_2
0354 8222 | " | Call 0x1,0x22
0355 682a |h* | Jump_Zero 0x380
0356 4801 |H | Short_Literal 0x1
0357 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0358 00d1 | | Pop_Control Pop_Count_1
0359 7826 |x& | Jump 0x380
035a 00d9 | | Load_Top At_Offset_1
035b 00eb | | Load_Encached Diana_Cache
035c 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
035d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
035e 0b73 | s | Execute_Immediate Case_Compare,0x73
035f 7013 |p | Jump_Nonzero 0x373
0360 6801 |h | Jump_Zero 0x362
0361 781e |x | Jump 0x380
0362 e5ff | | Load 0x2,-0x1
0363 00eb | | Load_Encached Diana_Cache
0364 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0365 00eb | | Load_Encached Diana_Cache
0366 18be | | Execute Package,Field_Execute,Field_Number 0xbe
0367 e5ff | | Load 0x2,-0x1
0368 012f | / | Execute Any,Equal
0369 6816 |h | Jump_Zero 0x380
036a 00d9 | | Load_Top At_Offset_1
036b 00eb | | Load_Encached Diana_Cache
036c 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
036d 4907 |I | Short_Literal 0x107
036e 00eb | | Load_Encached Diana_Cache
036f 0096 | | Execute Package,Entry
0370 700f |p | Jump_Nonzero 0x380
0371 4801 |H | Short_Literal 0x1
0372 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0373 00d1 | | Pop_Control Pop_Count_1
0374 4801 |H | Short_Literal 0x1
0375 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0376 4801 |H | Short_Literal 0x1
0377 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0378 00d9 | | Load_Top At_Offset_1
0379 00eb | | Load_Encached Diana_Cache
037a 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
037b 00eb | | Load_Encached Diana_Cache
037c 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
037d 7002 |p | Jump_Nonzero 0x380
037e 4801 |H | Short_Literal 0x1
037f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0380 00da | | Load_Top At_Offset_2
0381 0217 | | Execute Heap_Access,All_Reference
0382 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0383 c402 | | Store 0x2,0x2
0384 00c9 | | Action Pop_Auxiliary_Loop
0385 00da | | Load_Top At_Offset_2
0386 77b8 |w | Jump_Nonzero 0x33f
0387 00ce | | Action Pop_Auxiliary
0388 4800 |H | Short_Literal 0x0
0389 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397 | | .CONST 0x0397 ; Address of begin
0391 03a9 | | .CONST 0x03a9 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 00ec | | Load_Encached Diana_Tree_Cache
0394 02c7 | | Declare_Variable Any
0395 00db | | Load_Top At_Offset_3
0396 a602 | | Store_Unchecked 0x3,0x2
0397 BODY_0390:
0397 00cf | | Action Mark_Auxiliary
0398 780b |x | Jump 0x3a4
0399 00d9 | | Load_Top At_Offset_1
039a e5ff | | Load 0x2,-0x1
039b 012f | / | Execute Any,Equal
039c 6802 |h | Jump_Zero 0x39f
039d 4801 |H | Short_Literal 0x1
039e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039f 00d9 | | Load_Top At_Offset_1
03a0 00eb | | Load_Encached Diana_Cache
03a1 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03a2 c602 | | Store 0x3,0x2
03a3 00c9 | | Action Pop_Auxiliary_Loop
03a4 00d9 | | Load_Top At_Offset_1
03a5 77f3 |w | Jump_Nonzero 0x399
03a6 00ce | | Action Pop_Auxiliary
03a7 4800 |H | Short_Literal 0x0
03a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a9 TRAP_0390:
03a9 0007 | | Action Break_Optional
03aa 4800 |H | Short_Literal 0x0
03ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 680b |h | Jump_Zero 0x3c0
03b5 00da | | Load_Top At_Offset_2
03b6 e00a | | Load 0x0,0xa
03b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b8 011c | | Execute Any,Convert_Unchecked
03b9 1c01 | | Execute_Immediate Run_Utility,0x1
03ba e5fc | | Load 0x2,-0x4
03bb 0092 04f0 | | Action Push_String_Extended,0x4f0 ; "Unsuccessful Directory Operation "
03bd 821d | | Call 0x1,0x1d
03be e00c | | Load 0x0,0xc
03bf 0257 | W | Execute Discrete,Raise
03c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03e5 | | .CONST 0x03e5 ; Address of begin
03c9 0446 | F | .CONST 0x0446 ; Address of exception handler
03ca 0008 | | .CONST 0x0008 ; Number of locals
03cb INIT_03c8:
03cb 00ef | | Load_Encached Diana_Sequence_Cache
03cc 02c7 | | Declare_Variable Any
03cd 00d8 | | Load_Top At_Offset_0
03ce 1c00 | | Execute_Immediate Run_Utility,0x0
03cf 00ec | | Load_Encached Diana_Tree_Cache
03d0 02c7 | | Declare_Variable Any
03d1 00d8 | | Load_Top At_Offset_0
03d2 1c00 | | Execute_Immediate Run_Utility,0x0
03d3 00ec | | Load_Encached Diana_Tree_Cache
03d4 02c7 | | Declare_Variable Any
03d5 00d8 | | Load_Top At_Offset_0
03d6 1c00 | | Execute_Immediate Run_Utility,0x0
03d7 e00a | | Load 0x0,0xa
03d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d9 e00a | | Load 0x0,0xa
03da 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03dc 02c7 | | Declare_Variable Any
03dd 00d8 | | Load_Top At_Offset_0
03de 1c00 | | Execute_Immediate Run_Utility,0x0
03df 00ec | | Load_Encached Diana_Tree_Cache
03e0 02c7 | | Declare_Variable Any
03e1 00d8 | | Load_Top At_Offset_0
03e2 1c00 | | Execute_Immediate Run_Utility,0x0
03e3 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
03e5 BODY_03c8:
03e5 00ea | | Load_Encached Null_String_Cache
03e6 e7ff | | Load 0x3,-0x1
03e7 4976 |Iv | Short_Literal 0x176
03e8 00eb | | Load_Encached Diana_Cache
03e9 0098 | | Execute Package,Field_Read_Dynamic
03ea 180f | | Execute Package,Field_Execute,Field_Number 0xf
03eb 0092 04f1 | | Action Push_String_Extended,0x4f1 ; "Process_Subunits of "
03ed 821d | | Call 0x1,0x1d
03ee e7ff | | Load 0x3,-0x1
03ef e009 | | Load 0x0,0x9
03f0 18b0 | | Execute Package,Field_Execute,Field_Number 0xb0
03f1 c602 | | Store 0x3,0x2
03f2 00cf | | Action Mark_Auxiliary
03f3 784f |xO | Jump 0x443
03f4 e602 | | Load 0x3,0x2
03f5 00eb | | Load_Encached Diana_Cache
03f6 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
03f7 c603 | | Store 0x3,0x3
03f8 00ea | | Load_Encached Null_String_Cache
03f9 e603 | | Load 0x3,0x3
03fa 0092 04f2 | | Action Push_String_Extended,0x4f2 ; "Processing subunit "
03fc 821d | | Call 0x1,0x1d
03fd e5fa | | Load 0x2,-0x6
03fe 6061 |`a | Indirect_Literal Discrete,0x460,{0x00007fff, 0xffffffff}
03ff e603 | | Load 0x3,0x3
0400 8213 | | Call 0x1,0x13
0401 c604 | | Store 0x3,0x4
0402 e604 | | Load 0x3,0x4
0403 700a |p | Jump_Nonzero 0x40e
0404 00ea | | Load_Encached Null_String_Cache
0405 e603 | | Load 0x3,0x3
0406 0092 04f3 | | Action Push_String_Extended,0x4f3 ; "Empty body of "
0408 821d | | Call 0x1,0x1d
0409 e603 | | Load 0x3,0x3
040a 00eb | | Load_Encached Diana_Cache
040b 18ec | | Execute Package,Field_Execute,Field_Number 0xec
040c 8608 | | Call 0x3,0x8
040d 7830 |x0 | Jump 0x43e
040e e00a | | Load 0x0,0xa
040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0410 e606 | | Load 0x3,0x6
0411 0120 | | Execute Any,Is_Value
0412 6804 |h | Jump_Zero 0x417
0413 e00a | | Load 0x0,0xa
0414 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0415 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0416 7801 |x | Jump 0x418
0417 e606 | | Load 0x3,0x6
0418 e604 | | Load 0x3,0x4
0419 e00a | | Load 0x0,0xa
041a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
041b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
041c c606 | | Store 0x3,0x6
041d c605 | | Store 0x3,0x5
041e e605 | | Load 0x3,0x5
041f 680a |h | Jump_Zero 0x42a
0420 00ea | | Load_Encached Null_String_Cache
0421 e603 | | Load 0x3,0x3
0422 0092 04f4 | | Action Push_String_Extended,0x4f4 ; "Unsuccessful directory status of "
0424 821d | | Call 0x1,0x1d
0425 e603 | | Load 0x3,0x3
0426 00eb | | Load_Encached Diana_Cache
0427 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0428 8608 | | Call 0x3,0x8
0429 7814 |x | Jump 0x43e
042a e5fa | | Load 0x2,-0x6
042b e606 | | Load 0x3,0x6
042c e00b | | Load 0x0,0xb
042d 180f | | Execute Package,Field_Execute,Field_Number 0xf
042e c607 | | Store 0x3,0x7
042f e5f9 | | Load 0x2,-0x7
0430 00d8 | | Load_Top At_Offset_0
0431 0120 | | Execute Any,Is_Value
0432 6803 |h | Jump_Zero 0x436
0433 e5fd | | Load 0x2,-0x3
0434 011e | | Execute Any,Convert
0435 7802 |x | Jump 0x438
0436 e5fd | | Load 0x2,-0x3
0437 0119 | | Execute Any,Check_In_Formal_Type
0438 00db | | Load_Top At_Offset_3
0439 4802 |H | Short_Literal 0x2
043a 85fe | | Call 0x2,-0x2
043b c5f9 | | Store 0x2,-0x7
043c 00da | | Load_Top At_Offset_2
043d 840b | | Call 0x2,0xb
043e e602 | | Load 0x3,0x2
043f 0217 | | Execute Heap_Access,All_Reference
0440 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0441 c602 | | Store 0x3,0x2
0442 00c9 | | Action Pop_Auxiliary_Loop
0443 e602 | | Load 0x3,0x2
0444 77af |w | Jump_Nonzero 0x3f4
0445 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0446 TRAP_03c8:
0446 0007 | | Action Break_Optional
0447 e00d | | Load 0x0,0xd
0448 180e | | Execute Package,Field_Execute,Field_Number 0xe
0449 4802 |H | Short_Literal 0x2
044a 0092 04f5 | | Action Push_String_Extended,0x4f5 ; "Generic_Utils.Process_Generics_Units.Process_Subunits caught "
044c 4800 |H | Short_Literal 0x0
044d 4801 |H | Short_Literal 0x1
044e e00e | | Load 0x0,0xe
044f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0450 01cc | | Execute Vector,Catenate
0451 0092 04ec | | Action Push_String_Extended,0x4ec ; " at "
0453 01cc | | Execute Vector,Catenate
0454 4800 |H | Short_Literal 0x0
0455 4801 |H | Short_Literal 0x1
0456 e00e | | Load 0x0,0xe
0457 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0458 01cc | | Execute Vector,Catenate
0459 0092 04ed | | Action Push_String_Extended,0x4ed ; "; continuing."
045b 01cc | | Execute Vector,Catenate
045c e00f | | Load 0x0,0xf
045d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
045e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045f 0000 | | .XXX[0x1]
0460 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0464 0000 0000 | | .BLANK 0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0471 | q | .CONST 0x0471 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b 00ec | | Load_Encached Diana_Tree_Cache
046c 02c7 | | Declare_Variable Any
046d 00d8 | | Load_Top At_Offset_0
046e 1c00 | | Execute_Immediate Run_Utility,0x0
046f 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call
0471 BODY_0468:
0471 8603 | | Call 0x3,0x3
0472 00d9 | | Load_Top At_Offset_1
0473 7013 |p | Jump_Nonzero 0x487
0474 00ea | | Load_Encached Null_String_Cache
0475 e403 | | Load 0x2,0x3
0476 0092 04f6 | | Action Push_String_Extended,0x4f6 ; "Missing body, no stub of "
0478 821d | | Call 0x1,0x1d
0479 e5f9 | | Load 0x2,-0x7
047a 00d8 | | Load_Top At_Offset_0
047b 0120 | | Execute Any,Is_Value
047c 6803 |h | Jump_Zero 0x480
047d e5fd | | Load 0x2,-0x3
047e 011e | | Execute Any,Convert
047f 7802 |x | Jump 0x482
0480 e5fd | | Load 0x2,-0x3
0481 0119 | | Execute Any,Check_In_Formal_Type
0482 e407 | | Load 0x2,0x7
0483 4803 |H | Short_Literal 0x3
0484 85fe | | Call 0x2,-0x2
0485 c5f9 | | Store 0x2,-0x7
0486 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0487 00ea | | Load_Encached Null_String_Cache
0488 e403 | | Load 0x2,0x3
0489 0092 04f7 | | Action Push_String_Extended,0x4f7 ; "Missing body, has stub of "
048b 821d | | Call 0x1,0x1d
048c 00d9 | | Load_Top At_Offset_1
048d 00eb | | Load_Encached Diana_Cache
048e 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
048f c602 | | Store 0x3,0x2
0490 e5f9 | | Load 0x2,-0x7
0491 00d8 | | Load_Top At_Offset_0
0492 0120 | | Execute Any,Is_Value
0493 6803 |h | Jump_Zero 0x497
0494 e5fd | | Load 0x2,-0x3
0495 011e | | Execute Any,Convert
0496 7802 |x | Jump 0x499
0497 e5fd | | Load 0x2,-0x3
0498 0119 | | Execute Any,Check_In_Formal_Type
0499 00da | | Load_Top At_Offset_2
049a 4803 |H | Short_Literal 0x3
049b 85fe | | Call 0x2,-0x2
049c c5f9 | | Store 0x2,-0x7
049d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 04aa | | .CONST 0x04aa ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e003 | | Load 0x0,0x3
04a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a5 600a |` | Indirect_Literal Discrete,0x4b0,{0x00007fff, 0xffffffff}
04a6 e5ff | | Load 0x2,-0x1
04a7 8214 | | Call 0x1,0x14
04a8 c402 | | Store 0x2,0x2
04a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04aa TRAP_04a0:
04aa 0007 | | Action Break_Optional
04ab 00ec | | Load_Encached Diana_Tree_Cache
04ac c402 | | Store 0x2,0x2
04ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ae 0000 0000 | | .XXX[0x2]
04b0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e5f9 | | Load 0x2,-0x7
04bc 00d8 | | Load_Top At_Offset_0
04bd 0120 | | Execute Any,Is_Value
04be 6803 |h | Jump_Zero 0x4c2
04bf e5fd | | Load 0x2,-0x3
04c0 011e | | Execute Any,Convert
04c1 7802 |x | Jump 0x4c4
04c2 e5fd | | Load 0x2,-0x3
04c3 0119 | | Execute Any,Check_In_Formal_Type
04c4 00db | | Load_Top At_Offset_3
04c5 4804 |H | Short_Literal 0x4
04c6 85fe | | Call 0x2,-0x2
04c7 c5f9 | | Store 0x2,-0x7
04c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c9 0000 0000 | | .BLANK 0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 04d9 | | .CONST 0x04d9 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 e5fa | | Load 0x2,-0x6
04d4 600b |` | Indirect_Literal Discrete,0x4e0,{0x00007fff, 0xffffffff}
04d5 e403 | | Load 0x2,0x3
04d6 8214 | | Call 0x1,0x14
04d7 c602 | | Store 0x3,0x2
04d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d9 TRAP_04d0:
04d9 0007 | | Action Break_Optional
04da 00ec | | Load_Encached Diana_Tree_Cache
04db c602 | | Store 0x3,0x2
04dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04dd 0000 0000 | | .XXX[0x3]
04df 0000 | |
04e0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
04e4 ; --------------------------------------------------------------------------------------
04e4 ; STRING TABLE
04e4 ; --------------------------------------------------------------------------------------
04e4 002a | * | .STRTAB 0x002a->0x04f9 ; "CONTAINS_GENERIC_SPEC"
04e5 003d | = | .STRTAB 0x003d->0x0503 ; "CONTAINS_GENERIC_BODY"
04e6 0050 | P | .STRTAB 0x0050->0x050e ; "SUBUNIT_OF_GENERIC"
04e7 0060 | ` | .STRTAB 0x0060->0x0517 ; "MISSING_GENERIC_BODY"
04e8 0072 | r | .STRTAB 0x0072->0x0521 ; "MISSING_SUBUNIT_OF_GENERIC"
04e9 008a | | .STRTAB 0x008a->0x052e ; "DIRECTORY_UNSUCCESSFUL"
04ea 009e | | .STRTAB 0x009e->0x0539 ; "Process_Generics_Units of "
04eb 00b6 | | .STRTAB 0x00b6->0x0546 ; "Generic_Utils.Process_Generics_Units caught "
04ec 00e0 | | .STRTAB 0x00e0->0x055c ; " at "
04ed 00e2 | | .STRTAB 0x00e2->0x055e ; "; continuing."
04ee 00ed | | .STRTAB 0x00ed->0x0564 ; "Process_Generic_Units => "
04ef 0104 | | .STRTAB 0x0104->0x0571 ; ": "
04f0 0105 | | .STRTAB 0x0105->0x0572 ; "Unsuccessful Directory Operation "
04f1 0124 | $ | .STRTAB 0x0124->0x0583 ; "Process_Subunits of "
04f2 0136 | 6 | .STRTAB 0x0136->0x058d ; "Processing subunit "
04f3 0147 | G | .STRTAB 0x0147->0x0596 ; "Empty body of "
04f4 0153 | S | .STRTAB 0x0153->0x059d ; "Unsuccessful directory status of "
04f5 0172 | r | .STRTAB 0x0172->0x05ae ; "Generic_Utils.Process_Generics_Units.Process_Subunits caught "
04f6 01ad | | .STRTAB 0x01ad->0x05cc ; "Missing body, no stub of "
04f7 01c4 | | .STRTAB 0x01c4->0x05d9 ; "Missing body, has stub of "
04f8 01dc | | .STREND 0x01dc->0x05e6
04f9 434f 4e54 |CONT| .STRTAB_STRINGS
05e6 0000 0000 | | .XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f14,0x0000,0x0001,0x0000
05ee 0000 0000 | | .BLANK 0000[0x12]