|
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_043cfb
└─⟦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 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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0023 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0025 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0027 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0029 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
002b 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
002d 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
002f 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0031 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0033 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
0035 029f 0333 | 3| Declare_Subprogram INIT_0330,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 604a |`J | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00004000}
006e e00f | | Load 0x0,0xf
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 821d | | Call 0x1,0x1d
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 8410 | | Call 0x2,0x10
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 00eb | | Load_Encached Diana_Cache
008c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
008d 0b3e | > | Execute_Immediate Case_Compare,0x3e
008e 7004 |p | Jump_Nonzero 0x93
008f 0f41 | A | Execute_Immediate Equal,0x41
0090 700c |p | Jump_Nonzero 0x9d
0091 4800 |H | Short_Literal 0x0
0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0093 00d1 | | Pop_Control Pop_Count_1
0094 00da | | Load_Top At_Offset_2
0095 00eb | | Load_Encached Diana_Cache
0096 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
0097 00eb | | Load_Encached Diana_Cache
0098 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0099 0f36 | 6 | Execute_Immediate Equal,0x36
009a 680b |h | Jump_Zero 0xa6
009b 4800 |H | Short_Literal 0x0
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d 00da | | Load_Top At_Offset_2
009e 00eb | | Load_Encached Diana_Cache
009f 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
00a0 00eb | | Load_Encached Diana_Cache
00a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a2 0f7c | | | Execute_Immediate Equal,0x7c
00a3 7002 |p | Jump_Nonzero 0xa6
00a4 4800 |H | Short_Literal 0x0
00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a6 00db | | Load_Top At_Offset_3
00a7 e016 | | Load 0x0,0x16
00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a9 6802 |h | Jump_Zero 0xac
00aa 4800 |H | Short_Literal 0x0
00ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ac e9ff | | Load 0x4,-0x1
00ad e023 | # | Load 0x0,0x23
00ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00af 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00b0 0c0a | | Execute_Immediate Greater_Equal,0xa
00b1 6802 |h | Jump_Zero 0xb4
00b2 4800 |H | Short_Literal 0x0
00b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b4 4801 |H | Short_Literal 0x1
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e5fc | | Load 0x2,-0x4
00c4 e7ff | | Load 0x3,-0x1
00c5 0092 053a | :| Action Push_String_Extended,0x53a ; "Corrupt ada unit <1>: "
00c7 e9ff | | Load 0x4,-0x1
00c8 01cc | | Execute Vector,Catenate
00c9 e220 | | Load 0x1,0x20
00ca 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00cb 4801 |H | Short_Literal 0x1
00cc a404 | | Store_Unchecked 0x2,0x4
00cd 4800 |H | Short_Literal 0x0
00ce a5fb | | Store_Unchecked 0x2,-0x5
00cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e5fc | | Load 0x2,-0x4
00d4 e9fe | | Load 0x4,-0x2
00d5 e603 | | Load 0x3,0x3
00d6 0092 053a | :| Action Push_String_Extended,0x53a ; "Corrupt ada unit <1>: "
00d8 e9ff | | Load 0x4,-0x1
00d9 01cc | | Execute Vector,Catenate
00da e220 | | Load 0x1,0x20
00db 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00dc 4801 |H | Short_Literal 0x1
00dd a404 | | Store_Unchecked 0x2,0x4
00de 4800 |H | Short_Literal 0x0
00df a5fb | | Store_Unchecked 0x2,-0x5
00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5fc | | Load 0x2,-0x4
00ec e7ff | | Load 0x3,-0x1
00ed 0092 053b | ;| Action Push_String_Extended,0x53b ; "Ada unit <1> is corrupt"
00ef e220 | | Load 0x1,0x20
00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f1 e5fc | | Load 0x2,-0x4
00f2 e7ff | | Load 0x3,-0x1
00f3 e220 | | Load 0x1,0x20
00f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f5 e409 | | Load 0x2,0x9
00f6 0a01 | | Execute_Immediate Plus,0x1
00f7 c409 | | Store 0x2,0x9
00f8 4800 |H | Short_Literal 0x0
00f9 a404 | | Store_Unchecked 0x2,0x4
00fa 4800 |H | Short_Literal 0x0
00fb a5fb | | Store_Unchecked 0x2,-0x5
00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0109 | | .CONST 0x0109 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0003 | | .CONST 0x0003 ; Number of locals
0103 INIT_0100:
0103 e012 | | Load 0x0,0x12
0104 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0105 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0106 e012 | | Load 0x0,0x12
0107 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0108 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0109 BODY_0100:
0109 e602 | | Load 0x3,0x2
010a e012 | | Load 0x0,0x12
010b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
010c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
010d 7004 |p | Jump_Nonzero 0x112
010e 0092 053c | <| Action Push_String_Extended,0x53c ; "Missing subsystem ID"
0110 860a | | Call 0x3,0xa
0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0112 e602 | | Load 0x3,0x2
0113 e012 | | Load 0x0,0x12
0114 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0115 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0116 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0117 e40d | | Load 0x2,0xd
0118 e012 | | Load 0x0,0x12
0119 1b13 | | Execute Package,Field_Read,Field_Number 0x13
011a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
011b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011c 00d9 | | Load_Top At_Offset_1
011d 00d9 | | Load_Top At_Offset_1
011e 027e | ~ | Execute Discrete,Not_Equal
011f 680f |h | Jump_Zero 0x12f
0120 0092 053d | =| Action Push_String_Extended,0x53d ; "Subsystem ID "
0122 00da | | Load_Top At_Offset_2
0123 821b | | Call 0x1,0x1b
0124 01cc | | Execute Vector,Catenate
0125 0092 053e | >| Action Push_String_Extended,0x53e ; " does not match subsystem ID "
0127 01cc | | Execute Vector,Catenate
0128 00d9 | | Load_Top At_Offset_1
0129 821b | | Call 0x1,0x1b
012a 01cc | | Execute Vector,Catenate
012b 0092 053f | ?| Action Push_String_Extended,0x53f ; " in unit map"
012d 01cc | | Execute Vector,Catenate
012e 860a | | Call 0x3,0xa
012f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013f | ? | .CONST 0x013f ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 e012 | | Load 0x0,0x12
0134 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0135 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0136 e012 | | Load 0x0,0x12
0137 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0138 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0139 e012 | | Load 0x0,0x12
013a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
013b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013c 02c7 | | Declare_Variable Any
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f BODY_0130:
013f e602 | | Load 0x3,0x2
0140 e012 | | Load 0x0,0x12
0141 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0142 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0143 7004 |p | Jump_Nonzero 0x148
0144 0092 0540 | @| Action Push_String_Extended,0x540 ; "Missing unit number"
0146 860a | | Call 0x3,0xa
0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0148 e602 | | Load 0x3,0x2
0149 e012 | | Load 0x0,0x12
014a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
014b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
014c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
014d 00d8 | | Load_Top At_Offset_0
014e 0120 | | Execute Any,Is_Value
014f 6804 |h | Jump_Zero 0x154
0150 e012 | | Load 0x0,0x12
0151 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0152 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0153 7801 |x | Jump 0x155
0154 00d8 | | Load_Top At_Offset_0
0155 e012 | | Load 0x0,0x12
0156 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0157 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0158 e40d | | Load 0x2,0xd
0159 e7ff | | Load 0x3,-0x1
015a 8402 | | Call 0x2,0x2
015b e012 | | Load 0x0,0x12
015c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015e c40d | | Store 0x2,0xd
015f 005b | [ | Store_Top Discrete,At_Offset_3
0160 c804 | | Store 0x4,0x4
0161 00d8 | | Load_Top At_Offset_0
0162 e012 | | Load 0x0,0x12
0163 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0164 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0165 4610 |F | Jump_Case 0x11
0166 7816 |x | Jump 0x17d ; case 0x0
0167 780f |x | Jump 0x177 ; case 0x1
0168 780e |x | Jump 0x177 ; case 0x2
0169 780d |x | Jump 0x177 ; case 0x3
016a 780c |x | Jump 0x177 ; case 0x4
016b 7825 |x% | Jump 0x191 ; case 0x5
016c 780a |x | Jump 0x177 ; case 0x6
016d 7809 |x | Jump 0x177 ; case 0x7
016e 7808 |x | Jump 0x177 ; case 0x8
016f 7807 |x | Jump 0x177 ; case 0x9
0170 7806 |x | Jump 0x177 ; case 0xa
0171 7805 |x | Jump 0x177 ; case 0xb
0172 7804 |x | Jump 0x177 ; case 0xc
0173 7803 |x | Jump 0x177 ; case 0xd
0174 7802 |x | Jump 0x177 ; case 0xe
0175 7801 |x | Jump 0x177 ; case 0xf
0176 7800 |x | Jump 0x177 ; case 0x10
0177 00d8 | | Load_Top At_Offset_0
0178 e012 | | Load 0x0,0x12
0179 1b13 | | Execute Package,Field_Read,Field_Number 0x13
017a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017b 840f | | Call 0x2,0xf
017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017d 00da | | Load_Top At_Offset_2
017e 00da | | Load_Top At_Offset_2
017f 027e | ~ | Execute Discrete,Not_Equal
0180 680f |h | Jump_Zero 0x190
0181 0092 0541 | A| Action Push_String_Extended,0x541 ; "Unit number "
0183 00db | | Load_Top At_Offset_3
0184 821a | | Call 0x1,0x1a
0185 01cc | | Execute Vector,Catenate
0186 0092 0542 | B| Action Push_String_Extended,0x542 ; " does not match unit number "
0188 01cc | | Execute Vector,Catenate
0189 00da | | Load_Top At_Offset_2
018a 821a | | Call 0x1,0x1a
018b 01cc | | Execute Vector,Catenate
018c 0092 053f | ?| Action Push_String_Extended,0x53f ; " in unit map"
018e 01cc | | Execute Vector,Catenate
018f 860a | | Call 0x3,0xa
0190 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0191 0092 0541 | A| Action Push_String_Extended,0x541 ; "Unit number "
0193 00db | | Load_Top At_Offset_3
0194 821a | | Call 0x1,0x1a
0195 01cc | | Execute Vector,Catenate
0196 0092 0543 | C| Action Push_String_Extended,0x543 ; " does not exist in the unit map"
0198 01cc | | Execute Vector,Catenate
0199 860a | | Call 0x3,0xa
019a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 01a7 | | .CONST 0x01a7 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 e012 | | Load 0x0,0x12
01a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a7 TRAP_01a0:
01a7 0007 | | Action Break_Optional
01a8 e012 | | Load 0x0,0x12
01a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01ca | | .CONST 0x01ca ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0009 | | .CONST 0x0009 ; Number of locals
01b3 INIT_01b0:
01b3 e602 | | Load 0x3,0x2
01b4 860f | | Call 0x3,0xf
01b5 00d8 | | Load_Top At_Offset_0
01b6 01da | | Execute Vector,Bounds
01b7 e012 | | Load 0x0,0x12
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 035b | [ | Declare_Type Array,Constrained
01ba 0337 | 7 | Declare_Variable Array
01bb 00d9 | | Load_Top At_Offset_1
01bc 00d9 | | Load_Top At_Offset_1
01bd 01d4 | | Execute Vector,Structure_Write
01be 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
01c0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
01c1 00c6 | | Action Check_Subprogram_Elaborated
01c2 4804 |H | Short_Literal 0x4
01c3 4804 |H | Short_Literal 0x4
01c4 0099 | | Action Reference_Dynamic
01c5 e024 | $ | Load 0x0,0x24
01c6 e025 | % | Load 0x0,0x25
01c7 4808 |H | Short_Literal 0x8
01c8 029f 049b | | Declare_Subprogram INIT_0498,For_Call
01ca BODY_01b0:
01ca 8809 | | Call 0x4,0x9
01cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cc 0000 0000 | | .BLANK 0000[0x4]
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 7825 |x% | Jump 0x229
0204 00d9 | | Load_Top At_Offset_1
0205 00eb | | Load_Encached Diana_Cache
0206 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0207 00d8 | | Load_Top At_Offset_0
0208 0d40 | @ | Execute_Immediate Less,0x40
0209 7009 |p | Jump_Nonzero 0x213
020a 00d8 | | Load_Top At_Offset_0
020b 0c42 | B | Execute_Immediate Greater_Equal,0x42
020c 7003 |p | Jump_Nonzero 0x210
020d 0f41 | A | Execute_Immediate Equal,0x41
020e 7009 |p | Jump_Nonzero 0x218
020f 7814 |x | Jump 0x224
0210 0f73 | s | Execute_Immediate Equal,0x73
0211 700b |p | Jump_Nonzero 0x21d
0212 7811 |x | Jump 0x224
0213 483e |H> | Short_Literal 0x3e
0214 483f |H? | Short_Literal 0x3f
0215 0262 | b | Execute Discrete,In_Range
0216 7001 |p | Jump_Nonzero 0x218
0217 780c |x | Jump 0x224
0218 00d9 | | Load_Top At_Offset_1
0219 00eb | | Load_Encached Diana_Cache
021a 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
021b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
021c 7810 |x | Jump 0x22d
021d 00d9 | | Load_Top At_Offset_1
021e 00eb | | Load_Encached Diana_Cache
021f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0220 00eb | | Load_Encached Diana_Cache
0221 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0222 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0223 7809 |x | Jump 0x22d
0224 00d9 | | Load_Top At_Offset_1
0225 00eb | | Load_Encached Diana_Cache
0226 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0227 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0228 00c9 | | Action Pop_Auxiliary_Loop
0229 00d9 | | Load_Top At_Offset_1
022a 00eb | | Load_Encached Diana_Cache
022b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022c 6fd7 |o | Jump_Zero 0x204
022d 00ce | | Action Pop_Auxiliary
022e 00d8 | | Load_Top At_Offset_0
022f e012 | | Load 0x0,0x12
0230 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0231 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0232 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0258 | X | .CONST 0x0258 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 000b | | .CONST 0x000b ; Number of locals
023b INIT_0238:
023b 00e3 | | Load_Encached Natural_Cache
023c e012 | | Load 0x0,0x12
023d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
023e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
023f e012 | | Load 0x0,0x12
0240 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0241 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0242 e012 | | Load 0x0,0x12
0243 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0244 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0245 e012 | | Load 0x0,0x12
0246 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0247 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0248 e012 | | Load 0x0,0x12
0249 1b16 | | Execute Package,Field_Read,Field_Number 0x16
024a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
024b e012 | | Load 0x0,0x12
024c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
024d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
024e e012 | | Load 0x0,0x12
024f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0250 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0251 02c7 | | Declare_Variable Any
0252 00d8 | | Load_Top At_Offset_0
0253 1c00 | | Execute_Immediate Run_Utility,0x0
0254 029f 050b | | Declare_Subprogram INIT_0508,For_Call
0256 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
0258 BODY_0238:
0258 880a | | Call 0x4,0xa
0259 e9ff | | Load 0x4,-0x1
025a 4974 |It | Short_Literal 0x174
025b 00eb | | Load_Encached Diana_Cache
025c 0098 | | Execute Package,Field_Read_Dynamic
025d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
025e 00eb | | Load_Encached Diana_Cache
025f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0260 0fa8 | | Execute_Immediate Equal,-0x58
0261 7001 |p | Jump_Nonzero 0x263
0262 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0263 e9ff | | Load 0x4,-0x1
0264 8612 | | Call 0x3,0x12
0265 a803 | | Store_Unchecked 0x4,0x3
0266 e9ff | | Load 0x4,-0x1
0267 e016 | | Load 0x0,0x16
0268 189d | | Execute Package,Field_Execute,Field_Number 0x9d
0269 a804 | | Store_Unchecked 0x4,0x4
026a 00da | | Load_Top At_Offset_2
026b 0120 | | Execute Any,Is_Value
026c 6804 |h | Jump_Zero 0x271
026d e012 | | Load 0x0,0x12
026e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
026f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0270 7801 |x | Jump 0x272
0271 00da | | Load_Top At_Offset_2
0272 e012 | | Load 0x0,0x12
0273 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0274 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0275 e802 | | Load 0x4,0x2
0276 e012 | | Load 0x0,0x12
0277 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0278 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0279 00d9 | | Load_Top At_Offset_1
027a 00d0 | | Action Swap_Control
027b 0260 | ` | Execute Discrete,In_Type
027c 7001 |p | Jump_Nonzero 0x27e
027d 0801 | | Execute_Immediate Raise,0x1
027e e803 | | Load 0x4,0x3
027f e804 | | Load 0x4,0x4
0280 e605 | | Load 0x3,0x5
0281 e012 | | Load 0x0,0x12
0282 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0283 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0284 c805 | | Store 0x4,0x5
0285 c809 | | Store 0x4,0x9
0286 00da | | Load_Top At_Offset_2
0287 e012 | | Load 0x0,0x12
0288 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0289 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028a 4611 |F | Jump_Case 0x12
028b 7817 |x | Jump 0x2a3 ; case 0x0
028c 7810 |x | Jump 0x29d ; case 0x1
028d 780f |x | Jump 0x29d ; case 0x2
028e 780e |x | Jump 0x29d ; case 0x3
028f 780d |x | Jump 0x29d ; case 0x4
0290 780c |x | Jump 0x29d ; case 0x5
0291 782e |x. | Jump 0x2c0 ; case 0x6
0292 780a |x | Jump 0x29d ; case 0x7
0293 7809 |x | Jump 0x29d ; case 0x8
0294 7808 |x | Jump 0x29d ; case 0x9
0295 7807 |x | Jump 0x29d ; case 0xa
0296 7806 |x | Jump 0x29d ; case 0xb
0297 7805 |x | Jump 0x29d ; case 0xc
0298 7804 |x | Jump 0x29d ; case 0xd
0299 7803 |x | Jump 0x29d ; case 0xe
029a 7802 |x | Jump 0x29d ; case 0xf
029b 7801 |x | Jump 0x29d ; case 0x10
029c 7800 |x | Jump 0x29d ; case 0x11
029d 00da | | Load_Top At_Offset_2
029e e012 | | Load 0x0,0x12
029f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a1 840f | | Call 0x2,0xf
02a2 782f |x/ | Jump 0x2d2
02a3 e805 | | Load 0x4,0x5
02a4 e806 | | Load 0x4,0x6
02a5 027e | ~ | Execute Discrete,Not_Equal
02a6 682b |h+ | Jump_Zero 0x2d2
02a7 e9ff | | Load 0x4,-0x1
02a8 0092 0546 | F| Action Push_String_Extended,0x546 ; "Offset "
02aa e806 | | Load 0x4,0x6
02ab 821a | | Call 0x1,0x1a
02ac 01cc | | Execute Vector,Catenate
02ad 0092 0547 | G| Action Push_String_Extended,0x547 ; "for <2> "
02af 01cc | | Execute Vector,Catenate
02b0 e802 | | Load 0x4,0x2
02b1 e803 | | Load 0x4,0x3
02b2 e804 | | Load 0x4,0x4
02b3 8611 | | Call 0x3,0x11
02b4 01cc | | Execute Vector,Catenate
02b5 0092 0548 | H| Action Push_String_Extended,0x548 ; " does not match offset "
02b7 01cc | | Execute Vector,Catenate
02b8 e805 | | Load 0x4,0x5
02b9 821a | | Call 0x1,0x1a
02ba 01cc | | Execute Vector,Catenate
02bb 0092 0549 | I| Action Push_String_Extended,0x549 ; " in offset map"
02bd 01cc | | Execute Vector,Catenate
02be 860b | | Call 0x3,0xb
02bf 7812 |x | Jump 0x2d2
02c0 e9ff | | Load 0x4,-0x1
02c1 0092 0546 | F| Action Push_String_Extended,0x546 ; "Offset "
02c3 e806 | | Load 0x4,0x6
02c4 821a | | Call 0x1,0x1a
02c5 01cc | | Execute Vector,Catenate
02c6 0092 054a | J| Action Push_String_Extended,0x54a ; " for <2> "
02c8 01cc | | Execute Vector,Catenate
02c9 e802 | | Load 0x4,0x2
02ca e803 | | Load 0x4,0x3
02cb e804 | | Load 0x4,0x4
02cc 8611 | | Call 0x3,0x11
02cd 01cc | | Execute Vector,Catenate
02ce 0092 054b | K| Action Push_String_Extended,0x54b ; " does not exist in the offset map"
02d0 01cc | | Execute Vector,Catenate
02d1 860b | | Call 0x3,0xb
02d2 880b | | Call 0x4,0xb
02d3 00da | | Load_Top At_Offset_2
02d4 0120 | | Execute Any,Is_Value
02d5 6804 |h | Jump_Zero 0x2da
02d6 e012 | | Load 0x0,0x12
02d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d9 7801 |x | Jump 0x2db
02da 00da | | Load_Top At_Offset_2
02db e012 | | Load 0x0,0x12
02dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02de 4800 |H | Short_Literal 0x0
02df 4800 |H | Short_Literal 0x0
02e0 e804 | | Load 0x4,0x4
02e1 e605 | | Load 0x3,0x5
02e2 e012 | | Load 0x0,0x12
02e3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02e5 c807 | | Store 0x4,0x7
02e6 c809 | | Store 0x4,0x9
02e7 00da | | Load_Top At_Offset_2
02e8 e012 | | Load 0x0,0x12
02e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02eb 4611 |F | Jump_Case 0x12
02ec 7817 |x | Jump 0x304 ; case 0x0
02ed 7810 |x | Jump 0x2fe ; case 0x1
02ee 780f |x | Jump 0x2fe ; case 0x2
02ef 780e |x | Jump 0x2fe ; case 0x3
02f0 780d |x | Jump 0x2fe ; case 0x4
02f1 780c |x | Jump 0x2fe ; case 0x5
02f2 782c |x, | Jump 0x31f ; case 0x6
02f3 780a |x | Jump 0x2fe ; case 0x7
02f4 7809 |x | Jump 0x2fe ; case 0x8
02f5 7808 |x | Jump 0x2fe ; case 0x9
02f6 7807 |x | Jump 0x2fe ; case 0xa
02f7 7806 |x | Jump 0x2fe ; case 0xb
02f8 7805 |x | Jump 0x2fe ; case 0xc
02f9 7804 |x | Jump 0x2fe ; case 0xd
02fa 7803 |x | Jump 0x2fe ; case 0xe
02fb 7802 |x | Jump 0x2fe ; case 0xf
02fc 7801 |x | Jump 0x2fe ; case 0x10
02fd 7800 |x | Jump 0x2fe ; case 0x11
02fe 00da | | Load_Top At_Offset_2
02ff e012 | | Load 0x0,0x12
0300 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0301 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0302 840f | | Call 0x2,0xf
0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0304 00db | | Load_Top At_Offset_3
0305 e807 | | Load 0x4,0x7
0306 027d | } | Execute Discrete,Greater
0307 6816 |h | Jump_Zero 0x31e
0308 e9ff | | Load 0x4,-0x1
0309 0092 054c | L| Action Push_String_Extended,0x54c ; "Next offset "
030b e808 | | Load 0x4,0x8
030c 821a | | Call 0x1,0x1a
030d 01cc | | Execute Vector,Catenate
030e 0092 0547 | G| Action Push_String_Extended,0x547 ; "for <2> "
0310 01cc | | Execute Vector,Catenate
0311 e804 | | Load 0x4,0x4
0312 821c | | Call 0x1,0x1c
0313 01cc | | Execute Vector,Catenate
0314 0092 054d | M| Action Push_String_Extended,0x54d ; " is greater than next offset "
0316 01cc | | Execute Vector,Catenate
0317 e807 | | Load 0x4,0x7
0318 821a | | Call 0x1,0x1a
0319 01cc | | Execute Vector,Catenate
031a 0092 0549 | I| Action Push_String_Extended,0x549 ; " in offset map"
031c 01cc | | Execute Vector,Catenate
031d 860b | | Call 0x3,0xb
031e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031f e9ff | | Load 0x4,-0x1
0320 0092 054c | L| Action Push_String_Extended,0x54c ; "Next offset "
0322 e808 | | Load 0x4,0x8
0323 821a | | Call 0x1,0x1a
0324 01cc | | Execute Vector,Catenate
0325 0092 054a | J| Action Push_String_Extended,0x54a ; " for <2> "
0327 01cc | | Execute Vector,Catenate
0328 e804 | | Load 0x4,0x4
0329 821c | | Call 0x1,0x1c
032a 01cc | | Execute Vector,Catenate
032b 0092 054b | K| Action Push_String_Extended,0x54b ; " does not exist in the offset map"
032d 01cc | | Execute Vector,Catenate
032e 860b | | Call 0x3,0xb
032f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0342 | B | .CONST 0x0342 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0006 | | .CONST 0x0006 ; Number of locals
0333 INIT_0330:
0333 e012 | | Load 0x0,0x12
0334 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0335 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0336 02c7 | | Declare_Variable Any
0337 00d8 | | Load_Top At_Offset_0
0338 1c00 | | Execute_Immediate Run_Utility,0x0
0339 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
033a 00c6 | | Action Check_Subprogram_Elaborated
033b 4813 |H | Short_Literal 0x13
033c 4803 |H | Short_Literal 0x3
033d 0099 | | Action Reference_Dynamic
033e e026 | & | Load 0x0,0x26
033f e027 | ' | Load 0x0,0x27
0340 4806 |H | Short_Literal 0x6
0341 0007 | | Action Break_Optional
0342 BODY_0330:
0342 e802 | | Load 0x4,0x2
0343 0120 | | Execute Any,Is_Value
0344 6804 |h | Jump_Zero 0x349
0345 e012 | | Load 0x0,0x12
0346 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0348 7801 |x | Jump 0x34a
0349 e802 | | Load 0x4,0x2
034a e605 | | Load 0x3,0x5
034b 4800 |H | Short_Literal 0x0
034c 4800 |H | Short_Literal 0x0
034d e00f | | Load 0x0,0xf
034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034f e7ff | | Load 0x3,-0x1
0350 e012 | | Load 0x0,0x12
0351 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0352 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0353 c605 | | Store 0x3,0x5
0354 c802 | | Store 0x4,0x2
0355 e802 | | Load 0x4,0x2
0356 e012 | | Load 0x0,0x12
0357 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0358 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0359 0b00 | | Execute_Immediate Case_Compare,0x0
035a 7008 |p | Jump_Nonzero 0x363
035b 0f01 | | Execute_Immediate Equal,0x1
035c 7008 |p | Jump_Nonzero 0x365
035d e802 | | Load 0x4,0x2
035e e012 | | Load 0x0,0x12
035f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0360 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0361 840f | | Call 0x2,0xf
0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0363 00d1 | | Pop_Control Pop_Count_1
0364 7804 |x | Jump 0x369
0365 0092 054e | N| Action Push_String_Extended,0x54e ; "Offset map is missing"
0367 860a | | Call 0x3,0xa
0368 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0369 e602 | | Load 0x3,0x2
036a 4803 |H | Short_Literal 0x3
036b 4804 |H | Short_Literal 0x4
036c 0099 | | Action Reference_Dynamic
036d 4804 |H | Short_Literal 0x4
036e 4804 |H | Short_Literal 0x4
036f 0099 | | Action Reference_Dynamic
0370 8221 | ! | Call 0x1,0x21
0371 e802 | | Load 0x4,0x2
0372 0120 | | Execute Any,Is_Value
0373 6804 |h | Jump_Zero 0x378
0374 e012 | | Load 0x0,0x12
0375 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0377 7801 |x | Jump 0x379
0378 e802 | | Load 0x4,0x2
0379 e605 | | Load 0x3,0x5
037a e012 | | Load 0x0,0x12
037b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
037c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
037d c605 | | Store 0x3,0x5
037e c802 | | Store 0x4,0x2
037f e802 | | Load 0x4,0x2
0380 e012 | | Load 0x0,0x12
0381 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0382 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0383 7005 |p | Jump_Nonzero 0x389
0384 e802 | | Load 0x4,0x2
0385 e012 | | Load 0x0,0x12
0386 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0387 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0388 840f | | Call 0x2,0xf
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
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 e00f | | Load 0x0,0xf
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 821d | | Call 0x1,0x1d
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 8410 | | Call 0x2,0x10
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 e00f | | Load 0x0,0xf
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 821d | | Call 0x1,0x1d
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 8410 | | Call 0x2,0x10
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 e40e | | Load 0x2,0xe
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 e404 | | Load 0x2,0x4
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 e012 | | Load 0x0,0x12
0414 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0415 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0416 e012 | | Load 0x0,0x12
0417 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0418 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0419 e012 | | Load 0x0,0x12
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 e016 | | Load 0x0,0x16
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 e016 | | Load 0x0,0x16
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
0435 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0436 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0437 ebff | | Load 0x5,-0x1
0438 8028 | ( | Call 0x0,0x28
0439 e604 | | Load 0x3,0x4
043a e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
0458 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0459 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045a 840f | | Call 0x2,0xf
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 821c | | Call 0x1,0x1c
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 821c | | Call 0x1,0x1c
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 821c | | Call 0x1,0x1c
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 821c | | Call 0x1,0x1c
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e00f | | Load 0x0,0xf
04ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ae e7ff | | Load 0x3,-0x1
04af e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
04be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04c0 840f | | Call 0x2,0xf
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 8221 | ! | Call 0x1,0x21
04d2 e802 | | Load 0x4,0x2
04d3 e012 | | Load 0x0,0x12
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 821c | | Call 0x1,0x1c
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
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 e012 | | Load 0x0,0x12
0504 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0505 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0506 840f | | Call 0x2,0xf
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 e016 | | Load 0x0,0x16
050d 189e | | Execute Package,Field_Execute,Field_Number 0x9e
050e 6804 |h | Jump_Zero 0x513
050f e9ff | | Load 0x4,-0x1
0510 e029 | ) | Load 0x0,0x29
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 e029 | ) | Load 0x0,0x29
0517 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0518 a802 | | Store_Unchecked 0x4,0x2
0519 e9ff | | Load 0x4,-0x1
051a e029 | ) | Load 0x0,0x29
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 e029 | ) | Load 0x0,0x29
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 e029 | ) | Load 0x0,0x29
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 000f | | .DEBUG4 0x0004,0x000f,0x4b3b,0x0000,0x0001,0x0000
06fe d000 0c20 | | .XXX[0x12]
0700 0000 0320 | |
0702 0500 0000 | |
0704 a200 0000 | |
0706 4000 0002 |@ |
0708 2000 0000 | |
070a 0100 0000 | |
070c 0a40 0060 | @ `|
070e 0229 5200 | )R |
0710 0000 0000 | | .BLANK 0000[0x1a]
072a 0001 0000 | | .XXX[0x1f]
072c 2627 4120 |&'A |
072e 03b5 4000 | @ |
0730 001c db26 | &|
0732 4040 0200 |@@ |
0734 0148 0000 | H |
0736 000d 2700 | ' |
0738 0008 0000 | |
073a 000c 00a0 | |
073c 0000 0020 | |
073e 0000 0800 | |
0740 0000 4400 | D |
0742 0000 0020 | |
0744 0000 0148 | H|
0746 0000 4045 | @E|
0748 2bc0 |+ |
0749 0000 0000 | | .BLANK 0000[0x1b]
0764 6000 056e |` n| .XXX[0x1e]
0766 e824 0079 | $ y|
0768 b000 0003 | |
076a 9b44 c808 | D |
076c 0040 0029 | @ )|
076e 0000 0001 | |
0770 ab00 0001 | |
0772 0000 0001 | |
0774 8014 0000 | |
0776 0004 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0029 0000 | ) |
0780 0808 b4a0 | |
0782 0000 0000 | | .BLANK 0000[0x1b]
079d 0c00 00ae | | .XXX[0x1e]
079f 9d04 800f | |
07a1 3800 0000 |8 |
07a3 7250 9901 |rP |
07a5 0008 0005 | |
07a7 2000 0000 | |
07a9 3560 0000 |5` |
07ab 4000 0000 |@ |
07ad 3002 8000 |0 |
07af 0000 8000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 2000 | |
07b9 0101 1694 | |
07bb 0000 0000 | | .BLANK 0000[0x1b]
07d6 0180 0015 | | .XXX[0x3]
07d8 d380 | |
07d9 0000 0000 | | .BLANK 0000[0x27]