|
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]