|
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]