|
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 0b40 | @ | .CONST 0x0b40 ; 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 0082 | | .CONST 0x0082 ; 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 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
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 00c4 | | Action Make_Default
002f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0031 c224 | $ | Store 0x1,0x24
0032 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0034 c219 | | Store 0x1,0x19
0035 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0037 c21a | | Store 0x1,0x1a
0038 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
003a c21b | | Store 0x1,0x1b
003b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
003d c21c | | Store 0x1,0x1c
003e 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0040 c21d | | Store 0x1,0x1d
0041 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
0043 c21e | | Store 0x1,0x1e
0044 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
0046 c21f | | Store 0x1,0x1f
0047 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated
0049 c220 | | Store 0x1,0x20
004a 029a 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Visible,Unelaborated
004c c221 | ! | Store 0x1,0x21
004d 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated
004f c222 | " | Store 0x1,0x22
0050 029a 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Visible,Unelaborated
0052 c223 | # | Store 0x1,0x23
0053 00bf | | Action Accept_Activation
0054 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0055 00c7 | | Action Elaborate_Subprogram
0056 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0057 00c7 | | Action Elaborate_Subprogram
0058 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0059 00c7 | | Action Elaborate_Subprogram
005a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
005b 00c7 | | Action Elaborate_Subprogram
005c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005d 00c7 | | Action Elaborate_Subprogram
005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005f 00c7 | | Action Elaborate_Subprogram
0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0061 00c7 | | Action Elaborate_Subprogram
0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0063 00c7 | | Action Elaborate_Subprogram
0064 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0065 00c7 | | Action Elaborate_Subprogram
0066 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006d 00c7 | | Action Elaborate_Subprogram
006e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0073 00c7 | | Action Elaborate_Subprogram
0074 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0075 00c7 | | Action Elaborate_Subprogram
0076 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0079 00c7 | | Action Elaborate_Subprogram
007a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007b 00c7 | | Action Elaborate_Subprogram
007c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007d 00c7 | | Action Elaborate_Subprogram
007e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007f 00c7 | | Action Elaborate_Subprogram
0080 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0081 00c7 | | Action Elaborate_Subprogram
0082 BODY_0008:
0082 00bc | | Action Signal_Activated
0083 00bb | | Action Signal_Completion
0084 0000 0000 | | .BLANK 0000[0x4]
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 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0094 0092 0901 | | Action Push_String_Extended,0x901 ; "$"
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 0902 | | Action Push_String_Extended,0x902 ; "------------------------------------------------------------"
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 06db | | Declare_Subprogram INIT_06d8,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 0903 | | Action Push_String_Extended,0x903 ; "Object "
0139 e5ff | | Load 0x2,-0x1
013a 01cc | | Execute Vector,Catenate
013b 0092 0904 | | Action Push_String_Extended,0x904 ; " 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 071b | | Declare_Subprogram INIT_0718,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 0903 | | Action Push_String_Extended,0x903 ; "Object "
0169 e5ff | | Load 0x2,-0x1
016a 01cc | | Execute Vector,Catenate
016b 0092 0904 | | Action Push_String_Extended,0x904 ; " 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 075b | [| Declare_Subprogram INIT_0758,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 0903 | | Action Push_String_Extended,0x903 ; "Object "
0199 e5ff | | Load 0x2,-0x1
019a 01cc | | Execute Vector,Catenate
019b 0092 0905 | | Action Push_String_Extended,0x905 ; " 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 079b | | Declare_Subprogram INIT_0798,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 0903 | | Action Push_String_Extended,0x903 ; "Object "
01db e5ff | | Load 0x2,-0x1
01dc 01cc | | Execute Vector,Catenate
01dd 0092 0906 | | Action Push_String_Extended,0x906 ; " 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 682f |h/ | Jump_Zero 0x234
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 6822 |h" | Jump_Zero 0x22c
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 7009 |p | Jump_Nonzero 0x21c
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 6810 |h | Jump_Zero 0x22c
021c 0092 0907 | | Action Push_String_Extended,0x907 ; "<PROFILE> PERSEVERE"
021e e5ff | | Load 0x2,-0x1
021f e008 | | Load 0x0,0x8
0220 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0221 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0223 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0225 00ea | | Load_Encached Null_String_Cache
0226 4801 |H | Short_Literal 0x1
0227 4801 |H | Short_Literal 0x1
0228 e5ff | | Load 0x2,-0x1
0229 e009 | | Load 0x0,0x9
022a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
022b 780a |x | Jump 0x236
022c 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
022e 0092 0909 | | Action Push_String_Extended,0x909 ; "<ALL_WORLDS>"
0230 e5ff | | Load 0x2,-0x1
0231 e003 | | Load 0x0,0x3
0232 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0233 7802 |x | Jump 0x236
0234 00da | | Load_Top At_Offset_2
0235 8217 | | Call 0x1,0x17
0236 00d9 | | Load_Top At_Offset_1
0237 01db | | Execute Vector,Length
0238 0d08 | | Execute_Immediate Less,0x8
0239 7012 |p | Jump_Nonzero 0x24c
023a 4801 |H | Short_Literal 0x1
023b 00da | | Load_Top At_Offset_2
023c 01dc | | Execute Vector,Last
023d 0af9 | | Execute_Immediate Plus,-0x7
023e 00d8 | | Load_Top At_Offset_0
023f 00e2 | | Load_Encached Integer_Cache
0240 0260 | ` | Execute Discrete,In_Type
0241 7001 |p | Jump_Nonzero 0x243
0242 0801 | | Execute_Immediate Raise,0x1
0243 00db | | Load_Top At_Offset_3
0244 01dc | | Execute Vector,Last
0245 e403 | | Load 0x2,0x3
0246 01cf | | Execute Vector,Slice_Read
0247 0092 090a | | Action Push_String_Extended,0x90a ; "_WORKING"
0249 e00a | | Load 0x0,0xa
024a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
024b 7008 |p | Jump_Nonzero 0x254
024c 0092 090b | | Action Push_String_Extended,0x90b ; "Load_View name does not end in _Working? {"
024e e5ff | | Load 0x2,-0x1
024f 01cc | | Execute Vector,Catenate
0250 0092 090c | | Action Push_String_Extended,0x90c ; "}"
0252 01cc | | Execute Vector,Catenate
0253 8212 | | Call 0x1,0x12
0254 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0256 4800 |H | Short_Literal 0x0
0257 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0259 00ea | | Load_Encached Null_String_Cache
025a e5fd | | Load 0x2,-0x3
025b 4801 |H | Short_Literal 0x1
025c e5fe | | Load 0x2,-0x2
025d 4800 |H | Short_Literal 0x0
025e e403 | | Load 0x2,0x3
025f 01dd | | Execute Vector,First
0260 e403 | | Load 0x2,0x3
0261 01dc | | Execute Vector,Last
0262 0af8 | | Execute_Immediate Plus,-0x8
0263 00d8 | | Load_Top At_Offset_0
0264 00e2 | | Load_Encached Integer_Cache
0265 0260 | ` | Execute Discrete,In_Type
0266 7001 |p | Jump_Nonzero 0x268
0267 0801 | | Execute_Immediate Raise,0x1
0268 e403 | | Load 0x2,0x3
0269 01cf | | Execute Vector,Slice_Read
026a e402 | | Load 0x2,0x2
026b e009 | | Load 0x0,0x9
026c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
026d 4801 |H | Short_Literal 0x1
026e e006 | | Load 0x0,0x6
026f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0270 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0271 e5ff | | Load 0x2,-0x1
0272 e006 | | Load 0x0,0x6
0273 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0274 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0275 c404 | | Store 0x2,0x4
0276 00d8 | | Load_Top At_Offset_0
0277 e006 | | Load 0x0,0x6
0278 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0279 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027a 680a |h | Jump_Zero 0x285
027b 00d8 | | Load_Top At_Offset_0
027c e006 | | Load 0x0,0x6
027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
027f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0280 e007 | | Load 0x0,0x7
0281 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0282 027f | | Execute Discrete,Equal
0283 6801 |h | Jump_Zero 0x285
0284 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0285 0092 0903 | | Action Push_String_Extended,0x903 ; "Object "
0287 e5ff | | Load 0x2,-0x1
0288 01cc | | Execute Vector,Catenate
0289 0092 090d | | Action Push_String_Extended,0x90d ; " was created by us but is not a Load_View?"
028b 01cc | | Execute Vector,Catenate
028c 8212 | | Call 0x1,0x12
028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02a8 | | .CONST 0x02a8 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0004 | | .CONST 0x0004 ; Number of locals
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 e006 | | Load 0x0,0x6
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0297 00db | | Load_Top At_Offset_3
0298 e006 | | Load 0x0,0x6
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
029b e006 | | Load 0x0,0x6
029c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029e 02c7 | | Declare_Variable Any
029f 4801 |H | Short_Literal 0x1
02a0 e006 | | Load 0x0,0x6
02a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a3 e5ff | | Load 0x2,-0x1
02a4 e006 | | Load 0x0,0x6
02a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02a7 a404 | | Store_Unchecked 0x2,0x4
02a8 BODY_0290:
02a8 00d8 | | Load_Top At_Offset_0
02a9 e006 | | Load 0x0,0x6
02aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ab 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02ac 682f |h/ | Jump_Zero 0x2dc
02ad 00d8 | | Load_Top At_Offset_0
02ae e006 | | Load 0x0,0x6
02af 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b1 6822 |h" | Jump_Zero 0x2d4
02b2 00d8 | | Load_Top At_Offset_0
02b3 e006 | | Load 0x0,0x6
02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02b7 e007 | | Load 0x0,0x7
02b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b9 027f | | Execute Discrete,Equal
02ba 7009 |p | Jump_Nonzero 0x2c4
02bb 00d8 | | Load_Top At_Offset_0
02bc e006 | | Load 0x0,0x6
02bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02be 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
02bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c0 e007 | | Load 0x0,0x7
02c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c2 027f | | Execute Discrete,Equal
02c3 6810 |h | Jump_Zero 0x2d4
02c4 0092 0907 | | Action Push_String_Extended,0x907 ; "<PROFILE> PERSEVERE"
02c6 e5ff | | Load 0x2,-0x1
02c7 e008 | | Load 0x0,0x8
02c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c9 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
02cb 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
02cd 00ea | | Load_Encached Null_String_Cache
02ce 4801 |H | Short_Literal 0x1
02cf 4801 |H | Short_Literal 0x1
02d0 e5ff | | Load 0x2,-0x1
02d1 e009 | | Load 0x0,0x9
02d2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02d3 780a |x | Jump 0x2de
02d4 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
02d6 0092 0909 | | Action Push_String_Extended,0x909 ; "<ALL_WORLDS>"
02d8 e5ff | | Load 0x2,-0x1
02d9 e003 | | Load 0x0,0x3
02da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02db 7802 |x | Jump 0x2de
02dc 00da | | Load_Top At_Offset_2
02dd 8217 | | Call 0x1,0x17
02de 00d9 | | Load_Top At_Offset_1
02df 01db | | Execute Vector,Length
02e0 0d08 | | Execute_Immediate Less,0x8
02e1 7012 |p | Jump_Nonzero 0x2f4
02e2 4801 |H | Short_Literal 0x1
02e3 00da | | Load_Top At_Offset_2
02e4 01dc | | Execute Vector,Last
02e5 0af9 | | Execute_Immediate Plus,-0x7
02e6 00d8 | | Load_Top At_Offset_0
02e7 00e2 | | Load_Encached Integer_Cache
02e8 0260 | ` | Execute Discrete,In_Type
02e9 7001 |p | Jump_Nonzero 0x2eb
02ea 0801 | | Execute_Immediate Raise,0x1
02eb 00db | | Load_Top At_Offset_3
02ec 01dc | | Execute Vector,Last
02ed e403 | | Load 0x2,0x3
02ee 01cf | | Execute Vector,Slice_Read
02ef 0092 090a | | Action Push_String_Extended,0x90a ; "_WORKING"
02f1 e00a | | Load 0x0,0xa
02f2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02f3 7008 |p | Jump_Nonzero 0x2fc
02f4 0092 090e | | Action Push_String_Extended,0x90e ; "Combined_View name does not end in _Working? {"
02f6 e5ff | | Load 0x2,-0x1
02f7 01cc | | Execute Vector,Catenate
02f8 0092 090c | | Action Push_String_Extended,0x90c ; "}"
02fa 01cc | | Execute Vector,Catenate
02fb 8212 | | Call 0x1,0x12
02fc 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
02fe 4800 |H | Short_Literal 0x0
02ff 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0301 00ea | | Load_Encached Null_String_Cache
0302 e5fd | | Load 0x2,-0x3
0303 4801 |H | Short_Literal 0x1
0304 e5fe | | Load 0x2,-0x2
0305 4801 |H | Short_Literal 0x1
0306 e403 | | Load 0x2,0x3
0307 01dd | | Execute Vector,First
0308 e403 | | Load 0x2,0x3
0309 01dc | | Execute Vector,Last
030a 0af8 | | Execute_Immediate Plus,-0x8
030b 00d8 | | Load_Top At_Offset_0
030c 00e2 | | Load_Encached Integer_Cache
030d 0260 | ` | Execute Discrete,In_Type
030e 7001 |p | Jump_Nonzero 0x310
030f 0801 | | Execute_Immediate Raise,0x1
0310 e403 | | Load 0x2,0x3
0311 01cf | | Execute Vector,Slice_Read
0312 e402 | | Load 0x2,0x2
0313 e009 | | Load 0x0,0x9
0314 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0315 4801 |H | Short_Literal 0x1
0316 e006 | | Load 0x0,0x6
0317 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0319 e5ff | | Load 0x2,-0x1
031a e006 | | Load 0x0,0x6
031b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
031d c404 | | Store 0x2,0x4
031e 00d8 | | Load_Top At_Offset_0
031f e006 | | Load 0x0,0x6
0320 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0321 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0322 680a |h | Jump_Zero 0x32d
0323 00d8 | | Load_Top At_Offset_0
0324 e006 | | Load 0x0,0x6
0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0326 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0327 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0328 e007 | | Load 0x0,0x7
0329 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032a 027f | | Execute Discrete,Equal
032b 6801 |h | Jump_Zero 0x32d
032c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
032d 0092 0903 | | Action Push_String_Extended,0x903 ; "Object "
032f e5ff | | Load 0x2,-0x1
0330 01cc | | Execute Vector,Catenate
0331 0092 090f | | Action Push_String_Extended,0x90f ; " was created by us but is not a Combined_View?"
0333 01cc | | Execute Vector,Catenate
0334 8212 | | Call 0x1,0x12
0335 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0352 | R | .CONST 0x0352 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0005 | | .CONST 0x0005 ; Number of locals
033b INIT_0338:
033b 00db | | Load_Top At_Offset_3
033c e006 | | Load 0x0,0x6
033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
033f 00db | | Load_Top At_Offset_3
0340 e006 | | Load 0x0,0x6
0341 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0342 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0343 e006 | | Load 0x0,0x6
0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0345 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0346 02c7 | | Declare_Variable Any
0347 4801 |H | Short_Literal 0x1
0348 e006 | | Load 0x0,0x6
0349 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034b e5ff | | Load 0x2,-0x1
034c e006 | | Load 0x0,0x6
034d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
034f a404 | | Store_Unchecked 0x2,0x4
0350 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call
0352 BODY_0338:
0352 00d9 | | Load_Top At_Offset_1
0353 e006 | | Load 0x0,0x6
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0356 682e |h. | Jump_Zero 0x385
0357 00d9 | | Load_Top At_Offset_1
0358 e006 | | Load 0x0,0x6
0359 1b12 | | Execute Package,Field_Read,Field_Number 0x12
035a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
035b 6822 |h" | Jump_Zero 0x37e
035c 00d9 | | Load_Top At_Offset_1
035d e006 | | Load 0x0,0x6
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0360 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0361 e007 | | Load 0x0,0x7
0362 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0363 027f | | Execute Discrete,Equal
0364 7009 |p | Jump_Nonzero 0x36e
0365 00d9 | | Load_Top At_Offset_1
0366 e006 | | Load 0x0,0x6
0367 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0368 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0369 1815 | | Execute Package,Field_Execute,Field_Number 0x15
036a e007 | | Load 0x0,0x7
036b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
036c 027f | | Execute Discrete,Equal
036d 6810 |h | Jump_Zero 0x37e
036e 0092 0907 | | Action Push_String_Extended,0x907 ; "<PROFILE> PERSEVERE"
0370 e5ff | | Load 0x2,-0x1
0371 e008 | | Load 0x0,0x8
0372 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0373 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0375 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0377 00ea | | Load_Encached Null_String_Cache
0378 4801 |H | Short_Literal 0x1
0379 4801 |H | Short_Literal 0x1
037a e5ff | | Load 0x2,-0x1
037b e009 | | Load 0x0,0x9
037c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
037d 7807 |x | Jump 0x385
037e 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0380 0092 0909 | | Action Push_String_Extended,0x909 ; "<ALL_WORLDS>"
0382 e5ff | | Load 0x2,-0x1
0383 e003 | | Load 0x0,0x3
0384 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0385 4801 |H | Short_Literal 0x1
0386 e006 | | Load 0x0,0x6
0387 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0388 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0389 e5fe | | Load 0x2,-0x2
038a e006 | | Load 0x0,0x6
038b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
038d c404 | | Store 0x2,0x4
038e 00d9 | | Load_Top At_Offset_1
038f e006 | | Load 0x0,0x6
0390 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0391 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0392 6808 |h | Jump_Zero 0x39b
0393 0092 0910 | | Action Push_String_Extended,0x910 ; "Can't create Code_View for nonexistent Load_View? {"
0395 e5fe | | Load 0x2,-0x2
0396 01cc | | Execute Vector,Catenate
0397 0092 090c | | Action Push_String_Extended,0x90c ; "}"
0399 01cc | | Execute Vector,Catenate
039a 8212 | | Call 0x1,0x12
039b 8405 | | Call 0x2,0x5
039c 4801 |H | Short_Literal 0x1
039d e006 | | Load 0x0,0x6
039e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
039f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a0 e5ff | | Load 0x2,-0x1
03a1 e006 | | Load 0x0,0x6
03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03a4 c404 | | Store 0x2,0x4
03a5 00d9 | | Load_Top At_Offset_1
03a6 e006 | | Load 0x0,0x6
03a7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a9 680a |h | Jump_Zero 0x3b4
03aa 00d9 | | Load_Top At_Offset_1
03ab e006 | | Load 0x0,0x6
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03af e007 | | Load 0x0,0x7
03b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03b1 027f | | Execute Discrete,Equal
03b2 6801 |h | Jump_Zero 0x3b4
03b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03b4 0092 0903 | | Action Push_String_Extended,0x903 ; "Object "
03b6 e5ff | | Load 0x2,-0x1
03b7 01cc | | Execute Vector,Catenate
03b8 0092 0911 | | Action Push_String_Extended,0x911 ; " was created by us but is not a Code_View?"
03ba 01cc | | Execute Vector,Catenate
03bb 8212 | | Call 0x1,0x12
03bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03bd 0000 0000 | | .XXX[0x3]
03bf 0000 | |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d8 | | .CONST 0x03d8 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0004 | | .CONST 0x0004 ; Number of locals
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 e006 | | Load 0x0,0x6
03c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c7 00db | | Load_Top At_Offset_3
03c8 e006 | | Load 0x0,0x6
03c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03cb e006 | | Load 0x0,0x6
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ce 02c7 | | Declare_Variable Any
03cf 4801 |H | Short_Literal 0x1
03d0 e006 | | Load 0x0,0x6
03d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d3 e5ff | | Load 0x2,-0x1
03d4 e006 | | Load 0x0,0x6
03d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03d7 a404 | | Store_Unchecked 0x2,0x4
03d8 BODY_03c0:
03d8 00d8 | | Load_Top At_Offset_0
03d9 e006 | | Load 0x0,0x6
03da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03db 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03dc 682e |h. | Jump_Zero 0x40b
03dd 00d8 | | Load_Top At_Offset_0
03de e006 | | Load 0x0,0x6
03df 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e1 6822 |h" | Jump_Zero 0x404
03e2 00d8 | | Load_Top At_Offset_0
03e3 e006 | | Load 0x0,0x6
03e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e7 e007 | | Load 0x0,0x7
03e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e9 027f | | Execute Discrete,Equal
03ea 7009 |p | Jump_Nonzero 0x3f4
03eb 00d8 | | Load_Top At_Offset_0
03ec e006 | | Load 0x0,0x6
03ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ee 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f0 e007 | | Load 0x0,0x7
03f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03f2 027f | | Execute Discrete,Equal
03f3 6810 |h | Jump_Zero 0x404
03f4 0092 0907 | | Action Push_String_Extended,0x907 ; "<PROFILE> PERSEVERE"
03f6 e5ff | | Load 0x2,-0x1
03f7 e008 | | Load 0x0,0x8
03f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03f9 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
03fb 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
03fd 00ea | | Load_Encached Null_String_Cache
03fe 4801 |H | Short_Literal 0x1
03ff 4801 |H | Short_Literal 0x1
0400 e5ff | | Load 0x2,-0x1
0401 e009 | | Load 0x0,0x9
0402 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0403 7807 |x | Jump 0x40b
0404 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0406 0092 0909 | | Action Push_String_Extended,0x909 ; "<ALL_WORLDS>"
0408 e5ff | | Load 0x2,-0x1
0409 e003 | | Load 0x0,0x3
040a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
040b 4801 |H | Short_Literal 0x1
040c e006 | | Load 0x0,0x6
040d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040f e5fe | | Load 0x2,-0x2
0410 e006 | | Load 0x0,0x6
0411 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0412 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0413 c404 | | Store 0x2,0x4
0414 00d8 | | Load_Top At_Offset_0
0415 e006 | | Load 0x0,0x6
0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0417 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0418 6808 |h | Jump_Zero 0x421
0419 0092 0912 | | Action Push_String_Extended,0x912 ; "Can't create Spec_View for nonexistent Load_View? {"
041b e5fe | | Load 0x2,-0x2
041c 01cc | | Execute Vector,Catenate
041d 0092 090c | | Action Push_String_Extended,0x90c ; "}"
041f 01cc | | Execute Vector,Catenate
0420 8212 | | Call 0x1,0x12
0421 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0423 4800 |H | Short_Literal 0x0
0424 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0426 00ea | | Load_Encached Null_String_Cache
0427 4801 |H | Short_Literal 0x1
0428 4800 |H | Short_Literal 0x0
0429 0092 0913 | | Action Push_String_Extended,0x913 ; "<INHERIT_MODEL>"
042b 6040 |`@ | Indirect_Literal Discrete,0x46c,{0x00000000, 0x7fffffff}
042c 4800 |H | Short_Literal 0x0
042d 4800 |H | Short_Literal 0x0
042e 4801 |H | Short_Literal 0x1
042f 4800 |H | Short_Literal 0x0
0430 0092 0914 | | Action Push_String_Extended,0x914 ; "<AUTO_GENERATE>"
0432 4800 |H | Short_Literal 0x0
0433 4801 |H | Short_Literal 0x1
0434 0092 0915 | | Action Push_String_Extended,0x915 ; "<INHERIT_IMPORTS>"
0436 00ea | | Load_Encached Null_String_Cache
0437 e403 | | Load 0x2,0x3
0438 e5fe | | Load 0x2,-0x2
0439 e009 | | Load 0x0,0x9
043a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
043b e5fd | | Load 0x2,-0x3
043c 01db | | Execute Vector,Length
043d 680c |h | Jump_Zero 0x44a
043e 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0440 0092 0916 | | Action Push_String_Extended,0x916 ; "<DIRECTORIES>"
0442 e5ff | | Load 0x2,-0x1
0443 0092 0917 | | Action Push_String_Extended,0x917 ; ".Units."
0445 01cc | | Execute Vector,Catenate
0446 e5fd | | Load 0x2,-0x3
0447 01cc | | Execute Vector,Catenate
0448 e003 | | Load 0x0,0x3
0449 1819 | | Execute Package,Field_Execute,Field_Number 0x19
044a 4801 |H | Short_Literal 0x1
044b e006 | | Load 0x0,0x6
044c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044e e5ff | | Load 0x2,-0x1
044f e006 | | Load 0x0,0x6
0450 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0451 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0452 c404 | | Store 0x2,0x4
0453 00d8 | | Load_Top At_Offset_0
0454 e006 | | Load 0x0,0x6
0455 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0456 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0457 680a |h | Jump_Zero 0x462
0458 00d8 | | Load_Top At_Offset_0
0459 e006 | | Load 0x0,0x6
045a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
045c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045d e007 | | Load 0x0,0x7
045e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045f 027f | | Execute Discrete,Equal
0460 6801 |h | Jump_Zero 0x462
0461 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0462 0092 0903 | | Action Push_String_Extended,0x903 ; "Object "
0464 e5ff | | Load 0x2,-0x1
0465 01cc | | Execute Vector,Catenate
0466 0092 0918 | | Action Push_String_Extended,0x918 ; " was created by us but is not a Spec_View?"
0468 01cc | | Execute Vector,Catenate
0469 8212 | | Call 0x1,0x12
046a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
046b 0000 | | .XXX[0x1]
046c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0489 | | .CONST 0x0489 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0003 | | .CONST 0x0003 ; Number of locals
0473 INIT_0470:
0473 e006 | | Load 0x0,0x6
0474 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0475 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0476 02c7 | | Declare_Variable Any
0477 00d8 | | Load_Top At_Offset_0
0478 1c00 | | Execute_Immediate Run_Utility,0x0
0479 e006 | | Load 0x0,0x6
047a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
047c 02c7 | | Declare_Variable Any
047d 4801 |H | Short_Literal 0x1
047e e006 | | Load 0x0,0x6
047f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0480 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0481 e5ff | | Load 0x2,-0x1
0482 0092 0919 | | Action Push_String_Extended,0x919 ; ".??'s(Source,Installed)"
0484 01cc | | Execute Vector,Catenate
0485 e006 | | Load 0x0,0x6
0486 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0487 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0488 a403 | | Store_Unchecked 0x2,0x3
0489 BODY_0470:
0489 00d8 | | Load_Top At_Offset_0
048a e006 | | Load 0x0,0x6
048b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
048d 681d |h | Jump_Zero 0x4ab
048e 00cf | | Action Mark_Auxiliary
048f 7813 |x | Jump 0x4a3
0490 00d9 | | Load_Top At_Offset_1
0491 e006 | | Load 0x0,0x6
0492 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0493 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0494 c402 | | Store 0x2,0x2
0495 00da | | Load_Top At_Offset_2
0496 e006 | | Load 0x0,0x6
0497 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0498 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0499 0092 091a | | Action Push_String_Extended,0x91a ; " is not Coded."
049b 01cc | | Execute Vector,Catenate
049c 8212 | | Call 0x1,0x12
049d 00d9 | | Load_Top At_Offset_1
049e e006 | | Load 0x0,0x6
049f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04a1 c403 | | Store 0x2,0x3
04a2 00c9 | | Action Pop_Auxiliary_Loop
04a3 00d9 | | Load_Top At_Offset_1
04a4 e006 | | Load 0x0,0x6
04a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04a7 6fe8 |o | Jump_Zero 0x490
04a8 00ce | | Action Pop_Auxiliary
04a9 e20d | | Load 0x1,0xd
04aa 0257 | W | Execute Discrete,Raise
04ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04cb | | .CONST 0x04cb ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0004 | | .CONST 0x0004 ; Number of locals
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2
04b4 0092 091b | | Action Push_String_Extended,0x91b ; ".@.??"
04b6 01cc | | Execute Vector,Catenate
04b7 0007 | | Action Break_Optional
04b8 e006 | | Load 0x0,0x6
04b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bb 02c7 | | Declare_Variable Any
04bc 00d8 | | Load_Top At_Offset_0
04bd 1c00 | | Execute_Immediate Run_Utility,0x0
04be e006 | | Load 0x0,0x6
04bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04c1 02c7 | | Declare_Variable Any
04c2 4801 |H | Short_Literal 0x1
04c3 e006 | | Load 0x0,0x6
04c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c6 e402 | | Load 0x2,0x2
04c7 e006 | | Load 0x0,0x6
04c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04ca a404 | | Store_Unchecked 0x2,0x4
04cb BODY_04b0:
04cb 00d8 | | Load_Top At_Offset_0
04cc e006 | | Load 0x0,0x6
04cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ce 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
04cf 6801 |h | Jump_Zero 0x4d1
04d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d1 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
04d3 0092 0909 | | Action Push_String_Extended,0x909 ; "<ALL_WORLDS>"
04d5 e402 | | Load 0x2,0x2
04d6 e003 | | Load 0x0,0x3
04d7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d9 0000 0000 | | .BLANK 0000[0x7]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e8 | | .CONST 0x04e8 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 e00b | | Load 0x0,0xb
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 02c7 | | Declare_Variable Any
04e6 00d8 | | Load_Top At_Offset_0
04e7 1c00 | | Execute_Immediate Run_Utility,0x0
04e8 BODY_04e0:
04e8 00d8 | | Load_Top At_Offset_0
04e9 00ea | | Load_Encached Null_String_Cache
04ea e5ff | | Load 0x2,-0x1
04eb 0092 091c | | Action Push_String_Extended,0x91c ; ".Exports.Commands"
04ed 01cc | | Execute Vector,Catenate
04ee 4801 |H | Short_Literal 0x1
04ef e00b | | Load 0x0,0xb
04f0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f1 c402 | | Store 0x2,0x2
04f2 0092 091d | | Action Push_String_Extended,0x91d ; "[Commands,Environment].?'Spec"
04f4 00d9 | | Load_Top At_Offset_1
04f5 e00b | | Load 0x0,0xb
04f6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
04f7 00d8 | | Load_Top At_Offset_0
04f8 e00b | | Load 0x0,0xb
04f9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04fa c402 | | Store 0x2,0x2
04fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 051f | | .CONST 0x051f ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0007 | | .CONST 0x0007 ; Number of locals
0503 INIT_0500:
0503 e00b | | Load 0x0,0xb
0504 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0505 02c7 | | Declare_Variable Any
0506 00d8 | | Load_Top At_Offset_0
0507 1c00 | | Execute_Immediate Run_Utility,0x0
0508 e00c | | Load 0x0,0xc
0509 1b0f | | Execute Package,Field_Read,Field_Number 0xf
050a 02c7 | | Declare_Variable Any
050b 00d8 | | Load_Top At_Offset_0
050c 1c00 | | Execute_Immediate Run_Utility,0x0
050d e006 | | Load 0x0,0x6
050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0510 02c7 | | Declare_Variable Any
0511 4801 |H | Short_Literal 0x1
0512 e006 | | Load 0x0,0x6
0513 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0514 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0515 e5fe | | Load 0x2,-0x2
0516 e006 | | Load 0x0,0x6
0517 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0518 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0519 a404 | | Store_Unchecked 0x2,0x4
051a e00c | | Load 0x0,0xc
051b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051c 00e1 | | Load_Encached Boolean_Cache
051d 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
051f BODY_0500:
051f e00c | | Load 0x0,0xc
0520 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0521 e403 | | Load 0x2,0x3
0522 0120 | | Execute Any,Is_Value
0523 6803 |h | Jump_Zero 0x527
0524 e00c | | Load 0x0,0xc
0525 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0526 7801 |x | Jump 0x528
0527 e403 | | Load 0x2,0x3
0528 e404 | | Load 0x2,0x4
0529 e006 | | Load 0x0,0x6
052a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
052c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
052d c403 | | Store 0x2,0x3
052e 005b | [ | Store_Top Discrete,At_Offset_3
052f e00c | | Load 0x0,0xc
0530 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0531 00e1 | | Load_Encached Boolean_Cache
0532 6055 |`U | Indirect_Literal Discrete,0x588,{0x00000000, 0x00004000}
0533 e00d | | Load 0x0,0xd
0534 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0535 e403 | | Load 0x2,0x3
0536 e00c | | Load 0x0,0xc
0537 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0538 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0539 005b | [ | Store_Top Discrete,At_Offset_3
053a 005b | [ | Store_Top Discrete,At_Offset_3
053b 00db | | Load_Top At_Offset_3
053c e006 | | Load 0x0,0x6
053d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
053f 7002 |p | Jump_Nonzero 0x542
0540 00da | | Load_Top At_Offset_2
0541 6802 |h | Jump_Zero 0x544
0542 e20d | | Load 0x1,0xd
0543 0257 | W | Execute Discrete,Raise
0544 00d9 | | Load_Top At_Offset_1
0545 680e |h | Jump_Zero 0x554
0546 0092 091e | | Action Push_String_Extended,0x91e ; "<Verbose> Raise_Error"
0548 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
054a 0092 091f | | Action Push_String_Extended,0x91f ; "<TOMORROW>"
054c 4803 |H | Short_Literal 0x3
054d 4800 |H | Short_Literal 0x0
054e 4801 |H | Short_Literal 0x1
054f 4801 |H | Short_Literal 0x1
0550 00ea | | Load_Encached Null_String_Cache
0551 e5fe | | Load 0x2,-0x2
0552 e009 | | Load 0x0,0x9
0553 180d | | Execute Package,Field_Execute,Field_Number 0xd
0554 8407 | | Call 0x2,0x7
0555 4800 |H | Short_Literal 0x0
0556 4801 |H | Short_Literal 0x1
0557 4802 |H | Short_Literal 0x2
0558 e00e | | Load 0x0,0xe
0559 1815 | | Execute Package,Field_Execute,Field_Number 0x15
055a e00e | | Load 0x0,0xe
055b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
055c e402 | | Load 0x2,0x2
055d e00b | | Load 0x0,0xb
055e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
055f 0092 0920 | | Action Push_String_Extended,0x920 ; " ||| "
0561 e402 | | Load 0x2,0x2
0562 e00b | | Load 0x0,0xb
0563 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0564 e004 | | Load 0x0,0x4
0565 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0566 e004 | | Load 0x0,0x4
0567 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0568 e402 | | Load 0x2,0x2
0569 e00b | | Load 0x0,0xb
056a 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
056b 0092 0920 | | Action Push_String_Extended,0x920 ; " ||| "
056d e402 | | Load 0x2,0x2
056e e00b | | Load 0x0,0xb
056f 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0570 e5ff | | Load 0x2,-0x1
0571 e402 | | Load 0x2,0x2
0572 e00b | | Load 0x0,0xb
0573 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0574 4801 |H | Short_Literal 0x1
0575 e402 | | Load 0x2,0x2
0576 e00b | | Load 0x0,0xb
0577 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0578 e402 | | Load 0x2,0x2
0579 e00b | | Load 0x0,0xb
057a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
057b c402 | | Store 0x2,0x2
057c 00d9 | | Load_Top At_Offset_1
057d 6808 |h | Jump_Zero 0x586
057e 0092 091e | | Action Push_String_Extended,0x91e ; "<Verbose> Raise_Error"
0580 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
0582 00ea | | Load_Encached Null_String_Cache
0583 e5fe | | Load 0x2,-0x2
0584 e009 | | Load 0x0,0x9
0585 180e | | Execute Package,Field_Execute,Field_Number 0xe
0586 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0587 0000 | | .XXX[0x1]
0588 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
058c 0000 0000 | | .BLANK 0000[0x4]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05bb | | .CONST 0x05bb ; Address of begin
0591 063e | > | .CONST 0x063e ; Address of exception handler
0592 000b | | .CONST 0x000b ; Number of locals
0593 INIT_0590:
0593 e002 | | Load 0x0,0x2
0594 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0595 02c7 | | Declare_Variable Any
0596 e002 | | Load 0x0,0x2
0597 180e | | Execute Package,Field_Execute,Field_Number 0xe
0598 a402 | | Store_Unchecked 0x2,0x2
0599 e00b | | Load 0x0,0xb
059a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059b 02c7 | | Declare_Variable Any
059c 00d8 | | Load_Top At_Offset_0
059d 1c00 | | Execute_Immediate Run_Utility,0x0
059e e00c | | Load 0x0,0xc
059f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05a0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05a1 02c7 | | Declare_Variable Any
05a2 00d8 | | Load_Top At_Offset_0
05a3 1c00 | | Execute_Immediate Run_Utility,0x0
05a4 e00c | | Load 0x0,0xc
05a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a6 e00c | | Load 0x0,0xc
05a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a8 e00c | | Load 0x0,0xc
05a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ab e00c | | Load 0x0,0xc
05ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05ad 02ff | | Declare_Variable Variant_Record
05ae 00d8 | | Load_Top At_Offset_0
05af 1c00 | | Execute_Immediate Run_Utility,0x0
05b0 e00c | | Load 0x0,0xc
05b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05b2 02c7 | | Declare_Variable Any
05b3 00d8 | | Load_Top At_Offset_0
05b4 1c00 | | Execute_Immediate Run_Utility,0x0
05b5 0007 | | Action Break_Optional
05b6 0007 | | Action Break_Optional
05b7 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call
05b9 029f 084b | K| Declare_Subprogram INIT_0848,For_Call
05bb BODY_0590:
05bb 840b | | Call 0x2,0xb
05bc e00c | | Load 0x0,0xc
05bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05bf e404 | | Load 0x2,0x4
05c0 67c7 |g | Indirect_Literal Discrete,0x588,{0x00000000, 0x00004000}
05c1 e00d | | Load 0x0,0xd
05c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c3 e00f | | Load 0x0,0xf
05c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05c5 e010 | | Load 0x0,0x10
05c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05c7 4801 |H | Short_Literal 0x1
05c8 4800 |H | Short_Literal 0x0
05c9 e00f | | Load 0x0,0xf
05ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05cb e00c | | Load 0x0,0xc
05cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05ce e5ff | | Load 0x2,-0x1
05cf e00c | | Load 0x0,0xc
05d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05d1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05d2 c404 | | Store 0x2,0x4
05d3 c407 | | Store 0x2,0x7
05d4 e407 | | Load 0x2,0x7
05d5 0f03 | | Execute_Immediate Equal,0x3
05d6 6805 |h | Jump_Zero 0x5dc
05d7 e403 | | Load 0x2,0x3
05d8 e00b | | Load 0x0,0xb
05d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05da c403 | | Store 0x2,0x3
05db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05dc e407 | | Load 0x2,0x7
05dd 680f |h | Jump_Zero 0x5ed
05de e407 | | Load 0x2,0x7
05df e00c | | Load 0x0,0xc
05e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05e2 011c | | Execute Any,Convert_Unchecked
05e3 1c01 | | Execute_Immediate Run_Utility,0x1
05e4 0092 0921 | !| Action Push_String_Extended,0x921 ; " returned resolving "
05e6 01cc | | Execute Vector,Catenate
05e7 e5ff | | Load 0x2,-0x1
05e8 01cc | | Execute Vector,Catenate
05e9 8212 | | Call 0x1,0x12
05ea e002 | | Load 0x0,0x2
05eb 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
05ec 0257 | W | Execute Discrete,Raise
05ed 00cf | | Action Mark_Auxiliary
05ee 7844 |xD | Jump 0x633
05ef e00c | | Load 0x0,0xc
05f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f1 e408 | | Load 0x2,0x8
05f2 6795 |g | Indirect_Literal Discrete,0x588,{0x00000000, 0x00004000}
05f3 e00d | | Load 0x0,0xd
05f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f5 e404 | | Load 0x2,0x4
05f6 e00c | | Load 0x0,0xc
05f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05f8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05f9 00d1 | | Pop_Control Pop_Count_1
05fa c405 | | Store 0x2,0x5
05fb e00c | | Load 0x0,0xc
05fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05fd e409 | | Load 0x2,0x9
05fe 0120 | | Execute Any,Is_Value
05ff 6803 |h | Jump_Zero 0x603
0600 e00c | | Load 0x0,0xc
0601 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0602 7801 |x | Jump 0x604
0603 e409 | | Load 0x2,0x9
0604 e404 | | Load 0x2,0x4
0605 e00c | | Load 0x0,0xc
0606 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0607 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0608 c409 | | Store 0x2,0x9
0609 c406 | | Store 0x2,0x6
060a e405 | | Load 0x2,0x5
060b 7002 |p | Jump_Nonzero 0x60e
060c e406 | | Load 0x2,0x6
060d 680e |h | Jump_Zero 0x61c
060e e002 | | Load 0x0,0x2
060f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0610 4807 |H | Short_Literal 0x7
0611 e405 | | Load 0x2,0x5
0612 e00c | | Load 0x0,0xc
0613 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0614 011c | | Execute Any,Convert_Unchecked
0615 1c01 | | Execute_Immediate Run_Utility,0x1
0616 0092 0922 | "| Action Push_String_Extended,0x922 ; " returned getting default version for object"
0618 01cc | | Execute Vector,Catenate
0619 e005 | | Load 0x0,0x5
061a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
061b 7811 |x | Jump 0x62d
061c e404 | | Load 0x2,0x4
061d 840a | | Call 0x2,0xa
061e 700e |p | Jump_Nonzero 0x62d
061f 00db | | Load_Top At_Offset_3
0620 e00c | | Load 0x0,0xc
0621 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0622 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0623 0092 0923 | #| Action Push_String_Extended,0x923 ; " => "
0625 01cc | | Execute Vector,Catenate
0626 e408 | | Load 0x2,0x8
0627 e011 | | Load 0x0,0x11
0628 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0629 01cc | | Execute Vector,Catenate
062a e403 | | Load 0x2,0x3
062b e00b | | Load 0x0,0xb
062c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
062d e404 | | Load 0x2,0x4
062e e00c | | Load 0x0,0xc
062f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0630 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0631 c404 | | Store 0x2,0x4
0632 00c9 | | Action Pop_Auxiliary_Loop
0633 e404 | | Load 0x2,0x4
0634 e00c | | Load 0x0,0xc
0635 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0636 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0637 6fb7 |o | Jump_Zero 0x5ef
0638 00ce | | Action Pop_Auxiliary
0639 e403 | | Load 0x2,0x3
063a e00b | | Load 0x0,0xb
063b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
063c c403 | | Store 0x2,0x3
063d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
063e TRAP_0590:
063e 0007 | | Action Break_Optional
063f e002 | | Load 0x0,0x2
0640 180e | | Execute Package,Field_Execute,Field_Number 0xe
0641 4808 |H | Short_Literal 0x8
0642 0092 0924 | $| Action Push_String_Extended,0x924 ; "Save_Acls: "
0644 4801 |H | Short_Literal 0x1
0645 4801 |H | Short_Literal 0x1
0646 e012 | | Load 0x0,0x12
0647 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0648 01cc | | Execute Vector,Catenate
0649 e005 | | Load 0x0,0x5
064a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
064b e403 | | Load 0x2,0x3
064c e00b | | Load 0x0,0xb
064d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
064e 6804 |h | Jump_Zero 0x653
064f e403 | | Load 0x2,0x3
0650 e00b | | Load 0x0,0xb
0651 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0652 c403 | | Store 0x2,0x3
0653 00d8 | | Load_Top At_Offset_0
0654 0101 | | Execute Exception,Reraise
0655 0000 0000 | | .XXX[0x3]
0657 0000 | |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0664 | d | .CONST 0x0664 ; Address of begin
0659 0679 | y | .CONST 0x0679 ; Address of exception handler
065a 0004 | | .CONST 0x0004 ; Number of locals
065b INIT_0658:
065b e00b | | Load 0x0,0xb
065c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065d 02c7 | | Declare_Variable Any
065e 00d8 | | Load_Top At_Offset_0
065f 1c00 | | Execute_Immediate Run_Utility,0x0
0660 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
0662 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0664 BODY_0658:
0664 00da | | Load_Top At_Offset_2
0665 00ea | | Load_Encached Null_String_Cache
0666 e5ff | | Load 0x2,-0x1
0667 4800 |H | Short_Literal 0x0
0668 e00b | | Load 0x0,0xb
0669 1815 | | Execute Package,Field_Execute,Field_Number 0x15
066a c402 | | Store 0x2,0x2
066b 00cf | | Action Mark_Auxiliary
066c 7802 |x | Jump 0x66f
066d 8404 | | Call 0x2,0x4
066e 00c9 | | Action Pop_Auxiliary_Loop
066f 00db | | Load_Top At_Offset_3
0670 e00b | | Load 0x0,0xb
0671 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0672 6ffa |o | Jump_Zero 0x66d
0673 00ce | | Action Pop_Auxiliary
0674 00da | | Load_Top At_Offset_2
0675 e00b | | Load 0x0,0xb
0676 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0677 c402 | | Store 0x2,0x2
0678 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0679 TRAP_0658:
0679 0007 | | Action Break_Optional
067a e002 | | Load 0x0,0x2
067b 180e | | Execute Package,Field_Execute,Field_Number 0xe
067c 4808 |H | Short_Literal 0x8
067d 0092 0925 | %| Action Push_String_Extended,0x925 ; "Restore_Acls: "
067f 4801 |H | Short_Literal 0x1
0680 4801 |H | Short_Literal 0x1
0681 e012 | | Load 0x0,0x12
0682 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0683 01cc | | Execute Vector,Catenate
0684 e005 | | Load 0x0,0x5
0685 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0686 00db | | Load_Top At_Offset_3
0687 e00b | | Load 0x0,0xb
0688 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0689 6804 |h | Jump_Zero 0x68e
068a 00db | | Load_Top At_Offset_3
068b e00b | | Load 0x0,0xb
068c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
068d c402 | | Store 0x2,0x2
068e 00d8 | | Load_Top At_Offset_0
068f 0101 | | Execute Exception,Reraise
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 06a0 | | .CONST 0x06a0 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 4800 |H | Short_Literal 0x0
0694 0093 08e3 | | push_full_address INIT_08e0
0696 00f5 | | Load_Encached Unused21
0697 037d | } | Declare_Type Task,Defined
0698 036f | o | Declare_Variable Task
0699 e5fd | | Load 0x2,-0x3
069a e5fe | | Load 0x2,-0x2
069b e5ff | | Load 0x2,-0x1
069c e013 | | Load 0x0,0x13
069d 4804 |H | Short_Literal 0x4
069e e402 | | Load 0x2,0x2
069f 020e | | Execute Module,Augment_Imports
06a0 BODY_0690:
06a0 00be | | Action Activate_Tasks
06a1 0008 | | Action Idle
06a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06a3 0000 0000 | | .BLANK 0000[0x5]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06bb | | .CONST 0x06bb ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab 4800 |H | Short_Literal 0x0
06ac 0093 08d3 | | push_full_address INIT_08d0
06ae 00f5 | | Load_Encached Unused21
06af 037d | } | Declare_Type Task,Defined
06b0 036f | o | Declare_Variable Task
06b1 e5fa | | Load 0x2,-0x6
06b2 e5fb | | Load 0x2,-0x5
06b3 e5fc | | Load 0x2,-0x4
06b4 e5fd | | Load 0x2,-0x3
06b5 e5fe | | Load 0x2,-0x2
06b6 e5ff | | Load 0x2,-0x1
06b7 e013 | | Load 0x0,0x13
06b8 4807 |H | Short_Literal 0x7
06b9 e402 | | Load 0x2,0x2
06ba 020e | | Execute Module,Augment_Imports
06bb BODY_06a8:
06bb 00be | | Action Activate_Tasks
06bc 0008 | | Action Idle
06bd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
06be 0000 0000 | | .XXX[0x2]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06d3 | | .CONST 0x06d3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0002 | | .CONST 0x0002 ; Number of locals
06c3 INIT_06c0:
06c3 4800 |H | Short_Literal 0x0
06c4 0093 08c3 | | push_full_address INIT_08c0
06c6 00f5 | | Load_Encached Unused21
06c7 037d | } | Declare_Type Task,Defined
06c8 036f | o | Declare_Variable Task
06c9 e5fa | | Load 0x2,-0x6
06ca e5fb | | Load 0x2,-0x5
06cb e5fc | | Load 0x2,-0x4
06cc e5fd | | Load 0x2,-0x3
06cd e5fe | | Load 0x2,-0x2
06ce e5ff | | Load 0x2,-0x1
06cf e009 | | Load 0x0,0x9
06d0 4807 |H | Short_Literal 0x7
06d1 e402 | | Load 0x2,0x2
06d2 020e | | Execute Module,Augment_Imports
06d3 BODY_06c0:
06d3 00be | | Action Activate_Tasks
06d4 0008 | | Action Idle
06d5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
06d6 0000 0000 | | .XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06df | | .CONST 0x06df ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0002 | | .CONST 0x0002 ; Number of locals
06db INIT_06d8:
06db e5ff | | Load 0x2,-0x1
06dc e006 | | Load 0x0,0x6
06dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06de 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06df BODY_06d8:
06df e5ff | | Load 0x2,-0x1
06e0 0092 0926 | &| Action Push_String_Extended,0x926 ; "!"
06e2 01df | | Execute Vector,Equal
06e3 7003 |p | Jump_Nonzero 0x6e7
06e4 e5ff | | Load 0x2,-0x1
06e5 01db | | Execute Vector,Length
06e6 7008 |p | Jump_Nonzero 0x6ef
06e7 0092 0927 | '| Action Push_String_Extended,0x927 ; "Directory {"
06e9 e5ff | | Load 0x2,-0x1
06ea 01cc | | Execute Vector,Catenate
06eb 0092 0928 | (| Action Push_String_Extended,0x928 ; "} does not exist?"
06ed 01cc | | Execute Vector,Catenate
06ee 8212 | | Call 0x1,0x12
06ef 00d8 | | Load_Top At_Offset_0
06f0 8214 | | Call 0x1,0x14
06f1 4801 |H | Short_Literal 0x1
06f2 e006 | | Load 0x0,0x6
06f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f5 00da | | Load_Top At_Offset_2
06f6 e006 | | Load 0x0,0x6
06f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06f9 c402 | | Store 0x2,0x2
06fa e402 | | Load 0x2,0x2
06fb e006 | | Load 0x0,0x6
06fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06fd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06fe 6808 |h | Jump_Zero 0x707
06ff 0092 0929 | )| Action Push_String_Extended,0x929 ; "Created Prefix for "
0701 00d9 | | Load_Top At_Offset_1
0702 01cc | | Execute Vector,Catenate
0703 0092 092a | *| Action Push_String_Extended,0x92a ; " but it doesn't exist?"
0705 01cc | | Execute Vector,Catenate
0706 8212 | | Call 0x1,0x12
0707 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0709 0092 092b | +| Action Push_String_Extended,0x92b ; "!Model.R1000"
070b 4800 |H | Short_Literal 0x0
070c 4801 |H | Short_Literal 0x1
070d e5ff | | Load 0x2,-0x1
070e e003 | | Load 0x0,0x3
070f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0710 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0711 0000 0000 | | .BLANK 0000[0x7]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071f | | .CONST 0x071f ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0002 | | .CONST 0x0002 ; Number of locals
071b INIT_0718:
071b e5ff | | Load 0x2,-0x1
071c e006 | | Load 0x0,0x6
071d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
071e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
071f BODY_0718:
071f e5ff | | Load 0x2,-0x1
0720 0092 0926 | &| Action Push_String_Extended,0x926 ; "!"
0722 01df | | Execute Vector,Equal
0723 7003 |p | Jump_Nonzero 0x727
0724 e5ff | | Load 0x2,-0x1
0725 01db | | Execute Vector,Length
0726 7008 |p | Jump_Nonzero 0x72f
0727 0092 0927 | '| Action Push_String_Extended,0x927 ; "Directory {"
0729 e5ff | | Load 0x2,-0x1
072a 01cc | | Execute Vector,Catenate
072b 0092 0928 | (| Action Push_String_Extended,0x928 ; "} does not exist?"
072d 01cc | | Execute Vector,Catenate
072e 8212 | | Call 0x1,0x12
072f 00d8 | | Load_Top At_Offset_0
0730 8214 | | Call 0x1,0x14
0731 4801 |H | Short_Literal 0x1
0732 e006 | | Load 0x0,0x6
0733 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0734 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0735 00da | | Load_Top At_Offset_2
0736 e006 | | Load 0x0,0x6
0737 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0738 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0739 c402 | | Store 0x2,0x2
073a e402 | | Load 0x2,0x2
073b e006 | | Load 0x0,0x6
073c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
073d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
073e 6808 |h | Jump_Zero 0x747
073f 0092 0929 | )| Action Push_String_Extended,0x929 ; "Created Prefix for "
0741 00d9 | | Load_Top At_Offset_1
0742 01cc | | Execute Vector,Catenate
0743 0092 092a | *| Action Push_String_Extended,0x92a ; " but it doesn't exist?"
0745 01cc | | Execute Vector,Catenate
0746 8212 | | Call 0x1,0x12
0747 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0749 0092 092b | +| Action Push_String_Extended,0x92b ; "!Model.R1000"
074b 4800 |H | Short_Literal 0x0
074c 4801 |H | Short_Literal 0x1
074d e5ff | | Load 0x2,-0x1
074e e003 | | Load 0x0,0x3
074f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0750 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0751 0000 0000 | | .BLANK 0000[0x7]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075f | _ | .CONST 0x075f ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0002 | | .CONST 0x0002 ; Number of locals
075b INIT_0758:
075b e5ff | | Load 0x2,-0x1
075c e006 | | Load 0x0,0x6
075d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
075e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
075f BODY_0758:
075f e5ff | | Load 0x2,-0x1
0760 0092 0926 | &| Action Push_String_Extended,0x926 ; "!"
0762 01df | | Execute Vector,Equal
0763 7003 |p | Jump_Nonzero 0x767
0764 e5ff | | Load 0x2,-0x1
0765 01db | | Execute Vector,Length
0766 7008 |p | Jump_Nonzero 0x76f
0767 0092 0927 | '| Action Push_String_Extended,0x927 ; "Directory {"
0769 e5ff | | Load 0x2,-0x1
076a 01cc | | Execute Vector,Catenate
076b 0092 0928 | (| Action Push_String_Extended,0x928 ; "} does not exist?"
076d 01cc | | Execute Vector,Catenate
076e 8212 | | Call 0x1,0x12
076f 00d8 | | Load_Top At_Offset_0
0770 8214 | | Call 0x1,0x14
0771 4801 |H | Short_Literal 0x1
0772 e006 | | Load 0x0,0x6
0773 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0774 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0775 00da | | Load_Top At_Offset_2
0776 e006 | | Load 0x0,0x6
0777 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0778 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0779 c402 | | Store 0x2,0x2
077a e402 | | Load 0x2,0x2
077b e006 | | Load 0x0,0x6
077c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
077d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
077e 6808 |h | Jump_Zero 0x787
077f 0092 0929 | )| Action Push_String_Extended,0x929 ; "Created Prefix for "
0781 00d9 | | Load_Top At_Offset_1
0782 01cc | | Execute Vector,Catenate
0783 0092 092a | *| Action Push_String_Extended,0x92a ; " but it doesn't exist?"
0785 01cc | | Execute Vector,Catenate
0786 8212 | | Call 0x1,0x12
0787 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
0789 0092 092b | +| Action Push_String_Extended,0x92b ; "!Model.R1000"
078b 4800 |H | Short_Literal 0x0
078c 4800 |H | Short_Literal 0x0
078d e5ff | | Load 0x2,-0x1
078e e003 | | Load 0x0,0x3
078f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0790 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0791 0000 0000 | | .BLANK 0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079f | | .CONST 0x079f ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0002 | | .CONST 0x0002 ; Number of locals
079b INIT_0798:
079b e5ff | | Load 0x2,-0x1
079c e006 | | Load 0x0,0x6
079d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
079e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
079f BODY_0798:
079f e5ff | | Load 0x2,-0x1
07a0 0092 0926 | &| Action Push_String_Extended,0x926 ; "!"
07a2 01df | | Execute Vector,Equal
07a3 7003 |p | Jump_Nonzero 0x7a7
07a4 e5ff | | Load 0x2,-0x1
07a5 01db | | Execute Vector,Length
07a6 7008 |p | Jump_Nonzero 0x7af
07a7 0092 0927 | '| Action Push_String_Extended,0x927 ; "Directory {"
07a9 e5ff | | Load 0x2,-0x1
07aa 01cc | | Execute Vector,Catenate
07ab 0092 0928 | (| Action Push_String_Extended,0x928 ; "} does not exist?"
07ad 01cc | | Execute Vector,Catenate
07ae 8212 | | Call 0x1,0x12
07af 00d8 | | Load_Top At_Offset_0
07b0 8214 | | Call 0x1,0x14
07b1 4801 |H | Short_Literal 0x1
07b2 e006 | | Load 0x0,0x6
07b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07b5 00da | | Load_Top At_Offset_2
07b6 e006 | | Load 0x0,0x6
07b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
07b9 c402 | | Store 0x2,0x2
07ba e402 | | Load 0x2,0x2
07bb e006 | | Load 0x0,0x6
07bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07bd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07be 6808 |h | Jump_Zero 0x7c7
07bf 0092 0929 | )| Action Push_String_Extended,0x929 ; "Created Prefix for "
07c1 00d9 | | Load_Top At_Offset_1
07c2 01cc | | Execute Vector,Catenate
07c3 0092 092a | *| Action Push_String_Extended,0x92a ; " but it doesn't exist?"
07c5 01cc | | Execute Vector,Catenate
07c6 8212 | | Call 0x1,0x12
07c7 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
07c9 4800 |H | Short_Literal 0x0
07ca 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
07cc 00ea | | Load_Encached Null_String_Cache
07cd 0092 092c | ,| Action Push_String_Extended,0x92c ; "R1000"
07cf 4801 |H | Short_Literal 0x1
07d0 00ea | | Load_Encached Null_String_Cache
07d1 4800 |H | Short_Literal 0x0
07d2 0092 092d | -| Action Push_String_Extended,0x92d ; "Rev1"
07d4 e5ff | | Load 0x2,-0x1
07d5 e009 | | Load 0x0,0x9
07d6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
07d7 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
07d9 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
07db 00ea | | Load_Encached Null_String_Cache
07dc 4801 |H | Short_Literal 0x1
07dd 4801 |H | Short_Literal 0x1
07de e5ff | | Load 0x2,-0x1
07df 0092 092e | .| Action Push_String_Extended,0x92e ; ".Rev1_Working"
07e1 01cc | | Execute Vector,Catenate
07e2 e009 | | Load 0x0,0x9
07e3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e5 0000 0000 | | .XXX[0x3]
07e7 0000 | |
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f7 | | .CONST 0x07f7 ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0002 | | .CONST 0x0002 ; Number of locals
07eb INIT_07e8:
07eb 4800 |H | Short_Literal 0x0
07ec 0093 08f3 | | push_full_address INIT_08f0
07ee 00f5 | | Load_Encached Unused21
07ef 037d | } | Declare_Type Task,Defined
07f0 036f | o | Declare_Variable Task
07f1 e403 | | Load 0x2,0x3
07f2 e5fe | | Load 0x2,-0x2
07f3 e009 | | Load 0x0,0x9
07f4 4803 |H | Short_Literal 0x3
07f5 e602 | | Load 0x3,0x2
07f6 020e | | Execute Module,Augment_Imports
07f7 BODY_07e8:
07f7 00be | | Action Activate_Tasks
07f8 0008 | | Action Idle
07f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07fa 0000 0000 | | .BLANK 0000[0x6]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 080a | | .CONST 0x080a ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 e402 | | Load 0x2,0x2
0804 00ea | | Load_Encached Null_String_Cache
0805 e5fe | | Load 0x2,-0x2
0806 e00b | | Load 0x0,0xb
0807 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0808 c402 | | Store 0x2,0x2
0809 4501 |E | Exit_Suprogram New_Top_Offset 0x1
080a TRAP_0800:
080a 00d8 | | Load_Top At_Offset_0
080b 0107 | | Execute Exception,Get_Name
080c 4920 |I | Short_Literal 0x120
080d 492f |I/ | Short_Literal 0x12f
080e 0262 | b | Execute Discrete,In_Range
080f 6808 |h | Jump_Zero 0x818
0810 e402 | | Load 0x2,0x2
0811 00ea | | Load_Encached Null_String_Cache
0812 e5fe | | Load 0x2,-0x2
0813 4801 |H | Short_Literal 0x1
0814 e00b | | Load 0x0,0xb
0815 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0816 c402 | | Store 0x2,0x2
0817 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0818 0100 | | Execute Exception,Raise
0819 0000 0000 | | .BLANK 0000[0x7]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 082a | * | .CONST 0x082a ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0003 | | .CONST 0x0003 ; Number of locals
0823 INIT_0820:
0823 e00c | | Load 0x0,0xc
0824 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0825 02c7 | | Declare_Variable Any
0826 00d8 | | Load_Top At_Offset_0
0827 1c00 | | Execute_Immediate Run_Utility,0x0
0828 e00c | | Load 0x0,0xc
0829 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082a BODY_0820:
082a e00c | | Load 0x0,0xc
082b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082c 00da | | Load_Top At_Offset_2
082d 0120 | | Execute Any,Is_Value
082e 6803 |h | Jump_Zero 0x832
082f e00c | | Load 0x0,0xc
0830 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0831 7801 |x | Jump 0x833
0832 00da | | Load_Top At_Offset_2
0833 e7ff | | Load 0x3,-0x1
0834 e00c | | Load 0x0,0xc
0835 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0836 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0837 c602 | | Store 0x3,0x2
0838 0059 | Y | Store_Top Discrete,At_Offset_1
0839 00d8 | | Load_Top At_Offset_0
083a 7005 |p | Jump_Nonzero 0x840
083b 00d9 | | Load_Top At_Offset_1
083c e00c | | Load 0x0,0xc
083d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
083e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
083f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0840 4800 |H | Short_Literal 0x0
0841 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0842 0000 0000 | | .BLANK 0000[0x6]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0853 | S | .CONST 0x0853 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b e403 | | Load 0x2,0x3
084c 00ea | | Load_Encached Null_String_Cache
084d e5fe | | Load 0x2,-0x2
084e 4801 |H | Short_Literal 0x1
084f e00b | | Load 0x0,0xb
0850 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0851 c403 | | Store 0x2,0x3
0852 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0853 TRAP_0848:
0853 0007 | | Action Break_Optional
0854 e403 | | Load 0x2,0x3
0855 00ea | | Load_Encached Null_String_Cache
0856 e5fe | | Load 0x2,-0x2
0857 4801 |H | Short_Literal 0x1
0858 e00b | | Load 0x0,0xb
0859 1815 | | Execute Package,Field_Execute,Field_Number 0x15
085a c403 | | Store 0x2,0x3
085b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
085c 0000 0000 | | .BLANK 0000[0x4]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0868 | h | .CONST 0x0868 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0002 | | .CONST 0x0002 ; Number of locals
0863 INIT_0860:
0863 e014 | | Load 0x0,0x14
0864 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0865 02c7 | | Declare_Variable Any
0866 00d8 | | Load_Top At_Offset_0
0867 1c00 | | Execute_Immediate Run_Utility,0x0
0868 BODY_0860:
0868 e7fe | | Load 0x3,-0x2
0869 01db | | Execute Vector,Length
086a 7001 |p | Jump_Nonzero 0x86c
086b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
086c 00d8 | | Load_Top At_Offset_0
086d e7fe | | Load 0x3,-0x2
086e e7ff | | Load 0x3,-0x1
086f e011 | | Load 0x0,0x11
0870 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0871 c602 | | Store 0x3,0x2
0872 00d8 | | Load_Top At_Offset_0
0873 e014 | | Load 0x0,0x14
0874 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0875 680a |h | Jump_Zero 0x880
0876 00d8 | | Load_Top At_Offset_0
0877 e014 | | Load 0x0,0x14
0878 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0879 0092 092f | /| Action Push_String_Extended,0x92f ; ": "
087b 01cc | | Execute Vector,Catenate
087c e7ff | | Load 0x3,-0x1
087d 01cc | | Execute Vector,Catenate
087e 8212 | | Call 0x1,0x12
087f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0880 0008 | | Action Idle
0881 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0882 0000 0000 | | .BLANK 0000[0x6]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 0896 | | .CONST 0x0896 ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0003 | | .CONST 0x0003 ; Number of locals
088b INIT_0888:
088b e402 | | Load 0x2,0x2
088c e00b | | Load 0x0,0xb
088d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
088e 4800 |H | Short_Literal 0x0
088f 00d9 | | Load_Top At_Offset_1
0890 0092 0923 | #| Action Push_String_Extended,0x923 ; " => "
0892 e00a | | Load 0x0,0xa
0893 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0894 00e3 | | Load_Encached Natural_Cache
0895 03f1 | | Declare_Variable Discrete,With_Value
0896 BODY_0888:
0896 00d8 | | Load_Top At_Offset_0
0897 00da | | Load_Top At_Offset_2
0898 01dd | | Execute Vector,First
0899 027c | | | Execute Discrete,Less
089a 6808 |h | Jump_Zero 0x8a3
089b 0092 0930 | 0| Action Push_String_Extended,0x930 ; "Input file format is incorrect."
089d 8212 | | Call 0x1,0x12
089e 00d9 | | Load_Top At_Offset_1
089f 8212 | | Call 0x1,0x12
08a0 e002 | | Load 0x0,0x2
08a1 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
08a2 0257 | W | Execute Discrete,Raise
08a3 4820 |H | Short_Literal 0x20
08a4 00d9 | | Load_Top At_Offset_1
08a5 0a04 | | Execute_Immediate Plus,0x4
08a6 00d8 | | Load_Top At_Offset_0
08a7 00e2 | | Load_Encached Integer_Cache
08a8 0260 | ` | Execute Discrete,In_Type
08a9 7001 |p | Jump_Nonzero 0x8ab
08aa 0801 | | Execute_Immediate Raise,0x1
08ab 00db | | Load_Top At_Offset_3
08ac 01dc | | Execute Vector,Last
08ad e602 | | Load 0x3,0x2
08ae 01cf | | Execute Vector,Slice_Read
08af e00a | | Load 0x0,0xa
08b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08b1 4820 |H | Short_Literal 0x20
08b2 00db | | Load_Top At_Offset_3
08b3 01dd | | Execute Vector,First
08b4 00db | | Load_Top At_Offset_3
08b5 e602 | | Load 0x3,0x2
08b6 01cf | | Execute Vector,Slice_Read
08b7 e00a | | Load 0x0,0xa
08b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08b9 8403 | | Call 0x2,0x3
08ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08bb 0000 0000 | | .BLANK 0000[0x5]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c5 | | .CONST 0x08c5 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 000c | | .CONST 0x000c ; Number of locals
08c3 INIT_08c0:
08c3 00bf | | Action Accept_Activation
08c4 00bc | | Action Signal_Activated
08c5 BODY_08c0:
08c5 e001 | | Load 0x0,0x1
08c6 e002 | | Load 0x0,0x2
08c7 e003 | | Load 0x0,0x3
08c8 e004 | | Load 0x0,0x4
08c9 e005 | | Load 0x0,0x5
08ca e006 | | Load 0x0,0x6
08cb e007 | | Load 0x0,0x7
08cc 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
08cd 00bb | | Action Signal_Completion
08ce 0000 0000 | | .XXX[0x2]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d5 | | .CONST 0x08d5 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 000c | | .CONST 0x000c ; Number of locals
08d3 INIT_08d0:
08d3 00bf | | Action Accept_Activation
08d4 00bc | | Action Signal_Activated
08d5 BODY_08d0:
08d5 e001 | | Load 0x0,0x1
08d6 e002 | | Load 0x0,0x2
08d7 e003 | | Load 0x0,0x3
08d8 e004 | | Load 0x0,0x4
08d9 e005 | | Load 0x0,0x5
08da e006 | | Load 0x0,0x6
08db e007 | | Load 0x0,0x7
08dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08dd 00bb | | Action Signal_Completion
08de 0000 0000 | | .XXX[0x2]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e5 | | .CONST 0x08e5 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 000c | | .CONST 0x000c ; Number of locals
08e3 INIT_08e0:
08e3 00bf | | Action Accept_Activation
08e4 00bc | | Action Signal_Activated
08e5 BODY_08e0:
08e5 e001 | | Load 0x0,0x1
08e6 e002 | | Load 0x0,0x2
08e7 e003 | | Load 0x0,0x3
08e8 e004 | | Load 0x0,0x4
08e9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
08ea 00bb | | Action Signal_Completion
08eb 0000 0000 | | .BLANK 0000[0x5]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f5 | | .CONST 0x08f5 ; Address of begin
08f1 0004 | | .CONST 0x0004 ; Address of exception handler
08f2 000c | | .CONST 0x000c ; Number of locals
08f3 INIT_08f0:
08f3 00bf | | Action Accept_Activation
08f4 00bc | | Action Signal_Activated
08f5 BODY_08f0:
08f5 0092 0900 | | Action Push_String_Extended,0x900 ; "<PROFILE>"
08f7 4800 |H | Short_Literal 0x0
08f8 0092 0908 | | Action Push_String_Extended,0x908 ; "<DEFAULT>"
08fa 00ea | | Load_Encached Null_String_Cache
08fb e001 | | Load 0x0,0x1
08fc e002 | | Load 0x0,0x2
08fd e003 | | Load 0x0,0x3
08fe 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
08ff 00bb | | Action Signal_Completion
0900 ; --------------------------------------------------------------------------------------
0900 ; STRING TABLE
0900 ; --------------------------------------------------------------------------------------
0900 0064 | d | .STRTAB 0x0064->0x0932 ; "<PROFILE>"
0901 006b | k | .STRTAB 0x006b->0x0936 ; "$"
0902 006a | j | .STRTAB 0x006a->0x0937 ; "------------------------------------------------------------"
0903 00a4 | | .STRTAB 0x00a4->0x0955 ; "Object "
0904 00a9 | | .STRTAB 0x00a9->0x0958 ; " already exists and it is not a Library?"
0905 00cf | | .STRTAB 0x00cf->0x096c ; " already exists and it is not a World?"
0906 00f3 | | .STRTAB 0x00f3->0x097f ; " already exists and it is not a Spec_Load Subsystem?"
0907 0125 | % | .STRTAB 0x0125->0x0999 ; "<PROFILE> PERSEVERE"
0908 0136 | 6 | .STRTAB 0x0136->0x09a3 ; "<DEFAULT>"
0909 013d | = | .STRTAB 0x013d->0x09a7 ; "<ALL_WORLDS>"
090a 0147 | G | .STRTAB 0x0147->0x09ad ; "_WORKING"
090b 014d | M | .STRTAB 0x014d->0x09b1 ; "Load_View name does not end in _Working? {"
090c 0175 | u | .STRTAB 0x0175->0x09c6 ; "}"
090d 0174 | t | .STRTAB 0x0174->0x09c7 ; " was created by us but is not a Load_View?"
090e 019c | | .STRTAB 0x019c->0x09dc ; "Combined_View name does not end in _Working? {"
090f 01c8 | | .STRTAB 0x01c8->0x09f3 ; " was created by us but is not a Combined_View?"
0910 01f4 | | .STRTAB 0x01f4->0x0a0a ; "Can't create Code_View for nonexistent Load_View? {"
0911 0226 | & | .STRTAB 0x0226->0x0a24 ; " was created by us but is not a Code_View?"
0912 024e | N | .STRTAB 0x024e->0x0a39 ; "Can't create Spec_View for nonexistent Load_View? {"
0913 0280 | | .STRTAB 0x0280->0x0a53 ; "<INHERIT_MODEL>"
0914 028d | | .STRTAB 0x028d->0x0a5a ; "<AUTO_GENERATE>"
0915 029a | | .STRTAB 0x029a->0x0a62 ; "<INHERIT_IMPORTS>"
0916 02a9 | | .STRTAB 0x02a9->0x0a6a ; "<DIRECTORIES>"
0917 02b4 | | .STRTAB 0x02b4->0x0a71 ; ".Units."
0918 02b9 | | .STRTAB 0x02b9->0x0a74 ; " was created by us but is not a Spec_View?"
0919 02e1 | | .STRTAB 0x02e1->0x0a89 ; ".??'s(Source,Installed)"
091a 02f6 | | .STRTAB 0x02f6->0x0a95 ; " is not Coded."
091b 0302 | | .STRTAB 0x0302->0x0a9c ; ".@.??"
091c 0305 | | .STRTAB 0x0305->0x0a9e ; ".Exports.Commands"
091d 0314 | | .STRTAB 0x0314->0x0aa7 ; "[Commands,Environment].?'Spec"
091e 032f | / | .STRTAB 0x032f->0x0ab5 ; "<Verbose> Raise_Error"
091f 0342 | B | .STRTAB 0x0342->0x0ac0 ; "<TOMORROW>"
0920 034a | J | .STRTAB 0x034a->0x0ac5 ; " ||| "
0921 034d | M | .STRTAB 0x034d->0x0ac7 ; " returned resolving "
0922 035f | _ | .STRTAB 0x035f->0x0ad1 ; " returned getting default version for object"
0923 0389 | | .STRTAB 0x0389->0x0ae7 ; " => "
0924 038b | | .STRTAB 0x038b->0x0ae9 ; "Save_Acls: "
0925 0394 | | .STRTAB 0x0394->0x0aef ; "Restore_Acls: "
0926 03a0 | | .STRTAB 0x03a0->0x0af6 ; "!"
0927 039f | | .STRTAB 0x039f->0x0af6 ; "Directory {"
0928 03a8 | | .STRTAB 0x03a8->0x0afc ; "} does not exist?"
0929 03b7 | | .STRTAB 0x03b7->0x0b04 ; "Created Prefix for "
092a 03c8 | | .STRTAB 0x03c8->0x0b0e ; " but it doesn't exist?"
092b 03dc | | .STRTAB 0x03dc->0x0b19 ; "!Model.R1000"
092c 03e6 | | .STRTAB 0x03e6->0x0b1f ; "R1000"
092d 03e9 | | .STRTAB 0x03e9->0x0b21 ; "Rev1"
092e 03eb | | .STRTAB 0x03eb->0x0b23 ; ".Rev1_Working"
092f 03f6 | | .STRTAB 0x03f6->0x0b2a ; ": "
0930 03f6 | | .STRTAB 0x03f6->0x0b2b ; "Input file format is incorrect."
0931 0413 | | .STREND 0x0413->0x0b3a
0932 3c50 524f |<PRO| .STRTAB_STRINGS
0b3b 0000 0000 | | .BLANK 0000[0x5]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; Debug Table
0b40 ; --------------------------------------------------------------------------------------
0b40 0004 0004 | | .DEBUG4 0x0004,0x0004,0xfa3b,0x0000,0x0001,0x0000
0b46 289d 58a0 |( X | .XXX[0xba]
0b48 cca4 2911 | ) |
0b4a a5c9 958d | |
0b4c d1bd c9e4 | |
0b4e e881 1905 | |
0b50 314d 1429 |1M )|
0b52 259d b9bd |% |
0b54 c994 e881 | |
0b56 1905 314d | 1M|
0b58 1429 3995 | )9 |
0b5a dce8 8119 | |
0b5c 0531 4d14 | 1M |
0b5e 28f4 f4f4 |( |
0b60 f429 5115 | )Q |
0b62 4d51 7d55 |MQ}U|
0b64 5125 3125 |Q%1%|
0b66 5125 154c |Q% L|
0b68 b951 154d | Q M|
0b6a 517d 253c |Q}%<|
0b6c 9d09 3d11 | = |
0b6e 6429 d195 |d) |
0b70 cdd0 b5d5 | |
0b72 d1a5 b1a5 | |
0b74 d1a5 95cc | |
0b76 bc29 5195 | )Q |
0b78 cdd1 7d25 | }%|
0b7a bcb9 412d | A-|
0b7c 0828 9d58 | ( X|
0b7e a0cc a429 | )|
0b80 11a5 c995 | |
0b82 8dd1 bdc9 | |
0b84 e4e8 8119 | |
0b86 0531 4d14 | 1M |
0b88 2925 9db9 |)% |
0b8a bdc9 94e8 | |
0b8c 8119 0531 | 1|
0b8e 4d14 2939 |M )9|
0b90 95dc e881 | |
0b92 1905 314d | 1M|
0b94 1428 f4f4 | ( |
0b96 f4f4 2951 | )Q|
0b98 154d 517d | MQ}|
0b9a 5551 2531 |UQ%1|
0b9c 2551 2515 |%Q% |
0b9e 4cb9 5115 |L Q |
0ba0 4d51 7d25 |MQ}%|
0ba2 3c9d 4d41 |< MA|
0ba4 150c 29d1 | ) |
0ba6 95cd d0b5 | |
0ba8 d5d1 a5b1 | |
0baa a5d1 a595 | |
0bac ccbc 2951 | )Q|
0bae 95cd d17d | }|
0bb0 25bc b941 |% A|
0bb2 2d4c 289d |-L( |
0bb4 58a0 cca4 |X |
0bb6 2911 a5c9 |) |
0bb8 958d d1bd | |
0bba c9e4 e881 | |
0bbc 1905 314d | 1M|
0bbe 1429 259d | )% |
0bc0 b9bd c994 | |
0bc2 e881 1905 | |
0bc4 314d 1429 |1M )|
0bc6 3995 dce8 |9 |
0bc8 8119 0531 | 1|
0bca 4d14 28f4 |M ( |
0bcc f4f4 f429 | )|
0bce 5115 4d51 |Q MQ|
0bd0 7d55 5125 |}UQ%|
0bd2 3125 5125 |1%Q%|
0bd4 154c b951 | L Q|
0bd6 4905 417d |I A}|
0bd8 1549 493d | II=|
0bda 497d 4915 |I}I |
0bdc 413d 4951 |A=IQ|
0bde 4c9d 093d |L =|
0be0 1164 29d1 | d) |
0be2 95cd d0b5 | |
0be4 d5d1 a5b1 | |
0be6 a5d1 a595 | |
0be8 ccbc 2951 | )Q|
0bea c985 c115 | |
0bec c9c9 4995 | I |
0bee c0b9 412d | A-|
0bf0 0828 9d58 | ( X|
0bf2 a0cc a429 | )|
0bf4 11a5 c995 | |
0bf6 8dd1 bdc9 | |
0bf8 e4e8 8119 | |
0bfa 0531 4d14 | 1M |
0bfc 2925 9db9 |)% |
0bfe bdc9 94e8 | |