|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0688 | | .CONST 0x0688 ; 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 006c | l | .CONST 0x006c ; Address of begin 0009 00ee | | .CONST 0x00ee ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b e219 | | Load 0x1,0x19 000c 0322 | " | Declare_Variable Record 000d 00d8 | | Load_Top At_Offset_0 000e 1c00 | | Execute_Immediate Run_Utility,0x0 000f e218 | | Load 0x1,0x18 0010 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0011 e022 | " | Load 0x0,0x22 0012 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0013 02ff | | Declare_Variable Variant_Record 0014 00d8 | | Load_Top At_Offset_0 0015 1c00 | | Execute_Immediate Run_Utility,0x0 0016 e022 | " | Load 0x0,0x22 0017 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0018 e004 | | Load 0x0,0x4 0019 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001b 00e1 | | Load_Encached Boolean_Cache 001c e022 | " | Load 0x0,0x22 001d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 001e e004 | | Load 0x0,0x4 001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e03b | ; | Load 0x0,0x3b 0024 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0025 e03b | ; | Load 0x0,0x3b 0026 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0027 e03c | < | Load 0x0,0x3c 0028 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0029 00e2 | | Load_Encached Integer_Cache 002a 00e2 | | Load_Encached Integer_Cache 002b 00e2 | | Load_Encached Integer_Cache 002c 4801 |H | Short_Literal 0x1 002d 60f6 |` | Indirect_Literal Discrete,0x124,{0x00000000, 0x00000800} 002e 00e9 | | Load_Encached String_Cache 002f 035b | [ | Declare_Type Array,Constrained 0030 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0032 4804 |H | Short_Literal 0x4 0033 032d | - | Declare_Type Record,Defined 0034 00d8 | | Load_Top At_Offset_0 0035 0322 | " | Declare_Variable Record 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 003a 029f 019b | | Declare_Subprogram INIT_0198,For_Call 003c 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 003e 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0040 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0042 a03d | = | Store_Unchecked 0x0,0x3d 0043 00c6 | | Action Check_Subprogram_Elaborated 0044 e40d | | Load 0x2,0xd 0045 4800 |H | Short_Literal 0x0 0046 60dd |` | Indirect_Literal Discrete,0x124,{0x00000000, 0x00000800} 0047 480e |H | Short_Literal 0xe 0048 4803 |H | Short_Literal 0x3 0049 4810 |H | Short_Literal 0x10 004a 4802 |H | Short_Literal 0x2 004b 0099 | | Action Reference_Dynamic 004c 4811 |H | Short_Literal 0x11 004d 4802 |H | Short_Literal 0x2 004e 0099 | | Action Reference_Dynamic 004f 4812 |H | Short_Literal 0x12 0050 4802 |H | Short_Literal 0x2 0051 0099 | | Action Reference_Dynamic 0052 0093 0000 | | push_full_address 0x0 0054 60cb |` | Indirect_Literal Discrete,0x120,{0x80000000, 0x00020000} 0055 0273 | s | Execute Discrete,Plus 0056 e01b | | Load 0x0,0x1b 0057 0273 | s | Execute Discrete,Plus 0058 e03e | > | Load 0x0,0x3e 0059 0273 | s | Execute Discrete,Plus 005a 481d |H | Short_Literal 0x1d 005b 0007 | | Action Break_Optional 005c 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 005e 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0060 e022 | " | Load 0x0,0x22 0061 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0062 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0063 00c6 | | Action Check_Subprogram_Elaborated 0064 481f |H | Short_Literal 0x1f 0065 4802 |H | Short_Literal 0x2 0066 0099 | | Action Reference_Dynamic 0067 e03f | ? | Load 0x0,0x3f 0068 e040 | @ | Load 0x0,0x40 0069 4823 |H# | Short_Literal 0x23 006a 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 006c BODY_0008: 006c e402 | | Load 0x2,0x2 006d e5fd | | Load 0x2,-0x3 006e e5fe | | Load 0x2,-0x2 006f 8220 | | Call 0x1,0x20 0070 00d1 | | Pop_Control Pop_Count_1 0071 e402 | | Load 0x2,0x2 0072 0092 0598 | | Action Push_String_Extended,0x598 ; "Code_Views => " 0074 e5ff | | Load 0x2,-0x1 0075 01cc | | Execute Vector,Catenate 0076 0092 0599 | | Action Push_String_Extended,0x599 ; ", Response => " 0078 01cc | | Execute Vector,Catenate 0079 e5fd | | Load 0x2,-0x3 007a 01cc | | Execute Vector,Catenate 007b 0092 059a | | Action Push_String_Extended,0x59a ; "Code_Views" 007d e21a | | Load 0x1,0x1a 007e 180d | | Execute Package,Field_Execute,Field_Number 0xd 007f 00d1 | | Pop_Control Pop_Count_1 0080 e03b | ; | Load 0x0,0x3b 0081 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0082 4aeb |J | Short_Literal 0x2eb 0083 e041 | A | Load 0x0,0x41 0084 180d | | Execute Package,Field_Execute,Field_Number 0xd 0085 c40a | | Store 0x2,0xa 0086 e40a | | Load 0x2,0xa 0087 e042 | B | Load 0x0,0x42 0088 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0089 a40b | | Store_Unchecked 0x2,0xb 008a e402 | | Load 0x2,0x2 008b e5ff | | Load 0x2,-0x1 008c e21d | | Load 0x1,0x1d 008d 180e | | Execute Package,Field_Execute,Field_Number 0xe 008e 00d1 | | Pop_Control Pop_Count_1 008f e218 | | Load 0x1,0x18 0090 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0091 e018 | | Load 0x0,0x18 0092 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0093 e019 | | Load 0x0,0x19 0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0095 e402 | | Load 0x2,0x2 0096 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0097 e218 | | Load 0x1,0x18 0098 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0099 c403 | | Store 0x2,0x3 009a 00cf | | Action Mark_Auxiliary 009b 783d |x= | Jump 0xd9 009c e403 | | Load 0x2,0x3 009d e218 | | Load 0x1,0x18 009e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 009f e022 | " | Load 0x0,0x22 00a0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00a1 0162 | b | Execute Variant_Record,Check_In_Type 00a2 e404 | | Load 0x2,0x4 00a3 016d | m | Execute Variant_Record,Structure_Write 00a4 e402 | | Load 0x2,0x2 00a5 e409 | | Load 0x2,0x9 00a6 0120 | | Execute Any,Is_Value 00a7 6803 |h | Jump_Zero 0xab 00a8 e004 | | Load 0x0,0x4 00a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00aa 7801 |x | Jump 0xac 00ab e409 | | Load 0x2,0x9 00ac e404 | | Load 0x2,0x4 00ad e21c | | Load 0x1,0x1c 00ae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00af c409 | | Store 0x2,0x9 00b0 00d1 | | Pop_Control Pop_Count_1 00b1 e402 | | Load 0x2,0x2 00b2 e409 | | Load 0x2,0x9 00b3 0092 059b | | Action Push_String_Extended,0x59b ; "Checking" 00b5 e21b | | Load 0x1,0x1b 00b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b7 e21a | | Load 0x1,0x1a 00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b9 00d1 | | Pop_Control Pop_Count_1 00ba e022 | " | Load 0x0,0x22 00bb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bc e022 | " | Load 0x0,0x22 00bd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00be 4801 |H | Short_Literal 0x1 00bf e402 | | Load 0x2,0x2 00c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c1 e404 | | Load 0x2,0x4 00c2 e022 | " | Load 0x0,0x22 00c3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00c4 c408 | | Store 0x2,0x8 00c5 c405 | | Store 0x2,0x5 00c6 e405 | | Load 0x2,0x5 00c7 4801 |H | Short_Literal 0x1 00c8 4802 |H | Short_Literal 0x2 00c9 0262 | b | Execute Discrete,In_Range 00ca 7009 |p | Jump_Nonzero 0xd4 00cb 7800 |x | Jump 0xcc 00cc 8424 | $ | Call 0x2,0x24 00cd 00e1 | | Load_Encached Boolean_Cache 00ce e402 | | Load 0x2,0x2 00cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d0 e404 | | Load 0x2,0x4 00d1 e022 | " | Load 0x0,0x22 00d2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00d3 c407 | | Store 0x2,0x7 00d4 e403 | | Load 0x2,0x3 00d5 e218 | | Load 0x1,0x18 00d6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d7 c403 | | Store 0x2,0x3 00d8 00c9 | | Action Pop_Auxiliary_Loop 00d9 e403 | | Load 0x2,0x3 00da e218 | | Load 0x1,0x18 00db 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00dc 6fbf |o | Jump_Zero 0x9c 00dd 00ce | | Action Pop_Auxiliary 00de e402 | | Load 0x2,0x2 00df 0092 059a | | Action Push_String_Extended,0x59a ; "Code_Views" 00e1 e21a | | Load 0x1,0x1a 00e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e3 00d1 | | Pop_Control Pop_Count_1 00e4 e40a | | Load 0x2,0xa 00e5 e041 | A | Load 0x0,0x41 00e6 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e7 e402 | | Load 0x2,0x2 00e8 8221 | ! | Call 0x1,0x21 00e9 00d1 | | Pop_Control Pop_Count_1 00ea e402 | | Load 0x2,0x2 00eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ec a5fc | | Store_Unchecked 0x2,-0x4 00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ee TRAP_0008: 00ee e00a | | Load 0x0,0xa 00ef 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 00f0 010f | | Execute Exception,Equal 00f1 6808 |h | Jump_Zero 0xfa 00f2 e402 | | Load 0x2,0x2 00f3 0092 059a | | Action Push_String_Extended,0x59a ; "Code_Views" 00f5 e21a | | Load 0x1,0x1a 00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f7 00d1 | | Pop_Control Pop_Count_1 00f8 00d8 | | Load_Top At_Offset_0 00f9 0101 | | Execute Exception,Reraise 00fa e216 | | Load 0x1,0x16 00fb 010f | | Execute Exception,Equal 00fc 680f |h | Jump_Zero 0x10c 00fd e402 | | Load 0x2,0x2 00fe 0092 059a | | Action Push_String_Extended,0x59a ; "Code_Views" 0100 e21a | | Load 0x1,0x1a 0101 180e | | Execute Package,Field_Execute,Field_Number 0xe 0102 00d1 | | Pop_Control Pop_Count_1 0103 e40a | | Load 0x2,0xa 0104 e041 | A | Load 0x0,0x41 0105 180f | | Execute Package,Field_Execute,Field_Number 0xf 0106 e402 | | Load 0x2,0x2 0107 8221 | ! | Call 0x1,0x21 0108 00d1 | | Pop_Control Pop_Count_1 0109 4802 |H | Short_Literal 0x2 010a a5fc | | Store_Unchecked 0x2,-0x4 010b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010c e402 | | Load 0x2,0x2 010d 0092 059a | | Action Push_String_Extended,0x59a ; "Code_Views" 010f e21a | | Load 0x1,0x1a 0110 180e | | Execute Package,Field_Execute,Field_Number 0xe 0111 00d1 | | Pop_Control Pop_Count_1 0112 e402 | | Load 0x2,0x2 0113 e21a | | Load 0x1,0x1a 0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0115 00d1 | | Pop_Control Pop_Count_1 0116 e40a | | Load 0x2,0xa 0117 e041 | A | Load 0x0,0x41 0118 180f | | Execute Package,Field_Execute,Field_Number 0xf 0119 e402 | | Load 0x2,0x2 011a 8221 | ! | Call 0x1,0x21 011b 00d1 | | Pop_Control Pop_Count_1 011c 4802 |H | Short_Literal 0x2 011d a5fc | | Store_Unchecked 0x2,-0x4 011e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011f 0000 | | .XXX[0x1] 0120 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0124 0000 0000 | | .LITERAL {0x00000000, 0x00000800} 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 4601 |F | Jump_Case 0x2 012c 7801 |x | Jump 0x12e ; case 0x0 012d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 012e 4800 |H | Short_Literal 0x0 012f 00db | | Load_Top At_Offset_3 0130 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0131 4801 |H | Short_Literal 0x1 0132 00db | | Load_Top At_Offset_3 0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0134 4800 |H | Short_Literal 0x0 0135 00db | | Load_Top At_Offset_3 0136 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0137 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 0217 | | Execute Heap_Access,All_Reference 013d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 013e 681b |h | Jump_Zero 0x15a 013f 00da | | Load_Top At_Offset_2 0140 0217 | | Execute Heap_Access,All_Reference 0141 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0142 6810 |h | Jump_Zero 0x153 0143 00da | | Load_Top At_Offset_2 0144 00db | | Load_Top At_Offset_3 0145 0217 | | Execute Heap_Access,All_Reference 0146 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0147 0217 | | Execute Heap_Access,All_Reference 0148 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0149 021f | | Execute Heap_Access,Equal 014a 6808 |h | Jump_Zero 0x153 014b 00da | | Load_Top At_Offset_2 014c 0217 | | Execute Heap_Access,All_Reference 014d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 014e 0217 | | Execute Heap_Access,All_Reference 014f 0092 059c | | Action Push_String_Extended,0x59c ; "'body" 0151 01cc | | Execute Vector,Catenate 0152 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 0335 | 5 | Declare_Variable Array,Duplicate 0158 00cd | | Action Spare6_Action 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 00da | | Load_Top At_Offset_2 015b 0217 | | Execute Heap_Access,All_Reference 015c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015d 6821 |h! | Jump_Zero 0x17f 015e 00da | | Load_Top At_Offset_2 015f 0217 | | Execute Heap_Access,All_Reference 0160 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0161 0217 | | Execute Heap_Access,All_Reference 0162 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0163 681b |h | Jump_Zero 0x17f 0164 00da | | Load_Top At_Offset_2 0165 00db | | Load_Top At_Offset_3 0166 0217 | | Execute Heap_Access,All_Reference 0167 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0168 0217 | | Execute Heap_Access,All_Reference 0169 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016a 021f | | Execute Heap_Access,Equal 016b 680a |h | Jump_Zero 0x176 016c 00da | | Load_Top At_Offset_2 016d 0217 | | Execute Heap_Access,All_Reference 016e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016f 0217 | | Execute Heap_Access,All_Reference 0170 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0171 0217 | | Execute Heap_Access,All_Reference 0172 0092 059c | | Action Push_String_Extended,0x59c ; "'body" 0174 01cc | | Execute Vector,Catenate 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 00da | | Load_Top At_Offset_2 0177 0217 | | Execute Heap_Access,All_Reference 0178 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0179 0217 | | Execute Heap_Access,All_Reference 017a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 017b 0217 | | Execute Heap_Access,All_Reference 017c 0335 | 5 | Declare_Variable Array,Duplicate 017d 00cd | | Action Spare6_Action 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 00da | | Load_Top At_Offset_2 0180 0217 | | Execute Heap_Access,All_Reference 0181 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0182 680b |h | Jump_Zero 0x18e 0183 00da | | Load_Top At_Offset_2 0184 00db | | Load_Top At_Offset_3 0185 0217 | | Execute Heap_Access,All_Reference 0186 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0187 0217 | | Execute Heap_Access,All_Reference 0188 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0189 021f | | Execute Heap_Access,Equal 018a 6803 |h | Jump_Zero 0x18e 018b 0092 059d | | Action Push_String_Extended,0x59d ; "<ANONYMOUS>'body" 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0092 059e | | Action Push_String_Extended,0x59e ; "<ANONYMOUS>" 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019d 0f01 | | Execute_Immediate Equal,0x1 019e 681a |h | Jump_Zero 0x1b9 019f e402 | | Load 0x2,0x2 01a0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a1 4807 |H | Short_Literal 0x7 01a2 4801 |H | Short_Literal 0x1 01a3 e7ff | | Load 0x3,-0x1 01a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a5 e7ff | | Load 0x3,-0x1 01a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01a7 01cf | | Execute Vector,Slice_Read 01a8 0092 059f | | Action Push_String_Extended,0x59f ; " (declaration #" 01aa 01cc | | Execute Vector,Catenate 01ab 4820 |H | Short_Literal 0x20 01ac 4800 |H | Short_Literal 0x0 01ad 480a |H | Short_Literal 0xa 01ae e7ff | | Load 0x3,-0x1 01af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b0 e010 | | Load 0x0,0x10 01b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b2 01cc | | Execute Vector,Catenate 01b3 0092 05a0 | | Action Push_String_Extended,0x5a0 ; ") is not defined" 01b5 01cc | | Execute Vector,Catenate 01b6 e00d | | Load 0x0,0xd 01b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b8 780b |x | Jump 0x1c4 01b9 e402 | | Load 0x2,0x2 01ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01bb 4801 |H | Short_Literal 0x1 01bc 4801 |H | Short_Literal 0x1 01bd e7ff | | Load 0x3,-0x1 01be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01bf e7ff | | Load 0x3,-0x1 01c0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01c1 01cf | | Execute Vector,Slice_Read 01c2 e00d | | Load 0x0,0xd 01c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c4 00da | | Load_Top At_Offset_2 01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c6 0a01 | | Execute_Immediate Plus,0x1 01c7 00db | | Load_Top At_Offset_3 01c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c9 4800 |H | Short_Literal 0x0 01ca 00db | | Load_Top At_Offset_3 01cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00db | | Load_Top At_Offset_3 01d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d5 0a01 | | Execute_Immediate Plus,0x1 01d6 e7fe | | Load 0x3,-0x2 01d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d8 00da | | Load_Top At_Offset_2 01d9 e7fe | | Load 0x3,-0x2 01da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01db e7fe | | Load 0x3,-0x2 01dc 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01dd 01d6 | | Execute Vector,Field_Write 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e7fe | | Load 0x3,-0x2 01e5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e6 0a01 | | Execute_Immediate Plus,0x1 01e7 00d8 | | Load_Top At_Offset_0 01e8 00e2 | | Load_Encached Integer_Cache 01e9 0260 | ` | Execute Discrete,In_Type 01ea 7001 |p | Jump_Nonzero 0x1ec 01eb 0801 | | Execute_Immediate Raise,0x1 01ec e7fe | | Load 0x3,-0x2 01ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ee e7ff | | Load 0x3,-0x1 01ef 01db | | Execute Vector,Length 01f0 0273 | s | Execute Discrete,Plus 01f1 00d8 | | Load_Top At_Offset_0 01f2 00e2 | | Load_Encached Integer_Cache 01f3 0260 | ` | Execute Discrete,In_Type 01f4 7001 |p | Jump_Nonzero 0x1f6 01f5 0801 | | Execute_Immediate Raise,0x1 01f6 e7fe | | Load 0x3,-0x2 01f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01f8 01ce | | Execute Vector,Slice_Write 01f9 00db | | Load_Top At_Offset_3 01fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fb 00db | | Load_Top At_Offset_3 01fc 01db | | Execute Vector,Length 01fd 0273 | s | Execute Discrete,Plus 01fe e7fe | | Load 0x3,-0x2 01ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0200 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0245 | E | .CONST 0x0245 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0005 | | .CONST 0x0005 ; Number of locals 020b INIT_0208: 020b e00a | | Load 0x0,0xa 020c 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 020d 0266 | f | Execute Discrete,Bounds 020e 00e2 | | Load_Encached Integer_Cache 020f 02a0 | | Declare_Subprogram Null_Subprogram 0210 4801 |H | Short_Literal 0x1 0211 035d | ] | Declare_Type Array,Defined 0212 00d8 | | Load_Top At_Offset_0 0213 0337 | 7 | Declare_Variable Array 0214 00d8 | | Load_Top At_Offset_0 0215 0335 | 5 | Declare_Variable Array,Duplicate 0216 00cd | | Action Spare6_Action 0217 4800 |H | Short_Literal 0x0 0218 4800 |H | Short_Literal 0x0 0219 00da | | Load_Top At_Offset_2 021a 01d6 | | Execute Vector,Field_Write 021b 4804 |H | Short_Literal 0x4 021c 4808 |H | Short_Literal 0x8 021d 00da | | Load_Top At_Offset_2 021e 01d6 | | Execute Vector,Field_Write 021f 4806 |H | Short_Literal 0x6 0220 4803 |H | Short_Literal 0x3 0221 00da | | Load_Top At_Offset_2 0222 01d6 | | Execute Vector,Field_Write 0223 4809 |H | Short_Literal 0x9 0224 4802 |H | Short_Literal 0x2 0225 00da | | Load_Top At_Offset_2 0226 01d6 | | Execute Vector,Field_Write 0227 4809 |H | Short_Literal 0x9 0228 4805 |H | Short_Literal 0x5 0229 00da | | Load_Top At_Offset_2 022a 01d6 | | Execute Vector,Field_Write 022b 4809 |H | Short_Literal 0x9 022c 4807 |H | Short_Literal 0x7 022d 00da | | Load_Top At_Offset_2 022e 01d6 | | Execute Vector,Field_Write 022f 480a |H | Short_Literal 0xa 0230 4806 |H | Short_Literal 0x6 0231 00da | | Load_Top At_Offset_2 0232 01d6 | | Execute Vector,Field_Write 0233 480c |H | Short_Literal 0xc 0234 4801 |H | Short_Literal 0x1 0235 00da | | Load_Top At_Offset_2 0236 01d6 | | Execute Vector,Field_Write 0237 4813 |H | Short_Literal 0x13 0238 4804 |H | Short_Literal 0x4 0239 00da | | Load_Top At_Offset_2 023a 01d6 | | Execute Vector,Field_Write 023b 00d9 | | Load_Top At_Offset_1 023c 01d4 | | Execute Vector,Structure_Write 023d e7ff | | Load 0x3,-0x1 023e e00a | | Load 0x0,0xa 023f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0240 e7ff | | Load 0x3,-0x1 0241 e00a | | Load 0x0,0xa 0242 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0243 00e2 | | Load_Encached Integer_Cache 0244 03f1 | | Declare_Variable Discrete,With_Value 0245 BODY_0208: 0245 00cf | | Action Mark_Auxiliary 0246 00da | | Load_Top At_Offset_2 0247 01d9 | | Execute Vector,Reverse_Bounds 0248 0007 | | Action Break_Optional 0249 00db | | Load_Top At_Offset_3 024a 00d9 | | Load_Top At_Offset_1 024b e604 | | Load 0x3,0x4 024c 01d7 | | Execute Vector,Field_Read 024d e603 | | Load 0x3,0x3 024e 01d7 | | Execute Vector,Field_Read 024f 0272 | r | Execute Discrete,Minus 0250 c605 | | Store 0x3,0x5 0251 00c8 | | Action Pop_Auxiliary_Range 0252 3ff6 |? | Loop_Increasing 0x249 0253 00ce | | Action Pop_Auxiliary 0254 00d8 | | Load_Top At_Offset_0 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0273 | s | .CONST 0x0273 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 000c | | .CONST 0x000c ; Number of locals 025b INIT_0258: 025b 487f |H | Short_Literal 0x7f 025c e40a | | Load 0x2,0xa 025d e03c | < | Load 0x0,0x3c 025e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 025f 00db | | Load_Top At_Offset_3 0260 840f | | Call 0x2,0xf 0261 00e1 | | Load_Encached Boolean_Cache 0262 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0263 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 0265 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0267 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0269 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 026b 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 026d 029f 041b | | Declare_Subprogram INIT_0418,For_Call 026f 029f 045b | [| Declare_Subprogram INIT_0458,For_Call 0271 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0273 BODY_0258: 0273 e402 | | Load 0x2,0x2 0274 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Checking " 0276 e603 | | Load 0x3,0x3 0277 01cc | | Execute Vector,Catenate 0278 e21a | | Load 0x1,0x1a 0279 180f | | Execute Package,Field_Execute,Field_Number 0xf 027a 00d1 | | Pop_Control Pop_Count_1 027b 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "withed" 027d e7ff | | Load 0x3,-0x1 027e 0217 | | Execute Heap_Access,All_Reference 027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0280 0217 | | Execute Heap_Access,All_Reference 0281 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0282 860b | | Call 0x3,0xb 0283 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "elaborated" 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 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 028a 860b | | Call 0x3,0xb 028b e7ff | | Load 0x3,-0x1 028c 0217 | | Execute Heap_Access,All_Reference 028d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 028e 0217 | | Execute Heap_Access,All_Reference 028f 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0290 860c | | Call 0x3,0xc 0291 e40b | | Load 0x2,0xb 0292 e40a | | Load 0x2,0xa 0293 e042 | B | Load 0x0,0x42 0294 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0295 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029f | | .CONST 0x029f ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 0217 | | Execute Heap_Access,All_Reference 029d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029e 0007 | | Action Break_Optional 029f BODY_0298: 029f 00d8 | | Load_Top At_Offset_0 02a0 0217 | | Execute Heap_Access,All_Reference 02a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a2 7016 |p | Jump_Nonzero 0x2b9 02a3 00d8 | | Load_Top At_Offset_0 02a4 0217 | | Execute Heap_Access,All_Reference 02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a6 6812 |h | Jump_Zero 0x2b9 02a7 00d8 | | Load_Top At_Offset_0 02a8 0217 | | Execute Heap_Access,All_Reference 02a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02aa 0217 | | Execute Heap_Access,All_Reference 02ab 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 02ac 700c |p | Jump_Nonzero 0x2b9 02ad 00d8 | | Load_Top At_Offset_0 02ae 841e | | Call 0x2,0x1e 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b4 0031 | 1 | Store_Top Heap_Access,At_Offset_1 02b5 00d8 | | Load_Top At_Offset_0 02b6 6802 |h | Jump_Zero 0x2b9 02b7 00d8 | | Load_Top At_Offset_0 02b8 841e | | Call 0x2,0x1e 02b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ba 0000 0000 | | .BLANK 0000[0x6] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 02d1 | | .CONST 0x02d1 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e408 | | Load 0x2,0x8 02c4 0219 | | Execute Heap_Access,All_Read 02c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c6 00d8 | | Load_Top At_Offset_0 02c7 4820 |H | Short_Literal 0x20 02c8 4802 |H | Short_Literal 0x2 02c9 0099 | | Action Reference_Dynamic 02ca 4821 |H! | Short_Literal 0x21 02cb 4802 |H | Short_Literal 0x2 02cc 0099 | | Action Reference_Dynamic 02cd e022 | " | Load 0x0,0x22 02ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02cf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d1 TRAP_02c0: 02d1 e216 | | Load 0x1,0x16 02d2 010f | | Execute Exception,Equal 02d3 6801 |h | Jump_Zero 0x2d5 02d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d5 e402 | | Load 0x2,0x2 02d6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02d7 4808 |H | Short_Literal 0x8 02d8 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Unhandled Exception traversing units of " 02da e409 | | Load 0x2,0x9 02db e004 | | Load 0x0,0x4 02dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02dd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02de 01cc | | Execute Vector,Catenate 02df e00d | | Load 0x0,0xd 02e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e604 | | Load 0x3,0x4 02ec 700e |p | Jump_Nonzero 0x2fb 02ed e402 | | Load 0x2,0x2 02ee 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ef 4807 |H | Short_Literal 0x7 02f0 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Incompatibilities exist with units referenced by " 02f2 e603 | | Load 0x3,0x3 02f3 01cc | | Execute Vector,Catenate 02f4 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "..." 02f6 01cc | | Execute Vector,Catenate 02f7 e00d | | Load 0x0,0xd 02f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f9 4801 |H | Short_Literal 0x1 02fa a604 | | Store_Unchecked 0x3,0x4 02fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 031c | | .CONST 0x031c ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0007 | | .CONST 0x0007 ; Number of locals 0303 INIT_0300: 0303 e02b | + | Load 0x0,0x2b 0304 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0305 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0306 02c7 | | Declare_Variable Any 0307 00d8 | | Load_Top At_Offset_0 0308 1c00 | | Execute_Immediate Run_Utility,0x0 0309 e02b | + | Load 0x0,0x2b 030a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 030b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030c 02c7 | | Declare_Variable Any 030d 00d8 | | Load_Top At_Offset_0 030e 1c00 | | Execute_Immediate Run_Utility,0x0 030f e02b | + | Load 0x0,0x2b 0310 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0311 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0312 02c7 | | Declare_Variable Any 0313 00d8 | | Load_Top At_Offset_0 0314 1c00 | | Execute_Immediate Run_Utility,0x0 0315 e02b | + | Load 0x0,0x2b 0316 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0317 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0318 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 031a 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 031c BODY_0300: 031c 00be | | Action Activate_Tasks 031d 8806 | | Call 0x4,0x6 031e e402 | | Load 0x2,0x2 031f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0320 4807 |H | Short_Literal 0x7 0321 e00a | | Load 0x0,0xa 0322 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0323 6801 |h | Jump_Zero 0x325 0324 8807 | | Call 0x4,0x7 0325 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 033c | < | .CONST 0x033c ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0005 | | .CONST 0x0005 ; Number of locals 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e02b | + | Load 0x0,0x2b 032d 180f | | Execute Package,Field_Execute,Field_Number 0xf 032e e9fd | | Load 0x4,-0x3 032f 0217 | | Execute Heap_Access,All_Reference 0330 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0331 0217 | | Execute Heap_Access,All_Reference 0332 0007 | | Action Break_Optional 0333 00d8 | | Load_Top At_Offset_0 0334 01da | | Execute Vector,Bounds 0335 49a3 |I | Short_Literal 0x1a3 0336 00eb | | Load_Encached Diana_Cache 0337 0098 | | Execute Package,Field_Read_Dynamic 0338 035b | [ | Declare_Type Array,Constrained 0339 0337 | 7 | Declare_Variable Array 033a 00e1 | | Load_Encached Boolean_Cache 033b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 033c BODY_0328: 033c 00cf | | Action Mark_Auxiliary 033d 00db | | Load_Top At_Offset_3 033e 01d9 | | Execute Vector,Reverse_Bounds 033f 0263 | c | Execute Discrete,Above_Bound 0340 701c |p | Jump_Nonzero 0x35d 0341 00d8 | | Load_Top At_Offset_0 0342 e803 | | Load 0x4,0x3 0343 01d7 | | Execute Vector,Field_Read 0344 6812 |h | Jump_Zero 0x357 0345 00d8 | | Load_Top At_Offset_0 0346 e802 | | Load 0x4,0x2 0347 01da | | Execute Vector,Bounds 0348 0262 | b | Execute Discrete,In_Range 0349 6804 |h | Jump_Zero 0x34e 034a 00d8 | | Load_Top At_Offset_0 034b e802 | | Load 0x4,0x2 034c 01d7 | | Execute Vector,Field_Read 034d 7801 |x | Jump 0x34f 034e 4800 |H | Short_Literal 0x0 034f 7007 |p | Jump_Nonzero 0x357 0350 4801 |H | Short_Literal 0x1 0351 00d9 | | Load_Top At_Offset_1 0352 e804 | | Load 0x4,0x4 0353 01d6 | | Execute Vector,Field_Write 0354 4801 |H | Short_Literal 0x1 0355 a805 | | Store_Unchecked 0x4,0x5 0356 7804 |x | Jump 0x35b 0357 4800 |H | Short_Literal 0x0 0358 00d9 | | Load_Top At_Offset_1 0359 e804 | | Load 0x4,0x4 035a 01d6 | | Execute Vector,Field_Write 035b 00c8 | | Action Pop_Auxiliary_Range 035c 3fe4 |? | Loop_Increasing 0x341 035d 00ce | | Action Pop_Auxiliary 035e 00d8 | | Load_Top At_Offset_0 035f 6803 |h | Jump_Zero 0x363 0360 00d9 | | Load_Top At_Offset_1 0361 e9fe | | Load 0x4,-0x2 0362 8606 | | Call 0x3,0x6 0363 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0364 0000 0000 | | .BLANK 0000[0x4] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0376 | v | .CONST 0x0376 ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0004 | | .CONST 0x0004 ; Number of locals 036b INIT_0368: 036b e004 | | Load 0x0,0x4 036c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 036d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 036e 02c7 | | Declare_Variable Any 036f 00d8 | | Load_Top At_Offset_0 0370 1c00 | | Execute_Immediate Run_Utility,0x0 0371 e004 | | Load 0x0,0x4 0372 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0373 e004 | | Load 0x0,0x4 0374 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0375 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0376 BODY_0368: 0376 e9ff | | Load 0x4,-0x1 0377 e21c | | Load 0x1,0x1c 0378 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0379 700e |p | Jump_Nonzero 0x388 037a e9fe | | Load 0x4,-0x2 037b 680b |h | Jump_Zero 0x387 037c 8605 | | Call 0x3,0x5 037d e402 | | Load 0x2,0x2 037e 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "is not an Ada unit" 0380 e9ff | | Load 0x4,-0x1 0381 e21b | | Load 0x1,0x1b 0382 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0383 e9ff | | Load 0x4,-0x1 0384 e21a | | Load 0x1,0x1a 0385 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0386 00d1 | | Pop_Control Pop_Count_1 0387 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0388 e402 | | Load 0x2,0x2 0389 e004 | | Load 0x0,0x4 038a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038c e9ff | | Load 0x4,-0x1 038d e21c | | Load 0x1,0x1c 038e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 038f 005a | Z | Store_Top Discrete,At_Offset_2 0390 00d1 | | Pop_Control Pop_Count_1 0391 00d8 | | Load_Top At_Offset_0 0392 e21c | | Load 0x1,0x1c 0393 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0394 700e |p | Jump_Nonzero 0x3a3 0395 e9fe | | Load 0x4,-0x2 0396 680b |h | Jump_Zero 0x3a2 0397 8605 | | Call 0x3,0x5 0398 e402 | | Load 0x2,0x2 0399 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "is not installed" 039b e9ff | | Load 0x4,-0x1 039c e21b | | Load 0x1,0x1b 039d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039e e9ff | | Load 0x4,-0x1 039f e21a | | Load 0x1,0x1a 03a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03a1 00d1 | | Pop_Control Pop_Count_1 03a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a3 e004 | | Load 0x0,0x4 03a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a5 00db | | Load_Top At_Offset_3 03a6 0120 | | Execute Any,Is_Value 03a7 6804 |h | Jump_Zero 0x3ac 03a8 e004 | | Load 0x0,0x4 03a9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03aa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 03ab 7801 |x | Jump 0x3ad 03ac 00db | | Load_Top At_Offset_3 03ad e004 | | Load 0x0,0x4 03ae 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03af 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03b0 603b |`; | Indirect_Literal Discrete,0x3ec,{0x00000000, 0x00004000} 03b1 4801 |H | Short_Literal 0x1 03b2 4800 |H | Short_Literal 0x0 03b3 4800 |H | Short_Literal 0x0 03b4 e402 | | Load 0x2,0x2 03b5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b6 4801 |H | Short_Literal 0x1 03b7 e9ff | | Load 0x4,-0x1 03b8 e004 | | Load 0x0,0x4 03b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03bb e004 | | Load 0x0,0x4 03bc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03bd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03be c9fd | | Store 0x4,-0x3 03bf c802 | | Store 0x4,0x2 03c0 005a | Z | Store_Top Discrete,At_Offset_2 03c1 00d9 | | Load_Top At_Offset_1 03c2 e21c | | Load 0x1,0x1c 03c3 180d | | Execute Package,Field_Execute,Field_Number 0xd 03c4 7016 |p | Jump_Nonzero 0x3db 03c5 e9fe | | Load 0x4,-0x2 03c6 6811 |h | Jump_Zero 0x3d8 03c7 8605 | | Call 0x3,0x5 03c8 e402 | | Load 0x2,0x2 03c9 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "cannot be examined because of " 03cb 00db | | Load_Top At_Offset_3 03cc e004 | | Load 0x0,0x4 03cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ce 011c | | Execute Any,Convert_Unchecked 03cf 1c01 | | Execute_Immediate Run_Utility,0x1 03d0 01cc | | Execute Vector,Catenate 03d1 e9ff | | Load 0x4,-0x1 03d2 e21b | | Load 0x1,0x1b 03d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d4 e9ff | | Load 0x4,-0x1 03d5 e21a | | Load 0x1,0x1a 03d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03d7 00d1 | | Pop_Control Pop_Count_1 03d8 00ec | | Load_Encached Diana_Tree_Cache 03d9 a9fd | | Store_Unchecked 0x4,-0x3 03da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03db 00d8 | | Load_Top At_Offset_0 03dc e21c | | Load 0x1,0x1c 03dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03de 7009 |p | Jump_Nonzero 0x3e8 03df e402 | | Load 0x2,0x2 03e0 0092 05aa | | Action Push_String_Extended,0x5aa ; "is not coded" 03e2 e9ff | | Load 0x4,-0x1 03e3 e21b | | Load 0x1,0x1b 03e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e5 e21a | | Load 0x1,0x1a 03e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e7 00d1 | | Pop_Control Pop_Count_1 03e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03e9 0000 0000 | | .XXX[0x3] 03eb 0000 | | 03ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03fb | | .CONST 0x03fb ; Address of begin 03f1 0407 | | .CONST 0x0407 ; Address of exception handler 03f2 0004 | | .CONST 0x0004 ; Number of locals 03f3 INIT_03f0: 03f3 00ec | | Load_Encached Diana_Tree_Cache 03f4 e004 | | Load 0x0,0x4 03f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f6 02c7 | | Declare_Variable Any 03f7 00d8 | | Load_Top At_Offset_0 03f8 1c00 | | Execute_Immediate Run_Utility,0x0 03f9 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 03fb BODY_03f0: 03fb e9ff | | Load 0x4,-0x1 03fc 6805 |h | Jump_Zero 0x402 03fd e9ff | | Load 0x4,-0x1 03fe 0217 | | Execute Heap_Access,All_Reference 03ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0400 6801 |h | Jump_Zero 0x402 0401 8804 | | Call 0x4,0x4 0402 00da | | Load_Top At_Offset_2 0403 a9fe | | Store_Unchecked 0x4,-0x2 0404 00d9 | | Load_Top At_Offset_1 0405 c9fd | | Store 0x4,-0x3 0406 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0407 TRAP_03f0: 0407 e216 | | Load 0x1,0x16 0408 010f | | Execute Exception,Equal 0409 6806 |h | Jump_Zero 0x410 040a 00ec | | Load_Encached Diana_Tree_Cache 040b a9fe | | Store_Unchecked 0x4,-0x2 040c e004 | | Load 0x0,0x4 040d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 040e c9fd | | Store 0x4,-0x3 040f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0410 0100 | | Execute Exception,Raise 0411 0000 0000 | | .BLANK 0000[0x7] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0425 | % | .CONST 0x0425 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0005 | | .CONST 0x0005 ; Number of locals 041b INIT_0418: 041b 00ec | | Load_Encached Diana_Tree_Cache 041c e004 | | Load 0x0,0x4 041d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 041e 02c7 | | Declare_Variable Any 041f 00d8 | | Load_Top At_Offset_0 0420 1c00 | | Execute_Immediate Run_Utility,0x0 0421 e9ff | | Load 0x4,-0x1 0422 840f | | Call 0x2,0xf 0423 e03c | < | Load 0x0,0x3c 0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0425 BODY_0418: 0425 4800 |H | Short_Literal 0x0 0426 e602 | | Load 0x3,0x2 0427 00db | | Load_Top At_Offset_3 0428 e03c | < | Load 0x0,0x3c 0429 1816 | | Execute Package,Field_Execute,Field_Number 0x16 042a e03c | < | Load 0x0,0x3c 042b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 042c 6825 |h% | Jump_Zero 0x452 042d 4800 |H | Short_Literal 0x0 042e e602 | | Load 0x3,0x2 042f 00db | | Load_Top At_Offset_3 0430 e03c | < | Load 0x0,0x3c 0431 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0432 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0433 00da | | Load_Top At_Offset_2 0434 0120 | | Execute Any,Is_Value 0435 6803 |h | Jump_Zero 0x439 0436 e004 | | Load 0x0,0x4 0437 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0438 7801 |x | Jump 0x43a 0439 00da | | Load_Top At_Offset_2 043a 00ec | | Load_Encached Diana_Tree_Cache 043b e9ff | | Load 0x4,-0x1 043c 8609 | | Call 0x3,0x9 043d c802 | | Store 0x4,0x2 043e c803 | | Store 0x4,0x3 043f 00db | | Load_Top At_Offset_3 0440 6811 |h | Jump_Zero 0x452 0441 e402 | | Load 0x2,0x2 0442 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Checking " 0444 e9fe | | Load 0x4,-0x2 0445 01cc | | Execute Vector,Catenate 0446 0092 05ab | | Action Push_String_Extended,0x5ab ; " unit " 0448 01cc | | Execute Vector,Catenate 0449 00db | | Load_Top At_Offset_3 044a 01cc | | Execute Vector,Catenate 044b e21a | | Load 0x1,0x1a 044c 180f | | Execute Package,Field_Execute,Field_Number 0xf 044d 00d1 | | Pop_Control Pop_Count_1 044e e9ff | | Load 0x4,-0x1 044f 00db | | Load_Top At_Offset_3 0450 e802 | | Load 0x4,0x2 0451 8607 | | Call 0x3,0x7 0452 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0453 0000 0000 | | .BLANK 0000[0x5] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045c | \ | .CONST 0x045c ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0002 | | .CONST 0x0002 ; Number of locals 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c BODY_0458: 045c 00cf | | Action Mark_Auxiliary 045d 780a |x | Jump 0x468 045e e9fe | | Load 0x4,-0x2 045f 00da | | Load_Top At_Offset_2 0460 0217 | | Execute Heap_Access,All_Reference 0461 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0462 860a | | Call 0x3,0xa 0463 00d9 | | Load_Top At_Offset_1 0464 0217 | | Execute Heap_Access,All_Reference 0465 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0466 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0467 00c9 | | Action Pop_Auxiliary_Loop 0468 00d9 | | Load_Top At_Offset_1 0469 77f4 |w | Jump_Nonzero 0x45e 046a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 046b 0000 0000 | | .BLANK 0000[0x5] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0477 | w | .CONST 0x0477 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0003 | | .CONST 0x0003 ; Number of locals 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 0007 | | Action Break_Optional 0475 e043 | C | Load 0x0,0x43 0476 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0477 BODY_0470: 0477 00cf | | Action Mark_Auxiliary 0478 7813 |x | Jump 0x48c 0479 00da | | Load_Top At_Offset_2 047a 0217 | | Execute Heap_Access,All_Reference 047b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 047c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 047d 00d9 | | Load_Top At_Offset_1 047e 0217 | | Execute Heap_Access,All_Reference 047f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0480 6806 |h | Jump_Zero 0x487 0481 0092 05ac | | Action Push_String_Extended,0x5ac ; "imported" 0483 00da | | Load_Top At_Offset_2 0484 0217 | | Execute Heap_Access,All_Reference 0485 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0486 860a | | Call 0x3,0xa 0487 00da | | Load_Top At_Offset_2 0488 0217 | | Execute Heap_Access,All_Reference 0489 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 048a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 048b 00c9 | | Action Pop_Auxiliary_Loop 048c 00da | | Load_Top At_Offset_2 048d 77eb |w | Jump_Nonzero 0x479 048e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 048f 0000 | | .XXX[0x1] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 04b0 | | .CONST 0x04b0 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 8605 | | Call 0x3,0x5 0494 e402 | | Load 0x2,0x2 0495 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0496 4807 |H | Short_Literal 0x7 0497 e00a | | Load 0x0,0xa 0498 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0499 680b |h | Jump_Zero 0x4a5 049a e402 | | Load 0x2,0x2 049b 0092 05ad | | Action Push_String_Extended,0x5ad ; "doesn't define these required declarations..." 049d e9ff | | Load 0x4,-0x1 049e e21b | | Load 0x1,0x1b 049f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04a0 e9ff | | Load 0x4,-0x1 04a1 e21a | | Load 0x1,0x1a 04a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04a3 00d1 | | Pop_Control Pop_Count_1 04a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a5 e402 | | Load 0x2,0x2 04a6 0092 05ae | | Action Push_String_Extended,0x5ae ; "doesn't define all required declarations" 04a8 e9ff | | Load 0x4,-0x1 04a9 e21b | | Load 0x1,0x1b 04aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ab e9ff | | Load 0x4,-0x1 04ac e21a | | Load 0x1,0x1a 04ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04ae 00d1 | | Pop_Control Pop_Count_1 04af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b0 TRAP_0490: 04b0 e216 | | Load 0x1,0x16 04b1 010f | | Execute Exception,Equal 04b2 6801 |h | Jump_Zero 0x4b4 04b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b4 0100 | | Execute Exception,Raise 04b5 0000 0000 | | .XXX[0x3] 04b7 0000 | | 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0525 | % | .CONST 0x0525 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e803 | | Load 0x4,0x3 04bc 0120 | | Execute Any,Is_Value 04bd 6804 |h | Jump_Zero 0x4c2 04be e02b | + | Load 0x0,0x2b 04bf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04c1 7801 |x | Jump 0x4c3 04c2 e803 | | Load 0x4,0x3 04c3 e802 | | Load 0x4,0x2 04c4 4800 |H | Short_Literal 0x0 04c5 4800 |H | Short_Literal 0x0 04c6 e402 | | Load 0x2,0x2 04c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04c8 e9ff | | Load 0x4,-0x1 04c9 e02b | + | Load 0x0,0x2b 04ca 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04cc c802 | | Store 0x4,0x2 04cd c803 | | Store 0x4,0x3 04ce e804 | | Load 0x4,0x4 04cf e802 | | Load 0x4,0x2 04d0 e02b | + | Load 0x0,0x2b 04d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04d2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04d3 c804 | | Store 0x4,0x4 04d4 00cf | | Action Mark_Auxiliary 04d5 783a |x: | Jump 0x510 04d6 e804 | | Load 0x4,0x4 04d7 e02b | + | Load 0x0,0x2b 04d8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04da a805 | | Store_Unchecked 0x4,0x5 04db e805 | | Load 0x4,0x5 04dc e9fe | | Load 0x4,-0x2 04dd 01da | | Execute Vector,Bounds 04de 0262 | b | Execute Discrete,In_Range 04df 682a |h* | Jump_Zero 0x50a 04e0 e805 | | Load 0x4,0x5 04e1 e9fe | | Load 0x4,-0x2 04e2 01d7 | | Execute Vector,Field_Read 04e3 6826 |h& | Jump_Zero 0x50a 04e4 e805 | | Load 0x4,0x5 04e5 e40e | | Load 0x2,0xe 04e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04e7 4801 |H | Short_Literal 0x1 04e8 e40e | | Load 0x2,0xe 04e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04ea 4800 |H | Short_Literal 0x0 04eb e40e | | Load 0x2,0xe 04ec 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04ed e40e | | Load 0x2,0xe 04ee e402 | | Load 0x2,0x2 04ef 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04f0 4801 |H | Short_Literal 0x1 04f1 e00a | | Load 0x0,0xa 04f2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 04f3 e804 | | Load 0x4,0x4 04f4 e02b | + | Load 0x0,0x2b 04f5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04f7 e414 | | Load 0x2,0x14 04f8 e415 | | Load 0x2,0x15 04f9 e416 | | Load 0x2,0x16 04fa e417 | | Load 0x2,0x17 04fb e418 | | Load 0x2,0x18 04fc 4819 |H | Short_Literal 0x19 04fd 4802 |H | Short_Literal 0x2 04fe 0099 | | Action Reference_Dynamic 04ff 481a |H | Short_Literal 0x1a 0500 4802 |H | Short_Literal 0x2 0501 0099 | | Action Reference_Dynamic 0502 481b |H | Short_Literal 0x1b 0503 4802 |H | Short_Literal 0x2 0504 0099 | | Action Reference_Dynamic 0505 481c |H | Short_Literal 0x1c 0506 4802 |H | Short_Literal 0x2 0507 0099 | | Action Reference_Dynamic 0508 803d | = | Call 0x0,0x3d 0509 00d1 | | Pop_Control Pop_Count_1 050a e804 | | Load 0x4,0x4 050b e02b | + | Load 0x0,0x2b 050c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 050d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 050e c804 | | Store 0x4,0x4 050f 00c9 | | Action Pop_Auxiliary_Loop 0510 e804 | | Load 0x4,0x4 0511 e02b | + | Load 0x0,0x2b 0512 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0513 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0514 6fc1 |o | Jump_Zero 0x4d6 0515 00ce | | Action Pop_Auxiliary 0516 e803 | | Load 0x4,0x3 0517 0120 | | Execute Any,Is_Value 0518 6804 |h | Jump_Zero 0x51d 0519 e02b | + | Load 0x0,0x2b 051a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 051b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051c 7801 |x | Jump 0x51e 051d e803 | | Load 0x4,0x3 051e e802 | | Load 0x4,0x2 051f e02b | + | Load 0x0,0x2b 0520 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0521 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0522 c802 | | Store 0x4,0x2 0523 c803 | | Store 0x4,0x3 0524 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0525 TRAP_04b8: 0525 0007 | | Action Break_Optional 0526 e803 | | Load 0x4,0x3 0527 0120 | | Execute Any,Is_Value 0528 6804 |h | Jump_Zero 0x52d 0529 e02b | + | Load 0x0,0x2b 052a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 052b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 052c 7801 |x | Jump 0x52e 052d e803 | | Load 0x4,0x3 052e e802 | | Load 0x4,0x2 052f e02b | + | Load 0x0,0x2b 0530 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0531 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0532 c802 | | Store 0x4,0x2 0533 c803 | | Store 0x4,0x3 0534 00d8 | | Load_Top At_Offset_0 0535 0101 | | Execute Exception,Reraise 0536 0000 0000 | | .XXX[0x2] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 0540 | @ | .CONST 0x0540 ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0002 | | .CONST 0x0002 ; Number of locals 053b INIT_0538: 053b e9ff | | Load 0x4,-0x1 053c 0217 | | Execute Heap_Access,All_Reference 053d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 053e 0217 | | Execute Heap_Access,All_Reference 053f 0007 | | Action Break_Optional 0540 BODY_0538: 0540 e9ff | | Load 0x4,-0x1 0541 0217 | | Execute Heap_Access,All_Reference 0542 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0543 e004 | | Load 0x0,0x4 0544 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0545 180e | | Execute Package,Field_Execute,Field_Number 0xe 0546 c803 | | Store 0x4,0x3 0547 e803 | | Load 0x4,0x3 0548 e004 | | Load 0x0,0x4 0549 1811 | | Execute Package,Field_Execute,Field_Number 0x11 054a 7005 |p | Jump_Nonzero 0x550 054b 00ec | | Load_Encached Diana_Tree_Cache 054c 4800 |H | Short_Literal 0x0 054d e803 | | Load 0x4,0x3 054e 8608 | | Call 0x3,0x8 054f c802 | | Store 0x4,0x2 0550 e802 | | Load 0x4,0x2 0551 703f |p? | Jump_Nonzero 0x591 0552 e004 | | Load 0x0,0x4 0553 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0554 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0555 e803 | | Load 0x4,0x3 0556 0120 | | Execute Any,Is_Value 0557 6803 |h | Jump_Zero 0x55b 0558 e004 | | Load 0x0,0x4 0559 1b0f | | Execute Package,Field_Read,Field_Number 0xf 055a 7801 |x | Jump 0x55c 055b e803 | | Load 0x4,0x3 055c 6037 |`7 | Indirect_Literal Discrete,0x594,{0x00000000, 0x00004000} 055d e008 | | Load 0x0,0x8 055e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 055f e018 | | Load 0x0,0x18 0560 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0561 e004 | | Load 0x0,0x4 0562 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0563 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0564 ea02 | | Load 0x5,0x2 0565 e004 | | Load 0x0,0x4 0566 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0567 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0568 c803 | | Store 0x4,0x3 0569 c406 | | Store 0x2,0x6 056a e406 | | Load 0x2,0x6 056b e21c | | Load 0x1,0x1c 056c 180e | | Execute Package,Field_Execute,Field_Number 0xe 056d 701e |p | Jump_Nonzero 0x58c 056e 8605 | | Call 0x3,0x5 056f e402 | | Load 0x2,0x2 0570 00d9 | | Load_Top At_Offset_1 0571 0092 05af | | Action Push_String_Extended,0x5af ; " is not accessible because " 0573 01cc | | Execute Vector,Catenate 0574 601f |` | Indirect_Literal Discrete,0x594,{0x00000000, 0x00004000} 0575 e402 | | Load 0x2,0x2 0576 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0577 e018 | | Load 0x0,0x18 0578 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0579 e019 | | Load 0x0,0x19 057a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 057b 4801 |H | Short_Literal 0x1 057c 4800 |H | Short_Literal 0x0 057d e018 | | Load 0x0,0x18 057e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 057f e004 | | Load 0x0,0x4 0580 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0581 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0582 ea02 | | Load 0x5,0x2 0583 e406 | | Load 0x2,0x6 0584 e004 | | Load 0x0,0x4 0585 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0586 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0587 01cc | | Execute Vector,Catenate 0588 e803 | | Load 0x4,0x3 0589 e21a | | Load 0x1,0x1a 058a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 058b 00d1 | | Pop_Control Pop_Count_1 058c 00ec | | Load_Encached Diana_Tree_Cache 058d 4801 |H | Short_Literal 0x1 058e e803 | | Load 0x4,0x3 058f 8608 | | Call 0x3,0x8 0590 c802 | | Store 0x4,0x2 0591 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0592 0000 0000 | | .XXX[0x2] 0594 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0598 ; -------------------------------------------------------------------------------------- 0598 ; STRING TABLE 0598 ; -------------------------------------------------------------------------------------- 0598 0032 | 2 | .STRTAB 0x0032->0x05b1 ; "Code_Views => " 0599 003e | > | .STRTAB 0x003e->0x05b8 ; ", Response => " 059a 004a | J | .STRTAB 0x004a->0x05bf ; "Code_Views" 059b 0052 | R | .STRTAB 0x0052->0x05c4 ; "Checking" 059c 0058 | X | .STRTAB 0x0058->0x05c8 ; "'body" 059d 005b | [ | .STRTAB 0x005b->0x05ca ; "<ANONYMOUS>'body" 059e 0069 | i | .STRTAB 0x0069->0x05d2 ; "<ANONYMOUS>" 059f 0072 | r | .STRTAB 0x0072->0x05d8 ; " (declaration #" 05a0 007f | | .STRTAB 0x007f->0x05df ; ") is not defined" 05a1 008d | | .STRTAB 0x008d->0x05e7 ; "Checking " 05a2 0094 | | .STRTAB 0x0094->0x05ec ; "withed" 05a3 0098 | | .STRTAB 0x0098->0x05ef ; "elaborated" 05a4 00a0 | | .STRTAB 0x00a0->0x05f4 ; "Unhandled Exception traversing units of " 05a5 00c6 | | .STRTAB 0x00c6->0x0608 ; "Incompatibilities exist with units referenced by " 05a6 00f5 | | .STRTAB 0x00f5->0x0620 ; "..." 05a7 00f6 | | .STRTAB 0x00f6->0x0622 ; "is not an Ada unit" 05a8 0106 | | .STRTAB 0x0106->0x062b ; "is not installed" 05a9 0114 | | .STRTAB 0x0114->0x0633 ; "cannot be examined because of " 05aa 0130 | 0 | .STRTAB 0x0130->0x0642 ; "is not coded" 05ab 013a | : | .STRTAB 0x013a->0x0648 ; " unit " 05ac 013e | > | .STRTAB 0x013e->0x064b ; "imported" 05ad 0144 | D | .STRTAB 0x0144->0x064f ; "doesn't define these required declarations..." 05ae 016f | o | .STRTAB 0x016f->0x0665 ; "doesn't define all required declarations" 05af 0195 | | .STRTAB 0x0195->0x0679 ; " is not accessible because " 05b0 01ae | | .STREND 0x01ae->0x0687 05b1 436f 6465 |Code| .STRTAB_STRINGS 0687 0000 | | .XXX[0x1] 0688 ; -------------------------------------------------------------------------------------- 0688 ; Debug Table 0688 ; -------------------------------------------------------------------------------------- 0688 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc057,0x0000,0x0001,0x0000 068e 0000 0000 | | .BLANK 0000[0x172]