|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 06f8 | | .CONST 0x06f8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 00ec | | Load_Encached Diana_Tree_Cache
000c 00ec | | Load_Encached Diana_Tree_Cache
000d e00e | | Load 0x0,0xe
000e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 02c7 | | Declare_Variable Any
0011 00d8 | | Load_Top At_Offset_0
0012 1c00 | | Execute_Immediate Run_Utility,0x0
0013 e00e | | Load 0x0,0xe
0014 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0015 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0016 02c7 | | Declare_Variable Any
0017 00d8 | | Load_Top At_Offset_0
0018 1c00 | | Execute_Immediate Run_Utility,0x0
0019 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
001b 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
001d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
001f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0021 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0023 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0025 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0027 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0029 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
002b 029f 019b | | Declare_Subprogram INIT_0198,For_Call
002d 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
002f 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0031 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0033 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0035 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0037 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0039 BODY_0008:
0039 8615 | | Call 0x3,0x15
003a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 0c03 | | Execute_Immediate Greater_Equal,0x3
0045 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0046 0000 0000 | | .XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c 0c04 | | Execute_Immediate Greater_Equal,0x4
004d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0055 0f01 | | Execute_Immediate Equal,0x1
0056 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006a | j | .CONST 0x006a ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 4976 |Iv | Short_Literal 0x176
005d 00eb | | Load_Encached Diana_Cache
005e 0098 | | Execute Package,Field_Read_Dynamic
005f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0060 00db | | Load_Top At_Offset_3
0061 00eb | | Load_Encached Diana_Cache
0062 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0063 e003 | | Load 0x0,0x3
0064 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0065 0322 | " | Declare_Variable Record
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 e003 | | Load 0x0,0x3
0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006a BODY_0058:
006a e003 | | Load 0x0,0x3
006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006c 00da | | Load_Top At_Offset_2
006d 6046 |`F | Indirect_Literal Discrete,0xb4,{0x00000000, 0x00004000}
006e e00b | | Load 0x0,0xb
006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0070 e9ff | | Load 0x4,-0x1
0071 e003 | | Load 0x0,0x3
0072 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0073 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0074 00d1 | | Pop_Control Pop_Count_1
0075 0059 | Y | Store_Top Discrete,At_Offset_1
0076 00d8 | | Load_Top At_Offset_0
0077 821b | | Call 0x1,0x1b
0078 700c |p | Jump_Nonzero 0x85
0079 e7ff | | Load 0x3,-0x1
007a 0092 0539 | 9| Action Push_String_Extended,0x539 ; "Could not get target key for <1>: "
007c 00da | | Load_Top At_Offset_2
007d e003 | | Load 0x0,0x3
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f 011c | | Execute Any,Convert_Unchecked
0080 1c01 | | Execute_Immediate Run_Utility,0x1
0081 01cc | | Execute Vector,Catenate
0082 840e | | Call 0x2,0xe
0083 4800 |H | Short_Literal 0x0
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 00d9 | | Load_Top At_Offset_1
0086 8608 | | Call 0x3,0x8
0087 7002 |p | Jump_Nonzero 0x8a
0088 4800 |H | Short_Literal 0x0
0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008a 00da | | Load_Top At_Offset_2
008b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
008c 0b3e | > | Execute_Immediate Case_Compare,0x3e
008d 7004 |p | Jump_Nonzero 0x92
008e 0f41 | A | Execute_Immediate Equal,0x41
008f 700b |p | Jump_Nonzero 0x9b
0090 4800 |H | Short_Literal 0x0
0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0092 00d1 | | Pop_Control Pop_Count_1
0093 00da | | Load_Top At_Offset_2
0094 00eb | | Load_Encached Diana_Cache
0095 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
0096 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0097 0f36 | 6 | Execute_Immediate Equal,0x36
0098 680a |h | Jump_Zero 0xa3
0099 4800 |H | Short_Literal 0x0
009a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009b 00da | | Load_Top At_Offset_2
009c 00eb | | Load_Encached Diana_Cache
009d 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
009e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
009f 0f7c | | | Execute_Immediate Equal,0x7c
00a0 7002 |p | Jump_Nonzero 0xa3
00a1 4800 |H | Short_Literal 0x0
00a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a3 00db | | Load_Top At_Offset_3
00a4 e014 | | Load 0x0,0x14
00a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a6 6802 |h | Jump_Zero 0xa9
00a7 4800 |H | Short_Literal 0x0
00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a9 e9ff | | Load 0x4,-0x1
00aa e01d | | Load 0x0,0x1d
00ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00ad 0c0a | | Execute_Immediate Greater_Equal,0xa
00ae 6802 |h | Jump_Zero 0xb1
00af 4800 |H | Short_Literal 0x0
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 4801 |H | Short_Literal 0x1
00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b3 0000 | | .XXX[0x1]
00b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e5fc | | Load 0x2,-0x4
00bc e7ff | | Load 0x3,-0x1
00bd 0092 053a | :| Action Push_String_Extended,0x53a ; "Corrupt ada unit <1>: "
00bf e9ff | | Load 0x4,-0x1
00c0 01cc | | Execute Vector,Catenate
00c1 e21e | | Load 0x1,0x1e
00c2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00c3 4801 |H | Short_Literal 0x1
00c4 a402 | | Store_Unchecked 0x2,0x2
00c5 4800 |H | Short_Literal 0x0
00c6 a5fb | | Store_Unchecked 0x2,-0x5
00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fc | | Load 0x2,-0x4
00cc e9fe | | Load 0x4,-0x2
00cd e603 | | Load 0x3,0x3
00ce 0092 053a | :| Action Push_String_Extended,0x53a ; "Corrupt ada unit <1>: "
00d0 e9ff | | Load 0x4,-0x1
00d1 01cc | | Execute Vector,Catenate
00d2 e21e | | Load 0x1,0x1e
00d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d4 4801 |H | Short_Literal 0x1
00d5 a402 | | Store_Unchecked 0x2,0x2
00d6 4800 |H | Short_Literal 0x0
00d7 a5fb | | Store_Unchecked 0x2,-0x5
00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e5fc | | Load 0x2,-0x4
00e4 e7ff | | Load 0x3,-0x1
00e5 0092 053b | ;| Action Push_String_Extended,0x53b ; "Ada unit <1> is corrupt"
00e7 e21e | | Load 0x1,0x1e
00e8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e9 e5fc | | Load 0x2,-0x4
00ea e7ff | | Load 0x3,-0x1
00eb e21e | | Load 0x1,0x1e
00ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ed e407 | | Load 0x2,0x7
00ee 0a01 | | Execute_Immediate Plus,0x1
00ef c407 | | Store 0x2,0x7
00f0 4800 |H | Short_Literal 0x0
00f1 a402 | | Store_Unchecked 0x2,0x2
00f2 4800 |H | Short_Literal 0x0
00f3 a5fb | | Store_Unchecked 0x2,-0x5
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101 | | .CONST 0x0101 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e00e | | Load 0x0,0xe
00fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00fd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00fe e00e | | Load 0x0,0xe
00ff 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0100 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0101 BODY_00f8:
0101 e602 | | Load 0x3,0x2
0102 e00e | | Load 0x0,0xe
0103 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0104 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0105 7004 |p | Jump_Nonzero 0x10a
0106 0092 053c | <| Action Push_String_Extended,0x53c ; "Missing subsystem ID"
0108 860a | | Call 0x3,0xa
0109 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010a e602 | | Load 0x3,0x2
010b e00e | | Load 0x0,0xe
010c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
010d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
010e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
010f e40b | | Load 0x2,0xb
0110 e00e | | Load 0x0,0xe
0111 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0112 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0113 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0114 00d9 | | Load_Top At_Offset_1
0115 00d9 | | Load_Top At_Offset_1
0116 027e | ~ | Execute Discrete,Not_Equal
0117 680f |h | Jump_Zero 0x127
0118 0092 053d | =| Action Push_String_Extended,0x53d ; "Subsystem ID "
011a 00da | | Load_Top At_Offset_2
011b 8219 | | Call 0x1,0x19
011c 01cc | | Execute Vector,Catenate
011d 0092 053e | >| Action Push_String_Extended,0x53e ; " does not match subsystem ID "
011f 01cc | | Execute Vector,Catenate
0120 00d9 | | Load_Top At_Offset_1
0121 8219 | | Call 0x1,0x19
0122 01cc | | Execute Vector,Catenate
0123 0092 053f | ?| Action Push_String_Extended,0x53f ; " in unit map"
0125 01cc | | Execute Vector,Catenate
0126 860a | | Call 0x3,0xa
0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0137 | 7 | .CONST 0x0137 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b e00e | | Load 0x0,0xe
012c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
012d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012e e00e | | Load 0x0,0xe
012f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0130 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0131 e00e | | Load 0x0,0xe
0132 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0133 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0134 02c7 | | Declare_Variable Any
0135 00d8 | | Load_Top At_Offset_0
0136 1c00 | | Execute_Immediate Run_Utility,0x0
0137 BODY_0128:
0137 e602 | | Load 0x3,0x2
0138 e00e | | Load 0x0,0xe
0139 1b13 | | Execute Package,Field_Read,Field_Number 0x13
013a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
013b 7004 |p | Jump_Nonzero 0x140
013c 0092 0540 | @| Action Push_String_Extended,0x540 ; "Missing unit number"
013e 860a | | Call 0x3,0xa
013f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0140 e602 | | Load 0x3,0x2
0141 e00e | | Load 0x0,0xe
0142 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0143 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0144 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0145 00d8 | | Load_Top At_Offset_0
0146 0120 | | Execute Any,Is_Value
0147 6804 |h | Jump_Zero 0x14c
0148 e00e | | Load 0x0,0xe
0149 1b13 | | Execute Package,Field_Read,Field_Number 0x13
014a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014b 7801 |x | Jump 0x14d
014c 00d8 | | Load_Top At_Offset_0
014d e00e | | Load 0x0,0xe
014e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
014f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0150 e40b | | Load 0x2,0xb
0151 e7ff | | Load 0x3,-0x1
0152 e003 | | Load 0x0,0x3
0153 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0154 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0155 e00e | | Load 0x0,0xe
0156 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0157 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0158 c40b | | Store 0x2,0xb
0159 005b | [ | Store_Top Discrete,At_Offset_3
015a c804 | | Store 0x4,0x4
015b 00d8 | | Load_Top At_Offset_0
015c e00e | | Load 0x0,0xe
015d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015f 4610 |F | Jump_Case 0x11
0160 7816 |x | Jump 0x177 ; case 0x0
0161 780f |x | Jump 0x171 ; case 0x1
0162 780e |x | Jump 0x171 ; case 0x2
0163 780d |x | Jump 0x171 ; case 0x3
0164 780c |x | Jump 0x171 ; case 0x4
0165 7825 |x% | Jump 0x18b ; case 0x5
0166 780a |x | Jump 0x171 ; case 0x6
0167 7809 |x | Jump 0x171 ; case 0x7
0168 7808 |x | Jump 0x171 ; case 0x8
0169 7807 |x | Jump 0x171 ; case 0x9
016a 7806 |x | Jump 0x171 ; case 0xa
016b 7805 |x | Jump 0x171 ; case 0xb
016c 7804 |x | Jump 0x171 ; case 0xc
016d 7803 |x | Jump 0x171 ; case 0xd
016e 7802 |x | Jump 0x171 ; case 0xe
016f 7801 |x | Jump 0x171 ; case 0xf
0170 7800 |x | Jump 0x171 ; case 0x10
0171 00d8 | | Load_Top At_Offset_0
0172 e00e | | Load 0x0,0xe
0173 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0174 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0175 840d | | Call 0x2,0xd
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0177 00da | | Load_Top At_Offset_2
0178 00da | | Load_Top At_Offset_2
0179 027e | ~ | Execute Discrete,Not_Equal
017a 680f |h | Jump_Zero 0x18a
017b 0092 0541 | A| Action Push_String_Extended,0x541 ; "Unit number "
017d 00db | | Load_Top At_Offset_3
017e 8218 | | Call 0x1,0x18
017f 01cc | | Execute Vector,Catenate
0180 0092 0542 | B| Action Push_String_Extended,0x542 ; " does not match unit number "
0182 01cc | | Execute Vector,Catenate
0183 00da | | Load_Top At_Offset_2
0184 8218 | | Call 0x1,0x18
0185 01cc | | Execute Vector,Catenate
0186 0092 053f | ?| Action Push_String_Extended,0x53f ; " in unit map"
0188 01cc | | Execute Vector,Catenate
0189 860a | | Call 0x3,0xa
018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018b 0092 0541 | A| Action Push_String_Extended,0x541 ; "Unit number "
018d 00db | | Load_Top At_Offset_3
018e 8218 | | Call 0x1,0x18
018f 01cc | | Execute Vector,Catenate
0190 0092 0543 | C| Action Push_String_Extended,0x543 ; " does not exist in the unit map"
0192 01cc | | Execute Vector,Catenate
0193 860a | | Call 0x3,0xa
0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 019f | | .CONST 0x019f ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e00e | | Load 0x0,0xe
019d 180f | | Execute Package,Field_Execute,Field_Number 0xf
019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019f TRAP_0198:
019f 0007 | | Action Break_Optional
01a0 e00e | | Load 0x0,0xe
01a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01c8 | | .CONST 0x01c8 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0008 | | .CONST 0x0008 ; Number of locals
01ab INIT_01a8:
01ab e602 | | Load 0x3,0x2
01ac 860f | | Call 0x3,0xf
01ad 00d8 | | Load_Top At_Offset_0
01ae 01da | | Execute Vector,Bounds
01af e00e | | Load 0x0,0xe
01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b1 035b | [ | Declare_Type Array,Constrained
01b2 0337 | 7 | Declare_Variable Array
01b3 00d9 | | Load_Top At_Offset_1
01b4 00d9 | | Load_Top At_Offset_1
01b5 01d4 | | Execute Vector,Structure_Write
01b6 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
01b8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
01b9 00c6 | | Action Check_Subprogram_Elaborated
01ba 4804 |H | Short_Literal 0x4
01bb 4804 |H | Short_Literal 0x4
01bc 0099 | | Action Reference_Dynamic
01bd 0093 0000 | | push_full_address 0x0
01bf 600c |` | Indirect_Literal Discrete,0x1cc,{0x80000000, 0x00020000}
01c0 0273 | s | Execute Discrete,Plus
01c1 e01e | | Load 0x0,0x1e
01c2 0273 | s | Execute Discrete,Plus
01c3 e01f | | Load 0x0,0x1f
01c4 0273 | s | Execute Discrete,Plus
01c5 4807 |H | Short_Literal 0x7
01c6 029f 049b | | Declare_Subprogram INIT_0498,For_Call
01c8 BODY_01a8:
01c8 8808 | | Call 0x4,0x8
01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ca 0000 0000 | | .XXX[0x2]
01cc 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4829 |H) | Short_Literal 0x29
01d4 4828 |H( | Short_Literal 0x28
01d5 4820 |H | Short_Literal 0x20
01d6 4800 |H | Short_Literal 0x0
01d7 480a |H | Short_Literal 0xa
01d8 e9ff | | Load 0x4,-0x1
01d9 e005 | | Load 0x0,0x5
01da 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01db 01ca | | Execute Vector,Prepend
01dc 0092 0544 | D| Action Push_String_Extended,0x544 ; " in "
01de 01cc | | Execute Vector,Catenate
01df 4820 |H | Short_Literal 0x20
01e0 4800 |H | Short_Literal 0x0
01e1 480a |H | Short_Literal 0xa
01e2 e9fe | | Load 0x4,-0x2
01e3 e005 | | Load 0x0,0x5
01e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e5 01cc | | Execute Vector,Catenate
01e6 0092 0545 | E| Action Push_String_Extended,0x545 ; " size "
01e8 01cc | | Execute Vector,Catenate
01e9 4820 |H | Short_Literal 0x20
01ea 4800 |H | Short_Literal 0x0
01eb 480a |H | Short_Literal 0xa
01ec e9fd | | Load 0x4,-0x3
01ed e005 | | Load 0x0,0x5
01ee 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ef 01cc | | Execute Vector,Catenate
01f0 01cb | | Execute Vector,Append
01f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0202 | | .CONST 0x0202 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 4976 |Iv | Short_Literal 0x176
01fd 00eb | | Load_Encached Diana_Cache
01fe 0098 | | Execute Package,Field_Read_Dynamic
01ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0200 00eb | | Load_Encached Diana_Cache
0201 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0202 BODY_01f8:
0202 00cf | | Action Mark_Auxiliary
0203 7824 |x$ | Jump 0x228
0204 00d9 | | Load_Top At_Offset_1
0205 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0206 00d8 | | Load_Top At_Offset_0
0207 0d40 | @ | Execute_Immediate Less,0x40
0208 7009 |p | Jump_Nonzero 0x212
0209 00d8 | | Load_Top At_Offset_0
020a 0c42 | B | Execute_Immediate Greater_Equal,0x42
020b 7003 |p | Jump_Nonzero 0x20f
020c 0f41 | A | Execute_Immediate Equal,0x41
020d 7009 |p | Jump_Nonzero 0x217
020e 7814 |x | Jump 0x223
020f 0f73 | s | Execute_Immediate Equal,0x73
0210 700b |p | Jump_Nonzero 0x21c
0211 7811 |x | Jump 0x223
0212 483e |H> | Short_Literal 0x3e
0213 483f |H? | Short_Literal 0x3f
0214 0262 | b | Execute Discrete,In_Range
0215 7001 |p | Jump_Nonzero 0x217
0216 780c |x | Jump 0x223
0217 00d9 | | Load_Top At_Offset_1
0218 00eb | | Load_Encached Diana_Cache
0219 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
021a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
021b 780e |x | Jump 0x22a
021c 00d9 | | Load_Top At_Offset_1
021d 00eb | | Load_Encached Diana_Cache
021e 18ec | | Execute Package,Field_Execute,Field_Number 0xec
021f 00eb | | Load_Encached Diana_Cache
0220 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0221 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0222 7807 |x | Jump 0x22a
0223 00d9 | | Load_Top At_Offset_1
0224 00eb | | Load_Encached Diana_Cache
0225 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0226 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0227 00c9 | | Action Pop_Auxiliary_Loop
0228 00d9 | | Load_Top At_Offset_1
0229 77da |w | Jump_Nonzero 0x204
022a 00ce | | Action Pop_Auxiliary
022b 00d8 | | Load_Top At_Offset_0
022c e00e | | Load 0x0,0xe
022d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0250 | P | .CONST 0x0250 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 000b | | .CONST 0x000b ; Number of locals
0233 INIT_0230:
0233 00e3 | | Load_Encached Natural_Cache
0234 e00e | | Load 0x0,0xe
0235 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0236 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0237 e00e | | Load 0x0,0xe
0238 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0239 1b10 | | Execute Package,Field_Read,Field_Number 0x10
023a e00e | | Load 0x0,0xe
023b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
023c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
023d e00e | | Load 0x0,0xe
023e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
023f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0240 e00e | | Load 0x0,0xe
0241 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0242 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0243 e00e | | Load 0x0,0xe
0244 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0245 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0246 e00e | | Load 0x0,0xe
0247 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0248 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0249 02c7 | | Declare_Variable Any
024a 00d8 | | Load_Top At_Offset_0
024b 1c00 | | Execute_Immediate Run_Utility,0x0
024c 029f 050b | | Declare_Subprogram INIT_0508,For_Call
024e 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
0250 BODY_0230:
0250 880a | | Call 0x4,0xa
0251 e9ff | | Load 0x4,-0x1
0252 4974 |It | Short_Literal 0x174
0253 00eb | | Load_Encached Diana_Cache
0254 0098 | | Execute Package,Field_Read_Dynamic
0255 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0256 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0257 0fa8 | | Execute_Immediate Equal,-0x58
0258 7001 |p | Jump_Nonzero 0x25a
0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025a e9ff | | Load 0x4,-0x1
025b 8612 | | Call 0x3,0x12
025c a803 | | Store_Unchecked 0x4,0x3
025d e9ff | | Load 0x4,-0x1
025e e014 | | Load 0x0,0x14
025f 189d | | Execute Package,Field_Execute,Field_Number 0x9d
0260 a804 | | Store_Unchecked 0x4,0x4
0261 00da | | Load_Top At_Offset_2
0262 0120 | | Execute Any,Is_Value
0263 6804 |h | Jump_Zero 0x268
0264 e00e | | Load 0x0,0xe
0265 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0266 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0267 7801 |x | Jump 0x269
0268 00da | | Load_Top At_Offset_2
0269 e00e | | Load 0x0,0xe
026a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
026b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
026c e802 | | Load 0x4,0x2
026d e00e | | Load 0x0,0xe
026e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
026f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0270 00d9 | | Load_Top At_Offset_1
0271 00d0 | | Action Swap_Control
0272 0260 | ` | Execute Discrete,In_Type
0273 7001 |p | Jump_Nonzero 0x275
0274 0801 | | Execute_Immediate Raise,0x1
0275 e803 | | Load 0x4,0x3
0276 e804 | | Load 0x4,0x4
0277 e605 | | Load 0x3,0x5
0278 e00e | | Load 0x0,0xe
0279 1b16 | | Execute Package,Field_Read,Field_Number 0x16
027a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
027b c805 | | Store 0x4,0x5
027c c809 | | Store 0x4,0x9
027d 00da | | Load_Top At_Offset_2
027e e00e | | Load 0x0,0xe
027f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0280 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0281 4611 |F | Jump_Case 0x12
0282 7817 |x | Jump 0x29a ; case 0x0
0283 7810 |x | Jump 0x294 ; case 0x1
0284 780f |x | Jump 0x294 ; case 0x2
0285 780e |x | Jump 0x294 ; case 0x3
0286 780d |x | Jump 0x294 ; case 0x4
0287 780c |x | Jump 0x294 ; case 0x5
0288 782e |x. | Jump 0x2b7 ; case 0x6
0289 780a |x | Jump 0x294 ; case 0x7
028a 7809 |x | Jump 0x294 ; case 0x8
028b 7808 |x | Jump 0x294 ; case 0x9
028c 7807 |x | Jump 0x294 ; case 0xa
028d 7806 |x | Jump 0x294 ; case 0xb
028e 7805 |x | Jump 0x294 ; case 0xc
028f 7804 |x | Jump 0x294 ; case 0xd
0290 7803 |x | Jump 0x294 ; case 0xe
0291 7802 |x | Jump 0x294 ; case 0xf
0292 7801 |x | Jump 0x294 ; case 0x10
0293 7800 |x | Jump 0x294 ; case 0x11
0294 00da | | Load_Top At_Offset_2
0295 e00e | | Load 0x0,0xe
0296 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0297 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0298 840d | | Call 0x2,0xd
0299 782f |x/ | Jump 0x2c9
029a e805 | | Load 0x4,0x5
029b e806 | | Load 0x4,0x6
029c 027e | ~ | Execute Discrete,Not_Equal
029d 682b |h+ | Jump_Zero 0x2c9
029e e9ff | | Load 0x4,-0x1
029f 0092 0546 | F| Action Push_String_Extended,0x546 ; "Offset "
02a1 e806 | | Load 0x4,0x6
02a2 8218 | | Call 0x1,0x18
02a3 01cc | | Execute Vector,Catenate
02a4 0092 0547 | G| Action Push_String_Extended,0x547 ; "for <2> "
02a6 01cc | | Execute Vector,Catenate
02a7 e802 | | Load 0x4,0x2
02a8 e803 | | Load 0x4,0x3
02a9 e804 | | Load 0x4,0x4
02aa 8611 | | Call 0x3,0x11
02ab 01cc | | Execute Vector,Catenate
02ac 0092 0548 | H| Action Push_String_Extended,0x548 ; " does not match offset "
02ae 01cc | | Execute Vector,Catenate
02af e805 | | Load 0x4,0x5
02b0 8218 | | Call 0x1,0x18
02b1 01cc | | Execute Vector,Catenate
02b2 0092 0549 | I| Action Push_String_Extended,0x549 ; " in offset map"
02b4 01cc | | Execute Vector,Catenate
02b5 860b | | Call 0x3,0xb
02b6 7812 |x | Jump 0x2c9
02b7 e9ff | | Load 0x4,-0x1
02b8 0092 0546 | F| Action Push_String_Extended,0x546 ; "Offset "
02ba e806 | | Load 0x4,0x6
02bb 8218 | | Call 0x1,0x18
02bc 01cc | | Execute Vector,Catenate
02bd 0092 054a | J| Action Push_String_Extended,0x54a ; " for <2> "
02bf 01cc | | Execute Vector,Catenate
02c0 e802 | | Load 0x4,0x2
02c1 e803 | | Load 0x4,0x3
02c2 e804 | | Load 0x4,0x4
02c3 8611 | | Call 0x3,0x11
02c4 01cc | | Execute Vector,Catenate
02c5 0092 054b | K| Action Push_String_Extended,0x54b ; " does not exist in the offset map"
02c7 01cc | | Execute Vector,Catenate
02c8 860b | | Call 0x3,0xb
02c9 880b | | Call 0x4,0xb
02ca 00da | | Load_Top At_Offset_2
02cb 0120 | | Execute Any,Is_Value
02cc 6804 |h | Jump_Zero 0x2d1
02cd e00e | | Load 0x0,0xe
02ce 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d0 7801 |x | Jump 0x2d2
02d1 00da | | Load_Top At_Offset_2
02d2 e00e | | Load 0x0,0xe
02d3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d5 4800 |H | Short_Literal 0x0
02d6 4800 |H | Short_Literal 0x0
02d7 e804 | | Load 0x4,0x4
02d8 e605 | | Load 0x3,0x5
02d9 e00e | | Load 0x0,0xe
02da 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02dc c807 | | Store 0x4,0x7
02dd c809 | | Store 0x4,0x9
02de 00da | | Load_Top At_Offset_2
02df e00e | | Load 0x0,0xe
02e0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e2 4611 |F | Jump_Case 0x12
02e3 7817 |x | Jump 0x2fb ; case 0x0
02e4 7810 |x | Jump 0x2f5 ; case 0x1
02e5 780f |x | Jump 0x2f5 ; case 0x2
02e6 780e |x | Jump 0x2f5 ; case 0x3
02e7 780d |x | Jump 0x2f5 ; case 0x4
02e8 780c |x | Jump 0x2f5 ; case 0x5
02e9 782c |x, | Jump 0x316 ; case 0x6
02ea 780a |x | Jump 0x2f5 ; case 0x7
02eb 7809 |x | Jump 0x2f5 ; case 0x8
02ec 7808 |x | Jump 0x2f5 ; case 0x9
02ed 7807 |x | Jump 0x2f5 ; case 0xa
02ee 7806 |x | Jump 0x2f5 ; case 0xb
02ef 7805 |x | Jump 0x2f5 ; case 0xc
02f0 7804 |x | Jump 0x2f5 ; case 0xd
02f1 7803 |x | Jump 0x2f5 ; case 0xe
02f2 7802 |x | Jump 0x2f5 ; case 0xf
02f3 7801 |x | Jump 0x2f5 ; case 0x10
02f4 7800 |x | Jump 0x2f5 ; case 0x11
02f5 00da | | Load_Top At_Offset_2
02f6 e00e | | Load 0x0,0xe
02f7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f9 840d | | Call 0x2,0xd
02fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fb 00db | | Load_Top At_Offset_3
02fc e807 | | Load 0x4,0x7
02fd 027d | } | Execute Discrete,Greater
02fe 6816 |h | Jump_Zero 0x315
02ff e9ff | | Load 0x4,-0x1
0300 0092 054c | L| Action Push_String_Extended,0x54c ; "Next offset "
0302 e808 | | Load 0x4,0x8
0303 8218 | | Call 0x1,0x18
0304 01cc | | Execute Vector,Catenate
0305 0092 0547 | G| Action Push_String_Extended,0x547 ; "for <2> "
0307 01cc | | Execute Vector,Catenate
0308 e804 | | Load 0x4,0x4
0309 821a | | Call 0x1,0x1a
030a 01cc | | Execute Vector,Catenate
030b 0092 054d | M| Action Push_String_Extended,0x54d ; " is greater than next offset "
030d 01cc | | Execute Vector,Catenate
030e e807 | | Load 0x4,0x7
030f 8218 | | Call 0x1,0x18
0310 01cc | | Execute Vector,Catenate
0311 0092 0549 | I| Action Push_String_Extended,0x549 ; " in offset map"
0313 01cc | | Execute Vector,Catenate
0314 860b | | Call 0x3,0xb
0315 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0316 e9ff | | Load 0x4,-0x1
0317 0092 054c | L| Action Push_String_Extended,0x54c ; "Next offset "
0319 e808 | | Load 0x4,0x8
031a 8218 | | Call 0x1,0x18
031b 01cc | | Execute Vector,Catenate
031c 0092 054a | J| Action Push_String_Extended,0x54a ; " for <2> "
031e 01cc | | Execute Vector,Catenate
031f e804 | | Load 0x4,0x4
0320 821a | | Call 0x1,0x1a
0321 01cc | | Execute Vector,Catenate
0322 0092 054b | K| Action Push_String_Extended,0x54b ; " does not exist in the offset map"
0324 01cc | | Execute Vector,Catenate
0325 860b | | Call 0x3,0xb
0326 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0340 | @ | .CONST 0x0340 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0005 | | .CONST 0x0005 ; Number of locals
032b INIT_0328:
032b e00e | | Load 0x0,0xe
032c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
032d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032e 02c7 | | Declare_Variable Any
032f 00d8 | | Load_Top At_Offset_0
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0332 00c6 | | Action Check_Subprogram_Elaborated
0333 4813 |H | Short_Literal 0x13
0334 4803 |H | Short_Literal 0x3
0335 0099 | | Action Reference_Dynamic
0336 0093 0000 | | push_full_address 0x0
0338 604f |`O | Indirect_Literal Discrete,0x388,{0x80000000, 0x00010000}
0339 0273 | s | Execute Discrete,Plus
033a e01e | | Load 0x0,0x1e
033b 0273 | s | Execute Discrete,Plus
033c e020 | | Load 0x0,0x20
033d 0273 | s | Execute Discrete,Plus
033e 4805 |H | Short_Literal 0x5
033f 0007 | | Action Break_Optional
0340 BODY_0328:
0340 00db | | Load_Top At_Offset_3
0341 0120 | | Execute Any,Is_Value
0342 6804 |h | Jump_Zero 0x347
0343 e00e | | Load 0x0,0xe
0344 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0345 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0346 7801 |x | Jump 0x348
0347 00db | | Load_Top At_Offset_3
0348 e605 | | Load 0x3,0x5
0349 4800 |H | Short_Literal 0x0
034a 4800 |H | Short_Literal 0x0
034b e00b | | Load 0x0,0xb
034c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034d e7ff | | Load 0x3,-0x1
034e e00e | | Load 0x0,0xe
034f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0350 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0351 c605 | | Store 0x3,0x5
0352 c802 | | Store 0x4,0x2
0353 00db | | Load_Top At_Offset_3
0354 e00e | | Load 0x0,0xe
0355 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0356 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0357 0b00 | | Execute_Immediate Case_Compare,0x0
0358 7008 |p | Jump_Nonzero 0x361
0359 0f01 | | Execute_Immediate Equal,0x1
035a 7008 |p | Jump_Nonzero 0x363
035b 00db | | Load_Top At_Offset_3
035c e00e | | Load 0x0,0xe
035d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
035e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
035f 840d | | Call 0x2,0xd
0360 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0361 00d1 | | Pop_Control Pop_Count_1
0362 7804 |x | Jump 0x367
0363 0092 054e | N| Action Push_String_Extended,0x54e ; "Offset map is missing"
0365 860a | | Call 0x3,0xa
0366 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0367 e602 | | Load 0x3,0x2
0368 4803 |H | Short_Literal 0x3
0369 4804 |H | Short_Literal 0x4
036a 0099 | | Action Reference_Dynamic
036b 4804 |H | Short_Literal 0x4
036c 4804 |H | Short_Literal 0x4
036d 0099 | | Action Reference_Dynamic
036e 821f | | Call 0x1,0x1f
036f 00db | | Load_Top At_Offset_3
0370 0120 | | Execute Any,Is_Value
0371 6804 |h | Jump_Zero 0x376
0372 e00e | | Load 0x0,0xe
0373 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0374 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0375 7801 |x | Jump 0x377
0376 00db | | Load_Top At_Offset_3
0377 e605 | | Load 0x3,0x5
0378 e00e | | Load 0x0,0xe
0379 1b16 | | Execute Package,Field_Read,Field_Number 0x16
037a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
037b c605 | | Store 0x3,0x5
037c c802 | | Store 0x4,0x2
037d 00db | | Load_Top At_Offset_3
037e e00e | | Load 0x0,0xe
037f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0380 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0381 7005 |p | Jump_Nonzero 0x387
0382 00db | | Load_Top At_Offset_3
0383 e00e | | Load 0x0,0xe
0384 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0385 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0386 840d | | Call 0x2,0xd
0387 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0388 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
038c 0000 0000 | | .BLANK 0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 039e | | .CONST 0x039e ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0004 | | .CONST 0x0004 ; Number of locals
0393 INIT_0390:
0393 e003 | | Load 0x0,0x3
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 e003 | | Load 0x0,0x3
0396 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0397 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0398 02c7 | | Declare_Variable Any
0399 00d8 | | Load_Top At_Offset_0
039a 1c00 | | Execute_Immediate Run_Utility,0x0
039b e003 | | Load 0x0,0x3
039c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
039d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039e BODY_0390:
039e e003 | | Load 0x0,0x3
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 00da | | Load_Top At_Offset_2
03a1 0120 | | Execute Any,Is_Value
03a2 6804 |h | Jump_Zero 0x3a7
03a3 e003 | | Load 0x0,0x3
03a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03a6 7801 |x | Jump 0x3a8
03a7 00da | | Load_Top At_Offset_2
03a8 e003 | | Load 0x0,0x3
03a9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03ab 6060 |`` | Indirect_Literal Discrete,0x40c,{0x00000000, 0x00004000}
03ac 4801 |H | Short_Literal 0x1
03ad 4800 |H | Short_Literal 0x0
03ae 4800 |H | Short_Literal 0x0
03af e00b | | Load 0x0,0xb
03b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b1 4801 |H | Short_Literal 0x1
03b2 e7ff | | Load 0x3,-0x1
03b3 e003 | | Load 0x0,0x3
03b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b6 e003 | | Load 0x0,0x3
03b7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03b9 c602 | | Store 0x3,0x2
03ba c803 | | Store 0x4,0x3
03bb 005b | [ | Store_Top Discrete,At_Offset_3
03bc 00da | | Load_Top At_Offset_2
03bd 821b | | Call 0x1,0x1b
03be 700c |p | Jump_Nonzero 0x3cb
03bf e7ff | | Load 0x3,-0x1
03c0 0092 054f | O| Action Push_String_Extended,0x54f ; "Could not open <1>: "
03c2 e802 | | Load 0x4,0x2
03c3 e003 | | Load 0x0,0x3
03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c5 011c | | Execute Any,Convert_Unchecked
03c6 1c01 | | Execute_Immediate Run_Utility,0x1
03c7 01cc | | Execute Vector,Catenate
03c8 840e | | Call 0x2,0xe
03c9 00cc | | Action Pop_Block
03ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03cb e003 | | Load 0x0,0x3
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd e003 | | Load 0x0,0x3
03ce 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d0 603b |`; | Indirect_Literal Discrete,0x40c,{0x00000000, 0x00004000}
03d1 e00b | | Load 0x0,0xb
03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d3 4800 |H | Short_Literal 0x0
03d4 e7ff | | Load 0x3,-0x1
03d5 e003 | | Load 0x0,0x3
03d6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d8 e003 | | Load 0x0,0x3
03d9 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03da 180f | | Execute Package,Field_Execute,Field_Number 0xf
03db 005a | Z | Store_Top Discrete,At_Offset_2
03dc 005b | [ | Store_Top Discrete,At_Offset_3
03dd 00da | | Load_Top At_Offset_2
03de 821b | | Call 0x1,0x1b
03df 700c |p | Jump_Nonzero 0x3ec
03e0 e7ff | | Load 0x3,-0x1
03e1 0092 0550 | P| Action Push_String_Extended,0x550 ; "Could not get unit state for <1>: "
03e3 e802 | | Load 0x4,0x2
03e4 e003 | | Load 0x0,0x3
03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e6 011c | | Execute Any,Convert_Unchecked
03e7 1c01 | | Execute_Immediate Run_Utility,0x1
03e8 01cc | | Execute Vector,Catenate
03e9 840e | | Call 0x2,0xe
03ea 00cc | | Action Pop_Block
03eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ec 00d8 | | Load_Top At_Offset_0
03ed 8606 | | Call 0x3,0x6
03ee 680f |h | Jump_Zero 0x3fe
03ef e602 | | Load 0x3,0x2
03f0 4976 |Iv | Short_Literal 0x176
03f1 00eb | | Load_Encached Diana_Cache
03f2 0098 | | Execute Package,Field_Read_Dynamic
03f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
03f4 a603 | | Store_Unchecked 0x3,0x3
03f5 e40c | | Load 0x2,0xc
03f6 6803 |h | Jump_Zero 0x3fa
03f7 860d | | Call 0x3,0xd
03f8 860e | | Call 0x3,0xe
03f9 7803 |x | Jump 0x3fd
03fa 0092 0551 | Q| Action Push_String_Extended,0x551 ; "Unit map is missing"
03fc 860a | | Call 0x3,0xa
03fd 8610 | | Call 0x3,0x10
03fe 00d8 | | Load_Top At_Offset_0
03ff 8607 | | Call 0x3,0x7
0400 6804 |h | Jump_Zero 0x405
0401 e602 | | Load 0x3,0x2
0402 8609 | | Call 0x3,0x9
0403 6801 |h | Jump_Zero 0x405
0404 8614 | | Call 0x3,0x14
0405 e402 | | Load 0x2,0x2
0406 6801 |h | Jump_Zero 0x408
0407 860c | | Call 0x3,0xc
0408 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0409 0000 0000 | | .XXX[0x3]
040b 0000 | |
040c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041f | | .CONST 0x041f ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0004 | | .CONST 0x0004 ; Number of locals
0413 INIT_0410:
0413 e00e | | Load 0x0,0xe
0414 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0415 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0416 e00e | | Load 0x0,0xe
0417 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0418 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0419 e00e | | Load 0x0,0xe
041a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
041b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041c 02c7 | | Declare_Variable Any
041d 00d8 | | Load_Top At_Offset_0
041e 1c00 | | Execute_Immediate Run_Utility,0x0
041f BODY_0410:
041f ebff | | Load 0x5,-0x1
0420 e014 | | Load 0x0,0x14
0421 189e | | Execute Package,Field_Execute,Field_Number 0x9e
0422 7005 |p | Jump_Nonzero 0x428
0423 ebff | | Load 0x5,-0x1
0424 0092 0552 | R| Action Push_String_Extended,0x552 ; "Missing declaration number for <2>"
0426 860b | | Call 0x3,0xb
0427 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0428 ebff | | Load 0x5,-0x1
0429 e014 | | Load 0x0,0x14
042a 189d | | Execute Package,Field_Execute,Field_Number 0x9d
042b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
042c 00d8 | | Load_Top At_Offset_0
042d 0120 | | Execute Any,Is_Value
042e 6804 |h | Jump_Zero 0x433
042f e00e | | Load 0x0,0xe
0430 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0432 7801 |x | Jump 0x434
0433 00d8 | | Load_Top At_Offset_0
0434 e00e | | Load 0x0,0xe
0435 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0436 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0437 ebff | | Load 0x5,-0x1
0438 8021 | ! | Call 0x0,0x21
0439 e604 | | Load 0x3,0x4
043a e00e | | Load 0x0,0xe
043b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
043c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
043d ca02 | | Store 0x5,0x2
043e ca04 | | Store 0x5,0x4
043f 00d8 | | Load_Top At_Offset_0
0440 e00e | | Load 0x0,0xe
0441 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0442 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0443 4611 |F | Jump_Case 0x12
0444 7817 |x | Jump 0x45c ; case 0x0
0445 7810 |x | Jump 0x456 ; case 0x1
0446 780f |x | Jump 0x456 ; case 0x2
0447 780e |x | Jump 0x456 ; case 0x3
0448 780d |x | Jump 0x456 ; case 0x4
0449 780c |x | Jump 0x456 ; case 0x5
044a 7826 |x& | Jump 0x471 ; case 0x6
044b 780a |x | Jump 0x456 ; case 0x7
044c 7809 |x | Jump 0x456 ; case 0x8
044d 7808 |x | Jump 0x456 ; case 0x9
044e 7807 |x | Jump 0x456 ; case 0xa
044f 7806 |x | Jump 0x456 ; case 0xb
0450 7805 |x | Jump 0x456 ; case 0xc
0451 7804 |x | Jump 0x456 ; case 0xd
0452 7803 |x | Jump 0x456 ; case 0xe
0453 7802 |x | Jump 0x456 ; case 0xf
0454 7801 |x | Jump 0x456 ; case 0x10
0455 7800 |x | Jump 0x456 ; case 0x11
0456 00d8 | | Load_Top At_Offset_0
0457 e00e | | Load 0x0,0xe
0458 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0459 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045a 840d | | Call 0x2,0xd
045b 781f |x | Jump 0x47b
045c 00d9 | | Load_Top At_Offset_1
045d 00db | | Load_Top At_Offset_3
045e 027f | | Execute Discrete,Equal
045f 701b |p | Jump_Nonzero 0x47b
0460 ebff | | Load 0x5,-0x1
0461 0092 0553 | S| Action Push_String_Extended,0x553 ; "Declaration number "
0463 00db | | Load_Top At_Offset_3
0464 821a | | Call 0x1,0x1a
0465 01cc | | Execute Vector,Catenate
0466 0092 0554 | T| Action Push_String_Extended,0x554 ; " for <2> does not match declaration number "
0468 01cc | | Execute Vector,Catenate
0469 ea02 | | Load 0x5,0x2
046a 821a | | Call 0x1,0x1a
046b 01cc | | Execute Vector,Catenate
046c 0092 0555 | U| Action Push_String_Extended,0x555 ; " in the declaration map"
046e 01cc | | Execute Vector,Catenate
046f 860b | | Call 0x3,0xb
0470 780a |x | Jump 0x47b
0471 ebff | | Load 0x5,-0x1
0472 0092 0553 | S| Action Push_String_Extended,0x553 ; "Declaration number "
0474 00db | | Load_Top At_Offset_3
0475 821a | | Call 0x1,0x1a
0476 01cc | | Execute Vector,Catenate
0477 0092 0556 | V| Action Push_String_Extended,0x556 ; " for <2> does not exist in the declaration map"
0479 01cc | | Execute Vector,Catenate
047a 860b | | Call 0x3,0xb
047b 00d9 | | Load_Top At_Offset_1
047c e802 | | Load 0x4,0x2
047d 01da | | Execute Vector,Bounds
047e 0262 | b | Execute Discrete,In_Range
047f 6809 |h | Jump_Zero 0x489
0480 00d9 | | Load_Top At_Offset_1
0481 e802 | | Load 0x4,0x2
0482 01d7 | | Execute Vector,Field_Read
0483 6805 |h | Jump_Zero 0x489
0484 4800 |H | Short_Literal 0x0
0485 00da | | Load_Top At_Offset_2
0486 e803 | | Load 0x4,0x3
0487 01d6 | | Execute Vector,Field_Write
0488 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0489 ebff | | Load 0x5,-0x1
048a 0092 0553 | S| Action Push_String_Extended,0x553 ; "Declaration number "
048c 00db | | Load_Top At_Offset_3
048d 821a | | Call 0x1,0x1a
048e 01cc | | Execute Vector,Catenate
048f 0092 0557 | W| Action Push_String_Extended,0x557 ; " for <2> is missing from the compatibility signature"
0491 01cc | | Execute Vector,Catenate
0492 860b | | Call 0x3,0xb
0493 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a1 | | .CONST 0x04a1 ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0002 | | .CONST 0x0002 ; Number of locals
049b INIT_0498:
049b e00e | | Load 0x0,0xe
049c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
049e 02c7 | | Declare_Variable Any
049f 00d8 | | Load_Top At_Offset_0
04a0 1c00 | | Execute_Immediate Run_Utility,0x0
04a1 BODY_0498:
04a1 00d8 | | Load_Top At_Offset_0
04a2 0120 | | Execute Any,Is_Value
04a3 6804 |h | Jump_Zero 0x4a8
04a4 e00e | | Load 0x0,0xe
04a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a7 7801 |x | Jump 0x4a9
04a8 00d8 | | Load_Top At_Offset_0
04a9 e604 | | Load 0x3,0x4
04aa 4800 |H | Short_Literal 0x0
04ab 4800 |H | Short_Literal 0x0
04ac e00b | | Load 0x0,0xb
04ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ae e7ff | | Load 0x3,-0x1
04af e00e | | Load 0x0,0xe
04b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b2 c604 | | Store 0x3,0x4
04b3 ca02 | | Store 0x5,0x2
04b4 00d8 | | Load_Top At_Offset_0
04b5 e00e | | Load 0x0,0xe
04b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04b8 0b00 | | Execute_Immediate Case_Compare,0x0
04b9 7009 |p | Jump_Nonzero 0x4c3
04ba 0f01 | | Execute_Immediate Equal,0x1
04bb 7009 |p | Jump_Nonzero 0x4c5
04bc 00d8 | | Load_Top At_Offset_0
04bd e00e | | Load 0x0,0xe
04be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04c0 840d | | Call 0x2,0xd
04c1 00cc | | Action Pop_Block
04c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c3 00d1 | | Pop_Control Pop_Count_1
04c4 7805 |x | Jump 0x4ca
04c5 0092 0558 | X| Action Push_String_Extended,0x558 ; "Declaration map is missing"
04c7 860a | | Call 0x3,0xa
04c8 00cc | | Action Pop_Block
04c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ca e602 | | Load 0x3,0x2
04cb 4805 |H | Short_Literal 0x5
04cc 4804 |H | Short_Literal 0x4
04cd 0099 | | Action Reference_Dynamic
04ce 4806 |H | Short_Literal 0x6
04cf 4804 |H | Short_Literal 0x4
04d0 0099 | | Action Reference_Dynamic
04d1 821f | | Call 0x1,0x1f
04d2 e802 | | Load 0x4,0x2
04d3 e00e | | Load 0x0,0xe
04d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d5 01df | | Execute Vector,Equal
04d6 6803 |h | Jump_Zero 0x4da
04d7 0092 0559 | Y| Action Push_String_Extended,0x559 ; "Missing compatibility signature);"
04d9 860a | | Call 0x3,0xa
04da 00cf | | Action Mark_Auxiliary
04db e803 | | Load 0x4,0x3
04dc 01d9 | | Execute Vector,Reverse_Bounds
04dd 0263 | c | Execute Discrete,Above_Bound
04de 700f |p | Jump_Nonzero 0x4ee
04df 00d8 | | Load_Top At_Offset_0
04e0 e803 | | Load 0x4,0x3
04e1 01d7 | | Execute Vector,Field_Read
04e2 6809 |h | Jump_Zero 0x4ec
04e3 0092 0553 | S| Action Push_String_Extended,0x553 ; "Declaration number "
04e5 00d9 | | Load_Top At_Offset_1
04e6 821a | | Call 0x1,0x1a
04e7 01cc | | Execute Vector,Catenate
04e8 0092 055a | Z| Action Push_String_Extended,0x55a ; " in compatibility signature does not exist in ada unit"
04ea 01cc | | Execute Vector,Catenate
04eb 860a | | Call 0x3,0xa
04ec 00c8 | | Action Pop_Auxiliary_Range
04ed 3ff1 |? | Loop_Increasing 0x4df
04ee 00ce | | Action Pop_Auxiliary
04ef 00d8 | | Load_Top At_Offset_0
04f0 0120 | | Execute Any,Is_Value
04f1 6804 |h | Jump_Zero 0x4f6
04f2 e00e | | Load 0x0,0xe
04f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f5 7801 |x | Jump 0x4f7
04f6 00d8 | | Load_Top At_Offset_0
04f7 e604 | | Load 0x3,0x4
04f8 e00e | | Load 0x0,0xe
04f9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04fa 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04fb c604 | | Store 0x3,0x4
04fc ca02 | | Store 0x5,0x2
04fd 00d8 | | Load_Top At_Offset_0
04fe e00e | | Load 0x0,0xe
04ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0500 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0501 7005 |p | Jump_Nonzero 0x507
0502 00d8 | | Load_Top At_Offset_0
0503 e00e | | Load 0x0,0xe
0504 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0505 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0506 840d | | Call 0x2,0xd
0507 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 051e | | .CONST 0x051e ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e9ff | | Load 0x4,-0x1
050c e014 | | Load 0x0,0x14
050d 189e | | Execute Package,Field_Execute,Field_Number 0x9e
050e 6804 |h | Jump_Zero 0x513
050f e9ff | | Load 0x4,-0x1
0510 e022 | " | Load 0x0,0x22
0511 180d | | Execute Package,Field_Execute,Field_Number 0xd
0512 7002 |p | Jump_Nonzero 0x515
0513 00cc | | Action Pop_Block
0514 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0515 e9ff | | Load 0x4,-0x1
0516 e022 | " | Load 0x0,0x22
0517 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0518 a802 | | Store_Unchecked 0x4,0x2
0519 e9ff | | Load 0x4,-0x1
051a e022 | " | Load 0x0,0x22
051b 180e | | Execute Package,Field_Execute,Field_Number 0xe
051c c806 | | Store 0x4,0x6
051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051e TRAP_0508:
051e 0007 | | Action Break_Optional
051f 00cc | | Action Pop_Block
0520 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0521 0000 0000 | | .BLANK 0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0536 | 6 | .CONST 0x0536 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e9ff | | Load 0x4,-0x1
052c e022 | " | Load 0x0,0x22
052d 180f | | Execute Package,Field_Execute,Field_Number 0xf
052e 7002 |p | Jump_Nonzero 0x531
052f 00cc | | Action Pop_Block
0530 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0531 e9ff | | Load 0x4,-0x1
0532 e022 | " | Load 0x0,0x22
0533 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0534 c808 | | Store 0x4,0x8
0535 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0536 TRAP_0528:
0536 0007 | | Action Break_Optional
0537 00cc | | Action Pop_Block
0538 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0539 ; --------------------------------------------------------------------------------------
0539 ; STRING TABLE
0539 ; --------------------------------------------------------------------------------------
0539 0046 | F | .STRTAB 0x0046->0x055c ; "Could not get target key for <1>: "
053a 0066 | f | .STRTAB 0x0066->0x056d ; "Corrupt ada unit <1>: "
053b 007a | z | .STRTAB 0x007a->0x0578 ; "Ada unit <1> is corrupt"
053c 008f | | .STRTAB 0x008f->0x0583 ; "Missing subsystem ID"
053d 00a1 | | .STRTAB 0x00a1->0x058d ; "Subsystem ID "
053e 00ac | | .STRTAB 0x00ac->0x0594 ; " does not match subsystem ID "
053f 00c7 | | .STRTAB 0x00c7->0x05a2 ; " in unit map"
0540 00d1 | | .STRTAB 0x00d1->0x05a8 ; "Missing unit number"
0541 00e2 | | .STRTAB 0x00e2->0x05b2 ; "Unit number "
0542 00ec | | .STRTAB 0x00ec->0x05b8 ; " does not match unit number "
0543 0106 | | .STRTAB 0x0106->0x05c6 ; " does not exist in the unit map"
0544 0123 | # | .STRTAB 0x0123->0x05d5 ; " in "
0545 0125 | % | .STRTAB 0x0125->0x05d7 ; " size "
0546 0129 | ) | .STRTAB 0x0129->0x05da ; "Offset "
0547 012e | . | .STRTAB 0x012e->0x05de ; "for <2> "
0548 0134 | 4 | .STRTAB 0x0134->0x05e2 ; " does not match offset "
0549 0149 | I | .STRTAB 0x0149->0x05ed ; " in offset map"
054a 0155 | U | .STRTAB 0x0155->0x05f4 ; " for <2> "
054b 015c | \ | .STRTAB 0x015c->0x05f9 ; " does not exist in the offset map"
054c 017b | { | .STRTAB 0x017b->0x0609 ; "Next offset "
054d 0185 | | .STRTAB 0x0185->0x060f ; " is greater than next offset "
054e 01a0 | | .STRTAB 0x01a0->0x061e ; "Offset map is missing"
054f 01b3 | | .STRTAB 0x01b3->0x0628 ; "Could not open <1>: "
0550 01c5 | | .STRTAB 0x01c5->0x0632 ; "Could not get unit state for <1>: "
0551 01e5 | | .STRTAB 0x01e5->0x0643 ; "Unit map is missing"
0552 01f6 | | .STRTAB 0x01f6->0x064d ; "Missing declaration number for <2>"
0553 0216 | | .STRTAB 0x0216->0x065e ; "Declaration number "
0554 0227 | ' | .STRTAB 0x0227->0x0667 ; " for <2> does not match declaration number "
0555 0250 | P | .STRTAB 0x0250->0x067d ; " in the declaration map"
0556 0265 | e | .STRTAB 0x0265->0x0688 ; " for <2> does not exist in the declaration map"
0557 0291 | | .STRTAB 0x0291->0x069f ; " for <2> is missing from the compatibility signature"
0558 02c3 | | .STRTAB 0x02c3->0x06b9 ; "Declaration map is missing"
0559 02db | | .STRTAB 0x02db->0x06c6 ; "Missing compatibility signature);"
055a 02fa | | .STRTAB 0x02fa->0x06d7 ; " in compatibility signature does not exist in ada unit"
055b 032e | . | .STREND 0x032e->0x06f2
055c 436f 756c |Coul| .STRTAB_STRINGS
06f2 0000 0000 | | .BLANK 0000[0x6]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug Table
06f8 ; --------------------------------------------------------------------------------------
06f8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x44ff,0x0000,0x0001,0x0000
06fe 0ccd 2d8c | - | .XXX[0x6]
0700 ae65 25c0 | e% |
0702 0000 0020 | |
0704 0000 0000 | | .BLANK 0000[0x5]
0709 07c0 0000 | | .XXX[0xf7]
070b 0000 0000 | |
070d 07a0 0000 | |
070f 0820 0000 | |
0711 0868 2e84 | h. |
0713 0e8d 0ca4 | |
0715 0c4c aced | L |
0717 2dcd cd2d |- -|
0719 cce4 0dec | |
071b c40e 0e4d | M|
071d ecee 4c2d | L-|
071f a40c af0c | |
0721 ac6e ae8d | n |
0723 2ded c584 |- |
0725 0e8d 0ca4 | |
0727 0c8c accc | |
0729 2ead 8e84 |. |
072b 0d2d ce0e | - |
072d ae84 0c2d | -|
072f cc84 0dee | |
0731 ae8e 0eae | |
0733 8000 0007 | |
0735 e000 0008 | |
0737 a404 082e | .|
0739 840e 8d0c | |
073b a40c 4cac | L |
073d ed2d cdcd | - |
073f 2dcc e40d |- |
0741 ecc4 0e0e | |
0743 4dec ee4c |M L|
0745 2da4 0caf |- |
0747 0cac 6eae | n |
0749 8d2d edc5 | - |
074b 840e 8d0c | |
074d a40c 8cac | |
074f cc2e ad8e | . |
0751 840d 2dce | - |
0753 0eae 840c | |
0755 2dcc 840d |- |
0757 eeae 8e0e | |
0759 ae80 0000 | |
075b 07e0 0000 | |
075d 08a4 0408 | |
075f 2e84 0e8d |. |
0761 0ca4 0c4c | L|
0763 aced 2dcd | - |
0765 cd2d cce4 | - |
0767 0dec c40e | |
0769 0e4d ecee | M |
076b 4c2d a40c |L- |
076d af0c ac6e | n|
076f ae8d 2ded | - |
0771 c584 0e8d | |
0773 0ca4 0c8c | |
0775 accc 2ead | . |
0777 8e84 0d2d | -|
0779 ce0e ae84 | |
077b 0c2d cc84 | - |
077d 0dee ae8e | |
077f 0eae 8000 | |
0781 0000 e000 | |
0783 0008 4ccd | L |
0785 2d8c ae64 |- d|
0787 0c2e 4ca4 | .L |
0789 0e8d 0ca4 | |
078b 0e6e 8c2d | n -|
078d cc8c 2e4c | .L|
078f 840d 2dce | - |
0791 0eae 840c | |
0793 cd2d 8ca4 | - |
0795 0c2d cc84 | - |
0797 0e6e 8c2d | n -|
0799 cc8c 2e4c | .L|
079b 840d eeae | |
079d 8e0e ae84 | |
079f 0ccd 2d8c | - |
07a1 a5c4 040a | |
07a3 8d0c ae6c | l|
07a5 a000 0000 | |
07a7 a000 0008 | |
07a9 8404 0ccd | |
07ab 2d8c ae64 |- d|
07ad 0c2e 4ca4 | .L |
07af 0e8d 0ca4 | |
07b1 0e6e 8c2d | n -|
07b3 cc8c 2e4c | .L|
07b5 840d 2dce | - |
07b7 0eae 840c | |
07b9 cd2d 8ca4 | - |
07bb 0c2d cc84 | - |
07bd 0e6e 8c2d | n -|
07bf cc8c 2e4c | .L|
07c1 840d eeae | |
07c3 8e0e ae84 | |
07c5 0ccd 2d8c | - |
07c7 a5c4 040a | |
07c9 8d0c ae6c | l|
07cb a000 0000 | |
07cd a000 0008 | |
07cf 8404 0ccd | |
07d1 2d8c ae64 |- d|
07d3 0c2e 4ca4 | .L |
07d5 0e8d 0ca4 | |
07d7 0e6e 8c2d | n -|
07d9 cc8c 2e4c | .L|
07db 840d 2dce | - |
07dd 0eae 840c | |
07df cd2d 8ca4 | - |
07e1 0c2d cc84 | - |
07e3 0e6e 8c2d | n -|
07e5 cc8c 2e4c | .L|
07e7 840d eeae | |
07e9 8e0e ae84 | |
07eb 0ccd 2d8c | - |
07ed a5c4 040a | |
07ef 8d0c ae6c | l|
07f1 a000 0009 | |
07f3 8000 0008 | |
07f5 4ccd 2d8c |L - |
07f7 ae64 0c2e | d .|
07f9 4ca4 0dee |L |
07fb 0cad c584 | |
07fd 0d0c 2ecc | . |
07ff a40e | |