|
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]