|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 0008 | | .DEBUG4 0x0004,0x0008,0xc073,0x0000,0x0001,0x0000
062e 0000 0000 | | .BLANK 0000[0x1d2]