|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0628 | ( | .CONST 0x0628 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007b | { | .CONST 0x007b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0017 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 001d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 001f 00bf | | Action Accept_Activation 0020 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0022 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0024 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0026 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0028 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 002a 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 002c 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 002e 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0030 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 0032 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0034 a003 | | Store_Unchecked 0x0,0x3 0035 00c6 | | Action Check_Subprogram_Elaborated 0036 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0037 0093 0000 | | push_full_address 0x0 0039 607e |`~ | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00060000} 003a 0273 | s | Execute Discrete,Plus 003b e004 | | Load 0x0,0x4 003c 0273 | s | Execute Discrete,Plus 003d e005 | | Load 0x0,0x5 003e 0273 | s | Execute Discrete,Plus 003f 4800 |H | Short_Literal 0x0 0040 0007 | | Action Break_Optional 0041 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 0043 a003 | | Store_Unchecked 0x0,0x3 0044 00c6 | | Action Check_Subprogram_Elaborated 0045 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0046 0093 0000 | | push_full_address 0x0 0048 606b |`k | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00050000} 0049 0273 | s | Execute Discrete,Plus 004a e004 | | Load 0x0,0x4 004b 0273 | s | Execute Discrete,Plus 004c e006 | | Load 0x0,0x6 004d 0273 | s | Execute Discrete,Plus 004e 4800 |H | Short_Literal 0x0 004f 0007 | | Action Break_Optional 0050 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 0052 a003 | | Store_Unchecked 0x0,0x3 0053 00c6 | | Action Check_Subprogram_Elaborated 0054 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0055 0093 0000 | | push_full_address 0x0 0057 6058 |`X | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00040000} 0058 0273 | s | Execute Discrete,Plus 0059 e004 | | Load 0x0,0x4 005a 0273 | s | Execute Discrete,Plus 005b e007 | | Load 0x0,0x7 005c 0273 | s | Execute Discrete,Plus 005d 4800 |H | Short_Literal 0x0 005e 0007 | | Action Break_Optional 005f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0060 00c7 | | Action Elaborate_Subprogram 0061 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 0063 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0064 00c7 | | Action Elaborate_Subprogram 0065 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0067 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0068 00c7 | | Action Elaborate_Subprogram 0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10 006a 00c7 | | Action Elaborate_Subprogram 006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 006c 00c7 | | Action Elaborate_Subprogram 006d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 006e 00c7 | | Action Elaborate_Subprogram 006f 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 0071 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call 0073 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0074 00c7 | | Action Elaborate_Subprogram 0075 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0076 00c7 | | Action Elaborate_Subprogram 0077 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0078 00c7 | | Action Elaborate_Subprogram 0079 1d16 | | Execute_Immediate Reference_Lex_1,0x16 007a 00c7 | | Action Elaborate_Subprogram 007b BODY_0008: 007b 00bc | | Action Signal_Activated 007c 00bb | | Action Signal_Completion 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0096 | | .CONST 0x0096 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0006 | | .CONST 0x0006 ; Number of locals 0083 INIT_0080: 0083 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0085 a008 | | Store_Unchecked 0x0,0x8 0086 00c6 | | Action Check_Subprogram_Elaborated 0087 4802 |H | Short_Literal 0x2 0088 4802 |H | Short_Literal 0x2 0089 0099 | | Action Reference_Dynamic 008a 0092 0549 | I| Action Push_String_Extended,0x549 ; "Cant find" 008c 0093 0000 | | push_full_address 0x0 008e 601d |` | Indirect_Literal Discrete,0xac,{0x80000000, 0x00020000} 008f 0273 | s | Execute Discrete,Plus 0090 e004 | | Load 0x0,0x4 0091 0273 | s | Execute Discrete,Plus 0092 e009 | | Load 0x0,0x9 0093 0273 | s | Execute Discrete,Plus 0094 4806 |H | Short_Literal 0x6 0095 0007 | | Action Break_Optional 0096 BODY_0080: 0096 e5fe | | Load 0x2,-0x2 0097 e00a | | Load 0x0,0xa 0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0099 e5ff | | Load 0x2,-0x1 009a 4803 |H | Short_Literal 0x3 009b 4802 |H | Short_Literal 0x2 009c 0099 | | Action Reference_Dynamic 009d e404 | | Load 0x2,0x4 009e 4805 |H | Short_Literal 0x5 009f 4802 |H | Short_Literal 0x2 00a0 0099 | | Action Reference_Dynamic 00a1 8008 | | Call 0x0,0x8 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 e5fe | | Load 0x2,-0x2 00a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a5 6802 |h | Jump_Zero 0xa8 00a6 e00b | | Load 0x0,0xb 00a7 0257 | W | Execute Discrete,Raise 00a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a9 0000 0000 | | .XXX[0x3] 00ab 0000 | | 00ac 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00b0 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 00b4 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 00b8 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d6 | | .CONST 0x00d6 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call 00c5 a008 | | Store_Unchecked 0x0,0x8 00c6 00c6 | | Action Check_Subprogram_Elaborated 00c7 4802 |H | Short_Literal 0x2 00c8 4802 |H | Short_Literal 0x2 00c9 0099 | | Action Reference_Dynamic 00ca 0092 0549 | I| Action Push_String_Extended,0x549 ; "Cant find" 00cc 0093 0000 | | push_full_address 0x0 00ce 601d |` | Indirect_Literal Discrete,0xec,{0x80000000, 0x00010000} 00cf 0273 | s | Execute Discrete,Plus 00d0 e004 | | Load 0x0,0x4 00d1 0273 | s | Execute Discrete,Plus 00d2 e00c | | Load 0x0,0xc 00d3 0273 | s | Execute Discrete,Plus 00d4 4806 |H | Short_Literal 0x6 00d5 0007 | | Action Break_Optional 00d6 BODY_00c0: 00d6 e5fe | | Load 0x2,-0x2 00d7 e00a | | Load 0x0,0xa 00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d9 e5ff | | Load 0x2,-0x1 00da 4803 |H | Short_Literal 0x3 00db 4802 |H | Short_Literal 0x2 00dc 0099 | | Action Reference_Dynamic 00dd e404 | | Load 0x2,0x4 00de 4805 |H | Short_Literal 0x5 00df 4802 |H | Short_Literal 0x2 00e0 0099 | | Action Reference_Dynamic 00e1 8008 | | Call 0x0,0x8 00e2 00d1 | | Pop_Control Pop_Count_1 00e3 e5fe | | Load 0x2,-0x2 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 6802 |h | Jump_Zero 0xe8 00e6 e00b | | Load 0x0,0xb 00e7 0257 | W | Execute Discrete,Raise 00e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e9 0000 0000 | | .XXX[0x3] 00eb 0000 | | 00ec 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0106 | | .CONST 0x0106 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0006 | | .CONST 0x0006 ; Number of locals 00f3 INIT_00f0: 00f3 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 00f5 a008 | | Store_Unchecked 0x0,0x8 00f6 00c6 | | Action Check_Subprogram_Elaborated 00f7 4802 |H | Short_Literal 0x2 00f8 4802 |H | Short_Literal 0x2 00f9 0099 | | Action Reference_Dynamic 00fa 0092 0549 | I| Action Push_String_Extended,0x549 ; "Cant find" 00fc 0093 0000 | | push_full_address 0x0 00fe 601d |` | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00030000} 00ff 0273 | s | Execute Discrete,Plus 0100 e004 | | Load 0x0,0x4 0101 0273 | s | Execute Discrete,Plus 0102 e00d | | Load 0x0,0xd 0103 0273 | s | Execute Discrete,Plus 0104 4806 |H | Short_Literal 0x6 0105 0007 | | Action Break_Optional 0106 BODY_00f0: 0106 e5fe | | Load 0x2,-0x2 0107 e00a | | Load 0x0,0xa 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 e5ff | | Load 0x2,-0x1 010a 4803 |H | Short_Literal 0x3 010b 4802 |H | Short_Literal 0x2 010c 0099 | | Action Reference_Dynamic 010d e404 | | Load 0x2,0x4 010e 4805 |H | Short_Literal 0x5 010f 4802 |H | Short_Literal 0x2 0110 0099 | | Action Reference_Dynamic 0111 8008 | | Call 0x0,0x8 0112 00d1 | | Pop_Control Pop_Count_1 0113 e5fe | | Load 0x2,-0x2 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 6802 |h | Jump_Zero 0x118 0116 e00b | | Load 0x0,0xb 0117 0257 | W | Execute Discrete,Raise 0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0119 0000 0000 | | .XXX[0x3] 011b 0000 | | 011c 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0129 | ) | .CONST 0x0129 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e00a | | Load 0x0,0xa 0124 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0125 02ff | | Declare_Variable Variant_Record 0126 00d8 | | Load_Top At_Offset_0 0127 1c00 | | Execute_Immediate Run_Utility,0x0 0128 00e1 | | Load_Encached Boolean_Cache 0129 BODY_0120: 0129 00e1 | | Load_Encached Boolean_Cache 012a 00da | | Load_Top At_Offset_2 012b e5ff | | Load 0x2,-0x1 012c e5fe | | Load 0x2,-0x2 012d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 012e e00e | | Load 0x0,0xe 012f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0130 00d1 | | Pop_Control Pop_Count_1 0131 0059 | Y | Store_Top Discrete,At_Offset_1 0132 00d8 | | Load_Top At_Offset_0 0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c e00f | | Load 0x0,0xf 013d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 013e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 014a | J | .CONST 0x014a ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 e5fd | | Load 0x2,-0x3 0145 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0146 e010 | | Load 0x0,0x10 0147 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0148 c5fe | | Store 0x2,-0x2 0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014a TRAP_0140: 014a e010 | | Load 0x0,0x10 014b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 014c 010f | | Execute Exception,Equal 014d 6807 |h | Jump_Zero 0x155 014e e5fd | | Load 0x2,-0x3 014f e5ff | | Load 0x2,-0x1 0150 0092 054a | J| Action Push_String_Extended,0x54a ; "Could not get enclosing subsystem for" 0152 8011 | | Call 0x0,0x11 0153 8012 | | Call 0x0,0x12 0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0155 0100 | | Execute Exception,Raise 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e00a | | Load 0x0,0xa 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 BODY_0158: 0160 e5fd | | Load 0x2,-0x3 0161 00d9 | | Load_Top At_Offset_1 0162 0120 | | Execute Any,Is_Value 0163 6803 |h | Jump_Zero 0x167 0164 e00a | | Load 0x0,0xa 0165 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0166 7801 |x | Jump 0x168 0167 00d9 | | Load_Top At_Offset_1 0168 e5ff | | Load 0x2,-0x1 0169 8212 | | Call 0x1,0x12 016a c402 | | Store 0x2,0x2 016b 00d1 | | Pop_Control Pop_Count_1 016c e5fd | | Load 0x2,-0x3 016d e5fe | | Load 0x2,-0x2 016e 0120 | | Execute Any,Is_Value 016f 6803 |h | Jump_Zero 0x173 0170 e00a | | Load 0x0,0xa 0171 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0172 7801 |x | Jump 0x174 0173 e5fe | | Load 0x2,-0x2 0174 00da | | Load_Top At_Offset_2 0175 e5ff | | Load 0x2,-0x1 0176 822e | . | Call 0x1,0x2e 0177 c5fe | | Store 0x2,-0x2 0178 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0193 | | .CONST 0x0193 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0005 | | .CONST 0x0005 ; Number of locals 0183 INIT_0180: 0183 e00a | | Load 0x0,0xa 0184 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0185 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0186 e00a | | Load 0x0,0xa 0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0188 e00a | | Load 0x0,0xa 0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018b 0092 054b | K| Action Push_String_Extended,0x54b ; "'L(INTERNAL)." 018d e5ff | | Load 0x2,-0x1 018e e00a | | Load 0x0,0xa 018f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0190 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0191 01cc | | Execute Vector,Catenate 0192 0007 | | Action Break_Optional 0193 BODY_0180: 0193 e00a | | Load 0x0,0xa 0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0195 e00a | | Load 0x0,0xa 0196 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0197 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0198 605b |`[ | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 0199 e5fc | | Load 0x2,-0x4 019a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019b 4800 |H | Short_Literal 0x0 019c e5fe | | Load 0x2,-0x2 019d e00a | | Load 0x0,0xa 019e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a0 c402 | | Store 0x2,0x2 01a1 005b | [ | Store_Top Discrete,At_Offset_3 01a2 00da | | Load_Top At_Offset_2 01a3 8013 | | Call 0x0,0x13 01a4 7008 |p | Jump_Nonzero 0x1ad 01a5 e5fc | | Load 0x2,-0x4 01a6 00db | | Load_Top At_Offset_3 01a7 e5fe | | Load 0x2,-0x2 01a8 0092 054c | L| Action Push_String_Extended,0x54c ; "Could not establish naming context for" 01aa 8014 | | Call 0x0,0x14 01ab 8012 | | Call 0x0,0x12 01ac 00d1 | | Pop_Control Pop_Count_1 01ad e00a | | Load 0x0,0xa 01ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b0 e5fd | | Load 0x2,-0x3 01b1 0120 | | Execute Any,Is_Value 01b2 6803 |h | Jump_Zero 0x1b6 01b3 e00a | | Load 0x0,0xa 01b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b5 7801 |x | Jump 0x1b7 01b6 e5fd | | Load 0x2,-0x3 01b7 603c |`< | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 01b8 e5fc | | Load 0x2,-0x4 01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ba e402 | | Load 0x2,0x2 01bb e405 | | Load 0x2,0x5 01bc e00a | | Load 0x0,0xa 01bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01be 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01bf c5fd | | Store 0x2,-0x3 01c0 005a | Z | Store_Top Discrete,At_Offset_2 01c1 00d9 | | Load_Top At_Offset_1 01c2 460e |F | Jump_Case 0xf 01c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 01c4 780d |x | Jump 0x1d2 ; case 0x1 01c5 780c |x | Jump 0x1d2 ; case 0x2 01c6 7825 |x% | Jump 0x1ec ; case 0x3 01c7 780a |x | Jump 0x1d2 ; case 0x4 01c8 7809 |x | Jump 0x1d2 ; case 0x5 01c9 7808 |x | Jump 0x1d2 ; case 0x6 01ca 7807 |x | Jump 0x1d2 ; case 0x7 01cb 7806 |x | Jump 0x1d2 ; case 0x8 01cc 7805 |x | Jump 0x1d2 ; case 0x9 01cd 7804 |x | Jump 0x1d2 ; case 0xa 01ce 7803 |x | Jump 0x1d2 ; case 0xb 01cf 7802 |x | Jump 0x1d2 ; case 0xc 01d0 7801 |x | Jump 0x1d2 ; case 0xd 01d1 7800 |x | Jump 0x1d2 ; case 0xe 01d2 e5fc | | Load 0x2,-0x4 01d3 0092 054d | M| Action Push_String_Extended,0x54d ; "because " 01d5 601e |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 01d6 e5fc | | Load 0x2,-0x4 01d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d8 e015 | | Load 0x0,0x15 01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01da e016 | | Load 0x0,0x16 01db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01dc 4801 |H | Short_Literal 0x1 01dd 4800 |H | Short_Literal 0x0 01de e402 | | Load 0x2,0x2 01df e405 | | Load 0x2,0x5 01e0 e404 | | Load 0x2,0x4 01e1 e00a | | Load 0x0,0xa 01e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 01e4 01cc | | Execute Vector,Catenate 01e5 e5ff | | Load 0x2,-0x1 01e6 0092 054e | N| Action Push_String_Extended,0x54e ; "Could not find corresponding unit for" 01e8 8017 | | Call 0x0,0x17 01e9 8012 | | Call 0x0,0x12 01ea 00d1 | | Pop_Control Pop_Count_1 01eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ec e5fc | | Load 0x2,-0x4 01ed e5fe | | Load 0x2,-0x2 01ee e5ff | | Load 0x2,-0x1 01ef 8219 | | Call 0x1,0x19 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f2 0000 0000 | | .XXX[0x2] 01f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0200 | | .CONST 0x0200 ; Address of begin 01f9 0218 | | .CONST 0x0218 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e00a | | Load 0x0,0xa 01fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01fd 02ff | | Declare_Variable Variant_Record 01fe 00d8 | | Load_Top At_Offset_0 01ff 1c00 | | Execute_Immediate Run_Utility,0x0 0200 BODY_01f8: 0200 e5fe | | Load 0x2,-0x2 0201 e5fc | | Load 0x2,-0x4 0202 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0203 e00e | | Load 0x0,0xe 0204 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0205 00d9 | | Load_Top At_Offset_1 0206 016d | m | Execute Variant_Record,Structure_Write 0207 e5fc | | Load 0x2,-0x4 0208 e5fd | | Load 0x2,-0x3 0209 0120 | | Execute Any,Is_Value 020a 6803 |h | Jump_Zero 0x20e 020b e018 | | Load 0x0,0x18 020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020d 7801 |x | Jump 0x20f 020e e5fd | | Load 0x2,-0x3 020f 00da | | Load_Top At_Offset_2 0210 e019 | | Load 0x0,0x19 0211 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0212 0162 | b | Execute Variant_Record,Check_In_Type 0213 e5fe | | Load 0x2,-0x2 0214 e5ff | | Load 0x2,-0x1 0215 801a | | Call 0x0,0x1a 0216 c5fd | | Store 0x2,-0x3 0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0218 TRAP_01f8: 0218 e00e | | Load 0x0,0xe 0219 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 021a 010f | | Execute Exception,Equal 021b 6805 |h | Jump_Zero 0x221 021c e5fc | | Load 0x2,-0x4 021d e5fe | | Load 0x2,-0x2 021e e5ff | | Load 0x2,-0x1 021f 8219 | | Call 0x1,0x19 0220 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0221 0100 | | Execute Exception,Raise 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0238 | 8 | .CONST 0x0238 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e5fc | | Load 0x2,-0x4 022c e5fd | | Load 0x2,-0x3 022d 0120 | | Execute Any,Is_Value 022e 6803 |h | Jump_Zero 0x232 022f e00f | | Load 0x0,0xf 0230 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0231 7801 |x | Jump 0x233 0232 e5fd | | Load 0x2,-0x3 0233 e5fe | | Load 0x2,-0x2 0234 e5ff | | Load 0x2,-0x1 0235 801b | | Call 0x0,0x1b 0236 c5fd | | Store 0x2,-0x3 0237 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0238 TRAP_0228: 0238 0007 | | Action Break_Optional 0239 e5fc | | Load 0x2,-0x4 023a e5fe | | Load 0x2,-0x2 023b e5ff | | Load 0x2,-0x1 023c 8219 | | Call 0x1,0x19 023d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 801c | | Call 0x0,0x1c 0245 680c |h | Jump_Zero 0x252 0246 e5fd | | Load 0x2,-0x3 0247 00ea | | Load_Encached Null_String_Cache 0248 e5fe | | Load 0x2,-0x2 0249 0092 054f | O| Action Push_String_Extended,0x54f ; "specified for subsystem" 024b e5ff | | Load 0x2,-0x1 024c 0092 0550 | P| Action Push_String_Extended,0x550 ; "Duplicate spec view" 024e 801d | | Call 0x0,0x1d 024f 8012 | | Call 0x0,0x12 0250 00d1 | | Pop_Control Pop_Count_1 0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0252 e5fd | | Load 0x2,-0x3 0253 00ea | | Load_Encached Null_String_Cache 0254 e5fe | | Load 0x2,-0x2 0255 0092 054f | O| Action Push_String_Extended,0x54f ; "specified for subsystem" 0257 e5ff | | Load 0x2,-0x1 0258 0092 0551 | Q| Action Push_String_Extended,0x551 ; "Duplicate load view" 025a 801d | | Call 0x0,0x1d 025b 8012 | | Call 0x0,0x12 025c 00d1 | | Pop_Control Pop_Count_1 025d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 801c | | Call 0x0,0x1c 0265 6809 |h | Jump_Zero 0x26f 0266 00db | | Load_Top At_Offset_3 0267 00db | | Load_Top At_Offset_3 0268 0092 0552 | R| Action Push_String_Extended,0x552 ; "No corresponding load view found for" 026a 8011 | | Call 0x0,0x11 026b e5ff | | Load 0x2,-0x1 026c 801e | | Call 0x0,0x1e 026d 00d1 | | Pop_Control Pop_Count_1 026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026f 00db | | Load_Top At_Offset_3 0270 00db | | Load_Top At_Offset_3 0271 0092 0553 | S| Action Push_String_Extended,0x553 ; "No corresponding spec view found for" 0273 8011 | | Call 0x0,0x11 0274 e5ff | | Load 0x2,-0x1 0275 801e | | Call 0x0,0x1e 0276 00d1 | | Pop_Control Pop_Count_1 0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e5fd | | Load 0x2,-0x3 027c 00ea | | Load_Encached Null_String_Cache 027d e5fe | | Load 0x2,-0x2 027e 0092 0554 | T| Action Push_String_Extended,0x554 ; "in view" 0280 e5ff | | Load 0x2,-0x1 0281 0092 0555 | U| Action Push_String_Extended,0x555 ; "No corresponding unit found for" 0283 801d | | Call 0x0,0x1d 0284 e5ff | | Load 0x2,-0x1 0285 801f | | Call 0x0,0x1f 0286 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0287 0000 | | .XXX[0x1] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 029a | | .CONST 0x029a ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0006 | | .CONST 0x0006 ; Number of locals 028b INIT_0288: 028b 0092 0556 | V| Action Push_String_Extended,0x556 ; "Code_Database" 028d e00a | | Load 0x0,0xa 028e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 028f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0290 e00a | | Load 0x0,0xa 0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0292 e00a | | Load 0x0,0xa 0293 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0294 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0295 e00a | | Load 0x0,0xa 0296 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0297 02ff | | Declare_Variable Variant_Record 0298 00d8 | | Load_Top At_Offset_0 0299 1c00 | | Execute_Immediate Run_Utility,0x0 029a BODY_0288: 029a e019 | | Load 0x0,0x19 029b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 029c e020 | | Load 0x0,0x20 029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029e e5fe | | Load 0x2,-0x2 029f 016d | m | Execute Variant_Record,Structure_Write 02a0 4800 |H | Short_Literal 0x0 02a1 a5fd | | Store_Unchecked 0x2,-0x3 02a2 e00a | | Load 0x0,0xa 02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a4 e00a | | Load 0x0,0xa 02a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a7 6058 |`X | Indirect_Literal Discrete,0x300,{0x00000000, 0x00004000} 02a8 e5fc | | Load 0x2,-0x4 02a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02aa 4800 |H | Short_Literal 0x0 02ab e5ff | | Load 0x2,-0x1 02ac e00a | | Load 0x0,0xa 02ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02af c403 | | Store 0x2,0x3 02b0 005b | [ | Store_Top Discrete,At_Offset_3 02b1 00da | | Load_Top At_Offset_2 02b2 8013 | | Call 0x0,0x13 02b3 7008 |p | Jump_Nonzero 0x2bc 02b4 e5fc | | Load 0x2,-0x4 02b5 00db | | Load_Top At_Offset_3 02b6 e5ff | | Load 0x2,-0x1 02b7 0092 054c | L| Action Push_String_Extended,0x54c ; "Could not establish naming context for" 02b9 8014 | | Call 0x0,0x14 02ba 8012 | | Call 0x0,0x12 02bb 00d1 | | Pop_Control Pop_Count_1 02bc e00a | | Load 0x0,0xa 02bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bf 00d9 | | Load_Top At_Offset_1 02c0 603f |`? | Indirect_Literal Discrete,0x300,{0x00000000, 0x00004000} 02c1 e5fc | | Load 0x2,-0x4 02c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c3 4800 |H | Short_Literal 0x0 02c4 e403 | | Load 0x2,0x3 02c5 e402 | | Load 0x2,0x2 02c6 e00a | | Load 0x0,0xa 02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02c9 00d1 | | Pop_Control Pop_Count_1 02ca 005a | Z | Store_Top Discrete,At_Offset_2 02cb 00d9 | | Load_Top At_Offset_1 02cc 460e |F | Jump_Case 0xf 02cd 7828 |x( | Jump 0x2f6 ; case 0x0 02ce 780d |x | Jump 0x2dc ; case 0x1 02cf 780c |x | Jump 0x2dc ; case 0x2 02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 02d1 780a |x | Jump 0x2dc ; case 0x4 02d2 7809 |x | Jump 0x2dc ; case 0x5 02d3 7808 |x | Jump 0x2dc ; case 0x6 02d4 7807 |x | Jump 0x2dc ; case 0x7 02d5 7806 |x | Jump 0x2dc ; case 0x8 02d6 7805 |x | Jump 0x2dc ; case 0x9 02d7 7804 |x | Jump 0x2dc ; case 0xa 02d8 7803 |x | Jump 0x2dc ; case 0xb 02d9 7802 |x | Jump 0x2dc ; case 0xc 02da 7801 |x | Jump 0x2dc ; case 0xd 02db 7800 |x | Jump 0x2dc ; case 0xe 02dc e5fc | | Load 0x2,-0x4 02dd 0092 0557 | W| Action Push_String_Extended,0x557 ; " because " 02df 6020 |` | Indirect_Literal Discrete,0x300,{0x00000000, 0x00004000} 02e0 e5fc | | Load 0x2,-0x4 02e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e2 e015 | | Load 0x0,0x15 02e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e4 e016 | | Load 0x0,0x16 02e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e6 4801 |H | Short_Literal 0x1 02e7 4800 |H | Short_Literal 0x0 02e8 e403 | | Load 0x2,0x3 02e9 e402 | | Load 0x2,0x2 02ea e405 | | Load 0x2,0x5 02eb e00a | | Load 0x0,0xa 02ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ed 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02ee 01cc | | Execute Vector,Catenate 02ef e5ff | | Load 0x2,-0x1 02f0 0092 0558 | X| Action Push_String_Extended,0x558 ; "Could not get code database for" 02f2 8017 | | Call 0x0,0x17 02f3 8012 | | Call 0x0,0x12 02f4 00d1 | | Pop_Control Pop_Count_1 02f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f6 00d8 | | Load_Top At_Offset_0 02f7 e019 | | Load 0x0,0x19 02f8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 02f9 0162 | b | Execute Variant_Record,Check_In_Type 02fa e5fe | | Load 0x2,-0x2 02fb 016d | m | Execute Variant_Record,Structure_Write 02fc 4801 |H | Short_Literal 0x1 02fd a5fd | | Store_Unchecked 0x2,-0x3 02fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ff 0000 | | .XXX[0x1] 0300 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0304 0000 0000 | | .BLANK 0000[0x4] 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 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 030d 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 030f BODY_0308: 030f 8402 | | Call 0x2,0x2 0310 8403 | | Call 0x2,0x3 0311 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0312 0000 0000 | | .BLANK 0000[0x6] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0321 | ! | .CONST 0x0321 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0004 | | .CONST 0x0004 ; Number of locals 031b INIT_0318: 031b 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 031d 029f 0513 | | Declare_Subprogram INIT_0510,For_Call 031f 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 0321 BODY_0318: 0321 8402 | | Call 0x2,0x2 0322 8403 | | Call 0x2,0x3 0323 8404 | | Call 0x2,0x4 0324 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00db | | Load_Top At_Offset_3 032c e00a | | Load 0x0,0xa 032d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032e 7005 |p | Jump_Nonzero 0x334 032f e5fc | | Load 0x2,-0x4 0330 00db | | Load_Top At_Offset_3 0331 e5fe | | Load 0x2,-0x2 0332 821b | | Call 0x1,0x1b 0333 00d1 | | Pop_Control Pop_Count_1 0334 e5fd | | Load 0x2,-0x3 0335 e00a | | Load 0x0,0xa 0336 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0337 7005 |p | Jump_Nonzero 0x33d 0338 e5fc | | Load 0x2,-0x4 0339 00db | | Load_Top At_Offset_3 033a e5fd | | Load 0x2,-0x3 033b 821c | | Call 0x1,0x1c 033c 00d1 | | Pop_Control Pop_Count_1 033d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00db | | Load_Top At_Offset_3 0344 e00a | | Load 0x0,0xa 0345 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0346 7005 |p | Jump_Nonzero 0x34c 0347 e5fc | | Load 0x2,-0x4 0348 00db | | Load_Top At_Offset_3 0349 e5fe | | Load 0x2,-0x2 034a 821b | | Call 0x1,0x1b 034b 00d1 | | Pop_Control Pop_Count_1 034c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e5fd | | Load 0x2,-0x3 0354 e00a | | Load 0x0,0xa 0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0356 7005 |p | Jump_Nonzero 0x35c 0357 e5fc | | Load 0x2,-0x4 0358 00db | | Load_Top At_Offset_3 0359 e5fd | | Load 0x2,-0x3 035a 821c | | Call 0x1,0x1c 035b 00d1 | | Pop_Control Pop_Count_1 035c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 035d 0000 0000 | | .XXX[0x3] 035f 0000 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 e5fc | | Load 0x2,-0x4 0364 e5fd | | Load 0x2,-0x3 0365 e00a | | Load 0x0,0xa 0366 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0367 0119 | | Execute Any,Check_In_Formal_Type 0368 e5fe | | Load 0x2,-0x2 0369 e00a | | Load 0x0,0xa 036a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036b 0119 | | Execute Any,Check_In_Formal_Type 036c e5ff | | Load 0x2,-0x1 036d e00a | | Load 0x0,0xa 036e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036f 0119 | | Execute Any,Check_In_Formal_Type 0370 821d | | Call 0x1,0x1d 0371 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0372 0000 0000 | | .BLANK 0000[0x6] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e5fc | | Load 0x2,-0x4 037c e5fd | | Load 0x2,-0x3 037d e00a | | Load 0x0,0xa 037e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037f 0119 | | Execute Any,Check_In_Formal_Type 0380 e5fe | | Load 0x2,-0x2 0381 e00a | | Load 0x0,0xa 0382 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0383 0119 | | Execute Any,Check_In_Formal_Type 0384 e5ff | | Load 0x2,-0x1 0385 e00a | | Load 0x0,0xa 0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0387 0119 | | Execute Any,Check_In_Formal_Type 0388 821e | | Call 0x1,0x1e 0389 4504 |E | Exit_Suprogram New_Top_Offset 0x4 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e5fc | | Load 0x2,-0x4 0394 e5fd | | Load 0x2,-0x3 0395 e00a | | Load 0x0,0xa 0396 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0397 0119 | | Execute Any,Check_In_Formal_Type 0398 e5fe | | Load 0x2,-0x2 0399 e00a | | Load 0x0,0xa 039a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039b 0119 | | Execute Any,Check_In_Formal_Type 039c e5ff | | Load 0x2,-0x1 039d e00a | | Load 0x0,0xa 039e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039f 0119 | | Execute Any,Check_In_Formal_Type 03a0 821f | | Call 0x1,0x1f 03a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a2 0000 0000 | | .BLANK 0000[0x6] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b5 | | .CONST 0x03b5 ; Address of begin 03a9 03ff | | .CONST 0x03ff ; Address of exception handler 03aa 0003 | | .CONST 0x0003 ; Number of locals 03ab INIT_03a8: 03ab e00a | | Load 0x0,0xa 03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ad 02c7 | | Declare_Variable Any 03ae 00d8 | | Load_Top At_Offset_0 03af 1c00 | | Execute_Immediate Run_Utility,0x0 03b0 e00a | | Load 0x0,0xa 03b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b2 02c7 | | Declare_Variable Any 03b3 00d8 | | Load_Top At_Offset_0 03b4 1c00 | | Execute_Immediate Run_Utility,0x0 03b5 BODY_03a8: 03b5 e5ff | | Load 0x2,-0x1 03b6 8021 | ! | Call 0x0,0x21 03b7 681e |h | Jump_Zero 0x3d6 03b8 e5fe | | Load 0x2,-0x2 03b9 00da | | Load_Top At_Offset_2 03ba 0120 | | Execute Any,Is_Value 03bb 6803 |h | Jump_Zero 0x3bf 03bc e00a | | Load 0x0,0xa 03bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03be 7801 |x | Jump 0x3c0 03bf 00da | | Load_Top At_Offset_2 03c0 e5ff | | Load 0x2,-0x1 03c1 8022 | " | Call 0x0,0x22 03c2 c402 | | Store 0x2,0x2 03c3 00d1 | | Pop_Control Pop_Count_1 03c4 e5fe | | Load 0x2,-0x2 03c5 00d9 | | Load_Top At_Offset_1 03c6 0120 | | Execute Any,Is_Value 03c7 6803 |h | Jump_Zero 0x3cb 03c8 e00a | | Load 0x0,0xa 03c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ca 7801 |x | Jump 0x3cc 03cb 00d9 | | Load_Top At_Offset_1 03cc 00db | | Load_Top At_Offset_3 03cd 8023 | # | Call 0x0,0x23 03ce c403 | | Store 0x2,0x3 03cf 00d1 | | Pop_Control Pop_Count_1 03d0 e5fe | | Load 0x2,-0x2 03d1 00d9 | | Load_Top At_Offset_1 03d2 00db | | Load_Top At_Offset_3 03d3 821b | | Call 0x1,0x1b 03d4 00d1 | | Pop_Control Pop_Count_1 03d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d6 e5ff | | Load 0x2,-0x1 03d7 8024 | $ | Call 0x0,0x24 03d8 6814 |h | Jump_Zero 0x3ed 03d9 e5ff | | Load 0x2,-0x1 03da c402 | | Store 0x2,0x2 03db e5fe | | Load 0x2,-0x2 03dc 00d9 | | Load_Top At_Offset_1 03dd 0120 | | Execute Any,Is_Value 03de 6803 |h | Jump_Zero 0x3e2 03df e00a | | Load 0x0,0xa 03e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e1 7801 |x | Jump 0x3e3 03e2 00d9 | | Load_Top At_Offset_1 03e3 e5ff | | Load 0x2,-0x1 03e4 8023 | # | Call 0x0,0x23 03e5 c403 | | Store 0x2,0x3 03e6 00d1 | | Pop_Control Pop_Count_1 03e7 e5fe | | Load 0x2,-0x2 03e8 00d9 | | Load_Top At_Offset_1 03e9 00db | | Load_Top At_Offset_3 03ea 821b | | Call 0x1,0x1b 03eb 00d1 | | Pop_Control Pop_Count_1 03ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ed e5ff | | Load 0x2,-0x1 03ee 8025 | % | Call 0x0,0x25 03ef 6807 |h | Jump_Zero 0x3f7 03f0 e5fe | | Load 0x2,-0x2 03f1 e5ff | | Load 0x2,-0x1 03f2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 03f3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 03f4 8003 | | Call 0x0,0x3 03f5 00d1 | | Pop_Control Pop_Count_1 03f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f7 e5fe | | Load 0x2,-0x2 03f8 0092 0559 | Y| Action Push_String_Extended,0x559 ; "is not an ada unit, view or activity" 03fa e5ff | | Load 0x2,-0x1 03fb 8026 | & | Call 0x0,0x26 03fc 8012 | | Call 0x0,0x12 03fd 00d1 | | Pop_Control Pop_Count_1 03fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ff TRAP_03a8: 03ff e00b | | Load 0x0,0xb 0400 010f | | Execute Exception,Equal 0401 6801 |h | Jump_Zero 0x403 0402 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0403 0100 | | Execute Exception,Raise 0404 0000 0000 | | .BLANK 0000[0x4] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0415 | | .CONST 0x0415 ; Address of begin 0409 045f | _ | .CONST 0x045f ; Address of exception handler 040a 0003 | | .CONST 0x0003 ; Number of locals 040b INIT_0408: 040b e00a | | Load 0x0,0xa 040c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040d 02c7 | | Declare_Variable Any 040e 00d8 | | Load_Top At_Offset_0 040f 1c00 | | Execute_Immediate Run_Utility,0x0 0410 e00a | | Load 0x0,0xa 0411 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0412 02c7 | | Declare_Variable Any 0413 00d8 | | Load_Top At_Offset_0 0414 1c00 | | Execute_Immediate Run_Utility,0x0 0415 BODY_0408: 0415 e5ff | | Load 0x2,-0x1 0416 8021 | ! | Call 0x0,0x21 0417 681e |h | Jump_Zero 0x436 0418 e5fe | | Load 0x2,-0x2 0419 00da | | Load_Top At_Offset_2 041a 0120 | | Execute Any,Is_Value 041b 6803 |h | Jump_Zero 0x41f 041c e00a | | Load 0x0,0xa 041d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 041e 7801 |x | Jump 0x420 041f 00da | | Load_Top At_Offset_2 0420 e5ff | | Load 0x2,-0x1 0421 8022 | " | Call 0x0,0x22 0422 c402 | | Store 0x2,0x2 0423 00d1 | | Pop_Control Pop_Count_1 0424 e5fe | | Load 0x2,-0x2 0425 00d9 | | Load_Top At_Offset_1 0426 0120 | | Execute Any,Is_Value 0427 6803 |h | Jump_Zero 0x42b 0428 e00a | | Load 0x0,0xa 0429 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042a 7801 |x | Jump 0x42c 042b 00d9 | | Load_Top At_Offset_1 042c 00db | | Load_Top At_Offset_3 042d 8023 | # | Call 0x0,0x23 042e c403 | | Store 0x2,0x3 042f 00d1 | | Pop_Control Pop_Count_1 0430 e5fe | | Load 0x2,-0x2 0431 00d9 | | Load_Top At_Offset_1 0432 00db | | Load_Top At_Offset_3 0433 821c | | Call 0x1,0x1c 0434 00d1 | | Pop_Control Pop_Count_1 0435 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0436 e5ff | | Load 0x2,-0x1 0437 8024 | $ | Call 0x0,0x24 0438 6814 |h | Jump_Zero 0x44d 0439 e5ff | | Load 0x2,-0x1 043a c402 | | Store 0x2,0x2 043b e5fe | | Load 0x2,-0x2 043c 00d9 | | Load_Top At_Offset_1 043d 0120 | | Execute Any,Is_Value 043e 6803 |h | Jump_Zero 0x442 043f e00a | | Load 0x0,0xa 0440 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0441 7801 |x | Jump 0x443 0442 00d9 | | Load_Top At_Offset_1 0443 e5ff | | Load 0x2,-0x1 0444 8023 | # | Call 0x0,0x23 0445 c403 | | Store 0x2,0x3 0446 00d1 | | Pop_Control Pop_Count_1 0447 e5fe | | Load 0x2,-0x2 0448 00d9 | | Load_Top At_Offset_1 0449 00db | | Load_Top At_Offset_3 044a 821c | | Call 0x1,0x1c 044b 00d1 | | Pop_Control Pop_Count_1 044c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 044d e5ff | | Load 0x2,-0x1 044e 8025 | % | Call 0x0,0x25 044f 6807 |h | Jump_Zero 0x457 0450 e5fe | | Load 0x2,-0x2 0451 e5ff | | Load 0x2,-0x1 0452 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0453 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0454 8003 | | Call 0x0,0x3 0455 00d1 | | Pop_Control Pop_Count_1 0456 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0457 e5fe | | Load 0x2,-0x2 0458 0092 0559 | Y| Action Push_String_Extended,0x559 ; "is not an ada unit, view or activity" 045a e5ff | | Load 0x2,-0x1 045b 8026 | & | Call 0x0,0x26 045c 8012 | | Call 0x0,0x12 045d 00d1 | | Pop_Control Pop_Count_1 045e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 045f TRAP_0408: 045f e00b | | Load 0x0,0xb 0460 010f | | Execute Exception,Equal 0461 6801 |h | Jump_Zero 0x463 0462 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0463 0100 | | Execute Exception,Raise 0464 0000 0000 | | .BLANK 0000[0x4] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0472 | r | .CONST 0x0472 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00db | | Load_Top At_Offset_3 046c e5fc | | Load 0x2,-0x4 046d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 046e e010 | | Load 0x0,0x10 046f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0470 c5fd | | Store 0x2,-0x3 0471 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0472 TRAP_0468: 0472 e010 | | Load 0x0,0x10 0473 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0474 010f | | Execute Exception,Equal 0475 6804 |h | Jump_Zero 0x47a 0476 e5fc | | Load 0x2,-0x4 0477 e5ff | | Load 0x2,-0x1 0478 8218 | | Call 0x1,0x18 0479 4503 |E | Exit_Suprogram New_Top_Offset 0x3 047a 0100 | | Execute Exception,Raise 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 048a | | .CONST 0x048a ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00db | | Load_Top At_Offset_3 0484 e5fc | | Load 0x2,-0x4 0485 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0486 e010 | | Load 0x0,0x10 0487 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0488 c5fd | | Store 0x2,-0x3 0489 4503 |E | Exit_Suprogram New_Top_Offset 0x3 048a TRAP_0480: 048a e010 | | Load 0x0,0x10 048b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 048c 010f | | Execute Exception,Equal 048d 6804 |h | Jump_Zero 0x492 048e e5fc | | Load 0x2,-0x4 048f e5ff | | Load 0x2,-0x1 0490 8218 | | Call 0x1,0x18 0491 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0492 0100 | | Execute Exception,Raise 0493 0000 0000 | | .BLANK 0000[0x5] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00db | | Load_Top At_Offset_3 049c 00db | | Load_Top At_Offset_3 049d e00a | | Load 0x0,0xa 049e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 049f 0119 | | Execute Any,Check_In_Formal_Type 04a0 822c | , | Call 0x1,0x2c 04a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a2 0000 0000 | | .BLANK 0000[0x6] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00db | | Load_Top At_Offset_3 04ac 00db | | Load_Top At_Offset_3 04ad e00a | | Load 0x0,0xa 04ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04af 0119 | | Execute Any,Check_In_Formal_Type 04b0 822d | - | Call 0x1,0x2d 04b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b2 0000 0000 | | .BLANK 0000[0x6] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00db | | Load_Top At_Offset_3 04bc 00db | | Load_Top At_Offset_3 04bd e00a | | Load 0x0,0xa 04be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04bf 0119 | | Execute Any,Check_In_Formal_Type 04c0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 04c1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 04c2 8003 | | Call 0x0,0x3 04c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c4 0000 0000 | | .BLANK 0000[0x4] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 04d3 | | .CONST 0x04d3 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 4801 |H | Short_Literal 0x1 04cc e5fe | | Load 0x2,-0x2 04cd e5ff | | Load 0x2,-0x1 04ce e5fd | | Load 0x2,-0x3 04cf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04d0 e010 | | Load 0x0,0x10 04d1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d3 TRAP_04c8: 04d3 e010 | | Load 0x0,0x10 04d4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 04d5 010f | | Execute Exception,Equal 04d6 6802 |h | Jump_Zero 0x4d9 04d7 00cc | | Action Pop_Block 04d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d9 0100 | | Execute Exception,Raise 04da 0000 0000 | | .BLANK 0000[0x6] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e3 | | .CONST 0x04e3 ; Address of begin 04e1 04eb | | .CONST 0x04eb ; Address of exception handler 04e2 0001 | | .CONST 0x0001 ; Number of locals 04e3 BODY_04e0: 04e3 INIT_04e0: 04e3 4801 |H | Short_Literal 0x1 04e4 e5ff | | Load 0x2,-0x1 04e5 e5fe | | Load 0x2,-0x2 04e6 e5fd | | Load 0x2,-0x3 04e7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04e8 e010 | | Load 0x0,0x10 04e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04eb TRAP_04e0: 04eb e010 | | Load 0x0,0x10 04ec 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 04ed 010f | | Execute Exception,Equal 04ee 6805 |h | Jump_Zero 0x4f4 04ef e5fd | | Load 0x2,-0x3 04f0 e5fe | | Load 0x2,-0x2 04f1 e5ff | | Load 0x2,-0x1 04f2 8217 | | Call 0x1,0x17 04f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f4 0100 | | Execute Exception,Raise 04f5 0000 0000 | | .XXX[0x3] 04f7 0000 | | 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0503 | | .CONST 0x0503 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 4801 |H | Short_Literal 0x1 04fc e5fe | | Load 0x2,-0x2 04fd e5ff | | Load 0x2,-0x1 04fe e5fd | | Load 0x2,-0x3 04ff 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0500 e010 | | Load 0x0,0x10 0501 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0502 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0503 TRAP_04f8: 0503 e010 | | Load 0x0,0x10 0504 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0505 010f | | Execute Exception,Equal 0506 6802 |h | Jump_Zero 0x509 0507 00cc | | Action Pop_Block 0508 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0509 0100 | | Execute Exception,Raise 050a 0000 0000 | | .BLANK 0000[0x6] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 051b | | .CONST 0x051b ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 4801 |H | Short_Literal 0x1 0514 e5ff | | Load 0x2,-0x1 0515 e5fe | | Load 0x2,-0x2 0516 e5fd | | Load 0x2,-0x3 0517 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0518 e010 | | Load 0x0,0x10 0519 1818 | | Execute Package,Field_Execute,Field_Number 0x18 051a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051b TRAP_0510: 051b e010 | | Load 0x0,0x10 051c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 051d 010f | | Execute Exception,Equal 051e 6801 |h | Jump_Zero 0x520 051f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0520 0100 | | Execute Exception,Raise 0521 0000 0000 | | .BLANK 0000[0x7] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0531 | 1 | .CONST 0x0531 ; Address of begin 0529 0543 | C | .CONST 0x0543 ; Address of exception handler 052a 0003 | | .CONST 0x0003 ; Number of locals 052b INIT_0528: 052b e019 | | Load 0x0,0x19 052c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 052d 02ff | | Declare_Variable Variant_Record 052e 00d8 | | Load_Top At_Offset_0 052f 1c00 | | Execute_Immediate Run_Utility,0x0 0530 00e1 | | Load_Encached Boolean_Cache 0531 BODY_0528: 0531 e5fd | | Load 0x2,-0x3 0532 00e1 | | Load_Encached Boolean_Cache 0533 00db | | Load_Top At_Offset_3 0534 e5ff | | Load 0x2,-0x1 0535 821a | | Call 0x1,0x1a 0536 00d1 | | Pop_Control Pop_Count_1 0537 005a | Z | Store_Top Discrete,At_Offset_2 0538 00d1 | | Pop_Control Pop_Count_1 0539 00d8 | | Load_Top At_Offset_0 053a 6807 |h | Jump_Zero 0x542 053b 4801 |H | Short_Literal 0x1 053c 00da | | Load_Top At_Offset_2 053d e5ff | | Load 0x2,-0x1 053e e5fd | | Load 0x2,-0x3 053f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0540 e00e | | Load 0x0,0xe 0541 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0542 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0543 TRAP_0528: 0543 e010 | | Load 0x0,0x10 0544 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0545 010f | | Execute Exception,Equal 0546 6801 |h | Jump_Zero 0x548 0547 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0548 0100 | | Execute Exception,Raise 0549 ; -------------------------------------------------------------------------------------- 0549 ; STRING TABLE 0549 ; -------------------------------------------------------------------------------------- 0549 0024 | $ | .STRTAB 0x0024->0x055b ; "Cant find" 054a 002b | + | .STRTAB 0x002b->0x055f ; "Could not get enclosing subsystem for" 054b 004e | N | .STRTAB 0x004e->0x0572 ; "'L(INTERNAL)." 054c 0059 | Y | .STRTAB 0x0059->0x0578 ; "Could not establish naming context for" 054d 007d | } | .STRTAB 0x007d->0x058b ; "because " 054e 0083 | | .STRTAB 0x0083->0x058f ; "Could not find corresponding unit for" 054f 00a6 | | .STRTAB 0x00a6->0x05a2 ; "specified for subsystem" 0550 00bb | | .STRTAB 0x00bb->0x05ad ; "Duplicate spec view" 0551 00cc | | .STRTAB 0x00cc->0x05b7 ; "Duplicate load view" 0552 00dd | | .STRTAB 0x00dd->0x05c0 ; "No corresponding load view found for" 0553 00ff | | .STRTAB 0x00ff->0x05d2 ; "No corresponding spec view found for" 0554 0121 | ! | .STRTAB 0x0121->0x05e4 ; "in view" 0555 0126 | & | .STRTAB 0x0126->0x05e8 ; "No corresponding unit found for" 0556 0143 | C | .STRTAB 0x0143->0x05f7 ; "Code_Database" 0557 014e | N | .STRTAB 0x014e->0x05fe ; " because " 0558 0155 | U | .STRTAB 0x0155->0x0602 ; "Could not get code database for" 0559 0172 | r | .STRTAB 0x0172->0x0612 ; "is not an ada unit, view or activity" 055a 0194 | | .STREND 0x0194->0x0624 055b 4361 6e74 |Cant| .STRTAB_STRINGS 0624 0000 0000 | | .BLANK 0000[0x4] 0628 ; -------------------------------------------------------------------------------------- 0628 ; Debug Table 0628 ; -------------------------------------------------------------------------------------- 0628 0004 0007 | | .DEBUG4 0x0004,0x0007,0x45ee,0x0000,0x0001,0x0000 062e 0000 0000 | | .BLANK 0000[0xb7] 06e5 0276 2e00 | v. | .XXX[0x56] 06e7 678e 8000 |g | 06e9 0000 1740 | @| 06eb 2006 900c | | 06ed 0000 0000 | | 06ef 3395 8006 |3 | 06f1 81cc 2614 | & | 06f3 00d2 3e00 | > | 06f5 0000 000c | | 06f7 ecd0 000c | | 06f9 ec5c 00d0 | \ | 06fb 5400 0000 |T | 06fd 002a 0080 | * | 06ff 0d94 b800 | | 0701 0000 0067 | g| 0703 c680 0d17 | | 0705 084c 2801 | L( | 0707 a47c 0000 | | | 0709 0000 1a00 | | 070b 8000 19d8 | | 070d b801 a316 | | 070f 0000 0000 | | 0711 4301 801b |C | 0713 0290 0000 | | 0715 0000 d0c4 | | 0717 0000 0010 | | 0719 9850 0348 | P H| 071b f800 d1fb | | 071d 0034 4ec0 | 4N | 071f 0050 7605 | Pv | 0721 a000 0003 | | 0723 fffa 1308 | | 0725 0056 8900 | V | 0727 0000 0006 | | 0729 7810 0012 |x | 072b 087c 0056 | | V| 072d 8900 0000 | | 072f 0006 99c0 | | 0731 01ad 4a01 | J | 0733 098c 1480 | | 0735 1a55 c006 | U | 0737 b388 00b0 | | 0739 0001 ad4a | J| 073b 0000 0000 | | .BLANK 0000[0x5] 0740 00d3 3800 | 8 | .XXX[0x85] 0742 0106 3062 | 0b| 0744 0000 0000 | | 0746 0000 00a0 | | 0748 8a07 6006 | ` | 074a a13e 0200 | > | 074c 7200 6a3d |r j=| 074e 0000 0d84 | | 0750 b000 01ae | | 0752 9400 0000 | | 0754 0000 0d9f | | 0756 b003 5412 | T | 0758 0420 8000 | | 075a 6a57 001a |jW | 075c a830 6303 | 0c | 075e 5003 55f8 |P U | 0760 0000 3772 | 7r| 0762 0c60 6800 | `h | 0764 6ae5 8000 |j | 0766 0002 4114 | A | 0768 0e80 0d61 | a| 076a ec11 f000 | | 076c d2ae 009f | | 076e 3300 248b |3 $ | 0770 4009 f0f0 |@ | 0772 020e 0036 | 6| 0774 7820 8800 |x | 0776 1245 a001 | E | 0778 b326 006b | & k| 077a ea00 1b1e | | 077c e000 19d8 | | 077e b801 ae94 | | 0780 0000 0000 | | 0782 6f00 0000 |o | 0784 0013 b170 | p| 0786 0363 dc00 | c | 0788 0000 00e6 | | 078a 0000 0000 | | 078c 2000 0000 | | 078e 01b0 9708 | | 0790 9300 35d2 | 5 | 0792 8000 0000 | | 0794 0363 0800 | c | 0796 0069 9c00 | i | 0798 0000 1021 | !| 079a 0490 0000 | | 079c 0000 d956 | V| 079e 001b b810 | | 07a0 4400 0922 |D "| 07a2 d000 dd73 | s| 07a4 0036 a140 | 6 @| 07a6 0dcd 7000 | p | 07a8 0cec 5c00 | \ | 07aa d9fb 0000 | | 07ac 0000 1900 | | 07ae 0000 0009 | | 07b0 7040 01b9 |p@ | 07b2 ae00 0000 | | 07b4 006b 0200 | k | 07b6 164f c090 | O | 07b8 0372 8800 | r | 07ba dafc 9704 | | 07bc 001b 9ae0 | | 07be 06e1 7800 | x | 07c0 8020 0164 | d| 07c2 fdf9 0980 | | 07c4 0c00 | | 07c5 0000 0000 | | .BLANK 0000[0x4] 07c9 0377 2000 | w | .XXX[0x37] 07cb 0000 01b7 | | 07cd 6108 9300 |a | 07cf 367e c000 |6~ | 07d1 0000 036d | m| 07d3 ec00 0069 | i| 07d5 9c00 0000 | | 07d7 1021 0490 | ! | 07d9 0000 0000 | | 07db dd36 001b | 6 | 07dd efd0 4400 | D | 07df 0922 d000 | " | 07e1 df3b 0037 | ; 7| 07e3 9940 0ded | @ | 07e5 c000 34ec | 4 | 07e7 5c00 dddb |\ | 07e9 0000 0000 | | 07eb 3700 0000 |7 | 07ed 0008 4498 | D | 07ef 01bb b600 | | 07f1 0000 0000 | | 07f3 0010 7605 | v | 07f5 a000 0000 | | 07f7 001c 0071 | q| 07f9 7a41 8ec0 |zA | 07fb 248b 4000 |$ @ | 07fd 0000 00e0 | | 07ff 3d00 |= |