|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 06f8 | | .CONST 0x06f8 ; 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 00fd | | .CONST 0x00fd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007d | } | .CONST 0x007d ; Number of locals
000b INIT_0008:
000b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 49a2 |I | Short_Literal 0x1a2
0011 00eb | | Load_Encached Diana_Cache
0012 0098 | | Execute Package,Field_Read_Dynamic
0013 0007 | | Action Break_Optional
0014 e001 | | Load 0x0,0x1
0015 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 e001 | | Load 0x0,0x1
0018 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0019 1b10 | | Execute Package,Field_Read,Field_Number 0x10
001a e001 | | Load 0x0,0x1
001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001c 4800 |H | Short_Literal 0x0
001d 0007 | | Action Break_Optional
001e e001 | | Load 0x0,0x1
001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0020 e002 | | Load 0x0,0x2
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39
0023 0007 | | Action Break_Optional
0024 e002 | | Load 0x0,0x2
0025 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0026 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
0027 0007 | | Action Break_Optional
0028 e003 | | Load 0x0,0x3
0029 191b | | Execute Package,Field_Reference,Field_Number 0x1b
002a 0007 | | Action Break_Optional
002b e003 | | Load 0x0,0x3
002c 191c | | Execute Package,Field_Reference,Field_Number 0x1c
002d 0007 | | Action Break_Optional
002e e002 | | Load 0x0,0x2
002f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0030 1943 | C | Execute Package,Field_Reference,Field_Number 0x43
0031 0007 | | Action Break_Optional
0032 e001 | | Load 0x0,0x1
0033 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0034 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38
0035 0007 | | Action Break_Optional
0036 e001 | | Load 0x0,0x1
0037 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0038 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39
0039 0007 | | Action Break_Optional
003a e001 | | Load 0x0,0x1
003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003c 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
003d 0007 | | Action Break_Optional
003e e001 | | Load 0x0,0x1
003f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0040 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
0041 0007 | | Action Break_Optional
0042 e004 | | Load 0x0,0x4
0043 199e | | Execute Package,Field_Reference,Field_Number 0x9e
0044 0007 | | Action Break_Optional
0045 e004 | | Load 0x0,0x4
0046 199d | | Execute Package,Field_Reference,Field_Number 0x9d
0047 0007 | | Action Break_Optional
0048 e001 | | Load 0x0,0x1
0049 190f | | Execute Package,Field_Reference,Field_Number 0xf
004a 0007 | | Action Break_Optional
004b 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
004d 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
004f 029b 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Unelaborated
0051 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0052 00c7 | | Action Elaborate_Subprogram
0053 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0054 00c6 | | Action Check_Subprogram_Elaborated
0055 e002 | | Load 0x0,0x2
0056 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0057 e002 | | Load 0x0,0x2
0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0059 e005 | | Load 0x0,0x5
005a 1919 | | Execute Package,Field_Reference,Field_Number 0x19
005b e006 | | Load 0x0,0x6
005c 1919 | | Execute Package,Field_Reference,Field_Number 0x19
005d e007 | | Load 0x0,0x7
005e e008 | | Load 0x0,0x8
005f 4800 |H | Short_Literal 0x0
0060 0007 | | Action Break_Optional
0061 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0062 00c6 | | Action Check_Subprogram_Elaborated
0063 00ec | | Load_Encached Diana_Tree_Cache
0064 00ec | | Load_Encached Diana_Tree_Cache
0065 e005 | | Load 0x0,0x5
0066 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0067 e006 | | Load 0x0,0x6
0068 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0069 e009 | | Load 0x0,0x9
006a e00a | | Load 0x0,0xa
006b 4800 |H | Short_Literal 0x0
006c 0007 | | Action Break_Optional
006d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
006e 00c6 | | Action Check_Subprogram_Elaborated
006f 00ec | | Load_Encached Diana_Tree_Cache
0070 e00b | | Load 0x0,0xb
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 e005 | | Load 0x0,0x5
0073 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0074 e006 | | Load 0x0,0x6
0075 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0076 e00c | | Load 0x0,0xc
0077 e00d | | Load 0x0,0xd
0078 4800 |H | Short_Literal 0x0
0079 0007 | | Action Break_Optional
007a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007b 00c6 | | Action Check_Subprogram_Elaborated
007c 00ec | | Load_Encached Diana_Tree_Cache
007d e00e | | Load 0x0,0xe
007e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007f e005 | | Load 0x0,0x5
0080 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0081 e006 | | Load 0x0,0x6
0082 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0083 e00f | | Load 0x0,0xf
0084 e010 | | Load 0x0,0x10
0085 4800 |H | Short_Literal 0x0
0086 0007 | | Action Break_Optional
0087 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0089 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
008b 029b 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Unelaborated
008d 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
008e 00c7 | | Action Elaborate_Subprogram
008f 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
0091 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0092 00c6 | | Action Check_Subprogram_Elaborated
0093 00ec | | Load_Encached Diana_Tree_Cache
0094 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0095 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0096 e011 | | Load 0x0,0x11
0097 e012 | | Load 0x0,0x12
0098 4800 |H | Short_Literal 0x0
0099 0007 | | Action Break_Optional
009a 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
009c 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
009d 00c6 | | Action Check_Subprogram_Elaborated
009e e00b | | Load 0x0,0xb
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a1 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
00a2 e013 | | Load 0x0,0x13
00a3 e014 | | Load 0x0,0x14
00a4 4800 |H | Short_Literal 0x0
00a5 0007 | | Action Break_Optional
00a6 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
00a8 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00a9 00c6 | | Action Check_Subprogram_Elaborated
00aa e00e | | Load 0x0,0xe
00ab 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ac 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ad 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
00ae e015 | | Load 0x0,0x15
00af e016 | | Load 0x0,0x16
00b0 4800 |H | Short_Literal 0x0
00b1 0007 | | Action Break_Optional
00b2 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
00b4 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
00b6 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
00b8 029b 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Unelaborated
00ba 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00bb 00c7 | | Action Elaborate_Subprogram
00bc 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
00be 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00bf 00c6 | | Action Check_Subprogram_Elaborated
00c0 00ec | | Load_Encached Diana_Tree_Cache
00c1 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c2 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
00c3 e017 | | Load 0x0,0x17
00c4 e018 | | Load 0x0,0x18
00c5 4800 |H | Short_Literal 0x0
00c6 0007 | | Action Break_Optional
00c7 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
00c9 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00ca 00c6 | | Action Check_Subprogram_Elaborated
00cb e00b | | Load 0x0,0xb
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ce 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
00cf e019 | | Load 0x0,0x19
00d0 e01a | | Load 0x0,0x1a
00d1 4800 |H | Short_Literal 0x0
00d2 0007 | | Action Break_Optional
00d3 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
00d5 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00d6 00c6 | | Action Check_Subprogram_Elaborated
00d7 e00e | | Load 0x0,0xe
00d8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00da 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
00db e01b | | Load 0x0,0x1b
00dc e01c | | Load 0x0,0x1c
00dd 4800 |H | Short_Literal 0x0
00de 0007 | | Action Break_Optional
00df 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
00e1 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
00e3 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
00e5 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
00e7 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
00e9 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00eb 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00ed 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call
00ef 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call
00f1 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00f3 029d 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call
00f5 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
00f7 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
00f9 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00fc 00c7 | | Action Elaborate_Subprogram
00fd BODY_0008:
00fd 00bc | | Action Signal_Activated
00fe 00bb | | Action Signal_Completion
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5fd | | Load 0x2,-0x3
0104 e5fe | | Load 0x2,-0x2
0105 e01d | | Load 0x0,0x1d
0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0107 6806 |h | Jump_Zero 0x10e
0108 e5fd | | Load 0x2,-0x3
0109 e5fe | | Load 0x2,-0x2
010a e5ff | | Load 0x2,-0x1
010b 827d | } | Call 0x1,0x7d
010c 00d1 | | Pop_Control Pop_Count_1
010d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010e e5fd | | Load 0x2,-0x3
010f e5fe | | Load 0x2,-0x2
0110 e01d | | Load 0x0,0x1d
0111 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0112 6806 |h | Jump_Zero 0x119
0113 e5fd | | Load 0x2,-0x3
0114 e5fe | | Load 0x2,-0x2
0115 e5ff | | Load 0x2,-0x1
0116 827c | | | Call 0x1,0x7c
0117 00d1 | | Pop_Control Pop_Count_1
0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0119 e5fd | | Load 0x2,-0x3
011a e5fe | | Load 0x2,-0x2
011b e5ff | | Load 0x2,-0x1
011c 827b | { | Call 0x1,0x7b
011d 00d1 | | Pop_Control Pop_Count_1
011e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012d | - | .CONST 0x012d ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2
0124 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0125 02c7 | | Declare_Variable Any
0126 00d8 | | Load_Top At_Offset_0
0127 1c00 | | Execute_Immediate Run_Utility,0x0
0128 e002 | | Load 0x0,0x2
0129 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012a 02c7 | | Declare_Variable Any
012b 00d8 | | Load_Top At_Offset_0
012c 1c00 | | Execute_Immediate Run_Utility,0x0
012d BODY_0120:
012d e5fe | | Load 0x2,-0x2
012e 00da | | Load_Top At_Offset_2
012f 0120 | | Execute Any,Is_Value
0130 6803 |h | Jump_Zero 0x134
0131 e002 | | Load 0x0,0x2
0132 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0133 7801 |x | Jump 0x135
0134 00da | | Load_Top At_Offset_2
0135 e5ff | | Load 0x2,-0x1
0136 e003 | | Load 0x0,0x3
0137 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0138 c402 | | Store 0x2,0x2
0139 00d1 | | Pop_Control Pop_Count_1
013a e5fe | | Load 0x2,-0x2
013b 00d9 | | Load_Top At_Offset_1
013c 0120 | | Execute Any,Is_Value
013d 6803 |h | Jump_Zero 0x141
013e e002 | | Load 0x0,0x2
013f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0140 7801 |x | Jump 0x142
0141 00d9 | | Load_Top At_Offset_1
0142 00db | | Load_Top At_Offset_3
0143 e01d | | Load 0x0,0x1d
0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0145 c403 | | Store 0x2,0x3
0146 00d1 | | Pop_Control Pop_Count_1
0147 e5fe | | Load 0x2,-0x2
0148 00d9 | | Load_Top At_Offset_1
0149 00db | | Load_Top At_Offset_3
014a e01e | | Load 0x0,0x1e
014b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014c 00d1 | | Pop_Control Pop_Count_1
014d 00d9 | | Load_Top At_Offset_1
014e e003 | | Load 0x0,0x3
014f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0150 681c |h | Jump_Zero 0x16d
0151 e5fe | | Load 0x2,-0x2
0152 00d9 | | Load_Top At_Offset_1
0153 e01d | | Load 0x0,0x1d
0154 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0155 6806 |h | Jump_Zero 0x15c
0156 e5fe | | Load 0x2,-0x2
0157 00d9 | | Load_Top At_Offset_1
0158 e5ff | | Load 0x2,-0x1
0159 827d | } | Call 0x1,0x7d
015a 00d1 | | Pop_Control Pop_Count_1
015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015c e5fe | | Load 0x2,-0x2
015d 00d9 | | Load_Top At_Offset_1
015e e01d | | Load 0x0,0x1d
015f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0160 6806 |h | Jump_Zero 0x167
0161 e5fe | | Load 0x2,-0x2
0162 00d9 | | Load_Top At_Offset_1
0163 e5ff | | Load 0x2,-0x1
0164 827c | | | Call 0x1,0x7c
0165 00d1 | | Pop_Control Pop_Count_1
0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0167 e5fe | | Load 0x2,-0x2
0168 00d9 | | Load_Top At_Offset_1
0169 e5ff | | Load 0x2,-0x1
016a 827b | { | Call 0x1,0x7b
016b 00d1 | | Pop_Control Pop_Count_1
016c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016d e5fe | | Load 0x2,-0x2
016e 00d9 | | Load_Top At_Offset_1
016f e5ff | | Load 0x2,-0x1
0170 827a | z | Call 0x1,0x7a
0171 00d1 | | Pop_Control Pop_Count_1
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0182 | | .CONST 0x0182 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e00b | | Load 0x0,0xb
017d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
017e 0217 | | Execute Heap_Access,All_Reference
017f 0335 | 5 | Declare_Variable Array,Duplicate
0180 00cd | | Action Spare6_Action
0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0182 TRAP_0178:
0182 010e | | Execute Exception,Is_Constraint_Error
0183 6804 |h | Jump_Zero 0x188
0184 e214 | | Load 0x1,0x14
0185 0335 | 5 | Declare_Variable Array,Duplicate
0186 00cd | | Action Spare6_Action
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 0100 | | Execute Exception,Raise
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 019b | | .CONST 0x019b ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e00e | | Load 0x0,0xe
0195 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0196 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0197 0217 | | Execute Heap_Access,All_Reference
0198 0335 | 5 | Declare_Variable Array,Duplicate
0199 00cd | | Action Spare6_Action
019a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019b TRAP_0190:
019b 010e | | Execute Exception,Is_Constraint_Error
019c 6804 |h | Jump_Zero 0x1a1
019d e214 | | Load 0x1,0x14
019e 0335 | 5 | Declare_Variable Array,Duplicate
019f 00cd | | Action Spare6_Action
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 0100 | | Execute Exception,Raise
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5f8 | | Load 0x2,-0x8
01ac 680e |h | Jump_Zero 0x1bb
01ad e5f6 | | Load 0x2,-0xa
01ae 0092 0625 | %| Action Push_String_Extended,0x625 ; "are compatible"
01b0 e5f9 | | Load 0x2,-0x7
01b1 e5fc | | Load 0x2,-0x4
01b2 0119 | | Execute Any,Check_In_Formal_Type
01b3 e5fa | | Load 0x2,-0x6
01b4 e5fb | | Load 0x2,-0x5
01b5 0119 | | Execute Any,Check_In_Formal_Type
01b6 85fd | | Call 0x2,-0x3
01b7 e006 | | Load 0x0,0x6
01b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b9 00d1 | | Pop_Control Pop_Count_1
01ba 450a |E | Exit_Suprogram New_Top_Offset 0xa
01bb e5f7 | | Load 0x2,-0x9
01bc 01db | | Execute Vector,Length
01bd 7010 |p | Jump_Nonzero 0x1ce
01be e5f6 | | Load 0x2,-0xa
01bf 0092 0626 | &| Action Push_String_Extended,0x626 ; "are not compatible"
01c1 e5f9 | | Load 0x2,-0x7
01c2 e5fc | | Load 0x2,-0x4
01c3 0119 | | Execute Any,Check_In_Formal_Type
01c4 e5fa | | Load 0x2,-0x6
01c5 e5fb | | Load 0x2,-0x5
01c6 0119 | | Execute Any,Check_In_Formal_Type
01c7 85fd | | Call 0x2,-0x3
01c8 e5fa | | Load 0x2,-0x6
01c9 e5fb | | Load 0x2,-0x5
01ca 0119 | | Execute Any,Check_In_Formal_Type
01cb 85fe | | Call 0x2,-0x2
01cc 00d1 | | Pop_Control Pop_Count_1
01cd 450a |E | Exit_Suprogram New_Top_Offset 0xa
01ce e5f6 | | Load 0x2,-0xa
01cf e5f7 | | Load 0x2,-0x9
01d0 e5f9 | | Load 0x2,-0x7
01d1 e5fc | | Load 0x2,-0x4
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 e5fa | | Load 0x2,-0x6
01d4 e5fb | | Load 0x2,-0x5
01d5 0119 | | Execute Any,Check_In_Formal_Type
01d6 85fd | | Call 0x2,-0x3
01d7 e5fa | | Load 0x2,-0x6
01d8 e5fb | | Load 0x2,-0x5
01d9 0119 | | Execute Any,Check_In_Formal_Type
01da 85fe | | Call 0x2,-0x2
01db 00d1 | | Pop_Control Pop_Count_1
01dc 450a |E | Exit_Suprogram New_Top_Offset 0xa
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00e3 | | Load_Encached Natural_Cache
01e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01e5 BODY_01e0:
01e5 00cf | | Action Mark_Auxiliary
01e6 e5ff | | Load 0x2,-0x1
01e7 01d9 | | Execute Vector,Reverse_Bounds
01e8 0263 | c | Execute Discrete,Above_Bound
01e9 7008 |p | Jump_Nonzero 0x1f2
01ea 00db | | Load_Top At_Offset_3
01eb 00d9 | | Load_Top At_Offset_1
01ec e5ff | | Load 0x2,-0x1
01ed 01d7 | | Execute Vector,Field_Read
01ee 0273 | s | Execute Discrete,Plus
01ef c402 | | Store 0x2,0x2
01f0 00c8 | | Action Pop_Auxiliary_Range
01f1 3ff8 |? | Loop_Increasing 0x1ea
01f2 00ce | | Action Pop_Auxiliary
01f3 00d8 | | Load_Top At_Offset_0
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc e5fe | | Load 0x2,-0x2
01fd 01da | | Execute Vector,Bounds
01fe 0262 | b | Execute Discrete,In_Range
01ff 6804 |h | Jump_Zero 0x204
0200 00da | | Load_Top At_Offset_2
0201 e5fe | | Load 0x2,-0x2
0202 01d7 | | Execute Vector,Field_Read
0203 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0204 4800 |H | Short_Literal 0x0
0205 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021f | | .CONST 0x021f ; Address of begin
0209 023c | < | .CONST 0x023c ; Address of exception handler
020a 000a | | .CONST 0x000a ; Number of locals
020b INIT_0208:
020b e5f9 | | Load 0x2,-0x7
020c 8240 | @ | Call 0x1,0x40
020d 00e3 | | Load_Encached Natural_Cache
020e 03f1 | | Declare_Variable Discrete,With_Value
020f 00e1 | | Load_Encached Boolean_Cache
0210 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0211 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
0213 e01f | | Load 0x0,0x1f
0214 190d | | Execute Package,Field_Reference,Field_Number 0xd
0215 00c6 | | Action Check_Subprogram_Elaborated
0216 00e1 | | Load_Encached Boolean_Cache
0217 4804 |H | Short_Literal 0x4
0218 4802 |H | Short_Literal 0x2
0219 0099 | | Action Reference_Dynamic
021a e020 | | Load 0x0,0x20
021b e021 | ! | Load 0x0,0x21
021c 4809 |H | Short_Literal 0x9
021d 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
021f BODY_0208:
021f 840a | | Call 0x2,0xa
0220 e403 | | Load 0x2,0x3
0221 e5fb | | Load 0x2,-0x5
0222 e405 | | Load 0x2,0x5
0223 4806 |H | Short_Literal 0x6
0224 4802 |H | Short_Literal 0x2
0225 0099 | | Action Reference_Dynamic
0226 4807 |H | Short_Literal 0x7
0227 4802 |H | Short_Literal 0x2
0228 0099 | | Action Reference_Dynamic
0229 e01f | | Load 0x0,0x1f
022a 180d | | Execute Package,Field_Execute,Field_Number 0xd
022b c403 | | Store 0x2,0x3
022c e5f8 | | Load 0x2,-0x8
022d e5fb | | Load 0x2,-0x5
022e 0092 0627 | '| Action Push_String_Extended,0x627 ; "Could not find"
0230 e402 | | Load 0x2,0x2
0231 00e0 | | Load_Encached Standard_Cache
0232 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0233 01cc | | Execute Vector,Catenate
0234 0092 0628 | (| Action Push_String_Extended,0x628 ; " declarations in"
0236 01cc | | Execute Vector,Catenate
0237 e005 | | Load 0x0,0x5
0238 180f | | Execute Package,Field_Execute,Field_Number 0xf
0239 e006 | | Load 0x0,0x6
023a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
023b 4508 |E | Exit_Suprogram New_Top_Offset 0x8
023c TRAP_0208:
023c e022 | " | Load 0x0,0x22
023d 010f | | Execute Exception,Equal
023e 6802 |h | Jump_Zero 0x241
023f e023 | # | Load 0x0,0x23
0240 0257 | W | Execute Discrete,Raise
0241 0100 | | Execute Exception,Raise
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5fb | | Load 0x2,-0x5
024c e5fc | | Load 0x2,-0x4
024d e5fd | | Load 0x2,-0x3
024e e5fe | | Load 0x2,-0x2
024f e5ff | | Load 0x2,-0x1
0250 e22b | + | Load 0x1,0x2b
0251 e22c | , | Load 0x1,0x2c
0252 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0253 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0254 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0255 8223 | # | Call 0x1,0x23
0256 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0257 0000 | | .XXX[0x1]
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 e5fb | | Load 0x2,-0x5
025c e5fc | | Load 0x2,-0x4
025d e5fd | | Load 0x2,-0x3
025e e5fe | | Load 0x2,-0x2
025f e00b | | Load 0x0,0xb
0260 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0261 0119 | | Execute Any,Check_In_Formal_Type
0262 e5ff | | Load 0x2,-0x1
0263 e232 | 2 | Load 0x1,0x32
0264 e233 | 3 | Load 0x1,0x33
0265 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0266 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0267 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0268 8223 | # | Call 0x1,0x23
0269 4505 |E | Exit_Suprogram New_Top_Offset 0x5
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e5fb | | Load 0x2,-0x5
0274 e5fc | | Load 0x2,-0x4
0275 e5fd | | Load 0x2,-0x3
0276 e5fe | | Load 0x2,-0x2
0277 e00e | | Load 0x0,0xe
0278 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0279 0119 | | Execute Any,Check_In_Formal_Type
027a e5ff | | Load 0x2,-0x1
027b e239 | 9 | Load 0x1,0x39
027c e23a | : | Load 0x1,0x3a
027d 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
027e 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
027f 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0280 8223 | # | Call 0x1,0x23
0281 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b e003 | | Load 0x0,0x3
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d BODY_0288:
028d 00db | | Load_Top At_Offset_3
028e e003 | | Load 0x0,0x3
028f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0290 7009 |p | Jump_Nonzero 0x29a
0291 e5fe | | Load 0x2,-0x2
0292 0092 0629 | )| Action Push_String_Extended,0x629 ; "is not an ada unit"
0294 e5ff | | Load 0x2,-0x1
0295 e005 | | Load 0x0,0x5
0296 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0297 e006 | | Load 0x0,0x6
0298 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0299 00d1 | | Pop_Control Pop_Count_1
029a 00db | | Load_Top At_Offset_3
029b e003 | | Load 0x0,0x3
029c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029d 7009 |p | Jump_Nonzero 0x2a7
029e e5fe | | Load 0x2,-0x2
029f 0092 062a | *| Action Push_String_Extended,0x62a ; "is not an ada spec"
02a1 e5ff | | Load 0x2,-0x1
02a2 e005 | | Load 0x0,0x5
02a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a4 e006 | | Load 0x0,0x6
02a5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02a6 00d1 | | Pop_Control Pop_Count_1
02a7 e5fe | | Load 0x2,-0x2
02a8 e003 | | Load 0x0,0x3
02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02aa e5ff | | Load 0x2,-0x1
02ab e003 | | Load 0x0,0x3
02ac 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02ad 005a | Z | Store_Top Discrete,At_Offset_2
02ae 00d1 | | Pop_Control Pop_Count_1
02af 00d8 | | Load_Top At_Offset_0
02b0 e003 | | Load 0x0,0x3
02b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b2 700e |p | Jump_Nonzero 0x2c1
02b3 e5fe | | Load 0x2,-0x2
02b4 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
02b5 0a01 | | Execute_Immediate Plus,0x1
02b6 e5fe | | Load 0x2,-0x2
02b7 380f |8 | Execute Record,Field_Write,Field_Number 0xf
02b8 e5fe | | Load 0x2,-0x2
02b9 0092 062b | +| Action Push_String_Extended,0x62b ; "is not installed"
02bb e5ff | | Load 0x2,-0x1
02bc e005 | | Load 0x0,0x5
02bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02be e006 | | Load 0x0,0x6
02bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02c0 00d1 | | Pop_Control Pop_Count_1
02c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf | | .CONST 0x02cf ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0003 | | .CONST 0x0003 ; Number of locals
02cb INIT_02c8:
02cb e210 | | Load 0x1,0x10
02cc 0007 | | Action Break_Optional
02cd 00d8 | | Load_Top At_Offset_0
02ce 0007 | | Action Break_Optional
02cf BODY_02c8:
02cf e5ff | | Load 0x2,-0x1
02d0 821a | | Call 0x1,0x1a
02d1 7009 |p | Jump_Nonzero 0x2db
02d2 e5fd | | Load 0x2,-0x3
02d3 0092 062c | ,| Action Push_String_Extended,0x62c ; "does not have a subsystem id"
02d5 e5ff | | Load 0x2,-0x1
02d6 e005 | | Load 0x0,0x5
02d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d8 e006 | | Load 0x0,0x6
02d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02da 00d1 | | Pop_Control Pop_Count_1
02db e5fe | | Load 0x2,-0x2
02dc 821a | | Call 0x1,0x1a
02dd 7009 |p | Jump_Nonzero 0x2e7
02de e5fd | | Load 0x2,-0x3
02df 0092 062c | ,| Action Push_String_Extended,0x62c ; "does not have a subsystem id"
02e1 e5fe | | Load 0x2,-0x2
02e2 e005 | | Load 0x0,0x5
02e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e4 e006 | | Load 0x0,0x6
02e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02e6 00d1 | | Pop_Control Pop_Count_1
02e7 e5ff | | Load 0x2,-0x1
02e8 821b | | Call 0x1,0x1b
02e9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02ea e5fe | | Load 0x2,-0x2
02eb 821b | | Call 0x1,0x1b
02ec 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02ed 00d9 | | Load_Top At_Offset_1
02ee 6813 |h | Jump_Zero 0x302
02ef 00d8 | | Load_Top At_Offset_0
02f0 6811 |h | Jump_Zero 0x302
02f1 00d9 | | Load_Top At_Offset_1
02f2 00d9 | | Load_Top At_Offset_1
02f3 027e | ~ | Execute Discrete,Not_Equal
02f4 680d |h | Jump_Zero 0x302
02f5 e5fd | | Load 0x2,-0x3
02f6 0092 062d | -| Action Push_String_Extended,0x62d ; "have different subsystem numbers"
02f8 4800 |H | Short_Literal 0x0
02f9 e5fe | | Load 0x2,-0x2
02fa e5ff | | Load 0x2,-0x1
02fb e22b | + | Load 0x1,0x2b
02fc e22c | , | Load 0x1,0x2c
02fd 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
02fe 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
02ff 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0300 8223 | # | Call 0x1,0x23
0301 00d1 | | Pop_Control Pop_Count_1
0302 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030f | | .CONST 0x030f ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b e211 | | Load 0x1,0x11
030c 0007 | | Action Break_Optional
030d 00d8 | | Load_Top At_Offset_0
030e 0007 | | Action Break_Optional
030f BODY_0308:
030f e5ff | | Load 0x2,-0x1
0310 821c | | Call 0x1,0x1c
0311 7009 |p | Jump_Nonzero 0x31b
0312 e5fd | | Load 0x2,-0x3
0313 0092 062e | .| Action Push_String_Extended,0x62e ; "does not have a unit number"
0315 e5ff | | Load 0x2,-0x1
0316 e005 | | Load 0x0,0x5
0317 180e | | Execute Package,Field_Execute,Field_Number 0xe
0318 e006 | | Load 0x0,0x6
0319 1812 | | Execute Package,Field_Execute,Field_Number 0x12
031a 00d1 | | Pop_Control Pop_Count_1
031b e5fe | | Load 0x2,-0x2
031c 821c | | Call 0x1,0x1c
031d 7009 |p | Jump_Nonzero 0x327
031e e5fd | | Load 0x2,-0x3
031f 0092 062e | .| Action Push_String_Extended,0x62e ; "does not have a unit number"
0321 e5fe | | Load 0x2,-0x2
0322 e005 | | Load 0x0,0x5
0323 180e | | Execute Package,Field_Execute,Field_Number 0xe
0324 e006 | | Load 0x0,0x6
0325 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0326 00d1 | | Pop_Control Pop_Count_1
0327 e5ff | | Load 0x2,-0x1
0328 821d | | Call 0x1,0x1d
0329 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
032a e5fe | | Load 0x2,-0x2
032b 821d | | Call 0x1,0x1d
032c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
032d 00d9 | | Load_Top At_Offset_1
032e 6813 |h | Jump_Zero 0x342
032f 00d8 | | Load_Top At_Offset_0
0330 6811 |h | Jump_Zero 0x342
0331 00d9 | | Load_Top At_Offset_1
0332 00d9 | | Load_Top At_Offset_1
0333 027e | ~ | Execute Discrete,Not_Equal
0334 680d |h | Jump_Zero 0x342
0335 e5fd | | Load 0x2,-0x3
0336 0092 062f | /| Action Push_String_Extended,0x62f ; "have different unit numbers"
0338 4800 |H | Short_Literal 0x0
0339 e5fe | | Load 0x2,-0x2
033a e5ff | | Load 0x2,-0x1
033b e22b | + | Load 0x1,0x2b
033c e22c | , | Load 0x1,0x2c
033d 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
033e 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
033f 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0340 8223 | # | Call 0x1,0x23
0341 00d1 | | Pop_Control Pop_Count_1
0342 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0356 | V | .CONST 0x0356 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0004 | | .CONST 0x0004 ; Number of locals
034b INIT_0348:
034b e5fb | | Load 0x2,-0x5
034c 8220 | | Call 0x1,0x20
034d e5fa | | Load 0x2,-0x6
034e e5fc | | Load 0x2,-0x4
034f 0119 | | Execute Any,Check_In_Formal_Type
0350 85fd | | Call 0x2,-0x3
0351 00d9 | | Load_Top At_Offset_1
0352 01da | | Execute Vector,Bounds
0353 e212 | | Load 0x1,0x12
0354 035b | [ | Declare_Type Array,Constrained
0355 0337 | 7 | Declare_Variable Array
0356 BODY_0348:
0356 00cf | | Action Mark_Auxiliary
0357 00db | | Load_Top At_Offset_3
0358 01d9 | | Execute Vector,Reverse_Bounds
0359 0263 | c | Execute Discrete,Above_Bound
035a 7019 |p | Jump_Nonzero 0x374
035b 00d8 | | Load_Top At_Offset_0
035c e403 | | Load 0x2,0x3
035d 01da | | Execute Vector,Bounds
035e 0262 | b | Execute Discrete,In_Range
035f 680c |h | Jump_Zero 0x36c
0360 00d8 | | Load_Top At_Offset_0
0361 e402 | | Load 0x2,0x2
0362 01d7 | | Execute Vector,Field_Read
0363 00d9 | | Load_Top At_Offset_1
0364 e403 | | Load 0x2,0x3
0365 01d7 | | Execute Vector,Field_Read
0366 0f00 | | Execute_Immediate Equal,0x0
0367 0279 | y | Execute Discrete,And
0368 00d9 | | Load_Top At_Offset_1
0369 e404 | | Load 0x2,0x4
036a 01d6 | | Execute Vector,Field_Write
036b 7806 |x | Jump 0x372
036c 00d8 | | Load_Top At_Offset_0
036d e402 | | Load 0x2,0x2
036e 01d7 | | Execute Vector,Field_Read
036f 00d9 | | Load_Top At_Offset_1
0370 e404 | | Load 0x2,0x4
0371 01d6 | | Execute Vector,Field_Write
0372 00c8 | | Action Pop_Auxiliary_Range
0373 3fe7 |? | Loop_Increasing 0x35b
0374 00ce | | Action Pop_Auxiliary
0375 00d8 | | Load_Top At_Offset_0
0376 8240 | @ | Call 0x1,0x40
0377 0c01 | | Execute_Immediate Greater_Equal,0x1
0378 6808 |h | Jump_Zero 0x381
0379 e5f9 | | Load 0x2,-0x7
037a 00d9 | | Load_Top At_Offset_1
037b e5fa | | Load 0x2,-0x6
037c e5fc | | Load 0x2,-0x4
037d 0119 | | Execute Any,Check_In_Formal_Type
037e e5fb | | Load 0x2,-0x5
037f 85fe | | Call 0x2,-0x2
0380 00d1 | | Pop_Control Pop_Count_1
0381 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0382 0000 0000 | | .BLANK 0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e5fc | | Load 0x2,-0x4
038c e5fd | | Load 0x2,-0x3
038d e5fe | | Load 0x2,-0x2
038e e5ff | | Load 0x2,-0x1
038f e244 | D | Load 0x1,0x44
0390 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
0391 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
0392 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
0393 8242 | B | Call 0x1,0x42
0394 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e5fc | | Load 0x2,-0x4
039c e5fd | | Load 0x2,-0x3
039d e5fe | | Load 0x2,-0x2
039e e00b | | Load 0x0,0xb
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 0119 | | Execute Any,Check_In_Formal_Type
03a1 e5ff | | Load 0x2,-0x1
03a2 e24b | K | Load 0x1,0x4b
03a3 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
03a4 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
03a5 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
03a6 8242 | B | Call 0x1,0x42
03a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab e5fc | | Load 0x2,-0x4
03ac e5fd | | Load 0x2,-0x3
03ad e5fe | | Load 0x2,-0x2
03ae e00e | | Load 0x0,0xe
03af 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03b0 0119 | | Execute Any,Check_In_Formal_Type
03b1 e5ff | | Load 0x2,-0x1
03b2 e252 | R | Load 0x1,0x52
03b3 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
03b4 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
03b5 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
03b6 8242 | B | Call 0x1,0x42
03b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bd | | .CONST 0x03bd ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e024 | $ | Load 0x0,0x24
03bc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03bd BODY_03b8:
03bd 4800 |H | Short_Literal 0x0
03be e024 | $ | Load 0x0,0x24
03bf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03c0 e5ff | | Load 0x2,-0x1
03c1 e024 | $ | Load 0x0,0x24
03c2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03c4 00d8 | | Load_Top At_Offset_0
03c5 0f03 | | Execute_Immediate Equal,0x3
03c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c7 0000 | | .XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc e025 | % | Load 0x0,0x25
03cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03ce 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03cf 7009 |p | Jump_Nonzero 0x3d9
03d0 e5fc | | Load 0x2,-0x4
03d1 0092 0630 | 0| Action Push_String_Extended,0x630 ; "does not have a major coder version"
03d3 e5ff | | Load 0x2,-0x1
03d4 e005 | | Load 0x0,0x5
03d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d6 e006 | | Load 0x0,0x6
03d7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03d8 00d1 | | Pop_Control Pop_Count_1
03d9 00da | | Load_Top At_Offset_2
03da e025 | % | Load 0x0,0x25
03db 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03dc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03dd 7009 |p | Jump_Nonzero 0x3e7
03de e5fc | | Load 0x2,-0x4
03df 0092 0631 | 1| Action Push_String_Extended,0x631 ; "does not have a minor coder version"
03e1 e5ff | | Load 0x2,-0x1
03e2 e005 | | Load 0x0,0x5
03e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e4 e006 | | Load 0x0,0x6
03e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e6 00d1 | | Pop_Control Pop_Count_1
03e7 00da | | Load_Top At_Offset_2
03e8 e025 | % | Load 0x0,0x25
03e9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03eb a5fe | | Store_Unchecked 0x2,-0x2
03ec 00da | | Load_Top At_Offset_2
03ed e025 | % | Load 0x0,0x25
03ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03ef 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03f0 a5fd | | Store_Unchecked 0x2,-0x3
03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0404 | | .CONST 0x0404 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e00e | | Load 0x0,0xe
03fc 1b67 | g | Execute Package,Field_Read,Field_Number 0x67
03fd 0322 | " | Declare_Variable Record
03fe 00db | | Load_Top At_Offset_3
03ff e00e | | Load 0x0,0xe
0400 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0401 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0402 00d9 | | Load_Top At_Offset_1
0403 017d | } | Execute Record,Structure_Write
0404 BODY_03f8:
0404 00d8 | | Load_Top At_Offset_0
0405 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0406 a5fe | | Store_Unchecked 0x2,-0x2
0407 00d8 | | Load_Top At_Offset_0
0408 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0409 a5fd | | Store_Unchecked 0x2,-0x3
040a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040b 0000 0000 | | .BLANK 0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041a | | .CONST 0x041a ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0003 | | .CONST 0x0003 ; Number of locals
0413 INIT_0410:
0413 e003 | | Load 0x0,0x3
0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0415 e002 | | Load 0x0,0x2
0416 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0417 0322 | " | Declare_Variable Record
0418 00d8 | | Load_Top At_Offset_0
0419 1c00 | | Execute_Immediate Run_Utility,0x0
041a BODY_0410:
041a e5fe | | Load 0x2,-0x2
041b e003 | | Load 0x0,0x3
041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041d e5ff | | Load 0x2,-0x1
041e e003 | | Load 0x0,0x3
041f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0420 005b | [ | Store_Top Discrete,At_Offset_3
0421 00d1 | | Pop_Control Pop_Count_1
0422 00d9 | | Load_Top At_Offset_1
0423 e003 | | Load 0x0,0x3
0424 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0425 7002 |p | Jump_Nonzero 0x428
0426 e023 | # | Load 0x0,0x23
0427 0257 | W | Execute Discrete,Raise
0428 e5fe | | Load 0x2,-0x2
0429 00d9 | | Load_Top At_Offset_1
042a e5ff | | Load 0x2,-0x1
042b e003 | | Load 0x0,0x3
042c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
042d 00d2 | | Pop_Control Pop_Count_2
042e 00d8 | | Load_Top At_Offset_0
042f 8271 | q | Call 0x1,0x71
0430 7002 |p | Jump_Nonzero 0x433
0431 e023 | # | Load 0x0,0x23
0432 0257 | W | Execute Discrete,Raise
0433 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0441 | A | .CONST 0x0441 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0006 | | .CONST 0x0006 ; Number of locals
043b INIT_0438:
043b 00e2 | | Load_Encached Integer_Cache
043c 00e2 | | Load_Encached Integer_Cache
043d 00e2 | | Load_Encached Integer_Cache
043e 00e2 | | Load_Encached Integer_Cache
043f 029f 0603 | | Declare_Subprogram INIT_0600,For_Call
0441 BODY_0438:
0441 8406 | | Call 0x2,0x6
0442 e5fb | | Load 0x2,-0x5
0443 00e2 | | Load_Encached Integer_Cache
0444 00e2 | | Load_Encached Integer_Cache
0445 e5fd | | Load 0x2,-0x3
0446 8272 | r | Call 0x1,0x72
0447 c402 | | Store 0x2,0x2
0448 c403 | | Store 0x2,0x3
0449 00d1 | | Pop_Control Pop_Count_1
044a e5fb | | Load 0x2,-0x5
044b 00e2 | | Load_Encached Integer_Cache
044c 00e2 | | Load_Encached Integer_Cache
044d e5fc | | Load 0x2,-0x4
044e 8272 | r | Call 0x1,0x72
044f c404 | | Store 0x2,0x4
0450 005b | [ | Store_Top Discrete,At_Offset_3
0451 00d1 | | Pop_Control Pop_Count_1
0452 e402 | | Load 0x2,0x2
0453 00db | | Load_Top At_Offset_3
0454 027e | ~ | Execute Discrete,Not_Equal
0455 7004 |p | Jump_Nonzero 0x45a
0456 00db | | Load_Top At_Offset_3
0457 00da | | Load_Top At_Offset_2
0458 027c | | | Execute Discrete,Less
0459 680d |h | Jump_Zero 0x467
045a e5fb | | Load 0x2,-0x5
045b 0092 0632 | 2| Action Push_String_Extended,0x632 ; "were coded with incompatible versions of the code generator"
045d 4800 |H | Short_Literal 0x0
045e e5fe | | Load 0x2,-0x2
045f e5ff | | Load 0x2,-0x1
0460 e224 | $ | Load 0x1,0x24
0461 e225 | % | Load 0x1,0x25
0462 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0463 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0464 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0465 8223 | # | Call 0x1,0x23
0466 00d1 | | Pop_Control Pop_Count_1
0467 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0471 | q | .CONST 0x0471 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0006 | | .CONST 0x0006 ; Number of locals
046b INIT_0468:
046b 00e2 | | Load_Encached Integer_Cache
046c 00e2 | | Load_Encached Integer_Cache
046d 00e2 | | Load_Encached Integer_Cache
046e 00e2 | | Load_Encached Integer_Cache
046f 029f 061b | | Declare_Subprogram INIT_0618,For_Call
0471 BODY_0468:
0471 8406 | | Call 0x2,0x6
0472 e5fc | | Load 0x2,-0x4
0473 00e2 | | Load_Encached Integer_Cache
0474 00e2 | | Load_Encached Integer_Cache
0475 e5fd | | Load 0x2,-0x3
0476 8272 | r | Call 0x1,0x72
0477 c402 | | Store 0x2,0x2
0478 c403 | | Store 0x2,0x3
0479 00d1 | | Pop_Control Pop_Count_1
047a e5fc | | Load 0x2,-0x4
047b 00e2 | | Load_Encached Integer_Cache
047c 00e2 | | Load_Encached Integer_Cache
047d e5fe | | Load 0x2,-0x2
047e 8273 | s | Call 0x1,0x73
047f c404 | | Store 0x2,0x4
0480 005b | [ | Store_Top Discrete,At_Offset_3
0481 00d1 | | Pop_Control Pop_Count_1
0482 e402 | | Load 0x2,0x2
0483 6806 |h | Jump_Zero 0x48a
0484 00da | | Load_Top At_Offset_2
0485 6804 |h | Jump_Zero 0x48a
0486 e402 | | Load 0x2,0x2
0487 00db | | Load_Top At_Offset_3
0488 027e | ~ | Execute Discrete,Not_Equal
0489 7004 |p | Jump_Nonzero 0x48e
048a 00db | | Load_Top At_Offset_3
048b 00da | | Load_Top At_Offset_2
048c 027c | | | Execute Discrete,Less
048d 680d |h | Jump_Zero 0x49b
048e e5fc | | Load 0x2,-0x4
048f 0092 0632 | 2| Action Push_String_Extended,0x632 ; "were coded with incompatible versions of the code generator"
0491 4800 |H | Short_Literal 0x0
0492 e5fe | | Load 0x2,-0x2
0493 e5fd | | Load 0x2,-0x3
0494 e239 | 9 | Load 0x1,0x39
0495 e23a | : | Load 0x1,0x3a
0496 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0497 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0498 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0499 8223 | # | Call 0x1,0x23
049a 00d1 | | Pop_Control Pop_Count_1
049b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
049c 0000 0000 | | .BLANK 0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a5 | | .CONST 0x04a5 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 00ec | | Load_Encached Diana_Tree_Cache
04a4 00ec | | Load_Encached Diana_Tree_Cache
04a5 BODY_04a0:
04a5 e5fd | | Load 0x2,-0x3
04a6 e5ff | | Load 0x2,-0x1
04a7 8258 | X | Call 0x1,0x58
04a8 00d1 | | Pop_Control Pop_Count_1
04a9 e5fd | | Load 0x2,-0x3
04aa e5fe | | Load 0x2,-0x2
04ab 8258 | X | Call 0x1,0x58
04ac 00d1 | | Pop_Control Pop_Count_1
04ad e5fd | | Load 0x2,-0x3
04ae 00ec | | Load_Encached Diana_Tree_Cache
04af e5ff | | Load 0x2,-0x1
04b0 e003 | | Load 0x0,0x3
04b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04b2 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04b3 00d1 | | Pop_Control Pop_Count_1
04b4 e5fd | | Load 0x2,-0x3
04b5 00ec | | Load_Encached Diana_Tree_Cache
04b6 e5fe | | Load 0x2,-0x2
04b7 e003 | | Load 0x0,0x3
04b8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04b9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04ba 00d1 | | Pop_Control Pop_Count_1
04bb e5fd | | Load 0x2,-0x3
04bc 00d9 | | Load_Top At_Offset_1
04bd 00db | | Load_Top At_Offset_3
04be 8259 | Y | Call 0x1,0x59
04bf 00d1 | | Pop_Control Pop_Count_1
04c0 e5fd | | Load 0x2,-0x3
04c1 00d9 | | Load_Top At_Offset_1
04c2 00db | | Load_Top At_Offset_3
04c3 825a | Z | Call 0x1,0x5a
04c4 00d1 | | Pop_Control Pop_Count_1
04c5 e5fd | | Load 0x2,-0x3
04c6 00d9 | | Load_Top At_Offset_1
04c7 00db | | Load_Top At_Offset_3
04c8 e25d | ] | Load 0x1,0x5d
04c9 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
04ca 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
04cb 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
04cc 825b | [ | Call 0x1,0x5b
04cd 00d1 | | Pop_Control Pop_Count_1
04ce e5fd | | Load 0x2,-0x3
04cf 00d9 | | Load_Top At_Offset_1
04d0 00db | | Load_Top At_Offset_3
04d1 e5fe | | Load 0x2,-0x2
04d2 e5ff | | Load 0x2,-0x1
04d3 8275 | u | Call 0x1,0x75
04d4 00d1 | | Pop_Control Pop_Count_1
04d5 e5fd | | Load 0x2,-0x3
04d6 00ea | | Load_Encached Null_String_Cache
04d7 4801 |H | Short_Literal 0x1
04d8 e5fe | | Load 0x2,-0x2
04d9 e5ff | | Load 0x2,-0x1
04da e224 | $ | Load 0x1,0x24
04db e225 | % | Load 0x1,0x25
04dc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
04dd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
04de 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
04df 8223 | # | Call 0x1,0x23
04e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ec | | .CONST 0x04ec ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb 00ec | | Load_Encached Diana_Tree_Cache
04ec BODY_04e8:
04ec e5fd | | Load 0x2,-0x3
04ed e5ff | | Load 0x2,-0x1
04ee 8258 | X | Call 0x1,0x58
04ef 00d1 | | Pop_Control Pop_Count_1
04f0 e5fd | | Load 0x2,-0x3
04f1 00ec | | Load_Encached Diana_Tree_Cache
04f2 e5ff | | Load 0x2,-0x1
04f3 e003 | | Load 0x0,0x3
04f4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04f6 00d1 | | Pop_Control Pop_Count_1
04f7 e5fd | | Load 0x2,-0x3
04f8 e5fe | | Load 0x2,-0x2
04f9 00da | | Load_Top At_Offset_2
04fa e264 | d | Load 0x1,0x64
04fb 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
04fc 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
04fd 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
04fe 825b | [ | Call 0x1,0x5b
04ff 00d1 | | Pop_Control Pop_Count_1
0500 e5fd | | Load 0x2,-0x3
0501 00ea | | Load_Encached Null_String_Cache
0502 4801 |H | Short_Literal 0x1
0503 e5fe | | Load 0x2,-0x2
0504 e402 | | Load 0x2,0x2
0505 e232 | 2 | Load 0x1,0x32
0506 e233 | 3 | Load 0x1,0x33
0507 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0508 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0509 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
050a 8223 | # | Call 0x1,0x23
050b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
050c 0000 0000 | | .BLANK 0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0514 | | .CONST 0x0514 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 00ec | | Load_Encached Diana_Tree_Cache
0514 BODY_0510:
0514 e5fd | | Load 0x2,-0x3
0515 e5ff | | Load 0x2,-0x1
0516 8258 | X | Call 0x1,0x58
0517 00d1 | | Pop_Control Pop_Count_1
0518 e5fd | | Load 0x2,-0x3
0519 00ec | | Load_Encached Diana_Tree_Cache
051a e5ff | | Load 0x2,-0x1
051b e003 | | Load 0x0,0x3
051c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
051d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
051e 00d1 | | Pop_Control Pop_Count_1
051f e5fd | | Load 0x2,-0x3
0520 e5fe | | Load 0x2,-0x2
0521 00da | | Load_Top At_Offset_2
0522 e26b | k | Load 0x1,0x6b
0523 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0524 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
0525 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
0526 825b | [ | Call 0x1,0x5b
0527 00d1 | | Pop_Control Pop_Count_1
0528 e5fd | | Load 0x2,-0x3
0529 00d9 | | Load_Top At_Offset_1
052a e5fe | | Load 0x2,-0x2
052b e5ff | | Load 0x2,-0x1
052c 8276 | v | Call 0x1,0x76
052d 00d1 | | Pop_Control Pop_Count_1
052e e5fd | | Load 0x2,-0x3
052f 00ea | | Load_Encached Null_String_Cache
0530 4801 |H | Short_Literal 0x1
0531 e5fe | | Load 0x2,-0x2
0532 e402 | | Load 0x2,0x2
0533 e239 | 9 | Load 0x1,0x39
0534 e23a | : | Load 0x1,0x3a
0535 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0536 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0537 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0538 8223 | # | Call 0x1,0x23
0539 4503 |E | Exit_Suprogram New_Top_Offset 0x3
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548 | H | .CONST 0x0548 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e002 | | Load 0x0,0x2
0544 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0545 02c7 | | Declare_Variable Any
0546 00d8 | | Load_Top At_Offset_0
0547 1c00 | | Execute_Immediate Run_Utility,0x0
0548 BODY_0540:
0548 e5fd | | Load 0x2,-0x3
0549 00d9 | | Load_Top At_Offset_1
054a 0120 | | Execute Any,Is_Value
054b 6803 |h | Jump_Zero 0x54f
054c e002 | | Load 0x0,0x2
054d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054e 7801 |x | Jump 0x550
054f 00d9 | | Load_Top At_Offset_1
0550 e5fe | | Load 0x2,-0x2
0551 e5ff | | Load 0x2,-0x1
0552 e01d | | Load 0x0,0x1d
0553 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0554 c402 | | Store 0x2,0x2
0555 00d1 | | Pop_Control Pop_Count_1
0556 e5fd | | Load 0x2,-0x3
0557 e5ff | | Load 0x2,-0x1
0558 00da | | Load_Top At_Offset_2
0559 8277 | w | Call 0x1,0x77
055a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
055b 0000 0000 | | .BLANK 0000[0x5]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0568 | h | .CONST 0x0568 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0002 | | .CONST 0x0002 ; Number of locals
0563 INIT_0560:
0563 e002 | | Load 0x0,0x2
0564 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0565 02c7 | | Declare_Variable Any
0566 00d8 | | Load_Top At_Offset_0
0567 1c00 | | Execute_Immediate Run_Utility,0x0
0568 BODY_0560:
0568 e5fd | | Load 0x2,-0x3
0569 00d9 | | Load_Top At_Offset_1
056a 0120 | | Execute Any,Is_Value
056b 6803 |h | Jump_Zero 0x56f
056c e002 | | Load 0x0,0x2
056d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056e 7801 |x | Jump 0x570
056f 00d9 | | Load_Top At_Offset_1
0570 e5fe | | Load 0x2,-0x2
0571 e5ff | | Load 0x2,-0x1
0572 e01d | | Load 0x0,0x1d
0573 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0574 c402 | | Store 0x2,0x2
0575 00d1 | | Pop_Control Pop_Count_1
0576 e5fd | | Load 0x2,-0x3
0577 00d9 | | Load_Top At_Offset_1
0578 e5ff | | Load 0x2,-0x1
0579 8277 | w | Call 0x1,0x77
057a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
057b 0000 0000 | | .BLANK 0000[0x5]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0588 | | .CONST 0x0588 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 e00b | | Load 0x0,0xb
0584 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0585 02c7 | | Declare_Variable Any
0586 00d8 | | Load_Top At_Offset_0
0587 1c00 | | Execute_Immediate Run_Utility,0x0
0588 BODY_0580:
0588 e5fd | | Load 0x2,-0x3
0589 00d9 | | Load_Top At_Offset_1
058a 0120 | | Execute Any,Is_Value
058b 6803 |h | Jump_Zero 0x58f
058c e00b | | Load 0x0,0xb
058d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058e 7801 |x | Jump 0x590
058f 00d9 | | Load_Top At_Offset_1
0590 e5fe | | Load 0x2,-0x2
0591 e5ff | | Load 0x2,-0x1
0592 e01d | | Load 0x0,0x1d
0593 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0594 c402 | | Store 0x2,0x2
0595 00d1 | | Pop_Control Pop_Count_1
0596 e5fd | | Load 0x2,-0x3
0597 00d9 | | Load_Top At_Offset_1
0598 e5ff | | Load 0x2,-0x1
0599 8278 | x | Call 0x1,0x78
059a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
059b 0000 0000 | | .BLANK 0000[0x5]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a8 | | .CONST 0x05a8 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0002 | | .CONST 0x0002 ; Number of locals
05a3 INIT_05a0:
05a3 e00e | | Load 0x0,0xe
05a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05a5 02c7 | | Declare_Variable Any
05a6 00d8 | | Load_Top At_Offset_0
05a7 1c00 | | Execute_Immediate Run_Utility,0x0
05a8 BODY_05a0:
05a8 e5fd | | Load 0x2,-0x3
05a9 00d9 | | Load_Top At_Offset_1
05aa 0120 | | Execute Any,Is_Value
05ab 6803 |h | Jump_Zero 0x5af
05ac e00e | | Load 0x0,0xe
05ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05ae 7801 |x | Jump 0x5b0
05af 00d9 | | Load_Top At_Offset_1
05b0 e5fe | | Load 0x2,-0x2
05b1 e5ff | | Load 0x2,-0x1
05b2 e01d | | Load 0x0,0x1d
05b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05b4 c402 | | Store 0x2,0x2
05b5 00d1 | | Pop_Control Pop_Count_1
05b6 e5fd | | Load 0x2,-0x3
05b7 00d9 | | Load_Top At_Offset_1
05b8 e5ff | | Load 0x2,-0x1
05b9 8279 | y | Call 0x1,0x79
05ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05bb 0000 0000 | | .BLANK 0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 821e | | Call 0x1,0x1e
05c5 681b |h | Jump_Zero 0x5e1
05c6 e5f9 | | Load 0x2,-0x7
05c7 00db | | Load_Top At_Offset_3
05c8 821f | | Call 0x1,0x1f
05c9 8241 | A | Call 0x1,0x41
05ca 6816 |h | Jump_Zero 0x5e1
05cb e5f8 | | Load 0x2,-0x8
05cc 00db | | Load_Top At_Offset_3
05cd 8219 | | Call 0x1,0x19
05ce 0092 0633 | 3| Action Push_String_Extended,0x633 ; " has no matching declaration in "
05d0 01cc | | Execute Vector,Catenate
05d1 e5fa | | Load 0x2,-0x6
05d2 e5fc | | Load 0x2,-0x4
05d3 0119 | | Execute Any,Check_In_Formal_Type
05d4 85fd | | Call 0x2,-0x3
05d5 01cc | | Execute Vector,Catenate
05d6 e7ff | | Load 0x3,-0x1
05d7 e006 | | Load 0x0,0x6
05d8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05d9 00d1 | | Pop_Control Pop_Count_1
05da e402 | | Load 0x2,0x2
05db 0aff | | Execute_Immediate Plus,-0x1
05dc c402 | | Store 0x2,0x2
05dd e402 | | Load 0x2,0x2
05de 7002 |p | Jump_Nonzero 0x5e1
05df e022 | " | Load 0x0,0x22
05e0 0257 | W | Execute Discrete,Raise
05e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 05f4 | | .CONST 0x05f4 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb e5f8 | | Load 0x2,-0x8
05ec 00ea | | Load_Encached Null_String_Cache
05ed 4800 |H | Short_Literal 0x0
05ee e5fa | | Load 0x2,-0x6
05ef e5fc | | Load 0x2,-0x4
05f0 0119 | | Execute Any,Check_In_Formal_Type
05f1 e5fb | | Load 0x2,-0x5
05f2 85fe | | Call 0x2,-0x2
05f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f4 TRAP_05e8:
05f4 e023 | # | Load 0x0,0x23
05f5 010f | | Execute Exception,Equal
05f6 6801 |h | Jump_Zero 0x5f8
05f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f8 0100 | | Execute Exception,Raise
05f9 0000 0000 | | .BLANK 0000[0x7]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 060b | | .CONST 0x060b ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e5fb | | Load 0x2,-0x5
0604 e5ff | | Load 0x2,-0x1
0605 8274 | t | Call 0x1,0x74
0606 00d1 | | Pop_Control Pop_Count_1
0607 e5fb | | Load 0x2,-0x5
0608 e5fe | | Load 0x2,-0x2
0609 8274 | t | Call 0x1,0x74
060a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
060b TRAP_0600:
060b e023 | # | Load 0x0,0x23
060c 010f | | Execute Exception,Equal
060d 6802 |h | Jump_Zero 0x610
060e 00cc | | Action Pop_Block
060f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0610 0100 | | Execute Exception,Raise
0611 0000 0000 | | .BLANK 0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 061f | | .CONST 0x061f ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b e5fc | | Load 0x2,-0x4
061c e5ff | | Load 0x2,-0x1
061d 8274 | t | Call 0x1,0x74
061e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
061f TRAP_0618:
061f e023 | # | Load 0x0,0x23
0620 010f | | Execute Exception,Equal
0621 6802 |h | Jump_Zero 0x624
0622 00cc | | Action Pop_Block
0623 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0624 0100 | | Execute Exception,Raise
0625 ; --------------------------------------------------------------------------------------
0625 ; STRING TABLE
0625 ; --------------------------------------------------------------------------------------
0625 0020 | | .STRTAB 0x0020->0x0635 ; "are compatible"
0626 002c | , | .STRTAB 0x002c->0x063c ; "are not compatible"
0627 003c | < | .STRTAB 0x003c->0x0645 ; "Could not find"
0628 0048 | H | .STRTAB 0x0048->0x064c ; " declarations in"
0629 0056 | V | .STRTAB 0x0056->0x0654 ; "is not an ada unit"
062a 0066 | f | .STRTAB 0x0066->0x065d ; "is not an ada spec"
062b 0076 | v | .STRTAB 0x0076->0x0666 ; "is not installed"
062c 0084 | | .STRTAB 0x0084->0x066e ; "does not have a subsystem id"
062d 009e | | .STRTAB 0x009e->0x067c ; "have different subsystem numbers"
062e 00bc | | .STRTAB 0x00bc->0x068c ; "does not have a unit number"
062f 00d5 | | .STRTAB 0x00d5->0x0699 ; "have different unit numbers"
0630 00ee | | .STRTAB 0x00ee->0x06a7 ; "does not have a major coder version"
0631 010f | | .STRTAB 0x010f->0x06b8 ; "does not have a minor coder version"
0632 0130 | 0 | .STRTAB 0x0130->0x06ca ; "were coded with incompatible versions of the code generator"
0633 0169 | i | .STRTAB 0x0169->0x06e7 ; " has no matching declaration in "
0634 0187 | | .STREND 0x0187->0x06f7
0635 6172 6520 |are | .STRTAB_STRINGS
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug Table
06f8 ; --------------------------------------------------------------------------------------
06f8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa59c,0x0000,0x0001,0x0000
06fe d000 0960 | `| .XXX[0x12]
0700 0000 02e0 | |
0702 0500 0000 | |
0704 a200 0000 | |
0706 4000 0002 |@ |
0708 2000 0000 | |
070a 0100 0000 | |
070c 0a40 004a | @ J|
070e 0227 ab00 | ' |
0710 0000 0000 | | .BLANK 0000[0x1a]
072a 0001 0000 | | .XXX[0x1f]
072c 2627 4120 |&'A |
072e 03aa 4000 | @ |
0730 001c db26 | &|
0732 4040 0200 |@@ |
0734 0148 0000 | H |
0736 000d 0d00 | |
0738 0008 0000 | |
073a 000c 00a0 | |
073c 0000 0020 | |
073e 0000 0800 | |
0740 0000 4400 | D |
0742 0000 0020 | |
0744 0000 0148 | H|
0746 0000 4044 | @D|
0748 f680 | |
0749 0000 0000 | | .BLANK 0000[0x1b]
0764 6000 056c |` l| .XXX[0x1e]
0766 2824 0079 |($ y|
0768 b000 0003 | |
076a 9b44 c808 | D |
076c 0040 0029 | @ )|
076e 0000 0001 | |
0770 ab00 0001 | |
0772 0000 0001 | |
0774 8014 0000 | |
0776 0004 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0029 0000 | ) |
0780 0808 b4a0 | |
0782 0000 0000 | | .BLANK 0000[0x1b]
079d 0c00 00ae | | .XXX[0x1e]
079f 9d04 800f | |
07a1 3800 0000 |8 |
07a3 7250 9901 |rP |
07a5 0008 0005 | |
07a7 2000 0000 | |
07a9 3560 0000 |5` |
07ab 4000 0000 |@ |
07ad 3002 8000 |0 |
07af 0000 8000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 2000 | |
07b9 0101 1694 | |
07bb 0000 0000 | | .BLANK 0000[0x1b]
07d6 0180 0015 | | .XXX[0x3]
07d8 d380 | |
07d9 0000 0000 | | .BLANK 0000[0x27]