|
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_03c0fe
└─⟦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 0298 | | .CONST 0x0298 ; 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 0064 | d | .CONST 0x0064 ; Address of begin
0019 00ce | | .CONST 0x00ce ; Address of exception handler
001a 0017 | | .CONST 0x0017 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e e5fe | | Load 0x2,-0x2
001f e002 | | Load 0x0,0x2
0020 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0021 a402 | | Store_Unchecked 0x2,0x2
0022 e003 | | Load 0x0,0x3
0023 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0024 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0025 e003 | | Load 0x0,0x3
0026 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0027 011e | | Execute Any,Convert
0028 0092 0212 | | Action Push_String_Extended,0x212 ; "Image_Tree"
002a e004 | | Load 0x0,0x4
002b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002c 0337 | 7 | Declare_Variable Array
002d e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0044 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0045 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0046 02c7 | | Declare_Variable Any
0047 00d8 | | Load_Top At_Offset_0
0048 1c00 | | Execute_Immediate Run_Utility,0x0
0049 e005 | | Load 0x0,0x5
004a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004b 02c7 | | Declare_Variable Any
004c 00d8 | | Load_Top At_Offset_0
004d 1c00 | | Execute_Immediate Run_Utility,0x0
004e e006 | | Load 0x0,0x6
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 02c7 | | Declare_Variable Any
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 00e1 | | Load_Encached Boolean_Cache
0054 e003 | | Load 0x0,0x3
0055 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0057 00e1 | | Load_Encached Boolean_Cache
0058 00e3 | | Load_Encached Natural_Cache
0059 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005a 00e3 | | Load_Encached Natural_Cache
005b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005c 00e3 | | Load_Encached Natural_Cache
005d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005e e007 | | Load 0x0,0x7
005f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0060 e008 | | Load 0x0,0x8
0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0062 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0064 BODY_0018:
0064 e007 | | Load 0x0,0x7
0065 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0066 48fa |H | Short_Literal 0xfa
0067 e009 | | Load 0x0,0x9
0068 180d | | Execute Package,Field_Execute,Field_Number 0xd
0069 c415 | | Store 0x2,0x15
006a e415 | | Load 0x2,0x15
006b e008 | | Load 0x0,0x8
006c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006d a416 | | Store_Unchecked 0x2,0x16
006e 8417 | | Call 0x2,0x17
006f e415 | | Load 0x2,0x15
0070 e009 | | Load 0x0,0x9
0071 180f | | Execute Package,Field_Execute,Field_Number 0xf
0072 e414 | | Load 0x2,0x14
0073 700a |p | Jump_Nonzero 0x7e
0074 e402 | | Load 0x2,0x2
0075 4805 |H | Short_Literal 0x5
0076 4822 |H" | Short_Literal 0x22
0077 0092 0213 | | Action Push_String_Extended,0x213 ; "No units match \x22"
0079 e5ff | | Load 0x2,-0x1
007a 01cc | | Execute Vector,Catenate
007b 01cb | | Execute Vector,Append
007c e00a | | Load 0x0,0xa
007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007e e412 | | Load 0x2,0x12
007f e413 | | Load 0x2,0x13
0080 0273 | s | Execute Discrete,Plus
0081 7026 |p& | Jump_Nonzero 0xa8
0082 e414 | | Load 0x2,0x14
0083 0f01 | | Execute_Immediate Equal,0x1
0084 6807 |h | Jump_Zero 0x8c
0085 e402 | | Load 0x2,0x2
0086 4803 |H | Short_Literal 0x3
0087 0092 0214 | | Action Push_String_Extended,0x214 ; "The unit is correct"
0089 e00a | | Load 0x0,0xa
008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008c e414 | | Load 0x2,0x14
008d 0c02 | | Execute_Immediate Greater_Equal,0x2
008e 680e |h | Jump_Zero 0x9d
008f e402 | | Load 0x2,0x2
0090 4803 |H | Short_Literal 0x3
0091 0092 0215 | | Action Push_String_Extended,0x215 ; "All"
0093 e414 | | Load 0x2,0x14
0094 00e0 | | Load_Encached Standard_Cache
0095 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0096 01cc | | Execute Vector,Catenate
0097 0092 0216 | | Action Push_String_Extended,0x216 ; " units are correct"
0099 01cc | | Execute Vector,Catenate
009a e00a | | Load 0x0,0xa
009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009d e402 | | Load 0x2,0x2
009e 4805 |H | Short_Literal 0x5
009f 4822 |H" | Short_Literal 0x22
00a0 0092 0217 | | Action Push_String_Extended,0x217 ; "No Ada units specified by \x22"
00a2 e5ff | | Load 0x2,-0x1
00a3 01cc | | Execute Vector,Catenate
00a4 01cb | | Execute Vector,Append
00a5 e00a | | Load 0x0,0xa
00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a8 e002 | | Load 0x0,0x2
00a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00aa 4802 |H | Short_Literal 0x2
00ab e414 | | Load 0x2,0x14
00ac 00e0 | | Load_Encached Standard_Cache
00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ae 0092 0218 | | Action Push_String_Extended,0x218 ; " units were correct"
00b0 01cc | | Execute Vector,Catenate
00b1 e00a | | Load 0x0,0xa
00b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b3 e412 | | Load 0x2,0x12
00b4 0c01 | | Execute_Immediate Greater_Equal,0x1
00b5 680a |h | Jump_Zero 0xc0
00b6 e402 | | Load 0x2,0x2
00b7 4805 |H | Short_Literal 0x5
00b8 e412 | | Load 0x2,0x12
00b9 00e0 | | Load_Encached Standard_Cache
00ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bb 0092 0219 | | Action Push_String_Extended,0x219 ; " units could not be examined"
00bd 01cc | | Execute Vector,Catenate
00be e00a | | Load 0x0,0xa
00bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c0 e413 | | Load 0x2,0x13
00c1 0c01 | | Execute_Immediate Greater_Equal,0x1
00c2 680a |h | Jump_Zero 0xcd
00c3 e402 | | Load 0x2,0x2
00c4 4805 |H | Short_Literal 0x5
00c5 e413 | | Load 0x2,0x13
00c6 00e0 | | Load_Encached Standard_Cache
00c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c8 0092 021a | | Action Push_String_Extended,0x21a ; " units are in error"
00ca 01cc | | Execute Vector,Catenate
00cb e00a | | Load 0x0,0xa
00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ce TRAP_0018:
00ce 0007 | | Action Break_Optional
00cf e402 | | Load 0x2,0x2
00d0 4808 |H | Short_Literal 0x8
00d1 0092 021b | | Action Push_String_Extended,0x21b ; "Unhandled_Exception: "
00d3 e00b | | Load 0x0,0xb
00d4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d5 01cc | | Execute Vector,Catenate
00d6 e00a | | Load 0x0,0xa
00d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 01e9 | | .CONST 0x01e9 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
00e5 BODY_00e0:
00e5 e003 | | Load 0x0,0x3
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 610a |a | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
00ea e006 | | Load 0x0,0x6
00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ec e00c | | Load 0x0,0xc
00ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ee e00d | | Load 0x0,0xd
00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f0 4801 |H | Short_Literal 0x1
00f1 4800 |H | Short_Literal 0x0
00f2 e00c | | Load 0x0,0xc
00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f4 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 021c | | Action Push_String_Extended,0x21c ; "Bad status: "
0103 e40a | | Load 0x2,0xa
0104 e003 | | Load 0x0,0x3
0105 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0106 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0107 011c | | Execute Any,Convert_Unchecked
0108 1c01 | | Execute_Immediate Run_Utility,0x1
0109 01cc | | Execute Vector,Catenate
010a e00a | | Load 0x0,0xa
010b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010d 00cf | | Action Mark_Auxiliary
010e 78d4 |x | Jump 0x1e3
010f e416 | | Load 0x2,0x16
0110 e415 | | Load 0x2,0x15
0111 e008 | | Load 0x0,0x8
0112 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0113 e00e | | Load 0x0,0xe
0114 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0115 e006 | | Load 0x0,0x6
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 e003 | | Load 0x0,0x3
011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011c e407 | | Load 0x2,0x7
011d 60d6 |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
011e e006 | | Load 0x0,0x6
011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0120 e406 | | Load 0x2,0x6
0121 e003 | | Load 0x0,0x3
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 70a7 |p | Jump_Nonzero 0x1d2
012b e412 | | Load 0x2,0x12
012c 0a01 | | Execute_Immediate Plus,0x1
012d c412 | | Store 0x2,0x12
012e 78a0 |x | Jump 0x1cf
012f 00d1 | | Pop_Control Pop_Count_1
0130 7800 |x | Jump 0x131
0131 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0138 7801 |x | Jump 0x13a
0139 e408 | | Load 0x2,0x8
013a 60b9 |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
013b e40e | | Load 0x2,0xe
013c e407 | | Load 0x2,0x7
013d e003 | | Load 0x0,0x3
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 788c |x | Jump 0x1d2 ; 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 7887 |x | Jump 0x1d2 ; 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 7878 |xx | Jump 0x1cf
0157 4801 |H | Short_Literal 0x1
0158 a411 | | Store_Unchecked 0x2,0x11
0159 e408 | | Load 0x2,0x8
015a e003 | | Load 0x0,0x3
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 7872 |xr | Jump 0x1d2
0160 e003 | | Load 0x0,0x3
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 e003 | | Load 0x0,0x3
0163 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 608e |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
0166 e40e | | Load 0x2,0xe
0167 e407 | | Load 0x2,0x7
0168 e003 | | Load 0x0,0x3
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 7861 |xa | Jump 0x1d2
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 705c |p\ | Jump_Nonzero 0x1d2
0176 e412 | | Load 0x2,0x12
0177 0a01 | | Execute_Immediate Plus,0x1
0178 c412 | | Store 0x2,0x12
0179 7855 |xU | Jump 0x1cf
017a 00d1 | | Pop_Control Pop_Count_1
017b 7800 |x | Jump 0x17c
017c e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0187 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0188 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0189 e407 | | Load 0x2,0x7
018a 6069 |`i | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
018b 4801 |H | Short_Literal 0x1
018c 4800 |H | Short_Literal 0x0
018d e40e | | Load 0x2,0xe
018e 4801 |H | Short_Literal 0x1
018f e003 | | Load 0x0,0x3
0190 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0191 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0192 00d1 | | Pop_Control Pop_Count_1
0193 c40b | | Store 0x2,0xb
0194 c40c | | Store 0x2,0xc
0195 c409 | | Store 0x2,0x9
0196 e409 | | Load 0x2,0x9
0197 0b00 | | Execute_Immediate Case_Compare,0x0
0198 7006 |p | Jump_Nonzero 0x19f
0199 0f01 | | Execute_Immediate Equal,0x1
019a 7037 |p7 | Jump_Nonzero 0x1d2
019b e412 | | Load 0x2,0x12
019c 0a01 | | Execute_Immediate Plus,0x1
019d c412 | | Store 0x2,0x12
019e 7830 |x0 | Jump 0x1cf
019f 00d1 | | Pop_Control Pop_Count_1
01a0 7800 |x | Jump 0x1a1
01a1 e003 | | Load 0x0,0x3
01a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a3 e40d | | Load 0x2,0xd
01a4 0120 | | Execute Any,Is_Value
01a5 6803 |h | Jump_Zero 0x1a9
01a6 e005 | | Load 0x0,0x5
01a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a8 7801 |x | Jump 0x1aa
01a9 e40d | | Load 0x2,0xd
01aa 6049 |`I | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000}
01ab e415 | | Load 0x2,0x15
01ac e407 | | Load 0x2,0x7
01ad e003 | | Load 0x0,0x3
01ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01af e40e | | Load 0x2,0xe
01b0 4801 |H | Short_Literal 0x1
01b1 e408 | | Load 0x2,0x8
01b2 e003 | | Load 0x0,0x3
01b3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b5 e003 | | Load 0x0,0x3
01b6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01b8 c40d | | Store 0x2,0xd
01b9 c409 | | Store 0x2,0x9
01ba e409 | | Load 0x2,0x9
01bb 0b00 | | Execute_Immediate Case_Compare,0x0
01bc 7006 |p | Jump_Nonzero 0x1c3
01bd 0f01 | | Execute_Immediate Equal,0x1
01be 7013 |p | Jump_Nonzero 0x1d2
01bf e412 | | Load 0x2,0x12
01c0 0a01 | | Execute_Immediate Plus,0x1
01c1 c412 | | Store 0x2,0x12
01c2 780c |x | Jump 0x1cf
01c3 00d1 | | Pop_Control Pop_Count_1
01c4 7800 |x | Jump 0x1c5
01c5 8602 | | Call 0x3,0x2
01c6 e402 | | Load 0x2,0x2
01c7 4802 |H | Short_Literal 0x2
01c8 e003 | | Load 0x0,0x3
01c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ca 0092 021d | | Action Push_String_Extended,0x21d ; " is correct"
01cc e407 | | Load 0x2,0x7
01cd e00a | | Load 0x0,0xa
01ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01cf e414 | | Load 0x2,0x14
01d0 0a01 | | Execute_Immediate Plus,0x1
01d1 c414 | | Store 0x2,0x14
01d2 e406 | | Load 0x2,0x6
01d3 e003 | | Load 0x0,0x3
01d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01d6 c406 | | Store 0x2,0x6
01d7 e40e | | Load 0x2,0xe
01d8 4801 |H | Short_Literal 0x1
01d9 4801 |H | Short_Literal 0x1
01da e006 | | Load 0x0,0x6
01db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01dc c40e | | Store 0x2,0xe
01dd e411 | | Load 0x2,0x11
01de 6803 |h | Jump_Zero 0x1e2
01df e408 | | Load 0x2,0x8
01e0 e00f | | Load 0x0,0xf
01e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01e2 00c9 | | Action Pop_Auxiliary_Loop
01e3 e406 | | Load 0x2,0x6
01e4 e003 | | Load 0x0,0x3
01e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e7 6f27 |o' | Jump_Zero 0x10f
01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e9 TRAP_00e0:
01e9 0007 | | Action Break_Optional
01ea e402 | | Load 0x2,0x2
01eb 4808 |H | Short_Literal 0x8
01ec 0092 021b | | Action Push_String_Extended,0x21b ; "Unhandled_Exception: "
01ee e00b | | Load 0x0,0xb
01ef 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f0 01cc | | Execute Vector,Catenate
01f1 e00a | | Load 0x0,0xa
01f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0201 | | .CONST 0x0201 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e40d | | Load 0x2,0xd
01fc e40b | | Load 0x2,0xb
01fd e010 | | Load 0x0,0x10
01fe 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
01ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 TRAP_01f8:
0201 0007 | | Action Break_Optional
0202 e402 | | Load 0x2,0x2
0203 4807 |H | Short_Literal 0x7
0204 0092 021e | | Action Push_String_Extended,0x21e ; "Image and tree do NOT match for "
0206 e408 | | Load 0x2,0x8
0207 e003 | | Load 0x0,0x3
0208 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0209 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
020a 01cc | | Execute Vector,Catenate
020b e00a | | Load 0x0,0xa
020c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020d e413 | | Load 0x2,0x13
020e 0a01 | | Execute_Immediate Plus,0x1
020f c413 | | Store 0x2,0x13
0210 00cc | | Action Pop_Block
0211 7fbd | | Jump 0x1cf
0212 ; --------------------------------------------------------------------------------------
0212 ; STRING TABLE
0212 ; --------------------------------------------------------------------------------------
0212 001c | | .STRTAB 0x001c->0x0220 ; "Image_Tree"
0213 0024 | $ | .STRTAB 0x0024->0x0225 ; "No units match \x22"
0214 0032 | 2 | .STRTAB 0x0032->0x022d ; "The unit is correct"
0215 0043 | C | .STRTAB 0x0043->0x0236 ; "All"
0216 0044 | D | .STRTAB 0x0044->0x0238 ; " units are correct"
0217 0054 | T | .STRTAB 0x0054->0x0241 ; "No Ada units specified by \x22"
0218 006d | m | .STRTAB 0x006d->0x024e ; " units were correct"
0219 007e | ~ | .STRTAB 0x007e->0x0258 ; " units could not be examined"
021a 0098 | | .STRTAB 0x0098->0x0266 ; " units are in error"
021b 00a9 | | .STRTAB 0x00a9->0x026f ; "Unhandled_Exception: "
021c 00bc | | .STRTAB 0x00bc->0x027a ; "Bad status: "
021d 00c6 | | .STRTAB 0x00c6->0x0280 ; " is correct"
021e 00cf | | .STRTAB 0x00cf->0x0285 ; "Image and tree do NOT match for "
021f 00ed | | .STREND 0x00ed->0x0295
0220 496d 6167 |Imag| .STRTAB_STRINGS
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9768,0x0000,0x0001,0x0000
029e 0000 0000 | | .BLANK 0000[0x162]