|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0067 | g | .CONST 0x0067 ; Address of begin 0019 00d1 | | .CONST 0x00d1 ; Address of exception handler 001a 0017 | | .CONST 0x0017 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e5fe | | Load 0x2,-0x2 001f e001 | | Load 0x0,0x1 0020 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0021 a402 | | Store_Unchecked 0x2,0x2 0022 e002 | | Load 0x0,0x2 0023 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0024 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0025 e002 | | Load 0x0,0x2 0026 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0027 011e | | Execute Any,Convert 0028 0092 021a | | Action Push_String_Extended,0x21a ; "Image_Tree" 002a e003 | | Load 0x0,0x3 002b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002c 0337 | 7 | Declare_Variable Array 002d e002 | | Load 0x0,0x2 002e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 002f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0030 02c7 | | Declare_Variable Any 0031 00d8 | | Load_Top At_Offset_0 0032 1c00 | | Execute_Immediate Run_Utility,0x0 0033 e002 | | Load 0x0,0x2 0034 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0035 02ff | | Declare_Variable Variant_Record 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 e002 | | Load 0x0,0x2 0039 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d e002 | | Load 0x0,0x2 003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003f e002 | | Load 0x0,0x2 0040 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0042 00ec | | Load_Encached Diana_Tree_Cache 0043 02c7 | | Declare_Variable Any 0044 00d8 | | Load_Top At_Offset_0 0045 1c00 | | Execute_Immediate Run_Utility,0x0 0046 e002 | | Load 0x0,0x2 0047 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0048 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0049 02c7 | | Declare_Variable Any 004a 00d8 | | Load_Top At_Offset_0 004b 1c00 | | Execute_Immediate Run_Utility,0x0 004c e004 | | Load 0x0,0x4 004d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004e 02c7 | | Declare_Variable Any 004f 00d8 | | Load_Top At_Offset_0 0050 1c00 | | Execute_Immediate Run_Utility,0x0 0051 e005 | | Load 0x0,0x5 0052 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0053 02c7 | | Declare_Variable Any 0054 00d8 | | Load_Top At_Offset_0 0055 1c00 | | Execute_Immediate Run_Utility,0x0 0056 00e1 | | Load_Encached Boolean_Cache 0057 e002 | | Load 0x0,0x2 0058 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005a 00e1 | | Load_Encached Boolean_Cache 005b 00e3 | | Load_Encached Natural_Cache 005c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005d 00e3 | | Load_Encached Natural_Cache 005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005f 00e3 | | Load_Encached Natural_Cache 0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0061 e006 | | Load 0x0,0x6 0062 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0063 e007 | | Load 0x0,0x7 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0067 BODY_0018: 0067 e006 | | Load 0x0,0x6 0068 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0069 48fa |H | Short_Literal 0xfa 006a e008 | | Load 0x0,0x8 006b 180d | | Execute Package,Field_Execute,Field_Number 0xd 006c c415 | | Store 0x2,0x15 006d e415 | | Load 0x2,0x15 006e e007 | | Load 0x0,0x7 006f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0070 a416 | | Store_Unchecked 0x2,0x16 0071 8417 | | Call 0x2,0x17 0072 e415 | | Load 0x2,0x15 0073 e008 | | Load 0x0,0x8 0074 180f | | Execute Package,Field_Execute,Field_Number 0xf 0075 e414 | | Load 0x2,0x14 0076 700a |p | Jump_Nonzero 0x81 0077 e402 | | Load 0x2,0x2 0078 4805 |H | Short_Literal 0x5 0079 4822 |H" | Short_Literal 0x22 007a 0092 021b | | Action Push_String_Extended,0x21b ; "No units match \x22" 007c e5ff | | Load 0x2,-0x1 007d 01cc | | Execute Vector,Catenate 007e 01cb | | Execute Vector,Append 007f e009 | | Load 0x0,0x9 0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0081 e412 | | Load 0x2,0x12 0082 e413 | | Load 0x2,0x13 0083 0273 | s | Execute Discrete,Plus 0084 7026 |p& | Jump_Nonzero 0xab 0085 e414 | | Load 0x2,0x14 0086 0f01 | | Execute_Immediate Equal,0x1 0087 6807 |h | Jump_Zero 0x8f 0088 e402 | | Load 0x2,0x2 0089 4803 |H | Short_Literal 0x3 008a 0092 021c | | Action Push_String_Extended,0x21c ; "The unit is correct" 008c e009 | | Load 0x0,0x9 008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008f e414 | | Load 0x2,0x14 0090 0c02 | | Execute_Immediate Greater_Equal,0x2 0091 680e |h | Jump_Zero 0xa0 0092 e402 | | Load 0x2,0x2 0093 4803 |H | Short_Literal 0x3 0094 0092 021d | | Action Push_String_Extended,0x21d ; "All" 0096 e414 | | Load 0x2,0x14 0097 00e0 | | Load_Encached Standard_Cache 0098 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0099 01cc | | Execute Vector,Catenate 009a 0092 021e | | Action Push_String_Extended,0x21e ; " units are correct" 009c 01cc | | Execute Vector,Catenate 009d e009 | | Load 0x0,0x9 009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a0 e402 | | Load 0x2,0x2 00a1 4805 |H | Short_Literal 0x5 00a2 4822 |H" | Short_Literal 0x22 00a3 0092 021f | | Action Push_String_Extended,0x21f ; "No Ada units specified by \x22" 00a5 e5ff | | Load 0x2,-0x1 00a6 01cc | | Execute Vector,Catenate 00a7 01cb | | Execute Vector,Append 00a8 e009 | | Load 0x0,0x9 00a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ab e001 | | Load 0x0,0x1 00ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ad 4802 |H | Short_Literal 0x2 00ae e414 | | Load 0x2,0x14 00af 00e0 | | Load_Encached Standard_Cache 00b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b1 0092 0220 | | Action Push_String_Extended,0x220 ; " units were correct" 00b3 01cc | | Execute Vector,Catenate 00b4 e009 | | Load 0x0,0x9 00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b6 e412 | | Load 0x2,0x12 00b7 0c01 | | Execute_Immediate Greater_Equal,0x1 00b8 680a |h | Jump_Zero 0xc3 00b9 e402 | | Load 0x2,0x2 00ba 4805 |H | Short_Literal 0x5 00bb e412 | | Load 0x2,0x12 00bc 00e0 | | Load_Encached Standard_Cache 00bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00be 0092 0221 | !| Action Push_String_Extended,0x221 ; " units could not be examined" 00c0 01cc | | Execute Vector,Catenate 00c1 e009 | | Load 0x0,0x9 00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c3 e413 | | Load 0x2,0x13 00c4 0c01 | | Execute_Immediate Greater_Equal,0x1 00c5 680a |h | Jump_Zero 0xd0 00c6 e402 | | Load 0x2,0x2 00c7 4805 |H | Short_Literal 0x5 00c8 e413 | | Load 0x2,0x13 00c9 00e0 | | Load_Encached Standard_Cache 00ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00cb 0092 0222 | "| Action Push_String_Extended,0x222 ; " units are in error" 00cd 01cc | | Execute Vector,Catenate 00ce e009 | | Load 0x0,0x9 00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d1 TRAP_0018: 00d1 0007 | | Action Break_Optional 00d2 e402 | | Load 0x2,0x2 00d3 4808 |H | Short_Literal 0x8 00d4 0092 0223 | #| Action Push_String_Extended,0x223 ; "Unhandled_Exception: " 00d6 e00a | | Load 0x0,0xa 00d7 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d8 01cc | | Execute Vector,Catenate 00d9 e009 | | Load 0x0,0x9 00da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 01ee | | .CONST 0x01ee ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 00e5 BODY_00e0: 00e5 e002 | | Load 0x0,0x2 00e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e8 e406 | | Load 0x2,0x6 00e9 6112 |a | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 00ea e005 | | Load 0x0,0x5 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec e00b | | Load 0x0,0xb 00ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ee e00c | | Load 0x0,0xc 00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f0 4801 |H | Short_Literal 0x1 00f1 4800 |H | Short_Literal 0x0 00f2 e00b | | Load 0x0,0xb 00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f4 e002 | | Load 0x0,0x2 00f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f7 e5ff | | Load 0x2,-0x1 00f8 e002 | | Load 0x0,0x2 00f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00fa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fb c406 | | Store 0x2,0x6 00fc c40a | | Store 0x2,0xa 00fd e40a | | Load 0x2,0xa 00fe 680e |h | Jump_Zero 0x10d 00ff e402 | | Load 0x2,0x2 0100 4807 |H | Short_Literal 0x7 0101 0092 0224 | $| Action Push_String_Extended,0x224 ; "Bad status: " 0103 e40a | | Load 0x2,0xa 0104 e002 | | Load 0x0,0x2 0105 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0106 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0107 025e | ^ | Execute Discrete,Convert 0108 1c01 | | Execute_Immediate Run_Utility,0x1 0109 01cc | | Execute Vector,Catenate 010a e009 | | Load 0x0,0x9 010b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010d 00cf | | Action Mark_Auxiliary 010e 78d9 |x | Jump 0x1e8 010f e416 | | Load 0x2,0x16 0110 e415 | | Load 0x2,0x15 0111 e007 | | Load 0x0,0x7 0112 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0113 e00d | | Load 0x0,0xd 0114 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0115 e005 | | Load 0x0,0x5 0116 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0117 c40e | | Store 0x2,0xe 0118 4800 |H | Short_Literal 0x0 0119 a411 | | Store_Unchecked 0x2,0x11 011a e002 | | Load 0x0,0x2 011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011c e407 | | Load 0x2,0x7 011d 60de |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 011e e005 | | Load 0x0,0x5 011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0120 e406 | | Load 0x2,0x6 0121 e002 | | Load 0x0,0x2 0122 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0123 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0124 00d1 | | Pop_Control Pop_Count_1 0125 c409 | | Store 0x2,0x9 0126 e409 | | Load 0x2,0x9 0127 0b00 | | Execute_Immediate Case_Compare,0x0 0128 7006 |p | Jump_Nonzero 0x12f 0129 0f01 | | Execute_Immediate Equal,0x1 012a 70ac |p | Jump_Nonzero 0x1d7 012b e412 | | Load 0x2,0x12 012c 0a01 | | Execute_Immediate Plus,0x1 012d c412 | | Store 0x2,0x12 012e 78a5 |x | Jump 0x1d4 012f 00d1 | | Pop_Control Pop_Count_1 0130 7800 |x | Jump 0x131 0131 e002 | | Load 0x0,0x2 0132 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0133 e408 | | Load 0x2,0x8 0134 0120 | | Execute Any,Is_Value 0135 6803 |h | Jump_Zero 0x139 0136 e002 | | Load 0x0,0x2 0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0138 7801 |x | Jump 0x13a 0139 e408 | | Load 0x2,0x8 013a 60c1 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 013b e40e | | Load 0x2,0xe 013c e407 | | Load 0x2,0x7 013d e002 | | Load 0x0,0x2 013e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 013f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0140 c408 | | Store 0x2,0x8 0141 c409 | | Store 0x2,0x9 0142 e409 | | Load 0x2,0x9 0143 460e |F | Jump_Case 0xf 0144 7812 |x | Jump 0x157 ; case 0x0 0145 7891 |x | Jump 0x1d7 ; case 0x1 0146 780c |x | Jump 0x153 ; case 0x2 0147 780b |x | Jump 0x153 ; case 0x3 0148 780a |x | Jump 0x153 ; case 0x4 0149 7809 |x | Jump 0x153 ; case 0x5 014a 788c |x | Jump 0x1d7 ; case 0x6 014b 7807 |x | Jump 0x153 ; case 0x7 014c 7806 |x | Jump 0x153 ; case 0x8 014d 7805 |x | Jump 0x153 ; case 0x9 014e 7804 |x | Jump 0x153 ; case 0xa 014f 7803 |x | Jump 0x153 ; case 0xb 0150 7802 |x | Jump 0x153 ; case 0xc 0151 7801 |x | Jump 0x153 ; case 0xd 0152 7800 |x | Jump 0x153 ; case 0xe 0153 e412 | | Load 0x2,0x12 0154 0a01 | | Execute_Immediate Plus,0x1 0155 c412 | | Store 0x2,0x12 0156 787d |x} | Jump 0x1d4 0157 4801 |H | Short_Literal 0x1 0158 a411 | | Store_Unchecked 0x2,0x11 0159 e408 | | Load 0x2,0x8 015a e002 | | Load 0x0,0x2 015b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 015c e403 | | Load 0x2,0x3 015d 012f | / | Execute Any,Equal 015e 7001 |p | Jump_Nonzero 0x160 015f 7877 |xw | Jump 0x1d7 0160 e002 | | Load 0x0,0x2 0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0162 e002 | | Load 0x0,0x2 0163 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 6096 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 0166 e40e | | Load 0x2,0xe 0167 e407 | | Load 0x2,0x7 0168 e002 | | Load 0x0,0x2 0169 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 016a 180e | | Execute Package,Field_Execute,Field_Number 0xe 016b c410 | | Store 0x2,0x10 016c c409 | | Store 0x2,0x9 016d e410 | | Load 0x2,0x10 016e 0d02 | | Execute_Immediate Less,0x2 016f 6801 |h | Jump_Zero 0x171 0170 7866 |xf | Jump 0x1d7 0171 e409 | | Load 0x2,0x9 0172 0b00 | | Execute_Immediate Case_Compare,0x0 0173 7006 |p | Jump_Nonzero 0x17a 0174 0f01 | | Execute_Immediate Equal,0x1 0175 7061 |pa | Jump_Nonzero 0x1d7 0176 e412 | | Load 0x2,0x12 0177 0a01 | | Execute_Immediate Plus,0x1 0178 c412 | | Store 0x2,0x12 0179 785a |xZ | Jump 0x1d4 017a 00d1 | | Pop_Control Pop_Count_1 017b 7800 |x | Jump 0x17c 017c e002 | | Load 0x0,0x2 017d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017e e40c | | Load 0x2,0xc 017f 0120 | | Execute Any,Is_Value 0180 6804 |h | Jump_Zero 0x185 0181 e002 | | Load 0x0,0x2 0182 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0183 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0184 7801 |x | Jump 0x186 0185 e40c | | Load 0x2,0xc 0186 e40b | | Load 0x2,0xb 0187 0120 | | Execute Any,Is_Value 0188 6804 |h | Jump_Zero 0x18d 0189 e002 | | Load 0x0,0x2 018a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 018b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 018c 7801 |x | Jump 0x18e 018d e40b | | Load 0x2,0xb 018e e407 | | Load 0x2,0x7 018f 606c |`l | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 0190 4801 |H | Short_Literal 0x1 0191 4800 |H | Short_Literal 0x0 0192 e40e | | Load 0x2,0xe 0193 4801 |H | Short_Literal 0x1 0194 e002 | | Load 0x0,0x2 0195 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0196 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0197 00d1 | | Pop_Control Pop_Count_1 0198 c40b | | Store 0x2,0xb 0199 c40c | | Store 0x2,0xc 019a c409 | | Store 0x2,0x9 019b e409 | | Load 0x2,0x9 019c 0b00 | | Execute_Immediate Case_Compare,0x0 019d 7006 |p | Jump_Nonzero 0x1a4 019e 0f01 | | Execute_Immediate Equal,0x1 019f 7037 |p7 | Jump_Nonzero 0x1d7 01a0 e412 | | Load 0x2,0x12 01a1 0a01 | | Execute_Immediate Plus,0x1 01a2 c412 | | Store 0x2,0x12 01a3 7830 |x0 | Jump 0x1d4 01a4 00d1 | | Pop_Control Pop_Count_1 01a5 7800 |x | Jump 0x1a6 01a6 e002 | | Load 0x0,0x2 01a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a8 e40d | | Load 0x2,0xd 01a9 0120 | | Execute Any,Is_Value 01aa 6803 |h | Jump_Zero 0x1ae 01ab e004 | | Load 0x0,0x4 01ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ad 7801 |x | Jump 0x1af 01ae e40d | | Load 0x2,0xd 01af 604c |`L | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000} 01b0 e415 | | Load 0x2,0x15 01b1 e407 | | Load 0x2,0x7 01b2 e002 | | Load 0x0,0x2 01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b4 e40e | | Load 0x2,0xe 01b5 4801 |H | Short_Literal 0x1 01b6 e408 | | Load 0x2,0x8 01b7 e002 | | Load 0x0,0x2 01b8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ba e002 | | Load 0x0,0x2 01bb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01bc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01bd c40d | | Store 0x2,0xd 01be c409 | | Store 0x2,0x9 01bf e409 | | Load 0x2,0x9 01c0 0b00 | | Execute_Immediate Case_Compare,0x0 01c1 7006 |p | Jump_Nonzero 0x1c8 01c2 0f01 | | Execute_Immediate Equal,0x1 01c3 7013 |p | Jump_Nonzero 0x1d7 01c4 e412 | | Load 0x2,0x12 01c5 0a01 | | Execute_Immediate Plus,0x1 01c6 c412 | | Store 0x2,0x12 01c7 780c |x | Jump 0x1d4 01c8 00d1 | | Pop_Control Pop_Count_1 01c9 7800 |x | Jump 0x1ca 01ca 8602 | | Call 0x3,0x2 01cb e402 | | Load 0x2,0x2 01cc 4802 |H | Short_Literal 0x2 01cd e002 | | Load 0x0,0x2 01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01cf 0092 0225 | %| Action Push_String_Extended,0x225 ; " is correct" 01d1 e407 | | Load 0x2,0x7 01d2 e009 | | Load 0x0,0x9 01d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01d4 e414 | | Load 0x2,0x14 01d5 0a01 | | Execute_Immediate Plus,0x1 01d6 c414 | | Store 0x2,0x14 01d7 e406 | | Load 0x2,0x6 01d8 e002 | | Load 0x0,0x2 01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01db c406 | | Store 0x2,0x6 01dc e40e | | Load 0x2,0xe 01dd 4801 |H | Short_Literal 0x1 01de 4801 |H | Short_Literal 0x1 01df e005 | | Load 0x0,0x5 01e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e1 c40e | | Store 0x2,0xe 01e2 e411 | | Load 0x2,0x11 01e3 6803 |h | Jump_Zero 0x1e7 01e4 e408 | | Load 0x2,0x8 01e5 e00e | | Load 0x0,0xe 01e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e7 00c9 | | Action Pop_Auxiliary_Loop 01e8 e406 | | Load 0x2,0x6 01e9 e002 | | Load 0x0,0x2 01ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01ec 6f22 |o" | Jump_Zero 0x10f 01ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ee TRAP_00e0: 01ee 0007 | | Action Break_Optional 01ef e402 | | Load 0x2,0x2 01f0 4808 |H | Short_Literal 0x8 01f1 0092 0223 | #| Action Push_String_Extended,0x223 ; "Unhandled_Exception: " 01f3 e00a | | Load 0x0,0xa 01f4 180d | | Execute Package,Field_Execute,Field_Number 0xd 01f5 01cc | | Execute Vector,Catenate 01f6 e009 | | Load 0x0,0x9 01f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f9 0000 0000 | | .XXX[0x3] 01fb 0000 | | 01fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0209 | | .CONST 0x0209 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 e40d | | Load 0x2,0xd 0204 e40b | | Load 0x2,0xb 0205 e00f | | Load 0x0,0xf 0206 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0207 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0208 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0209 TRAP_0200: 0209 0007 | | Action Break_Optional 020a e402 | | Load 0x2,0x2 020b 4807 |H | Short_Literal 0x7 020c 0092 0226 | &| Action Push_String_Extended,0x226 ; "Image and tree do NOT match for " 020e e408 | | Load 0x2,0x8 020f e002 | | Load 0x0,0x2 0210 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0211 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0212 01cc | | Execute Vector,Catenate 0213 e009 | | Load 0x0,0x9 0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0215 e413 | | Load 0x2,0x13 0216 0a01 | | Execute_Immediate Plus,0x1 0217 c413 | | Store 0x2,0x13 0218 00cc | | Action Pop_Block 0219 7fba | | Jump 0x1d4 021a ; -------------------------------------------------------------------------------------- 021a ; STRING TABLE 021a ; -------------------------------------------------------------------------------------- 021a 001c | | .STRTAB 0x001c->0x0228 ; "Image_Tree" 021b 0024 | $ | .STRTAB 0x0024->0x022d ; "No units match \x22" 021c 0032 | 2 | .STRTAB 0x0032->0x0235 ; "The unit is correct" 021d 0043 | C | .STRTAB 0x0043->0x023e ; "All" 021e 0044 | D | .STRTAB 0x0044->0x0240 ; " units are correct" 021f 0054 | T | .STRTAB 0x0054->0x0249 ; "No Ada units specified by \x22" 0220 006d | m | .STRTAB 0x006d->0x0256 ; " units were correct" 0221 007e | ~ | .STRTAB 0x007e->0x0260 ; " units could not be examined" 0222 0098 | | .STRTAB 0x0098->0x026e ; " units are in error" 0223 00a9 | | .STRTAB 0x00a9->0x0277 ; "Unhandled_Exception: " 0224 00bc | | .STRTAB 0x00bc->0x0282 ; "Bad status: " 0225 00c6 | | .STRTAB 0x00c6->0x0288 ; " is correct" 0226 00cf | | .STRTAB 0x00cf->0x028d ; "Image and tree do NOT match for " 0227 00ed | | .STREND 0x00ed->0x029d 0228 496d 6167 |Imag| .STRTAB_STRINGS 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb47,0x0000,0x0001,0x0000 02a6 1558 c4c5 | X | .XXX[0x117] 02a8 7cd1 7d4d || }M| 02aa 4115 0c28 |A (| 02ac 8515 3959 | 9Y| 02ae 2549 3d39 |%I=9| 02b0 3515 3950 |5 9P| 02b2 b909 054d | M| 02b4 250d 7d35 |% }5| 02b6 0539 051d | 9 | 02b8 1549 4cb9 | IL | 02ba 4915 58c4 |I X | 02bc c57c d17d | | }| 02be 4d41 150c |MA | 02c0 2885 1539 |( 9| 02c2 5925 493d |Y%I=| 02c4 3935 1539 |95 9| 02c6 50b9 0511 |P | 02c8 057d 0905 | } | 02ca 4d14 b949 |M I| 02cc 1558 c4c5 | X | 02ce 7cd1 7d4d || }M| 02d0 4115 0c28 |A (| 02d2 8515 3959 | 9Y| 02d4 2549 3d39 |%I=9| 02d6 3515 3950 |5 9P| 02d8 b935 0525 | 5 %| 02da 30b9 4915 |0 I | 02dc 58c4 c57c |X || 02de d17d 4d41 | }MA| 02e0 150c 2885 | ( | 02e2 1539 5925 | 9Y%| 02e4 493d 3935 |I=95| 02e6 1539 50b9 | 9P | 02e8 3d4d 7d0d |=M} | 02ea 3d35 3505 |=55 | 02ec 3911 4cb9 |9 L | 02ee 4915 58c4 |I X | 02f0 c57c d17d | | }| 02f2 4d41 150c |MA | 02f4 2885 1539 |( 9| 02f6 5925 493d |Y%I=| 02f8 3935 1539 |95 9| 02fa 50b9 48c4 |P H | 02fc c0c0 c17d | }| 02fe 1115 4115 | A | 0300 3911 1539 |9 9| 0302 50b9 4915 |P I | 0304 58c4 c57c |X || 0306 d17d 4d41 | }MA| 0308 150c 2885 | ( | 030a 1539 5925 | 9Y%| 030c 493d 3935 |I=95| 030e 1539 50b9 | 9P | 0310 1125 4d2d | %M-| 0312 7d0d 3115 |} 1 | 0314 0539 1548 | 9 H| 0316 b949 1558 | I X| 0318 c4c5 7cd1 | | | 031a 7d4d 4115 |}MA | 031c 0c28 8515 | ( | 031e 3959 2549 |9Y%I| 0320 3d39 3515 |=95 | 0322 3950 b919 |9P | 0324 5141 7d25 |QA}%| 0326 3951 1549 |9Q I| 0328 1905 0d14 | | 032a b949 1558 | I X| 032c c4c5 7cd1 | | | 032e 7d4d 4115 |}MA | 0330 0c28 8515 | ( | 0332 3959 2549 |9Y%I| 0334 3d39 3515 |=95 | 0336 3950 b941 |9P A| 0338 4915 5151 |I QQ| 033a 657d 4149 |e}AI| 033c 2539 5115 |%9Q | 033e 48b9 4915 |H I | 0340 58c4 c57c |X || 0342 d17d 4d41 | }MA| 0344 150c 2885 | ( | 0346 1539 5925 | 9Y%| 0348 493d 3935 |I=95| 034a 1539 50b9 | 9P | 034c 2d15 4939 |- I9| 034e 1531 7d11 | 1} | 0350 1509 551d | U | 0352 1d15 48b9 | H | 0354 4915 58c4 |I X | 0356 c57c d17d | | }| 0358 4d41 150c |MA | 035a 2885 1539 |( 9| 035c 5925 493d |Y%I=| 035e 3935 1539 |95 9| 0360 50b9 0511 |P | 0362 057d 3505 | }5 | 0364 3905 1d15 |9 | 0366 3515 3950 |5 9P| 0368 b949 1558 | I X| 036a c4c5 7cd1 | | | 036c 7d4d 4115 |}MA | 036e 0c28 8515 | ( | 0370 3959 2549 |9Y%I| 0372 3d39 3515 |=95 | 0374 3950 b90d |9P | 0376 3d49 157d |=I }| 0378 1511 2551 | %Q| 037a 3d48 b949 |=H I| 037c 1558 c4c5 | X | 037e 7cd1 7d4d || }M| 0380 4115 0c28 |A (| 0382 8515 3959 | 9Y| 0384 2549 3d39 |%I=9| 0386 3515 3950 |5 9P| 0388 b935 254d | 5%M| 038a 0d15 3131 | 11| 038c 0539 153d | 9 =| 038e 554c b949 |UL I| 0390 1558 c4c5 | X | 0392 7cd1 7d4d || }M| 0394 4115 0c28 |A (| 0396 8515 3959 | 9Y| 0398 2549 3d39 |%I=9| 039a 3515 3950 |5 9P| 039c b94d 1535 | M 5| 039e 0539 5125 | 9Q%| 03a0 0d4c b949 | L I| 03a2 1558 c4c5 | X | 03a4 7cd1 7d4d || }M| 03a6 4115 0c28 |A (| 03a8 8515 3959 | 9Y| 03aa 2549 3d39 |%I=9| 03ac 3515 3950 |5 9P| 03ae b911 5125 | Q%| 03b0 057d 3515 | }5 | 03b2 0d21 0539 | ! 9| 03b4 254d 354c |%M5L| 03b6 b949 1558 | I X| 03b8 c4c5 7cd1 | | | 03ba 7d4d 4115 |}MA | 03bc 0cc8 | | 03bd 28c0 28c0 |( ( | .BLANK 28c0[0x8] 03c5 28c1 8eb5 |( | .XXX[0x11] 03c7 62c4 0000 |b | 03c9 0000 0000 | | 03cb 00a0 0000 | | 03cd 0800 0000 | | 03cf 0600 0000 | | 03d1 0a00 0000 | | 03d3 0900 0000 | | 03d5 0010 | | 03d6 0000 0000 | | .BLANK 0000[0x5] 03db 0010 0000 | | .XXX[0x1b] 03dd 00a4 34f4 | 4 | 03df 4453 1315 |DS | 03e1 f355 f301 | U | 03e3 0d3d 1114 | = | 03e5 c4c5 7cd5 | | | 03e7 7cc1 313d || 1=| 03e9 0510 0000 | | 03eb 0000 0000 | | 03ed 0004 0000 | | 03ef 0019 4155 | AU| 03f1 0931 250c | 1% | 03f3 0020 2800 | ( | 03f5 8800 | | 03f6 0000 0000 | | .BLANK 0000[0x7] 03fd 0004 0000 | | .XXX[0x3] 03ff 0019 | |