|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a70f4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0b88 | | .CONST 0x0b88 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0084 | | .CONST 0x0084 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0015 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0030 c224 | $ | Store 0x1,0x24
0031 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0033 c218 | | Store 0x1,0x18
0034 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0036 c219 | | Store 0x1,0x19
0037 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0039 c21a | | Store 0x1,0x1a
003a 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
003c c21b | | Store 0x1,0x1b
003d 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
003f c21c | | Store 0x1,0x1c
0040 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
0042 c21d | | Store 0x1,0x1d
0043 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
0045 c21e | | Store 0x1,0x1e
0046 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
0048 c21f | | Store 0x1,0x1f
0049 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
004b c220 | | Store 0x1,0x20
004c 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated
004e c221 | ! | Store 0x1,0x21
004f 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated
0051 c222 | " | Store 0x1,0x22
0052 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0054 c223 | # | Store 0x1,0x23
0055 00bf | | Action Accept_Activation
0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0057 00c7 | | Action Elaborate_Subprogram
0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0059 00c7 | | Action Elaborate_Subprogram
005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005b 00c7 | | Action Elaborate_Subprogram
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0061 00c7 | | Action Elaborate_Subprogram
0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0063 00c7 | | Action Elaborate_Subprogram
0064 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0065 00c7 | | Action Elaborate_Subprogram
0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0067 00c7 | | Action Elaborate_Subprogram
0068 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006f 00c7 | | Action Elaborate_Subprogram
0070 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0075 00c7 | | Action Elaborate_Subprogram
0076 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0077 00c7 | | Action Elaborate_Subprogram
0078 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007b 00c7 | | Action Elaborate_Subprogram
007c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007d 00c7 | | Action Elaborate_Subprogram
007e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007f 00c7 | | Action Elaborate_Subprogram
0080 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0081 00c7 | | Action Elaborate_Subprogram
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0083 00c7 | | Action Elaborate_Subprogram
0084 BODY_0008:
0084 00bc | | Action Signal_Activated
0085 00bb | | Action Signal_Completion
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 00db | | Load_Top At_Offset_3
008c e002 | | Load 0x0,0x2
008d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
008e e002 | | Load 0x0,0x2
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 00da | | Load_Top At_Offset_2
0091 8210 | | Call 0x1,0x10
0092 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0094 0092 0949 | I| Action Push_String_Extended,0x949 ; "$"
0096 e003 | | Load 0x0,0x3
0097 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0098 e004 | | Load 0x0,0x4
0099 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009a e004 | | Load 0x0,0x4
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 00d9 | | Load_Top At_Offset_1
009d 00d0 | | Action Swap_Control
009e 0260 | ` | Execute Discrete,In_Type
009f 7001 |p | Jump_Nonzero 0xa1
00a0 0801 | | Execute_Immediate Raise,0x1
00a1 6006 |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x0000c350}
00a2 e004 | | Load 0x0,0x4
00a3 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 0000 0000 | | .LITERAL {0x00000000, 0x0000c350}
00ac 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
00b4 8210 | | Call 0x1,0x10
00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b6 0000 0000 | | .XXX[0x2]
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 e002 | | Load 0x0,0x2
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd 4800 |H | Short_Literal 0x0
00be e5ff | | Load 0x2,-0x1
00bf e005 | | Load 0x0,0x5
00c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c2 0000 0000 | | .BLANK 0000[0x6]
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 e002 | | Load 0x0,0x2
00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cd 4802 |H | Short_Literal 0x2
00ce 0092 094a | J| Action Push_String_Extended,0x94a ; "------------------------------------------------------------"
00d0 e005 | | Load 0x0,0x5
00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d2 e002 | | Load 0x0,0x2
00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d4 4802 |H | Short_Literal 0x2
00d5 e5ff | | Load 0x2,-0x1
00d6 e005 | | Load 0x0,0x5
00d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d8 e002 | | Load 0x0,0x2
00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00da e005 | | Load 0x0,0x5
00db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e002 | | Load 0x0,0x2
00e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e5 4807 |H | Short_Literal 0x7
00e6 e5ff | | Load 0x2,-0x1
00e7 e005 | | Load 0x0,0x5
00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e9 e20d | | Load 0x1,0xd
00ea 0257 | W | Execute Discrete,Raise
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0100 | | .CONST 0x0100 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00f6 02c7 | | Declare_Variable Any
00f7 4801 |H | Short_Literal 0x1
00f8 e006 | | Load 0x0,0x6
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fb e5ff | | Load 0x2,-0x1
00fc e006 | | Load 0x0,0x6
00fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00ff a402 | | Store_Unchecked 0x2,0x2
0100 BODY_00f0:
0100 00d8 | | Load_Top At_Offset_0
0101 e006 | | Load 0x0,0x6
0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0103 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0104 6802 |h | Jump_Zero 0x107
0105 4800 |H | Short_Literal 0x0
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 4801 |H | Short_Literal 0x1
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0122 | " | .CONST 0x0122 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e006 | | Load 0x0,0x6
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0116 02c7 | | Declare_Variable Any
0117 4801 |H | Short_Literal 0x1
0118 e006 | | Load 0x0,0x6
0119 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b e5ff | | Load 0x2,-0x1
011c e006 | | Load 0x0,0x6
011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011f a402 | | Store_Unchecked 0x2,0x2
0120 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call
0122 BODY_0110:
0122 00d9 | | Load_Top At_Offset_1
0123 e006 | | Load 0x0,0x6
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0126 680a |h | Jump_Zero 0x131
0127 8403 | | Call 0x2,0x3
0128 4801 |H | Short_Literal 0x1
0129 e006 | | Load 0x0,0x6
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012c e5ff | | Load 0x2,-0x1
012d e006 | | Load 0x0,0x6
012e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0130 c402 | | Store 0x2,0x2
0131 00d9 | | Load_Top At_Offset_1
0132 e006 | | Load 0x0,0x6
0133 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0135 6801 |h | Jump_Zero 0x137
0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0137 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
0139 e5ff | | Load 0x2,-0x1
013a 01cc | | Execute Vector,Catenate
013b 0092 094c | L| Action Push_String_Extended,0x94c ; " already exists and it is not a Library?"
013d 01cc | | Execute Vector,Catenate
013e 8212 | | Call 0x1,0x12
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0152 | R | .CONST 0x0152 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e006 | | Load 0x0,0x6
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0146 02c7 | | Declare_Variable Any
0147 4801 |H | Short_Literal 0x1
0148 e006 | | Load 0x0,0x6
0149 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014b e5ff | | Load 0x2,-0x1
014c e006 | | Load 0x0,0x6
014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
014f a402 | | Store_Unchecked 0x2,0x2
0150 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call
0152 BODY_0140:
0152 00d9 | | Load_Top At_Offset_1
0153 e006 | | Load 0x0,0x6
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0156 680a |h | Jump_Zero 0x161
0157 8403 | | Call 0x2,0x3
0158 4801 |H | Short_Literal 0x1
0159 e006 | | Load 0x0,0x6
015a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015c e5ff | | Load 0x2,-0x1
015d e006 | | Load 0x0,0x6
015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0160 c402 | | Store 0x2,0x2
0161 00d9 | | Load_Top At_Offset_1
0162 e006 | | Load 0x0,0x6
0163 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0164 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0165 6801 |h | Jump_Zero 0x167
0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0167 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
0169 e5ff | | Load 0x2,-0x1
016a 01cc | | Execute Vector,Catenate
016b 0092 094c | L| Action Push_String_Extended,0x94c ; " already exists and it is not a Library?"
016d 01cc | | Execute Vector,Catenate
016e 8212 | | Call 0x1,0x12
016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0182 | | .CONST 0x0182 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e006 | | Load 0x0,0x6
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0176 02c7 | | Declare_Variable Any
0177 4801 |H | Short_Literal 0x1
0178 e006 | | Load 0x0,0x6
0179 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017b e5ff | | Load 0x2,-0x1
017c e006 | | Load 0x0,0x6
017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
017f a402 | | Store_Unchecked 0x2,0x2
0180 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call
0182 BODY_0170:
0182 00d9 | | Load_Top At_Offset_1
0183 e006 | | Load 0x0,0x6
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0186 680a |h | Jump_Zero 0x191
0187 8403 | | Call 0x2,0x3
0188 4801 |H | Short_Literal 0x1
0189 e006 | | Load 0x0,0x6
018a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018c e5ff | | Load 0x2,-0x1
018d e006 | | Load 0x0,0x6
018e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0190 c402 | | Store 0x2,0x2
0191 00d9 | | Load_Top At_Offset_1
0192 e006 | | Load 0x0,0x6
0193 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0194 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0195 6801 |h | Jump_Zero 0x197
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
0199 e5ff | | Load 0x2,-0x1
019a 01cc | | Execute Vector,Catenate
019b 0092 094d | M| Action Push_String_Extended,0x94d ; " already exists and it is not a World?"
019d 01cc | | Execute Vector,Catenate
019e 8212 | | Call 0x1,0x12
019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b2 | | .CONST 0x01b2 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e006 | | Load 0x0,0x6
01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a6 02c7 | | Declare_Variable Any
01a7 4801 |H | Short_Literal 0x1
01a8 e006 | | Load 0x0,0x6
01a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ab e5ff | | Load 0x2,-0x1
01ac e006 | | Load 0x0,0x6
01ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01af a402 | | Store_Unchecked 0x2,0x2
01b0 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
01b2 BODY_01a0:
01b2 00d9 | | Load_Top At_Offset_1
01b3 e006 | | Load 0x0,0x6
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01b6 680a |h | Jump_Zero 0x1c1
01b7 8403 | | Call 0x2,0x3
01b8 4801 |H | Short_Literal 0x1
01b9 e006 | | Load 0x0,0x6
01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bc e5ff | | Load 0x2,-0x1
01bd e006 | | Load 0x0,0x6
01be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01c0 c402 | | Store 0x2,0x2
01c1 00d9 | | Load_Top At_Offset_1
01c2 e006 | | Load 0x0,0x6
01c3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c5 6813 |h | Jump_Zero 0x1d9
01c6 00d9 | | Load_Top At_Offset_1
01c7 e006 | | Load 0x0,0x6
01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cb e007 | | Load 0x0,0x7
01cc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01cd 027f | | Execute Discrete,Equal
01ce 7009 |p | Jump_Nonzero 0x1d8
01cf 00d9 | | Load_Top At_Offset_1
01d0 e006 | | Load 0x0,0x6
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d4 e007 | | Load 0x0,0x7
01d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d6 027f | | Execute Discrete,Equal
01d7 6801 |h | Jump_Zero 0x1d9
01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d9 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
01db e5ff | | Load 0x2,-0x1
01dc 01cc | | Execute Vector,Catenate
01dd 0092 094e | N| Action Push_String_Extended,0x94e ; " already exists and it is not a Spec_Load Subsystem?"
01df 01cc | | Execute Vector,Catenate
01e0 8212 | | Call 0x1,0x12
01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0200 | | .CONST 0x0200 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e006 | | Load 0x0,0x6
01ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ef 00db | | Load_Top At_Offset_3
01f0 e006 | | Load 0x0,0x6
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f3 e006 | | Load 0x0,0x6
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f6 02c7 | | Declare_Variable Any
01f7 4801 |H | Short_Literal 0x1
01f8 e006 | | Load 0x0,0x6
01f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fb e5ff | | Load 0x2,-0x1
01fc e006 | | Load 0x0,0x6
01fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01ff a404 | | Store_Unchecked 0x2,0x4
0200 BODY_01e8:
0200 00d8 | | Load_Top At_Offset_0
0201 e006 | | Load 0x0,0x6
0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0203 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0204 6833 |h3 | Jump_Zero 0x238
0205 00d8 | | Load_Top At_Offset_0
0206 e006 | | Load 0x0,0x6
0207 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0208 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0209 6826 |h& | Jump_Zero 0x230
020a 00d8 | | Load_Top At_Offset_0
020b e006 | | Load 0x0,0x6
020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020d 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
020e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020f e007 | | Load 0x0,0x7
0210 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0211 027f | | Execute Discrete,Equal
0212 7012 |p | Jump_Nonzero 0x225
0213 00d8 | | Load_Top At_Offset_0
0214 e006 | | Load 0x0,0x6
0215 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0216 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0217 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0218 e007 | | Load 0x0,0x7
0219 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021a 027f | | Execute Discrete,Equal
021b 7009 |p | Jump_Nonzero 0x225
021c 00d8 | | Load_Top At_Offset_0
021d e006 | | Load 0x0,0x6
021e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0220 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0221 e007 | | Load 0x0,0x7
0222 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0223 027f | | Execute Discrete,Equal
0224 680b |h | Jump_Zero 0x230
0225 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0227 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0229 00ea | | Load_Encached Null_String_Cache
022a 4801 |H | Short_Literal 0x1
022b 4801 |H | Short_Literal 0x1
022c e5ff | | Load 0x2,-0x1
022d e008 | | Load 0x0,0x8
022e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
022f 780a |x | Jump 0x23a
0230 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0232 0092 0950 | P| Action Push_String_Extended,0x950 ; "<ALL_WORLDS>"
0234 e5ff | | Load 0x2,-0x1
0235 e003 | | Load 0x0,0x3
0236 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0237 7802 |x | Jump 0x23a
0238 00da | | Load_Top At_Offset_2
0239 8217 | | Call 0x1,0x17
023a 00d9 | | Load_Top At_Offset_1
023b 01db | | Execute Vector,Length
023c 0d08 | | Execute_Immediate Less,0x8
023d 7012 |p | Jump_Nonzero 0x250
023e 4801 |H | Short_Literal 0x1
023f 00da | | Load_Top At_Offset_2
0240 01dc | | Execute Vector,Last
0241 0af9 | | Execute_Immediate Plus,-0x7
0242 00d8 | | Load_Top At_Offset_0
0243 00e2 | | Load_Encached Integer_Cache
0244 0260 | ` | Execute Discrete,In_Type
0245 7001 |p | Jump_Nonzero 0x247
0246 0801 | | Execute_Immediate Raise,0x1
0247 00db | | Load_Top At_Offset_3
0248 01dc | | Execute Vector,Last
0249 e403 | | Load 0x2,0x3
024a 01cf | | Execute Vector,Slice_Read
024b 0092 0951 | Q| Action Push_String_Extended,0x951 ; "_WORKING"
024d e009 | | Load 0x0,0x9
024e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
024f 7008 |p | Jump_Nonzero 0x258
0250 0092 0952 | R| Action Push_String_Extended,0x952 ; "Combined_View name does not end in _Working? {"
0252 e5ff | | Load 0x2,-0x1
0253 01cc | | Execute Vector,Catenate
0254 0092 0953 | S| Action Push_String_Extended,0x953 ; "}"
0256 01cc | | Execute Vector,Catenate
0257 8212 | | Call 0x1,0x12
0258 00da | | Load_Top At_Offset_2
0259 0092 0954 | T| Action Push_String_Extended,0x954 ; ".Empty_Working"
025b 01cc | | Execute Vector,Catenate
025c 8213 | | Call 0x1,0x13
025d 700f |p | Jump_Nonzero 0x26d
025e 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0260 4800 |H | Short_Literal 0x0
0261 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0263 00ea | | Load_Encached Null_String_Cache
0264 e5fd | | Load 0x2,-0x3
0265 4801 |H | Short_Literal 0x1
0266 e5fe | | Load 0x2,-0x2
0267 4800 |H | Short_Literal 0x0
0268 0092 0955 | U| Action Push_String_Extended,0x955 ; "Empty"
026a e402 | | Load 0x2,0x2
026b e008 | | Load 0x0,0x8
026c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
026d 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
026f 4800 |H | Short_Literal 0x0
0270 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0272 00ea | | Load_Encached Null_String_Cache
0273 4801 |H | Short_Literal 0x1
0274 4800 |H | Short_Literal 0x0
0275 0092 0956 | V| Action Push_String_Extended,0x956 ; "<INHERIT_MODEL>"
0277 6040 |`@ | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x7fffffff}
0278 4801 |H | Short_Literal 0x1
0279 4800 |H | Short_Literal 0x0
027a 4800 |H | Short_Literal 0x0
027b 4800 |H | Short_Literal 0x0
027c 0092 0957 | W| Action Push_String_Extended,0x957 ; "<AUTO_GENERATE>"
027e 4800 |H | Short_Literal 0x0
027f 4800 |H | Short_Literal 0x0
0280 00ea | | Load_Encached Null_String_Cache
0281 00ea | | Load_Encached Null_String_Cache
0282 e403 | | Load 0x2,0x3
0283 01dd | | Execute Vector,First
0284 e403 | | Load 0x2,0x3
0285 01dc | | Execute Vector,Last
0286 0af8 | | Execute_Immediate Plus,-0x8
0287 00d8 | | Load_Top At_Offset_0
0288 00e2 | | Load_Encached Integer_Cache
0289 0260 | ` | Execute Discrete,In_Type
028a 7001 |p | Jump_Nonzero 0x28c
028b 0801 | | Execute_Immediate Raise,0x1
028c e403 | | Load 0x2,0x3
028d 01cf | | Execute Vector,Slice_Read
028e e402 | | Load 0x2,0x2
028f 0092 0954 | T| Action Push_String_Extended,0x954 ; ".Empty_Working"
0291 01cc | | Execute Vector,Catenate
0292 e008 | | Load 0x0,0x8
0293 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0294 4801 |H | Short_Literal 0x1
0295 e006 | | Load 0x0,0x6
0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0297 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0298 e5ff | | Load 0x2,-0x1
0299 e006 | | Load 0x0,0x6
029a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
029c c404 | | Store 0x2,0x4
029d 00d8 | | Load_Top At_Offset_0
029e e006 | | Load 0x0,0x6
029f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a1 680a |h | Jump_Zero 0x2ac
02a2 00d8 | | Load_Top At_Offset_0
02a3 e006 | | Load 0x0,0x6
02a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02a7 e007 | | Load 0x0,0x7
02a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a9 027f | | Execute Discrete,Equal
02aa 6801 |h | Jump_Zero 0x2ac
02ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ac 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
02ae e5ff | | Load 0x2,-0x1
02af 01cc | | Execute Vector,Catenate
02b0 0092 0958 | X| Action Push_String_Extended,0x958 ; " was created by us but is not a Combined_View?"
02b2 01cc | | Execute Vector,Catenate
02b3 8212 | | Call 0x1,0x12
02b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02d8 | | .CONST 0x02d8 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0004 | | .CONST 0x0004 ; Number of locals
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 e006 | | Load 0x0,0x6
02c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c7 00db | | Load_Top At_Offset_3
02c8 e006 | | Load 0x0,0x6
02c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02cb e006 | | Load 0x0,0x6
02cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ce 02c7 | | Declare_Variable Any
02cf 4801 |H | Short_Literal 0x1
02d0 e006 | | Load 0x0,0x6
02d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d3 e5ff | | Load 0x2,-0x1
02d4 e006 | | Load 0x0,0x6
02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02d7 a404 | | Store_Unchecked 0x2,0x4
02d8 BODY_02c0:
02d8 00d8 | | Load_Top At_Offset_0
02d9 e006 | | Load 0x0,0x6
02da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02db 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02dc 6833 |h3 | Jump_Zero 0x310
02dd 00d8 | | Load_Top At_Offset_0
02de e006 | | Load 0x0,0x6
02df 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e1 6826 |h& | Jump_Zero 0x308
02e2 00d8 | | Load_Top At_Offset_0
02e3 e006 | | Load 0x0,0x6
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e7 e007 | | Load 0x0,0x7
02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e9 027f | | Execute Discrete,Equal
02ea 7012 |p | Jump_Nonzero 0x2fd
02eb 00d8 | | Load_Top At_Offset_0
02ec e006 | | Load 0x0,0x6
02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ee 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f0 e007 | | Load 0x0,0x7
02f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02f2 027f | | Execute Discrete,Equal
02f3 7009 |p | Jump_Nonzero 0x2fd
02f4 00d8 | | Load_Top At_Offset_0
02f5 e006 | | Load 0x0,0x6
02f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f7 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f9 e007 | | Load 0x0,0x7
02fa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02fb 027f | | Execute Discrete,Equal
02fc 680b |h | Jump_Zero 0x308
02fd 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
02ff 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0301 00ea | | Load_Encached Null_String_Cache
0302 4801 |H | Short_Literal 0x1
0303 4801 |H | Short_Literal 0x1
0304 e5ff | | Load 0x2,-0x1
0305 e008 | | Load 0x0,0x8
0306 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0307 780a |x | Jump 0x312
0308 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
030a 0092 0950 | P| Action Push_String_Extended,0x950 ; "<ALL_WORLDS>"
030c e5ff | | Load 0x2,-0x1
030d e003 | | Load 0x0,0x3
030e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
030f 7802 |x | Jump 0x312
0310 00da | | Load_Top At_Offset_2
0311 8217 | | Call 0x1,0x17
0312 00d9 | | Load_Top At_Offset_1
0313 01db | | Execute Vector,Length
0314 0d08 | | Execute_Immediate Less,0x8
0315 7012 |p | Jump_Nonzero 0x328
0316 4801 |H | Short_Literal 0x1
0317 00da | | Load_Top At_Offset_2
0318 01dc | | Execute Vector,Last
0319 0af9 | | Execute_Immediate Plus,-0x7
031a 00d8 | | Load_Top At_Offset_0
031b 00e2 | | Load_Encached Integer_Cache
031c 0260 | ` | Execute Discrete,In_Type
031d 7001 |p | Jump_Nonzero 0x31f
031e 0801 | | Execute_Immediate Raise,0x1
031f 00db | | Load_Top At_Offset_3
0320 01dc | | Execute Vector,Last
0321 e403 | | Load 0x2,0x3
0322 01cf | | Execute Vector,Slice_Read
0323 0092 0951 | Q| Action Push_String_Extended,0x951 ; "_WORKING"
0325 e009 | | Load 0x0,0x9
0326 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0327 7008 |p | Jump_Nonzero 0x330
0328 0092 0959 | Y| Action Push_String_Extended,0x959 ; "Load_View name does not end in _Working? {"
032a e5ff | | Load 0x2,-0x1
032b 01cc | | Execute Vector,Catenate
032c 0092 0953 | S| Action Push_String_Extended,0x953 ; "}"
032e 01cc | | Execute Vector,Catenate
032f 8212 | | Call 0x1,0x12
0330 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0332 4800 |H | Short_Literal 0x0
0333 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0335 00ea | | Load_Encached Null_String_Cache
0336 e5fd | | Load 0x2,-0x3
0337 4801 |H | Short_Literal 0x1
0338 e5fe | | Load 0x2,-0x2
0339 4800 |H | Short_Literal 0x0
033a e403 | | Load 0x2,0x3
033b 01dd | | Execute Vector,First
033c e403 | | Load 0x2,0x3
033d 01dc | | Execute Vector,Last
033e 0af8 | | Execute_Immediate Plus,-0x8
033f 00d8 | | Load_Top At_Offset_0
0340 00e2 | | Load_Encached Integer_Cache
0341 0260 | ` | Execute Discrete,In_Type
0342 7001 |p | Jump_Nonzero 0x344
0343 0801 | | Execute_Immediate Raise,0x1
0344 e403 | | Load 0x2,0x3
0345 01cf | | Execute Vector,Slice_Read
0346 e402 | | Load 0x2,0x2
0347 e008 | | Load 0x0,0x8
0348 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0349 4801 |H | Short_Literal 0x1
034a e006 | | Load 0x0,0x6
034b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034d e5ff | | Load 0x2,-0x1
034e e006 | | Load 0x0,0x6
034f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0350 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0351 c404 | | Store 0x2,0x4
0352 00d8 | | Load_Top At_Offset_0
0353 e006 | | Load 0x0,0x6
0354 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0355 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0356 680a |h | Jump_Zero 0x361
0357 00d8 | | Load_Top At_Offset_0
0358 e006 | | Load 0x0,0x6
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
035b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
035c e007 | | Load 0x0,0x7
035d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
035e 027f | | Execute Discrete,Equal
035f 6801 |h | Jump_Zero 0x361
0360 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0361 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
0363 e5ff | | Load 0x2,-0x1
0364 01cc | | Execute Vector,Catenate
0365 0092 095a | Z| Action Push_String_Extended,0x95a ; " was created by us but is not a Load_View?"
0367 01cc | | Execute Vector,Catenate
0368 8212 | | Call 0x1,0x12
0369 4504 |E | Exit_Suprogram New_Top_Offset 0x4
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 038a | | .CONST 0x038a ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0005 | | .CONST 0x0005 ; Number of locals
0373 INIT_0370:
0373 00db | | Load_Top At_Offset_3
0374 e006 | | Load 0x0,0x6
0375 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0376 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0377 00db | | Load_Top At_Offset_3
0378 e006 | | Load 0x0,0x6
0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
037b e006 | | Load 0x0,0x6
037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037e 02c7 | | Declare_Variable Any
037f 4801 |H | Short_Literal 0x1
0380 e006 | | Load 0x0,0x6
0381 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0383 e5ff | | Load 0x2,-0x1
0384 e006 | | Load 0x0,0x6
0385 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0386 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0387 a404 | | Store_Unchecked 0x2,0x4
0388 029f 0833 | 3| Declare_Subprogram INIT_0830,For_Call
038a BODY_0370:
038a 00d9 | | Load_Top At_Offset_1
038b e006 | | Load 0x0,0x6
038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
038e 6832 |h2 | Jump_Zero 0x3c1
038f 00d9 | | Load_Top At_Offset_1
0390 e006 | | Load 0x0,0x6
0391 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0392 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0393 6826 |h& | Jump_Zero 0x3ba
0394 00d9 | | Load_Top At_Offset_1
0395 e006 | | Load 0x0,0x6
0396 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0397 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0398 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0399 e007 | | Load 0x0,0x7
039a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039b 027f | | Execute Discrete,Equal
039c 7012 |p | Jump_Nonzero 0x3af
039d 00d9 | | Load_Top At_Offset_1
039e e006 | | Load 0x0,0x6
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03a2 e007 | | Load 0x0,0x7
03a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03a4 027f | | Execute Discrete,Equal
03a5 7009 |p | Jump_Nonzero 0x3af
03a6 00d9 | | Load_Top At_Offset_1
03a7 e006 | | Load 0x0,0x6
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ab e007 | | Load 0x0,0x7
03ac 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ad 027f | | Execute Discrete,Equal
03ae 680b |h | Jump_Zero 0x3ba
03af 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
03b1 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
03b3 00ea | | Load_Encached Null_String_Cache
03b4 4801 |H | Short_Literal 0x1
03b5 4801 |H | Short_Literal 0x1
03b6 e5ff | | Load 0x2,-0x1
03b7 e008 | | Load 0x0,0x8
03b8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03b9 7807 |x | Jump 0x3c1
03ba 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
03bc 0092 0950 | P| Action Push_String_Extended,0x950 ; "<ALL_WORLDS>"
03be e5ff | | Load 0x2,-0x1
03bf e003 | | Load 0x0,0x3
03c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c1 4801 |H | Short_Literal 0x1
03c2 e006 | | Load 0x0,0x6
03c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c5 e5fe | | Load 0x2,-0x2
03c6 e006 | | Load 0x0,0x6
03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03c9 c404 | | Store 0x2,0x4
03ca 00d9 | | Load_Top At_Offset_1
03cb e006 | | Load 0x0,0x6
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
03ce 6808 |h | Jump_Zero 0x3d7
03cf 0092 095b | [| Action Push_String_Extended,0x95b ; "Can't create Code_View for nonexistent Load_View? {"
03d1 e5fe | | Load 0x2,-0x2
03d2 01cc | | Execute Vector,Catenate
03d3 0092 0953 | S| Action Push_String_Extended,0x953 ; "}"
03d5 01cc | | Execute Vector,Catenate
03d6 8212 | | Call 0x1,0x12
03d7 8405 | | Call 0x2,0x5
03d8 4801 |H | Short_Literal 0x1
03d9 e006 | | Load 0x0,0x6
03da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03dc e5ff | | Load 0x2,-0x1
03dd e006 | | Load 0x0,0x6
03de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03df 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03e0 c404 | | Store 0x2,0x4
03e1 00d9 | | Load_Top At_Offset_1
03e2 e006 | | Load 0x0,0x6
03e3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e5 680a |h | Jump_Zero 0x3f0
03e6 00d9 | | Load_Top At_Offset_1
03e7 e006 | | Load 0x0,0x6
03e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03eb e007 | | Load 0x0,0x7
03ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ed 027f | | Execute Discrete,Equal
03ee 6801 |h | Jump_Zero 0x3f0
03ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f0 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
03f2 e5ff | | Load 0x2,-0x1
03f3 01cc | | Execute Vector,Catenate
03f4 0092 095c | \| Action Push_String_Extended,0x95c ; " was created by us but is not a Code_View?"
03f6 01cc | | Execute Vector,Catenate
03f7 8212 | | Call 0x1,0x12
03f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f9 0000 0000 | | .BLANK 0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0418 | | .CONST 0x0418 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0004 | | .CONST 0x0004 ; Number of locals
0403 INIT_0400:
0403 00db | | Load_Top At_Offset_3
0404 e006 | | Load 0x0,0x6
0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0406 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0407 00db | | Load_Top At_Offset_3
0408 e006 | | Load 0x0,0x6
0409 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040b e006 | | Load 0x0,0x6
040c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040e 02c7 | | Declare_Variable Any
040f 4801 |H | Short_Literal 0x1
0410 e006 | | Load 0x0,0x6
0411 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0412 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0413 e5ff | | Load 0x2,-0x1
0414 e006 | | Load 0x0,0x6
0415 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0416 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0417 a404 | | Store_Unchecked 0x2,0x4
0418 BODY_0400:
0418 00d8 | | Load_Top At_Offset_0
0419 e006 | | Load 0x0,0x6
041a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
041c 6832 |h2 | Jump_Zero 0x44f
041d 00d8 | | Load_Top At_Offset_0
041e e006 | | Load 0x0,0x6
041f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0420 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0421 6826 |h& | Jump_Zero 0x448
0422 00d8 | | Load_Top At_Offset_0
0423 e006 | | Load 0x0,0x6
0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0425 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0426 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0427 e007 | | Load 0x0,0x7
0428 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0429 027f | | Execute Discrete,Equal
042a 7012 |p | Jump_Nonzero 0x43d
042b 00d8 | | Load_Top At_Offset_0
042c e006 | | Load 0x0,0x6
042d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
042f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0430 e007 | | Load 0x0,0x7
0431 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0432 027f | | Execute Discrete,Equal
0433 7009 |p | Jump_Nonzero 0x43d
0434 00d8 | | Load_Top At_Offset_0
0435 e006 | | Load 0x0,0x6
0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0437 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0438 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0439 e007 | | Load 0x0,0x7
043a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
043b 027f | | Execute Discrete,Equal
043c 680b |h | Jump_Zero 0x448
043d 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
043f 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0441 00ea | | Load_Encached Null_String_Cache
0442 4801 |H | Short_Literal 0x1
0443 4801 |H | Short_Literal 0x1
0444 e5ff | | Load 0x2,-0x1
0445 e008 | | Load 0x0,0x8
0446 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0447 7807 |x | Jump 0x44f
0448 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
044a 0092 0950 | P| Action Push_String_Extended,0x950 ; "<ALL_WORLDS>"
044c e5ff | | Load 0x2,-0x1
044d e003 | | Load 0x0,0x3
044e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
044f 4801 |H | Short_Literal 0x1
0450 e006 | | Load 0x0,0x6
0451 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0452 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0453 e5fe | | Load 0x2,-0x2
0454 e006 | | Load 0x0,0x6
0455 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0456 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0457 c404 | | Store 0x2,0x4
0458 00d8 | | Load_Top At_Offset_0
0459 e006 | | Load 0x0,0x6
045a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
045c 6808 |h | Jump_Zero 0x465
045d 0092 095d | ]| Action Push_String_Extended,0x95d ; "Can't create Spec_View for nonexistent Load_View? {"
045f e5fe | | Load 0x2,-0x2
0460 01cc | | Execute Vector,Catenate
0461 0092 0953 | S| Action Push_String_Extended,0x953 ; "}"
0463 01cc | | Execute Vector,Catenate
0464 8212 | | Call 0x1,0x12
0465 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0467 4800 |H | Short_Literal 0x0
0468 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
046a 00ea | | Load_Encached Null_String_Cache
046b 4801 |H | Short_Literal 0x1
046c 4800 |H | Short_Literal 0x0
046d 0092 0956 | V| Action Push_String_Extended,0x956 ; "<INHERIT_MODEL>"
046f 6040 |`@ | Indirect_Literal Discrete,0x4b0,{0x00000000, 0x7fffffff}
0470 4800 |H | Short_Literal 0x0
0471 4800 |H | Short_Literal 0x0
0472 4801 |H | Short_Literal 0x1
0473 4800 |H | Short_Literal 0x0
0474 0092 0957 | W| Action Push_String_Extended,0x957 ; "<AUTO_GENERATE>"
0476 4800 |H | Short_Literal 0x0
0477 4801 |H | Short_Literal 0x1
0478 0092 095e | ^| Action Push_String_Extended,0x95e ; "<INHERIT_IMPORTS>"
047a 00ea | | Load_Encached Null_String_Cache
047b e403 | | Load 0x2,0x3
047c e5fe | | Load 0x2,-0x2
047d e008 | | Load 0x0,0x8
047e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
047f e5fd | | Load 0x2,-0x3
0480 01db | | Execute Vector,Length
0481 680c |h | Jump_Zero 0x48e
0482 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0484 0092 095f | _| Action Push_String_Extended,0x95f ; "<DIRECTORIES>"
0486 e5ff | | Load 0x2,-0x1
0487 0092 0960 | `| Action Push_String_Extended,0x960 ; ".Units."
0489 01cc | | Execute Vector,Catenate
048a e5fd | | Load 0x2,-0x3
048b 01cc | | Execute Vector,Catenate
048c e003 | | Load 0x0,0x3
048d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
048e 4801 |H | Short_Literal 0x1
048f e006 | | Load 0x0,0x6
0490 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0491 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0492 e5ff | | Load 0x2,-0x1
0493 e006 | | Load 0x0,0x6
0494 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0495 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0496 c404 | | Store 0x2,0x4
0497 00d8 | | Load_Top At_Offset_0
0498 e006 | | Load 0x0,0x6
0499 1b12 | | Execute Package,Field_Read,Field_Number 0x12
049a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
049b 680a |h | Jump_Zero 0x4a6
049c 00d8 | | Load_Top At_Offset_0
049d e006 | | Load 0x0,0x6
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
04a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04a1 e007 | | Load 0x0,0x7
04a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04a3 027f | | Execute Discrete,Equal
04a4 6801 |h | Jump_Zero 0x4a6
04a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04a6 0092 094b | K| Action Push_String_Extended,0x94b ; "Object "
04a8 e5ff | | Load 0x2,-0x1
04a9 01cc | | Execute Vector,Catenate
04aa 0092 0961 | a| Action Push_String_Extended,0x961 ; " was created by us but is not a Spec_View?"
04ac 01cc | | Execute Vector,Catenate
04ad 8212 | | Call 0x1,0x12
04ae 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04af 0000 | | .XXX[0x1]
04b0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04d1 | | .CONST 0x04d1 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0003 | | .CONST 0x0003 ; Number of locals
04bb INIT_04b8:
04bb e006 | | Load 0x0,0x6
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04be 02c7 | | Declare_Variable Any
04bf 00d8 | | Load_Top At_Offset_0
04c0 1c00 | | Execute_Immediate Run_Utility,0x0
04c1 e006 | | Load 0x0,0x6
04c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04c4 02c7 | | Declare_Variable Any
04c5 4801 |H | Short_Literal 0x1
04c6 e006 | | Load 0x0,0x6
04c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c9 e5ff | | Load 0x2,-0x1
04ca 0092 0962 | b| Action Push_String_Extended,0x962 ; ".??'s(Source,Installed)"
04cc 01cc | | Execute Vector,Catenate
04cd e006 | | Load 0x0,0x6
04ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04cf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04d0 a403 | | Store_Unchecked 0x2,0x3
04d1 BODY_04b8:
04d1 00d8 | | Load_Top At_Offset_0
04d2 e006 | | Load 0x0,0x6
04d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
04d5 681d |h | Jump_Zero 0x4f3
04d6 00cf | | Action Mark_Auxiliary
04d7 7813 |x | Jump 0x4eb
04d8 00d9 | | Load_Top At_Offset_1
04d9 e006 | | Load 0x0,0x6
04da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04db 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04dc c402 | | Store 0x2,0x2
04dd 00da | | Load_Top At_Offset_2
04de e006 | | Load 0x0,0x6
04df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04e1 0092 0963 | c| Action Push_String_Extended,0x963 ; " is not Coded."
04e3 01cc | | Execute Vector,Catenate
04e4 8212 | | Call 0x1,0x12
04e5 00d9 | | Load_Top At_Offset_1
04e6 e006 | | Load 0x0,0x6
04e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04e9 c403 | | Store 0x2,0x3
04ea 00c9 | | Action Pop_Auxiliary_Loop
04eb 00d9 | | Load_Top At_Offset_1
04ec e006 | | Load 0x0,0x6
04ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ee 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04ef 6fe8 |o | Jump_Zero 0x4d8
04f0 00ce | | Action Pop_Auxiliary
04f1 e20d | | Load 0x1,0xd
04f2 0257 | W | Execute Discrete,Raise
04f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f4 0000 0000 | | .BLANK 0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0513 | | .CONST 0x0513 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0004 | | .CONST 0x0004 ; Number of locals
04fb INIT_04f8:
04fb 00da | | Load_Top At_Offset_2
04fc 0092 0964 | d| Action Push_String_Extended,0x964 ; ".@.??"
04fe 01cc | | Execute Vector,Catenate
04ff 0007 | | Action Break_Optional
0500 e006 | | Load 0x0,0x6
0501 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0502 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0503 02c7 | | Declare_Variable Any
0504 00d8 | | Load_Top At_Offset_0
0505 1c00 | | Execute_Immediate Run_Utility,0x0
0506 e006 | | Load 0x0,0x6
0507 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0508 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0509 02c7 | | Declare_Variable Any
050a 4801 |H | Short_Literal 0x1
050b e006 | | Load 0x0,0x6
050c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
050d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
050e e402 | | Load 0x2,0x2
050f e006 | | Load 0x0,0x6
0510 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0511 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0512 a404 | | Store_Unchecked 0x2,0x4
0513 BODY_04f8:
0513 00d8 | | Load_Top At_Offset_0
0514 e006 | | Load 0x0,0x6
0515 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0516 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0517 6801 |h | Jump_Zero 0x519
0518 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0519 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
051b 0092 0950 | P| Action Push_String_Extended,0x950 ; "<ALL_WORLDS>"
051d e402 | | Load 0x2,0x2
051e e003 | | Load 0x0,0x3
051f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0520 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0521 0000 0000 | | .BLANK 0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0530 | 0 | .CONST 0x0530 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0002 | | .CONST 0x0002 ; Number of locals
052b INIT_0528:
052b e00a | | Load 0x0,0xa
052c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052d 02c7 | | Declare_Variable Any
052e 00d8 | | Load_Top At_Offset_0
052f 1c00 | | Execute_Immediate Run_Utility,0x0
0530 BODY_0528:
0530 00d8 | | Load_Top At_Offset_0
0531 00ea | | Load_Encached Null_String_Cache
0532 e5ff | | Load 0x2,-0x1
0533 0092 0965 | e| Action Push_String_Extended,0x965 ; ".Exports.Commands"
0535 01cc | | Execute Vector,Catenate
0536 4801 |H | Short_Literal 0x1
0537 e00a | | Load 0x0,0xa
0538 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0539 c402 | | Store 0x2,0x2
053a 0092 0966 | f| Action Push_String_Extended,0x966 ; "[Commands,Environment].?'Spec"
053c 00d9 | | Load_Top At_Offset_1
053d e00a | | Load 0x0,0xa
053e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
053f 00d8 | | Load_Top At_Offset_0
0540 e00a | | Load 0x0,0xa
0541 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0542 c402 | | Store 0x2,0x2
0543 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0567 | g | .CONST 0x0567 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0007 | | .CONST 0x0007 ; Number of locals
054b INIT_0548:
054b e00a | | Load 0x0,0xa
054c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054d 02c7 | | Declare_Variable Any
054e 00d8 | | Load_Top At_Offset_0
054f 1c00 | | Execute_Immediate Run_Utility,0x0
0550 e00b | | Load 0x0,0xb
0551 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0552 02c7 | | Declare_Variable Any
0553 00d8 | | Load_Top At_Offset_0
0554 1c00 | | Execute_Immediate Run_Utility,0x0
0555 e006 | | Load 0x0,0x6
0556 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0558 02c7 | | Declare_Variable Any
0559 4801 |H | Short_Literal 0x1
055a e006 | | Load 0x0,0x6
055b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
055c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
055d e5fe | | Load 0x2,-0x2
055e e006 | | Load 0x0,0x6
055f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0560 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0561 a404 | | Store_Unchecked 0x2,0x4
0562 e00b | | Load 0x0,0xb
0563 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0564 00e1 | | Load_Encached Boolean_Cache
0565 029f 084b | K| Declare_Subprogram INIT_0848,For_Call
0567 BODY_0548:
0567 e00b | | Load 0x0,0xb
0568 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0569 e403 | | Load 0x2,0x3
056a 0120 | | Execute Any,Is_Value
056b 6803 |h | Jump_Zero 0x56f
056c e00b | | Load 0x0,0xb
056d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056e 7801 |x | Jump 0x570
056f e403 | | Load 0x2,0x3
0570 e404 | | Load 0x2,0x4
0571 e006 | | Load 0x0,0x6
0572 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0573 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0574 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0575 c403 | | Store 0x2,0x3
0576 005b | [ | Store_Top Discrete,At_Offset_3
0577 e00b | | Load 0x0,0xb
0578 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0579 00e1 | | Load_Encached Boolean_Cache
057a 6055 |`U | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x00004000}
057b e00c | | Load 0x0,0xc
057c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057d e403 | | Load 0x2,0x3
057e e00b | | Load 0x0,0xb
057f 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0580 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0581 005b | [ | Store_Top Discrete,At_Offset_3
0582 005b | [ | Store_Top Discrete,At_Offset_3
0583 00db | | Load_Top At_Offset_3
0584 e006 | | Load 0x0,0x6
0585 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0586 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0587 7002 |p | Jump_Nonzero 0x58a
0588 00da | | Load_Top At_Offset_2
0589 6802 |h | Jump_Zero 0x58c
058a e20d | | Load 0x1,0xd
058b 0257 | W | Execute Discrete,Raise
058c 00d9 | | Load_Top At_Offset_1
058d 680e |h | Jump_Zero 0x59c
058e 0092 0967 | g| Action Push_String_Extended,0x967 ; "<Verbose> Raise_Error"
0590 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0592 0092 0968 | h| Action Push_String_Extended,0x968 ; "<TOMORROW>"
0594 4803 |H | Short_Literal 0x3
0595 4800 |H | Short_Literal 0x0
0596 4801 |H | Short_Literal 0x1
0597 4801 |H | Short_Literal 0x1
0598 00ea | | Load_Encached Null_String_Cache
0599 e5fe | | Load 0x2,-0x2
059a e008 | | Load 0x0,0x8
059b 180d | | Execute Package,Field_Execute,Field_Number 0xd
059c 8407 | | Call 0x2,0x7
059d 4800 |H | Short_Literal 0x0
059e 4801 |H | Short_Literal 0x1
059f 4802 |H | Short_Literal 0x2
05a0 e00d | | Load 0x0,0xd
05a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05a2 e00d | | Load 0x0,0xd
05a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05a4 e402 | | Load 0x2,0x2
05a5 e00a | | Load 0x0,0xa
05a6 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05a7 0092 0969 | i| Action Push_String_Extended,0x969 ; " ||| "
05a9 e402 | | Load 0x2,0x2
05aa e00a | | Load 0x0,0xa
05ab 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05ac e004 | | Load 0x0,0x4
05ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05ae e004 | | Load 0x0,0x4
05af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05b0 e402 | | Load 0x2,0x2
05b1 e00a | | Load 0x0,0xa
05b2 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05b3 0092 0969 | i| Action Push_String_Extended,0x969 ; " ||| "
05b5 e402 | | Load 0x2,0x2
05b6 e00a | | Load 0x0,0xa
05b7 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05b8 e5ff | | Load 0x2,-0x1
05b9 e402 | | Load 0x2,0x2
05ba e00a | | Load 0x0,0xa
05bb 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
05bc 4801 |H | Short_Literal 0x1
05bd e402 | | Load 0x2,0x2
05be e00a | | Load 0x0,0xa
05bf 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
05c0 e402 | | Load 0x2,0x2
05c1 e00a | | Load 0x0,0xa
05c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05c3 c402 | | Store 0x2,0x2
05c4 00d9 | | Load_Top At_Offset_1
05c5 6808 |h | Jump_Zero 0x5ce
05c6 0092 0967 | g| Action Push_String_Extended,0x967 ; "<Verbose> Raise_Error"
05c8 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
05ca 00ea | | Load_Encached Null_String_Cache
05cb e5fe | | Load 0x2,-0x2
05cc e008 | | Load 0x0,0x8
05cd 180e | | Execute Package,Field_Execute,Field_Number 0xe
05ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05cf 0000 | | .XXX[0x1]
05d0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05d4 0000 0000 | | .BLANK 0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 0603 | | .CONST 0x0603 ; Address of begin
05d9 0686 | | .CONST 0x0686 ; Address of exception handler
05da 000b | | .CONST 0x000b ; Number of locals
05db INIT_05d8:
05db e002 | | Load 0x0,0x2
05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05dd 02c7 | | Declare_Variable Any
05de e002 | | Load 0x0,0x2
05df 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e0 a402 | | Store_Unchecked 0x2,0x2
05e1 e00a | | Load 0x0,0xa
05e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e3 02c7 | | Declare_Variable Any
05e4 00d8 | | Load_Top At_Offset_0
05e5 1c00 | | Execute_Immediate Run_Utility,0x0
05e6 e00b | | Load 0x0,0xb
05e7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05e9 02c7 | | Declare_Variable Any
05ea 00d8 | | Load_Top At_Offset_0
05eb 1c00 | | Execute_Immediate Run_Utility,0x0
05ec e00b | | Load 0x0,0xb
05ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ee e00b | | Load 0x0,0xb
05ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f0 e00b | | Load 0x0,0xb
05f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05f3 e00b | | Load 0x0,0xb
05f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05f5 02ff | | Declare_Variable Variant_Record
05f6 00d8 | | Load_Top At_Offset_0
05f7 1c00 | | Execute_Immediate Run_Utility,0x0
05f8 e00b | | Load 0x0,0xb
05f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05fa 02c7 | | Declare_Variable Any
05fb 00d8 | | Load_Top At_Offset_0
05fc 1c00 | | Execute_Immediate Run_Utility,0x0
05fd 0007 | | Action Break_Optional
05fe 0007 | | Action Break_Optional
05ff 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
0601 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
0603 BODY_05d8:
0603 840b | | Call 0x2,0xb
0604 e00b | | Load 0x0,0xb
0605 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0606 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0607 e404 | | Load 0x2,0x4
0608 67c7 |g | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x00004000}
0609 e00c | | Load 0x0,0xc
060a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060b e00e | | Load 0x0,0xe
060c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060d e00f | | Load 0x0,0xf
060e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060f 4801 |H | Short_Literal 0x1
0610 4800 |H | Short_Literal 0x0
0611 e00e | | Load 0x0,0xe
0612 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0613 e00b | | Load 0x0,0xb
0614 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0615 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0616 e5ff | | Load 0x2,-0x1
0617 e00b | | Load 0x0,0xb
0618 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0619 181b | | Execute Package,Field_Execute,Field_Number 0x1b
061a c404 | | Store 0x2,0x4
061b c407 | | Store 0x2,0x7
061c e407 | | Load 0x2,0x7
061d 0f03 | | Execute_Immediate Equal,0x3
061e 6805 |h | Jump_Zero 0x624
061f e403 | | Load 0x2,0x3
0620 e00a | | Load 0x0,0xa
0621 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0622 c403 | | Store 0x2,0x3
0623 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0624 e407 | | Load 0x2,0x7
0625 680f |h | Jump_Zero 0x635
0626 e407 | | Load 0x2,0x7
0627 e00b | | Load 0x0,0xb
0628 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0629 1b0f | | Execute Package,Field_Read,Field_Number 0xf
062a 011c | | Execute Any,Convert_Unchecked
062b 1c01 | | Execute_Immediate Run_Utility,0x1
062c 0092 096a | j| Action Push_String_Extended,0x96a ; " returned resolving "
062e 01cc | | Execute Vector,Catenate
062f e5ff | | Load 0x2,-0x1
0630 01cc | | Execute Vector,Catenate
0631 8212 | | Call 0x1,0x12
0632 e002 | | Load 0x0,0x2
0633 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0634 0257 | W | Execute Discrete,Raise
0635 00cf | | Action Mark_Auxiliary
0636 7844 |xD | Jump 0x67b
0637 e00b | | Load 0x0,0xb
0638 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0639 e408 | | Load 0x2,0x8
063a 6795 |g | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x00004000}
063b e00c | | Load 0x0,0xc
063c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
063d e404 | | Load 0x2,0x4
063e e00b | | Load 0x0,0xb
063f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0640 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0641 00d1 | | Pop_Control Pop_Count_1
0642 c405 | | Store 0x2,0x5
0643 e00b | | Load 0x0,0xb
0644 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0645 e409 | | Load 0x2,0x9
0646 0120 | | Execute Any,Is_Value
0647 6803 |h | Jump_Zero 0x64b
0648 e00b | | Load 0x0,0xb
0649 1b0f | | Execute Package,Field_Read,Field_Number 0xf
064a 7801 |x | Jump 0x64c
064b e409 | | Load 0x2,0x9
064c e404 | | Load 0x2,0x4
064d e00b | | Load 0x0,0xb
064e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
064f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0650 c409 | | Store 0x2,0x9
0651 c406 | | Store 0x2,0x6
0652 e405 | | Load 0x2,0x5
0653 7002 |p | Jump_Nonzero 0x656
0654 e406 | | Load 0x2,0x6
0655 680e |h | Jump_Zero 0x664
0656 e002 | | Load 0x0,0x2
0657 180e | | Execute Package,Field_Execute,Field_Number 0xe
0658 4807 |H | Short_Literal 0x7
0659 e405 | | Load 0x2,0x5
065a e00b | | Load 0x0,0xb
065b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065c 011c | | Execute Any,Convert_Unchecked
065d 1c01 | | Execute_Immediate Run_Utility,0x1
065e 0092 096b | k| Action Push_String_Extended,0x96b ; " returned getting default version for object"
0660 01cc | | Execute Vector,Catenate
0661 e005 | | Load 0x0,0x5
0662 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0663 7811 |x | Jump 0x675
0664 e404 | | Load 0x2,0x4
0665 840a | | Call 0x2,0xa
0666 700e |p | Jump_Nonzero 0x675
0667 00db | | Load_Top At_Offset_3
0668 e00b | | Load 0x0,0xb
0669 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
066a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
066b 0092 096c | l| Action Push_String_Extended,0x96c ; " => "
066d 01cc | | Execute Vector,Catenate
066e e408 | | Load 0x2,0x8
066f e010 | | Load 0x0,0x10
0670 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0671 01cc | | Execute Vector,Catenate
0672 e403 | | Load 0x2,0x3
0673 e00a | | Load 0x0,0xa
0674 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0675 e404 | | Load 0x2,0x4
0676 e00b | | Load 0x0,0xb
0677 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0678 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0679 c404 | | Store 0x2,0x4
067a 00c9 | | Action Pop_Auxiliary_Loop
067b e404 | | Load 0x2,0x4
067c e00b | | Load 0x0,0xb
067d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
067e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
067f 6fb7 |o | Jump_Zero 0x637
0680 00ce | | Action Pop_Auxiliary
0681 e403 | | Load 0x2,0x3
0682 e00a | | Load 0x0,0xa
0683 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0684 c403 | | Store 0x2,0x3
0685 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0686 TRAP_05d8:
0686 0007 | | Action Break_Optional
0687 e002 | | Load 0x0,0x2
0688 180e | | Execute Package,Field_Execute,Field_Number 0xe
0689 4808 |H | Short_Literal 0x8
068a 0092 096d | m| Action Push_String_Extended,0x96d ; "Save_Acls: "
068c 4801 |H | Short_Literal 0x1
068d 4801 |H | Short_Literal 0x1
068e e011 | | Load 0x0,0x11
068f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0690 01cc | | Execute Vector,Catenate
0691 e005 | | Load 0x0,0x5
0692 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0693 e403 | | Load 0x2,0x3
0694 e00a | | Load 0x0,0xa
0695 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0696 6804 |h | Jump_Zero 0x69b
0697 e403 | | Load 0x2,0x3
0698 e00a | | Load 0x0,0xa
0699 181b | | Execute Package,Field_Execute,Field_Number 0x1b
069a c403 | | Store 0x2,0x3
069b 00d8 | | Load_Top At_Offset_0
069c 0101 | | Execute Exception,Reraise
069d 0000 0000 | | .XXX[0x3]
069f 0000 | |
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06ac | | .CONST 0x06ac ; Address of begin
06a1 06c1 | | .CONST 0x06c1 ; Address of exception handler
06a2 0004 | | .CONST 0x0004 ; Number of locals
06a3 INIT_06a0:
06a3 e00a | | Load 0x0,0xa
06a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a5 02c7 | | Declare_Variable Any
06a6 00d8 | | Load_Top At_Offset_0
06a7 1c00 | | Execute_Immediate Run_Utility,0x0
06a8 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call
06aa 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
06ac BODY_06a0:
06ac 00da | | Load_Top At_Offset_2
06ad 00ea | | Load_Encached Null_String_Cache
06ae e5ff | | Load 0x2,-0x1
06af 4800 |H | Short_Literal 0x0
06b0 e00a | | Load 0x0,0xa
06b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06b2 c402 | | Store 0x2,0x2
06b3 00cf | | Action Mark_Auxiliary
06b4 7802 |x | Jump 0x6b7
06b5 8404 | | Call 0x2,0x4
06b6 00c9 | | Action Pop_Auxiliary_Loop
06b7 00db | | Load_Top At_Offset_3
06b8 e00a | | Load 0x0,0xa
06b9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06ba 6ffa |o | Jump_Zero 0x6b5
06bb 00ce | | Action Pop_Auxiliary
06bc 00da | | Load_Top At_Offset_2
06bd e00a | | Load 0x0,0xa
06be 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06bf c402 | | Store 0x2,0x2
06c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06c1 TRAP_06a0:
06c1 0007 | | Action Break_Optional
06c2 e002 | | Load 0x0,0x2
06c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c4 4808 |H | Short_Literal 0x8
06c5 0092 096e | n| Action Push_String_Extended,0x96e ; "Restore_Acls: "
06c7 4801 |H | Short_Literal 0x1
06c8 4801 |H | Short_Literal 0x1
06c9 e011 | | Load 0x0,0x11
06ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06cb 01cc | | Execute Vector,Catenate
06cc e005 | | Load 0x0,0x5
06cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ce 00db | | Load_Top At_Offset_3
06cf e00a | | Load 0x0,0xa
06d0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06d1 6804 |h | Jump_Zero 0x6d6
06d2 00db | | Load_Top At_Offset_3
06d3 e00a | | Load 0x0,0xa
06d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06d5 c402 | | Store 0x2,0x2
06d6 00d8 | | Load_Top At_Offset_0
06d7 0101 | | Execute Exception,Reraise
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e8 | | .CONST 0x06e8 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0002 | | .CONST 0x0002 ; Number of locals
06db INIT_06d8:
06db 4800 |H | Short_Literal 0x0
06dc 0093 092b | +| push_full_address INIT_0928
06de 00f5 | | Load_Encached Unused21
06df 037d | } | Declare_Type Task,Defined
06e0 036f | o | Declare_Variable Task
06e1 e5fd | | Load 0x2,-0x3
06e2 e5fe | | Load 0x2,-0x2
06e3 e5ff | | Load 0x2,-0x1
06e4 e012 | | Load 0x0,0x12
06e5 4804 |H | Short_Literal 0x4
06e6 e402 | | Load 0x2,0x2
06e7 020e | | Execute Module,Augment_Imports
06e8 BODY_06d8:
06e8 00be | | Action Activate_Tasks
06e9 0008 | | Action Idle
06ea 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06eb 0000 0000 | | .BLANK 0000[0x5]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 0703 | | .CONST 0x0703 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0002 | | .CONST 0x0002 ; Number of locals
06f3 INIT_06f0:
06f3 4800 |H | Short_Literal 0x0
06f4 0093 091b | | push_full_address INIT_0918
06f6 00f5 | | Load_Encached Unused21
06f7 037d | } | Declare_Type Task,Defined
06f8 036f | o | Declare_Variable Task
06f9 e5fa | | Load 0x2,-0x6
06fa e5fb | | Load 0x2,-0x5
06fb e5fc | | Load 0x2,-0x4
06fc e5fd | | Load 0x2,-0x3
06fd e5fe | | Load 0x2,-0x2
06fe e5ff | | Load 0x2,-0x1
06ff e012 | | Load 0x0,0x12
0700 4807 |H | Short_Literal 0x7
0701 e402 | | Load 0x2,0x2
0702 020e | | Execute Module,Augment_Imports
0703 BODY_06f0:
0703 00be | | Action Activate_Tasks
0704 0008 | | Action Idle
0705 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0706 0000 0000 | | .XXX[0x2]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 071b | | .CONST 0x071b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b 4800 |H | Short_Literal 0x0
070c 0093 090b | | push_full_address INIT_0908
070e 00f5 | | Load_Encached Unused21
070f 037d | } | Declare_Type Task,Defined
0710 036f | o | Declare_Variable Task
0711 e5fa | | Load 0x2,-0x6
0712 e5fb | | Load 0x2,-0x5
0713 e5fc | | Load 0x2,-0x4
0714 e5fd | | Load 0x2,-0x3
0715 e5fe | | Load 0x2,-0x2
0716 e5ff | | Load 0x2,-0x1
0717 e008 | | Load 0x0,0x8
0718 4807 |H | Short_Literal 0x7
0719 e402 | | Load 0x2,0x2
071a 020e | | Execute Module,Augment_Imports
071b BODY_0708:
071b 00be | | Action Activate_Tasks
071c 0008 | | Action Idle
071d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
071e 0000 0000 | | .XXX[0x2]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0727 | ' | .CONST 0x0727 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0002 | | .CONST 0x0002 ; Number of locals
0723 INIT_0720:
0723 e5ff | | Load 0x2,-0x1
0724 e006 | | Load 0x0,0x6
0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0726 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0727 BODY_0720:
0727 e5ff | | Load 0x2,-0x1
0728 0092 096f | o| Action Push_String_Extended,0x96f ; "!"
072a 01df | | Execute Vector,Equal
072b 7003 |p | Jump_Nonzero 0x72f
072c e5ff | | Load 0x2,-0x1
072d 01db | | Execute Vector,Length
072e 7008 |p | Jump_Nonzero 0x737
072f 0092 0970 | p| Action Push_String_Extended,0x970 ; "Directory {"
0731 e5ff | | Load 0x2,-0x1
0732 01cc | | Execute Vector,Catenate
0733 0092 0971 | q| Action Push_String_Extended,0x971 ; "} does not exist?"
0735 01cc | | Execute Vector,Catenate
0736 8212 | | Call 0x1,0x12
0737 00d8 | | Load_Top At_Offset_0
0738 8214 | | Call 0x1,0x14
0739 4801 |H | Short_Literal 0x1
073a e006 | | Load 0x0,0x6
073b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
073c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
073d 00da | | Load_Top At_Offset_2
073e e006 | | Load 0x0,0x6
073f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0740 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0741 c402 | | Store 0x2,0x2
0742 e402 | | Load 0x2,0x2
0743 e006 | | Load 0x0,0x6
0744 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0745 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0746 6808 |h | Jump_Zero 0x74f
0747 0092 0972 | r| Action Push_String_Extended,0x972 ; "Created Prefix for "
0749 00d9 | | Load_Top At_Offset_1
074a 01cc | | Execute Vector,Catenate
074b 0092 0973 | s| Action Push_String_Extended,0x973 ; " but it doesn't exist?"
074d 01cc | | Execute Vector,Catenate
074e 8212 | | Call 0x1,0x12
074f 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0751 0092 0974 | t| Action Push_String_Extended,0x974 ; "!Model.R1000"
0753 4800 |H | Short_Literal 0x0
0754 4801 |H | Short_Literal 0x1
0755 e5ff | | Load 0x2,-0x1
0756 e003 | | Load 0x0,0x3
0757 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0758 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0759 0000 0000 | | .BLANK 0000[0x7]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0767 | g | .CONST 0x0767 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0002 | | .CONST 0x0002 ; Number of locals
0763 INIT_0760:
0763 e5ff | | Load 0x2,-0x1
0764 e006 | | Load 0x0,0x6
0765 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0766 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0767 BODY_0760:
0767 e5ff | | Load 0x2,-0x1
0768 0092 096f | o| Action Push_String_Extended,0x96f ; "!"
076a 01df | | Execute Vector,Equal
076b 7003 |p | Jump_Nonzero 0x76f
076c e5ff | | Load 0x2,-0x1
076d 01db | | Execute Vector,Length
076e 7008 |p | Jump_Nonzero 0x777
076f 0092 0970 | p| Action Push_String_Extended,0x970 ; "Directory {"
0771 e5ff | | Load 0x2,-0x1
0772 01cc | | Execute Vector,Catenate
0773 0092 0971 | q| Action Push_String_Extended,0x971 ; "} does not exist?"
0775 01cc | | Execute Vector,Catenate
0776 8212 | | Call 0x1,0x12
0777 00d8 | | Load_Top At_Offset_0
0778 8214 | | Call 0x1,0x14
0779 4801 |H | Short_Literal 0x1
077a e006 | | Load 0x0,0x6
077b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
077c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
077d 00da | | Load_Top At_Offset_2
077e e006 | | Load 0x0,0x6
077f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0780 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0781 c402 | | Store 0x2,0x2
0782 e402 | | Load 0x2,0x2
0783 e006 | | Load 0x0,0x6
0784 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0785 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0786 6808 |h | Jump_Zero 0x78f
0787 0092 0972 | r| Action Push_String_Extended,0x972 ; "Created Prefix for "
0789 00d9 | | Load_Top At_Offset_1
078a 01cc | | Execute Vector,Catenate
078b 0092 0973 | s| Action Push_String_Extended,0x973 ; " but it doesn't exist?"
078d 01cc | | Execute Vector,Catenate
078e 8212 | | Call 0x1,0x12
078f 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0791 0092 0974 | t| Action Push_String_Extended,0x974 ; "!Model.R1000"
0793 4800 |H | Short_Literal 0x0
0794 4801 |H | Short_Literal 0x1
0795 e5ff | | Load 0x2,-0x1
0796 e003 | | Load 0x0,0x3
0797 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0798 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0799 0000 0000 | | .BLANK 0000[0x7]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a7 | | .CONST 0x07a7 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0002 | | .CONST 0x0002 ; Number of locals
07a3 INIT_07a0:
07a3 e5ff | | Load 0x2,-0x1
07a4 e006 | | Load 0x0,0x6
07a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07a7 BODY_07a0:
07a7 e5ff | | Load 0x2,-0x1
07a8 0092 096f | o| Action Push_String_Extended,0x96f ; "!"
07aa 01df | | Execute Vector,Equal
07ab 7003 |p | Jump_Nonzero 0x7af
07ac e5ff | | Load 0x2,-0x1
07ad 01db | | Execute Vector,Length
07ae 7008 |p | Jump_Nonzero 0x7b7
07af 0092 0970 | p| Action Push_String_Extended,0x970 ; "Directory {"
07b1 e5ff | | Load 0x2,-0x1
07b2 01cc | | Execute Vector,Catenate
07b3 0092 0971 | q| Action Push_String_Extended,0x971 ; "} does not exist?"
07b5 01cc | | Execute Vector,Catenate
07b6 8212 | | Call 0x1,0x12
07b7 00d8 | | Load_Top At_Offset_0
07b8 8214 | | Call 0x1,0x14
07b9 4801 |H | Short_Literal 0x1
07ba e006 | | Load 0x0,0x6
07bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07bd 00da | | Load_Top At_Offset_2
07be e006 | | Load 0x0,0x6
07bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07c0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
07c1 c402 | | Store 0x2,0x2
07c2 e402 | | Load 0x2,0x2
07c3 e006 | | Load 0x0,0x6
07c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07c6 6808 |h | Jump_Zero 0x7cf
07c7 0092 0972 | r| Action Push_String_Extended,0x972 ; "Created Prefix for "
07c9 00d9 | | Load_Top At_Offset_1
07ca 01cc | | Execute Vector,Catenate
07cb 0092 0973 | s| Action Push_String_Extended,0x973 ; " but it doesn't exist?"
07cd 01cc | | Execute Vector,Catenate
07ce 8212 | | Call 0x1,0x12
07cf 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
07d1 0092 0974 | t| Action Push_String_Extended,0x974 ; "!Model.R1000"
07d3 4800 |H | Short_Literal 0x0
07d4 4800 |H | Short_Literal 0x0
07d5 e5ff | | Load 0x2,-0x1
07d6 e003 | | Load 0x0,0x3
07d7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
07d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d9 0000 0000 | | .BLANK 0000[0x7]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e7 | | .CONST 0x07e7 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0002 | | .CONST 0x0002 ; Number of locals
07e3 INIT_07e0:
07e3 e5ff | | Load 0x2,-0x1
07e4 e006 | | Load 0x0,0x6
07e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07e7 BODY_07e0:
07e7 e5ff | | Load 0x2,-0x1
07e8 0092 096f | o| Action Push_String_Extended,0x96f ; "!"
07ea 01df | | Execute Vector,Equal
07eb 7003 |p | Jump_Nonzero 0x7ef
07ec e5ff | | Load 0x2,-0x1
07ed 01db | | Execute Vector,Length
07ee 7008 |p | Jump_Nonzero 0x7f7
07ef 0092 0970 | p| Action Push_String_Extended,0x970 ; "Directory {"
07f1 e5ff | | Load 0x2,-0x1
07f2 01cc | | Execute Vector,Catenate
07f3 0092 0971 | q| Action Push_String_Extended,0x971 ; "} does not exist?"
07f5 01cc | | Execute Vector,Catenate
07f6 8212 | | Call 0x1,0x12
07f7 00d8 | | Load_Top At_Offset_0
07f8 8214 | | Call 0x1,0x14
07f9 4801 |H | Short_Literal 0x1
07fa e006 | | Load 0x0,0x6
07fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fd 00da | | Load_Top At_Offset_2
07fe e006 | | Load 0x0,0x6
07ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0800 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0801 c402 | | Store 0x2,0x2
0802 e402 | | Load 0x2,0x2
0803 e006 | | Load 0x0,0x6
0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0805 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0806 6808 |h | Jump_Zero 0x80f
0807 0092 0972 | r| Action Push_String_Extended,0x972 ; "Created Prefix for "
0809 00d9 | | Load_Top At_Offset_1
080a 01cc | | Execute Vector,Catenate
080b 0092 0973 | s| Action Push_String_Extended,0x973 ; " but it doesn't exist?"
080d 01cc | | Execute Vector,Catenate
080e 8212 | | Call 0x1,0x12
080f 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0811 4800 |H | Short_Literal 0x0
0812 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0814 00ea | | Load_Encached Null_String_Cache
0815 0092 0975 | u| Action Push_String_Extended,0x975 ; "R1000"
0817 4801 |H | Short_Literal 0x1
0818 00ea | | Load_Encached Null_String_Cache
0819 4800 |H | Short_Literal 0x0
081a 0092 0976 | v| Action Push_String_Extended,0x976 ; "Rev1"
081c e5ff | | Load 0x2,-0x1
081d e008 | | Load 0x0,0x8
081e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
081f 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
0821 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0823 00ea | | Load_Encached Null_String_Cache
0824 4801 |H | Short_Literal 0x1
0825 4801 |H | Short_Literal 0x1
0826 e5ff | | Load 0x2,-0x1
0827 0092 0977 | w| Action Push_String_Extended,0x977 ; ".Rev1_Working"
0829 01cc | | Execute Vector,Catenate
082a e008 | | Load 0x0,0x8
082b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
082c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
082d 0000 0000 | | .XXX[0x3]
082f 0000 | |
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 083f | ? | .CONST 0x083f ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0002 | | .CONST 0x0002 ; Number of locals
0833 INIT_0830:
0833 4800 |H | Short_Literal 0x0
0834 0093 093b | ;| push_full_address INIT_0938
0836 00f5 | | Load_Encached Unused21
0837 037d | } | Declare_Type Task,Defined
0838 036f | o | Declare_Variable Task
0839 e403 | | Load 0x2,0x3
083a e5fe | | Load 0x2,-0x2
083b e008 | | Load 0x0,0x8
083c 4803 |H | Short_Literal 0x3
083d e602 | | Load 0x3,0x2
083e 020e | | Execute Module,Augment_Imports
083f BODY_0830:
083f 00be | | Action Activate_Tasks
0840 0008 | | Action Idle
0841 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0842 0000 0000 | | .BLANK 0000[0x6]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0852 | R | .CONST 0x0852 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b e402 | | Load 0x2,0x2
084c 00ea | | Load_Encached Null_String_Cache
084d e5fe | | Load 0x2,-0x2
084e e00a | | Load 0x0,0xa
084f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0850 c402 | | Store 0x2,0x2
0851 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0852 TRAP_0848:
0852 00d8 | | Load_Top At_Offset_0
0853 0107 | | Execute Exception,Get_Name
0854 4920 |I | Short_Literal 0x120
0855 492f |I/ | Short_Literal 0x12f
0856 0262 | b | Execute Discrete,In_Range
0857 6808 |h | Jump_Zero 0x860
0858 e402 | | Load 0x2,0x2
0859 00ea | | Load_Encached Null_String_Cache
085a e5fe | | Load 0x2,-0x2
085b 4801 |H | Short_Literal 0x1
085c e00a | | Load 0x0,0xa
085d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
085e c402 | | Store 0x2,0x2
085f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0860 0100 | | Execute Exception,Raise
0861 0000 0000 | | .BLANK 0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0872 | r | .CONST 0x0872 ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0003 | | .CONST 0x0003 ; Number of locals
086b INIT_0868:
086b e00b | | Load 0x0,0xb
086c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
086d 02c7 | | Declare_Variable Any
086e 00d8 | | Load_Top At_Offset_0
086f 1c00 | | Execute_Immediate Run_Utility,0x0
0870 e00b | | Load 0x0,0xb
0871 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0872 BODY_0868:
0872 e00b | | Load 0x0,0xb
0873 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0874 00da | | Load_Top At_Offset_2
0875 0120 | | Execute Any,Is_Value
0876 6803 |h | Jump_Zero 0x87a
0877 e00b | | Load 0x0,0xb
0878 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0879 7801 |x | Jump 0x87b
087a 00da | | Load_Top At_Offset_2
087b e7ff | | Load 0x3,-0x1
087c e00b | | Load 0x0,0xb
087d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
087e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
087f c602 | | Store 0x3,0x2
0880 0059 | Y | Store_Top Discrete,At_Offset_1
0881 00d8 | | Load_Top At_Offset_0
0882 7005 |p | Jump_Nonzero 0x888
0883 00d9 | | Load_Top At_Offset_1
0884 e00b | | Load 0x0,0xb
0885 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0886 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0887 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0888 4800 |H | Short_Literal 0x0
0889 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
088a 0000 0000 | | .BLANK 0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 089b | | .CONST 0x089b ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 e403 | | Load 0x2,0x3
0894 00ea | | Load_Encached Null_String_Cache
0895 e5fe | | Load 0x2,-0x2
0896 4801 |H | Short_Literal 0x1
0897 e00a | | Load 0x0,0xa
0898 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0899 c403 | | Store 0x2,0x3
089a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
089b TRAP_0890:
089b 0007 | | Action Break_Optional
089c e403 | | Load 0x2,0x3
089d 00ea | | Load_Encached Null_String_Cache
089e e5fe | | Load 0x2,-0x2
089f 4801 |H | Short_Literal 0x1
08a0 e00a | | Load 0x0,0xa
08a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08a2 c403 | | Store 0x2,0x3
08a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08a4 0000 0000 | | .BLANK 0000[0x4]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08b0 | | .CONST 0x08b0 ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0002 | | .CONST 0x0002 ; Number of locals
08ab INIT_08a8:
08ab e013 | | Load 0x0,0x13
08ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ad 02c7 | | Declare_Variable Any
08ae 00d8 | | Load_Top At_Offset_0
08af 1c00 | | Execute_Immediate Run_Utility,0x0
08b0 BODY_08a8:
08b0 e7fe | | Load 0x3,-0x2
08b1 01db | | Execute Vector,Length
08b2 7001 |p | Jump_Nonzero 0x8b4
08b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08b4 00d8 | | Load_Top At_Offset_0
08b5 e7fe | | Load 0x3,-0x2
08b6 e7ff | | Load 0x3,-0x1
08b7 e010 | | Load 0x0,0x10
08b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08b9 c602 | | Store 0x3,0x2
08ba 00d8 | | Load_Top At_Offset_0
08bb e013 | | Load 0x0,0x13
08bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08bd 680a |h | Jump_Zero 0x8c8
08be 00d8 | | Load_Top At_Offset_0
08bf e013 | | Load 0x0,0x13
08c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08c1 0092 0978 | x| Action Push_String_Extended,0x978 ; ": "
08c3 01cc | | Execute Vector,Catenate
08c4 e7ff | | Load 0x3,-0x1
08c5 01cc | | Execute Vector,Catenate
08c6 8212 | | Call 0x1,0x12
08c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08c8 0008 | | Action Idle
08c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08ca 0000 0000 | | .BLANK 0000[0x6]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08de | | .CONST 0x08de ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0003 | | .CONST 0x0003 ; Number of locals
08d3 INIT_08d0:
08d3 e402 | | Load 0x2,0x2
08d4 e00a | | Load 0x0,0xa
08d5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
08d6 4800 |H | Short_Literal 0x0
08d7 00d9 | | Load_Top At_Offset_1
08d8 0092 096c | l| Action Push_String_Extended,0x96c ; " => "
08da e009 | | Load 0x0,0x9
08db 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08dc 00e3 | | Load_Encached Natural_Cache
08dd 03f1 | | Declare_Variable Discrete,With_Value
08de BODY_08d0:
08de 00d8 | | Load_Top At_Offset_0
08df 00da | | Load_Top At_Offset_2
08e0 01dd | | Execute Vector,First
08e1 027c | | | Execute Discrete,Less
08e2 6808 |h | Jump_Zero 0x8eb
08e3 0092 0979 | y| Action Push_String_Extended,0x979 ; "Input file format is incorrect."
08e5 8212 | | Call 0x1,0x12
08e6 00d9 | | Load_Top At_Offset_1
08e7 8212 | | Call 0x1,0x12
08e8 e002 | | Load 0x0,0x2
08e9 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
08ea 0257 | W | Execute Discrete,Raise
08eb 4820 |H | Short_Literal 0x20
08ec 00d9 | | Load_Top At_Offset_1
08ed 0a04 | | Execute_Immediate Plus,0x4
08ee 00d8 | | Load_Top At_Offset_0
08ef 00e2 | | Load_Encached Integer_Cache
08f0 0260 | ` | Execute Discrete,In_Type
08f1 7001 |p | Jump_Nonzero 0x8f3
08f2 0801 | | Execute_Immediate Raise,0x1
08f3 00db | | Load_Top At_Offset_3
08f4 01dc | | Execute Vector,Last
08f5 e602 | | Load 0x3,0x2
08f6 01cf | | Execute Vector,Slice_Read
08f7 e009 | | Load 0x0,0x9
08f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08f9 4820 |H | Short_Literal 0x20
08fa 00db | | Load_Top At_Offset_3
08fb 01dd | | Execute Vector,First
08fc 00db | | Load_Top At_Offset_3
08fd e602 | | Load 0x3,0x2
08fe 01cf | | Execute Vector,Slice_Read
08ff e009 | | Load 0x0,0x9
0900 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0901 8403 | | Call 0x2,0x3
0902 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0903 0000 0000 | | .BLANK 0000[0x5]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090d | | .CONST 0x090d ; Address of begin
0909 0004 | | .CONST 0x0004 ; Address of exception handler
090a 000c | | .CONST 0x000c ; Number of locals
090b INIT_0908:
090b 00bf | | Action Accept_Activation
090c 00bc | | Action Signal_Activated
090d BODY_0908:
090d e001 | | Load 0x0,0x1
090e e002 | | Load 0x0,0x2
090f e003 | | Load 0x0,0x3
0910 e004 | | Load 0x0,0x4
0911 e005 | | Load 0x0,0x5
0912 e006 | | Load 0x0,0x6
0913 e007 | | Load 0x0,0x7
0914 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0915 00bb | | Action Signal_Completion
0916 0000 0000 | | .XXX[0x2]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091d | | .CONST 0x091d ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 000c | | .CONST 0x000c ; Number of locals
091b INIT_0918:
091b 00bf | | Action Accept_Activation
091c 00bc | | Action Signal_Activated
091d BODY_0918:
091d e001 | | Load 0x0,0x1
091e e002 | | Load 0x0,0x2
091f e003 | | Load 0x0,0x3
0920 e004 | | Load 0x0,0x4
0921 e005 | | Load 0x0,0x5
0922 e006 | | Load 0x0,0x6
0923 e007 | | Load 0x0,0x7
0924 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0925 00bb | | Action Signal_Completion
0926 0000 0000 | | .XXX[0x2]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092d | - | .CONST 0x092d ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 000c | | .CONST 0x000c ; Number of locals
092b INIT_0928:
092b 00bf | | Action Accept_Activation
092c 00bc | | Action Signal_Activated
092d BODY_0928:
092d e001 | | Load 0x0,0x1
092e e002 | | Load 0x0,0x2
092f e003 | | Load 0x0,0x3
0930 e004 | | Load 0x0,0x4
0931 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0932 00bb | | Action Signal_Completion
0933 0000 0000 | | .BLANK 0000[0x5]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093d | = | .CONST 0x093d ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 000c | | .CONST 0x000c ; Number of locals
093b INIT_0938:
093b 00bf | | Action Accept_Activation
093c 00bc | | Action Signal_Activated
093d BODY_0938:
093d 0092 0948 | H| Action Push_String_Extended,0x948 ; "<PROFILE>"
093f 4800 |H | Short_Literal 0x0
0940 0092 094f | O| Action Push_String_Extended,0x94f ; "<DEFAULT>"
0942 00ea | | Load_Encached Null_String_Cache
0943 e001 | | Load 0x0,0x1
0944 e002 | | Load 0x0,0x2
0945 e003 | | Load 0x0,0x3
0946 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0947 00bb | | Action Signal_Completion
0948 ; --------------------------------------------------------------------------------------
0948 ; STRING TABLE
0948 ; --------------------------------------------------------------------------------------
0948 0066 | f | .STRTAB 0x0066->0x097b ; "<PROFILE>"
0949 006d | m | .STRTAB 0x006d->0x097f ; "$"
094a 006c | l | .STRTAB 0x006c->0x0980 ; "------------------------------------------------------------"
094b 00a6 | | .STRTAB 0x00a6->0x099e ; "Object "
094c 00ab | | .STRTAB 0x00ab->0x09a1 ; " already exists and it is not a Library?"
094d 00d1 | | .STRTAB 0x00d1->0x09b5 ; " already exists and it is not a World?"
094e 00f5 | | .STRTAB 0x00f5->0x09c8 ; " already exists and it is not a Spec_Load Subsystem?"
094f 0127 | ' | .STRTAB 0x0127->0x09e2 ; "<DEFAULT>"
0950 012e | . | .STRTAB 0x012e->0x09e7 ; "<ALL_WORLDS>"
0951 0138 | 8 | .STRTAB 0x0138->0x09ed ; "_WORKING"
0952 013e | > | .STRTAB 0x013e->0x09f1 ; "Combined_View name does not end in _Working? {"
0953 016a | j | .STRTAB 0x016a->0x0a08 ; "}"
0954 0169 | i | .STRTAB 0x0169->0x0a08 ; ".Empty_Working"
0955 0175 | u | .STRTAB 0x0175->0x0a0f ; "Empty"
0956 0178 | x | .STRTAB 0x0178->0x0a12 ; "<INHERIT_MODEL>"
0957 0185 | | .STRTAB 0x0185->0x0a19 ; "<AUTO_GENERATE>"
0958 0192 | | .STRTAB 0x0192->0x0a21 ; " was created by us but is not a Combined_View?"
0959 01be | | .STRTAB 0x01be->0x0a38 ; "Load_View name does not end in _Working? {"
095a 01e6 | | .STRTAB 0x01e6->0x0a4d ; " was created by us but is not a Load_View?"
095b 020e | | .STRTAB 0x020e->0x0a62 ; "Can't create Code_View for nonexistent Load_View? {"
095c 0240 | @ | .STRTAB 0x0240->0x0a7c ; " was created by us but is not a Code_View?"
095d 0268 | h | .STRTAB 0x0268->0x0a91 ; "Can't create Spec_View for nonexistent Load_View? {"
095e 029a | | .STRTAB 0x029a->0x0aab ; "<INHERIT_IMPORTS>"
095f 02a9 | | .STRTAB 0x02a9->0x0ab3 ; "<DIRECTORIES>"
0960 02b4 | | .STRTAB 0x02b4->0x0aba ; ".Units."
0961 02b9 | | .STRTAB 0x02b9->0x0abd ; " was created by us but is not a Spec_View?"
0962 02e1 | | .STRTAB 0x02e1->0x0ad2 ; ".??'s(Source,Installed)"
0963 02f6 | | .STRTAB 0x02f6->0x0ade ; " is not Coded."
0964 0302 | | .STRTAB 0x0302->0x0ae5 ; ".@.??"
0965 0305 | | .STRTAB 0x0305->0x0ae7 ; ".Exports.Commands"
0966 0314 | | .STRTAB 0x0314->0x0af0 ; "[Commands,Environment].?'Spec"
0967 032f | / | .STRTAB 0x032f->0x0afe ; "<Verbose> Raise_Error"
0968 0342 | B | .STRTAB 0x0342->0x0b09 ; "<TOMORROW>"
0969 034a | J | .STRTAB 0x034a->0x0b0e ; " ||| "
096a 034d | M | .STRTAB 0x034d->0x0b10 ; " returned resolving "
096b 035f | _ | .STRTAB 0x035f->0x0b1a ; " returned getting default version for object"
096c 0389 | | .STRTAB 0x0389->0x0b30 ; " => "
096d 038b | | .STRTAB 0x038b->0x0b32 ; "Save_Acls: "
096e 0394 | | .STRTAB 0x0394->0x0b38 ; "Restore_Acls: "
096f 03a0 | | .STRTAB 0x03a0->0x0b3f ; "!"
0970 039f | | .STRTAB 0x039f->0x0b3f ; "Directory {"
0971 03a8 | | .STRTAB 0x03a8->0x0b45 ; "} does not exist?"
0972 03b7 | | .STRTAB 0x03b7->0x0b4d ; "Created Prefix for "
0973 03c8 | | .STRTAB 0x03c8->0x0b57 ; " but it doesn't exist?"
0974 03dc | | .STRTAB 0x03dc->0x0b62 ; "!Model.R1000"
0975 03e6 | | .STRTAB 0x03e6->0x0b68 ; "R1000"
0976 03e9 | | .STRTAB 0x03e9->0x0b6a ; "Rev1"
0977 03eb | | .STRTAB 0x03eb->0x0b6c ; ".Rev1_Working"
0978 03f6 | | .STRTAB 0x03f6->0x0b73 ; ": "
0979 03f6 | | .STRTAB 0x03f6->0x0b74 ; "Input file format is incorrect."
097a 0413 | | .STREND 0x0413->0x0b83
097b 3c50 524f |<PRO| .STRTAB_STRINGS
0b84 0000 0000 | | .BLANK 0000[0x4]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; Debug Table
0b88 ; --------------------------------------------------------------------------------------
0b88 0004 0004 | | .DEBUG4 0x0004,0x0004,0x7d4e,0x0000,0x0001,0x0000
0b8e 0101 0101 | | .BLANK 0101[0x57]
0be5 0000 0000 | | .XXX[0x5]
0be7 0800 0000 | |
0be9 0800 | |
0bea 0000 0000 | | .BLANK 0000[0x5]
0bef 1000 | | .XXX[0x1]
0bf0 0000 0000 | | .BLANK 0000[0x9]
0bf9 2000 | | .XXX[0x1]
0bfa 0000 0000 | | .BLANK 0000[0x6]