|
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 - metrics - 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 0790 | | .CONST 0x0790 ; 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 0109 | | .CONST 0x0109 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0069 | i | .CONST 0x0069 ; Number of locals
000b INIT_0008:
000b 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
000d 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
000f 00bf | | Action Accept_Activation
0010 029d 01ab | | Declare_Subprogram For_Outer_Call,INIT_01a8
0012 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0014 029b 01db | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_01d8
0016 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0017 00c7 | | Action Elaborate_Subprogram
0018 029d 0203 | | Declare_Subprogram For_Outer_Call,INIT_0200
001a 029d 0213 | | Declare_Subprogram For_Outer_Call,INIT_0210
001c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
001d 00c6 | | Action Check_Subprogram_Elaborated
001e e003 | | Load 0x0,0x3
001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0020 e003 | | Load 0x0,0x3
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0024 0093 0000 | | PushFullAddress InMicrocode
0026 612d |a- | Indirect_Literal Discrete,0x154,{0x80000000, 0x000b0000}
0027 0273 | s | Execute Discrete,Plus
0028 e004 | | Load 0x0,0x4
0029 0273 | s | Execute Discrete,Plus
002a e005 | | Load 0x0,0x5
002b 0273 | s | Execute Discrete,Plus
002c 4800 |H | Short_Literal 0x0
002d 0007 | | Action Break_Optional
002e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002f 00c6 | | Action Check_Subprogram_Elaborated
0030 00ec | | Load_Encached Diana_Tree_Cache
0031 00ec | | Load_Encached Diana_Tree_Cache
0032 a006 | | Reference 0x0,0x6
0033 a007 | | Reference 0x0,0x7
0034 0093 0000 | | PushFullAddress InMicrocode
0036 6119 |a | Indirect_Literal Discrete,0x150,{0x80000000, 0x000a0000}
0037 0273 | s | Execute Discrete,Plus
0038 e004 | | Load 0x0,0x4
0039 0273 | s | Execute Discrete,Plus
003a e008 | | Load 0x0,0x8
003b 0273 | s | Execute Discrete,Plus
003c 4800 |H | Short_Literal 0x0
003d 0007 | | Action Break_Optional
003e 029d 0223 | #| Declare_Subprogram For_Outer_Call,INIT_0220
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0041 00c6 | | Action Check_Subprogram_Elaborated
0042 00ec | | Load_Encached Diana_Tree_Cache
0043 e009 | | Load 0x0,0x9
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0046 a007 | | Reference 0x0,0x7
0047 0093 0000 | | PushFullAddress InMicrocode
0049 6102 |a | Indirect_Literal Discrete,0x14c,{0x80000000, 0x00090000}
004a 0273 | s | Execute Discrete,Plus
004b e004 | | Load 0x0,0x4
004c 0273 | s | Execute Discrete,Plus
004d e00a | | Load 0x0,0xa
004e 0273 | s | Execute Discrete,Plus
004f 4800 |H | Short_Literal 0x0
0050 0007 | | Action Break_Optional
0051 029d 0233 | 3| Declare_Subprogram For_Outer_Call,INIT_0230
0053 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0054 00c6 | | Action Check_Subprogram_Elaborated
0055 00ec | | Load_Encached Diana_Tree_Cache
0056 e00b | | Load 0x0,0xb
0057 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0058 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0059 a007 | | Reference 0x0,0x7
005a 0093 0000 | | PushFullAddress InMicrocode
005c 60eb |` | Indirect_Literal Discrete,0x148,{0x80000000, 0x00080000}
005d 0273 | s | Execute Discrete,Plus
005e e004 | | Load 0x0,0x4
005f 0273 | s | Execute Discrete,Plus
0060 e00c | | Load 0x0,0xc
0061 0273 | s | Execute Discrete,Plus
0062 4800 |H | Short_Literal 0x0
0063 0007 | | Action Break_Optional
0064 029d 0243 | C| Declare_Subprogram For_Outer_Call,INIT_0240
0066 029d 025b | [| Declare_Subprogram For_Outer_Call,INIT_0258
0068 029b 026b | k| Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0268
006a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
006b 00c7 | | Action Elaborate_Subprogram
006c 029d 02bb | | Declare_Subprogram For_Outer_Call,INIT_02b8
006e 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
006f 00c6 | | Action Check_Subprogram_Elaborated
0070 00ec | | Load_Encached Diana_Tree_Cache
0071 e003 | | Load 0x0,0x3
0072 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0073 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
0074 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0075 0093 0000 | | PushFullAddress InMicrocode
0077 60cc |` | Indirect_Literal Discrete,0x144,{0x80000000, 0x00060000}
0078 0273 | s | Execute Discrete,Plus
0079 e004 | | Load 0x0,0x4
007a 0273 | s | Execute Discrete,Plus
007b e00d | | Load 0x0,0xd
007c 0273 | s | Execute Discrete,Plus
007d 4800 |H | Short_Literal 0x0
007e 0007 | | Action Break_Optional
007f 029d 02cb | | Declare_Subprogram For_Outer_Call,INIT_02c8
0081 029d 02db | | Declare_Subprogram For_Outer_Call,INIT_02d8
0083 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0084 00c6 | | Action Check_Subprogram_Elaborated
0085 e009 | | Load 0x0,0x9
0086 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0087 a00e | | Reference 0x0,0xe
0088 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0089 0093 0000 | | PushFullAddress InMicrocode
008b 60b4 |` | Indirect_Literal Discrete,0x140,{0x80000000, 0x00050000}
008c 0273 | s | Execute Discrete,Plus
008d e004 | | Load 0x0,0x4
008e 0273 | s | Execute Discrete,Plus
008f e00f | | Load 0x0,0xf
0090 0273 | s | Execute Discrete,Plus
0091 4800 |H | Short_Literal 0x0
0092 0007 | | Action Break_Optional
0093 029d 02f3 | | Declare_Subprogram For_Outer_Call,INIT_02f0
0095 029d 0303 | | Declare_Subprogram For_Outer_Call,INIT_0300
0097 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0098 00c6 | | Action Check_Subprogram_Elaborated
0099 e00b | | Load 0x0,0xb
009a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009b a010 | | Reference 0x0,0x10
009c 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
009d 0093 0000 | | PushFullAddress InMicrocode
009f 609c |` | Indirect_Literal Discrete,0x13c,{0x80000000, 0x00040000}
00a0 0273 | s | Execute Discrete,Plus
00a1 e004 | | Load 0x0,0x4
00a2 0273 | s | Execute Discrete,Plus
00a3 e011 | | Load 0x0,0x11
00a4 0273 | s | Execute Discrete,Plus
00a5 4800 |H | Short_Literal 0x0
00a6 0007 | | Action Break_Optional
00a7 029d 031b | | Declare_Subprogram For_Outer_Call,INIT_0318
00a9 029d 0353 | S| Declare_Subprogram For_Outer_Call,INIT_0350
00ab 029d 0393 | | Declare_Subprogram For_Outer_Call,INIT_0390
00ad 029b 03db | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_03d8
00af 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00b0 00c7 | | Action Elaborate_Subprogram
00b1 029d 041b | | Declare_Subprogram For_Outer_Call,INIT_0418
00b3 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00b4 00c6 | | Action Check_Subprogram_Elaborated
00b5 00ec | | Load_Encached Diana_Tree_Cache
00b6 e012 | | Load 0x0,0x12
00b7 190f | | Execute Package,Field_Reference,Field_Number 0xf
00b8 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00b9 0093 0000 | | PushFullAddress InMicrocode
00bb 607c |`| | Indirect_Literal Discrete,0x138,{0x80000000, 0x00030000}
00bc 0273 | s | Execute Discrete,Plus
00bd e004 | | Load 0x0,0x4
00be 0273 | s | Execute Discrete,Plus
00bf e013 | | Load 0x0,0x13
00c0 0273 | s | Execute Discrete,Plus
00c1 4800 |H | Short_Literal 0x0
00c2 0007 | | Action Break_Optional
00c3 029d 042b | +| Declare_Subprogram For_Outer_Call,INIT_0428
00c5 029d 043b | ;| Declare_Subprogram For_Outer_Call,INIT_0438
00c7 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00c8 00c6 | | Action Check_Subprogram_Elaborated
00c9 e009 | | Load 0x0,0x9
00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cb 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
00cc 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
00cd 0093 0000 | | PushFullAddress InMicrocode
00cf 6064 |`d | Indirect_Literal Discrete,0x134,{0x80000000, 0x00020000}
00d0 0273 | s | Execute Discrete,Plus
00d1 e004 | | Load 0x0,0x4
00d2 0273 | s | Execute Discrete,Plus
00d3 e014 | | Load 0x0,0x14
00d4 0273 | s | Execute Discrete,Plus
00d5 4800 |H | Short_Literal 0x0
00d6 0007 | | Action Break_Optional
00d7 029d 044b | K| Declare_Subprogram For_Outer_Call,INIT_0448
00d9 029d 045b | [| Declare_Subprogram For_Outer_Call,INIT_0458
00db 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00dc 00c6 | | Action Check_Subprogram_Elaborated
00dd e00b | | Load 0x0,0xb
00de 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00df 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
00e0 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
00e1 0093 0000 | | PushFullAddress InMicrocode
00e3 604c |`L | Indirect_Literal Discrete,0x130,{0x80000000, 0x00010000}
00e4 0273 | s | Execute Discrete,Plus
00e5 e004 | | Load 0x0,0x4
00e6 0273 | s | Execute Discrete,Plus
00e7 e015 | | Load 0x0,0x15
00e8 0273 | s | Execute Discrete,Plus
00e9 4800 |H | Short_Literal 0x0
00ea 0007 | | Action Break_Optional
00eb 029d 046b | k| Declare_Subprogram For_Outer_Call,INIT_0468
00ed 029d 047b | {| Declare_Subprogram For_Outer_Call,INIT_0478
00ef 029d 04a3 | | Declare_Subprogram For_Outer_Call,INIT_04a0
00f1 029d 04bb | | Declare_Subprogram For_Outer_Call,INIT_04b8
00f3 029d 04e3 | | Declare_Subprogram For_Outer_Call,INIT_04e0
00f5 029d 0513 | | Declare_Subprogram For_Outer_Call,INIT_0510
00f7 029d 054b | K| Declare_Subprogram For_Outer_Call,INIT_0548
00f9 029d 058b | | Declare_Subprogram For_Outer_Call,INIT_0588
00fb 029d 05b3 | | Declare_Subprogram For_Outer_Call,INIT_05b0
00fd 029d 05e3 | | Declare_Subprogram For_Outer_Call,INIT_05e0
00ff 029d 0603 | | Declare_Subprogram For_Outer_Call,INIT_0600
0101 029d 0623 | #| Declare_Subprogram For_Outer_Call,INIT_0620
0103 029d 0643 | C| Declare_Subprogram For_Outer_Call,INIT_0640
0105 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0106 00c7 | | Action Elaborate_Subprogram
0107 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0108 00c7 | | Action Elaborate_Subprogram
0109 BODY_0008:
0109 00bc | | Action Signal_Activated
010a 00bb | | Action Signal_Completion
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5fd | | Load 0x2,-0x3
0114 e5fe | | Load 0x2,-0x2
0115 8016 | | Call 0x0,0x16
0116 6806 |h | Jump_Zero 0x11d
0117 e5fd | | Load 0x2,-0x3
0118 e5fe | | Load 0x2,-0x2
0119 e5ff | | Load 0x2,-0x1
011a 8269 | i | Call 0x1,0x69
011b 00d1 | | Pop_Control Pop_Count_1
011c 4503 |E | Exit_Subprogram 0x3
011d e5fd | | Load 0x2,-0x3
011e e5fe | | Load 0x2,-0x2
011f 8017 | | Call 0x0,0x17
0120 6806 |h | Jump_Zero 0x127
0121 e5fd | | Load 0x2,-0x3
0122 e5fe | | Load 0x2,-0x2
0123 e5ff | | Load 0x2,-0x1
0124 8268 | h | Call 0x1,0x68
0125 00d1 | | Pop_Control Pop_Count_1
0126 4503 |E | Exit_Subprogram 0x3
0127 e5fd | | Load 0x2,-0x3
0128 e5fe | | Load 0x2,-0x2
0129 e5ff | | Load 0x2,-0x1
012a 8267 | g | Call 0x1,0x67
012b 00d1 | | Pop_Control Pop_Count_1
012c 4503 |E | Exit_Subprogram 0x3
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0134 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0138 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
013c 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0140 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
0144 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
0148 8000 0000 | | .LITERAL {0x80000000, 0x00080000}
014c 8000 0000 | | .LITERAL {0x80000000, 0x00090000}
0150 8000 0000 | | .LITERAL {0x80000000, 0x000a0000}
0154 8000 0000 | | .LITERAL {0x80000000, 0x000b0000}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0165 | e | .CONST 0x0165 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e003 | | Load 0x0,0x3
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e003 | | Load 0x0,0x3
0161 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0162 02c7 | | Declare_Variable Any
0163 00d8 | | Load_Top At_Offset_0
0164 1c00 | | Execute_Immediate Run_Utility,0x0
0165 BODY_0158:
0165 e5fe | | Load 0x2,-0x2
0166 00da | | Load_Top At_Offset_2
0167 0120 | | Execute Any,Is_Value
0168 6803 |h | Jump_Zero 0x16c
0169 e003 | | Load 0x0,0x3
016a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016b 7801 |x | Jump 0x16d
016c 00da | | Load_Top At_Offset_2
016d e5ff | | Load 0x2,-0x1
016e 8018 | | Call 0x0,0x18
016f c402 | | Store 0x2,0x2
0170 00d1 | | Pop_Control Pop_Count_1
0171 e5fe | | Load 0x2,-0x2
0172 00d9 | | Load_Top At_Offset_1
0173 0120 | | Execute Any,Is_Value
0174 6803 |h | Jump_Zero 0x178
0175 e003 | | Load 0x0,0x3
0176 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0177 7801 |x | Jump 0x179
0178 00d9 | | Load_Top At_Offset_1
0179 00db | | Load_Top At_Offset_3
017a 8019 | | Call 0x0,0x19
017b c403 | | Store 0x2,0x3
017c 00d1 | | Pop_Control Pop_Count_1
017d e5fe | | Load 0x2,-0x2
017e 00d9 | | Load_Top At_Offset_1
017f 00db | | Load_Top At_Offset_3
0180 801a | | Call 0x0,0x1a
0181 00d1 | | Pop_Control Pop_Count_1
0182 00d9 | | Load_Top At_Offset_1
0183 801b | | Call 0x0,0x1b
0184 681a |h | Jump_Zero 0x19f
0185 e5fe | | Load 0x2,-0x2
0186 00d9 | | Load_Top At_Offset_1
0187 8016 | | Call 0x0,0x16
0188 6806 |h | Jump_Zero 0x18f
0189 e5fe | | Load 0x2,-0x2
018a 00d9 | | Load_Top At_Offset_1
018b e5ff | | Load 0x2,-0x1
018c 8269 | i | Call 0x1,0x69
018d 00d1 | | Pop_Control Pop_Count_1
018e 4502 |E | Exit_Subprogram 0x2
018f e5fe | | Load 0x2,-0x2
0190 00d9 | | Load_Top At_Offset_1
0191 8017 | | Call 0x0,0x17
0192 6806 |h | Jump_Zero 0x199
0193 e5fe | | Load 0x2,-0x2
0194 00d9 | | Load_Top At_Offset_1
0195 e5ff | | Load 0x2,-0x1
0196 8268 | h | Call 0x1,0x68
0197 00d1 | | Pop_Control Pop_Count_1
0198 4502 |E | Exit_Subprogram 0x2
0199 e5fe | | Load 0x2,-0x2
019a 00d9 | | Load_Top At_Offset_1
019b e5ff | | Load 0x2,-0x1
019c 8267 | g | Call 0x1,0x67
019d 00d1 | | Pop_Control Pop_Count_1
019e 4502 |E | Exit_Subprogram 0x2
019f e5fe | | Load 0x2,-0x2
01a0 00d9 | | Load_Top At_Offset_1
01a1 e5ff | | Load 0x2,-0x1
01a2 8266 | f | Call 0x1,0x66
01a3 00d1 | | Pop_Control Pop_Count_1
01a4 4502 |E | Exit_Subprogram 0x2
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b2 | | .CONST 0x01b2 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e009 | | Load 0x0,0x9
01ad 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01ae 0217 | | Execute Heap_Access,All_Reference
01af 0335 | 5 | Declare_Variable Array,Duplicate
01b0 00cd | | Action Spare6_Action
01b1 4401 |D | Exit_Subprogram With_Result,0x1
01b2 TRAP_01a8:
01b2 010e | | Execute Exception,Is_Constraint_Error
01b3 6805 |h | Jump_Zero 0x1b9
01b4 e012 | | Load 0x0,0x12
01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b6 0335 | 5 | Declare_Variable Array,Duplicate
01b7 00cd | | Action Spare6_Action
01b8 4401 |D | Exit_Subprogram With_Result,0x1
01b9 0100 | | Execute Exception,Raise
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 01cb | | .CONST 0x01cb ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e00b | | Load 0x0,0xb
01c5 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c7 0217 | | Execute Heap_Access,All_Reference
01c8 0335 | 5 | Declare_Variable Array,Duplicate
01c9 00cd | | Action Spare6_Action
01ca 4401 |D | Exit_Subprogram With_Result,0x1
01cb TRAP_01c0:
01cb 010e | | Execute Exception,Is_Constraint_Error
01cc 6805 |h | Jump_Zero 0x1d2
01cd e012 | | Load 0x0,0x12
01ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01cf 0335 | 5 | Declare_Variable Array,Duplicate
01d0 00cd | | Action Spare6_Action
01d1 4401 |D | Exit_Subprogram With_Result,0x1
01d2 0100 | | Execute Exception,Raise
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e5f8 | | Load 0x2,-0x8
01dc 6809 |h | Jump_Zero 0x1e6
01dd e5f6 | | Load 0x2,-0xa
01de 0092 06bd | | Action Push_String_Extended,0x6bd ; "are compatible"
01e0 e5f9 | | Load 0x2,-0x7
01e1 e5fa | | Load 0x2,-0x6
01e2 85fd | | Call 0x2,-0x3
01e3 801c | | Call 0x0,0x1c
01e4 00d1 | | Pop_Control Pop_Count_1
01e5 450a |E | Exit_Subprogram 0xa
01e6 e5f7 | | Load 0x2,-0x9
01e7 01db | | Execute Vector,Length
01e8 700a |p | Jump_Nonzero 0x1f3
01e9 e5f6 | | Load 0x2,-0xa
01ea 0092 06be | | Action Push_String_Extended,0x6be ; "are not compatible"
01ec e5f9 | | Load 0x2,-0x7
01ed e5fa | | Load 0x2,-0x6
01ee 85fd | | Call 0x2,-0x3
01ef e5fa | | Load 0x2,-0x6
01f0 85fe | | Call 0x2,-0x2
01f1 00d1 | | Pop_Control Pop_Count_1
01f2 450a |E | Exit_Subprogram 0xa
01f3 e5f6 | | Load 0x2,-0xa
01f4 e5f7 | | Load 0x2,-0x9
01f5 e5f9 | | Load 0x2,-0x7
01f6 e5fa | | Load 0x2,-0x6
01f7 85fd | | Call 0x2,-0x3
01f8 e5fa | | Load 0x2,-0x6
01f9 85fe | | Call 0x2,-0x2
01fa 00d1 | | Pop_Control Pop_Count_1
01fb 450a |E | Exit_Subprogram 0xa
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 e5fd | | Load 0x2,-0x3
0204 e5fe | | Load 0x2,-0x2
0205 e003 | | Load 0x0,0x3
0206 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0207 0119 | | Execute Any,Check_In_Formal_Type
0208 e5ff | | Load 0x2,-0x1
0209 e003 | | Load 0x0,0x3
020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020b 0119 | | Execute Any,Check_In_Formal_Type
020c 801d | | Call 0x0,0x1d
020d 4403 |D | Exit_Subprogram With_Result,0x3
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e5fd | | Load 0x2,-0x3
0214 e5fe | | Load 0x2,-0x2
0215 e5ff | | Load 0x2,-0x1
0216 e003 | | Load 0x0,0x3
0217 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0218 0119 | | Execute Any,Check_In_Formal_Type
0219 801e | | Call 0x0,0x1e
021a 4503 |E | Exit_Subprogram 0x3
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e5fd | | Load 0x2,-0x3
0224 e5fe | | Load 0x2,-0x2
0225 e009 | | Load 0x0,0x9
0226 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0227 0119 | | Execute Any,Check_In_Formal_Type
0228 e5ff | | Load 0x2,-0x1
0229 801f | | Call 0x0,0x1f
022a 4403 |D | Exit_Subprogram With_Result,0x3
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 e5fe | | Load 0x2,-0x2
0235 e00b | | Load 0x0,0xb
0236 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0237 0119 | | Execute Any,Check_In_Formal_Type
0238 e5ff | | Load 0x2,-0x1
0239 8020 | | Call 0x0,0x20
023a 4403 |D | Exit_Subprogram With_Result,0x3
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 00e3 | | Load_Encached Natural_Cache
0244 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0245 BODY_0240:
0245 00cf | | Action Mark_Auxiliary
0246 e5ff | | Load 0x2,-0x1
0247 01d9 | | Execute Vector,Reverse_Bounds
0248 0263 | c | Execute Discrete,Above_Bound
0249 7008 |p | Jump_Nonzero 0x252
024a 00db | | Load_Top At_Offset_3
024b 00d9 | | Load_Top At_Offset_1
024c e5ff | | Load 0x2,-0x1
024d 01d7 | | Execute Vector,Field_Read
024e 0273 | s | Execute Discrete,Plus
024f c402 | | Store 0x2,0x2
0250 00c8 | | Action Pop_Auxiliary_Range
0251 3ff8 |? | Loop_Increasing 0x24a
0252 00ce | | Action Pop_Auxiliary
0253 00d8 | | Load_Top At_Offset_0
0254 4401 |D | Exit_Subprogram With_Result,0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e5fe | | Load 0x2,-0x2
025d 01da | | Execute Vector,Bounds
025e 0262 | b | Execute Discrete,In_Range
025f 6804 |h | Jump_Zero 0x264
0260 00da | | Load_Top At_Offset_2
0261 e5fe | | Load 0x2,-0x2
0262 01d7 | | Execute Vector,Field_Read
0263 4402 |D | Exit_Subprogram With_Result,0x2
0264 4800 |H | Short_Literal 0x0
0265 4402 |D | Exit_Subprogram With_Result,0x2
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0288 | | .CONST 0x0288 ; Address of begin
0269 02a3 | | .CONST 0x02a3 ; Address of exception handler
026a 000b | | .CONST 0x000b ; Number of locals
026b INIT_0268:
026b e5f9 | | Load 0x2,-0x7
026c 822e | . | Call 0x1,0x2e
026d 00e3 | | Load_Encached Natural_Cache
026e 03f1 | | Declare_Variable Discrete,With_Value
026f 00e1 | | Load_Encached Boolean_Cache
0270 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0271 0093 0000 | | PushFullAddress InMicrocode
0273 603c |`< | Indirect_Literal Discrete,0x2b0,{0x80000000, 0x00010000}
0274 0273 | s | Execute Discrete,Plus
0275 e5ff | | Load 0x2,-0x1
0276 6035 |`5 | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x0000ffff}
0277 0279 | y | Execute Discrete,And
0278 0273 | s | Execute Discrete,Plus
0279 0007 | | Action Break_Optional
027a 029f 0663 | c| Declare_Subprogram For_Call,INIT_0660
027c e021 | ! | Load 0x0,0x21
027d 190d | | Execute Package,Field_Reference,Field_Number 0xd
027e 00c6 | | Action Check_Subprogram_Elaborated
027f 00e1 | | Load_Encached Boolean_Cache
0280 4805 |H | Short_Literal 0x5
0281 4802 |H | Short_Literal 0x2
0282 0099 | | Action Reference_Dynamic
0283 e022 | " | Load 0x0,0x22
0284 e023 | # | Load 0x0,0x23
0285 480a |H | Short_Literal 0xa
0286 029f 068b | | Declare_Subprogram For_Call,INIT_0688
0288 BODY_0268:
0288 840b | | Call 0x2,0xb
0289 e403 | | Load 0x2,0x3
028a e5fb | | Load 0x2,-0x5
028b e406 | | Load 0x2,0x6
028c 4807 |H | Short_Literal 0x7
028d 4802 |H | Short_Literal 0x2
028e 0099 | | Action Reference_Dynamic
028f 4808 |H | Short_Literal 0x8
0290 4802 |H | Short_Literal 0x2
0291 0099 | | Action Reference_Dynamic
0292 e021 | ! | Load 0x0,0x21
0293 180d | | Execute Package,Field_Execute,Field_Number 0xd
0294 c403 | | Store 0x2,0x3
0295 e5f8 | | Load 0x2,-0x8
0296 e5fb | | Load 0x2,-0x5
0297 0092 06bf | | Action Push_String_Extended,0x6bf ; "Could not find"
0299 e402 | | Load 0x2,0x2
029a 00e0 | | Load_Encached Standard_Cache
029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029c 01cc | | Execute Vector,Catenate
029d 0092 06c0 | | Action Push_String_Extended,0x6c0 ; " declarations in"
029f 01cc | | Execute Vector,Catenate
02a0 8024 | $ | Call 0x0,0x24
02a1 8025 | % | Call 0x0,0x25
02a2 4508 |E | Exit_Subprogram 0x8
02a3 TRAP_0268:
02a3 e404 | | Load 0x2,0x4
02a4 010f | | Execute Exception,Equal
02a5 6802 |h | Jump_Zero 0x2a8
02a6 e026 | & | Load 0x0,0x26
02a7 0257 | W | Execute Discrete,Raise
02a8 0100 | | Execute Exception,Raise
02a9 0000 0000 | | .XXX[0x3]
02ab 0000 | |
02ac 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
02b0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e5fb | | Load 0x2,-0x5
02bc e5fc | | Load 0x2,-0x4
02bd e5fd | | Load 0x2,-0x3
02be e5fe | | Load 0x2,-0x2
02bf e5ff | | Load 0x2,-0x1
02c0 e21a | | Load 0x1,0x1a
02c1 e21b | | Load 0x1,0x1b
02c2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
02c3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
02c4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
02c5 8211 | | Call 0x1,0x11
02c6 4505 |E | Exit_Subprogram 0x5
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc e009 | | Load 0x0,0x9
02cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ce 0119 | | Execute Any,Check_In_Formal_Type
02cf 800e | | Call 0x0,0xe
02d0 4401 |D | Exit_Subprogram With_Result,0x1
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5fb | | Load 0x2,-0x5
02dc e5fc | | Load 0x2,-0x4
02dd e5fd | | Load 0x2,-0x3
02de e5fe | | Load 0x2,-0x2
02df e009 | | Load 0x0,0x9
02e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e1 0119 | | Execute Any,Check_In_Formal_Type
02e2 e5ff | | Load 0x2,-0x1
02e3 e221 | ! | Load 0x1,0x21
02e4 e222 | " | Load 0x1,0x22
02e5 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
02e6 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
02e7 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
02e8 8211 | | Call 0x1,0x11
02e9 4505 |E | Exit_Subprogram 0x5
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 e00b | | Load 0x0,0xb
02f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02f6 0119 | | Execute Any,Check_In_Formal_Type
02f7 8010 | | Call 0x0,0x10
02f8 4401 |D | Exit_Subprogram With_Result,0x1
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e5fb | | Load 0x2,-0x5
0304 e5fc | | Load 0x2,-0x4
0305 e5fd | | Load 0x2,-0x3
0306 e5fe | | Load 0x2,-0x2
0307 e00b | | Load 0x0,0xb
0308 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0309 0119 | | Execute Any,Check_In_Formal_Type
030a e5ff | | Load 0x2,-0x1
030b e228 | ( | Load 0x1,0x28
030c e229 | ) | Load 0x1,0x29
030d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
030e 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
030f 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0310 8211 | | Call 0x1,0x11
0311 4505 |E | Exit_Subprogram 0x5
0312 0000 0000 | | .BLANK 0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031e | | .CONST 0x031e ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b e003 | | Load 0x0,0x3
031c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
031d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031e BODY_0318:
031e 00db | | Load_Top At_Offset_3
031f 8027 | ' | Call 0x0,0x27
0320 7007 |p | Jump_Nonzero 0x328
0321 e5fe | | Load 0x2,-0x2
0322 0092 06c1 | | Action Push_String_Extended,0x6c1 ; "is not an ada unit"
0324 e5ff | | Load 0x2,-0x1
0325 8028 | ( | Call 0x0,0x28
0326 8025 | % | Call 0x0,0x25
0327 00d1 | | Pop_Control Pop_Count_1
0328 00db | | Load_Top At_Offset_3
0329 8029 | ) | Call 0x0,0x29
032a 7007 |p | Jump_Nonzero 0x332
032b e5fe | | Load 0x2,-0x2
032c 0092 06c2 | | Action Push_String_Extended,0x6c2 ; "is not an ada spec"
032e e5ff | | Load 0x2,-0x1
032f 8028 | ( | Call 0x0,0x28
0330 8025 | % | Call 0x0,0x25
0331 00d1 | | Pop_Control Pop_Count_1
0332 e5fe | | Load 0x2,-0x2
0333 e003 | | Load 0x0,0x3
0334 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0336 e5ff | | Load 0x2,-0x1
0337 802a | * | Call 0x0,0x2a
0338 005a | Z | Store_Top Discrete,At_Offset_2
0339 00d1 | | Pop_Control Pop_Count_1
033a 00d8 | | Load_Top At_Offset_0
033b 802b | + | Call 0x0,0x2b
033c 700c |p | Jump_Nonzero 0x349
033d e5fe | | Load 0x2,-0x2
033e 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
033f 0a01 | | Execute_Immediate Plus,0x1
0340 e5fe | | Load 0x2,-0x2
0341 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0342 e5fe | | Load 0x2,-0x2
0343 0092 06c3 | | Action Push_String_Extended,0x6c3 ; "is not installed"
0345 e5ff | | Load 0x2,-0x1
0346 8028 | ( | Call 0x0,0x28
0347 8025 | % | Call 0x0,0x25
0348 00d1 | | Pop_Control Pop_Count_1
0349 4502 |E | Exit_Subprogram 0x2
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355 | U | .CONST 0x0355 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0003 | | .CONST 0x0003 ; Number of locals
0353 INIT_0350:
0353 00e5 | | Load_Encached Long_Integer_Cache
0354 00e5 | | Load_Encached Long_Integer_Cache
0355 BODY_0350:
0355 e5ff | | Load 0x2,-0x1
0356 e012 | | Load 0x0,0x12
0357 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0358 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0359 7007 |p | Jump_Nonzero 0x361
035a e5fd | | Load 0x2,-0x3
035b 0092 06c4 | | Action Push_String_Extended,0x6c4 ; "does not have a subsystem id"
035d e5ff | | Load 0x2,-0x1
035e 802c | , | Call 0x0,0x2c
035f 8025 | % | Call 0x0,0x25
0360 00d1 | | Pop_Control Pop_Count_1
0361 e5fe | | Load 0x2,-0x2
0362 e012 | | Load 0x0,0x12
0363 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0364 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0365 7007 |p | Jump_Nonzero 0x36d
0366 e5fd | | Load 0x2,-0x3
0367 0092 06c4 | | Action Push_String_Extended,0x6c4 ; "does not have a subsystem id"
0369 e5fe | | Load 0x2,-0x2
036a 802c | , | Call 0x0,0x2c
036b 8025 | % | Call 0x0,0x25
036c 00d1 | | Pop_Control Pop_Count_1
036d e5ff | | Load 0x2,-0x1
036e e012 | | Load 0x0,0x12
036f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0370 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0371 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0372 e5fe | | Load 0x2,-0x2
0373 e012 | | Load 0x0,0x12
0374 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0375 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0376 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0377 00d9 | | Load_Top At_Offset_1
0378 6813 |h | Jump_Zero 0x38c
0379 00d8 | | Load_Top At_Offset_0
037a 6811 |h | Jump_Zero 0x38c
037b 00d9 | | Load_Top At_Offset_1
037c 00d9 | | Load_Top At_Offset_1
037d 027e | ~ | Execute Discrete,Not_Equal
037e 680d |h | Jump_Zero 0x38c
037f e5fd | | Load 0x2,-0x3
0380 0092 06c5 | | Action Push_String_Extended,0x6c5 ; "have different subsystem numbers"
0382 4800 |H | Short_Literal 0x0
0383 e5fe | | Load 0x2,-0x2
0384 e5ff | | Load 0x2,-0x1
0385 e21a | | Load 0x1,0x1a
0386 e21b | | Load 0x1,0x1b
0387 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0388 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0389 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
038a 8211 | | Call 0x1,0x11
038b 00d1 | | Pop_Control Pop_Count_1
038c 4503 |E | Exit_Subprogram 0x3
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0399 | | .CONST 0x0399 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0003 | | .CONST 0x0003 ; Number of locals
0393 INIT_0390:
0393 e012 | | Load 0x0,0x12
0394 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0395 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0396 e012 | | Load 0x0,0x12
0397 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0398 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0399 BODY_0390:
0399 e5ff | | Load 0x2,-0x1
039a e012 | | Load 0x0,0x12
039b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
039c 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
039d 7007 |p | Jump_Nonzero 0x3a5
039e e5fd | | Load 0x2,-0x3
039f 0092 06c6 | | Action Push_String_Extended,0x6c6 ; "does not have a unit number"
03a1 e5ff | | Load 0x2,-0x1
03a2 802c | , | Call 0x0,0x2c
03a3 8025 | % | Call 0x0,0x25
03a4 00d1 | | Pop_Control Pop_Count_1
03a5 e5fe | | Load 0x2,-0x2
03a6 e012 | | Load 0x0,0x12
03a7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03a8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03a9 7007 |p | Jump_Nonzero 0x3b1
03aa e5fd | | Load 0x2,-0x3
03ab 0092 06c6 | | Action Push_String_Extended,0x6c6 ; "does not have a unit number"
03ad e5fe | | Load 0x2,-0x2
03ae 802c | , | Call 0x0,0x2c
03af 8025 | % | Call 0x0,0x25
03b0 00d1 | | Pop_Control Pop_Count_1
03b1 e5ff | | Load 0x2,-0x1
03b2 e012 | | Load 0x0,0x12
03b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03b4 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03b5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03b6 e5fe | | Load 0x2,-0x2
03b7 e012 | | Load 0x0,0x12
03b8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03b9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03ba 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03bb 00d9 | | Load_Top At_Offset_1
03bc 6813 |h | Jump_Zero 0x3d0
03bd 00d8 | | Load_Top At_Offset_0
03be 6811 |h | Jump_Zero 0x3d0
03bf 00d9 | | Load_Top At_Offset_1
03c0 00d9 | | Load_Top At_Offset_1
03c1 027e | ~ | Execute Discrete,Not_Equal
03c2 680d |h | Jump_Zero 0x3d0
03c3 e5fd | | Load 0x2,-0x3
03c4 0092 06c7 | | Action Push_String_Extended,0x6c7 ; "have different unit numbers"
03c6 4800 |H | Short_Literal 0x0
03c7 e5fe | | Load 0x2,-0x2
03c8 e5ff | | Load 0x2,-0x1
03c9 e21a | | Load 0x1,0x1a
03ca e21b | | Load 0x1,0x1b
03cb 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
03cc 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
03cd 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
03ce 8211 | | Call 0x1,0x11
03cf 00d1 | | Pop_Control Pop_Count_1
03d0 4503 |E | Exit_Subprogram 0x3
03d1 0000 0000 | | .BLANK 0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e7 | | .CONST 0x03e7 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0004 | | .CONST 0x0004 ; Number of locals
03db INIT_03d8:
03db e5fb | | Load 0x2,-0x5
03dc e012 | | Load 0x0,0x12
03dd 180f | | Execute Package,Field_Execute,Field_Number 0xf
03de e5fa | | Load 0x2,-0x6
03df 85fd | | Call 0x2,-0x3
03e0 00d9 | | Load_Top At_Offset_1
03e1 01da | | Execute Vector,Bounds
03e2 49a3 |I | Short_Literal 0x1a3
03e3 00eb | | Load_Encached Diana_Cache
03e4 0098 | | Execute Package,Field_Read_Dynamic
03e5 035b | [ | Declare_Type Array,Constrained
03e6 0337 | 7 | Declare_Variable Array
03e7 BODY_03d8:
03e7 00cf | | Action Mark_Auxiliary
03e8 00db | | Load_Top At_Offset_3
03e9 01d9 | | Execute Vector,Reverse_Bounds
03ea 0263 | c | Execute Discrete,Above_Bound
03eb 7019 |p | Jump_Nonzero 0x405
03ec 00d8 | | Load_Top At_Offset_0
03ed e403 | | Load 0x2,0x3
03ee 01da | | Execute Vector,Bounds
03ef 0262 | b | Execute Discrete,In_Range
03f0 680c |h | Jump_Zero 0x3fd
03f1 00d8 | | Load_Top At_Offset_0
03f2 e402 | | Load 0x2,0x2
03f3 01d7 | | Execute Vector,Field_Read
03f4 00d9 | | Load_Top At_Offset_1
03f5 e403 | | Load 0x2,0x3
03f6 01d7 | | Execute Vector,Field_Read
03f7 0f00 | | Execute_Immediate Equal,0x0
03f8 0279 | y | Execute Discrete,And
03f9 00d9 | | Load_Top At_Offset_1
03fa e404 | | Load 0x2,0x4
03fb 01d6 | | Execute Vector,Field_Write
03fc 7806 |x | Jump 0x403
03fd 00d8 | | Load_Top At_Offset_0
03fe e402 | | Load 0x2,0x2
03ff 01d7 | | Execute Vector,Field_Read
0400 00d9 | | Load_Top At_Offset_1
0401 e404 | | Load 0x2,0x4
0402 01d6 | | Execute Vector,Field_Write
0403 00c8 | | Action Pop_Auxiliary_Range
0404 3fe7 |? | Loop_Increasing 0x3ec
0405 00ce | | Action Pop_Auxiliary
0406 00d8 | | Load_Top At_Offset_0
0407 822e | . | Call 0x1,0x2e
0408 0c01 | | Execute_Immediate Greater_Equal,0x1
0409 6806 |h | Jump_Zero 0x410
040a e5f9 | | Load 0x2,-0x7
040b 00d9 | | Load_Top At_Offset_1
040c e5fa | | Load 0x2,-0x6
040d e5fb | | Load 0x2,-0x5
040e 85fe | | Call 0x2,-0x2
040f 00d1 | | Pop_Control Pop_Count_1
0410 4507 |E | Exit_Subprogram 0x7
0411 0000 0000 | | .BLANK 0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e5fc | | Load 0x2,-0x4
041c e5fd | | Load 0x2,-0x3
041d e5fe | | Load 0x2,-0x2
041e e5ff | | Load 0x2,-0x1
041f e232 | 2 | Load 0x1,0x32
0420 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0421 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0422 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0423 8230 | 0 | Call 0x1,0x30
0424 4504 |E | Exit_Subprogram 0x4
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c e009 | | Load 0x0,0x9
042d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042e 0119 | | Execute Any,Check_In_Formal_Type
042f 820f | | Call 0x1,0xf
0430 4401 |D | Exit_Subprogram With_Result,0x1
0431 0000 0000 | | .BLANK 0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e5fc | | Load 0x2,-0x4
043c e5fd | | Load 0x2,-0x3
043d e5fe | | Load 0x2,-0x2
043e e009 | | Load 0x0,0x9
043f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0440 0119 | | Execute Any,Check_In_Formal_Type
0441 e5ff | | Load 0x2,-0x1
0442 e239 | 9 | Load 0x1,0x39
0443 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0444 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0445 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0446 8230 | 0 | Call 0x1,0x30
0447 4504 |E | Exit_Subprogram 0x4
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c e00b | | Load 0x0,0xb
044d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
044e 0119 | | Execute Any,Check_In_Formal_Type
044f 8210 | | Call 0x1,0x10
0450 4401 |D | Exit_Subprogram With_Result,0x1
0451 0000 0000 | | .BLANK 0000[0x7]
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 e5fc | | Load 0x2,-0x4
045c e5fd | | Load 0x2,-0x3
045d e5fe | | Load 0x2,-0x2
045e e00b | | Load 0x0,0xb
045f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0460 0119 | | Execute Any,Check_In_Formal_Type
0461 e5ff | | Load 0x2,-0x1
0462 e240 | @ | Load 0x1,0x40
0463 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
0464 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0465 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0466 8230 | 0 | Call 0x1,0x30
0467 4504 |E | Exit_Subprogram 0x4
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b e02d | - | Load 0x0,0x2d
046c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
046d BODY_0468:
046d 4800 |H | Short_Literal 0x0
046e e02d | - | Load 0x0,0x2d
046f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0470 e5ff | | Load 0x2,-0x1
0471 e02d | - | Load 0x0,0x2d
0472 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0473 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0474 00d8 | | Load_Top At_Offset_0
0475 0f03 | | Execute_Immediate Equal,0x3
0476 4401 |D | Exit_Subprogram With_Result,0x1
0477 0000 | | .XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c e02e | . | Load 0x0,0x2e
047d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
047e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
047f 7007 |p | Jump_Nonzero 0x487
0480 e5fc | | Load 0x2,-0x4
0481 0092 06c8 | | Action Push_String_Extended,0x6c8 ; "does not have a major coder version"
0483 e5ff | | Load 0x2,-0x1
0484 802c | , | Call 0x0,0x2c
0485 8025 | % | Call 0x0,0x25
0486 00d1 | | Pop_Control Pop_Count_1
0487 00da | | Load_Top At_Offset_2
0488 e02e | . | Load 0x0,0x2e
0489 1b10 | | Execute Package,Field_Read,Field_Number 0x10
048a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
048b 7007 |p | Jump_Nonzero 0x493
048c e5fc | | Load 0x2,-0x4
048d 0092 06c9 | | Action Push_String_Extended,0x6c9 ; "does not have a minor coder version"
048f e5ff | | Load 0x2,-0x1
0490 802c | , | Call 0x0,0x2c
0491 8025 | % | Call 0x0,0x25
0492 00d1 | | Pop_Control Pop_Count_1
0493 00da | | Load_Top At_Offset_2
0494 e02e | . | Load 0x0,0x2e
0495 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0496 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0497 a5fe | | Store_Unchecked 0x2,-0x2
0498 00da | | Load_Top At_Offset_2
0499 e02e | . | Load 0x0,0x2e
049a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
049b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
049c a5fd | | Store_Unchecked 0x2,-0x3
049d 4502 |E | Exit_Subprogram 0x2
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04ac | | .CONST 0x04ac ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0002 | | .CONST 0x0002 ; Number of locals
04a3 INIT_04a0:
04a3 e00b | | Load 0x0,0xb
04a4 1b67 | g | Execute Package,Field_Read,Field_Number 0x67
04a5 0322 | " | Declare_Variable Record
04a6 00db | | Load_Top At_Offset_3
04a7 e00b | | Load 0x0,0xb
04a8 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
04a9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04aa 00d9 | | Load_Top At_Offset_1
04ab 017d | } | Execute Record,Structure_Write
04ac BODY_04a0:
04ac 00d8 | | Load_Top At_Offset_0
04ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ae a5fe | | Store_Unchecked 0x2,-0x2
04af 00d8 | | Load_Top At_Offset_0
04b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b1 a5fd | | Store_Unchecked 0x2,-0x3
04b2 4502 |E | Exit_Subprogram 0x2
04b3 0000 0000 | | .BLANK 0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c3 | | .CONST 0x04c3 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0003 | | .CONST 0x0003 ; Number of locals
04bb INIT_04b8:
04bb e003 | | Load 0x0,0x3
04bc 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
04bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04be e003 | | Load 0x0,0x3
04bf 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
04c0 0322 | " | Declare_Variable Record
04c1 00d8 | | Load_Top At_Offset_0
04c2 1c00 | | Execute_Immediate Run_Utility,0x0
04c3 BODY_04b8:
04c3 e5fe | | Load 0x2,-0x2
04c4 e003 | | Load 0x0,0x3
04c5 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
04c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c7 e5ff | | Load 0x2,-0x1
04c8 802a | * | Call 0x0,0x2a
04c9 005b | [ | Store_Top Discrete,At_Offset_3
04ca 00d1 | | Pop_Control Pop_Count_1
04cb 00d9 | | Load_Top At_Offset_1
04cc 802f | / | Call 0x0,0x2f
04cd 7002 |p | Jump_Nonzero 0x4d0
04ce e026 | & | Load 0x0,0x26
04cf 0257 | W | Execute Discrete,Raise
04d0 e5fe | | Load 0x2,-0x2
04d1 00d9 | | Load_Top At_Offset_1
04d2 e5ff | | Load 0x2,-0x1
04d3 8030 | 0 | Call 0x0,0x30
04d4 00d2 | | Pop_Control Pop_Count_2
04d5 00d8 | | Load_Top At_Offset_0
04d6 825d | ] | Call 0x1,0x5d
04d7 7002 |p | Jump_Nonzero 0x4da
04d8 e026 | & | Load 0x0,0x26
04d9 0257 | W | Execute Discrete,Raise
04da 4502 |E | Exit_Subprogram 0x2
04db 0000 0000 | | .BLANK 0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e9 | | .CONST 0x04e9 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0006 | | .CONST 0x0006 ; Number of locals
04e3 INIT_04e0:
04e3 00e2 | | Load_Encached Integer_Cache
04e4 00e2 | | Load_Encached Integer_Cache
04e5 00e2 | | Load_Encached Integer_Cache
04e6 00e2 | | Load_Encached Integer_Cache
04e7 029f 069b | | Declare_Subprogram For_Call,INIT_0698
04e9 BODY_04e0:
04e9 8406 | | Call 0x2,0x6
04ea e5fb | | Load 0x2,-0x5
04eb 00e2 | | Load_Encached Integer_Cache
04ec 00e2 | | Load_Encached Integer_Cache
04ed e5fd | | Load 0x2,-0x3
04ee 825e | ^ | Call 0x1,0x5e
04ef c402 | | Store 0x2,0x2
04f0 c403 | | Store 0x2,0x3
04f1 00d1 | | Pop_Control Pop_Count_1
04f2 e5fb | | Load 0x2,-0x5
04f3 00e2 | | Load_Encached Integer_Cache
04f4 00e2 | | Load_Encached Integer_Cache
04f5 e5fc | | Load 0x2,-0x4
04f6 825e | ^ | Call 0x1,0x5e
04f7 c404 | | Store 0x2,0x4
04f8 005b | [ | Store_Top Discrete,At_Offset_3
04f9 00d1 | | Pop_Control Pop_Count_1
04fa e402 | | Load 0x2,0x2
04fb 00db | | Load_Top At_Offset_3
04fc 027e | ~ | Execute Discrete,Not_Equal
04fd 7004 |p | Jump_Nonzero 0x502
04fe 00db | | Load_Top At_Offset_3
04ff 00da | | Load_Top At_Offset_2
0500 027c | | | Execute Discrete,Less
0501 680d |h | Jump_Zero 0x50f
0502 e5fb | | Load 0x2,-0x5
0503 0092 06ca | | Action Push_String_Extended,0x6ca ; "were coded with incompatible versions of the code generator"
0505 4800 |H | Short_Literal 0x0
0506 e5fe | | Load 0x2,-0x2
0507 e5ff | | Load 0x2,-0x1
0508 e214 | | Load 0x1,0x14
0509 e215 | | Load 0x1,0x15
050a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
050b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
050c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
050d 8211 | | Call 0x1,0x11
050e 00d1 | | Pop_Control Pop_Count_1
050f 4505 |E | Exit_Subprogram 0x5
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0519 | | .CONST 0x0519 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0006 | | .CONST 0x0006 ; Number of locals
0513 INIT_0510:
0513 00e2 | | Load_Encached Integer_Cache
0514 00e2 | | Load_Encached Integer_Cache
0515 00e2 | | Load_Encached Integer_Cache
0516 00e2 | | Load_Encached Integer_Cache
0517 029f 06b3 | | Declare_Subprogram For_Call,INIT_06b0
0519 BODY_0510:
0519 8406 | | Call 0x2,0x6
051a e5fc | | Load 0x2,-0x4
051b 00e2 | | Load_Encached Integer_Cache
051c 00e2 | | Load_Encached Integer_Cache
051d e5fd | | Load 0x2,-0x3
051e 825e | ^ | Call 0x1,0x5e
051f c402 | | Store 0x2,0x2
0520 c403 | | Store 0x2,0x3
0521 00d1 | | Pop_Control Pop_Count_1
0522 e5fc | | Load 0x2,-0x4
0523 00e2 | | Load_Encached Integer_Cache
0524 00e2 | | Load_Encached Integer_Cache
0525 e5fe | | Load 0x2,-0x2
0526 825f | _ | Call 0x1,0x5f
0527 c404 | | Store 0x2,0x4
0528 005b | [ | Store_Top Discrete,At_Offset_3
0529 00d1 | | Pop_Control Pop_Count_1
052a e402 | | Load 0x2,0x2
052b 6806 |h | Jump_Zero 0x532
052c 00da | | Load_Top At_Offset_2
052d 6804 |h | Jump_Zero 0x532
052e e402 | | Load 0x2,0x2
052f 00db | | Load_Top At_Offset_3
0530 027e | ~ | Execute Discrete,Not_Equal
0531 7004 |p | Jump_Nonzero 0x536
0532 00db | | Load_Top At_Offset_3
0533 00da | | Load_Top At_Offset_2
0534 027c | | | Execute Discrete,Less
0535 680d |h | Jump_Zero 0x543
0536 e5fc | | Load 0x2,-0x4
0537 0092 06ca | | Action Push_String_Extended,0x6ca ; "were coded with incompatible versions of the code generator"
0539 4800 |H | Short_Literal 0x0
053a e5fe | | Load 0x2,-0x2
053b e5fd | | Load 0x2,-0x3
053c e228 | ( | Load 0x1,0x28
053d e229 | ) | Load 0x1,0x29
053e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
053f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0540 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0541 8211 | | Call 0x1,0x11
0542 00d1 | | Pop_Control Pop_Count_1
0543 4504 |E | Exit_Subprogram 0x4
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054d | M | .CONST 0x054d ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0003 | | .CONST 0x0003 ; Number of locals
054b INIT_0548:
054b 00ec | | Load_Encached Diana_Tree_Cache
054c 00ec | | Load_Encached Diana_Tree_Cache
054d BODY_0548:
054d e5fd | | Load 0x2,-0x3
054e e5ff | | Load 0x2,-0x1
054f 8245 | E | Call 0x1,0x45
0550 00d1 | | Pop_Control Pop_Count_1
0551 e5fd | | Load 0x2,-0x3
0552 e5fe | | Load 0x2,-0x2
0553 8245 | E | Call 0x1,0x45
0554 00d1 | | Pop_Control Pop_Count_1
0555 e5fd | | Load 0x2,-0x3
0556 00ec | | Load_Encached Diana_Tree_Cache
0557 e5ff | | Load 0x2,-0x1
0558 8031 | 1 | Call 0x0,0x31
0559 0033 | 3 | Store_Top Heap_Access,At_Offset_3
055a 00d1 | | Pop_Control Pop_Count_1
055b e5fd | | Load 0x2,-0x3
055c 00ec | | Load_Encached Diana_Tree_Cache
055d e5fe | | Load 0x2,-0x2
055e 8031 | 1 | Call 0x0,0x31
055f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0560 00d1 | | Pop_Control Pop_Count_1
0561 e5fd | | Load 0x2,-0x3
0562 00d9 | | Load_Top At_Offset_1
0563 00db | | Load_Top At_Offset_3
0564 8246 | F | Call 0x1,0x46
0565 00d1 | | Pop_Control Pop_Count_1
0566 e5fd | | Load 0x2,-0x3
0567 00d9 | | Load_Top At_Offset_1
0568 00db | | Load_Top At_Offset_3
0569 8247 | G | Call 0x1,0x47
056a 00d1 | | Pop_Control Pop_Count_1
056b e5fd | | Load 0x2,-0x3
056c 00d9 | | Load_Top At_Offset_1
056d 00db | | Load_Top At_Offset_3
056e e24a | J | Load 0x1,0x4a
056f 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
0570 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
0571 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
0572 8248 | H | Call 0x1,0x48
0573 00d1 | | Pop_Control Pop_Count_1
0574 e5fd | | Load 0x2,-0x3
0575 00d9 | | Load_Top At_Offset_1
0576 00db | | Load_Top At_Offset_3
0577 e5fe | | Load 0x2,-0x2
0578 e5ff | | Load 0x2,-0x1
0579 8261 | a | Call 0x1,0x61
057a 00d1 | | Pop_Control Pop_Count_1
057b e5fd | | Load 0x2,-0x3
057c 00ea | | Load_Encached Null_String_Cache
057d 4801 |H | Short_Literal 0x1
057e e5fe | | Load 0x2,-0x2
057f e5ff | | Load 0x2,-0x1
0580 e214 | | Load 0x1,0x14
0581 e215 | | Load 0x1,0x15
0582 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0583 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0584 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0585 8211 | | Call 0x1,0x11
0586 4503 |E | Exit_Subprogram 0x3
0587 0000 | | .XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058c | | .CONST 0x058c ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b 00ec | | Load_Encached Diana_Tree_Cache
058c BODY_0588:
058c e5fd | | Load 0x2,-0x3
058d e5ff | | Load 0x2,-0x1
058e 8245 | E | Call 0x1,0x45
058f 00d1 | | Pop_Control Pop_Count_1
0590 e5fd | | Load 0x2,-0x3
0591 00ec | | Load_Encached Diana_Tree_Cache
0592 e5ff | | Load 0x2,-0x1
0593 8031 | 1 | Call 0x0,0x31
0594 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0595 00d1 | | Pop_Control Pop_Count_1
0596 e5fd | | Load 0x2,-0x3
0597 e5fe | | Load 0x2,-0x2
0598 00da | | Load_Top At_Offset_2
0599 e251 | Q | Load 0x1,0x51
059a 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
059b 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
059c 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
059d 8248 | H | Call 0x1,0x48
059e 00d1 | | Pop_Control Pop_Count_1
059f e5fd | | Load 0x2,-0x3
05a0 00ea | | Load_Encached Null_String_Cache
05a1 4801 |H | Short_Literal 0x1
05a2 e5fe | | Load 0x2,-0x2
05a3 e402 | | Load 0x2,0x2
05a4 e221 | ! | Load 0x1,0x21
05a5 e222 | " | Load 0x1,0x22
05a6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
05a7 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
05a8 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
05a9 8211 | | Call 0x1,0x11
05aa 4503 |E | Exit_Subprogram 0x3
05ab 0000 0000 | | .BLANK 0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b4 | | .CONST 0x05b4 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 00ec | | Load_Encached Diana_Tree_Cache
05b4 BODY_05b0:
05b4 e5fd | | Load 0x2,-0x3
05b5 e5ff | | Load 0x2,-0x1
05b6 8245 | E | Call 0x1,0x45
05b7 00d1 | | Pop_Control Pop_Count_1
05b8 e5fd | | Load 0x2,-0x3
05b9 00ec | | Load_Encached Diana_Tree_Cache
05ba e5ff | | Load 0x2,-0x1
05bb 8031 | 1 | Call 0x0,0x31
05bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05bd 00d1 | | Pop_Control Pop_Count_1
05be e5fd | | Load 0x2,-0x3
05bf e5fe | | Load 0x2,-0x2
05c0 00da | | Load_Top At_Offset_2
05c1 e258 | X | Load 0x1,0x58
05c2 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
05c3 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
05c4 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
05c5 8248 | H | Call 0x1,0x48
05c6 00d1 | | Pop_Control Pop_Count_1
05c7 e5fd | | Load 0x2,-0x3
05c8 00d9 | | Load_Top At_Offset_1
05c9 e5fe | | Load 0x2,-0x2
05ca e5ff | | Load 0x2,-0x1
05cb 8262 | b | Call 0x1,0x62
05cc 00d1 | | Pop_Control Pop_Count_1
05cd e5fd | | Load 0x2,-0x3
05ce 00ea | | Load_Encached Null_String_Cache
05cf 4801 |H | Short_Literal 0x1
05d0 e5fe | | Load 0x2,-0x2
05d1 e402 | | Load 0x2,0x2
05d2 e228 | ( | Load 0x1,0x28
05d3 e229 | ) | Load 0x1,0x29
05d4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
05d5 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
05d6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
05d7 8211 | | Call 0x1,0x11
05d8 4503 |E | Exit_Subprogram 0x3
05d9 0000 0000 | | .BLANK 0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e8 | | .CONST 0x05e8 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0002 | | .CONST 0x0002 ; Number of locals
05e3 INIT_05e0:
05e3 e003 | | Load 0x0,0x3
05e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05e5 02c7 | | Declare_Variable Any
05e6 00d8 | | Load_Top At_Offset_0
05e7 1c00 | | Execute_Immediate Run_Utility,0x0
05e8 BODY_05e0:
05e8 e5fd | | Load 0x2,-0x3
05e9 00d9 | | Load_Top At_Offset_1
05ea 0120 | | Execute Any,Is_Value
05eb 6803 |h | Jump_Zero 0x5ef
05ec e003 | | Load 0x0,0x3
05ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ee 7801 |x | Jump 0x5f0
05ef 00d9 | | Load_Top At_Offset_1
05f0 e5fe | | Load 0x2,-0x2
05f1 e5ff | | Load 0x2,-0x1
05f2 8032 | 2 | Call 0x0,0x32
05f3 c402 | | Store 0x2,0x2
05f4 00d1 | | Pop_Control Pop_Count_1
05f5 e5fd | | Load 0x2,-0x3
05f6 e5ff | | Load 0x2,-0x1
05f7 00da | | Load_Top At_Offset_2
05f8 8263 | c | Call 0x1,0x63
05f9 4503 |E | Exit_Subprogram 0x3
05fa 0000 0000 | | .BLANK 0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0608 | | .CONST 0x0608 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0002 | | .CONST 0x0002 ; Number of locals
0603 INIT_0600:
0603 e003 | | Load 0x0,0x3
0604 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0605 02c7 | | Declare_Variable Any
0606 00d8 | | Load_Top At_Offset_0
0607 1c00 | | Execute_Immediate Run_Utility,0x0
0608 BODY_0600:
0608 e5fd | | Load 0x2,-0x3
0609 00d9 | | Load_Top At_Offset_1
060a 0120 | | Execute Any,Is_Value
060b 6803 |h | Jump_Zero 0x60f
060c e003 | | Load 0x0,0x3
060d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
060e 7801 |x | Jump 0x610
060f 00d9 | | Load_Top At_Offset_1
0610 e5fe | | Load 0x2,-0x2
0611 e5ff | | Load 0x2,-0x1
0612 8032 | 2 | Call 0x0,0x32
0613 c402 | | Store 0x2,0x2
0614 00d1 | | Pop_Control Pop_Count_1
0615 e5fd | | Load 0x2,-0x3
0616 00d9 | | Load_Top At_Offset_1
0617 e5ff | | Load 0x2,-0x1
0618 8263 | c | Call 0x1,0x63
0619 4503 |E | Exit_Subprogram 0x3
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0628 | ( | .CONST 0x0628 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0002 | | .CONST 0x0002 ; Number of locals
0623 INIT_0620:
0623 e009 | | Load 0x0,0x9
0624 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0625 02c7 | | Declare_Variable Any
0626 00d8 | | Load_Top At_Offset_0
0627 1c00 | | Execute_Immediate Run_Utility,0x0
0628 BODY_0620:
0628 e5fd | | Load 0x2,-0x3
0629 00d9 | | Load_Top At_Offset_1
062a 0120 | | Execute Any,Is_Value
062b 6803 |h | Jump_Zero 0x62f
062c e009 | | Load 0x0,0x9
062d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062e 7801 |x | Jump 0x630
062f 00d9 | | Load_Top At_Offset_1
0630 e5fe | | Load 0x2,-0x2
0631 e5ff | | Load 0x2,-0x1
0632 8033 | 3 | Call 0x0,0x33
0633 c402 | | Store 0x2,0x2
0634 00d1 | | Pop_Control Pop_Count_1
0635 e5fd | | Load 0x2,-0x3
0636 00d9 | | Load_Top At_Offset_1
0637 e5ff | | Load 0x2,-0x1
0638 8264 | d | Call 0x1,0x64
0639 4503 |E | Exit_Subprogram 0x3
063a 0000 0000 | | .BLANK 0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0648 | H | .CONST 0x0648 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0002 | | .CONST 0x0002 ; Number of locals
0643 INIT_0640:
0643 e00b | | Load 0x0,0xb
0644 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0645 02c7 | | Declare_Variable Any
0646 00d8 | | Load_Top At_Offset_0
0647 1c00 | | Execute_Immediate Run_Utility,0x0
0648 BODY_0640:
0648 e5fd | | Load 0x2,-0x3
0649 00d9 | | Load_Top At_Offset_1
064a 0120 | | Execute Any,Is_Value
064b 6803 |h | Jump_Zero 0x64f
064c e00b | | Load 0x0,0xb
064d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
064e 7801 |x | Jump 0x650
064f 00d9 | | Load_Top At_Offset_1
0650 e5fe | | Load 0x2,-0x2
0651 e5ff | | Load 0x2,-0x1
0652 8034 | 4 | Call 0x0,0x34
0653 c402 | | Store 0x2,0x2
0654 00d1 | | Pop_Control Pop_Count_1
0655 e5fd | | Load 0x2,-0x3
0656 00d9 | | Load_Top At_Offset_1
0657 e5ff | | Load 0x2,-0x1
0658 8265 | e | Call 0x1,0x65
0659 4503 |E | Exit_Subprogram 0x3
065a 0000 0000 | | .BLANK 0000[0x6]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 e035 | 5 | Load 0x0,0x35
0665 189e | | Execute Package,Field_Execute,Field_Number 0x9e
0666 681b |h | Jump_Zero 0x682
0667 e5f9 | | Load 0x2,-0x7
0668 00db | | Load_Top At_Offset_3
0669 e035 | 5 | Load 0x0,0x35
066a 189d | | Execute Package,Field_Execute,Field_Number 0x9d
066b 822f | / | Call 0x1,0x2f
066c 6815 |h | Jump_Zero 0x682
066d e5f8 | | Load 0x2,-0x8
066e 00db | | Load_Top At_Offset_3
066f e003 | | Load 0x0,0x3
0670 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0671 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0672 0092 06cb | | Action Push_String_Extended,0x6cb ; " has no matching declaration in "
0674 01cc | | Execute Vector,Catenate
0675 e5fa | | Load 0x2,-0x6
0676 85fd | | Call 0x2,-0x3
0677 01cc | | Execute Vector,Catenate
0678 e7ff | | Load 0x3,-0x1
0679 8036 | 6 | Call 0x0,0x36
067a 00d1 | | Pop_Control Pop_Count_1
067b e402 | | Load 0x2,0x2
067c 0aff | | Execute_Immediate Plus,-0x1
067d c402 | | Store 0x2,0x2
067e e402 | | Load 0x2,0x2
067f 7002 |p | Jump_Nonzero 0x682
0680 e404 | | Load 0x2,0x4
0681 0257 | W | Execute Discrete,Raise
0682 4502 |E | Exit_Subprogram 0x2
0683 0000 0000 | | .BLANK 0000[0x5]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0692 | | .CONST 0x0692 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b e5f8 | | Load 0x2,-0x8
068c 00ea | | Load_Encached Null_String_Cache
068d 4800 |H | Short_Literal 0x0
068e e5fa | | Load 0x2,-0x6
068f e5fb | | Load 0x2,-0x5
0690 85fe | | Call 0x2,-0x2
0691 4501 |E | Exit_Subprogram 0x1
0692 TRAP_0688:
0692 e026 | & | Load 0x0,0x26
0693 010f | | Execute Exception,Equal
0694 6801 |h | Jump_Zero 0x696
0695 4501 |E | Exit_Subprogram 0x1
0696 0100 | | Execute Exception,Raise
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 06a3 | | .CONST 0x06a3 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b e5fb | | Load 0x2,-0x5
069c e5ff | | Load 0x2,-0x1
069d 8260 | ` | Call 0x1,0x60
069e 00d1 | | Pop_Control Pop_Count_1
069f e5fb | | Load 0x2,-0x5
06a0 e5fe | | Load 0x2,-0x2
06a1 8260 | ` | Call 0x1,0x60
06a2 4501 |E | Exit_Subprogram 0x1
06a3 TRAP_0698:
06a3 e026 | & | Load 0x0,0x26
06a4 010f | | Execute Exception,Equal
06a5 6802 |h | Jump_Zero 0x6a8
06a6 00cc | | Action Pop_Block
06a7 4505 |E | Exit_Subprogram 0x5
06a8 0100 | | Execute Exception,Raise
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 06b7 | | .CONST 0x06b7 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e5fc | | Load 0x2,-0x4
06b4 e5ff | | Load 0x2,-0x1
06b5 8260 | ` | Call 0x1,0x60
06b6 4501 |E | Exit_Subprogram 0x1
06b7 TRAP_06b0:
06b7 e026 | & | Load 0x0,0x26
06b8 010f | | Execute Exception,Equal
06b9 6802 |h | Jump_Zero 0x6bc
06ba 00cc | | Action Pop_Block
06bb 4504 |E | Exit_Subprogram 0x4
06bc 0100 | | Execute Exception,Raise
06bd ; --------------------------------------------------------------------------------------
06bd ; STRING TABLE
06bd ; --------------------------------------------------------------------------------------
06bd 0020 | | .STRTAB 0x0020->0x06cd ; "are compatible"
06be 002c | , | .STRTAB 0x002c->0x06d4 ; "are not compatible"
06bf 003c | < | .STRTAB 0x003c->0x06dd ; "Could not find"
06c0 0048 | H | .STRTAB 0x0048->0x06e4 ; " declarations in"
06c1 0056 | V | .STRTAB 0x0056->0x06ec ; "is not an ada unit"
06c2 0066 | f | .STRTAB 0x0066->0x06f5 ; "is not an ada spec"
06c3 0076 | v | .STRTAB 0x0076->0x06fe ; "is not installed"
06c4 0084 | | .STRTAB 0x0084->0x0706 ; "does not have a subsystem id"
; "does not have a subsystem id"
06c5 009e | | .STRTAB 0x009e->0x0714 ; "have different subsystem numbers"
06c6 00bc | | .STRTAB 0x00bc->0x0724 ; "does not have a unit number"
; "does not have a unit number"
06c7 00d5 | | .STRTAB 0x00d5->0x0731 ; "have different unit numbers"
06c8 00ee | | .STRTAB 0x00ee->0x073f ; "does not have a major coder version"
06c9 010f | | .STRTAB 0x010f->0x0750 ; "does not have a minor coder version"
06ca 0130 | 0 | .STRTAB 0x0130->0x0762 ; "were coded with incompatible versions of the code generator"
; "were coded with incompatible versions of the code generator"
06cb 0169 | i | .STRTAB 0x0169->0x077f ; " has no matching declaration in "
06cc 0187 | | .STREND 0x0187->0x078f
06cd 6172 6520 |are | .STRTAB_STRINGS
0790 ; --------------------------------------------------------------------------------------
0790 ; Debug Table
0790 ; --------------------------------------------------------------------------------------
0790 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc062,0x0000,0x0001,0x0000
0796 0000 0000 | | .BLANK 0000[0x6a]