|
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: 3072 (0xc00)
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 0500 | | .CONST 0x0500 ; 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 0070 | p | .CONST 0x0070 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0021 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0025 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0027 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0029 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
002b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
002d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
002f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0031 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0033 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0035 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0037 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0039 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
003b 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
003d 00bf | | Action Accept_Activation
003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003f 00c7 | | Action Elaborate_Subprogram
0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0041 00c7 | | Action Elaborate_Subprogram
0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0043 00c7 | | Action Elaborate_Subprogram
0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0045 00c7 | | Action Elaborate_Subprogram
0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0047 00c7 | | Action Elaborate_Subprogram
0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0049 00c7 | | Action Elaborate_Subprogram
004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004b 00c7 | | Action Elaborate_Subprogram
004c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004d 00c7 | | Action Elaborate_Subprogram
004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004f 00c7 | | Action Elaborate_Subprogram
0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0051 00c7 | | Action Elaborate_Subprogram
0052 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0059 00c7 | | Action Elaborate_Subprogram
005a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005b 00c7 | | Action Elaborate_Subprogram
005c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0063 00c7 | | Action Elaborate_Subprogram
0064 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0065 00c7 | | Action Elaborate_Subprogram
0066 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0067 00c7 | | Action Elaborate_Subprogram
0068 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0069 00c7 | | Action Elaborate_Subprogram
006a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
006b 00c7 | | Action Elaborate_Subprogram
006c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
006d 00c7 | | Action Elaborate_Subprogram
006e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
006f 00c7 | | Action Elaborate_Subprogram
0070 BODY_0008:
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c 0f00 | | Execute_Immediate Equal,0x0
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
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_Value,New_Top_Offset 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 4801 |H | Short_Literal 0x1
008c 00db | | Load_Top At_Offset_3
008d e003 | | Load 0x0,0x3
008e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008f 0f00 | | Execute_Immediate Equal,0x0
0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c 0f00 | | Execute_Immediate Equal,0x0
009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009e 0000 0000 | | .XXX[0x2]
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 e004 | | Load 0x0,0x4
00a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00a6 e005 | | Load 0x0,0x5
00a7 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a8 012f | / | Execute Any,Equal
00a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4800 |H | Short_Literal 0x0
00b4 00db | | Load_Top At_Offset_3
00b5 e004 | | Load 0x0,0x4
00b6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b8 e004 | | Load 0x0,0x4
00b9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
00ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 e004 | | Load 0x0,0x4
00c5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00c6 e006 | | Load 0x0,0x6
00c7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00c8 027f | | Execute Discrete,Equal
00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d6 | | .CONST 0x00d6 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e004 | | Load 0x0,0x4
00d5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d6 BODY_00d0:
00d6 00d8 | | Load_Top At_Offset_0
00d7 e006 | | Load 0x0,0x6
00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d9 027f | | Execute Discrete,Equal
00da 700c |p | Jump_Nonzero 0xe7
00db 00d8 | | Load_Top At_Offset_0
00dc e006 | | Load 0x0,0x6
00dd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00de 027f | | Execute Discrete,Equal
00df 7005 |p | Jump_Nonzero 0xe5
00e0 00d8 | | Load_Top At_Offset_0
00e1 e006 | | Load 0x0,0x6
00e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e3 027f | | Execute Discrete,Equal
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 4801 |H | Short_Literal 0x1
00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e7 4801 |H | Short_Literal 0x1
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
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 e004 | | Load 0x0,0x4
00f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f6 e006 | | Load 0x0,0x6
00f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f8 027f | | Execute Discrete,Equal
00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e004 | | Load 0x0,0x4
0105 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0106 BODY_0100:
0106 00d8 | | Load_Top At_Offset_0
0107 e006 | | Load 0x0,0x6
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 e006 | | Load 0x0,0x6
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e 027f | | Execute Discrete,Equal
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 4801 |H | Short_Literal 0x1
0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e004 | | Load 0x0,0x4
011d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
011e e006 | | Load 0x0,0x6
011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0120 027f | | Execute Discrete,Equal
0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 e007 | | Load 0x0,0x7
013e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
013f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0140 e004 | | Load 0x0,0x4
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 e007 | | Load 0x0,0x7
0146 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0147 01cc | | Execute Vector,Catenate
0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e008 | | Load 0x0,0x8
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_Value,New_Top_Offset 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 e004 | | Load 0x0,0x4
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d BODY_0158:
015d e004 | | Load 0x0,0x4
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f e004 | | Load 0x0,0x4
0160 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 6019 |` | Indirect_Literal Discrete,0x17c,{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 e004 | | Load 0x0,0x4
0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016a e004 | | Load 0x0,0x4
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 820d | | Call 0x1,0xd
0171 7008 |p | Jump_Nonzero 0x17a
0172 e5fd | | Load 0x2,-0x3
0173 00d9 | | Load_Top At_Offset_1
0174 e5ff | | Load 0x2,-0x1
0175 0092 044c | L| Action Push_String_Extended,0x44c ; "Could not get unit state for"
0177 8009 | | Call 0x0,0x9
0178 800a | | Call 0x0,0xa
0179 00d1 | | Pop_Control Pop_Count_1
017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017b 0000 | | .XXX[0x1]
017c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e004 | | Load 0x0,0x4
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 BODY_0180:
0185 e004 | | Load 0x0,0x4
0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0187 e5fe | | Load 0x2,-0x2
0188 67f3 |g | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000}
0189 e5fd | | Load 0x2,-0x3
018a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018b e5ff | | Load 0x2,-0x1
018c e004 | | Load 0x0,0x4
018d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
018e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
018f 00d1 | | Pop_Control Pop_Count_1
0190 0059 | Y | Store_Top Discrete,At_Offset_1
0191 00d8 | | Load_Top At_Offset_0
0192 820d | | Call 0x1,0xd
0193 7008 |p | Jump_Nonzero 0x19c
0194 e5fd | | Load 0x2,-0x3
0195 00d9 | | Load_Top At_Offset_1
0196 e5ff | | Load 0x2,-0x1
0197 0092 044d | M| Action Push_String_Extended,0x44d ; "Could not get target key for"
0199 8009 | | Call 0x0,0x9
019a 800a | | Call 0x0,0xa
019b 00d1 | | Pop_Control Pop_Count_1
019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab | | .CONST 0x01ab ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e004 | | Load 0x0,0x4
01a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01a6 02c7 | | Declare_Variable Any
01a7 00d8 | | Load_Top At_Offset_0
01a8 1c00 | | Execute_Immediate Run_Utility,0x0
01a9 e004 | | Load 0x0,0x4
01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ab BODY_01a0:
01ab e004 | | Load 0x0,0x4
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 00da | | Load_Top At_Offset_2
01ae 0120 | | Execute Any,Is_Value
01af 6804 |h | Jump_Zero 0x1b4
01b0 e004 | | Load 0x0,0x4
01b1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01b3 7801 |x | Jump 0x1b5
01b4 00da | | Load_Top At_Offset_2
01b5 e004 | | Load 0x0,0x4
01b6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b8 601f |` | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00004000}
01b9 4801 |H | Short_Literal 0x1
01ba 4800 |H | Short_Literal 0x0
01bb 4800 |H | Short_Literal 0x0
01bc e5fd | | Load 0x2,-0x3
01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01be 4801 |H | Short_Literal 0x1
01bf e5ff | | Load 0x2,-0x1
01c0 e004 | | Load 0x0,0x4
01c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c3 e004 | | Load 0x0,0x4
01c4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01c5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01c6 c5fe | | Store 0x2,-0x2
01c7 c402 | | Store 0x2,0x2
01c8 0059 | Y | Store_Top Discrete,At_Offset_1
01c9 00d8 | | Load_Top At_Offset_0
01ca 820d | | Call 0x1,0xd
01cb 7008 |p | Jump_Nonzero 0x1d4
01cc e5fd | | Load 0x2,-0x3
01cd 00d9 | | Load_Top At_Offset_1
01ce e5ff | | Load 0x2,-0x1
01cf 0092 044e | N| Action Push_String_Extended,0x44e ; "Could not get tree for"
01d1 8009 | | Call 0x0,0x9
01d2 800a | | Call 0x0,0xa
01d3 00d1 | | Pop_Control Pop_Count_1
01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ec | | .CONST 0x01ec ; Address of begin
01e1 01fb | | .CONST 0x01fb ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e004 | | Load 0x0,0x4
01e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
01e7 e007 | | Load 0x0,0x7
01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e9 02c7 | | Declare_Variable Any
01ea 00d8 | | Load_Top At_Offset_0
01eb 1c00 | | Execute_Immediate Run_Utility,0x0
01ec BODY_01e0:
01ec e5fd | | Load 0x2,-0x3
01ed 00da | | Load_Top At_Offset_2
01ee e007 | | Load 0x0,0x7
01ef 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 c403 | | Store 0x2,0x3
01f2 00d8 | | Load_Top At_Offset_0
01f3 e007 | | Load 0x0,0x7
01f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f5 012f | / | Execute Any,Equal
01f6 6801 |h | Jump_Zero 0x1f8
01f7 0887 | | Execute_Immediate Raise,0x87
01f8 00d8 | | Load_Top At_Offset_0
01f9 c5fc | | Store 0x2,-0x4
01fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01fb TRAP_01e0:
01fb 0007 | | Action Break_Optional
01fc e5fb | | Load 0x2,-0x5
01fd e5fe | | Load 0x2,-0x2
01fe 0092 044f | O| Action Push_String_Extended,0x44f ; "Could not find unit "
0200 e402 | | Load 0x2,0x2
0201 01cc | | Execute Vector,Catenate
0202 0092 0450 | P| Action Push_String_Extended,0x450 ; " in code view"
0204 01cc | | Execute Vector,Catenate
0205 800b | | Call 0x0,0xb
0206 e5ff | | Load 0x2,-0x1
0207 800c | | Call 0x0,0xc
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0221 | ! | .CONST 0x0221 ; Address of begin
0211 0245 | E | .CONST 0x0245 ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e004 | | Load 0x0,0x4
0215 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0216 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0217 e008 | | Load 0x0,0x8
0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0219 02c7 | | Declare_Variable Any
021a 00d8 | | Load_Top At_Offset_0
021b 1c00 | | Execute_Immediate Run_Utility,0x0
021c e008 | | Load 0x0,0x8
021d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
021e 02c7 | | Declare_Variable Any
021f 00d8 | | Load_Top At_Offset_0
0220 1c00 | | Execute_Immediate Run_Utility,0x0
0221 BODY_0210:
0221 00d9 | | Load_Top At_Offset_1
0222 0120 | | Execute Any,Is_Value
0223 6803 |h | Jump_Zero 0x227
0224 e008 | | Load 0x0,0x8
0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0226 7801 |x | Jump 0x228
0227 00d9 | | Load_Top At_Offset_1
0228 4801 |H | Short_Literal 0x1
0229 4800 |H | Short_Literal 0x0
022a e5fe | | Load 0x2,-0x2
022b e5fc | | Load 0x2,-0x4
022c 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
022d e008 | | Load 0x0,0x8
022e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
022f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0230 e5fc | | Load 0x2,-0x4
0231 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0232 e008 | | Load 0x0,0x8
0233 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0234 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0235 c403 | | Store 0x2,0x3
0236 00da | | Load_Top At_Offset_2
0237 00da | | Load_Top At_Offset_2
0238 e008 | | Load 0x0,0x8
0239 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
023a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023b c404 | | Store 0x2,0x4
023c 00d8 | | Load_Top At_Offset_0
023d e008 | | Load 0x0,0x8
023e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
023f 012f | / | Execute Any,Equal
0240 6801 |h | Jump_Zero 0x242
0241 0887 | | Execute_Immediate Raise,0x87
0242 00d8 | | Load_Top At_Offset_0
0243 c5fd | | Store 0x2,-0x3
0244 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0245 TRAP_0210:
0245 0007 | | Action Break_Optional
0246 e5fc | | Load 0x2,-0x4
0247 e5fe | | Load 0x2,-0x2
0248 0092 044f | O| Action Push_String_Extended,0x44f ; "Could not find unit "
024a e402 | | Load 0x2,0x2
024b 01cc | | Execute Vector,Catenate
024c 0092 0450 | P| Action Push_String_Extended,0x450 ; " in code view"
024e 01cc | | Execute Vector,Catenate
024f 800b | | Call 0x0,0xb
0250 e5ff | | Load 0x2,-0x1
0251 800c | | Call 0x0,0xc
0252 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0268 | h | .CONST 0x0268 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0004 | | .CONST 0x0004 ; Number of locals
025b INIT_0258:
025b e004 | | Load 0x0,0x4
025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 e004 | | Load 0x0,0x4
0261 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0262 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0263 02c7 | | Declare_Variable Any
0264 00d8 | | Load_Top At_Offset_0
0265 1c00 | | Execute_Immediate Run_Utility,0x0
0266 e004 | | Load 0x0,0x4
0267 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0268 BODY_0258:
0268 e004 | | Load 0x0,0x4
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 00da | | Load_Top At_Offset_2
026b 0120 | | Execute Any,Is_Value
026c 6804 |h | Jump_Zero 0x271
026d e004 | | Load 0x0,0x4
026e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0270 7801 |x | Jump 0x272
0271 00da | | Load_Top At_Offset_2
0272 e5ff | | Load 0x2,-0x1
0273 e004 | | Load 0x0,0x4
0274 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0275 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0276 c403 | | Store 0x2,0x3
0277 0059 | Y | Store_Top Discrete,At_Offset_1
0278 00d8 | | Load_Top At_Offset_0
0279 820d | | Call 0x1,0xd
027a 7008 |p | Jump_Nonzero 0x283
027b e5fd | | Load 0x2,-0x3
027c 00d9 | | Load_Top At_Offset_1
027d e5ff | | Load 0x2,-0x1
027e 0092 0451 | Q| Action Push_String_Extended,0x451 ; "Could not get enclosing world for"
0280 8009 | | Call 0x0,0x9
0281 800a | | Call 0x0,0xa
0282 00d1 | | Pop_Control Pop_Count_1
0283 00d9 | | Load_Top At_Offset_1
0284 e004 | | Load 0x0,0x4
0285 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0286 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0287 c402 | | Store 0x2,0x2
0288 00da | | Load_Top At_Offset_2
0289 8214 | | Call 0x1,0x14
028a 7007 |p | Jump_Nonzero 0x292
028b e5fd | | Load 0x2,-0x3
028c 0092 0452 | R| Action Push_String_Extended,0x452 ; "is not in a view"
028e e5ff | | Load 0x2,-0x1
028f 800d | | Call 0x0,0xd
0290 800a | | Call 0x0,0xa
0291 00d1 | | Pop_Control Pop_Count_1
0292 00da | | Load_Top At_Offset_2
0293 c5fe | | Store 0x2,-0x2
0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a7 | | .CONST 0x02a7 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0004 | | .CONST 0x0004 ; Number of locals
029b INIT_0298:
029b e00e | | Load 0x0,0xe
029c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
029d 0322 | " | Declare_Variable Record
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 e00f | | Load 0x0,0xf
02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a2 e004 | | Load 0x0,0x4
02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a4 02c7 | | Declare_Variable Any
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 BODY_0298:
02a7 e00f | | Load 0x0,0xf
02a8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a9 00db | | Load_Top At_Offset_3
02aa e5fd | | Load 0x2,-0x3
02ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ac 4800 |H | Short_Literal 0x0
02ad 4800 |H | Short_Literal 0x0
02ae e5ff | | Load 0x2,-0x1
02af e00e | | Load 0x0,0xe
02b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b1 00d1 | | Pop_Control Pop_Count_1
02b2 005a | Z | Store_Top Discrete,At_Offset_2
02b3 00d9 | | Load_Top At_Offset_1
02b4 8210 | | Call 0x1,0x10
02b5 6817 |h | Jump_Zero 0x2cd
02b6 00da | | Load_Top At_Offset_2
02b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02b9 e010 | | Load 0x0,0x10
02ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bb 0162 | b | Execute Variant_Record,Check_In_Type
02bc e004 | | Load 0x0,0x4
02bd 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
02be 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bf c404 | | Store 0x2,0x4
02c0 e5fd | | Load 0x2,-0x3
02c1 e5fe | | Load 0x2,-0x2
02c2 0120 | | Execute Any,Is_Value
02c3 6803 |h | Jump_Zero 0x2c7
02c4 e004 | | Load 0x0,0x4
02c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c6 7801 |x | Jump 0x2c8
02c7 e5fe | | Load 0x2,-0x2
02c8 00da | | Load_Top At_Offset_2
02c9 8221 | ! | Call 0x1,0x21
02ca c5fe | | Store 0x2,-0x2
02cb 00d1 | | Pop_Control Pop_Count_1
02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02cd e5fd | | Load 0x2,-0x3
02ce 00da | | Load_Top At_Offset_2
02cf e5ff | | Load 0x2,-0x1
02d0 0092 0453 | S| Action Push_String_Extended,0x453 ; "Could not get enclosing object for"
02d2 8011 | | Call 0x0,0x11
02d3 800a | | Call 0x0,0xa
02d4 00d1 | | Pop_Control Pop_Count_1
02d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e3 | | .CONST 0x02e3 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0003 | | .CONST 0x0003 ; Number of locals
02db INIT_02d8:
02db e004 | | Load 0x0,0x4
02dc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02de 02c7 | | Declare_Variable Any
02df 00d8 | | Load_Top At_Offset_0
02e0 1c00 | | Execute_Immediate Run_Utility,0x0
02e1 e004 | | Load 0x0,0x4
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 BODY_02d8:
02e3 e004 | | Load 0x0,0x4
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 00da | | Load_Top At_Offset_2
02e6 0120 | | Execute Any,Is_Value
02e7 6804 |h | Jump_Zero 0x2ec
02e8 e004 | | Load 0x0,0x4
02e9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02eb 7801 |x | Jump 0x2ed
02ec 00da | | Load_Top At_Offset_2
02ed e5ff | | Load 0x2,-0x1
02ee e004 | | Load 0x0,0x4
02ef 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f1 c402 | | Store 0x2,0x2
02f2 0059 | Y | Store_Top Discrete,At_Offset_1
02f3 00d8 | | Load_Top At_Offset_0
02f4 820d | | Call 0x1,0xd
02f5 7008 |p | Jump_Nonzero 0x2fe
02f6 e5fd | | Load 0x2,-0x3
02f7 00d9 | | Load_Top At_Offset_1
02f8 e5ff | | Load 0x2,-0x1
02f9 0092 0454 | T| Action Push_String_Extended,0x454 ; "Could not get enclosing subsystem for"
02fb 8009 | | Call 0x0,0x9
02fc 800a | | Call 0x0,0xa
02fd 00d1 | | Pop_Control Pop_Count_1
02fe 00d9 | | Load_Top At_Offset_1
02ff e004 | | Load 0x0,0x4
0300 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0301 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0302 c5fe | | Store 0x2,-0x2
0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0324 | $ | .CONST 0x0324 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0008 | | .CONST 0x0008 ; Number of locals
030b INIT_0308:
030b e012 | | Load 0x0,0x12
030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030d e004 | | Load 0x0,0x4
030e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0310 e004 | | Load 0x0,0x4
0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0312 e004 | | Load 0x0,0x4
0313 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0314 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0315 e004 | | Load 0x0,0x4
0316 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0317 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0318 02c7 | | Declare_Variable Any
0319 00d8 | | Load_Top At_Offset_0
031a 1c00 | | Execute_Immediate Run_Utility,0x0
031b e004 | | Load 0x0,0x4
031c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031d 02c7 | | Declare_Variable Any
031e 00d8 | | Load_Top At_Offset_0
031f 1c00 | | Execute_Immediate Run_Utility,0x0
0320 00e1 | | Load_Encached Boolean_Cache
0321 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0322 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0324 BODY_0308:
0324 e5fb | | Load 0x2,-0x5
0325 e004 | | Load 0x0,0x4
0326 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0327 701a |p | Jump_Nonzero 0x342
0328 e004 | | Load 0x0,0x4
0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032a e004 | | Load 0x0,0x4
032b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032d 6066 |`f | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000}
032e e5fa | | Load 0x2,-0x6
032f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0330 4800 |H | Short_Literal 0x0
0331 e5fb | | Load 0x2,-0x5
0332 e004 | | Load 0x0,0x4
0333 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0334 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0335 c402 | | Store 0x2,0x2
0336 c403 | | Store 0x2,0x3
0337 e403 | | Load 0x2,0x3
0338 820d | | Call 0x1,0xd
0339 7008 |p | Jump_Nonzero 0x342
033a e5fa | | Load 0x2,-0x6
033b e403 | | Load 0x2,0x3
033c e5fb | | Load 0x2,-0x5
033d 0092 0455 | U| Action Push_String_Extended,0x455 ; "Could not establish naming context for"
033f 8009 | | Call 0x0,0x9
0340 800a | | Call 0x0,0xa
0341 00d1 | | Pop_Control Pop_Count_1
0342 e004 | | Load 0x0,0x4
0343 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0344 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0345 e405 | | Load 0x2,0x5
0346 604d |`M | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000}
0347 e5fa | | Load 0x2,-0x6
0348 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0349 e012 | | Load 0x0,0x12
034a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
034b e013 | | Load 0x0,0x13
034c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
034d 4801 |H | Short_Literal 0x1
034e 4800 |H | Short_Literal 0x0
034f e402 | | Load 0x2,0x2
0350 e5fc | | Load 0x2,-0x4
0351 e004 | | Load 0x0,0x4
0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0353 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0354 c405 | | Store 0x2,0x5
0355 c404 | | Store 0x2,0x4
0356 e404 | | Load 0x2,0x4
0357 820e | | Call 0x1,0xe
0358 7020 |p | Jump_Nonzero 0x379
0359 00db | | Load_Top At_Offset_3
035a e004 | | Load 0x0,0x4
035b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
035c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
035d c405 | | Store 0x2,0x5
035e e5fa | | Load 0x2,-0x6
035f 4820 |H | Short_Literal 0x20
0360 e5fe | | Load 0x2,-0x2
0361 01cb | | Execute Vector,Append
0362 e5fc | | Load 0x2,-0x4
0363 01cc | | Execute Vector,Catenate
0364 0092 0456 | V| Action Push_String_Extended,0x456 ; " because "
0366 01cc | | Execute Vector,Catenate
0367 602c |`, | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000}
0368 e5fa | | Load 0x2,-0x6
0369 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036a e012 | | Load 0x0,0x12
036b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036c e013 | | Load 0x0,0x13
036d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036e 4801 |H | Short_Literal 0x1
036f 4800 |H | Short_Literal 0x0
0370 e402 | | Load 0x2,0x2
0371 e5fc | | Load 0x2,-0x4
0372 e404 | | Load 0x2,0x4
0373 e004 | | Load 0x0,0x4
0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0375 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0376 01cc | | Execute Vector,Catenate
0377 800a | | Call 0x0,0xa
0378 00d1 | | Pop_Control Pop_Count_1
0379 00cf | | Action Mark_Auxiliary
037a 7807 |x | Jump 0x382
037b 8408 | | Call 0x2,0x8
037c e405 | | Load 0x2,0x5
037d e004 | | Load 0x0,0x4
037e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
037f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0380 c405 | | Store 0x2,0x5
0381 00c9 | | Action Pop_Auxiliary_Loop
0382 e405 | | Load 0x2,0x5
0383 e004 | | Load 0x0,0x4
0384 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0385 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0386 6ff4 |o | Jump_Zero 0x37b
0387 00ce | | Action Pop_Auxiliary
0388 00db | | Load_Top At_Offset_3
0389 e004 | | Load 0x0,0x4
038a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
038b 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
038c c405 | | Store 0x2,0x5
038d 00d9 | | Load_Top At_Offset_1
038e 7002 |p | Jump_Nonzero 0x391
038f e014 | | Load 0x0,0x14
0390 0257 | W | Execute Discrete,Raise
0391 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0392 0000 0000 | | .XXX[0x2]
0394 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03ad | | .CONST 0x03ad ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0007 | | .CONST 0x0007 ; Number of locals
039b INIT_0398:
039b e015 | | Load 0x0,0x15
039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039d e015 | | Load 0x0,0x15
039e 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
039f 02c7 | | Declare_Variable Any
03a0 00d8 | | Load_Top At_Offset_0
03a1 1c00 | | Execute_Immediate Run_Utility,0x0
03a2 e004 | | Load 0x0,0x4
03a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a4 02c7 | | Declare_Variable Any
03a5 00d8 | | Load_Top At_Offset_0
03a6 1c00 | | Execute_Immediate Run_Utility,0x0
03a7 e004 | | Load 0x0,0x4
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 00e1 | | Load_Encached Boolean_Cache
03aa 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03ab 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
03ad BODY_0398:
03ad 00be | | Action Activate_Tasks
03ae e015 | | Load 0x0,0x15
03af 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03b0 0124 | $ | Execute Any,Is_Constrained
03b1 700b |p | Jump_Nonzero 0x3bd
03b2 e015 | | Load 0x0,0x15
03b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03b4 1c09 | | Execute_Immediate Run_Utility,0x9
03b5 e015 | | Load 0x0,0x15
03b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b7 e012 | | Load 0x0,0x12
03b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b9 e013 | | Load 0x0,0x13
03ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03bb 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype
03bc 7807 |x | Jump 0x3c4
03bd e015 | | Load 0x0,0x15
03be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03bf e012 | | Load 0x0,0x12
03c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c1 e013 | | Load 0x0,0x13
03c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c3 039c | | Declare_Variable Heap_Access,By_Allocation
03c4 a402 | | Store_Unchecked 0x2,0x2
03c5 e402 | | Load 0x2,0x2
03c6 e004 | | Load 0x0,0x4
03c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c8 00d9 | | Load_Top At_Offset_1
03c9 0219 | | Execute Heap_Access,All_Read
03ca 4800 |H | Short_Literal 0x0
03cb 4800 |H | Short_Literal 0x0
03cc e5fc | | Load 0x2,-0x4
03cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ce e5fd | | Load 0x2,-0x3
03cf e015 | | Load 0x0,0x15
03d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03d1 00da | | Load_Top At_Offset_2
03d2 0218 | | Execute Heap_Access,All_Write
03d3 c405 | | Store 0x2,0x5
03d4 00d1 | | Pop_Control Pop_Count_1
03d5 00da | | Load_Top At_Offset_2
03d6 820d | | Call 0x1,0xd
03d7 7008 |p | Jump_Nonzero 0x3e0
03d8 e5fc | | Load 0x2,-0x4
03d9 00db | | Load_Top At_Offset_3
03da e5fd | | Load 0x2,-0x3
03db 0092 0457 | W| Action Push_String_Extended,0x457 ; "Could not open activity"
03dd 8009 | | Call 0x0,0x9
03de 800a | | Call 0x0,0xa
03df 00d1 | | Pop_Control Pop_Count_1
03e0 e403 | | Load 0x2,0x3
03e1 0120 | | Execute Any,Is_Value
03e2 6803 |h | Jump_Zero 0x3e6
03e3 e015 | | Load 0x0,0x15
03e4 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
03e5 7801 |x | Jump 0x3e7
03e6 e403 | | Load 0x2,0x3
03e7 e402 | | Load 0x2,0x2
03e8 e015 | | Load 0x0,0x15
03e9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03ea c403 | | Store 0x2,0x3
03eb 00cf | | Action Mark_Auxiliary
03ec 7806 |x | Jump 0x3f3
03ed 8407 | | Call 0x2,0x7
03ee e403 | | Load 0x2,0x3
03ef e015 | | Load 0x0,0x15
03f0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03f1 c403 | | Store 0x2,0x3
03f2 00c9 | | Action Pop_Auxiliary_Loop
03f3 e403 | | Load 0x2,0x3
03f4 e015 | | Load 0x0,0x15
03f5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03f6 6ff6 |o | Jump_Zero 0x3ed
03f7 00ce | | Action Pop_Auxiliary
03f8 00d9 | | Load_Top At_Offset_1
03f9 7002 |p | Jump_Nonzero 0x3fc
03fa e014 | | Load 0x0,0x14
03fb 0257 | W | Execute Discrete,Raise
03fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0423 | # | .CONST 0x0423 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e004 | | Load 0x0,0x4
0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0405 e406 | | Load 0x2,0x6
0406 0120 | | Execute Any,Is_Value
0407 6803 |h | Jump_Zero 0x40b
0408 e004 | | Load 0x0,0x4
0409 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040a 7801 |x | Jump 0x40c
040b e406 | | Load 0x2,0x6
040c e405 | | Load 0x2,0x5
040d e004 | | Load 0x0,0x4
040e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
040f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0410 c406 | | Store 0x2,0x6
0411 c403 | | Store 0x2,0x3
0412 e403 | | Load 0x2,0x3
0413 820d | | Call 0x1,0xd
0414 6805 |h | Jump_Zero 0x41a
0415 e5fa | | Load 0x2,-0x6
0416 e406 | | Load 0x2,0x6
0417 85fd | | Call 0x2,-0x3
0418 00d1 | | Pop_Control Pop_Count_1
0419 4501 |E | Exit_Suprogram New_Top_Offset 0x1
041a e5fa | | Load 0x2,-0x6
041b e403 | | Load 0x2,0x3
041c e405 | | Load 0x2,0x5
041d 0092 0458 | X| Action Push_String_Extended,0x458 ; "Could not get object"
041f 8016 | | Call 0x0,0x16
0420 800a | | Call 0x0,0xa
0421 00d1 | | Pop_Control Pop_Count_1
0422 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0423 TRAP_0400:
0423 e014 | | Load 0x0,0x14
0424 010f | | Execute Exception,Equal
0425 6803 |h | Jump_Zero 0x429
0426 4800 |H | Short_Literal 0x0
0427 a407 | | Store_Unchecked 0x2,0x7
0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0429 0100 | | Execute Exception,Raise
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0445 | E | .CONST 0x0445 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 e403 | | Load 0x2,0x3
0434 e015 | | Load 0x0,0x15
0435 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0436 c404 | | Store 0x2,0x4
0437 e5fc | | Load 0x2,-0x4
0438 e402 | | Load 0x2,0x2
0439 0219 | | Execute Heap_Access,All_Read
043a e404 | | Load 0x2,0x4
043b e015 | | Load 0x0,0x15
043c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
043d e402 | | Load 0x2,0x2
043e 0219 | | Execute Heap_Access,All_Read
043f e404 | | Load 0x2,0x4
0440 e015 | | Load 0x0,0x15
0441 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0442 e404 | | Load 0x2,0x4
0443 85fe | | Call 0x2,-0x2
0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0445 TRAP_0430:
0445 e014 | | Load 0x0,0x14
0446 010f | | Execute Exception,Equal
0447 6803 |h | Jump_Zero 0x44b
0448 4800 |H | Short_Literal 0x0
0449 a406 | | Store_Unchecked 0x2,0x6
044a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
044b 0100 | | Execute Exception,Raise
044c ; --------------------------------------------------------------------------------------
044c ; STRING TABLE
044c ; --------------------------------------------------------------------------------------
044c 001c | | .STRTAB 0x001c->0x045a ; "Could not get unit state for"
044d 0036 | 6 | .STRTAB 0x0036->0x0468 ; "Could not get target key for"
044e 0050 | P | .STRTAB 0x0050->0x0476 ; "Could not get tree for"
044f 0064 | d | .STRTAB 0x0064->0x0481 ; "Could not find unit "
0450 0076 | v | .STRTAB 0x0076->0x048b ; " in code view"
0451 0081 | | .STRTAB 0x0081->0x0491 ; "Could not get enclosing world for"
0452 00a0 | | .STRTAB 0x00a0->0x04a2 ; "is not in a view"
0453 00ae | | .STRTAB 0x00ae->0x04aa ; "Could not get enclosing object for"
0454 00ce | | .STRTAB 0x00ce->0x04bb ; "Could not get enclosing subsystem for"
0455 00f1 | | .STRTAB 0x00f1->0x04cd ; "Could not establish naming context for"
0456 0115 | | .STRTAB 0x0115->0x04e0 ; " because "
0457 011c | | .STRTAB 0x011c->0x04e5 ; "Could not open activity"
0458 0131 | 1 | .STRTAB 0x0131->0x04f0 ; "Could not get object"
0459 0143 | C | .STREND 0x0143->0x04fa
045a 436f 756c |Coul| .STRTAB_STRINGS
04fb 0000 0000 | | .BLANK 0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug Table
0500 ; --------------------------------------------------------------------------------------
0500 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc06c,0x0000,0x0001,0x0000
0506 0000 0000 | | .BLANK 0000[0xfa]