|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0690 | | .CONST 0x0690 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006b | k | .CONST 0x006b ; Address of begin
0009 00ed | | .CONST 0x00ed ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b e02f | / | Load 0x0,0x2f
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d e23b | ; | Load 0x1,0x3b
000e 0322 | " | Declare_Variable Record
000f 00d8 | | Load_Top At_Offset_0
0010 1c00 | | Execute_Immediate Run_Utility,0x0
0011 e23a | : | Load 0x1,0x3a
0012 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0013 e02d | - | Load 0x0,0x2d
0014 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0015 02ff | | Declare_Variable Variant_Record
0016 00d8 | | Load_Top At_Offset_0
0017 1c00 | | Execute_Immediate Run_Utility,0x0
0018 e02d | - | Load 0x0,0x2d
0019 1b20 | | Execute Package,Field_Read,Field_Number 0x20
001a e003 | | Load 0x0,0x3
001b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 00e1 | | Load_Encached Boolean_Cache
001e e02d | - | Load 0x0,0x2d
001f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0020 e003 | | Load 0x0,0x3
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e057 | W | Load 0x0,0x57
0026 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0027 e057 | W | Load 0x0,0x57
0028 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0029 e058 | X | Load 0x0,0x58
002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002b 00e2 | | Load_Encached Integer_Cache
002c 00e2 | | Load_Encached Integer_Cache
002d 00e2 | | Load_Encached Integer_Cache
002e 4801 |H | Short_Literal 0x1
002f 60f0 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00000800}
0030 00e9 | | Load_Encached String_Cache
0031 035b | [ | Declare_Type Array,Constrained
0032 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0034 4804 |H | Short_Literal 0x4
0035 032d | - | Declare_Type Record,Defined
0036 00d8 | | Load_Top At_Offset_0
0037 0322 | " | Declare_Variable Record
0038 00d8 | | Load_Top At_Offset_0
0039 1c00 | | Execute_Immediate Run_Utility,0x0
003a e02f | / | Load 0x0,0x2f
003b 190f | | Execute Package,Field_Reference,Field_Number 0xf
003c 0007 | | Action Break_Optional
003d 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
003f 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0041 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0043 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0045 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0047 a059 | Y | Store_Unchecked 0x0,0x59
0048 00c6 | | Action Check_Subprogram_Elaborated
0049 e40e | | Load 0x2,0xe
004a 4800 |H | Short_Literal 0x0
004b 60d4 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00000800}
004c 480e |H | Short_Literal 0xe
004d 4803 |H | Short_Literal 0x3
004e 4812 |H | Short_Literal 0x12
004f 4802 |H | Short_Literal 0x2
0050 0099 | | Action Reference_Dynamic
0051 4813 |H | Short_Literal 0x13
0052 4802 |H | Short_Literal 0x2
0053 0099 | | Action Reference_Dynamic
0054 4814 |H | Short_Literal 0x14
0055 4802 |H | Short_Literal 0x2
0056 0099 | | Action Reference_Dynamic
0057 e05a | Z | Load 0x0,0x5a
0058 e05b | [ | Load 0x0,0x5b
0059 4820 |H | Short_Literal 0x20
005a 0007 | | Action Break_Optional
005b 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
005d 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
005f e02d | - | Load 0x0,0x2d
0060 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0061 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
0062 00c6 | | Action Check_Subprogram_Elaborated
0063 4822 |H" | Short_Literal 0x22
0064 4802 |H | Short_Literal 0x2
0065 0099 | | Action Reference_Dynamic
0066 e05c | \ | Load 0x0,0x5c
0067 e05d | ] | Load 0x0,0x5d
0068 4826 |H& | Short_Literal 0x26
0069 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
006b BODY_0008:
006b e403 | | Load 0x2,0x3
006c e5fd | | Load 0x2,-0x3
006d e5fe | | Load 0x2,-0x2
006e 8242 | B | Call 0x1,0x42
006f 00d1 | | Pop_Control Pop_Count_1
0070 e403 | | Load 0x2,0x3
0071 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "Code_Views => "
0073 e5ff | | Load 0x2,-0x1
0074 01cc | | Execute Vector,Catenate
0075 0092 05a1 | | Action Push_String_Extended,0x5a1 ; ", Response => "
0077 01cc | | Execute Vector,Catenate
0078 e5fd | | Load 0x2,-0x3
0079 01cc | | Execute Vector,Catenate
007a 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Code_Views"
007c e23c | < | Load 0x1,0x3c
007d 180d | | Execute Package,Field_Execute,Field_Number 0xd
007e 00d1 | | Pop_Control Pop_Count_1
007f e057 | W | Load 0x0,0x57
0080 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0081 4aeb |J | Short_Literal 0x2eb
0082 e05e | ^ | Load 0x0,0x5e
0083 180d | | Execute Package,Field_Execute,Field_Number 0xd
0084 c40b | | Store 0x2,0xb
0085 e40b | | Load 0x2,0xb
0086 e05f | _ | Load 0x0,0x5f
0087 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0088 a40c | | Store_Unchecked 0x2,0xc
0089 e403 | | Load 0x2,0x3
008a e5ff | | Load 0x2,-0x1
008b e23f | ? | Load 0x1,0x3f
008c 180e | | Execute Package,Field_Execute,Field_Number 0xe
008d 00d1 | | Pop_Control Pop_Count_1
008e e23a | : | Load 0x1,0x3a
008f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0090 e01e | | Load 0x0,0x1e
0091 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0092 e01f | | Load 0x0,0x1f
0093 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0094 e403 | | Load 0x2,0x3
0095 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0096 e23a | : | Load 0x1,0x3a
0097 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0098 c404 | | Store 0x2,0x4
0099 00cf | | Action Mark_Auxiliary
009a 783d |x= | Jump 0xd8
009b e404 | | Load 0x2,0x4
009c e23a | : | Load 0x1,0x3a
009d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
009e e02d | - | Load 0x0,0x2d
009f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00a0 0162 | b | Execute Variant_Record,Check_In_Type
00a1 e405 | | Load 0x2,0x5
00a2 016d | m | Execute Variant_Record,Structure_Write
00a3 e403 | | Load 0x2,0x3
00a4 e40a | | Load 0x2,0xa
00a5 0120 | | Execute Any,Is_Value
00a6 6803 |h | Jump_Zero 0xaa
00a7 e003 | | Load 0x0,0x3
00a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a9 7801 |x | Jump 0xab
00aa e40a | | Load 0x2,0xa
00ab e405 | | Load 0x2,0x5
00ac e23e | > | Load 0x1,0x3e
00ad 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ae c40a | | Store 0x2,0xa
00af 00d1 | | Pop_Control Pop_Count_1
00b0 e403 | | Load 0x2,0x3
00b1 e40a | | Load 0x2,0xa
00b2 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "Checking"
00b4 e23d | = | Load 0x1,0x3d
00b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b6 e23c | < | Load 0x1,0x3c
00b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b8 00d1 | | Pop_Control Pop_Count_1
00b9 e02d | - | Load 0x0,0x2d
00ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00bb e02d | - | Load 0x0,0x2d
00bc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00bd 4801 |H | Short_Literal 0x1
00be e403 | | Load 0x2,0x3
00bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c0 e405 | | Load 0x2,0x5
00c1 e02d | - | Load 0x0,0x2d
00c2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c3 c409 | | Store 0x2,0x9
00c4 c406 | | Store 0x2,0x6
00c5 e406 | | Load 0x2,0x6
00c6 4801 |H | Short_Literal 0x1
00c7 4802 |H | Short_Literal 0x2
00c8 0262 | b | Execute Discrete,In_Range
00c9 7009 |p | Jump_Nonzero 0xd3
00ca 7800 |x | Jump 0xcb
00cb 8427 | ' | Call 0x2,0x27
00cc 00e1 | | Load_Encached Boolean_Cache
00cd e403 | | Load 0x2,0x3
00ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00cf e405 | | Load 0x2,0x5
00d0 e02d | - | Load 0x0,0x2d
00d1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00d2 c408 | | Store 0x2,0x8
00d3 e404 | | Load 0x2,0x4
00d4 e23a | : | Load 0x1,0x3a
00d5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00d6 c404 | | Store 0x2,0x4
00d7 00c9 | | Action Pop_Auxiliary_Loop
00d8 e404 | | Load 0x2,0x4
00d9 e23a | : | Load 0x1,0x3a
00da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00db 6fbf |o | Jump_Zero 0x9b
00dc 00ce | | Action Pop_Auxiliary
00dd e403 | | Load 0x2,0x3
00de 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Code_Views"
00e0 e23c | < | Load 0x1,0x3c
00e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e2 00d1 | | Pop_Control Pop_Count_1
00e3 e40b | | Load 0x2,0xb
00e4 e05e | ^ | Load 0x0,0x5e
00e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e6 e403 | | Load 0x2,0x3
00e7 8243 | C | Call 0x1,0x43
00e8 00d1 | | Pop_Control Pop_Count_1
00e9 e403 | | Load 0x2,0x3
00ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00eb a5fc | | Store_Unchecked 0x2,-0x4
00ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ed TRAP_0008:
00ed e009 | | Load 0x0,0x9
00ee 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
00ef 010f | | Execute Exception,Equal
00f0 6808 |h | Jump_Zero 0xf9
00f1 e403 | | Load 0x2,0x3
00f2 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Code_Views"
00f4 e23c | < | Load 0x1,0x3c
00f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f6 00d1 | | Pop_Control Pop_Count_1
00f7 00d8 | | Load_Top At_Offset_0
00f8 0101 | | Execute Exception,Reraise
00f9 e013 | | Load 0x0,0x13
00fa 010f | | Execute Exception,Equal
00fb 680f |h | Jump_Zero 0x10b
00fc e403 | | Load 0x2,0x3
00fd 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Code_Views"
00ff e23c | < | Load 0x1,0x3c
0100 180e | | Execute Package,Field_Execute,Field_Number 0xe
0101 00d1 | | Pop_Control Pop_Count_1
0102 e40b | | Load 0x2,0xb
0103 e05e | ^ | Load 0x0,0x5e
0104 180f | | Execute Package,Field_Execute,Field_Number 0xf
0105 e403 | | Load 0x2,0x3
0106 8243 | C | Call 0x1,0x43
0107 00d1 | | Pop_Control Pop_Count_1
0108 4802 |H | Short_Literal 0x2
0109 a5fc | | Store_Unchecked 0x2,-0x4
010a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
010b e403 | | Load 0x2,0x3
010c 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Code_Views"
010e e23c | < | Load 0x1,0x3c
010f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0110 00d1 | | Pop_Control Pop_Count_1
0111 e403 | | Load 0x2,0x3
0112 e23c | < | Load 0x1,0x3c
0113 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0114 00d1 | | Pop_Control Pop_Count_1
0115 e40b | | Load 0x2,0xb
0116 e05e | ^ | Load 0x0,0x5e
0117 180f | | Execute Package,Field_Execute,Field_Number 0xf
0118 e403 | | Load 0x2,0x3
0119 8243 | C | Call 0x1,0x43
011a 00d1 | | Pop_Control Pop_Count_1
011b 4802 |H | Short_Literal 0x2
011c a5fc | | Store_Unchecked 0x2,-0x4
011d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011e 0000 0000 | | .XXX[0x2]
0120 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4608 |F | Jump_Case 0x9
012c 7808 |x | Jump 0x135 ; case 0x0
012d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
012e 7810 |x | Jump 0x13f ; case 0x2
012f 780f |x | Jump 0x13f ; case 0x3
0130 780e |x | Jump 0x13f ; case 0x4
0131 780d |x | Jump 0x13f ; case 0x5
0132 780c |x | Jump 0x13f ; case 0x6
0133 780b |x | Jump 0x13f ; case 0x7
0134 780a |x | Jump 0x13f ; case 0x8
0135 4800 |H | Short_Literal 0x0
0136 00db | | Load_Top At_Offset_3
0137 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0138 4801 |H | Short_Literal 0x1
0139 00db | | Load_Top At_Offset_3
013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013b 4800 |H | Short_Literal 0x0
013c 00db | | Load_Top At_Offset_3
013d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
013f 0869 | i | Execute_Immediate Raise,0x69
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 0217 | | Execute Heap_Access,All_Reference
0145 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0146 681b |h | Jump_Zero 0x162
0147 00da | | Load_Top At_Offset_2
0148 0217 | | Execute Heap_Access,All_Reference
0149 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014a 6810 |h | Jump_Zero 0x15b
014b 00da | | Load_Top At_Offset_2
014c 00db | | Load_Top At_Offset_3
014d 0217 | | Execute Heap_Access,All_Reference
014e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014f 0217 | | Execute Heap_Access,All_Reference
0150 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0151 021f | | Execute Heap_Access,Equal
0152 6808 |h | Jump_Zero 0x15b
0153 00da | | Load_Top At_Offset_2
0154 0217 | | Execute Heap_Access,All_Reference
0155 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0156 0217 | | Execute Heap_Access,All_Reference
0157 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "'body"
0159 01cc | | Execute Vector,Catenate
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 00da | | Load_Top At_Offset_2
015c 0217 | | Execute Heap_Access,All_Reference
015d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
015e 0217 | | Execute Heap_Access,All_Reference
015f 0335 | 5 | Declare_Variable Array,Duplicate
0160 00cd | | Action Spare6_Action
0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0162 00da | | Load_Top At_Offset_2
0163 0217 | | Execute Heap_Access,All_Reference
0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0165 6821 |h! | Jump_Zero 0x187
0166 00da | | Load_Top At_Offset_2
0167 0217 | | Execute Heap_Access,All_Reference
0168 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0169 0217 | | Execute Heap_Access,All_Reference
016a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
016b 681b |h | Jump_Zero 0x187
016c 00da | | Load_Top At_Offset_2
016d 00db | | Load_Top At_Offset_3
016e 0217 | | Execute Heap_Access,All_Reference
016f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0170 0217 | | Execute Heap_Access,All_Reference
0171 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0172 021f | | Execute Heap_Access,Equal
0173 680a |h | Jump_Zero 0x17e
0174 00da | | Load_Top At_Offset_2
0175 0217 | | Execute Heap_Access,All_Reference
0176 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0177 0217 | | Execute Heap_Access,All_Reference
0178 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0179 0217 | | Execute Heap_Access,All_Reference
017a 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "'body"
017c 01cc | | Execute Vector,Catenate
017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017e 00da | | Load_Top At_Offset_2
017f 0217 | | Execute Heap_Access,All_Reference
0180 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0181 0217 | | Execute Heap_Access,All_Reference
0182 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0183 0217 | | Execute Heap_Access,All_Reference
0184 0335 | 5 | Declare_Variable Array,Duplicate
0185 00cd | | Action Spare6_Action
0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0187 00da | | Load_Top At_Offset_2
0188 0217 | | Execute Heap_Access,All_Reference
0189 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018a 680b |h | Jump_Zero 0x196
018b 00da | | Load_Top At_Offset_2
018c 00db | | Load_Top At_Offset_3
018d 0217 | | Execute Heap_Access,All_Reference
018e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018f 0217 | | Execute Heap_Access,All_Reference
0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0191 021f | | Execute Heap_Access,Equal
0192 6803 |h | Jump_Zero 0x196
0193 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "<ANONYMOUS>'body"
0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0196 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "<ANONYMOUS>"
0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a5 0f01 | | Execute_Immediate Equal,0x1
01a6 681a |h | Jump_Zero 0x1c1
01a7 e403 | | Load 0x2,0x3
01a8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01a9 4807 |H | Short_Literal 0x7
01aa 4801 |H | Short_Literal 0x1
01ab e7ff | | Load 0x3,-0x1
01ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ad e7ff | | Load 0x3,-0x1
01ae 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01af 01cf | | Execute Vector,Slice_Read
01b0 0092 05a7 | | Action Push_String_Extended,0x5a7 ; " (declaration #"
01b2 01cc | | Execute Vector,Catenate
01b3 4820 |H | Short_Literal 0x20
01b4 4800 |H | Short_Literal 0x0
01b5 480a |H | Short_Literal 0xa
01b6 e7ff | | Load 0x3,-0x1
01b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b8 e016 | | Load 0x0,0x16
01b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ba 01cc | | Execute Vector,Catenate
01bb 0092 05a8 | | Action Push_String_Extended,0x5a8 ; ") is not defined"
01bd 01cc | | Execute Vector,Catenate
01be e012 | | Load 0x0,0x12
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 780b |x | Jump 0x1cc
01c1 e403 | | Load 0x2,0x3
01c2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c3 4801 |H | Short_Literal 0x1
01c4 4801 |H | Short_Literal 0x1
01c5 e7ff | | Load 0x3,-0x1
01c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c7 e7ff | | Load 0x3,-0x1
01c8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01c9 01cf | | Execute Vector,Slice_Read
01ca e012 | | Load 0x0,0x12
01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cc 00da | | Load_Top At_Offset_2
01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ce 0a01 | | Execute_Immediate Plus,0x1
01cf 00db | | Load_Top At_Offset_3
01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d1 4800 |H | Short_Literal 0x0
01d2 00db | | Load_Top At_Offset_3
01d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01dd 0a01 | | Execute_Immediate Plus,0x1
01de e7fe | | Load 0x3,-0x2
01df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e0 00da | | Load_Top At_Offset_2
01e1 e7fe | | Load 0x3,-0x2
01e2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e3 e7fe | | Load 0x3,-0x2
01e4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01e5 01d6 | | Execute Vector,Field_Write
01e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e7fe | | Load 0x3,-0x2
01ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ee 0a01 | | Execute_Immediate Plus,0x1
01ef 00d8 | | Load_Top At_Offset_0
01f0 00e2 | | Load_Encached Integer_Cache
01f1 0260 | ` | Execute Discrete,In_Type
01f2 7001 |p | Jump_Nonzero 0x1f4
01f3 0801 | | Execute_Immediate Raise,0x1
01f4 e7fe | | Load 0x3,-0x2
01f5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01f6 e7ff | | Load 0x3,-0x1
01f7 01db | | Execute Vector,Length
01f8 0273 | s | Execute Discrete,Plus
01f9 00d8 | | Load_Top At_Offset_0
01fa 00e2 | | Load_Encached Integer_Cache
01fb 0260 | ` | Execute Discrete,In_Type
01fc 7001 |p | Jump_Nonzero 0x1fe
01fd 0801 | | Execute_Immediate Raise,0x1
01fe e7fe | | Load 0x3,-0x2
01ff 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0200 01ce | | Execute Vector,Slice_Write
0201 00db | | Load_Top At_Offset_3
0202 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0203 00db | | Load_Top At_Offset_3
0204 01db | | Execute Vector,Length
0205 0273 | s | Execute Discrete,Plus
0206 e7fe | | Load 0x3,-0x2
0207 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0208 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 024d | M | .CONST 0x024d ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0005 | | .CONST 0x0005 ; Number of locals
0213 INIT_0210:
0213 e009 | | Load 0x0,0x9
0214 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0215 0266 | f | Execute Discrete,Bounds
0216 00e2 | | Load_Encached Integer_Cache
0217 02a0 | | Declare_Subprogram Null_Subprogram
0218 4801 |H | Short_Literal 0x1
0219 035d | ] | Declare_Type Array,Defined
021a 00d8 | | Load_Top At_Offset_0
021b 0337 | 7 | Declare_Variable Array
021c 00d8 | | Load_Top At_Offset_0
021d 0335 | 5 | Declare_Variable Array,Duplicate
021e 00cd | | Action Spare6_Action
021f 4800 |H | Short_Literal 0x0
0220 4800 |H | Short_Literal 0x0
0221 00da | | Load_Top At_Offset_2
0222 01d6 | | Execute Vector,Field_Write
0223 4804 |H | Short_Literal 0x4
0224 4808 |H | Short_Literal 0x8
0225 00da | | Load_Top At_Offset_2
0226 01d6 | | Execute Vector,Field_Write
0227 4806 |H | Short_Literal 0x6
0228 4803 |H | Short_Literal 0x3
0229 00da | | Load_Top At_Offset_2
022a 01d6 | | Execute Vector,Field_Write
022b 4809 |H | Short_Literal 0x9
022c 4802 |H | Short_Literal 0x2
022d 00da | | Load_Top At_Offset_2
022e 01d6 | | Execute Vector,Field_Write
022f 4809 |H | Short_Literal 0x9
0230 4805 |H | Short_Literal 0x5
0231 00da | | Load_Top At_Offset_2
0232 01d6 | | Execute Vector,Field_Write
0233 4809 |H | Short_Literal 0x9
0234 4807 |H | Short_Literal 0x7
0235 00da | | Load_Top At_Offset_2
0236 01d6 | | Execute Vector,Field_Write
0237 480a |H | Short_Literal 0xa
0238 4806 |H | Short_Literal 0x6
0239 00da | | Load_Top At_Offset_2
023a 01d6 | | Execute Vector,Field_Write
023b 480c |H | Short_Literal 0xc
023c 4801 |H | Short_Literal 0x1
023d 00da | | Load_Top At_Offset_2
023e 01d6 | | Execute Vector,Field_Write
023f 4813 |H | Short_Literal 0x13
0240 4804 |H | Short_Literal 0x4
0241 00da | | Load_Top At_Offset_2
0242 01d6 | | Execute Vector,Field_Write
0243 00d9 | | Load_Top At_Offset_1
0244 01d4 | | Execute Vector,Structure_Write
0245 e7ff | | Load 0x3,-0x1
0246 e009 | | Load 0x0,0x9
0247 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0248 e7ff | | Load 0x3,-0x1
0249 e009 | | Load 0x0,0x9
024a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
024b 00e2 | | Load_Encached Integer_Cache
024c 03f1 | | Declare_Variable Discrete,With_Value
024d BODY_0210:
024d 00cf | | Action Mark_Auxiliary
024e 00da | | Load_Top At_Offset_2
024f 01d9 | | Execute Vector,Reverse_Bounds
0250 0007 | | Action Break_Optional
0251 00db | | Load_Top At_Offset_3
0252 00d9 | | Load_Top At_Offset_1
0253 e604 | | Load 0x3,0x4
0254 01d7 | | Execute Vector,Field_Read
0255 e603 | | Load 0x3,0x3
0256 01d7 | | Execute Vector,Field_Read
0257 0272 | r | Execute Discrete,Minus
0258 c605 | | Store 0x3,0x5
0259 00c8 | | Action Pop_Auxiliary_Range
025a 3ff6 |? | Loop_Increasing 0x251
025b 00ce | | Action Pop_Auxiliary
025c 00d8 | | Load_Top At_Offset_0
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 027b | { | .CONST 0x027b ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 000c | | .CONST 0x000c ; Number of locals
0263 INIT_0260:
0263 487f |H | Short_Literal 0x7f
0264 e40b | | Load 0x2,0xb
0265 e058 | X | Load 0x0,0x58
0266 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0267 00db | | Load_Top At_Offset_3
0268 8411 | | Call 0x2,0x11
0269 00e1 | | Load_Encached Boolean_Cache
026a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
026b 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
026d 029f 030b | | Declare_Subprogram INIT_0308,For_Call
026f 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
0271 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0273 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
0275 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
0277 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0279 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
027b BODY_0260:
027b e403 | | Load 0x2,0x3
027c 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Checking "
027e e603 | | Load 0x3,0x3
027f 01cc | | Execute Vector,Catenate
0280 e23c | < | Load 0x1,0x3c
0281 180f | | Execute Package,Field_Execute,Field_Number 0xf
0282 00d1 | | Pop_Control Pop_Count_1
0283 0092 05aa | | Action Push_String_Extended,0x5aa ; "withed"
0285 e7ff | | Load 0x3,-0x1
0286 0217 | | Execute Heap_Access,All_Reference
0287 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0288 0217 | | Execute Heap_Access,All_Reference
0289 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
028a 860b | | Call 0x3,0xb
028b 0092 05ab | | Action Push_String_Extended,0x5ab ; "elaborated"
028d e7ff | | Load 0x3,-0x1
028e 0217 | | Execute Heap_Access,All_Reference
028f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0290 0217 | | Execute Heap_Access,All_Reference
0291 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0292 860b | | Call 0x3,0xb
0293 e7ff | | Load 0x3,-0x1
0294 0217 | | Execute Heap_Access,All_Reference
0295 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0296 0217 | | Execute Heap_Access,All_Reference
0297 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0298 860c | | Call 0x3,0xc
0299 e40c | | Load 0x2,0xc
029a e40b | | Load 0x2,0xb
029b e05f | _ | Load 0x0,0x5f
029c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7 | | .CONST 0x02a7 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 0217 | | Execute Heap_Access,All_Reference
02a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a6 0007 | | Action Break_Optional
02a7 BODY_02a0:
02a7 00d8 | | Load_Top At_Offset_0
02a8 0217 | | Execute Heap_Access,All_Reference
02a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02aa 7016 |p | Jump_Nonzero 0x2c1
02ab 00d8 | | Load_Top At_Offset_0
02ac 0217 | | Execute Heap_Access,All_Reference
02ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ae 6812 |h | Jump_Zero 0x2c1
02af 00d8 | | Load_Top At_Offset_0
02b0 0217 | | Execute Heap_Access,All_Reference
02b1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b2 0217 | | Execute Heap_Access,All_Reference
02b3 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
02b4 700c |p | Jump_Nonzero 0x2c1
02b5 00d8 | | Load_Top At_Offset_0
02b6 8421 | ! | Call 0x2,0x21
02b7 00d8 | | Load_Top At_Offset_0
02b8 0217 | | Execute Heap_Access,All_Reference
02b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ba 0217 | | Execute Heap_Access,All_Reference
02bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02bc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02bd 00d8 | | Load_Top At_Offset_0
02be 6802 |h | Jump_Zero 0x2c1
02bf 00d8 | | Load_Top At_Offset_0
02c0 8421 | ! | Call 0x2,0x21
02c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 02d9 | | .CONST 0x02d9 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e409 | | Load 0x2,0x9
02cc 0219 | | Execute Heap_Access,All_Read
02cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ce 00d8 | | Load_Top At_Offset_0
02cf 4823 |H# | Short_Literal 0x23
02d0 4802 |H | Short_Literal 0x2
02d1 0099 | | Action Reference_Dynamic
02d2 4824 |H$ | Short_Literal 0x24
02d3 4802 |H | Short_Literal 0x2
02d4 0099 | | Action Reference_Dynamic
02d5 e02d | - | Load 0x0,0x2d
02d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d9 TRAP_02c8:
02d9 e013 | | Load 0x0,0x13
02da 010f | | Execute Exception,Equal
02db 6801 |h | Jump_Zero 0x2dd
02dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02dd e403 | | Load 0x2,0x3
02de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02df 4808 |H | Short_Literal 0x8
02e0 0092 05ac | | Action Push_String_Extended,0x5ac ; "Unhandled Exception traversing units of "
02e2 e40a | | Load 0x2,0xa
02e3 e003 | | Load 0x0,0x3
02e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02e6 01cc | | Execute Vector,Catenate
02e7 e012 | | Load 0x0,0x12
02e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e604 | | Load 0x3,0x4
02f4 700e |p | Jump_Nonzero 0x303
02f5 e403 | | Load 0x2,0x3
02f6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f7 4807 |H | Short_Literal 0x7
02f8 0092 05ad | | Action Push_String_Extended,0x5ad ; "Incompatibilities exist with units referenced by "
02fa e603 | | Load 0x3,0x3
02fb 01cc | | Execute Vector,Catenate
02fc 0092 05ae | | Action Push_String_Extended,0x5ae ; "..."
02fe 01cc | | Execute Vector,Catenate
02ff e012 | | Load 0x0,0x12
0300 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0301 4801 |H | Short_Literal 0x1
0302 a604 | | Store_Unchecked 0x3,0x4
0303 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0324 | $ | .CONST 0x0324 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0007 | | .CONST 0x0007 ; Number of locals
030b INIT_0308:
030b e02f | / | Load 0x0,0x2f
030c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
030d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030e 02c7 | | Declare_Variable Any
030f 00d8 | | Load_Top At_Offset_0
0310 1c00 | | Execute_Immediate Run_Utility,0x0
0311 e02f | / | Load 0x0,0x2f
0312 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0313 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0314 02c7 | | Declare_Variable Any
0315 00d8 | | Load_Top At_Offset_0
0316 1c00 | | Execute_Immediate Run_Utility,0x0
0317 e02f | / | Load 0x0,0x2f
0318 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0319 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
031a 02c7 | | Declare_Variable Any
031b 00d8 | | Load_Top At_Offset_0
031c 1c00 | | Execute_Immediate Run_Utility,0x0
031d e02f | / | Load 0x0,0x2f
031e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
031f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0320 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0322 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
0324 BODY_0308:
0324 00be | | Action Activate_Tasks
0325 8806 | | Call 0x4,0x6
0326 e403 | | Load 0x2,0x3
0327 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0328 4807 |H | Short_Literal 0x7
0329 e009 | | Load 0x0,0x9
032a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
032b 6801 |h | Jump_Zero 0x32d
032c 8807 | | Call 0x4,0x7
032d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0341 | A | .CONST 0x0341 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0005 | | .CONST 0x0005 ; Number of locals
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 8410 | | Call 0x2,0x10
0335 e9fd | | Load 0x4,-0x3
0336 0217 | | Execute Heap_Access,All_Reference
0337 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0338 0217 | | Execute Heap_Access,All_Reference
0339 0007 | | Action Break_Optional
033a 00d8 | | Load_Top At_Offset_0
033b 01da | | Execute Vector,Bounds
033c e402 | | Load 0x2,0x2
033d 035b | [ | Declare_Type Array,Constrained
033e 0337 | 7 | Declare_Variable Array
033f 00e1 | | Load_Encached Boolean_Cache
0340 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0341 BODY_0330:
0341 00cf | | Action Mark_Auxiliary
0342 00db | | Load_Top At_Offset_3
0343 01d9 | | Execute Vector,Reverse_Bounds
0344 0263 | c | Execute Discrete,Above_Bound
0345 701c |p | Jump_Nonzero 0x362
0346 00d8 | | Load_Top At_Offset_0
0347 e803 | | Load 0x4,0x3
0348 01d7 | | Execute Vector,Field_Read
0349 6812 |h | Jump_Zero 0x35c
034a 00d8 | | Load_Top At_Offset_0
034b e802 | | Load 0x4,0x2
034c 01da | | Execute Vector,Bounds
034d 0262 | b | Execute Discrete,In_Range
034e 6804 |h | Jump_Zero 0x353
034f 00d8 | | Load_Top At_Offset_0
0350 e802 | | Load 0x4,0x2
0351 01d7 | | Execute Vector,Field_Read
0352 7801 |x | Jump 0x354
0353 4800 |H | Short_Literal 0x0
0354 7007 |p | Jump_Nonzero 0x35c
0355 4801 |H | Short_Literal 0x1
0356 00d9 | | Load_Top At_Offset_1
0357 e804 | | Load 0x4,0x4
0358 01d6 | | Execute Vector,Field_Write
0359 4801 |H | Short_Literal 0x1
035a a805 | | Store_Unchecked 0x4,0x5
035b 7804 |x | Jump 0x360
035c 4800 |H | Short_Literal 0x0
035d 00d9 | | Load_Top At_Offset_1
035e e804 | | Load 0x4,0x4
035f 01d6 | | Execute Vector,Field_Write
0360 00c8 | | Action Pop_Auxiliary_Range
0361 3fe4 |? | Loop_Increasing 0x346
0362 00ce | | Action Pop_Auxiliary
0363 00d8 | | Load_Top At_Offset_0
0364 6803 |h | Jump_Zero 0x368
0365 00d9 | | Load_Top At_Offset_1
0366 e9fe | | Load 0x4,-0x2
0367 8606 | | Call 0x3,0x6
0368 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0369 0000 0000 | | .BLANK 0000[0x7]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037d | } | .CONST 0x037d ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0004 | | .CONST 0x0004 ; Number of locals
0373 INIT_0370:
0373 e003 | | Load 0x0,0x3
0374 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0375 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0376 02c7 | | Declare_Variable Any
0377 00d8 | | Load_Top At_Offset_0
0378 1c00 | | Execute_Immediate Run_Utility,0x0
0379 e003 | | Load 0x0,0x3
037a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037b e23e | > | Load 0x1,0x3e
037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037d BODY_0370:
037d e9ff | | Load 0x4,-0x1
037e e23e | > | Load 0x1,0x3e
037f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0380 700e |p | Jump_Nonzero 0x38f
0381 e9fe | | Load 0x4,-0x2
0382 680b |h | Jump_Zero 0x38e
0383 8605 | | Call 0x3,0x5
0384 e403 | | Load 0x2,0x3
0385 0092 05af | | Action Push_String_Extended,0x5af ; "is not an Ada unit"
0387 e9ff | | Load 0x4,-0x1
0388 e23d | = | Load 0x1,0x3d
0389 1810 | | Execute Package,Field_Execute,Field_Number 0x10
038a e9ff | | Load 0x4,-0x1
038b e23c | < | Load 0x1,0x3c
038c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
038d 00d1 | | Pop_Control Pop_Count_1
038e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038f e403 | | Load 0x2,0x3
0390 e23e | > | Load 0x1,0x3e
0391 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0392 e9ff | | Load 0x4,-0x1
0393 e23e | > | Load 0x1,0x3e
0394 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0395 005a | Z | Store_Top Discrete,At_Offset_2
0396 00d1 | | Pop_Control Pop_Count_1
0397 00d8 | | Load_Top At_Offset_0
0398 e23e | > | Load 0x1,0x3e
0399 1819 | | Execute Package,Field_Execute,Field_Number 0x19
039a 700e |p | Jump_Nonzero 0x3a9
039b e9fe | | Load 0x4,-0x2
039c 680b |h | Jump_Zero 0x3a8
039d 8605 | | Call 0x3,0x5
039e e403 | | Load 0x2,0x3
039f 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "is not installed"
03a1 e9ff | | Load 0x4,-0x1
03a2 e23d | = | Load 0x1,0x3d
03a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a4 e9ff | | Load 0x4,-0x1
03a5 e23c | < | Load 0x1,0x3c
03a6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03a7 00d1 | | Pop_Control Pop_Count_1
03a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a9 e003 | | Load 0x0,0x3
03aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ab 00db | | Load_Top At_Offset_3
03ac 0120 | | Execute Any,Is_Value
03ad 6804 |h | Jump_Zero 0x3b2
03ae e003 | | Load 0x0,0x3
03af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03b1 7801 |x | Jump 0x3b3
03b2 00db | | Load_Top At_Offset_3
03b3 e003 | | Load 0x0,0x3
03b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03b6 6039 |`9 | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00004000}
03b7 4801 |H | Short_Literal 0x1
03b8 4800 |H | Short_Literal 0x0
03b9 4800 |H | Short_Literal 0x0
03ba e403 | | Load 0x2,0x3
03bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bc 4801 |H | Short_Literal 0x1
03bd e9ff | | Load 0x4,-0x1
03be e003 | | Load 0x0,0x3
03bf 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c1 e003 | | Load 0x0,0x3
03c2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03c3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03c4 c9fd | | Store 0x4,-0x3
03c5 c802 | | Store 0x4,0x2
03c6 005a | Z | Store_Top Discrete,At_Offset_2
03c7 00d9 | | Load_Top At_Offset_1
03c8 e23e | > | Load 0x1,0x3e
03c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ca 7017 |p | Jump_Nonzero 0x3e2
03cb e9fe | | Load 0x4,-0x2
03cc 6811 |h | Jump_Zero 0x3de
03cd 8605 | | Call 0x3,0x5
03ce e403 | | Load 0x2,0x3
03cf 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "cannot be examined because of "
03d1 00db | | Load_Top At_Offset_3
03d2 e003 | | Load 0x0,0x3
03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d4 011c | | Execute Any,Convert_Unchecked
03d5 1c01 | | Execute_Immediate Run_Utility,0x1
03d6 01cc | | Execute Vector,Catenate
03d7 e9ff | | Load 0x4,-0x1
03d8 e23d | = | Load 0x1,0x3d
03d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03da e9ff | | Load 0x4,-0x1
03db e23c | < | Load 0x1,0x3c
03dc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03dd 00d1 | | Pop_Control Pop_Count_1
03de 00eb | | Load_Encached Diana_Cache
03df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e0 a9fd | | Store_Unchecked 0x4,-0x3
03e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03e2 00d8 | | Load_Top At_Offset_0
03e3 e23e | > | Load 0x1,0x3e
03e4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03e5 7009 |p | Jump_Nonzero 0x3ef
03e6 e403 | | Load 0x2,0x3
03e7 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "is not coded"
03e9 e9ff | | Load 0x4,-0x1
03ea e23d | = | Load 0x1,0x3d
03eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ec e23c | < | Load 0x1,0x3c
03ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ee 00d1 | | Pop_Control Pop_Count_1
03ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0403 | | .CONST 0x0403 ; Address of begin
03f9 040f | | .CONST 0x040f ; Address of exception handler
03fa 0004 | | .CONST 0x0004 ; Number of locals
03fb INIT_03f8:
03fb 00ec | | Load_Encached Diana_Tree_Cache
03fc e003 | | Load 0x0,0x3
03fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fe 02c7 | | Declare_Variable Any
03ff 00d8 | | Load_Top At_Offset_0
0400 1c00 | | Execute_Immediate Run_Utility,0x0
0401 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call
0403 BODY_03f8:
0403 e9ff | | Load 0x4,-0x1
0404 6805 |h | Jump_Zero 0x40a
0405 e9ff | | Load 0x4,-0x1
0406 0217 | | Execute Heap_Access,All_Reference
0407 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0408 6801 |h | Jump_Zero 0x40a
0409 8804 | | Call 0x4,0x4
040a 00da | | Load_Top At_Offset_2
040b a9fe | | Store_Unchecked 0x4,-0x2
040c 00d9 | | Load_Top At_Offset_1
040d c9fd | | Store 0x4,-0x3
040e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040f TRAP_03f8:
040f e013 | | Load 0x0,0x13
0410 010f | | Execute Exception,Equal
0411 6807 |h | Jump_Zero 0x419
0412 00eb | | Load_Encached Diana_Cache
0413 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0414 a9fe | | Store_Unchecked 0x4,-0x2
0415 e003 | | Load 0x0,0x3
0416 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0417 c9fd | | Store 0x4,-0x3
0418 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0419 0100 | | Execute Exception,Raise
041a 0000 0000 | | .BLANK 0000[0x6]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042d | - | .CONST 0x042d ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0005 | | .CONST 0x0005 ; Number of locals
0423 INIT_0420:
0423 00ec | | Load_Encached Diana_Tree_Cache
0424 e003 | | Load 0x0,0x3
0425 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0426 02c7 | | Declare_Variable Any
0427 00d8 | | Load_Top At_Offset_0
0428 1c00 | | Execute_Immediate Run_Utility,0x0
0429 e9ff | | Load 0x4,-0x1
042a 8411 | | Call 0x2,0x11
042b e058 | X | Load 0x0,0x58
042c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042d BODY_0420:
042d 4800 |H | Short_Literal 0x0
042e e602 | | Load 0x3,0x2
042f 00db | | Load_Top At_Offset_3
0430 e058 | X | Load 0x0,0x58
0431 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0432 e058 | X | Load 0x0,0x58
0433 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0434 6827 |h' | Jump_Zero 0x45c
0435 4800 |H | Short_Literal 0x0
0436 e602 | | Load 0x3,0x2
0437 00db | | Load_Top At_Offset_3
0438 e058 | X | Load 0x0,0x58
0439 1815 | | Execute Package,Field_Execute,Field_Number 0x15
043a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
043b 00da | | Load_Top At_Offset_2
043c 0120 | | Execute Any,Is_Value
043d 6803 |h | Jump_Zero 0x441
043e e003 | | Load 0x0,0x3
043f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0440 7801 |x | Jump 0x442
0441 00da | | Load_Top At_Offset_2
0442 00ec | | Load_Encached Diana_Tree_Cache
0443 e9ff | | Load 0x4,-0x1
0444 8609 | | Call 0x3,0x9
0445 c802 | | Store 0x4,0x2
0446 c803 | | Store 0x4,0x3
0447 00db | | Load_Top At_Offset_3
0448 00eb | | Load_Encached Diana_Cache
0449 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044a 7011 |p | Jump_Nonzero 0x45c
044b e403 | | Load 0x2,0x3
044c 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Checking "
044e e9fe | | Load 0x4,-0x2
044f 01cc | | Execute Vector,Catenate
0450 0092 05b3 | | Action Push_String_Extended,0x5b3 ; " unit "
0452 01cc | | Execute Vector,Catenate
0453 00db | | Load_Top At_Offset_3
0454 01cc | | Execute Vector,Catenate
0455 e23c | < | Load 0x1,0x3c
0456 180f | | Execute Package,Field_Execute,Field_Number 0xf
0457 00d1 | | Pop_Control Pop_Count_1
0458 e9ff | | Load 0x4,-0x1
0459 00db | | Load_Top At_Offset_3
045a e802 | | Load 0x4,0x2
045b 8607 | | Call 0x3,0x7
045c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0464 | d | .CONST 0x0464 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 BODY_0460:
0464 00cf | | Action Mark_Auxiliary
0465 780a |x | Jump 0x470
0466 e9fe | | Load 0x4,-0x2
0467 00da | | Load_Top At_Offset_2
0468 0217 | | Execute Heap_Access,All_Reference
0469 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
046a 860a | | Call 0x3,0xa
046b 00d9 | | Load_Top At_Offset_1
046c 0217 | | Execute Heap_Access,All_Reference
046d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
046e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
046f 00c9 | | Action Pop_Auxiliary_Loop
0470 00d9 | | Load_Top At_Offset_1
0471 77f4 |w | Jump_Nonzero 0x466
0472 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0473 0000 0000 | | .BLANK 0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047f | | .CONST 0x047f ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0003 | | .CONST 0x0003 ; Number of locals
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c 0007 | | Action Break_Optional
047d e060 | ` | Load 0x0,0x60
047e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
047f BODY_0478:
047f 00cf | | Action Mark_Auxiliary
0480 7813 |x | Jump 0x494
0481 00da | | Load_Top At_Offset_2
0482 0217 | | Execute Heap_Access,All_Reference
0483 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0484 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0485 00d9 | | Load_Top At_Offset_1
0486 0217 | | Execute Heap_Access,All_Reference
0487 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0488 6806 |h | Jump_Zero 0x48f
0489 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "imported"
048b 00da | | Load_Top At_Offset_2
048c 0217 | | Execute Heap_Access,All_Reference
048d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
048e 860a | | Call 0x3,0xa
048f 00da | | Load_Top At_Offset_2
0490 0217 | | Execute Heap_Access,All_Reference
0491 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0492 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0493 00c9 | | Action Pop_Auxiliary_Loop
0494 00da | | Load_Top At_Offset_2
0495 77eb |w | Jump_Nonzero 0x481
0496 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04b8 | | .CONST 0x04b8 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 8605 | | Call 0x3,0x5
049c e403 | | Load 0x2,0x3
049d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
049e 4807 |H | Short_Literal 0x7
049f e009 | | Load 0x0,0x9
04a0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04a1 680b |h | Jump_Zero 0x4ad
04a2 e403 | | Load 0x2,0x3
04a3 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "doesn't define these required declarations..."
04a5 e9ff | | Load 0x4,-0x1
04a6 e23d | = | Load 0x1,0x3d
04a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04a8 e9ff | | Load 0x4,-0x1
04a9 e23c | < | Load 0x1,0x3c
04aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04ab 00d1 | | Pop_Control Pop_Count_1
04ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ad e403 | | Load 0x2,0x3
04ae 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "doesn't define all required declarations"
04b0 e9ff | | Load 0x4,-0x1
04b1 e23d | = | Load 0x1,0x3d
04b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b3 e9ff | | Load 0x4,-0x1
04b4 e23c | < | Load 0x1,0x3c
04b5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b6 00d1 | | Pop_Control Pop_Count_1
04b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b8 TRAP_0498:
04b8 e013 | | Load 0x0,0x13
04b9 010f | | Execute Exception,Equal
04ba 6801 |h | Jump_Zero 0x4bc
04bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04bc 0100 | | Execute Exception,Raise
04bd 0000 0000 | | .XXX[0x3]
04bf 0000 | |
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 052d | - | .CONST 0x052d ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 e803 | | Load 0x4,0x3
04c4 0120 | | Execute Any,Is_Value
04c5 6804 |h | Jump_Zero 0x4ca
04c6 e02f | / | Load 0x0,0x2f
04c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c9 7801 |x | Jump 0x4cb
04ca e803 | | Load 0x4,0x3
04cb e802 | | Load 0x4,0x2
04cc 4800 |H | Short_Literal 0x0
04cd 4800 |H | Short_Literal 0x0
04ce e403 | | Load 0x2,0x3
04cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04d0 e9ff | | Load 0x4,-0x1
04d1 e02f | / | Load 0x0,0x2f
04d2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04d4 c802 | | Store 0x4,0x2
04d5 c803 | | Store 0x4,0x3
04d6 e804 | | Load 0x4,0x4
04d7 e802 | | Load 0x4,0x2
04d8 e02f | / | Load 0x0,0x2f
04d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04da 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04db c804 | | Store 0x4,0x4
04dc 00cf | | Action Mark_Auxiliary
04dd 783a |x: | Jump 0x518
04de e804 | | Load 0x4,0x4
04df e02f | / | Load 0x0,0x2f
04e0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04e1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04e2 a805 | | Store_Unchecked 0x4,0x5
04e3 e805 | | Load 0x4,0x5
04e4 e9fe | | Load 0x4,-0x2
04e5 01da | | Execute Vector,Bounds
04e6 0262 | b | Execute Discrete,In_Range
04e7 682a |h* | Jump_Zero 0x512
04e8 e805 | | Load 0x4,0x5
04e9 e9fe | | Load 0x4,-0x2
04ea 01d7 | | Execute Vector,Field_Read
04eb 6826 |h& | Jump_Zero 0x512
04ec e805 | | Load 0x4,0x5
04ed e40f | | Load 0x2,0xf
04ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04ef 4801 |H | Short_Literal 0x1
04f0 e40f | | Load 0x2,0xf
04f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04f2 4800 |H | Short_Literal 0x0
04f3 e40f | | Load 0x2,0xf
04f4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04f5 e40f | | Load 0x2,0xf
04f6 e403 | | Load 0x2,0x3
04f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f8 4801 |H | Short_Literal 0x1
04f9 e009 | | Load 0x0,0x9
04fa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04fb e804 | | Load 0x4,0x4
04fc e02f | / | Load 0x0,0x2f
04fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04fe 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04ff e416 | | Load 0x2,0x16
0500 e417 | | Load 0x2,0x17
0501 e418 | | Load 0x2,0x18
0502 e419 | | Load 0x2,0x19
0503 e41a | | Load 0x2,0x1a
0504 481b |H | Short_Literal 0x1b
0505 4802 |H | Short_Literal 0x2
0506 0099 | | Action Reference_Dynamic
0507 481c |H | Short_Literal 0x1c
0508 4802 |H | Short_Literal 0x2
0509 0099 | | Action Reference_Dynamic
050a 481d |H | Short_Literal 0x1d
050b 4802 |H | Short_Literal 0x2
050c 0099 | | Action Reference_Dynamic
050d 481e |H | Short_Literal 0x1e
050e 4802 |H | Short_Literal 0x2
050f 0099 | | Action Reference_Dynamic
0510 8059 | Y | Call 0x0,0x59
0511 00d1 | | Pop_Control Pop_Count_1
0512 e804 | | Load 0x4,0x4
0513 e02f | / | Load 0x0,0x2f
0514 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0515 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0516 c804 | | Store 0x4,0x4
0517 00c9 | | Action Pop_Auxiliary_Loop
0518 e804 | | Load 0x4,0x4
0519 e02f | / | Load 0x0,0x2f
051a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
051b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
051c 6fc1 |o | Jump_Zero 0x4de
051d 00ce | | Action Pop_Auxiliary
051e e803 | | Load 0x4,0x3
051f 0120 | | Execute Any,Is_Value
0520 6804 |h | Jump_Zero 0x525
0521 e02f | / | Load 0x0,0x2f
0522 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0523 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0524 7801 |x | Jump 0x526
0525 e803 | | Load 0x4,0x3
0526 e802 | | Load 0x4,0x2
0527 e02f | / | Load 0x0,0x2f
0528 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0529 181e | | Execute Package,Field_Execute,Field_Number 0x1e
052a c802 | | Store 0x4,0x2
052b c803 | | Store 0x4,0x3
052c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
052d TRAP_04c0:
052d 0007 | | Action Break_Optional
052e e803 | | Load 0x4,0x3
052f 0120 | | Execute Any,Is_Value
0530 6804 |h | Jump_Zero 0x535
0531 e02f | / | Load 0x0,0x2f
0532 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0533 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0534 7801 |x | Jump 0x536
0535 e803 | | Load 0x4,0x3
0536 e802 | | Load 0x4,0x2
0537 e02f | / | Load 0x0,0x2f
0538 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0539 181e | | Execute Package,Field_Execute,Field_Number 0x1e
053a c802 | | Store 0x4,0x2
053b c803 | | Store 0x4,0x3
053c 00d8 | | Load_Top At_Offset_0
053d 0101 | | Execute Exception,Reraise
053e 0000 0000 | | .XXX[0x2]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548 | H | .CONST 0x0548 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e9ff | | Load 0x4,-0x1
0544 0217 | | Execute Heap_Access,All_Reference
0545 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0546 0217 | | Execute Heap_Access,All_Reference
0547 0007 | | Action Break_Optional
0548 BODY_0540:
0548 e9ff | | Load 0x4,-0x1
0549 0217 | | Execute Heap_Access,All_Reference
054a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
054b e003 | | Load 0x0,0x3
054c 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
054d 180e | | Execute Package,Field_Execute,Field_Number 0xe
054e c803 | | Store 0x4,0x3
054f e803 | | Load 0x4,0x3
0550 e003 | | Load 0x0,0x3
0551 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0552 7005 |p | Jump_Nonzero 0x558
0553 00ec | | Load_Encached Diana_Tree_Cache
0554 4800 |H | Short_Literal 0x0
0555 e803 | | Load 0x4,0x3
0556 8608 | | Call 0x3,0x8
0557 c802 | | Store 0x4,0x2
0558 e802 | | Load 0x4,0x2
0559 00eb | | Load_Encached Diana_Cache
055a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
055b 683f |h? | Jump_Zero 0x59b
055c e003 | | Load 0x0,0x3
055d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
055e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055f e803 | | Load 0x4,0x3
0560 0120 | | Execute Any,Is_Value
0561 6803 |h | Jump_Zero 0x565
0562 e003 | | Load 0x0,0x3
0563 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0564 7801 |x | Jump 0x566
0565 e803 | | Load 0x4,0x3
0566 6035 |`5 | Indirect_Literal Discrete,0x59c,{0x00000000, 0x00004000}
0567 e007 | | Load 0x0,0x7
0568 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0569 e01e | | Load 0x0,0x1e
056a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
056b e003 | | Load 0x0,0x3
056c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
056d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
056e ea02 | | Load 0x5,0x2
056f e003 | | Load 0x0,0x3
0570 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0571 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0572 c803 | | Store 0x4,0x3
0573 c407 | | Store 0x2,0x7
0574 e407 | | Load 0x2,0x7
0575 e23e | > | Load 0x1,0x3e
0576 180f | | Execute Package,Field_Execute,Field_Number 0xf
0577 701e |p | Jump_Nonzero 0x596
0578 8605 | | Call 0x3,0x5
0579 e403 | | Load 0x2,0x3
057a 00d9 | | Load_Top At_Offset_1
057b 0092 05b7 | | Action Push_String_Extended,0x5b7 ; " is not accessible because "
057d 01cc | | Execute Vector,Catenate
057e 601d |` | Indirect_Literal Discrete,0x59c,{0x00000000, 0x00004000}
057f e403 | | Load 0x2,0x3
0580 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0581 e01e | | Load 0x0,0x1e
0582 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0583 e01f | | Load 0x0,0x1f
0584 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0585 4801 |H | Short_Literal 0x1
0586 4800 |H | Short_Literal 0x0
0587 e01e | | Load 0x0,0x1e
0588 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0589 e003 | | Load 0x0,0x3
058a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
058b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
058c ea02 | | Load 0x5,0x2
058d e407 | | Load 0x2,0x7
058e e003 | | Load 0x0,0x3
058f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0590 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0591 01cc | | Execute Vector,Catenate
0592 e803 | | Load 0x4,0x3
0593 e23c | < | Load 0x1,0x3c
0594 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0595 00d1 | | Pop_Control Pop_Count_1
0596 00ec | | Load_Encached Diana_Tree_Cache
0597 4801 |H | Short_Literal 0x1
0598 e803 | | Load 0x4,0x3
0599 8608 | | Call 0x3,0x8
059a c802 | | Store 0x4,0x2
059b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
059c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05a0 ; --------------------------------------------------------------------------------------
05a0 ; STRING TABLE
05a0 ; --------------------------------------------------------------------------------------
05a0 0032 | 2 | .STRTAB 0x0032->0x05b9 ; "Code_Views => "
05a1 003e | > | .STRTAB 0x003e->0x05c0 ; ", Response => "
05a2 004a | J | .STRTAB 0x004a->0x05c7 ; "Code_Views"
05a3 0052 | R | .STRTAB 0x0052->0x05cc ; "Checking"
05a4 0058 | X | .STRTAB 0x0058->0x05d0 ; "'body"
05a5 005b | [ | .STRTAB 0x005b->0x05d2 ; "<ANONYMOUS>'body"
05a6 0069 | i | .STRTAB 0x0069->0x05da ; "<ANONYMOUS>"
05a7 0072 | r | .STRTAB 0x0072->0x05e0 ; " (declaration #"
05a8 007f | | .STRTAB 0x007f->0x05e7 ; ") is not defined"
05a9 008d | | .STRTAB 0x008d->0x05ef ; "Checking "
05aa 0094 | | .STRTAB 0x0094->0x05f4 ; "withed"
05ab 0098 | | .STRTAB 0x0098->0x05f7 ; "elaborated"
05ac 00a0 | | .STRTAB 0x00a0->0x05fc ; "Unhandled Exception traversing units of "
05ad 00c6 | | .STRTAB 0x00c6->0x0610 ; "Incompatibilities exist with units referenced by "
05ae 00f5 | | .STRTAB 0x00f5->0x0628 ; "..."
05af 00f6 | | .STRTAB 0x00f6->0x062a ; "is not an Ada unit"
05b0 0106 | | .STRTAB 0x0106->0x0633 ; "is not installed"
05b1 0114 | | .STRTAB 0x0114->0x063b ; "cannot be examined because of "
05b2 0130 | 0 | .STRTAB 0x0130->0x064a ; "is not coded"
05b3 013a | : | .STRTAB 0x013a->0x0650 ; " unit "
05b4 013e | > | .STRTAB 0x013e->0x0653 ; "imported"
05b5 0144 | D | .STRTAB 0x0144->0x0657 ; "doesn't define these required declarations..."
05b6 016f | o | .STRTAB 0x016f->0x066d ; "doesn't define all required declarations"
05b7 0195 | | .STRTAB 0x0195->0x0681 ; " is not accessible because "
05b8 01ae | | .STREND 0x01ae->0x068f
05b9 436f 6465 |Code| .STRTAB_STRINGS
068f 0000 | | .XXX[0x1]
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug Table
0690 ; --------------------------------------------------------------------------------------
0690 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa505,0x0000,0x0001,0x0000
0696 0000 0000 | | .BLANK 0000[0x16a]