|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0518 | | .CONST 0x0518 ; 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 0078 | x | .CONST 0x0078 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0011 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
0013 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0015 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
0017 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0019 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
001b 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
001d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
001f 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0021 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0023 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0025 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0027 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
0029 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
002b 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
002d 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
002f 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0031 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0033 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
0035 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0037 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
0039 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
003b 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
003d 029a 031b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0318
003f 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
0041 00bf | | Action Accept_Activation
0042 e001 | | Load 0x0,0x1
0043 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0044 193b | ; | Execute Package,Field_Reference,Field_Number 0x3b
0045 0007 | | Action Break_Optional
0046 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0047 00c7 | | Action Elaborate_Subprogram
0048 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0049 00c7 | | Action Elaborate_Subprogram
004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004b 00c7 | | Action Elaborate_Subprogram
004c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004d 00c7 | | Action Elaborate_Subprogram
004e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004f 00c7 | | Action Elaborate_Subprogram
0050 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0051 00c7 | | Action Elaborate_Subprogram
0052 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0053 00c7 | | Action Elaborate_Subprogram
0054 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0055 00c7 | | Action Elaborate_Subprogram
0056 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0057 00c7 | | Action Elaborate_Subprogram
0058 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0059 00c7 | | Action Elaborate_Subprogram
005a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0061 00c7 | | Action Elaborate_Subprogram
0062 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0069 00c7 | | Action Elaborate_Subprogram
006a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006b 00c7 | | Action Elaborate_Subprogram
006c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
006d 00c7 | | Action Elaborate_Subprogram
006e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
006f 00c7 | | Action Elaborate_Subprogram
0070 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0071 00c7 | | Action Elaborate_Subprogram
0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0073 00c7 | | Action Elaborate_Subprogram
0074 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0075 00c7 | | Action Elaborate_Subprogram
0076 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0077 00c7 | | Action Elaborate_Subprogram
0078 BODY_0008:
0078 00bc | | Action Signal_Activated
0079 00bb | | Action Signal_Completion
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 0f00 | | Execute_Immediate Equal,0x0
0085 4401 |D | Exit_Subprogram With_Result,0x1
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 0f00 | | Execute_Immediate Equal,0x0
008d 4401 |D | Exit_Subprogram With_Result,0x1
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4801 |H | Short_Literal 0x1
0094 00db | | Load_Top At_Offset_3
0095 e002 | | Load 0x0,0x2
0096 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0097 0f00 | | Execute_Immediate Equal,0x0
0098 4401 |D | Exit_Subprogram With_Result,0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 0f00 | | Execute_Immediate Equal,0x0
00a5 4401 |D | Exit_Subprogram With_Result,0x1
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e001 | | Load 0x0,0x1
00ad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ae e003 | | Load 0x0,0x3
00af 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b0 012f | / | Execute Any,Equal
00b1 4401 |D | Exit_Subprogram With_Result,0x1
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4800 |H | Short_Literal 0x0
00bc 00db | | Load_Top At_Offset_3
00bd e001 | | Load 0x0,0x1
00be 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 e001 | | Load 0x0,0x1
00c1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
00c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c3 4401 |D | Exit_Subprogram With_Result,0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e001 | | Load 0x0,0x1
00cd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00ce e004 | | Load 0x0,0x4
00cf 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00d0 027f | | Execute Discrete,Equal
00d1 4401 |D | Exit_Subprogram With_Result,0x1
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00de | | .CONST 0x00de ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e001 | | Load 0x0,0x1
00dd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00de BODY_00d8:
00de 00d8 | | Load_Top At_Offset_0
00df e004 | | Load 0x0,0x4
00e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e1 027f | | Execute Discrete,Equal
00e2 700a |p | Jump_Nonzero 0xed
00e3 00d8 | | Load_Top At_Offset_0
00e4 e004 | | Load 0x0,0x4
00e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e6 027f | | Execute Discrete,Equal
00e7 7005 |p | Jump_Nonzero 0xed
00e8 00d8 | | Load_Top At_Offset_0
00e9 e004 | | Load 0x0,0x4
00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00eb 027f | | Execute Discrete,Equal
00ec 4401 |D | Exit_Subprogram With_Result,0x1
00ed 4801 |H | Short_Literal 0x1
00ee 4401 |D | Exit_Subprogram With_Result,0x1
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 e001 | | Load 0x0,0x1
00f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f6 e004 | | Load 0x0,0x4
00f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f8 027f | | Execute Discrete,Equal
00f9 4401 |D | Exit_Subprogram With_Result,0x1
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0106 | | .CONST 0x0106 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e001 | | Load 0x0,0x1
0105 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0106 BODY_0100:
0106 00d8 | | Load_Top At_Offset_0
0107 e004 | | Load 0x0,0x4
0108 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0109 027f | | Execute Discrete,Equal
010a 7005 |p | Jump_Nonzero 0x110
010b 00d8 | | Load_Top At_Offset_0
010c e004 | | Load 0x0,0x4
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e 027f | | Execute Discrete,Equal
010f 4401 |D | Exit_Subprogram With_Result,0x1
0110 4801 |H | Short_Literal 0x1
0111 4401 |D | Exit_Subprogram With_Result,0x1
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c e001 | | Load 0x0,0x1
011d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
011e e004 | | Load 0x0,0x4
011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0120 027f | | Execute Discrete,Equal
0121 4401 |D | Exit_Subprogram With_Result,0x1
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 0c03 | | Execute_Immediate Greater_Equal,0x3
012d 4401 |D | Exit_Subprogram With_Result,0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 0c04 | | Execute_Immediate Greater_Equal,0x4
0135 4401 |D | Exit_Subprogram With_Result,0x1
0136 0000 0000 | | .XXX[0x2]
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 482e |H. | Short_Literal 0x2e
013c 00db | | Load_Top At_Offset_3
013d e005 | | Load 0x0,0x5
013e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
013f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0140 e001 | | Load 0x0,0x1
0141 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0142 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0143 01cb | | Execute Vector,Append
0144 00db | | Load_Top At_Offset_3
0145 e005 | | Load 0x0,0x5
0146 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0147 01cc | | Execute Vector,Catenate
0148 4401 |D | Exit_Subprogram With_Result,0x1
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e006 | | Load 0x0,0x6
0155 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0156 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0157 4401 |D | Exit_Subprogram With_Result,0x1
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e001 | | Load 0x0,0x1
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d BODY_0158:
015d e001 | | Load 0x0,0x1
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f e001 | | Load 0x0,0x1
0160 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 601d |` | Indirect_Literal Discrete,0x180,{0x00000000, 0x00004000}
0163 e5fd | | Load 0x2,-0x3
0164 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0165 4800 |H | Short_Literal 0x0
0166 e5ff | | Load 0x2,-0x1
0167 e001 | | Load 0x0,0x1
0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016a e001 | | Load 0x0,0x1
016b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
016c 180f | | Execute Package,Field_Execute,Field_Number 0xf
016d c5fe | | Store 0x2,-0x2
016e 0059 | Y | Store_Top Discrete,At_Offset_1
016f 00d8 | | Load_Top At_Offset_0
0170 820e | | Call 0x1,0xe
0171 700a |p | Jump_Nonzero 0x17c
0172 e5fd | | Load 0x2,-0x3
0173 00d9 | | Load_Top At_Offset_1
0174 e5ff | | Load 0x2,-0x1
0175 0092 0464 | d| Action Push_String_Extended,0x464 ; "Could not get unit state for"
0177 e007 | | Load 0x0,0x7
0178 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0179 e008 | | Load 0x0,0x8
017a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017b 00d1 | | Pop_Control Pop_Count_1
017c 4502 |E | Exit_Subprogram 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e001 | | Load 0x0,0x1
018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018d BODY_0188:
018d e001 | | Load 0x0,0x1
018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018f e5fe | | Load 0x2,-0x2
0190 67ef |g | Indirect_Literal Discrete,0x180,{0x00000000, 0x00004000}
0191 e5fd | | Load 0x2,-0x3
0192 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0193 e5ff | | Load 0x2,-0x1
0194 e001 | | Load 0x0,0x1
0195 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0196 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0197 00d1 | | Pop_Control Pop_Count_1
0198 0059 | Y | Store_Top Discrete,At_Offset_1
0199 00d8 | | Load_Top At_Offset_0
019a 820e | | Call 0x1,0xe
019b 700a |p | Jump_Nonzero 0x1a6
019c e5fd | | Load 0x2,-0x3
019d 00d9 | | Load_Top At_Offset_1
019e e5ff | | Load 0x2,-0x1
019f 0092 0465 | e| Action Push_String_Extended,0x465 ; "Could not get target key for"
01a1 e007 | | Load 0x0,0x7
01a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a3 e008 | | Load 0x0,0x8
01a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a5 00d1 | | Pop_Control Pop_Count_1
01a6 4502 |E | Exit_Subprogram 0x2
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e001 | | Load 0x0,0x1
01ac 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01ad 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01ae 02c7 | | Declare_Variable Any
01af 00d8 | | Load_Top At_Offset_0
01b0 1c00 | | Execute_Immediate Run_Utility,0x0
01b1 e001 | | Load 0x0,0x1
01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b3 BODY_01a8:
01b3 e001 | | Load 0x0,0x1
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 00da | | Load_Top At_Offset_2
01b6 0120 | | Execute Any,Is_Value
01b7 6804 |h | Jump_Zero 0x1bc
01b8 e001 | | Load 0x0,0x1
01b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01ba 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01bb 7801 |x | Jump 0x1bd
01bc 00da | | Load_Top At_Offset_2
01bd e001 | | Load 0x0,0x1
01be 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01c0 601f |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000}
01c1 4801 |H | Short_Literal 0x1
01c2 4800 |H | Short_Literal 0x0
01c3 4800 |H | Short_Literal 0x0
01c4 e5fd | | Load 0x2,-0x3
01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c6 4801 |H | Short_Literal 0x1
01c7 e5ff | | Load 0x2,-0x1
01c8 e001 | | Load 0x0,0x1
01c9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01cb e001 | | Load 0x0,0x1
01cc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01cd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01ce c5fe | | Store 0x2,-0x2
01cf c402 | | Store 0x2,0x2
01d0 0059 | Y | Store_Top Discrete,At_Offset_1
01d1 00d8 | | Load_Top At_Offset_0
01d2 820e | | Call 0x1,0xe
01d3 700a |p | Jump_Nonzero 0x1de
01d4 e5fd | | Load 0x2,-0x3
01d5 00d9 | | Load_Top At_Offset_1
01d6 e5ff | | Load 0x2,-0x1
01d7 0092 0466 | f| Action Push_String_Extended,0x466 ; "Could not get tree for"
01d9 e007 | | Load 0x0,0x7
01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01db e008 | | Load 0x0,0x8
01dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01dd 00d1 | | Pop_Control Pop_Count_1
01de 4502 |E | Exit_Subprogram 0x2
01df 0000 | | .XXX[0x1]
01e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f2 | | .CONST 0x01f2 ; Address of begin
01e9 0201 | | .CONST 0x0201 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 8227 | ' | Call 0x1,0x27
01ed e005 | | Load 0x0,0x5
01ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ef 02c7 | | Declare_Variable Any
01f0 00d8 | | Load_Top At_Offset_0
01f1 1c00 | | Execute_Immediate Run_Utility,0x0
01f2 BODY_01e8:
01f2 e5fd | | Load 0x2,-0x3
01f3 00da | | Load_Top At_Offset_2
01f4 e005 | | Load 0x0,0x5
01f5 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
01f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f7 c403 | | Store 0x2,0x3
01f8 00d8 | | Load_Top At_Offset_0
01f9 e005 | | Load 0x0,0x5
01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fb 012f | / | Execute Any,Equal
01fc 6801 |h | Jump_Zero 0x1fe
01fd 0887 | | Execute_Immediate Raise,0x87
01fe 00d8 | | Load_Top At_Offset_0
01ff c5fc | | Store 0x2,-0x4
0200 4504 |E | Exit_Subprogram 0x4
0201 TRAP_01e8:
0201 0007 | | Action Break_Optional
0202 e5fb | | Load 0x2,-0x5
0203 e5fe | | Load 0x2,-0x2
0204 0092 0467 | g| Action Push_String_Extended,0x467 ; "Could not find unit "
0206 e402 | | Load 0x2,0x2
0207 01cc | | Execute Vector,Catenate
0208 0092 0468 | h| Action Push_String_Extended,0x468 ; " in code view"
020a 01cc | | Execute Vector,Catenate
020b e007 | | Load 0x0,0x7
020c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
020d e5ff | | Load 0x2,-0x1
020e e008 | | Load 0x0,0x8
020f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0210 4504 |E | Exit_Subprogram 0x4
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0227 | ' | .CONST 0x0227 ; Address of begin
0219 024b | K | .CONST 0x024b ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 8227 | ' | Call 0x1,0x27
021d e006 | | Load 0x0,0x6
021e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021f 02c7 | | Declare_Variable Any
0220 00d8 | | Load_Top At_Offset_0
0221 1c00 | | Execute_Immediate Run_Utility,0x0
0222 e006 | | Load 0x0,0x6
0223 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0224 02c7 | | Declare_Variable Any
0225 00d8 | | Load_Top At_Offset_0
0226 1c00 | | Execute_Immediate Run_Utility,0x0
0227 BODY_0218:
0227 00d9 | | Load_Top At_Offset_1
0228 0120 | | Execute Any,Is_Value
0229 6803 |h | Jump_Zero 0x22d
022a e006 | | Load 0x0,0x6
022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022c 7801 |x | Jump 0x22e
022d 00d9 | | Load_Top At_Offset_1
022e 4801 |H | Short_Literal 0x1
022f 4800 |H | Short_Literal 0x0
0230 e5fe | | Load 0x2,-0x2
0231 e5fc | | Load 0x2,-0x4
0232 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0233 e006 | | Load 0x0,0x6
0234 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0235 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0236 e5fc | | Load 0x2,-0x4
0237 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0238 e006 | | Load 0x0,0x6
0239 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023b c403 | | Store 0x2,0x3
023c 00da | | Load_Top At_Offset_2
023d 00da | | Load_Top At_Offset_2
023e e006 | | Load 0x0,0x6
023f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0240 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0241 c404 | | Store 0x2,0x4
0242 00d8 | | Load_Top At_Offset_0
0243 e006 | | Load 0x0,0x6
0244 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0245 012f | / | Execute Any,Equal
0246 6801 |h | Jump_Zero 0x248
0247 0887 | | Execute_Immediate Raise,0x87
0248 00d8 | | Load_Top At_Offset_0
0249 c5fd | | Store 0x2,-0x3
024a 4503 |E | Exit_Subprogram 0x3
024b TRAP_0218:
024b 0007 | | Action Break_Optional
024c e5fc | | Load 0x2,-0x4
024d e5fe | | Load 0x2,-0x2
024e 0092 0467 | g| Action Push_String_Extended,0x467 ; "Could not find unit "
0250 e402 | | Load 0x2,0x2
0251 01cc | | Execute Vector,Catenate
0252 0092 0468 | h| Action Push_String_Extended,0x468 ; " in code view"
0254 01cc | | Execute Vector,Catenate
0255 e007 | | Load 0x0,0x7
0256 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0257 e5ff | | Load 0x2,-0x1
0258 e008 | | Load 0x0,0x8
0259 181d | | Execute Package,Field_Execute,Field_Number 0x1d
025a 4503 |E | Exit_Subprogram 0x3
025b 0000 0000 | | .BLANK 0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0270 | p | .CONST 0x0270 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0004 | | .CONST 0x0004 ; Number of locals
0263 INIT_0260:
0263 e001 | | Load 0x0,0x1
0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0265 02c7 | | Declare_Variable Any
0266 00d8 | | Load_Top At_Offset_0
0267 1c00 | | Execute_Immediate Run_Utility,0x0
0268 e001 | | Load 0x0,0x1
0269 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
026a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026b 02c7 | | Declare_Variable Any
026c 00d8 | | Load_Top At_Offset_0
026d 1c00 | | Execute_Immediate Run_Utility,0x0
026e e001 | | Load 0x0,0x1
026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0270 BODY_0260:
0270 e001 | | Load 0x0,0x1
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 00da | | Load_Top At_Offset_2
0273 0120 | | Execute Any,Is_Value
0274 6804 |h | Jump_Zero 0x279
0275 e001 | | Load 0x0,0x1
0276 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0278 7801 |x | Jump 0x27a
0279 00da | | Load_Top At_Offset_2
027a e5ff | | Load 0x2,-0x1
027b e001 | | Load 0x0,0x1
027c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
027d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
027e c403 | | Store 0x2,0x3
027f 0059 | Y | Store_Top Discrete,At_Offset_1
0280 00d8 | | Load_Top At_Offset_0
0281 820e | | Call 0x1,0xe
0282 700a |p | Jump_Nonzero 0x28d
0283 e5fd | | Load 0x2,-0x3
0284 00d9 | | Load_Top At_Offset_1
0285 e5ff | | Load 0x2,-0x1
0286 0092 0469 | i| Action Push_String_Extended,0x469 ; "Could not get enclosing world for"
0288 e007 | | Load 0x0,0x7
0289 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028a e008 | | Load 0x0,0x8
028b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
028c 00d1 | | Pop_Control Pop_Count_1
028d 00d9 | | Load_Top At_Offset_1
028e e001 | | Load 0x0,0x1
028f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0290 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0291 c402 | | Store 0x2,0x2
0292 00da | | Load_Top At_Offset_2
0293 8215 | | Call 0x1,0x15
0294 7009 |p | Jump_Nonzero 0x29e
0295 e5fd | | Load 0x2,-0x3
0296 0092 046a | j| Action Push_String_Extended,0x46a ; "is not in a view"
0298 e5ff | | Load 0x2,-0x1
0299 e007 | | Load 0x0,0x7
029a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
029b e008 | | Load 0x0,0x8
029c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
029d 00d1 | | Pop_Control Pop_Count_1
029e 00da | | Load_Top At_Offset_2
029f c5fe | | Store 0x2,-0x2
02a0 4502 |E | Exit_Subprogram 0x2
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b7 | | .CONST 0x02b7 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0004 | | .CONST 0x0004 ; Number of locals
02ab INIT_02a8:
02ab e009 | | Load 0x0,0x9
02ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ad 0322 | " | Declare_Variable Record
02ae 00d8 | | Load_Top At_Offset_0
02af 1c00 | | Execute_Immediate Run_Utility,0x0
02b0 e00a | | Load 0x0,0xa
02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b2 e001 | | Load 0x0,0x1
02b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b4 02c7 | | Declare_Variable Any
02b5 00d8 | | Load_Top At_Offset_0
02b6 1c00 | | Execute_Immediate Run_Utility,0x0
02b7 BODY_02a8:
02b7 e00a | | Load 0x0,0xa
02b8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02b9 00db | | Load_Top At_Offset_3
02ba e5fd | | Load 0x2,-0x3
02bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02bc 4800 |H | Short_Literal 0x0
02bd 4800 |H | Short_Literal 0x0
02be e5ff | | Load 0x2,-0x1
02bf e009 | | Load 0x0,0x9
02c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c1 00d1 | | Pop_Control Pop_Count_1
02c2 005a | Z | Store_Top Discrete,At_Offset_2
02c3 00d9 | | Load_Top At_Offset_1
02c4 8211 | | Call 0x1,0x11
02c5 6817 |h | Jump_Zero 0x2dd
02c6 00da | | Load_Top At_Offset_2
02c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02c8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02c9 e00b | | Load 0x0,0xb
02ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cb 0162 | b | Execute Variant_Record,Check_In_Type
02cc e001 | | Load 0x0,0x1
02cd 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cf c404 | | Store 0x2,0x4
02d0 e5fd | | Load 0x2,-0x3
02d1 e5fe | | Load 0x2,-0x2
02d2 0120 | | Execute Any,Is_Value
02d3 6803 |h | Jump_Zero 0x2d7
02d4 e001 | | Load 0x0,0x1
02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d6 7801 |x | Jump 0x2d8
02d7 e5fe | | Load 0x2,-0x2
02d8 00da | | Load_Top At_Offset_2
02d9 8222 | " | Call 0x1,0x22
02da c5fe | | Store 0x2,-0x2
02db 00d1 | | Pop_Control Pop_Count_1
02dc 4502 |E | Exit_Subprogram 0x2
02dd e5fd | | Load 0x2,-0x3
02de 00da | | Load_Top At_Offset_2
02df e5ff | | Load 0x2,-0x1
02e0 0092 046b | k| Action Push_String_Extended,0x46b ; "Could not get enclosing object for"
02e2 e007 | | Load 0x0,0x7
02e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e4 e008 | | Load 0x0,0x8
02e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02e6 00d1 | | Pop_Control Pop_Count_1
02e7 4502 |E | Exit_Subprogram 0x2
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f3 | | .CONST 0x02f3 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e001 | | Load 0x0,0x1
02ec 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ee 02c7 | | Declare_Variable Any
02ef 00d8 | | Load_Top At_Offset_0
02f0 1c00 | | Execute_Immediate Run_Utility,0x0
02f1 e001 | | Load 0x0,0x1
02f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f3 BODY_02e8:
02f3 e001 | | Load 0x0,0x1
02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f5 00da | | Load_Top At_Offset_2
02f6 0120 | | Execute Any,Is_Value
02f7 6804 |h | Jump_Zero 0x2fc
02f8 e001 | | Load 0x0,0x1
02f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fb 7801 |x | Jump 0x2fd
02fc 00da | | Load_Top At_Offset_2
02fd e5ff | | Load 0x2,-0x1
02fe e001 | | Load 0x0,0x1
02ff 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0300 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0301 c402 | | Store 0x2,0x2
0302 0059 | Y | Store_Top Discrete,At_Offset_1
0303 00d8 | | Load_Top At_Offset_0
0304 820e | | Call 0x1,0xe
0305 700a |p | Jump_Nonzero 0x310
0306 e5fd | | Load 0x2,-0x3
0307 00d9 | | Load_Top At_Offset_1
0308 e5ff | | Load 0x2,-0x1
0309 0092 046c | l| Action Push_String_Extended,0x46c ; "Could not get enclosing subsystem for"
030b e007 | | Load 0x0,0x7
030c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030d e008 | | Load 0x0,0x8
030e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
030f 00d1 | | Pop_Control Pop_Count_1
0310 00d9 | | Load_Top At_Offset_1
0311 e001 | | Load 0x0,0x1
0312 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0313 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0314 c5fe | | Store 0x2,-0x2
0315 4502 |E | Exit_Subprogram 0x2
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0334 | 4 | .CONST 0x0334 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0008 | | .CONST 0x0008 ; Number of locals
031b INIT_0318:
031b e00c | | Load 0x0,0xc
031c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031d e001 | | Load 0x0,0x1
031e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0320 e001 | | Load 0x0,0x1
0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0322 e001 | | Load 0x0,0x1
0323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0325 e001 | | Load 0x0,0x1
0326 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0327 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0328 02c7 | | Declare_Variable Any
0329 00d8 | | Load_Top At_Offset_0
032a 1c00 | | Execute_Immediate Run_Utility,0x0
032b e001 | | Load 0x0,0x1
032c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032d 02c7 | | Declare_Variable Any
032e 00d8 | | Load_Top At_Offset_0
032f 1c00 | | Execute_Immediate Run_Utility,0x0
0330 00e1 | | Load_Encached Boolean_Cache
0331 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0332 029f 041b | | Declare_Subprogram For_Call,INIT_0418
0334 BODY_0318:
0334 e5fb | | Load 0x2,-0x5
0335 e001 | | Load 0x0,0x1
0336 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0337 701c |p | Jump_Nonzero 0x354
0338 e001 | | Load 0x0,0x1
0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033a e001 | | Load 0x0,0x1
033b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
033c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
033d 606a |`j | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000}
033e e5fa | | Load 0x2,-0x6
033f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0340 4800 |H | Short_Literal 0x0
0341 e5fb | | Load 0x2,-0x5
0342 e001 | | Load 0x0,0x1
0343 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0344 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0345 c402 | | Store 0x2,0x2
0346 c403 | | Store 0x2,0x3
0347 e403 | | Load 0x2,0x3
0348 820e | | Call 0x1,0xe
0349 700a |p | Jump_Nonzero 0x354
034a e5fa | | Load 0x2,-0x6
034b e403 | | Load 0x2,0x3
034c e5fb | | Load 0x2,-0x5
034d 0092 046d | m| Action Push_String_Extended,0x46d ; "Could not establish naming context for"
034f e007 | | Load 0x0,0x7
0350 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0351 e008 | | Load 0x0,0x8
0352 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0353 00d1 | | Pop_Control Pop_Count_1
0354 e001 | | Load 0x0,0x1
0355 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0357 e405 | | Load 0x2,0x5
0358 604f |`O | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000}
0359 e5fa | | Load 0x2,-0x6
035a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035b e00c | | Load 0x0,0xc
035c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035d e00d | | Load 0x0,0xd
035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035f 4801 |H | Short_Literal 0x1
0360 4800 |H | Short_Literal 0x0
0361 e402 | | Load 0x2,0x2
0362 e5fc | | Load 0x2,-0x4
0363 e001 | | Load 0x0,0x1
0364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0365 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0366 c405 | | Store 0x2,0x5
0367 c404 | | Store 0x2,0x4
0368 e404 | | Load 0x2,0x4
0369 820f | | Call 0x1,0xf
036a 7021 |p! | Jump_Nonzero 0x38c
036b 00db | | Load_Top At_Offset_3
036c e001 | | Load 0x0,0x1
036d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
036e 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
036f c405 | | Store 0x2,0x5
0370 e5fa | | Load 0x2,-0x6
0371 4820 |H | Short_Literal 0x20
0372 e5fe | | Load 0x2,-0x2
0373 01cb | | Execute Vector,Append
0374 e5fc | | Load 0x2,-0x4
0375 01cc | | Execute Vector,Catenate
0376 0092 046e | n| Action Push_String_Extended,0x46e ; " because "
0378 01cc | | Execute Vector,Catenate
0379 602e |`. | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000}
037a e5fa | | Load 0x2,-0x6
037b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037c e00c | | Load 0x0,0xc
037d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037e e00d | | Load 0x0,0xd
037f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0380 4801 |H | Short_Literal 0x1
0381 4800 |H | Short_Literal 0x0
0382 e402 | | Load 0x2,0x2
0383 e5fc | | Load 0x2,-0x4
0384 e404 | | Load 0x2,0x4
0385 e001 | | Load 0x0,0x1
0386 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0387 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0388 01cc | | Execute Vector,Catenate
0389 e008 | | Load 0x0,0x8
038a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
038b 00d1 | | Pop_Control Pop_Count_1
038c 00cf | | Action Mark_Auxiliary
038d 7807 |x | Jump 0x395
038e 8408 | | Call 0x2,0x8
038f e405 | | Load 0x2,0x5
0390 e001 | | Load 0x0,0x1
0391 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0392 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0393 c405 | | Store 0x2,0x5
0394 00c9 | | Action Pop_Auxiliary_Loop
0395 e405 | | Load 0x2,0x5
0396 e001 | | Load 0x0,0x1
0397 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0398 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0399 6ff4 |o | Jump_Zero 0x38e
039a 00ce | | Action Pop_Auxiliary
039b 00db | | Load_Top At_Offset_3
039c e001 | | Load 0x0,0x1
039d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039e 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
039f c405 | | Store 0x2,0x5
03a0 00d9 | | Load_Top At_Offset_1
03a1 7002 |p | Jump_Nonzero 0x3a4
03a2 e00e | | Load 0x0,0xe
03a3 0257 | W | Execute Discrete,Raise
03a4 4506 |E | Exit_Subprogram 0x6
03a5 0000 0000 | | .XXX[0x3]
03a7 0000 | |
03a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c5 | | .CONST 0x03c5 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0007 | | .CONST 0x0007 ; Number of locals
03b3 INIT_03b0:
03b3 e00f | | Load 0x0,0xf
03b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b5 e00f | | Load 0x0,0xf
03b6 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
03b7 02c7 | | Declare_Variable Any
03b8 00d8 | | Load_Top At_Offset_0
03b9 1c00 | | Execute_Immediate Run_Utility,0x0
03ba e001 | | Load 0x0,0x1
03bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bc 02c7 | | Declare_Variable Any
03bd 00d8 | | Load_Top At_Offset_0
03be 1c00 | | Execute_Immediate Run_Utility,0x0
03bf e001 | | Load 0x0,0x1
03c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c1 00e1 | | Load_Encached Boolean_Cache
03c2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03c3 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
03c5 BODY_03b0:
03c5 00be | | Action Activate_Tasks
03c6 e00f | | Load 0x0,0xf
03c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03c8 0124 | $ | Execute Any,Is_Constrained
03c9 700b |p | Jump_Nonzero 0x3d5
03ca e00f | | Load 0x0,0xf
03cb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03cc 1c09 | | Execute_Immediate Run_Utility,0x9
03cd e00f | | Load 0x0,0xf
03ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03cf e00c | | Load 0x0,0xc
03d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d1 e00d | | Load 0x0,0xd
03d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d3 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype
03d4 7807 |x | Jump 0x3dc
03d5 e00f | | Load 0x0,0xf
03d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d7 e00c | | Load 0x0,0xc
03d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d9 e00d | | Load 0x0,0xd
03da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03db 039c | | Declare_Variable Heap_Access,By_Allocation
03dc a402 | | Store_Unchecked 0x2,0x2
03dd e402 | | Load 0x2,0x2
03de e001 | | Load 0x0,0x1
03df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e0 00d9 | | Load_Top At_Offset_1
03e1 0219 | | Execute Heap_Access,All_Read
03e2 4800 |H | Short_Literal 0x0
03e3 4800 |H | Short_Literal 0x0
03e4 e5fc | | Load 0x2,-0x4
03e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03e6 e5fd | | Load 0x2,-0x3
03e7 e00f | | Load 0x0,0xf
03e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03e9 00da | | Load_Top At_Offset_2
03ea 0218 | | Execute Heap_Access,All_Write
03eb c405 | | Store 0x2,0x5
03ec 00d1 | | Pop_Control Pop_Count_1
03ed 00da | | Load_Top At_Offset_2
03ee 820e | | Call 0x1,0xe
03ef 700a |p | Jump_Nonzero 0x3fa
03f0 e5fc | | Load 0x2,-0x4
03f1 00db | | Load_Top At_Offset_3
03f2 e5fd | | Load 0x2,-0x3
03f3 0092 046f | o| Action Push_String_Extended,0x46f ; "Could not open activity"
03f5 e007 | | Load 0x0,0x7
03f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f7 e008 | | Load 0x0,0x8
03f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03f9 00d1 | | Pop_Control Pop_Count_1
03fa e403 | | Load 0x2,0x3
03fb 0120 | | Execute Any,Is_Value
03fc 6803 |h | Jump_Zero 0x400
03fd e00f | | Load 0x0,0xf
03fe 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
03ff 7801 |x | Jump 0x401
0400 e403 | | Load 0x2,0x3
0401 e402 | | Load 0x2,0x2
0402 e00f | | Load 0x0,0xf
0403 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0404 c403 | | Store 0x2,0x3
0405 00cf | | Action Mark_Auxiliary
0406 7806 |x | Jump 0x40d
0407 8407 | | Call 0x2,0x7
0408 e403 | | Load 0x2,0x3
0409 e00f | | Load 0x0,0xf
040a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
040b c403 | | Store 0x2,0x3
040c 00c9 | | Action Pop_Auxiliary_Loop
040d e403 | | Load 0x2,0x3
040e e00f | | Load 0x0,0xf
040f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0410 6ff6 |o | Jump_Zero 0x407
0411 00ce | | Action Pop_Auxiliary
0412 00d9 | | Load_Top At_Offset_1
0413 7002 |p | Jump_Nonzero 0x416
0414 e00e | | Load 0x0,0xe
0415 0257 | W | Execute Discrete,Raise
0416 4504 |E | Exit_Subprogram 0x4
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 043d | = | .CONST 0x043d ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e001 | | Load 0x0,0x1
041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041d e406 | | Load 0x2,0x6
041e 0120 | | Execute Any,Is_Value
041f 6803 |h | Jump_Zero 0x423
0420 e001 | | Load 0x0,0x1
0421 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0422 7801 |x | Jump 0x424
0423 e406 | | Load 0x2,0x6
0424 e405 | | Load 0x2,0x5
0425 e001 | | Load 0x0,0x1
0426 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0427 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0428 c406 | | Store 0x2,0x6
0429 c403 | | Store 0x2,0x3
042a e403 | | Load 0x2,0x3
042b 820e | | Call 0x1,0xe
042c 6805 |h | Jump_Zero 0x432
042d e5fa | | Load 0x2,-0x6
042e e406 | | Load 0x2,0x6
042f 85fd | | Call 0x2,-0x3
0430 00d1 | | Pop_Control Pop_Count_1
0431 4501 |E | Exit_Subprogram 0x1
0432 e5fa | | Load 0x2,-0x6
0433 e403 | | Load 0x2,0x3
0434 e405 | | Load 0x2,0x5
0435 0092 0470 | p| Action Push_String_Extended,0x470 ; "Could not get object"
0437 e007 | | Load 0x0,0x7
0438 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0439 e008 | | Load 0x0,0x8
043a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
043b 00d1 | | Pop_Control Pop_Count_1
043c 4501 |E | Exit_Subprogram 0x1
043d TRAP_0418:
043d e00e | | Load 0x0,0xe
043e 010f | | Execute Exception,Equal
043f 6803 |h | Jump_Zero 0x443
0440 4800 |H | Short_Literal 0x0
0441 a407 | | Store_Unchecked 0x2,0x7
0442 4501 |E | Exit_Subprogram 0x1
0443 0100 | | Execute Exception,Raise
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 045d | ] | .CONST 0x045d ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e403 | | Load 0x2,0x3
044c e00f | | Load 0x0,0xf
044d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
044e c404 | | Store 0x2,0x4
044f e5fc | | Load 0x2,-0x4
0450 e402 | | Load 0x2,0x2
0451 0219 | | Execute Heap_Access,All_Read
0452 e404 | | Load 0x2,0x4
0453 e00f | | Load 0x0,0xf
0454 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0455 e402 | | Load 0x2,0x2
0456 0219 | | Execute Heap_Access,All_Read
0457 e404 | | Load 0x2,0x4
0458 e00f | | Load 0x0,0xf
0459 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
045a e404 | | Load 0x2,0x4
045b 85fe | | Call 0x2,-0x2
045c 4501 |E | Exit_Subprogram 0x1
045d TRAP_0448:
045d e00e | | Load 0x0,0xe
045e 010f | | Execute Exception,Equal
045f 6803 |h | Jump_Zero 0x463
0460 4800 |H | Short_Literal 0x0
0461 a406 | | Store_Unchecked 0x2,0x6
0462 4501 |E | Exit_Subprogram 0x1
0463 0100 | | Execute Exception,Raise
0464 ; --------------------------------------------------------------------------------------
0464 ; STRING TABLE
0464 ; --------------------------------------------------------------------------------------
0464 001c | | .STRTAB 0x001c->0x0472 ; "Could not get unit state for"
0465 0036 | 6 | .STRTAB 0x0036->0x0480 ; "Could not get target key for"
0466 0050 | P | .STRTAB 0x0050->0x048e ; "Could not get tree for"
0467 0064 | d | .STRTAB 0x0064->0x0499 ; "Could not find unit "
; "Could not find unit "
0468 0076 | v | .STRTAB 0x0076->0x04a3 ; " in code view"
; " in code view"
0469 0081 | | .STRTAB 0x0081->0x04a9 ; "Could not get enclosing world for"
046a 00a0 | | .STRTAB 0x00a0->0x04ba ; "is not in a view"
046b 00ae | | .STRTAB 0x00ae->0x04c2 ; "Could not get enclosing object for"
046c 00ce | | .STRTAB 0x00ce->0x04d3 ; "Could not get enclosing subsystem for"
046d 00f1 | | .STRTAB 0x00f1->0x04e5 ; "Could not establish naming context for"
046e 0115 | | .STRTAB 0x0115->0x04f8 ; " because "
046f 011c | | .STRTAB 0x011c->0x04fd ; "Could not open activity"
0470 0131 | 1 | .STRTAB 0x0131->0x0508 ; "Could not get object"
0471 0143 | C | .STREND 0x0143->0x0512
0472 436f 756c |Coul| .STRTAB_STRINGS
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug Table
0518 ; --------------------------------------------------------------------------------------
0518 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa535,0x0000,0x0001,0x0000
051e 9064 1906 | d | .XXX[0xe2]
0520 4190 6419 |A d |
0522 0641 9064 | A d|
0524 1906 4190 | A |
0526 6419 0641 |d A|
0528 9064 1906 | d |
052a 4190 6419 |A d |
052c 0641 9064 | A d|
052e 1906 4190 | A |
0530 6419 0641 |d A|
0532 9064 1906 | d |
0534 4190 6419 |A d |
0536 0641 9064 | A d|
0538 1906 4190 | A |
053a 6419 0641 |d A|
053c 9064 1906 | d |
053e 4190 6419 |A d |
0540 0641 9064 | A d|
0542 1906 4190 | A |
0544 6419 0641 |d A|
0546 9064 1906 | d |
0548 4190 6419 |A d |
054a 0641 9064 | A d|
054c 1906 4190 | A |
054e 6419 0641 |d A|
0550 9064 1906 | d |
0552 4190 6419 |A d |
0554 0641 9064 | A d|
0556 1906 4190 | A |
0558 6419 0641 |d A|
055a 9064 1906 | d |
055c 4190 6419 |A d |
055e 0641 9064 | A d|
0560 1906 4190 | A |
0562 6419 0641 |d A|
0564 9064 1906 | d |
0566 4190 6419 |A d |
0568 0641 9064 | A d|
056a 1906 4190 | A |
056c 6419 0641 |d A|
056e 9064 1906 | d |
0570 4190 6419 |A d |
0572 0641 9064 | A d|
0574 1906 4190 | A |
0576 6419 0641 |d A|
0578 9064 1906 | d |
057a 4190 6419 |A d |
057c 0641 9064 | A d|
057e 1906 4190 | A |
0580 6419 0641 |d A|
0582 9064 1906 | d |
0584 4190 6419 |A d |
0586 0641 9064 | A d|
0588 1906 4190 | A |
058a 6419 0641 |d A|
058c 9064 1906 | d |
058e 4190 6419 |A d |
0590 0641 9064 | A d|
0592 1906 4190 | A |
0594 6419 0641 |d A|
0596 9064 1906 | d |
0598 4190 6419 |A d |
059a 0641 9064 | A d|
059c 1906 4190 | A |
059e 6419 0641 |d A|
05a0 9064 1906 | d |
05a2 4190 6419 |A d |
05a4 0641 9064 | A d|
05a6 1906 4190 | A |
05a8 6419 0641 |d A|
05aa 9064 1906 | d |
05ac 4190 6419 |A d |
05ae 0641 9064 | A d|
05b0 1906 4190 | A |
05b2 6419 0641 |d A|
05b4 9064 1906 | d |
05b6 4190 6419 |A d |
05b8 0641 9064 | A d|
05ba 1906 4190 | A |
05bc 6419 0641 |d A|
05be 9064 1906 | d |
05c0 4190 6419 |A d |
05c2 0641 9064 | A d|
05c4 1906 4190 | A |
05c6 6419 0641 |d A|
05c8 9064 1906 | d |
05ca 4190 6419 |A d |
05cc 0641 9064 | A d|
05ce 1906 4190 | A |
05d0 6419 0641 |d A|
05d2 9064 1906 | d |
05d4 4190 6419 |A d |
05d6 0641 9064 | A d|
05d8 1906 4190 | A |
05da 6419 0641 |d A|
05dc 9064 1906 | d |
05de 4190 6419 |A d |
05e0 0641 9064 | A d|
05e2 1906 4190 | A |
05e4 6419 0641 |d A|
05e6 9064 1906 | d |
05e8 4190 6419 |A d |
05ea 0641 9064 | A d|
05ec 1906 4190 | A |
05ee 6419 0641 |d A|
05f0 9064 1906 | d |
05f2 4190 6419 |A d |
05f4 0641 9064 | A d|
05f6 1906 4190 | A |
05f8 6419 0641 |d A|
05fa 9064 1906 | d |
05fc 4190 6419 |A d |
05fe 0641 9064 | A d|