|
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_06e8fd
└─⟦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 13d3 029f | | .XXX[0x15a]
02a8 13f3 029f | |
02aa 142b e403 | + |
02ac 467f 7881 |F x |
02ae 7884 7885 |x x |
02b0 78f3 787f |x x |
02b2 7884 7885 |x x |
02b4 78ef 7885 |x x |
02b6 78ed 7885 |x x |
02b8 78eb 7877 |x xw|
02ba 78e9 7883 |x x |
02bc 78e7 7883 |x x |
02be 7884 7875 |x xu|
02c0 78e3 786f |x xo|
02c2 7882 7875 |x xu|
02c4 78df 7881 |x x |
02c6 7882 78dc |x x |
02c8 78db 7867 |x xg|
02ca 78d9 787f |x x |
02cc 788b 78d6 |x x |
02ce 788b 7865 |x xe|
02d0 78d3 785f |x x_|
02d2 78d1 7865 |x xe|
02d4 78cf 78ce |x x |
02d6 7883 78cc |x x |
02d8 78cb 7857 |x xW|
02da 78c9 788b |x x |
02dc 78c7 78c6 |x x |
02de 78c5 7855 |x xU|
02e0 78c3 78c2 |x x |
02e2 78c1 7855 |x xU|
02e4 78bf 7883 |x x |
02e6 78bd 78bc |x x |
02e8 78bb 7847 |x xG|
02ea 78b9 787f |x x |
02ec 788b 78b6 |x x |
02ee 788b 7849 |x xI|
02f0 78b3 783f |x x?|
02f2 78b1 7888 |x x |
02f4 78af 78ae |x x |
02f6 7887 78ac |x x |
02f8 78ab 7837 |x x7|
02fa 78a9 7884 |x x |
02fc 78a7 78a6 |x x |
02fe 78a5 788d |x x |
0300 78a3 78a2 |x x |
0302 78a1 788b |x x |
0304 789f 788b |x x |
0306 789d 789c |x x |
0308 789b 789a |x x |
030a 7899 7898 |x x |
030c 7886 7896 |x x |
030e 7895 7894 |x x |
0310 7893 7892 |x x |
0312 7891 7890 |x x |
0314 788f 788e |x x |
0316 788d 788c |x x |
0318 788b 7817 |x x |
031a 7889 7879 |x xy|
031c 7887 7886 |x x |
031e 7885 7884 |x x |
0320 7883 780f |x x |
0322 7881 7815 |x x |
0324 787f 787e |x x~|
0326 787d 787c |x}x||
0328 787b 7807 |x{x |
032a 7879 7876 |xyxv|
032c 7800 8420 |x |
032e 7876 8405 |xv |
0330 7874 8406 |xt |
0332 7872 8407 |xr |
0334 7870 8408 |xp |
0336 786e 8409 |xn |
0338 786c 840a |xl |
033a 786a 840b |xj |
033c 7868 840c |xh |
033e 7866 840d |xf |
0340 7864 840e |xd |
0342 7862 840f |xb |
0344 7860 8410 |x` |
0346 785e 8411 |x^ |
0348 785c 8412 |x\ |
034a 785a e5fe |xZ |
034c 6809 e5ff |h |
034e e2af e2b0 | |
0350 1db1 e001 | |
0352 1b0d 1810 | |
0354 8251 4402 | QD |
0356 e404 4402 | D |
0358 8413 784b | xK|
035a e5fe 6809 | h |
035c e5ff e2b9 | |
035e e2ba 1dbb | |
0360 e001 1b0d | |
0362 1810 8255 | U|
0364 4402 8414 |D |
0366 783e 8415 |x> |
0368 783c 8416 |x< |
036a 783a e5fe |x: |
036c 6809 e5ff |h |
036e e2c8 e2c9 | |
0370 1dca e001 | |
0372 1b0d 1810 | |
0374 8252 4402 | RD |
0376 e404 4402 | D |
0378 8417 782b | x+|
037a 8418 7829 | x)|
037c 8419 7827 | x'|
037e 841a 7825 | x%|
0380 e5fe 6809 | h |
0382 e5ff e2e1 | |
0384 e2e2 1de3 | |
0386 e001 1b0d | |
0388 1810 8231 | 1|
038a 4402 e404 |D |
038c 4402 841b |D |
038e 7816 841c |x |
0390 7814 841d |x |
0392 7812 841e |x |
0394 7810 e5fe |x |
0396 6809 e5ff |h |
0398 e2eb e2ec | |
039a 1ded e001 | |
039c 1b0d 1810 | |
039e 8236 4402 | 6D |
03a0 e404 4402 | D |
03a2 841f 7801 | x |
03a4 8421 0831 | ! 1|
03a6 0000 0000 | |
03a8 0fb4 0004 | |
03aa 0003 e5ff | |
03ac e278 e279 | x y|
03ae 1d7a e001 | z |
03b0 1b0d 1810 | |
03b2 0092 1c40 | @|
03b4 e5fe 6803 | h |
03b6 e402 8312 | |
03b8 4402 00d8 |D |
03ba e402 8317 | |
03bc 01cc 4402 | D |
03be 0000 0000 | |
03c0 0fcc 0004 | |
03c2 0003 e5ff | |
03c4 e27d e27e | } ~|
03c6 1d7f e001 | |
03c8 1b0d 1810 | |
03ca 0092 1c41 | A|
03cc e5fe 6803 | h |
03ce e402 8313 | |
03d0 4402 00d8 |D |
03d2 e402 8318 | |
03d4 01cc 4402 | D |
03d6 0000 0000 | |
03d8 0fdb 0004 | |
03da 0001 e7ff | |
03dc 0f00 4401 | D |
03de 0000 0000 | |
03e0 0fe3 0004 | |
03e2 0001 e7fd | |
03e4 6806 e402 |h |
03e6 0092 1ba9 | |
03e8 e04b 1818 | K |
03ea 00d1 e402 | |
03ec e7ff 0092 | |
03ee 1c42 01cc | B |
03f0 e7fe 01cc | |
03f2 e04b 1818 | K |
03f4 4504 0000 |E |
03f6 0000 0000 | |
03f8 0ffb 0004 | |
03fa 0001 e7ff | |
03fc 0f01 6808 | h |
03fe e402 0092 | |