|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0560 | ` | .CONST 0x0560 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0062 | b | .CONST 0x0062 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0019 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0023 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0025 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0027 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0029 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
002b 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
002d 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
002f 00bf | | Action Accept_Activation
0030 e003 | | Load 0x0,0x3
0031 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0032 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0033 e003 | | Load 0x0,0x3
0034 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0035 011e | | Execute Any,Convert
0036 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
0038 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
003a 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
003c 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003f 00c7 | | Action Elaborate_Subprogram
0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0041 00c7 | | Action Elaborate_Subprogram
0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0043 00c7 | | Action Elaborate_Subprogram
0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0045 00c7 | | Action Elaborate_Subprogram
0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0047 00c7 | | Action Elaborate_Subprogram
0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0049 00c7 | | Action Elaborate_Subprogram
004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004b 00c7 | | Action Elaborate_Subprogram
004c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004d 00c7 | | Action Elaborate_Subprogram
004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004f 00c7 | | Action Elaborate_Subprogram
0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0051 00c7 | | Action Elaborate_Subprogram
0052 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0053 00c7 | | Action Elaborate_Subprogram
0054 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0055 00c7 | | Action Elaborate_Subprogram
0056 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0061 00c7 | | Action Elaborate_Subprogram
0062 BODY_0008:
0062 00bc | | Action Signal_Activated
0063 00bb | | Action Signal_Completion
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 8222 | " | Call 0x1,0x22
006c 00da | | Load_Top At_Offset_2
006d 8004 | | Call 0x0,0x4
006e 6802 |h | Jump_Zero 0x71
006f 00da | | Load_Top At_Offset_2
0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0071 00da | | Load_Top At_Offset_2
0072 8005 | | Call 0x0,0x5
0073 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 8222 | " | Call 0x1,0x22
007c 00da | | Load_Top At_Offset_2
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 8006 | | Call 0x0,0x6
008d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0098 | | .CONST 0x0098 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e007 | | Load 0x0,0x7
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 BODY_0090:
0098 00d8 | | Load_Top At_Offset_0
0099 8008 | | Call 0x0,0x8
009a c402 | | Store 0x2,0x2
009b 4801 |H | Short_Literal 0x1
009c 00d9 | | Load_Top At_Offset_1
009d e007 | | Load 0x0,0x7
009e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009f 680b |h | Jump_Zero 0xab
00a0 4829 |H) | Short_Literal 0x29
00a1 0092 0471 | q| Action Push_String_Extended,0x471 ; "Unable to close opened Ada objects ("
00a3 00da | | Load_Top At_Offset_2
00a4 8009 | | Call 0x0,0x9
00a5 01cc | | Execute Vector,Catenate
00a6 01cb | | Execute Vector,Append
00a7 e00a | | Load 0x0,0xa
00a8 800b | | Call 0x0,0xb
00a9 e00c | | Load 0x0,0xc
00aa 0257 | W | Execute Discrete,Raise
00ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 800d | | Call 0x0,0xd
00b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd | | .CONST 0x00bd ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e00e | | Load 0x0,0xe
00bc 0322 | " | Declare_Variable Record
00bd BODY_00b8:
00bd 8222 | " | Call 0x1,0x22
00be 00db | | Load_Top At_Offset_3
00bf 7002 |p | Jump_Nonzero 0xc2
00c0 e00f | | Load 0x0,0xf
00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c2 4800 |H | Short_Literal 0x0
00c3 00d9 | | Load_Top At_Offset_1
00c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c5 00db | | Load_Top At_Offset_3
00c6 00d9 | | Load_Top At_Offset_1
00c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c8 00cf | | Action Mark_Auxiliary
00c9 7807 |x | Jump 0xd1
00ca 00d9 | | Load_Top At_Offset_1
00cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00cc 0217 | | Execute Heap_Access,All_Reference
00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ce 00da | | Load_Top At_Offset_2
00cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d0 00c9 | | Action Pop_Auxiliary_Loop
00d1 00d9 | | Load_Top At_Offset_1
00d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d3 00eb | | Load_Encached Diana_Cache
00d4 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
00d5 8010 | | Call 0x0,0x10
00d6 6ff3 |o | Jump_Zero 0xca
00d7 00ce | | Action Pop_Auxiliary
00d8 00d8 | | Load_Top At_Offset_0
00d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00da 00d9 | | Load_Top At_Offset_1
00db 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dc 00d8 | | Load_Top At_Offset_0
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e00e | | Load 0x0,0xe
00e4 0322 | " | Declare_Variable Record
00e5 BODY_00e0:
00e5 8222 | " | Call 0x1,0x22
00e6 00db | | Load_Top At_Offset_3
00e7 7002 |p | Jump_Nonzero 0xea
00e8 e00f | | Load 0x0,0xf
00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ea 4801 |H | Short_Literal 0x1
00eb 00d9 | | Load_Top At_Offset_1
00ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ed 00db | | Load_Top At_Offset_3
00ee 00d9 | | Load_Top At_Offset_1
00ef 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00f0 00cf | | Action Mark_Auxiliary
00f1 7807 |x | Jump 0xf9
00f2 00d9 | | Load_Top At_Offset_1
00f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f4 0217 | | Execute Heap_Access,All_Reference
00f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f6 00da | | Load_Top At_Offset_2
00f7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00f8 00c9 | | Action Pop_Auxiliary_Loop
00f9 00d9 | | Load_Top At_Offset_1
00fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00fb 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
00fc 8010 | | Call 0x0,0x10
00fd 6ff4 |o | Jump_Zero 0xf2
00fe 00ce | | Action Pop_Auxiliary
00ff 00d8 | | Load_Top At_Offset_0
0100 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0101 00d9 | | Load_Top At_Offset_1
0102 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0103 00d8 | | Load_Top At_Offset_0
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0117 | | .CONST 0x0117 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b e011 | | Load 0x0,0x11
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010e 02c7 | | Declare_Variable Any
010f 00d8 | | Load_Top At_Offset_0
0110 1c00 | | Execute_Immediate Run_Utility,0x0
0111 e011 | | Load 0x0,0x11
0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0113 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0114 02c7 | | Declare_Variable Any
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 BODY_0108:
0117 e5ff | | Load 0x2,-0x1
0118 8012 | | Call 0x0,0x12
0119 701a |p | Jump_Nonzero 0x134
011a 00d8 | | Load_Top At_Offset_0
011b 0120 | | Execute Any,Is_Value
011c 6804 |h | Jump_Zero 0x121
011d e011 | | Load 0x0,0x11
011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011f 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0120 7801 |x | Jump 0x122
0121 00d8 | | Load_Top At_Offset_0
0122 00da | | Load_Top At_Offset_2
0123 0120 | | Execute Any,Is_Value
0124 6804 |h | Jump_Zero 0x129
0125 e011 | | Load 0x0,0x11
0126 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0128 7801 |x | Jump 0x12a
0129 00da | | Load_Top At_Offset_2
012a e5ff | | Load 0x2,-0x1
012b e011 | | Load 0x0,0x11
012c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
012d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012e c402 | | Store 0x2,0x2
012f c403 | | Store 0x2,0x3
0130 00d8 | | Load_Top At_Offset_0
0131 8223 | # | Call 0x1,0x23
0132 00d9 | | Load_Top At_Offset_1
0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0134 0092 0472 | r| Action Push_String_Extended,0x472 ; " Element isn't A_Compilation_Unit"
0136 e00a | | Load 0x0,0xa
0137 800b | | Call 0x0,0xb
0138 e013 | | Load 0x0,0x13
0139 0257 | W | Execute Discrete,Raise
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0150 | P | .CONST 0x0150 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0004 | | .CONST 0x0004 ; Number of locals
0143 INIT_0140:
0143 00ec | | Load_Encached Diana_Tree_Cache
0144 e011 | | Load 0x0,0x11
0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0146 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0147 02c7 | | Declare_Variable Any
0148 00d8 | | Load_Top At_Offset_0
0149 1c00 | | Execute_Immediate Run_Utility,0x0
014a e011 | | Load 0x0,0x11
014b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 BODY_0140:
0150 8222 | " | Call 0x1,0x22
0151 e5fe | | Load 0x2,-0x2
0152 e014 | | Load 0x0,0x14
0153 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0154 012f | / | Execute Any,Equal
0155 7008 |p | Jump_Nonzero 0x15e
0156 e5fe | | Load 0x2,-0x2
0157 e011 | | Load 0x0,0x11
0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0159 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
015a 180d | | Execute Package,Field_Execute,Field_Number 0xd
015b e5fe | | Load 0x2,-0x2
015c 8210 | | Call 0x1,0x10
015d 7805 |x | Jump 0x163
015e 8015 | | Call 0x0,0x15
015f e011 | | Load 0x0,0x11
0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0161 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0162 180d | | Execute Package,Field_Execute,Field_Number 0xd
0163 00d9 | | Load_Top At_Offset_1
0164 0120 | | Execute Any,Is_Value
0165 6804 |h | Jump_Zero 0x16a
0166 e011 | | Load 0x0,0x11
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0169 7801 |x | Jump 0x16b
016a 00d9 | | Load_Top At_Offset_1
016b e011 | | Load 0x0,0x11
016c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
016d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016e 4801 |H | Short_Literal 0x1
016f e5ff | | Load 0x2,-0x1
0170 e011 | | Load 0x0,0x11
0171 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0172 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0173 c402 | | Store 0x2,0x2
0174 c403 | | Store 0x2,0x3
0175 00d8 | | Load_Top At_Offset_0
0176 0120 | | Execute Any,Is_Value
0177 6804 |h | Jump_Zero 0x17c
0178 e011 | | Load 0x0,0x11
0179 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
017b 7801 |x | Jump 0x17d
017c 00d8 | | Load_Top At_Offset_0
017d e5ff | | Load 0x2,-0x1
017e e011 | | Load 0x0,0x11
017f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0180 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0181 c404 | | Store 0x2,0x4
0182 00d9 | | Load_Top At_Offset_1
0183 8223 | # | Call 0x1,0x23
0184 00da | | Load_Top At_Offset_2
0185 8012 | | Call 0x0,0x12
0186 7002 |p | Jump_Nonzero 0x189
0187 00da | | Load_Top At_Offset_2
0188 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0189 0092 0473 | s| Action Push_String_Extended,0x473 ; "Object didn't resolve to A_Compilation_Unit"
018b e00a | | Load 0x0,0xa
018c 800b | | Call 0x0,0xb
018d e013 | | Load 0x0,0x13
018e 0257 | W | Execute Discrete,Raise
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0194 | | .CONST 0x0194 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 00f1 | | Load_Encached Diana_Temp_Seq
0194 BODY_0190:
0194 8222 | " | Call 0x1,0x22
0195 4801 |H | Short_Literal 0x1
0196 4801 |H | Short_Literal 0x1
0197 e016 | | Load 0x0,0x16
0198 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0199 e003 | | Load 0x0,0x3
019a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
019c 00ea | | Load_Encached Null_String_Cache
019d e5ff | | Load 0x2,-0x1
019e 8220 | | Call 0x1,0x20
019f e017 | | Load 0x0,0x17
01a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01a2 00d8 | | Load_Top At_Offset_0
01a3 7008 |p | Jump_Nonzero 0x1ac
01a4 00db | | Load_Top At_Offset_3
01a5 0092 0474 | t| Action Push_String_Extended,0x474 ; " is undefined"
01a7 01cc | | Execute Vector,Catenate
01a8 e00a | | Load 0x0,0xa
01a9 800b | | Call 0x0,0xb
01aa e00c | | Load 0x0,0xc
01ab 0257 | W | Execute Discrete,Raise
01ac 00d8 | | Load_Top At_Offset_0
01ad 0217 | | Execute Heap_Access,All_Reference
01ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01af 7004 |p | Jump_Nonzero 0x1b4
01b0 00d8 | | Load_Top At_Offset_0
01b1 0217 | | Execute Heap_Access,All_Reference
01b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 00db | | Load_Top At_Offset_3
01b5 0092 0475 | u| Action Push_String_Extended,0x475 ; " is ambiguous"
01b7 01cc | | Execute Vector,Catenate
01b8 e00a | | Load 0x0,0xa
01b9 800b | | Call 0x0,0xb
01ba e00c | | Load 0x0,0xc
01bb 0257 | W | Execute Discrete,Raise
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e018 | | Load 0x0,0x18
01c4 0322 | " | Declare_Variable Record
01c5 BODY_01c0:
01c5 8222 | " | Call 0x1,0x22
01c6 e5fd | | Load 0x2,-0x3
01c7 e5fe | | Load 0x2,-0x2
01c8 e016 | | Load 0x0,0x16
01c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ca e003 | | Load 0x0,0x3
01cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cd 00ea | | Load_Encached Null_String_Cache
01ce e5ff | | Load 0x2,-0x1
01cf 8220 | | Call 0x1,0x20
01d0 e017 | | Load 0x0,0x17
01d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d2 00d9 | | Load_Top At_Offset_1
01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d4 00d8 | | Load_Top At_Offset_0
01d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d6 00d9 | | Load_Top At_Offset_1
01d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d8 00d8 | | Load_Top At_Offset_0
01d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01da 4975 |Iu | Short_Literal 0x175
01db 00eb | | Load_Encached Diana_Cache
01dc 0098 | | Execute Package,Field_Read_Dynamic
01dd 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01de 00d9 | | Load_Top At_Offset_1
01df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e0 00d8 | | Load_Top At_Offset_0
01e1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ec | | .CONST 0x01ec ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb 00ec | | Load_Encached Diana_Tree_Cache
01ec BODY_01e8:
01ec 00db | | Load_Top At_Offset_3
01ed 4976 |Iv | Short_Literal 0x176
01ee 00eb | | Load_Encached Diana_Cache
01ef 0098 | | Execute Package,Field_Read_Dynamic
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01f2 00d8 | | Load_Top At_Offset_0
01f3 e003 | | Load 0x0,0x3
01f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0202 | | .CONST 0x0202 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e019 | | Load 0x0,0x19
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 02c7 | | Declare_Variable Any
01fe 00d8 | | Load_Top At_Offset_0
01ff 1c00 | | Execute_Immediate Run_Utility,0x0
0200 e003 | | Load 0x0,0x3
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 BODY_01f8:
0202 e5ff | | Load 0x2,-0x1
0203 7006 |p | Jump_Nonzero 0x20a
0204 0092 0476 | v| Action Push_String_Extended,0x476 ; "The_Element was nil"
0206 e00a | | Load 0x0,0xa
0207 800b | | Call 0x0,0xb
0208 e013 | | Load 0x0,0x13
0209 0257 | W | Execute Discrete,Raise
020a 00d8 | | Load_Top At_Offset_0
020b 00da | | Load_Top At_Offset_2
020c e5ff | | Load 0x2,-0x1
020d 801a | | Call 0x0,0x1a
020e c402 | | Store 0x2,0x2
020f 0059 | Y | Store_Top Discrete,At_Offset_1
0210 00d8 | | Load_Top At_Offset_0
0211 801b | | Call 0x0,0x1b
0212 00d9 | | Load_Top At_Offset_1
0213 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225 | % | .CONST 0x0225 ; Address of begin
0219 024b | K | .CONST 0x024b ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e003 | | Load 0x0,0x3
021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021d e003 | | Load 0x0,0x3
021e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0220 02c7 | | Declare_Variable Any
0221 00d8 | | Load_Top At_Offset_0
0222 1c00 | | Execute_Immediate Run_Utility,0x0
0223 e5ff | | Load 0x2,-0x1
0224 0007 | | Action Break_Optional
0225 BODY_0218:
0225 e5ff | | Load 0x2,-0x1
0226 801c | | Call 0x0,0x1c
0227 6807 |h | Jump_Zero 0x22f
0228 4801 |H | Short_Literal 0x1
0229 00e2 | | Load_Encached Integer_Cache
022a 00d9 | | Load_Top At_Offset_1
022b 0267 | g | Execute Discrete,Predecessor
022c 00e9 | | Load_Encached String_Cache
022d 0334 | 4 | Declare_Variable Array,With_Constraint
022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022f e003 | | Load 0x0,0x3
0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0231 00da | | Load_Top At_Offset_2
0232 0120 | | Execute Any,Is_Value
0233 6804 |h | Jump_Zero 0x238
0234 e003 | | Load 0x0,0x3
0235 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0236 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0237 7801 |x | Jump 0x239
0238 00da | | Load_Top At_Offset_2
0239 00da | | Load_Top At_Offset_2
023a e003 | | Load 0x0,0x3
023b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
023c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023d c403 | | Store 0x2,0x3
023e 005b | [ | Store_Top Discrete,At_Offset_3
023f 00da | | Load_Top At_Offset_2
0240 801b | | Call 0x0,0x1b
0241 e5fe | | Load 0x2,-0x2
0242 00da | | Load_Top At_Offset_2
0243 e003 | | Load 0x0,0x3
0244 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0245 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0246 801d | | Call 0x0,0x1d
0247 00d9 | | Load_Top At_Offset_1
0248 801e | | Call 0x0,0x1e
0249 01cc | | Execute Vector,Catenate
024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024b TRAP_0218:
024b 0007 | | Action Break_Optional
024c e5fe | | Load 0x2,-0x2
024d 0092 0477 | w| Action Push_String_Extended,0x477 ; " is not acceptable"
024f 01cc | | Execute Vector,Catenate
0250 e00a | | Load 0x0,0xa
0251 800b | | Call 0x0,0xb
0252 e013 | | Load 0x0,0x13
0253 0257 | W | Execute Discrete,Raise
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 026f | o | .CONST 0x026f ; Address of begin
0259 02f3 | | .CONST 0x02f3 ; Address of exception handler
025a 0009 | | .CONST 0x0009 ; Number of locals
025b INIT_0258:
025b 00ec | | Load_Encached Diana_Tree_Cache
025c 00ec | | Load_Encached Diana_Tree_Cache
025d e003 | | Load 0x0,0x3
025e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025f 02c7 | | Declare_Variable Any
0260 00d8 | | Load_Top At_Offset_0
0261 1c00 | | Execute_Immediate Run_Utility,0x0
0262 00e3 | | Load_Encached Natural_Cache
0263 00e3 | | Load_Encached Natural_Cache
0264 e003 | | Load 0x0,0x3
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 e003 | | Load 0x0,0x3
0267 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0268 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0269 02c7 | | Declare_Variable Any
026a 00d8 | | Load_Top At_Offset_0
026b 1c00 | | Execute_Immediate Run_Utility,0x0
026c e5ff | | Load 0x2,-0x1
026d 0335 | 5 | Declare_Variable Array,Duplicate
026e 00cd | | Action Spare6_Action
026f BODY_0258:
026f 8222 | " | Call 0x1,0x22
0270 e5fc | | Load 0x2,-0x4
0271 e007 | | Load 0x0,0x7
0272 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0273 c5fc | | Store 0x2,-0x4
0274 e01f | | Load 0x0,0x1f
0275 a5fd | | Store_Unchecked 0x2,-0x3
0276 00d8 | | Load_Top At_Offset_0
0277 01db | | Execute Vector,Length
0278 7001 |p | Jump_Nonzero 0x27a
0279 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027a e5fc | | Load 0x2,-0x4
027b 00e3 | | Load_Encached Natural_Cache
027c 00e3 | | Load_Encached Natural_Cache
027d e404 | | Load 0x2,0x4
027e 0120 | | Execute Any,Is_Value
027f 6803 |h | Jump_Zero 0x283
0280 e003 | | Load 0x0,0x3
0281 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0282 7801 |x | Jump 0x284
0283 e404 | | Load 0x2,0x4
0284 e5fe | | Load 0x2,-0x2
0285 e409 | | Load 0x2,0x9
0286 8020 | | Call 0x0,0x20
0287 c404 | | Store 0x2,0x4
0288 c406 | | Store 0x2,0x6
0289 c405 | | Store 0x2,0x5
028a c5fc | | Store 0x2,-0x4
028b 4801 |H | Short_Literal 0x1
028c e5fc | | Load 0x2,-0x4
028d e007 | | Load 0x0,0x7
028e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
028f 6801 |h | Jump_Zero 0x291
0290 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0291 e003 | | Load 0x0,0x3
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 00da | | Load_Top At_Offset_2
0294 0120 | | Execute Any,Is_Value
0295 6804 |h | Jump_Zero 0x29a
0296 e003 | | Load 0x0,0x3
0297 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0298 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0299 7801 |x | Jump 0x29b
029a 00da | | Load_Top At_Offset_2
029b e003 | | Load 0x0,0x3
029c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
029d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
029e 6061 |`a | Indirect_Literal Discrete,0x300,{0x00000000, 0x00004000}
029f 4801 |H | Short_Literal 0x1
02a0 4800 |H | Short_Literal 0x0
02a1 4800 |H | Short_Literal 0x0
02a2 8015 | | Call 0x0,0x15
02a3 4801 |H | Short_Literal 0x1
02a4 e404 | | Load 0x2,0x4
02a5 e003 | | Load 0x0,0x3
02a6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a8 e003 | | Load 0x0,0x3
02a9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02aa 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02ab c402 | | Store 0x2,0x2
02ac c408 | | Store 0x2,0x8
02ad 005b | [ | Store_Top Discrete,At_Offset_3
02ae 00da | | Load_Top At_Offset_2
02af 460e |F | Jump_Case 0xf
02b0 782e |x. | Jump 0x2df ; case 0x0
02b1 7825 |x% | Jump 0x2d7 ; case 0x1
02b2 780c |x | Jump 0x2bf ; case 0x2
02b3 780b |x | Jump 0x2bf ; case 0x3
02b4 780a |x | Jump 0x2bf ; case 0x4
02b5 7809 |x | Jump 0x2bf ; case 0x5
02b6 7808 |x | Jump 0x2bf ; case 0x6
02b7 7807 |x | Jump 0x2bf ; case 0x7
02b8 7806 |x | Jump 0x2bf ; case 0x8
02b9 7805 |x | Jump 0x2bf ; case 0x9
02ba 7814 |x | Jump 0x2cf ; case 0xa
02bb 7803 |x | Jump 0x2bf ; case 0xb
02bc 7802 |x | Jump 0x2bf ; case 0xc
02bd 7801 |x | Jump 0x2bf ; case 0xd
02be 7800 |x | Jump 0x2bf ; case 0xe
02bf e5fc | | Load 0x2,-0x4
02c0 4829 |H) | Short_Literal 0x29
02c1 0092 0478 | x| Action Push_String_Extended,0x478 ; " Could not open element ("
02c3 e407 | | Load 0x2,0x7
02c4 e003 | | Load 0x0,0x3
02c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c6 011c | | Execute Any,Convert_Unchecked
02c7 1c01 | | Execute_Immediate Run_Utility,0x1
02c8 01cc | | Execute Vector,Catenate
02c9 01cb | | Execute Vector,Append
02ca e021 | ! | Load 0x0,0x21
02cb e007 | | Load 0x0,0x7
02cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02cd c5fc | | Store 0x2,-0x4
02ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02cf e5fc | | Load 0x2,-0x4
02d0 0092 0479 | y| Action Push_String_Extended,0x479 ; " Not allowed to access this element"
02d2 e022 | " | Load 0x0,0x22
02d3 e007 | | Load 0x0,0x7
02d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d5 c5fc | | Store 0x2,-0x4
02d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d7 e5fc | | Load 0x2,-0x4
02d8 0092 047a | z| Action Push_String_Extended,0x47a ; " This element has a write lock on it."
02da e023 | # | Load 0x0,0x23
02db e007 | | Load 0x0,0x7
02dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02dd c5fc | | Store 0x2,-0x4
02de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02df e5fc | | Load 0x2,-0x4
02e0 00ec | | Load_Encached Diana_Tree_Cache
02e1 e405 | | Load 0x2,0x5
02e2 0a02 | | Execute_Immediate Plus,0x2
02e3 00d8 | | Load_Top At_Offset_0
02e4 00e2 | | Load_Encached Integer_Cache
02e5 0260 | ` | Execute Discrete,In_Type
02e6 7001 |p | Jump_Nonzero 0x2e8
02e7 0801 | | Execute_Immediate Raise,0x1
02e8 00db | | Load_Top At_Offset_3
02e9 01dc | | Execute Vector,Last
02ea e409 | | Load 0x2,0x9
02eb 01cf | | Execute Vector,Slice_Read
02ec e402 | | Load 0x2,0x2
02ed 8024 | $ | Call 0x0,0x24
02ee c403 | | Store 0x2,0x3
02ef c5fc | | Store 0x2,-0x4
02f0 e403 | | Load 0x2,0x3
02f1 a5fd | | Store_Unchecked 0x2,-0x3
02f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f3 TRAP_0258:
02f3 0007 | | Action Break_Optional
02f4 e5fc | | Load 0x2,-0x4
02f5 0092 047b | {| Action Push_String_Extended,0x47b ; "*** Exception raised in Ada_Program.Conversion.Convert'N(2): "
02f7 8025 | % | Call 0x0,0x25
02f8 01cc | | Execute Vector,Catenate
02f9 e026 | & | Load 0x0,0x26
02fa e007 | | Load 0x0,0x7
02fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02fc c5fc | | Store 0x2,-0x4
02fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fe 0000 0000 | | .XXX[0x2]
0300 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 0212 | | Execute Heap_Access,Address
030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030e 0000 0000 | | .XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0324 | $ | .CONST 0x0324 ; Address of begin
0311 03bf | | .CONST 0x03bf ; Address of exception handler
0312 0006 | | .CONST 0x0006 ; Number of locals
0313 INIT_0310:
0313 e003 | | Load 0x0,0x3
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 00ec | | Load_Encached Diana_Tree_Cache
0316 e003 | | Load 0x0,0x3
0317 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0318 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0319 02c7 | | Declare_Variable Any
031a 00d8 | | Load_Top At_Offset_0
031b 1c00 | | Execute_Immediate Run_Utility,0x0
031c e018 | | Load 0x0,0x18
031d 0322 | " | Declare_Variable Record
031e e027 | ' | Load 0x0,0x27
031f 00d9 | | Load_Top At_Offset_1
0320 017d | } | Execute Record,Structure_Write
0321 e003 | | Load 0x0,0x3
0322 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0323 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0324 BODY_0310:
0324 e003 | | Load 0x0,0x3
0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0326 00ec | | Load_Encached Diana_Tree_Cache
0327 60a4 |` | Indirect_Literal Discrete,0x3cc,{0x00000000, 0x00004000}
0328 e014 | | Load 0x0,0x14
0329 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032a e5fe | | Load 0x2,-0x2
032b e011 | | Load 0x0,0x11
032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032d 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
032e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
032f c403 | | Store 0x2,0x3
0330 c402 | | Store 0x2,0x2
0331 e402 | | Load 0x2,0x2
0332 6818 |h | Jump_Zero 0x34b
0333 e5fb | | Load 0x2,-0x5
0334 4829 |H) | Short_Literal 0x29
0335 0092 047c | || Action Push_String_Extended,0x47c ; "Errors detected in Context parameter \x22"
0337 e5fe | | Load 0x2,-0x2
0338 e011 | | Load 0x0,0x11
0339 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
033b 01cc | | Execute Vector,Catenate
033c 0092 047d | }| Action Push_String_Extended,0x47d ; "\x22 ("
033e 01cc | | Execute Vector,Catenate
033f e402 | | Load 0x2,0x2
0340 e003 | | Load 0x0,0x3
0341 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0342 011c | | Execute Any,Convert_Unchecked
0343 1c01 | | Execute_Immediate Run_Utility,0x1
0344 01cc | | Execute Vector,Catenate
0345 01cb | | Execute Vector,Append
0346 e00a | | Load 0x0,0xa
0347 e007 | | Load 0x0,0x7
0348 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0349 c5fb | | Store 0x2,-0x5
034a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034b e003 | | Load 0x0,0x3
034c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
034e 00db | | Load_Top At_Offset_3
034f 607c |`| | Indirect_Literal Discrete,0x3cc,{0x00000000, 0x00004000}
0350 e014 | | Load 0x0,0x14
0351 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0352 e016 | | Load 0x0,0x16
0353 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0354 e028 | ( | Load 0x0,0x28
0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0356 e5fd | | Load 0x2,-0x3
0357 4800 |H | Short_Literal 0x0
0358 e403 | | Load 0x2,0x3
0359 e5ff | | Load 0x2,-0x1
035a e003 | | Load 0x0,0x3
035b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
035c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
035d c404 | | Store 0x2,0x4
035e 0059 | Y | Store_Top Discrete,At_Offset_1
035f 00d8 | | Load_Top At_Offset_0
0360 460e |F | Jump_Case 0xf
0361 782d |x- | Jump 0x38f ; case 0x0
0362 780d |x | Jump 0x370 ; case 0x1
0363 780c |x | Jump 0x370 ; case 0x2
0364 783d |x= | Jump 0x3a2 ; case 0x3
0365 780a |x | Jump 0x370 ; case 0x4
0366 7809 |x | Jump 0x370 ; case 0x5
0367 7827 |x' | Jump 0x38f ; case 0x6
0368 7807 |x | Jump 0x370 ; case 0x7
0369 7806 |x | Jump 0x370 ; case 0x8
036a 7805 |x | Jump 0x370 ; case 0x9
036b 7804 |x | Jump 0x370 ; case 0xa
036c 7803 |x | Jump 0x370 ; case 0xb
036d 7802 |x | Jump 0x370 ; case 0xc
036e 7801 |x | Jump 0x370 ; case 0xd
036f 7800 |x | Jump 0x370 ; case 0xe
0370 e5fb | | Load 0x2,-0x5
0371 4829 |H) | Short_Literal 0x29
0372 0092 047e | ~| Action Push_String_Extended,0x47e ; "Errors detected resolving \x22"
0374 e5ff | | Load 0x2,-0x1
0375 01cc | | Execute Vector,Catenate
0376 0092 047d | }| Action Push_String_Extended,0x47d ; "\x22 ("
0378 01cc | | Execute Vector,Catenate
0379 6052 |`R | Indirect_Literal Discrete,0x3cc,{0x00000000, 0x00004000}
037a e014 | | Load 0x0,0x14
037b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037c e016 | | Load 0x0,0x16
037d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037e e028 | ( | Load 0x0,0x28
037f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0380 e5fd | | Load 0x2,-0x3
0381 4800 |H | Short_Literal 0x0
0382 e403 | | Load 0x2,0x3
0383 e5ff | | Load 0x2,-0x1
0384 e406 | | Load 0x2,0x6
0385 e003 | | Load 0x0,0x3
0386 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0387 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0388 01cc | | Execute Vector,Catenate
0389 01cb | | Execute Vector,Append
038a e00a | | Load 0x0,0xa
038b e007 | | Load 0x0,0x7
038c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
038d c5fb | | Store 0x2,-0x5
038e 7827 |x' | Jump 0x3b6
038f 00cf | | Action Mark_Auxiliary
0390 780a |x | Jump 0x39b
0391 00da | | Load_Top At_Offset_2
0392 e404 | | Load 0x2,0x4
0393 8221 | ! | Call 0x1,0x21
0394 00d1 | | Pop_Control Pop_Count_1
0395 00db | | Load_Top At_Offset_3
0396 e003 | | Load 0x0,0x3
0397 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0398 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0399 c404 | | Store 0x2,0x4
039a 00c9 | | Action Pop_Auxiliary_Loop
039b 00db | | Load_Top At_Offset_3
039c e003 | | Load 0x0,0x3
039d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
039f 6ff1 |o | Jump_Zero 0x391
03a0 00ce | | Action Pop_Auxiliary
03a1 7814 |x | Jump 0x3b6
03a2 e5fb | | Load 0x2,-0x5
03a3 6028 |`( | Indirect_Literal Discrete,0x3cc,{0x00000000, 0x00004000}
03a4 e014 | | Load 0x0,0x14
03a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a6 e016 | | Load 0x0,0x16
03a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a8 e028 | ( | Load 0x0,0x28
03a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03aa e5fd | | Load 0x2,-0x3
03ab 4800 |H | Short_Literal 0x0
03ac e403 | | Load 0x2,0x3
03ad e5ff | | Load 0x2,-0x1
03ae e406 | | Load 0x2,0x6
03af e003 | | Load 0x0,0x3
03b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b1 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
03b2 e029 | ) | Load 0x0,0x29
03b3 e007 | | Load 0x0,0x7
03b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b5 c5fb | | Store 0x2,-0x5
03b6 00da | | Load_Top At_Offset_2
03b7 e003 | | Load 0x0,0x3
03b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b9 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
03ba c404 | | Store 0x2,0x4
03bb 00d9 | | Load_Top At_Offset_1
03bc e5fc | | Load 0x2,-0x4
03bd 017d | } | Execute Record,Structure_Write
03be 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03bf TRAP_0310:
03bf 0007 | | Action Break_Optional
03c0 e027 | ' | Load 0x0,0x27
03c1 e5fc | | Load 0x2,-0x4
03c2 017d | } | Execute Record,Structure_Write
03c3 e5fb | | Load 0x2,-0x5
03c4 8025 | % | Call 0x0,0x25
03c5 e026 | & | Load 0x0,0x26
03c6 e007 | | Load 0x0,0x7
03c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c8 c5fb | | Store 0x2,-0x5
03c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ca 0000 0000 | | .XXX[0x2]
03cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d5 | | .CONST 0x03d5 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 0092 047f | | Action Push_String_Extended,0x47f ; "STANDARD."
03d5 BODY_03d0:
03d5 00db | | Load_Top At_Offset_3
03d6 01db | | Execute Vector,Length
03d7 0d09 | | Execute_Immediate Less,0x9
03d8 7011 |p | Jump_Nonzero 0x3ea
03d9 4801 |H | Short_Literal 0x1
03da 00d9 | | Load_Top At_Offset_1
03db e5ff | | Load 0x2,-0x1
03dc 01dd | | Execute Vector,First
03dd e5ff | | Load 0x2,-0x1
03de 01dd | | Execute Vector,First
03df 0a08 | | Execute_Immediate Plus,0x8
03e0 00d8 | | Load_Top At_Offset_0
03e1 00e2 | | Load_Encached Integer_Cache
03e2 0260 | ` | Execute Discrete,In_Type
03e3 7001 |p | Jump_Nonzero 0x3e5
03e4 0801 | | Execute_Immediate Raise,0x1
03e5 e5ff | | Load 0x2,-0x1
03e6 01cf | | Execute Vector,Slice_Read
03e7 e02a | * | Load 0x0,0x2a
03e8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03e9 7002 |p | Jump_Nonzero 0x3ec
03ea 00db | | Load_Top At_Offset_3
03eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ec 0092 0480 | | Action Push_String_Extended,0x480 ; "!<*R1000_STANDARD*>"
03ee e5ff | | Load 0x2,-0x1
03ef 01dd | | Execute Vector,First
03f0 0a09 | | Execute_Immediate Plus,0x9
03f1 00d8 | | Load_Top At_Offset_0
03f2 00e2 | | Load_Encached Integer_Cache
03f3 0260 | ` | Execute Discrete,In_Type
03f4 7001 |p | Jump_Nonzero 0x3f6
03f5 0801 | | Execute_Immediate Raise,0x1
03f6 e5ff | | Load 0x2,-0x1
03f7 01dc | | Execute Vector,Last
03f8 e5ff | | Load 0x2,-0x1
03f9 01cf | | Execute Vector,Slice_Read
03fa 01cc | | Execute Vector,Catenate
03fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040c | | .CONST 0x040c ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0005 | | .CONST 0x0005 ; Number of locals
0403 INIT_0400:
0403 00ec | | Load_Encached Diana_Tree_Cache
0404 00ec | | Load_Encached Diana_Tree_Cache
0405 e003 | | Load 0x0,0x3
0406 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0407 02c7 | | Declare_Variable Any
0408 00d8 | | Load_Top At_Offset_0
0409 1c00 | | Execute_Immediate Run_Utility,0x0
040a e003 | | Load 0x0,0x3
040b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040c BODY_0400:
040c e003 | | Load 0x0,0x3
040d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040e e003 | | Load 0x0,0x3
040f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0410 603f |`? | Indirect_Literal Discrete,0x450,{0x00000000, 0x00004000}
0411 e014 | | Load 0x0,0x14
0412 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0413 e5ff | | Load 0x2,-0x1
0414 e003 | | Load 0x0,0x3
0415 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0416 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0417 c402 | | Store 0x2,0x2
0418 0059 | Y | Store_Top Discrete,At_Offset_1
0419 00d8 | | Load_Top At_Offset_0
041a 6801 |h | Jump_Zero 0x41c
041b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041c e003 | | Load 0x0,0x3
041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041e 00da | | Load_Top At_Offset_2
041f 0120 | | Execute Any,Is_Value
0420 6803 |h | Jump_Zero 0x424
0421 e003 | | Load 0x0,0x3
0422 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0423 7801 |x | Jump 0x425
0424 00da | | Load_Top At_Offset_2
0425 e5ff | | Load 0x2,-0x1
0426 e003 | | Load 0x0,0x3
0427 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0428 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0429 c404 | | Store 0x2,0x4
042a 0059 | Y | Store_Top Discrete,At_Offset_1
042b 00d8 | | Load_Top At_Offset_0
042c 6804 |h | Jump_Zero 0x431
042d e5fe | | Load 0x2,-0x2
042e e402 | | Load 0x2,0x2
042f 802b | + | Call 0x0,0x2b
0430 00d1 | | Pop_Control Pop_Count_1
0431 00d9 | | Load_Top At_Offset_1
0432 e003 | | Load 0x0,0x3
0433 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0434 e21f | | Load 0x1,0x1f
0435 012f | / | Execute Any,Equal
0436 7001 |p | Jump_Nonzero 0x438
0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0438 e003 | | Load 0x0,0x3
0439 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043a 00ec | | Load_Encached Diana_Tree_Cache
043b 6014 |` | Indirect_Literal Discrete,0x450,{0x00000000, 0x00004000}
043c e014 | | Load 0x0,0x14
043d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
043e e5ff | | Load 0x2,-0x1
043f e003 | | Load 0x0,0x3
0440 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0441 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0442 c403 | | Store 0x2,0x3
0443 0059 | Y | Store_Top Discrete,At_Offset_1
0444 00d8 | | Load_Top At_Offset_0
0445 4801 |H | Short_Literal 0x1
0446 480e |H | Short_Literal 0xe
0447 0262 | b | Execute Discrete,In_Range
0448 7005 |p | Jump_Nonzero 0x44e
0449 7800 |x | Jump 0x44a
044a e5fe | | Load 0x2,-0x2
044b 00db | | Load_Top At_Offset_3
044c 802b | + | Call 0x0,0x2b
044d 00d1 | | Pop_Control Pop_Count_1
044e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
044f 0000 | | .XXX[0x1]
0450 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 e011 | | Load 0x0,0x11
0465 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0466 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0467 6801 |h | Jump_Zero 0x469
0468 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0469 00da | | Load_Top At_Offset_2
046a e011 | | Load 0x0,0x11
046b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
046d e021 | ! | Load 0x0,0x21
046e 800b | | Call 0x0,0xb
046f e00c | | Load 0x0,0xc
0470 0257 | W | Execute Discrete,Raise
0471 ; --------------------------------------------------------------------------------------
0471 ; STRING TABLE
0471 ; --------------------------------------------------------------------------------------
0471 0022 | " | .STRTAB 0x0022->0x0482 ; "Unable to close opened Ada objects ("
0472 0044 | D | .STRTAB 0x0044->0x0494 ; " Element isn't A_Compilation_Unit"
0473 0063 | c | .STRTAB 0x0063->0x04a4 ; "Object didn't resolve to A_Compilation_Unit"
0474 008c | | .STRTAB 0x008c->0x04ba ; " is undefined"
0475 0097 | | .STRTAB 0x0097->0x04c0 ; " is ambiguous"
0476 00a2 | | .STRTAB 0x00a2->0x04c7 ; "The_Element was nil"
0477 00b3 | | .STRTAB 0x00b3->0x04d0 ; " is not acceptable"
0478 00c3 | | .STRTAB 0x00c3->0x04d9 ; " Could not open element ("
0479 00da | | .STRTAB 0x00da->0x04e6 ; " Not allowed to access this element"
047a 00fb | | .STRTAB 0x00fb->0x04f7 ; " This element has a write lock on it."
047b 011e | | .STRTAB 0x011e->0x050a ; "*** Exception raised in Ada_Program.Conversion.Convert'N(2): "
047c 0159 | Y | .STRTAB 0x0159->0x0528 ; "Errors detected in Context parameter \x22"
047d 017d | } | .STRTAB 0x017d->0x053b ; "\x22 ("
047e 017e | ~ | .STRTAB 0x017e->0x053d ; "Errors detected resolving \x22"
047f 0197 | | .STRTAB 0x0197->0x054a ; "STANDARD."
0480 019e | | .STRTAB 0x019e->0x054f ; "!<*R1000_STANDARD*>"
0481 01af | | .STREND 0x01af->0x0558
0482 556e 6162 |Unab| .STRTAB_STRINGS
0559 0000 0000 | | .BLANK 0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug Table
0560 ; --------------------------------------------------------------------------------------
0560 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5de0,0x0000,0x0001,0x0000
0566 0000 0000 | | .BLANK 0000[0x9a]