|
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_5e40f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0ae8 | | .CONST 0x0ae8 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 00c0 | | .CONST 0x00c0 ; Address of begin 0019 02a1 | | .CONST 0x02a1 ; Address of exception handler 001a 0023 | # | .CONST 0x0023 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4809 |H | Short_Literal 0x9 001d 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 e001 | | Load 0x0,0x1 0021 e002 | | Load 0x0,0x2 0022 00da | | Load_Top At_Offset_2 0023 4800 |H | Short_Literal 0x0 0024 4801 |H | Short_Literal 0x1 0025 4809 |H | Short_Literal 0x9 0026 0092 0588 | | Action Push_String_Extended,0x588 ; "pre_demote..remove_read_only_pragma => boolean" 0028 00ea | | Load_Encached Null_String_Cache 0029 0092 0589 | | Action Push_String_Extended,0x589 ; "pre_demote => pre-demote" 002b 4801 |H | Short_Literal 0x1 002c 4809 |H | Short_Literal 0x9 002d e003 | | Load 0x0,0x3 002e 0387 | | Declare_Variable Package 002f 00d8 | | Load_Top At_Offset_0 0030 020f | | Execute Module,Activate 0031 485f |H_ | Short_Literal 0x5f 0032 4800 |H | Short_Literal 0x0 0033 4803 |H | Short_Literal 0x3 0034 4804 |H | Short_Literal 0x4 0035 e004 | | Load 0x0,0x4 0036 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0037 e004 | | Load 0x0,0x4 0038 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0039 01ca | | Execute Vector,Prepend 003a 0007 | | Action Break_Optional 003b 0092 058a | | Action Push_String_Extended,0x58a ; "$$.Internal." 003d 0092 058b | | Action Push_String_Extended,0x58b ; "$$.Logs." 003f 0092 058c | | Action Push_String_Extended,0x58c ; "$$.Archives." 0041 0092 058d | | Action Push_String_Extended,0x58d ; "$$.Universe" 0043 0092 058e | | Action Push_String_Extended,0x58e ; "[!Commands.Abbreviations.@, !Machine.[Editor_Data.@_Commands]]'Body" 0045 e5ff | | Load 0x2,-0x1 0046 8005 | | Call 0x0,0x5 0047 0092 058f | | Action Push_String_Extended,0x58f ; "$$.Lists.Units_To_Be_Updated" 0049 0092 0590 | | Action Push_String_Extended,0x590 ; "$$.Lists.Updated_Units" 004b 0092 0591 | | Action Push_String_Extended,0x591 ; "!Machine.Release.Archive.Environment." 004d 00db | | Load_Top At_Offset_3 004e 01cc | | Execute Vector,Catenate 004f 0092 0592 | | Action Push_String_Extended,0x592 ; ".Segments" 0051 01cc | | Execute Vector,Catenate 0052 0007 | | Action Break_Optional 0053 e006 | | Load 0x0,0x6 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 02c7 | | Declare_Variable Any 0056 e006 | | Load 0x0,0x6 0057 180e | | Execute Package,Field_Execute,Field_Number 0xe 0058 a40e | | Store_Unchecked 0x2,0xe 0059 e006 | | Load 0x0,0x6 005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005b 02c7 | | Declare_Variable Any 005c 00d8 | | Load_Top At_Offset_0 005d 1c00 | | Execute_Immediate Run_Utility,0x0 005e e007 | | Load 0x0,0x7 005f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0060 e008 | | Load 0x0,0x8 0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0062 0322 | " | Declare_Variable Record 0063 00d8 | | Load_Top At_Offset_0 0064 1c00 | | Execute_Immediate Run_Utility,0x0 0065 e5fd | | Load 0x2,-0x3 0066 0092 0593 | | Action Push_String_Extended,0x593 ; ", backup" 0068 01cc | | Execute Vector,Catenate 0069 e403 | | Load 0x2,0x3 006a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 006b 4800 |H | Short_Literal 0x0 006c 4801 |H | Short_Literal 0x1 006d 00da | | Load_Top At_Offset_2 006e e403 | | Load 0x2,0x3 006f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0070 00e1 | | Load_Encached Boolean_Cache 0071 03f1 | | Declare_Variable Discrete,With_Value 0072 4801 |H | Short_Literal 0x1 0073 4802 |H | Short_Literal 0x2 0074 00db | | Load_Top At_Offset_3 0075 e403 | | Load 0x2,0x3 0076 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0077 00e1 | | Load_Encached Boolean_Cache 0078 03f1 | | Declare_Variable Discrete,With_Value 0079 4800 |H | Short_Literal 0x0 007a 4809 |H | Short_Literal 0x9 007b e412 | | Load 0x2,0x12 007c e403 | | Load 0x2,0x3 007d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 007e 00e1 | | Load_Encached Boolean_Cache 007f 03f1 | | Declare_Variable Discrete,With_Value 0080 4801 |H | Short_Literal 0x1 0081 4803 |H | Short_Literal 0x3 0082 e412 | | Load 0x2,0x12 0083 e403 | | Load 0x2,0x3 0084 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0085 00e1 | | Load_Encached Boolean_Cache 0086 03f1 | | Declare_Variable Discrete,With_Value 0087 4800 |H | Short_Literal 0x0 0088 4805 |H | Short_Literal 0x5 0089 e412 | | Load 0x2,0x12 008a e403 | | Load 0x2,0x3 008b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 008c 00e1 | | Load_Encached Boolean_Cache 008d 03f1 | | Declare_Variable Discrete,With_Value 008e 4801 |H | Short_Literal 0x1 008f 4804 |H | Short_Literal 0x4 0090 e412 | | Load 0x2,0x12 0091 e403 | | Load 0x2,0x3 0092 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0093 00e1 | | Load_Encached Boolean_Cache 0094 03f1 | | Declare_Variable Discrete,With_Value 0095 4801 |H | Short_Literal 0x1 0096 4806 |H | Short_Literal 0x6 0097 e412 | | Load 0x2,0x12 0098 e403 | | Load 0x2,0x3 0099 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 009a 00e1 | | Load_Encached Boolean_Cache 009b 03f1 | | Declare_Variable Discrete,With_Value 009c 4801 |H | Short_Literal 0x1 009d 4807 |H | Short_Literal 0x7 009e e412 | | Load 0x2,0x12 009f e403 | | Load 0x2,0x3 00a0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00a1 00e1 | | Load_Encached Boolean_Cache 00a2 03f1 | | Declare_Variable Discrete,With_Value 00a3 4801 |H | Short_Literal 0x1 00a4 4808 |H | Short_Literal 0x8 00a5 e412 | | Load 0x2,0x12 00a6 e403 | | Load 0x2,0x3 00a7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00a8 00e1 | | Load_Encached Boolean_Cache 00a9 03f1 | | Declare_Variable Discrete,With_Value 00aa e009 | | Load 0x0,0x9 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac 02c7 | | Declare_Variable Any 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af e009 | | Load 0x0,0x9 00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b1 02c7 | | Declare_Variable Any 00b2 00d8 | | Load_Top At_Offset_0 00b3 1c00 | | Execute_Immediate Run_Utility,0x0 00b4 029f 030b | | Declare_Subprogram INIT_0308,For_Call 00b6 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 00b8 029f 039b | | Declare_Subprogram INIT_0398,For_Call 00ba 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 00bc 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 00be 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 00c0 BODY_0018: 00c0 4801 |H | Short_Literal 0x1 00c1 e007 | | Load 0x0,0x7 00c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c3 e007 | | Load 0x0,0x7 00c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c5 7008 |p | Jump_Nonzero 0xce 00c6 e006 | | Load 0x0,0x6 00c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c8 4805 |H | Short_Literal 0x5 00c9 0092 0594 | | Action Push_String_Extended,0x594 ; "Aborting environment installation: Could not set PRIVILEGED MODE." 00cb e00a | | Load 0x0,0xa 00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cd 79c9 |y | Jump 0x297 00ce 0092 0595 | | Action Push_String_Extended,0x595 ; "$$.Combined_Mload" 00d0 800b | | Call 0x0,0xb 00d1 7019 |p | Jump_Nonzero 0xeb 00d2 e006 | | Load 0x0,0x6 00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d4 4805 |H | Short_Literal 0x5 00d5 0092 0596 | | Action Push_String_Extended,0x596 ; "Aborting environment installation: " 00d7 6200 |b | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00004000} 00d8 e00c | | Load 0x0,0xc 00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00da e00d | | Load 0x0,0xd 00db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00dc e00e | | Load 0x0,0xe 00dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00df 0092 0597 | | Action Push_String_Extended,0x597 ; "$$" 00e1 e00e | | Load 0x0,0xe 00e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 00e4 01cc | | Execute Vector,Catenate 00e5 0092 0598 | | Action Push_String_Extended,0x598 ; " is not a release world." 00e7 01cc | | Execute Vector,Catenate 00e8 e00a | | Load 0x0,0xa 00e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ea 79ac |y | Jump 0x297 00eb e006 | | Load 0x0,0x6 00ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ed 4803 |H | Short_Literal 0x3 00ee 0092 0599 | | Action Push_String_Extended,0x599 ; "Installing Environment Release " 00f0 e40a | | Load 0x2,0xa 00f1 01cc | | Execute Vector,Catenate 00f2 e00a | | Load 0x0,0xa 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 e406 | | Load 0x2,0x6 00f5 800b | | Call 0x0,0xb 00f6 700b |p | Jump_Nonzero 0x102 00f7 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 00f9 00ea | | Load_Encached Null_String_Cache 00fa 4800 |H | Short_Literal 0x0 00fb 4801 |H | Short_Literal 0x1 00fc 4801 |H | Short_Literal 0x1 00fd 4807 |H | Short_Literal 0x7 00fe e406 | | Load 0x2,0x6 00ff 01cf | | Execute Vector,Slice_Read 0100 e00f | | Load 0x0,0xf 0101 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0102 e006 | | Load 0x0,0x6 0103 180e | | Execute Package,Field_Execute,Field_Number 0xe 0104 e006 | | Load 0x0,0x6 0105 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0106 0092 059b | | Action Push_String_Extended,0x59b ; "$$.Logs.Install_Product" 0108 e404 | | Load 0x2,0x4 0109 01cc | | Execute Vector,Catenate 010a e00a | | Load 0x0,0xa 010b 180e | | Execute Package,Field_Execute,Field_Number 0xe 010c e006 | | Load 0x0,0x6 010d 180e | | Execute Package,Field_Execute,Field_Number 0xe 010e 4803 |H | Short_Literal 0x3 010f 0092 0599 | | Action Push_String_Extended,0x599 ; "Installing Environment Release " 0111 e40a | | Load 0x2,0xa 0112 01cc | | Execute Vector,Catenate 0113 e00a | | Load 0x0,0xa 0114 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0115 e5fe | | Load 0x2,-0x2 0116 01db | | Execute Vector,Length 0117 7006 |p | Jump_Nonzero 0x11e 0118 0092 059c | | Action Push_String_Extended,0x59c ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols), >>>|+++|++*|***|%%%, Activity = !Machine.Release.Current.Activity" 011a e006 | | Load 0x0,0x6 011b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 011c c40f | | Store 0x2,0xf 011d 7804 |x | Jump 0x122 011e e5fe | | Load 0x2,-0x2 011f e006 | | Load 0x0,0x6 0120 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0121 c40f | | Store 0x2,0xf 0122 e40f | | Load 0x2,0xf 0123 e006 | | Load 0x0,0x6 0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0125 e010 | | Load 0x0,0x10 0126 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0127 e010 | | Load 0x0,0x10 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 00d9 | | Load_Top At_Offset_1 012a 00d0 | | Action Swap_Control 012b 0260 | ` | Execute Discrete,In_Type 012c 7001 |p | Jump_Nonzero 0x12e 012d 0801 | | Execute_Immediate Raise,0x1 012e 61a5 |a | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x00003e80} 012f e010 | | Load 0x0,0x10 0130 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0131 e418 | | Load 0x2,0x18 0132 681f |h | Jump_Zero 0x152 0133 e40d | | Load 0x2,0xd 0134 800b | | Call 0x0,0xb 0135 681c |h | Jump_Zero 0x152 0136 4800 |H | Short_Literal 0x0 0137 0092 059d | | Action Push_String_Extended,0x59d ; "Loading Code Segments into Elaborator Database" 0139 8011 | | Call 0x0,0x11 013a e417 | | Load 0x2,0x17 013b 680e |h | Jump_Zero 0x14a 013c 0092 059e | | Action Push_String_Extended,0x59e ; "MAIL" 013e e012 | | Load 0x0,0x12 013f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0140 6809 |h | Jump_Zero 0x14a 0141 4800 |H | Short_Literal 0x0 0142 00ea | | Load_Encached Null_String_Cache 0143 00ea | | Load_Encached Null_String_Cache 0144 e40d | | Load 0x2,0xd 0145 0092 059f | | Action Push_String_Extended,0x59f ; ":No_Mail" 0147 01cc | | Execute Vector,Catenate 0148 8013 | | Call 0x0,0x13 0149 7808 |x | Jump 0x152 014a 4800 |H | Short_Literal 0x0 014b 00ea | | Load_Encached Null_String_Cache 014c 00ea | | Load_Encached Null_String_Cache 014d e40d | | Load 0x2,0xd 014e 0092 05a0 | | Action Push_String_Extended,0x5a0 ; ":Ae" 0150 01cc | | Execute Vector,Catenate 0151 8013 | | Call 0x0,0x13 0152 4800 |H | Short_Literal 0x0 0153 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Checking the Configuration in the Elaborator Database" 0155 8011 | | Call 0x0,0x11 0156 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "<RELEASE>" 0158 e40a | | Load 0x2,0xa 0159 8014 | | Call 0x0,0x14 015a e41a | | Load 0x2,0x1a 015b 680a |h | Jump_Zero 0x166 015c 0092 059e | | Action Push_String_Extended,0x59e ; "MAIL" 015e e012 | | Load 0x0,0x12 015f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0160 7005 |p | Jump_Nonzero 0x166 0161 4800 |H | Short_Literal 0x0 0162 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "Updating the Mail Subsystem" 0164 8011 | | Call 0x0,0x11 0165 8423 | # | Call 0x2,0x23 0166 e416 | | Load 0x2,0x16 0167 688a |h | Jump_Zero 0x1f2 0168 4800 |H | Short_Literal 0x0 0169 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Unfreezing Universe Specs" 016b 8011 | | Call 0x0,0x11 016c e006 | | Load 0x0,0x6 016d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 016e 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "$$.Lists.Frozen_Worlds_Of_The_Universe" 0170 e00a | | Load 0x0,0xa 0171 180e | | Execute Package,Field_Execute,Field_Number 0xe 0172 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0174 4801 |H | Short_Literal 0x1 0175 00ea | | Load_Encached Null_String_Cache 0176 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "[_$$.Lists.Worlds_Of_The_Universe]'if(FROZEN)" 0178 e00f | | Load 0x0,0xf 0179 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017a e40f | | Load 0x2,0xf 017b e006 | | Load 0x0,0x6 017c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 017d e00a | | Load 0x0,0xa 017e 180f | | Execute Package,Field_Execute,Field_Number 0xf 017f 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "$$.Lists.Frozen_Worlds_Of_The_Universe" 0181 8015 | | Call 0x0,0x15 0182 680a |h | Jump_Zero 0x18d 0183 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0185 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "<DIRECTORIES>" 0187 4801 |H | Short_Literal 0x1 0188 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "$$.Lists.Frozen_Worlds_Of_The_Universe" 018a e00f | | Load 0x0,0xf 018b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018c 780b |x | Jump 0x198 018d 4800 |H | Short_Literal 0x0 018e 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Unfreezing Worlds of the Universe" 0190 8011 | | Call 0x0,0x11 0191 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0193 4800 |H | Short_Literal 0x0 0194 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "_$$.Lists.Frozen_Worlds_Of_The_Universe" 0196 e00f | | Load 0x0,0xf 0197 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0198 e413 | | Load 0x2,0x13 0199 680d |h | Jump_Zero 0x1a7 019a 4800 |H | Short_Literal 0x0 019b 0092 05aa | | Action Push_String_Extended,0x5aa ; "Demoting Keymap/Initialize/Abbreviations Bodies for Universe Upgrade" 019d 8011 | | Call 0x0,0x11 019e 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 01a0 4800 |H | Short_Literal 0x0 01a1 0092 05ab | | Action Push_String_Extended,0x5ab ; "<WORLDS>" 01a3 4801 |H | Short_Literal 0x1 01a4 e409 | | Load 0x2,0x9 01a5 e016 | | Load 0x0,0x16 01a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a7 e41c | | Load 0x2,0x1c 01a8 00ea | | Load_Encached Null_String_Cache 01a9 e40b | | Load 0x2,0xb 01aa 4801 |H | Short_Literal 0x1 01ab e009 | | Load 0x0,0x9 01ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ad c41c | | Store 0x2,0x1c 01ae 00ea | | Load_Encached Null_String_Cache 01af 8422 | " | Call 0x2,0x22 01b0 e405 | | Load 0x2,0x5 01b1 8422 | " | Call 0x2,0x22 01b2 e41c | | Load 0x2,0x1c 01b3 e009 | | Load 0x0,0x9 01b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b5 c41c | | Store 0x2,0x1c 01b6 e414 | | Load 0x2,0x14 01b7 680d |h | Jump_Zero 0x1c5 01b8 4800 |H | Short_Literal 0x0 01b9 0092 05ac | | Action Push_String_Extended,0x5ac ; "Creating Text Backup of Existing bodies to be modified" 01bb 8011 | | Call 0x0,0x11 01bc 0092 05ad | | Action Push_String_Extended,0x5ad ; "![_[]$$.Lists.Units_To_Be_Updated]'BODY" 01be 841f | | Call 0x2,0x1f 01bf 0092 05ae | | Action Push_String_Extended,0x5ae ; "![_[]$$.Lists.Updated_Units]'BODY" 01c1 841f | | Call 0x2,0x1f 01c2 0092 05af | | Action Push_String_Extended,0x5af ; "![_[]$$.Internal.$$.Lists.Updated_Units]'BODY" 01c4 841f | | Call 0x2,0x1f 01c5 e415 | | Load 0x2,0x15 01c6 6805 |h | Jump_Zero 0x1cc 01c7 4801 |H | Short_Literal 0x1 01c8 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "$$.Universe.Lrm.System" 01ca e017 | | Load 0x0,0x17 01cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cc 4800 |H | Short_Literal 0x0 01cd 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "Installing changed units." 01cf 8011 | | Call 0x0,0x11 01d0 e40c | | Load 0x2,0xc 01d1 800b | | Call 0x0,0xb 01d2 6805 |h | Jump_Zero 0x1d8 01d3 00ea | | Load_Encached Null_String_Cache 01d4 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "$$.Archives.Universe" 01d6 e40c | | Load 0x2,0xc 01d7 8018 | | Call 0x0,0x18 01d8 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "$$.Internal.$$.Lists.Updated_Units" 01da 800b | | Call 0x0,0xb 01db 6806 |h | Jump_Zero 0x1e2 01dc 00ea | | Load_Encached Null_String_Cache 01dd 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "$$.Internal.$$.Archives.Universe" 01df 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "$$.Internal.$$.Lists.Updated_Units" 01e1 8018 | | Call 0x0,0x18 01e2 e413 | | Load 0x2,0x13 01e3 680e |h | Jump_Zero 0x1f2 01e4 4800 |H | Short_Literal 0x0 01e5 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Re-installing Keymap/Initialize/Abbreviations Bodies." 01e7 8011 | | Call 0x0,0x11 01e8 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 01ea 4800 |H | Short_Literal 0x0 01eb 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "<ALL_WORLDS>" 01ed 4803 |H | Short_Literal 0x3 01ee 4803 |H | Short_Literal 0x3 01ef e409 | | Load 0x2,0x9 01f0 e016 | | Load 0x0,0x16 01f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f2 e419 | | Load 0x2,0x19 01f3 6816 |h | Jump_Zero 0x20a 01f4 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "<ERRORS>" 01f6 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "$$.Archives.Obsolete" 01f8 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "R1000, New, Goal => Source" 01fa 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 01fc 0092 0597 | | Action Push_String_Extended,0x597 ; "$$" 01fe 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 0200 e019 | | Load 0x0,0x19 0201 180e | | Execute Package,Field_Execute,Field_Number 0xe 0202 4800 |H | Short_Literal 0x0 0203 0092 05bc | | Action Push_String_Extended,0x5bc ; "Installing Initialization changes" 0205 8011 | | Call 0x0,0x11 0206 00ea | | Load_Encached Null_String_Cache 0207 e5fe | | Load 0x2,-0x2 0208 e5ff | | Load 0x2,-0x1 0209 801a | | Call 0x0,0x1a 020a e41b | | Load 0x2,0x1b 020b 6839 |h9 | Jump_Zero 0x245 020c 4800 |H | Short_Literal 0x0 020d 0092 05bd | | Action Push_String_Extended,0x5bd ; "Restoring Miscellaneous System Components" 020f 8011 | | Call 0x0,0x11 0210 e411 | | Load 0x2,0x11 0211 0092 05be | | Action Push_String_Extended,0x5be ; "!Copyright_Rational" 0213 e008 | | Load 0x0,0x8 0214 180e | | Execute Package,Field_Execute,Field_Number 0xe 0215 00d1 | | Pop_Control Pop_Count_1 0216 00ea | | Load_Encached Null_String_Cache 0217 4801 |H | Short_Literal 0x1 0218 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 021a 4801 |H | Short_Literal 0x1 021b 0092 05be | | Action Push_String_Extended,0x5be ; "!Copyright_Rational" 021d 0092 05bf | | Action Push_String_Extended,0x5bf ; "$$.Copyright_Notice" 021f e00f | | Load 0x0,0xf 0220 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0221 e411 | | Load 0x2,0x11 0222 e008 | | Load 0x0,0x8 0223 180f | | Execute Package,Field_Execute,Field_Number 0xf 0224 00d1 | | Pop_Control Pop_Count_1 0225 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0227 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "$$.Archives.Miscellany" 0229 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "R1000, Changed, Replace, Remake" 022b 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 022d 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 022f 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 0231 e019 | | Load 0x0,0x19 0232 180e | | Execute Package,Field_Execute,Field_Number 0xe 0233 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "$$.Internal.$$.Archives.Miscellany" 0235 800b | | Call 0x0,0xb 0236 680e |h | Jump_Zero 0x245 0237 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0239 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "$$.Internal.$$.Archives.Miscellany" 023b 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "R1000, New, Replace, Remake" 023d 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 023f 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 0241 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 0243 e019 | | Load 0x0,0x19 0244 180e | | Execute Package,Field_Execute,Field_Number 0xe 0245 4800 |H | Short_Literal 0x0 0246 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "Enabling \x22Install_Subsystems\x22 to run on next reboot." 0248 8011 | | Call 0x0,0x11 0249 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "!Machine" 024b 4802 |H | Short_Literal 0x2 024c 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 024e 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "Install_Subsystems" 0250 e01b | | Load 0x0,0x1b 0251 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0252 6819 |h | Jump_Zero 0x26c 0253 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "!Machine" 0255 4802 |H | Short_Literal 0x2 0256 0092 05c7 | | Action Push_String_Extended,0x5c7 ; "!Machine.Release.Environment." 0258 e40a | | Load 0x2,0xa 0259 01cc | | Execute Vector,Catenate 025a 0092 05c8 | | Action Push_String_Extended,0x5c8 ; ".Load_Procs.Install_Subsystems@" 025c 01cc | | Execute Vector,Catenate 025d 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "Install_Subsystems" 025f e01b | | Load 0x0,0x1b 0260 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0261 700a |p | Jump_Nonzero 0x26c 0262 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "<ERRORS>" 0264 4800 |H | Short_Literal 0x0 0265 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "<ALL_WORLDS>" 0267 4801 |H | Short_Literal 0x1 0268 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "!Machine`Install_Subsystems" 026a e016 | | Load 0x0,0x16 026b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026c 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 026e 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "!Machine" 0270 0092 05ca | | Action Push_String_Extended,0x5ca ; "#" 0272 0092 05cb | | Action Push_String_Extended,0x5cb ; "$$`Install_Subsystems" 0274 e01c | | Load 0x0,0x1c 0275 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0276 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "$$.Lists.Frozen_Worlds_Of_The_Universe" 0278 800b | | Call 0x0,0xb 0279 680b |h | Jump_Zero 0x285 027a 4800 |H | Short_Literal 0x0 027b 0092 05cc | | Action Push_String_Extended,0x5cc ; "Refreezing Worlds of the Universe" 027d 8011 | | Call 0x0,0x11 027e 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0280 4800 |H | Short_Literal 0x0 0281 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "_$$.Lists.Frozen_Worlds_Of_The_Universe" 0283 e00f | | Load 0x0,0xf 0284 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0285 e40e | | Load 0x2,0xe 0286 e006 | | Load 0x0,0x6 0287 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0288 4801 |H | Short_Literal 0x1 0289 0092 05cd | | Action Push_String_Extended,0x5cd ; "Install_Product" 028b 8011 | | Call 0x0,0x11 028c e006 | | Load 0x0,0x6 028d 180e | | Execute Package,Field_Execute,Field_Number 0xe 028e e006 | | Load 0x0,0x6 028f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0290 e00a | | Load 0x0,0xa 0291 180f | | Execute Package,Field_Execute,Field_Number 0xf 0292 0092 059b | | Action Push_String_Extended,0x59b ; "$$.Logs.Install_Product" 0294 e404 | | Load 0x2,0x4 0295 01cc | | Execute Vector,Catenate 0296 801d | | Call 0x0,0x1d 0297 e410 | | Load 0x2,0x10 0298 e007 | | Load 0x0,0x7 0299 1817 | | Execute Package,Field_Execute,Field_Number 0x17 029a 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 029c 0092 05ce | | Action Push_String_Extended,0x5ce ; "snap" 029e e01e | | Load 0x0,0x1e 029f 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a1 TRAP_0018: 02a1 0007 | | Action Break_Optional 02a2 e006 | | Load 0x0,0x6 02a3 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a4 4808 |H | Short_Literal 0x8 02a5 4801 |H | Short_Literal 0x1 02a6 4801 |H | Short_Literal 0x1 02a7 e01f | | Load 0x0,0x1f 02a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02a9 0092 05cf | | Action Push_String_Extended,0x5cf ; " Raised installing release " 02ab 01cc | | Execute Vector,Catenate 02ac e5ff | | Load 0x2,-0x1 02ad 01cc | | Execute Vector,Catenate 02ae e00a | | Load 0x0,0xa 02af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b0 e006 | | Load 0x0,0x6 02b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b2 e006 | | Load 0x0,0x6 02b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02b4 6810 |h | Jump_Zero 0x2c5 02b5 e40e | | Load 0x2,0xe 02b6 e006 | | Load 0x0,0x6 02b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02b8 e006 | | Load 0x0,0x6 02b9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ba e006 | | Load 0x0,0x6 02bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02bc e00a | | Load 0x0,0xa 02bd 180f | | Execute Package,Field_Execute,Field_Number 0xf 02be 0092 059b | | Action Push_String_Extended,0x59b ; "$$.Logs.Install_Product" 02c0 e404 | | Load 0x2,0x4 02c1 01cc | | Execute Vector,Catenate 02c2 801d | | Call 0x0,0x1d 02c3 00d8 | | Load_Top At_Offset_0 02c4 0101 | | Execute Exception,Reraise 02c5 e40e | | Load 0x2,0xe 02c6 e006 | | Load 0x0,0x6 02c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c8 e006 | | Load 0x0,0x6 02c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ca e006 | | Load 0x0,0x6 02cb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02cc e00a | | Load 0x0,0xa 02cd 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ce 0092 059b | | Action Push_String_Extended,0x59b ; "$$.Logs.Install_Product" 02d0 e404 | | Load 0x2,0x4 02d1 01cc | | Execute Vector,Catenate 02d2 801d | | Call 0x0,0x1d 02d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d4 0000 0000 | | .LITERAL {0x00000000, 0x00003e80} 02d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 4607 |F | Jump_Case 0x8 02e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02e5 7806 |x | Jump 0x2ec ; case 0x1 02e6 7809 |x | Jump 0x2f0 ; case 0x2 02e7 780d |x | Jump 0x2f5 ; case 0x3 02e8 7810 |x | Jump 0x2f9 ; case 0x4 02e9 7811 |x | Jump 0x2fb ; case 0x5 02ea 7812 |x | Jump 0x2fd ; case 0x6 02eb 7815 |x | Jump 0x301 ; case 0x7 02ec 00da | | Load_Top At_Offset_2 02ed 0091 057e | ~| Action Push_String_Extended_Indexed,0x57e ; "NIL" 02ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02f0 00db | | Load_Top At_Offset_3 02f1 00db | | Load_Top At_Offset_3 02f2 00e0 | | Load_Encached Standard_Cache 02f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f5 00da | | Load_Top At_Offset_2 02f6 00e0 | | Load_Encached Standard_Cache 02f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02f9 00db | | Load_Top At_Offset_3 02fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fb 00db | | Load_Top At_Offset_3 02fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fd e402 | | Load 0x2,0x2 02fe 00dc | | Load_Top At_Offset_4 02ff 0267 | g | Execute Discrete,Predecessor 0300 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0301 e402 | | Load 0x2,0x2 0302 00dc | | Load_Top At_Offset_4 0303 0268 | h | Execute Discrete,Successor 0304 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0318 | | .CONST 0x0318 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b 4801 |H | Short_Literal 0x1 030c 00db | | Load_Top At_Offset_3 030d 01db | | Execute Vector,Length 030e 00d8 | | Load_Top At_Offset_0 030f 00e2 | | Load_Encached Integer_Cache 0310 0260 | ` | Execute Discrete,In_Type 0311 7001 |p | Jump_Nonzero 0x313 0312 0801 | | Execute_Immediate Raise,0x1 0313 00e9 | | Load_Encached String_Cache 0314 035b | [ | Declare_Type Array,Constrained 0315 0337 | 7 | Declare_Variable Array 0316 00e2 | | Load_Encached Integer_Cache 0317 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0318 BODY_0308: 0318 00cf | | Action Mark_Auxiliary 0319 e7ff | | Load 0x3,-0x1 031a 01d9 | | Execute Vector,Reverse_Bounds 031b 0263 | c | Execute Discrete,Above_Bound 031c 701d |p | Jump_Nonzero 0x33a 031d 00d8 | | Load_Top At_Offset_0 031e e7ff | | Load 0x3,-0x1 031f 01d7 | | Execute Vector,Field_Read 0320 0b27 | ' | Execute_Immediate Case_Compare,0x27 0321 700e |p | Jump_Nonzero 0x330 0322 4828 |H( | Short_Literal 0x28 0323 4829 |H) | Short_Literal 0x29 0324 0262 | b | Execute Discrete,In_Range 0325 7012 |p | Jump_Nonzero 0x338 0326 00db | | Load_Top At_Offset_3 0327 0a01 | | Execute_Immediate Plus,0x1 0328 c603 | | Store 0x3,0x3 0329 00d8 | | Load_Top At_Offset_0 032a e7ff | | Load 0x3,-0x1 032b 01d7 | | Execute Vector,Field_Read 032c e603 | | Load 0x3,0x3 032d e602 | | Load 0x3,0x2 032e 01d6 | | Execute Vector,Field_Write 032f 7808 |x | Jump 0x338 0330 00d1 | | Pop_Control Pop_Count_1 0331 00db | | Load_Top At_Offset_3 0332 0a01 | | Execute_Immediate Plus,0x1 0333 c603 | | Store 0x3,0x3 0334 485f |H_ | Short_Literal 0x5f 0335 e603 | | Load 0x3,0x3 0336 e602 | | Load 0x3,0x2 0337 01d6 | | Execute Vector,Field_Write 0338 00c8 | | Action Pop_Auxiliary_Range 0339 3fe3 |? | Loop_Increasing 0x31d 033a 00ce | | Action Pop_Auxiliary 033b 4801 |H | Short_Literal 0x1 033c 00d9 | | Load_Top At_Offset_1 033d 00db | | Load_Top At_Offset_3 033e 01cf | | Execute Vector,Slice_Read 033f 00e9 | | Load_Encached String_Cache 0340 01c6 | | Execute Vector,Convert_To_Formal 0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0360 | ` | .CONST 0x0360 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0006 | | .CONST 0x0006 ; Number of locals 034b INIT_0348: 034b e00e | | Load 0x0,0xe 034c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 034e 02c7 | | Declare_Variable Any 034f 00d8 | | Load_Top At_Offset_0 0350 1c00 | | Execute_Immediate Run_Utility,0x0 0351 e00e | | Load 0x0,0xe 0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0353 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0354 e009 | | Load 0x0,0x9 0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0356 02c7 | | Declare_Variable Any 0357 00d8 | | Load_Top At_Offset_0 0358 1c00 | | Execute_Immediate Run_Utility,0x0 0359 e009 | | Load 0x0,0x9 035a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035b 02c7 | | Declare_Variable Any 035c 00d8 | | Load_Top At_Offset_0 035d 1c00 | | Execute_Immediate Run_Utility,0x0 035e 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 0360 BODY_0348: 0360 e00e | | Load 0x0,0xe 0361 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0362 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0363 e602 | | Load 0x3,0x2 0364 602b |`+ | Indirect_Literal Discrete,0x390,{0x00000000, 0x00004000} 0365 e00c | | Load 0x0,0xc 0366 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0367 e00d | | Load 0x0,0xd 0368 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0369 e020 | | Load 0x0,0x20 036a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036b 4801 |H | Short_Literal 0x1 036c 4800 |H | Short_Literal 0x0 036d e00d | | Load 0x0,0xd 036e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036f e00e | | Load 0x0,0xe 0370 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0371 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0372 e7ff | | Load 0x3,-0x1 0373 e00e | | Load 0x0,0xe 0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0375 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0376 c602 | | Store 0x3,0x2 0377 c603 | | Store 0x3,0x3 0378 00cf | | Action Mark_Auxiliary 0379 7807 |x | Jump 0x381 037a 8606 | | Call 0x3,0x6 037b e602 | | Load 0x3,0x2 037c e00e | | Load 0x0,0xe 037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 037f c602 | | Store 0x3,0x2 0380 00c9 | | Action Pop_Auxiliary_Loop 0381 e602 | | Load 0x3,0x2 0382 e00e | | Load 0x0,0xe 0383 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0384 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0385 6ff4 |o | Jump_Zero 0x37a 0386 00ce | | Action Pop_Auxiliary 0387 e602 | | Load 0x3,0x2 0388 e00e | | Load 0x0,0xe 0389 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 038a 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 038b c602 | | Store 0x3,0x2 038c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 0390 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c 01db | | Execute Vector,Length 039d e7fe | | Load 0x3,-0x2 039e 01db | | Execute Vector,Length 039f 027b | { | Execute Discrete,Greater_Equal 03a0 6823 |h# | Jump_Zero 0x3c4 03a1 00da | | Load_Top At_Offset_2 03a2 01dd | | Execute Vector,First 03a3 00db | | Load_Top At_Offset_3 03a4 01dd | | Execute Vector,First 03a5 e7fe | | Load 0x3,-0x2 03a6 01db | | Execute Vector,Length 03a7 0273 | s | Execute Discrete,Plus 03a8 0aff | | Execute_Immediate Plus,-0x1 03a9 00d8 | | Load_Top At_Offset_0 03aa 00e2 | | Load_Encached Integer_Cache 03ab 0260 | ` | Execute Discrete,In_Type 03ac 7001 |p | Jump_Nonzero 0x3ae 03ad 0801 | | Execute_Immediate Raise,0x1 03ae e7ff | | Load 0x3,-0x1 03af 01cf | | Execute Vector,Slice_Read 03b0 e7fe | | Load 0x3,-0x2 03b1 01df | | Execute Vector,Equal 03b2 6811 |h | Jump_Zero 0x3c4 03b3 e7fd | | Load 0x3,-0x3 03b4 00db | | Load_Top At_Offset_3 03b5 01dd | | Execute Vector,First 03b6 e7fe | | Load 0x3,-0x2 03b7 01db | | Execute Vector,Length 03b8 0273 | s | Execute Discrete,Plus 03b9 00d8 | | Load_Top At_Offset_0 03ba 00e2 | | Load_Encached Integer_Cache 03bb 0260 | ` | Execute Discrete,In_Type 03bc 7001 |p | Jump_Nonzero 0x3be 03bd 0801 | | Execute_Immediate Raise,0x1 03be e7ff | | Load 0x3,-0x1 03bf 01dc | | Execute Vector,Last 03c0 e7ff | | Load 0x3,-0x1 03c1 01cf | | Execute Vector,Slice_Read 03c2 01cc | | Execute Vector,Catenate 03c3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03c4 00da | | Load_Top At_Offset_2 03c5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d6 | | .CONST 0x03d6 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0004 | | .CONST 0x0004 ; Number of locals 03cb INIT_03c8: 03cb e00e | | Load 0x0,0xe 03cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03ce 02c7 | | Declare_Variable Any 03cf 00d8 | | Load_Top At_Offset_0 03d0 1c00 | | Execute_Immediate Run_Utility,0x0 03d1 e00e | | Load 0x0,0xe 03d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d4 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 03d6 BODY_03c8: 03d6 e00e | | Load 0x0,0xe 03d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d9 00db | | Load_Top At_Offset_3 03da 602d |`- | Indirect_Literal Discrete,0x408,{0x00000000, 0x00004000} 03db e00c | | Load 0x0,0xc 03dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03dd e00d | | Load 0x0,0xd 03de 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03df e020 | | Load 0x0,0x20 03e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e1 4801 |H | Short_Literal 0x1 03e2 4800 |H | Short_Literal 0x0 03e3 e00d | | Load 0x0,0xd 03e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e5 e00e | | Load 0x0,0xe 03e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e8 e7ff | | Load 0x3,-0x1 03e9 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "??'C(WORLD)" 03eb 01cc | | Execute Vector,Catenate 03ec e00e | | Load 0x0,0xe 03ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03ef c602 | | Store 0x3,0x2 03f0 005a | Z | Store_Top Discrete,At_Offset_2 03f1 485d |H] | Short_Literal 0x5d 03f2 485b |H[ | Short_Literal 0x5b 03f3 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 03f5 6012 |` | Indirect_Literal Discrete,0x408,{0x00000000, 0x00004000} 03f6 e00c | | Load 0x0,0xc 03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f8 e00d | | Load 0x0,0xd 03f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03fa e00e | | Load 0x0,0xe 03fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03fd e7ff | | Load 0x3,-0x1 03fe e00e | | Load 0x0,0xe 03ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0400 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0401 8604 | | Call 0x3,0x4 0402 01ca | | Execute Vector,Prepend 0403 01cb | | Execute Vector,Append 0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 040c 0000 0000 | | .BLANK 0000[0x4] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 e407 | | Load 0x2,0x7 0415 01cc | | Execute Vector,Catenate 0416 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Universe" 0418 01cc | | Execute Vector,Catenate 0419 800b | | Call 0x0,0xb 041a 68b0 |h | Jump_Zero 0x4cb 041b e41d | | Load 0x2,0x1d 041c 00ea | | Load_Encached Null_String_Cache 041d e7ff | | Load 0x3,-0x1 041e e40c | | Load 0x2,0xc 041f 01cc | | Execute Vector,Catenate 0420 4801 |H | Short_Literal 0x1 0421 e009 | | Load 0x0,0x9 0422 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0423 c41d | | Store 0x2,0x1d 0424 4800 |H | Short_Literal 0x0 0425 0092 05d2 | | Action Push_String_Extended,0x5d2 ; "Restoring a prototype new Universe " 0427 e7ff | | Load 0x3,-0x1 0428 01cc | | Execute Vector,Catenate 0429 8011 | | Call 0x0,0x11 042a 0092 05d3 | | Action Push_String_Extended,0x5d3 ; "<errors>" 042c 00db | | Load_Top At_Offset_3 042d e407 | | Load 0x2,0x7 042e 01cc | | Execute Vector,Catenate 042f 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Universe" 0431 01cc | | Execute Vector,Catenate 0432 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "R1000, New, Goal => Source" 0434 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 0436 e7ff | | Load 0x3,-0x1 0437 e408 | | Load 0x2,0x8 0438 01cc | | Execute Vector,Catenate 0439 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 043b e019 | | Load 0x0,0x19 043c 180e | | Execute Package,Field_Execute,Field_Number 0xe 043d 4800 |H | Short_Literal 0x0 043e 0092 05d4 | | Action Push_String_Extended,0x5d4 ; "Restoring new Universe specs " 0440 e7ff | | Load 0x3,-0x1 0441 01cc | | Execute Vector,Catenate 0442 8011 | | Call 0x0,0x11 0443 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 0445 00db | | Load_Top At_Offset_3 0446 e407 | | Load 0x2,0x7 0447 01cc | | Execute Vector,Catenate 0448 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Universe" 044a 01cc | | Execute Vector,Catenate 044b 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "R1000, New, Goal => Source" 044d 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 044f 0092 05d5 | | Action Push_String_Extended,0x5d5 ; "!" 0451 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 0453 e019 | | Load 0x0,0x19 0454 180e | | Execute Package,Field_Execute,Field_Number 0xe 0455 4800 |H | Short_Literal 0x0 0456 0092 05d6 | | Action Push_String_Extended,0x5d6 ; "Installing Universe links " 0458 e7ff | | Load 0x3,-0x1 0459 01cc | | Execute Vector,Catenate 045a 8011 | | Call 0x0,0x11 045b 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 045d 00db | | Load_Top At_Offset_3 045e e407 | | Load 0x2,0x7 045f 01cc | | Execute Vector,Catenate 0460 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Universe" 0462 01cc | | Execute Vector,Catenate 0463 0092 05d7 | | Action Push_String_Extended,0x5d7 ; "Links => " 0465 e7ff | | Load 0x3,-0x1 0466 e408 | | Load 0x2,0x8 0467 01cc | | Execute Vector,Catenate 0468 8421 | ! | Call 0x2,0x21 0469 01cc | | Execute Vector,Catenate 046a 0092 05ba | | Action Push_String_Extended,0x5ba ; "*" 046c 0092 05d5 | | Action Push_String_Extended,0x5d5 ; "!" 046e 0092 05bb | | Action Push_String_Extended,0x5bb ; "?" 0470 e019 | | Load 0x0,0x19 0471 180e | | Execute Package,Field_Execute,Field_Number 0xe 0472 00da | | Load_Top At_Offset_2 0473 0092 05d8 | | Action Push_String_Extended,0x5d8 ; "Lists.Forced_Units" 0475 01cc | | Execute Vector,Catenate 0476 8015 | | Call 0x0,0x15 0477 7016 |p | Jump_Nonzero 0x48e 0478 4800 |H | Short_Literal 0x0 0479 0092 05d9 | | Action Push_String_Extended,0x5d9 ; "Installing new Universe specs " 047b e7ff | | Load 0x3,-0x1 047c 01cc | | Execute Vector,Catenate 047d 8011 | | Call 0x0,0x11 047e 0092 05da | | Action Push_String_Extended,0x5da ; "<QUIET>" 0480 4800 |H | Short_Literal 0x0 0481 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "<ALL_WORLDS>" 0483 4803 |H | Short_Literal 0x3 0484 4803 |H | Short_Literal 0x3 0485 0092 05db | | Action Push_String_Extended,0x5db ; "_" 0487 e7ff | | Load 0x3,-0x1 0488 01cc | | Execute Vector,Catenate 0489 0092 05d8 | | Action Push_String_Extended,0x5d8 ; "Lists.Forced_Units" 048b 01cc | | Execute Vector,Catenate 048c e016 | | Load 0x0,0x16 048d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 048e 00da | | Load_Top At_Offset_2 048f 0092 05dc | | Action Push_String_Extended,0x5dc ; "$$.Lists.Incremental_Update_Directives" 0491 01cc | | Execute Vector,Catenate 0492 8015 | | Call 0x0,0x15 0493 700b |p | Jump_Nonzero 0x49f 0494 4800 |H | Short_Literal 0x0 0495 0092 05dd | | Action Push_String_Extended,0x5dd ; "Inserting new declarations (incrementally) " 0497 e7ff | | Load 0x3,-0x1 0498 01cc | | Execute Vector,Catenate 0499 8011 | | Call 0x0,0x11 049a 00da | | Load_Top At_Offset_2 049b 0092 05dc | | Action Push_String_Extended,0x5dc ; "$$.Lists.Incremental_Update_Directives" 049d 01cc | | Execute Vector,Catenate 049e 8021 | ! | Call 0x0,0x21 049f 00da | | Load_Top At_Offset_2 04a0 0092 05de | | Action Push_String_Extended,0x5de ; "$$.Lists.Changes_to_Parameter_Defaults" 04a2 01cc | | Execute Vector,Catenate 04a3 8015 | | Call 0x0,0x15 04a4 700b |p | Jump_Nonzero 0x4b0 04a5 4800 |H | Short_Literal 0x0 04a6 0092 05df | | Action Push_String_Extended,0x5df ; "Changing default values of selected command parameters " 04a8 e7ff | | Load 0x3,-0x1 04a9 01cc | | Execute Vector,Catenate 04aa 8011 | | Call 0x0,0x11 04ab 00da | | Load_Top At_Offset_2 04ac 0092 05de | | Action Push_String_Extended,0x5de ; "$$.Lists.Changes_to_Parameter_Defaults" 04ae 01cc | | Execute Vector,Catenate 04af 8022 | " | Call 0x0,0x22 04b0 4800 |H | Short_Literal 0x0 04b1 0092 05e0 | | Action Push_String_Extended,0x5e0 ; "Scanning for Changes to Universe Units " 04b3 e7ff | | Load 0x3,-0x1 04b4 01cc | | Execute Vector,Catenate 04b5 8011 | | Call 0x0,0x11 04b6 e41d | | Load 0x2,0x1d 04b7 e41c | | Load 0x2,0x1c 04b8 e7ff | | Load 0x3,-0x1 04b9 0092 05d8 | | Action Push_String_Extended,0x5d8 ; "Lists.Forced_Units" 04bb 01cc | | Execute Vector,Catenate 04bc e7ff | | Load 0x3,-0x1 04bd 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Lists.Banned_units" 04bf 01cc | | Execute Vector,Catenate 04c0 e7ff | | Load 0x3,-0x1 04c1 e408 | | Load 0x2,0x8 04c2 01cc | | Execute Vector,Catenate 04c3 8023 | # | Call 0x0,0x23 04c4 c41c | | Store 0x2,0x1c 04c5 c41d | | Store 0x2,0x1d 04c6 e41d | | Load 0x2,0x1d 04c7 e009 | | Load 0x0,0x9 04c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04c9 c41d | | Store 0x2,0x1d 04ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cb 00da | | Load_Top At_Offset_2 04cc e40c | | Load 0x2,0xc 04cd 01cc | | Execute Vector,Catenate 04ce 800b | | Call 0x0,0xb 04cf 680a |h | Jump_Zero 0x4da 04d0 0092 059a | | Action Push_String_Extended,0x59a ; "<PROFILE>" 04d2 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "<DIRECTORIES>" 04d4 4801 |H | Short_Literal 0x1 04d5 e7ff | | Load 0x3,-0x1 04d6 e40c | | Load 0x2,0xc 04d7 01cc | | Execute Vector,Catenate 04d8 e00f | | Load 0x0,0xf 04d9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04db 0000 0000 | | .BLANK 0000[0x5] 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 e009 | | Load 0x0,0x9 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 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "$$.Lists.Mail_Xfer" 04ec 4801 |H | Short_Literal 0x1 04ed e009 | | Load 0x0,0x9 04ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04ef c602 | | Store 0x3,0x2 04f0 0092 05e3 | | Action Push_String_Extended,0x5e3 ; ":Mail.Mload" 04f2 00d9 | | Load_Top At_Offset_1 04f3 e009 | | Load 0x0,0x9 04f4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 04f5 00d8 | | Load_Top At_Offset_0 04f6 e009 | | Load 0x0,0x9 04f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f8 c602 | | Store 0x3,0x2 04f9 4801 |H | Short_Literal 0x1 04fa 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "$$.Lists.Mail_Xfer" 04fc 8024 | $ | Call 0x0,0x24 04fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fe 0000 0000 | | .XXX[0x2] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 052f | / | .CONST 0x052f ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 e604 | | Load 0x3,0x4 0504 00ea | | Load_Encached Null_String_Cache 0505 e602 | | Load 0x3,0x2 0506 e00e | | Load 0x0,0xe 0507 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0508 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0509 4800 |H | Short_Literal 0x0 050a e009 | | Load 0x0,0x9 050b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 050c c604 | | Store 0x3,0x4 050d e605 | | Load 0x3,0x5 050e 00ea | | Load_Encached Null_String_Cache 050f e602 | | Load 0x3,0x2 0510 e00e | | Load 0x0,0xe 0511 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0512 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0513 841e | | Call 0x2,0x1e 0514 4801 |H | Short_Literal 0x1 0515 e009 | | Load 0x0,0x9 0516 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0517 c605 | | Store 0x3,0x5 0518 00cf | | Action Mark_Auxiliary 0519 7807 |x | Jump 0x521 051a e604 | | Load 0x3,0x4 051b e009 | | Load 0x0,0x9 051c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 051d e605 | | Load 0x3,0x5 051e e009 | | Load 0x0,0x9 051f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0520 00c9 | | Action Pop_Auxiliary_Loop 0521 e604 | | Load 0x3,0x4 0522 e009 | | Load 0x0,0x9 0523 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0524 6ff5 |o | Jump_Zero 0x51a 0525 00ce | | Action Pop_Auxiliary 0526 e604 | | Load 0x3,0x4 0527 e009 | | Load 0x0,0x9 0528 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0529 c604 | | Store 0x3,0x4 052a e605 | | Load 0x3,0x5 052b e009 | | Load 0x0,0x9 052c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 052d c605 | | Store 0x3,0x5 052e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052f TRAP_0500: 052f 00d8 | | Load_Top At_Offset_0 0530 0107 | | Execute Exception,Get_Name 0531 4950 |IP | Short_Literal 0x150 0532 495f |I_ | Short_Literal 0x15f 0533 0262 | b | Execute Discrete,In_Range 0534 6809 |h | Jump_Zero 0x53e 0535 e604 | | Load 0x3,0x4 0536 e009 | | Load 0x0,0x9 0537 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0538 c604 | | Store 0x3,0x4 0539 e605 | | Load 0x3,0x5 053a e009 | | Load 0x0,0x9 053b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 053c c605 | | Store 0x3,0x5 053d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 053e e604 | | Load 0x3,0x4 053f e009 | | Load 0x0,0x9 0540 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0541 c604 | | Store 0x3,0x4 0542 e605 | | Load 0x3,0x5 0543 e009 | | Load 0x0,0x9 0544 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0545 c605 | | Store 0x3,0x5 0546 e006 | | Load 0x0,0x6 0547 180e | | Execute Package,Field_Execute,Field_Number 0xe 0548 4808 |H | Short_Literal 0x8 0549 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "Can't create text backup for " 054b e602 | | Load 0x3,0x2 054c e00e | | Load 0x0,0xe 054d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 054e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 054f 01cc | | Execute Vector,Catenate 0550 0092 05e5 | | Action Push_String_Extended,0x5e5 ; " (attempt raises " 0552 01cc | | Execute Vector,Catenate 0553 4800 |H | Short_Literal 0x0 0554 4801 |H | Short_Literal 0x1 0555 e01f | | Load 0x0,0x1f 0556 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0557 01cc | | Execute Vector,Catenate 0558 0092 05e6 | | Action Push_String_Extended,0x5e6 ; ")" 055a 01cc | | Execute Vector,Catenate 055b e00a | | Load 0x0,0xa 055c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 056a | j | .CONST 0x056a ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0002 | | .CONST 0x0002 ; Number of locals 0563 INIT_0560: 0563 00db | | Load_Top At_Offset_3 0564 00db | | Load_Top At_Offset_3 0565 e602 | | Load 0x3,0x2 0566 e00e | | Load 0x0,0xe 0567 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0568 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0569 8420 | | Call 0x2,0x20 056a BODY_0560: 056a e602 | | Load 0x3,0x2 056b e00e | | Load 0x0,0xe 056c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 056d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 056e c602 | | Store 0x3,0x2 056f e602 | | Load 0x3,0x2 0570 e00e | | Load 0x0,0xe 0571 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0572 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0573 6802 |h | Jump_Zero 0x576 0574 00d8 | | Load_Top At_Offset_0 0575 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0576 482c |H, | Short_Literal 0x2c 0577 00d9 | | Load_Top At_Offset_1 0578 01cb | | Execute Vector,Append 0579 e9fe | | Load 0x4,-0x2 057a e9ff | | Load 0x4,-0x1 057b 8604 | | Call 0x3,0x4 057c 01cc | | Execute Vector,Catenate 057d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 057e ; -------------------------------------------------------------------------------------- 057e ; STRING TABLE 057e ; -------------------------------------------------------------------------------------- 057e 00d4 | | .STRTAB 0x00d4->0x05e8 ; "NIL" 057f 00d5 | | .STRTAB 0x00d5->0x05e9 ; "PRE_DEMOTE" 0580 00dd | | .STRTAB 0x00dd->0x05ee ; "BACKUP_BODIES" 0581 00e8 | | .STRTAB 0x00e8->0x05f5 ; "UNIVERSE_UPDATE" 0582 00f5 | | .STRTAB 0x00f5->0x05fc ; "LOAD_ENVIRONMENT" 0583 0103 | | .STRTAB 0x0103->0x0604 ; "MAIL_INIT" 0584 010a | | .STRTAB 0x010a->0x0609 ; "INITIALIZE_UPDATE" 0585 0119 | | .STRTAB 0x0119->0x0611 ; "SUBSYSTEM_UPDATE" 0586 0127 | ' | .STRTAB 0x0127->0x0619 ; "MISCELLANY_UPDATE" 0587 0136 | 6 | .STRTAB 0x0136->0x0622 ; "REMOVE_READ_ONLY_PRAGMA" 0588 014b | K | .STRTAB 0x014b->0x062d ; "pre_demote..remove_read_only_pragma => boolean" 0589 0177 | w | .STRTAB 0x0177->0x0644 ; "pre_demote => pre-demote" 058a 018d | | .STRTAB 0x018d->0x0650 ; "$$.Internal." 058b 0197 | | .STRTAB 0x0197->0x0656 ; "$$.Logs." 058c 019d | | .STRTAB 0x019d->0x065a ; "$$.Archives." 058d 01a7 | | .STRTAB 0x01a7->0x0660 ; "$$.Universe" 058e 01b0 | | .STRTAB 0x01b0->0x0666 ; "[!Commands.Abbreviations.@, !Machine.[Editor_Data.@_Commands]]'Body" 058f 01f1 | | .STRTAB 0x01f1->0x0687 ; "$$.Lists.Units_To_Be_Updated" 0590 020b | | .STRTAB 0x020b->0x0695 ; "$$.Lists.Updated_Units" 0591 021f | | .STRTAB 0x021f->0x06a0 ; "!Machine.Release.Archive.Environment." 0592 0242 | B | .STRTAB 0x0242->0x06b3 ; ".Segments" 0593 0249 | I | .STRTAB 0x0249->0x06b7 ; ", backup" 0594 024f | O | .STRTAB 0x024f->0x06bb ; "Aborting environment installation: Could not set PRIVILEGED MODE." 0595 028e | | .STRTAB 0x028e->0x06dc ; "$$.Combined_Mload" 0596 029d | | .STRTAB 0x029d->0x06e4 ; "Aborting environment installation: " 0597 02be | | .STRTAB 0x02be->0x06f6 ; "$$" 0598 02be | | .STRTAB 0x02be->0x06f7 ; " is not a release world." 0599 02d4 | | .STRTAB 0x02d4->0x0703 ; "Installing Environment Release " 059a 02f1 | | .STRTAB 0x02f1->0x0712 ; "<PROFILE>" 059b 02f8 | | .STRTAB 0x02f8->0x0717 ; "$$.Logs.Install_Product" 059c 030d | | .STRTAB 0x030d->0x0722 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols), >>>|+++|++*|***|%%%, Activity = !Machine.Release.Current.Activity" 059d 0373 | s | .STRTAB 0x0373->0x0756 ; "Loading Code Segments into Elaborator Database" 059e 039f | | .STRTAB 0x039f->0x076d ; "MAIL" 059f 03a1 | | .STRTAB 0x03a1->0x076f ; ":No_Mail" 05a0 03a7 | | .STRTAB 0x03a7->0x0773 ; ":Ae" 05a1 03a8 | | .STRTAB 0x03a8->0x0775 ; "Checking the Configuration in the Elaborator Database" 05a2 03db | | .STRTAB 0x03db->0x078f ; "<RELEASE>" 05a3 03e2 | | .STRTAB 0x03e2->0x0794 ; "Updating the Mail Subsystem" 05a4 03fb | | .STRTAB 0x03fb->0x07a1 ; "Unfreezing Universe Specs" 05a5 0412 | | .STRTAB 0x0412->0x07ae ; "$$.Lists.Frozen_Worlds_Of_The_Universe" 05a6 0436 | 6 | .STRTAB 0x0436->0x07c1 ; "[_$$.Lists.Worlds_Of_The_Universe]'if(FROZEN)" 05a7 0461 | a | .STRTAB 0x0461->0x07d7 ; "<DIRECTORIES>" 05a8 046c | l | .STRTAB 0x046c->0x07de ; "Unfreezing Worlds of the Universe" 05a9 048b | | .STRTAB 0x048b->0x07ee ; "_$$.Lists.Frozen_Worlds_Of_The_Universe" 05aa 04b0 | | .STRTAB 0x04b0->0x0802 ; "Demoting Keymap/Initialize/Abbreviations Bodies for Universe Upgrade" 05ab 04f2 | | .STRTAB 0x04f2->0x0824 ; "<WORLDS>" 05ac 04f8 | | .STRTAB 0x04f8->0x0828 ; "Creating Text Backup of Existing bodies to be modified" 05ad 052c | , | .STRTAB 0x052c->0x0843 ; "![_[]$$.Lists.Units_To_Be_Updated]'BODY" 05ae 0551 | Q | .STRTAB 0x0551->0x0856 ; "![_[]$$.Lists.Updated_Units]'BODY" 05af 0570 | p | .STRTAB 0x0570->0x0867 ; "![_[]$$.Internal.$$.Lists.Updated_Units]'BODY" 05b0 059b | | .STRTAB 0x059b->0x087d ; "$$.Universe.Lrm.System" 05b1 05af | | .STRTAB 0x05af->0x0888 ; "Installing changed units." 05b2 05c6 | | .STRTAB 0x05c6->0x0895 ; "$$.Archives.Universe" 05b3 05d8 | | .STRTAB 0x05d8->0x089f ; "$$.Internal.$$.Lists.Updated_Units" 05b4 05f8 | | .STRTAB 0x05f8->0x08b0 ; "$$.Internal.$$.Archives.Universe" 05b5 0616 | | .STRTAB 0x0616->0x08c0 ; "Re-installing Keymap/Initialize/Abbreviations Bodies." 05b6 0649 | I | .STRTAB 0x0649->0x08da ; "<ALL_WORLDS>" 05b7 0653 | S | .STRTAB 0x0653->0x08e0 ; "<ERRORS>" 05b8 0659 | Y | .STRTAB 0x0659->0x08e4 ; "$$.Archives.Obsolete" 05b9 066b | k | .STRTAB 0x066b->0x08ee ; "R1000, New, Goal => Source" 05ba 0683 | | .STRTAB 0x0683->0x08fb ; "*" 05bb 0682 | | .STRTAB 0x0682->0x08fc ; "?" 05bc 0681 | | .STRTAB 0x0681->0x08fc ; "Installing Initialization changes" 05bd 06a0 | | .STRTAB 0x06a0->0x090d ; "Restoring Miscellaneous System Components" 05be 06c7 | | .STRTAB 0x06c7->0x0921 ; "!Copyright_Rational" 05bf 06d8 | | .STRTAB 0x06d8->0x092b ; "$$.Copyright_Notice" 05c0 06e9 | | .STRTAB 0x06e9->0x0934 ; "$$.Archives.Miscellany" 05c1 06fd | | .STRTAB 0x06fd->0x093f ; "R1000, Changed, Replace, Remake" 05c2 071a | | .STRTAB 0x071a->0x094f ; "$$.Internal.$$.Archives.Miscellany" 05c3 073a | : | .STRTAB 0x073a->0x0960 ; "R1000, New, Replace, Remake" 05c4 0753 | S | .STRTAB 0x0753->0x096d ; "Enabling \x22Install_Subsystems\x22 to run on next reboot." 05c5 0785 | | .STRTAB 0x0785->0x0987 ; "!Machine" 05c6 078b | | .STRTAB 0x078b->0x098b ; "Install_Subsystems" 05c7 079b | | .STRTAB 0x079b->0x0994 ; "!Machine.Release.Environment." 05c8 07b6 | | .STRTAB 0x07b6->0x09a3 ; ".Load_Procs.Install_Subsystems@" 05c9 07d3 | | .STRTAB 0x07d3->0x09b2 ; "!Machine`Install_Subsystems" 05ca 07ec | | .STRTAB 0x07ec->0x09c0 ; "#" 05cb 07eb | | .STRTAB 0x07eb->0x09c0 ; "$$`Install_Subsystems" 05cc 07fe | | .STRTAB 0x07fe->0x09cb ; "Refreezing Worlds of the Universe" 05cd 081d | | .STRTAB 0x081d->0x09db ; "Install_Product" 05ce 082a | * | .STRTAB 0x082a->0x09e3 ; "snap" 05cf 082c | , | .STRTAB 0x082c->0x09e5 ; " Raised installing release " 05d0 0845 | E | .STRTAB 0x0845->0x09f2 ; "??'C(WORLD)" 05d1 084e | N | .STRTAB 0x084e->0x09f8 ; "Universe" 05d2 0854 | T | .STRTAB 0x0854->0x09fc ; "Restoring a prototype new Universe " 05d3 0875 | u | .STRTAB 0x0875->0x0a0d ; "<errors>" 05d4 087b | { | .STRTAB 0x087b->0x0a11 ; "Restoring new Universe specs " 05d5 0896 | | .STRTAB 0x0896->0x0a20 ; "!" 05d6 0895 | | .STRTAB 0x0895->0x0a20 ; "Installing Universe links " 05d7 08ad | | .STRTAB 0x08ad->0x0a2d ; "Links => " 05d8 08b4 | | .STRTAB 0x08b4->0x0a32 ; "Lists.Forced_Units" 05d9 08c4 | | .STRTAB 0x08c4->0x0a3b ; "Installing new Universe specs " 05da 08e0 | | .STRTAB 0x08e0->0x0a4a ; "<QUIET>" 05db 08e5 | | .STRTAB 0x08e5->0x0a4d ; "_" 05dc 08e4 | | .STRTAB 0x08e4->0x0a4e ; "$$.Lists.Incremental_Update_Directives" 05dd 0908 | | .STRTAB 0x0908->0x0a61 ; "Inserting new declarations (incrementally) " 05de 0931 | 1 | .STRTAB 0x0931->0x0a76 ; "$$.Lists.Changes_to_Parameter_Defaults" 05df 0955 | U | .STRTAB 0x0955->0x0a89 ; "Changing default values of selected command parameters " 05e0 098a | | .STRTAB 0x098a->0x0aa5 ; "Scanning for Changes to Universe Units " 05e1 09af | | .STRTAB 0x09af->0x0ab8 ; "Lists.Banned_units" 05e2 09bf | | .STRTAB 0x09bf->0x0ac1 ; "$$.Lists.Mail_Xfer" 05e3 09cf | | .STRTAB 0x09cf->0x0aca ; ":Mail.Mload" 05e4 09d8 | | .STRTAB 0x09d8->0x0ad0 ; "Can't create text backup for " 05e5 09f3 | | .STRTAB 0x09f3->0x0ade ; " (attempt raises " 05e6 0a02 | | .STRTAB 0x0a02->0x0ae7 ; ")" 05e7 0a01 | | .STREND 0x0a01->0x0ae7 05e8 4e49 4c50 |NILP| .STRTAB_STRINGS 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; Debug Table 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0004 000e | | .DEBUG4 0x0004,0x000e,0xa7a0,0x0000,0x0001,0x0000 0aee 027d 5600 | }V | .XXX[0x10] 0af0 0000 003a | :| 0af2 0e00 0660 | `| 0af4 0db0 6304 | c | 0af6 f000 0000 | | 0af8 0000 0186 | | 0afa 00ee b680 | | 0afc 39dc c000 |9 | 0afe 0000 0000 | | .BLANK 0000[0x4] 0b02 3a06 6000 |: ` | .XXX[0xb] 0b04 073b 9800 | ; | 0b06 0000 8318 | | 0b08 0780 39e9 | 9 | 0b0a 6000 0001 |` | 0b0c e000 | | 0b0d 0000 0000 | | .BLANK 0000[0x4] 0b11 3a24 6000 |:$` | .XXX[0x1c] 0b13 073b 9800 | ; | 0b15 0000 9a85 | | 0b17 803a 7c60 | :|`| 0b19 0000 0001 | | 0b1b 7000 0000 |p | 0b1d 0000 0000 | | 0b1f 0027 62e0 | 'b | 0b21 0e9f 1800 | | 0b23 0000 002c | ,| 0b25 0000 0000 | | 0b27 4508 c01d |E | 0b29 3690 0000 |6 | 0b2b 0000 f800 | | 0b2d 0000 0000 | | .BLANK 0000[0x6] 0b33 0800 0000 | | .XXX[0x1a] 0b35 00e9 38c2 | 8 | 0b37 2400 1d3e |$ >| 0b39 3000 0000 |0 | 0b3b 01d3 3400 | 4 | 0b3d 3adb f1a7 |: | 0b3f e007 6a94 | j | 0b41 0000 0000 | | 0b43 74da 401d |t @ | 0b45 1fa0 0745 | E| 0b47 8135 0b00 | 5 | 0b49 75be 8000 |u | 0b4b 0000 06c0 | | 0b4d 0000 0000 | | .BLANK 0000[0x4] 0b51 4ec5 c01d |N | .XXX[0xd] 0b53 6fa0 0000 |o | 0b55 0000 5800 | X | 0b57 0000 008a | | 0b59 1180 3ad0 | : | 0b5b 0000 0000 | | 0b5d 05f0 | | 0b5e 0000 0000 | | .BLANK 0000[0x6] 0b64 0010 0000 | | .XXX[0x1a] 0b66 0001 d588 | | 0b68 8448 003a | H :| 0b6a df40 0000 | @ | 0b6c 0003 ac96 | | 0b6e 0076 7da3 | v} | 0b70 4fc0 0ed5 |O | 0b72 2800 0000 |( | 0b74 00eb 4000 | @ | 0b76 3aa2 200e |: | 0b78 a3ba 6a16 | j | 0b7a 00ed 0880 | | 0b7c 0000 0014 | | 0b7e 0000 0000 | | .BLANK 0000[0x4] 0b82 009d 8b80 | | .XXX[0xe] 0b84 3b42 2000 |;B | 0b86 0000 00b0 | | 0b88 0000 0001 | | 0b8a 1423 0076 | # v| 0b8c 65c0 0000 |e | 0b8e 000d c000 | | 0b90 0000 0000 | | .BLANK 0000[0x6] 0b96 2000 0000 | | .XXX[0x17] 0b98 03b1 3f08 | ? | 0b9a 9000 7684 | v | 0b9c 4000 0000 |@ | 0b9e 0765 8800 | e | 0ba0 0000 469f | F | 0ba2 801d aa50 | P| 0ba4 0000 0001 | | 0ba6 d997 0076 | v| 0ba8 0a00 1d78 | x| 0baa e432 5001 | 2P | 0bac db35 | 5 | 0bad 0000 0000 | | .BLANK 0000[0x6] 0bb3 0405 ec01 | | .XXX[0x10] 0bb5 dcc9 0000 | | 0bb7 0000 1daa | | 0bb9 59b3 b803 |Y | 0bbb b992 0000 | | 0bbd 0023 0580 | # | 0bbf 0ee6 4803 | H | 0bc1 dd64 01ac | d | 0bc3 0000 0000 | | .BLANK 0000[0x7] 0bca 0076 f680 | v | .XXX[0x12] 0bcc 0841 8f40 | A @| 0bce 0ad7 7000 | p | 0bd0 0000 01db | | 0bd2 da00 76cd | v | 0bd4 401d b940 |@ @| 0bd6 0004 0000 | | 0bd8 0000 7732 | w2| 0bda 6191 8000 |a | 0bdc 0000 0000 | | .BLANK 0000[0x5] 0be1 ef19 | | .XXX[0x1] 0be2 0000 0000 | | .BLANK 0000[0x4] 0be6 779c 8000 |w | .XXX[0x5] 0be8 0000 0000 | | 0bea 0020 | | 0beb 0000 0000 | | .BLANK 0000[0x15]