|
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 0000 0000 | | .BLANK 0000[0x12d]
03d3 0040 0002 | @ | .XXX[0x11]
03d5 7dc0 0198 |} |
03d7 2949 5539 |)IU9|
03d9 7d39 0551 |}9 Q|
03db 2559 1400 |%Y |
03dd 442d 313d |D-1=|
03df 0511 1511 | |
03e1 7d35 0525 |}5 %|
03e3 3800 |8 |
03e4 0000 0000 | | .BLANK 0000[0x1c]