|
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: 4096 (0x1000)
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 0600 | | .CONST 0x0600 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 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 003d | = | .CONST 0x003d ; Address of begin
0019 01cc | | .CONST 0x01cc ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b 0092 026f | o| Action Push_String_Extended,0x26f ; "$$.Internal."
001d 0092 0270 | p| Action Push_String_Extended,0x270 ; "$$.Logs."
001f 0092 0271 | q| Action Push_String_Extended,0x271 ; "$$.Archives."
0021 0092 0272 | r| Action Push_String_Extended,0x272 ; "$$.Combined_Mload"
0023 0092 0273 | s| Action Push_String_Extended,0x273 ; "$$.Activity_File"
0025 e001 | | Load 0x0,0x1
0026 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0027 e002 | | Load 0x0,0x2
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 02c7 | | Declare_Variable Any
002a e002 | | Load 0x0,0x2
002b 180e | | Execute Package,Field_Execute,Field_Number 0xe
002c a408 | | Store_Unchecked 0x2,0x8
002d 485f |H_ | Short_Literal 0x5f
002e 4800 |H | Short_Literal 0x0
002f 4803 |H | Short_Literal 0x3
0030 4804 |H | Short_Literal 0x4
0031 e003 | | Load 0x0,0x3
0032 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0033 e003 | | Load 0x0,0x3
0034 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0035 01ca | | Execute Vector,Prepend
0036 0007 | | Action Break_Optional
0037 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0039 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
003b 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
003d BODY_0018:
003d e5fe | | Load 0x2,-0x2
003e 01db | | Execute Vector,Length
003f 7007 |p | Jump_Nonzero 0x47
0040 0092 0274 | t| Action Push_String_Extended,0x274 ; "persevere, prefix=(symbols), ++*|***|%%%, activity = !machine.release.current.activity"
0042 e002 | | Load 0x0,0x2
0043 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0044 e002 | | Load 0x0,0x2
0045 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0046 7805 |x | Jump 0x4c
0047 e5fe | | Load 0x2,-0x2
0048 e002 | | Load 0x0,0x2
0049 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
004a e002 | | Load 0x0,0x2
004b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004c 840a | | Call 0x2,0xa
004d 0092 0275 | u| Action Push_String_Extended,0x275 ; " tools"
004f 01cc | | Execute Vector,Catenate
0050 4800 |H | Short_Literal 0x0
0051 0092 0276 | v| Action Push_String_Extended,0x276 ; "Beginning_Upgrade"
0053 e004 | | Load 0x0,0x4
0054 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0055 0092 0277 | w| Action Push_String_Extended,0x277 ; "Install_Subsystems"
0057 e004 | | Load 0x0,0x4
0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0059 4801 |H | Short_Literal 0x1
005a e005 | | Load 0x0,0x5
005b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
005c 0092 0278 | x| Action Push_String_Extended,0x278 ; "!Machine"
005e 4802 |H | Short_Literal 0x2
005f 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
0061 0092 0277 | w| Action Push_String_Extended,0x277 ; "Install_Subsystems"
0063 e006 | | Load 0x0,0x6
0064 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0065 6807 |h | Jump_Zero 0x6d
0066 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
0068 0092 027b | {| Action Push_String_Extended,0x27b ; "!Machine`Install_Subsystems$$[D_@]"
006a e007 | | Load 0x0,0x7
006b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006c 7806 |x | Jump 0x73
006d 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
006f 0092 027c | || Action Push_String_Extended,0x27c ; "$$[D_@]"
0071 e007 | | Load 0x0,0x7
0072 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0073 e005 | | Load 0x0,0x5
0074 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0075 7008 |p | Jump_Nonzero 0x7e
0076 e002 | | Load 0x0,0x2
0077 180e | | Execute Package,Field_Execute,Field_Number 0xe
0078 4805 |H | Short_Literal 0x5
0079 0092 027d | }| Action Push_String_Extended,0x27d ; "Aborting subsystems installation: could not set PRIVILEGED MODE"
007b e008 | | Load 0x0,0x8
007c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007d 794a |yJ | Jump 0x1c8
007e e405 | | Load 0x2,0x5
007f 8009 | | Call 0x0,0x9
0080 7008 |p | Jump_Nonzero 0x89
0081 e002 | | Load 0x0,0x2
0082 180e | | Execute Package,Field_Execute,Field_Number 0xe
0083 4805 |H | Short_Literal 0x5
0084 0092 027e | ~| Action Push_String_Extended,0x27e ; "Aborting subsystems installation: Current context is not a release world."
0086 e008 | | Load 0x0,0x8
0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0088 793f |y? | Jump 0x1c8
0089 e5ff | | Load 0x2,-0x1
008a 6812 |h | Jump_Zero 0x9d
008b e407 | | Load 0x2,0x7
008c 840a | | Call 0x2,0xa
008d 840b | | Call 0x2,0xb
008e 840c | | Call 0x2,0xc
008f 700d |p | Jump_Nonzero 0x9d
0090 e002 | | Load 0x0,0x2
0091 180e | | Execute Package,Field_Execute,Field_Number 0xe
0092 4805 |H | Short_Literal 0x5
0093 0092 027f | | Action Push_String_Extended,0x27f ; "Aborting subsystems installation: "
0095 840a | | Call 0x2,0xa
0096 01cc | | Execute Vector,Catenate
0097 0092 0280 | | Action Push_String_Extended,0x280 ; " is not the currently running EEDB configuration."
0099 01cc | | Execute Vector,Catenate
009a e008 | | Load 0x0,0x8
009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009c 792b |y+ | Jump 0x1c8
009d e002 | | Load 0x0,0x2
009e 180e | | Execute Package,Field_Execute,Field_Number 0xe
009f 4803 |H | Short_Literal 0x3
00a0 0092 0281 | | Action Push_String_Extended,0x281 ; "Installing subsystems for release "
00a2 840a | | Call 0x2,0xa
00a3 01cc | | Execute Vector,Catenate
00a4 e008 | | Load 0x0,0x8
00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a6 0092 0282 | | Action Push_String_Extended,0x282 ; "$$.Logs.Install_Subsystems"
00a8 e409 | | Load 0x2,0x9
00a9 01cc | | Execute Vector,Catenate
00aa e008 | | Load 0x0,0x8
00ab 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ac e002 | | Load 0x0,0x2
00ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ae 4803 |H | Short_Literal 0x3
00af 0092 0281 | | Action Push_String_Extended,0x281 ; "Installing subsystems for release "
00b1 840a | | Call 0x2,0xa
00b2 01cc | | Execute Vector,Catenate
00b3 e008 | | Load 0x0,0x8
00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b5 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
00b7 0092 0278 | x| Action Push_String_Extended,0x278 ; "!Machine"
00b9 4802 |H | Short_Literal 0x2
00ba 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
00bc 0092 0277 | w| Action Push_String_Extended,0x277 ; "Install_Subsystems"
00be e00a | | Load 0x0,0xa
00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c0 e001 | | Load 0x0,0x1
00c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c2 e001 | | Load 0x0,0x1
00c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c4 00d9 | | Load_Top At_Offset_1
00c5 00d0 | | Action Swap_Control
00c6 0260 | ` | Execute Discrete,In_Type
00c7 7001 |p | Jump_Nonzero 0xc9
00c8 0801 | | Execute_Immediate Raise,0x1
00c9 612a |a* | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00003e80}
00ca e001 | | Load 0x0,0x1
00cb 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00cc 4800 |H | Short_Literal 0x0
00cd 0092 0283 | | Action Push_String_Extended,0x283 ; "Fixing standard models"
00cf 800b | | Call 0x0,0xb
00d0 0092 0284 | | Action Push_String_Extended,0x284 ; "!"
00d2 800c | | Call 0x0,0xc
00d3 4801 |H | Short_Literal 0x1
00d4 e005 | | Load 0x0,0x5
00d5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d6 4800 |H | Short_Literal 0x0
00d7 0092 0285 | | Action Push_String_Extended,0x285 ; "Restoring new subsystems"
00d9 800b | | Call 0x0,0xb
00da 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
00dc 0092 0286 | | Action Push_String_Extended,0x286 ; "$$.Archives.Subsystems"
00de 0092 0287 | | Action Push_String_Extended,0x287 ; "new, replace, remake, coded"
00e0 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
00e2 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
00e4 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
00e6 e00d | | Load 0x0,0xd
00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e8 0092 0289 | | Action Push_String_Extended,0x289 ; "$$.Internal.$$.Archives.Subsystems"
00ea 8009 | | Call 0x0,0x9
00eb 6823 |h# | Jump_Zero 0x10f
00ec 4800 |H | Short_Literal 0x0
00ed 0092 028a | | Action Push_String_Extended,0x28a ; "Restoring Internal Tools"
00ef 800b | | Call 0x0,0xb
00f0 4801 |H | Short_Literal 0x1
00f1 e005 | | Load 0x0,0x5
00f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f3 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
00f5 0092 0289 | | Action Push_String_Extended,0x289 ; "$$.Internal.$$.Archives.Subsystems"
00f7 0092 0287 | | Action Push_String_Extended,0x287 ; "new, replace, remake, coded"
00f9 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
00fb 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
00fd 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
00ff e00d | | Load 0x0,0xd
0100 180e | | Execute Package,Field_Execute,Field_Number 0xe
0101 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
0103 e406 | | Load 0x2,0x6
0104 4801 |H | Short_Literal 0x1
0105 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
0107 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
0109 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
010b 0092 028b | | Action Push_String_Extended,0x28b ; "$$.Internal.$$.Activity_File"
010d e00e | | Load 0x0,0xe
010e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
010f 4800 |H | Short_Literal 0x0
0110 0092 028c | | Action Push_String_Extended,0x28c ; "Installing new subsystems and recoding main procedures"
0112 800b | | Call 0x0,0xb
0113 4801 |H | Short_Literal 0x1
0114 e005 | | Load 0x0,0x5
0115 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0116 0092 028d | | Action Push_String_Extended,0x28d ; "!Machine.Release.Current.Commands"
0118 0092 028e | | Action Push_String_Extended,0x28e ; "!Machine.Release.Current.Activity"
011a e406 | | Load 0x2,0x6
011b 800f | | Call 0x0,0xf
011c 4800 |H | Short_Literal 0x0
011d 0092 028f | | Action Push_String_Extended,0x28f ; "Installing System_Maintenance.Current_Combined_Mload"
011f 800b | | Call 0x0,0xb
0120 4801 |H | Short_Literal 0x1
0121 e005 | | Load 0x0,0x5
0122 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0123 0092 0290 | | Action Push_String_Extended,0x290 ; "<errors>"
0125 4800 |H | Short_Literal 0x0
0126 0092 0291 | | Action Push_String_Extended,0x291 ; "!Commands.System_Maintenance.[, Current_Combined_Mload]"
0128 e007 | | Load 0x0,0x7
0129 181f | | Execute Package,Field_Execute,Field_Number 0x1f
012a 00ea | | Load_Encached Null_String_Cache
012b 4801 |H | Short_Literal 0x1
012c 0092 0290 | | Action Push_String_Extended,0x290 ; "<errors>"
012e 4801 |H | Short_Literal 0x1
012f 0092 0292 | | Action Push_String_Extended,0x292 ; "!Commands.System_Maintenance.Current_Combined_Mload"
0131 e405 | | Load 0x2,0x5
0132 e007 | | Load 0x0,0x7
0133 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0134 0092 0290 | | Action Push_String_Extended,0x290 ; "<errors>"
0136 4800 |H | Short_Literal 0x0
0137 0092 0291 | | Action Push_String_Extended,0x291 ; "!Commands.System_Maintenance.[, Current_Combined_Mload]"
0139 e007 | | Load 0x0,0x7
013a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013b 4801 |H | Short_Literal 0x1
013c 840a | | Call 0x2,0xa
013d 0092 0293 | | Action Push_String_Extended,0x293 ; " subsystem installation"
013f 01cc | | Execute Vector,Catenate
0140 800b | | Call 0x0,0xb
0141 e002 | | Load 0x0,0x2
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 e008 | | Load 0x0,0x8
0144 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0145 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
0147 0092 0294 | | Action Push_String_Extended,0x294 ; "snap"
0149 e010 | | Load 0x0,0x10
014a 180e | | Execute Package,Field_Execute,Field_Number 0xe
014b 840a | | Call 0x2,0xa
014c 0092 0295 | | Action Push_String_Extended,0x295 ; " tools upgrade is completed."
014e 01cc | | Execute Vector,Catenate
014f 4800 |H | Short_Literal 0x0
0150 0092 0296 | | Action Push_String_Extended,0x296 ; "Normal_Completion"
0152 e004 | | Load 0x0,0x4
0153 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0154 0092 0277 | w| Action Push_String_Extended,0x277 ; "Install_Subsystems"
0156 e004 | | Load 0x0,0x4
0157 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0158 0092 0297 | | Action Push_String_Extended,0x297 ; "$$.Lists.Units_to_Update_After_Reboot"
015a 8009 | | Call 0x0,0x9
015b 6816 |h | Jump_Zero 0x172
015c 4800 |H | Short_Literal 0x0
015d 0092 0298 | | Action Push_String_Extended,0x298 ; "Running INSTALL_UNIVERSE on ...Reboot file"
015f 800b | | Call 0x0,0xb
0160 e002 | | Load 0x0,0x2
0161 180e | | Execute Package,Field_Execute,Field_Number 0xe
0162 e008 | | Load 0x0,0x8
0163 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0164 00ea | | Load_Encached Null_String_Cache
0165 0092 0299 | | Action Push_String_Extended,0x299 ; "$$[D_@].Archives.Universe"
0167 0092 029a | | Action Push_String_Extended,0x29a ; "$$[D_@].Lists.Units_To_Update_After_Reboot"
0169 8011 | | Call 0x0,0x11
016a 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
016c 0092 029b | | Action Push_String_Extended,0x29b ; "$$.Lists.Units_Updated_After_Reboot"
016e 0092 029c | | Action Push_String_Extended,0x29c ; "$$.Lists.Units_To_Update_After_Reboot"
0170 e007 | | Load 0x0,0x7
0171 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0172 0092 029d | | Action Push_String_Extended,0x29d ; "$$.Archives.Subsystem_Miscellany"
0174 8009 | | Call 0x0,0x9
0175 6812 |h | Jump_Zero 0x188
0176 4800 |H | Short_Literal 0x0
0177 0092 029e | | Action Push_String_Extended,0x29e ; "Restoring Miscellaneous Subsystem Components"
0179 800b | | Call 0x0,0xb
017a 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
017c 0092 029d | | Action Push_String_Extended,0x29d ; "$$.Archives.Subsystem_Miscellany"
017e 0092 029f | | Action Push_String_Extended,0x29f ; "R1000, Changed, Replace, Remake"
0180 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
0182 0092 0288 | | Action Push_String_Extended,0x288 ; "*"
0184 0092 0279 | y| Action Push_String_Extended,0x279 ; "?"
0186 e00d | | Load 0x0,0xd
0187 180e | | Execute Package,Field_Execute,Field_Number 0xe
0188 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "$$.Lists.Init_Procs_To_Delete"
018a 8009 | | Call 0x0,0x9
018b 681c |h | Jump_Zero 0x1a8
018c 4800 |H | Short_Literal 0x0
018d 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "Running COMP.DESTROY on Initialize Delete file"
018f 800b | | Call 0x0,0xb
0190 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "<ERRORS>"
0192 4801 |H | Short_Literal 0x1
0193 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "_$$.Lists.Init_Procs_To_Delete"
0195 e007 | | Load 0x0,0x7
0196 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0197 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "<ERRORS>"
0199 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "<WORLDS>"
019b 4802 |H | Short_Literal 0x2
019c 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "_$$.Lists.Init_Procs_To_Delete"
019e e012 | | Load 0x0,0x12
019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a0 0092 027a | z| Action Push_String_Extended,0x27a ; "<PROFILE>"
01a2 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "$$.Lists.Init_Procs_Deleted"
01a4 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "$$.Lists.Init_Procs_To_Delete"
01a6 e007 | | Load 0x0,0x7
01a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a8 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "$$.Lists.Init_Procs_To_Change"
01aa 8009 | | Call 0x0,0x9
01ab 6815 |h | Jump_Zero 0x1c1
01ac 4800 |H | Short_Literal 0x0
01ad 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "Demoting old initialize procedures"
01af 800b | | Call 0x0,0xb
01b0 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "<ERRORS>"
01b2 4801 |H | Short_Literal 0x1
01b3 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "_$$.Lists.Init_Procs_To_Change"
01b5 e007 | | Load 0x0,0x7
01b6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01b7 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "<ERRORS>"
01b9 4800 |H | Short_Literal 0x0
01ba 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "<WORLDS>"
01bc 4800 |H | Short_Literal 0x0
01bd 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "_$$.Lists.Init_Procs_To_Change"
01bf e012 | | Load 0x0,0x12
01c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c1 e008 | | Load 0x0,0x8
01c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01c3 0092 0282 | | Action Push_String_Extended,0x282 ; "$$.Logs.Install_Subsystems"
01c5 e409 | | Load 0x2,0x9
01c6 01cc | | Execute Vector,Catenate
01c7 8013 | | Call 0x0,0x13
01c8 e408 | | Load 0x2,0x8
01c9 e002 | | Load 0x0,0x2
01ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cc TRAP_0018:
01cc 0007 | | Action Break_Optional
01cd e002 | | Load 0x0,0x2
01ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
01cf 4808 |H | Short_Literal 0x8
01d0 4801 |H | Short_Literal 0x1
01d1 4801 |H | Short_Literal 0x1
01d2 e014 | | Load 0x0,0x14
01d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d4 0092 02a9 | | Action Push_String_Extended,0x2a9 ; " raised installing release"
01d6 01cc | | Execute Vector,Catenate
01d7 e008 | | Load 0x0,0x8
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 4801 |H | Short_Literal 0x1
01da 4801 |H | Short_Literal 0x1
01db e014 | | Load 0x0,0x14
01dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01dd 0092 02aa | | Action Push_String_Extended,0x2aa ; " installing "
01df 01cc | | Execute Vector,Catenate
01e0 840a | | Call 0x2,0xa
01e1 01cc | | Execute Vector,Catenate
01e2 4802 |H | Short_Literal 0x2
01e3 0092 02ab | | Action Push_String_Extended,0x2ab ; "Unhandled_Exception"
01e5 e004 | | Load 0x0,0x4
01e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e7 0092 0277 | w| Action Push_String_Extended,0x277 ; "Install_Subsystems"
01e9 e004 | | Load 0x0,0x4
01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01eb e408 | | Load 0x2,0x8
01ec e002 | | Load 0x0,0x2
01ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ee e008 | | Load 0x0,0x8
01ef 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f1 0000 0000 | | .XXX[0x3]
01f3 0000 | |
01f4 0000 0000 | | .LITERAL {0x00000000, 0x00003e80}
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 6010 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00004000}
01fc e015 | | Load 0x0,0x15
01fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fe e016 | | Load 0x0,0x16
01ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0200 e017 | | Load 0x0,0x17
0201 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0202 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0203 0092 02ac | | Action Push_String_Extended,0x2ac ; "$$"
0205 e017 | | Load 0x0,0x17
0206 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0207 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0208 e017 | | Load 0x0,0x17
0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
020b 00ca | | Action Exit_Nullary_Function
020c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021b | | .CONST 0x021b ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 01dd | | Execute Vector,First
0215 00e2 | | Load_Encached Integer_Cache
0216 03f1 | | Declare_Variable Discrete,With_Value
0217 00db | | Load_Top At_Offset_3
0218 01dc | | Execute Vector,Last
0219 00e2 | | Load_Encached Integer_Cache
021a 03f1 | | Declare_Variable Discrete,With_Value
021b BODY_0210:
021b 4800 |H | Short_Literal 0x0
021c 00da | | Load_Top At_Offset_2
021d e7ff | | Load 0x3,-0x1
021e 01dc | | Execute Vector,Last
021f e7ff | | Load 0x3,-0x1
0220 01cf | | Execute Vector,Slice_Read
0221 0092 02ad | | Action Push_String_Extended,0x2ad ; "_"
0223 e018 | | Load 0x0,0x18
0224 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0225 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0226 4800 |H | Short_Literal 0x0
0227 00d9 | | Load_Top At_Offset_1
0228 0a01 | | Execute_Immediate Plus,0x1
0229 00d8 | | Load_Top At_Offset_0
022a 00e2 | | Load_Encached Integer_Cache
022b 0260 | ` | Execute Discrete,In_Type
022c 7001 |p | Jump_Nonzero 0x22e
022d 0801 | | Execute_Immediate Raise,0x1
022e e7ff | | Load 0x3,-0x1
022f 01dc | | Execute Vector,Last
0230 e7ff | | Load 0x3,-0x1
0231 01cf | | Execute Vector,Slice_Read
0232 0092 02ad | | Action Push_String_Extended,0x2ad ; "_"
0234 e018 | | Load 0x0,0x18
0235 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0236 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0237 4800 |H | Short_Literal 0x0
0238 00d9 | | Load_Top At_Offset_1
0239 0a01 | | Execute_Immediate Plus,0x1
023a 00d8 | | Load_Top At_Offset_0
023b 00e2 | | Load_Encached Integer_Cache
023c 0260 | ` | Execute Discrete,In_Type
023d 7001 |p | Jump_Nonzero 0x23f
023e 0801 | | Execute_Immediate Raise,0x1
023f e7ff | | Load 0x3,-0x1
0240 01dc | | Execute Vector,Last
0241 e7ff | | Load 0x3,-0x1
0242 01cf | | Execute Vector,Slice_Read
0243 0092 02ad | | Action Push_String_Extended,0x2ad ; "_"
0245 e018 | | Load 0x0,0x18
0246 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0247 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0248 00d8 | | Load_Top At_Offset_0
0249 e7ff | | Load 0x3,-0x1
024a 01da | | Execute Vector,Bounds
024b 0261 | a | Execute Discrete,Not_In_Range
024c 6802 |h | Jump_Zero 0x24f
024d e7ff | | Load 0x3,-0x1
024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024f 00d9 | | Load_Top At_Offset_1
0250 00d9 | | Load_Top At_Offset_1
0251 0aff | | Execute_Immediate Plus,-0x1
0252 00d8 | | Load_Top At_Offset_0
0253 00e2 | | Load_Encached Integer_Cache
0254 0260 | ` | Execute Discrete,In_Type
0255 7001 |p | Jump_Nonzero 0x257
0256 0801 | | Execute_Immediate Raise,0x1
0257 e7ff | | Load 0x3,-0x1
0258 01cf | | Execute Vector,Slice_Read
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026a | j | .CONST 0x026a ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 4801 |H | Short_Literal 0x1
0264 e7fe | | Load 0x3,-0x2
0265 e7ff | | Load 0x3,-0x1
0266 e018 | | Load 0x0,0x18
0267 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0268 00e2 | | Load_Encached Integer_Cache
0269 03f1 | | Declare_Variable Discrete,With_Value
026a BODY_0260:
026a 00d8 | | Load_Top At_Offset_0
026b e7fe | | Load 0x3,-0x2
026c 01dd | | Execute Vector,First
026d 027f | | Execute Discrete,Equal
026e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026f ; --------------------------------------------------------------------------------------
026f ; STRING TABLE
026f ; --------------------------------------------------------------------------------------
026f 0080 | | .STRTAB 0x0080->0x02af ; "$$.Internal."
0270 008a | | .STRTAB 0x008a->0x02b5 ; "$$.Logs."
0271 0090 | | .STRTAB 0x0090->0x02b9 ; "$$.Archives."
0272 009a | | .STRTAB 0x009a->0x02bf ; "$$.Combined_Mload"
0273 00a9 | | .STRTAB 0x00a9->0x02c7 ; "$$.Activity_File"
0274 00b7 | | .STRTAB 0x00b7->0x02cf ; "persevere, prefix=(symbols), ++*|***|%%%, activity = !machine.release.current.activity"
0275 010b | | .STRTAB 0x010b->0x02fa ; " tools"
0276 010f | | .STRTAB 0x010f->0x02fd ; "Beginning_Upgrade"
0277 011e | | .STRTAB 0x011e->0x0306 ; "Install_Subsystems"
0278 012e | . | .STRTAB 0x012e->0x030f ; "!Machine"
0279 0134 | 4 | .STRTAB 0x0134->0x0313 ; "?"
027a 0133 | 3 | .STRTAB 0x0133->0x0313 ; "<PROFILE>"
027b 013a | : | .STRTAB 0x013a->0x0318 ; "!Machine`Install_Subsystems$$[D_@]"
027c 015a | Z | .STRTAB 0x015a->0x0329 ; "$$[D_@]"
027d 015f | _ | .STRTAB 0x015f->0x032c ; "Aborting subsystems installation: could not set PRIVILEGED MODE"
027e 019c | | .STRTAB 0x019c->0x034c ; "Aborting subsystems installation: Current context is not a release world."
027f 01e3 | | .STRTAB 0x01e3->0x0370 ; "Aborting subsystems installation: "
0280 0203 | | .STRTAB 0x0203->0x0381 ; " is not the currently running EEDB configuration."
0281 0232 | 2 | .STRTAB 0x0232->0x039a ; "Installing subsystems for release "
0282 0252 | R | .STRTAB 0x0252->0x03ab ; "$$.Logs.Install_Subsystems"
0283 026a | j | .STRTAB 0x026a->0x03b8 ; "Fixing standard models"
0284 027e | ~ | .STRTAB 0x027e->0x03c3 ; "!"
0285 027d | } | .STRTAB 0x027d->0x03c3 ; "Restoring new subsystems"
0286 0293 | | .STRTAB 0x0293->0x03cf ; "$$.Archives.Subsystems"
0287 02a7 | | .STRTAB 0x02a7->0x03da ; "new, replace, remake, coded"
0288 02c0 | | .STRTAB 0x02c0->0x03e8 ; "*"
0289 02bf | | .STRTAB 0x02bf->0x03e8 ; "$$.Internal.$$.Archives.Subsystems"
028a 02df | | .STRTAB 0x02df->0x03f9 ; "Restoring Internal Tools"
028b 02f5 | | .STRTAB 0x02f5->0x0405 ; "$$.Internal.$$.Activity_File"
028c 030f | | .STRTAB 0x030f->0x0413 ; "Installing new subsystems and recoding main procedures"
028d 0343 | C | .STRTAB 0x0343->0x042e ; "!Machine.Release.Current.Commands"
028e 0362 | b | .STRTAB 0x0362->0x043f ; "!Machine.Release.Current.Activity"
028f 0381 | | .STRTAB 0x0381->0x044f ; "Installing System_Maintenance.Current_Combined_Mload"
0290 03b3 | | .STRTAB 0x03b3->0x0469 ; "<errors>"
0291 03b9 | | .STRTAB 0x03b9->0x046d ; "!Commands.System_Maintenance.[, Current_Combined_Mload]"
0292 03ee | | .STRTAB 0x03ee->0x0489 ; "!Commands.System_Maintenance.Current_Combined_Mload"
0293 041f | | .STRTAB 0x041f->0x04a2 ; " subsystem installation"
0294 0434 | 4 | .STRTAB 0x0434->0x04ae ; "snap"
0295 0436 | 6 | .STRTAB 0x0436->0x04b0 ; " tools upgrade is completed."
0296 0450 | P | .STRTAB 0x0450->0x04be ; "Normal_Completion"
0297 045f | _ | .STRTAB 0x045f->0x04c6 ; "$$.Lists.Units_to_Update_After_Reboot"
0298 0482 | | .STRTAB 0x0482->0x04d9 ; "Running INSTALL_UNIVERSE on ...Reboot file"
0299 04aa | | .STRTAB 0x04aa->0x04ee ; "$$[D_@].Archives.Universe"
029a 04c1 | | .STRTAB 0x04c1->0x04fa ; "$$[D_@].Lists.Units_To_Update_After_Reboot"
029b 04e9 | | .STRTAB 0x04e9->0x050f ; "$$.Lists.Units_Updated_After_Reboot"
029c 050a | | .STRTAB 0x050a->0x0521 ; "$$.Lists.Units_To_Update_After_Reboot"
029d 052d | - | .STRTAB 0x052d->0x0533 ; "$$.Archives.Subsystem_Miscellany"
029e 054b | K | .STRTAB 0x054b->0x0543 ; "Restoring Miscellaneous Subsystem Components"
029f 0575 | u | .STRTAB 0x0575->0x0559 ; "R1000, Changed, Replace, Remake"
02a0 0592 | | .STRTAB 0x0592->0x0569 ; "$$.Lists.Init_Procs_To_Delete"
02a1 05ad | | .STRTAB 0x05ad->0x0577 ; "Running COMP.DESTROY on Initialize Delete file"
02a2 05d9 | | .STRTAB 0x05d9->0x058e ; "<ERRORS>"
02a3 05df | | .STRTAB 0x05df->0x0592 ; "_$$.Lists.Init_Procs_To_Delete"
02a4 05fb | | .STRTAB 0x05fb->0x05a1 ; "<WORLDS>"
02a5 0601 | | .STRTAB 0x0601->0x05a5 ; "$$.Lists.Init_Procs_Deleted"
02a6 061a | | .STRTAB 0x061a->0x05b3 ; "$$.Lists.Init_Procs_To_Change"
02a7 0635 | 5 | .STRTAB 0x0635->0x05c1 ; "Demoting old initialize procedures"
02a8 0655 | U | .STRTAB 0x0655->0x05d2 ; "_$$.Lists.Init_Procs_To_Change"
02a9 0671 | q | .STRTAB 0x0671->0x05e1 ; " raised installing release"
02aa 0689 | | .STRTAB 0x0689->0x05ee ; " installing "
02ab 0693 | | .STRTAB 0x0693->0x05f4 ; "Unhandled_Exception"
02ac 06a4 | | .STRTAB 0x06a4->0x05fe ; "$$"
02ad 06a4 | | .STRTAB 0x06a4->0x05ff ; "_"
02ae 06a3 | | .STREND 0x06a3->0x05ff
02af 2424 2e49 |$$.I| .STRTAB_STRINGS
0600 ; --------------------------------------------------------------------------------------
0600 ; Debug Table
0600 ; --------------------------------------------------------------------------------------
0600 0004 000e | | .DEBUG4 0x0004,0x000e,0x53af,0x0000,0x0001,0x0000
0606 0000 0000 | | .BLANK 0000[0x92]
0698 4040 0700 |@@ | .XXX[0x2]
069a 0000 0000 | | .BLANK 0000[0x8]
06a2 0314 6e00 | n | .XXX[0x14]
06a4 005d aa40 | ] @|
06a6 0000 09f5 | |
06a8 5800 0000 |X |
06aa 00c5 ff00 | |
06ac 1980 28c1 | ( |
06ae 8c13 c000 | |
06b0 0000 0000 | |
06b2 0618 0331 | 1|
06b4 f600 c53a | :|
06b6 0000 0000 | | .BLANK 0000[0x5]
06bb c5e0 8000 | | .XXX[0xb]
06bd 18a7 4000 | @ |
06bf 0002 0c60 | `|
06c1 1e00 c56c | l|
06c3 8000 0005 | |
06c5 8000 | |
06c6 0000 0000 | | .BLANK 0000[0x4]
06ca c658 8000 | X | .XXX[0xa]
06cc 18a7 4000 | @ |
06ce 0002 6a16 | j |
06d0 00c7 b880 | |
06d2 0000 001e | |
06d4 0000 0000 | | .BLANK 0000[0x4]
06d8 009d 8b80 | | .XXX[0xe]
06da 31ee 2000 |1 |
06dc 0000 00b0 | |
06de 0000 0001 | |
06e0 1423 0063 | # c|
06e2 bdc0 0000 | |
06e4 0005 e000 | |
06e6 0000 0000 | | .BLANK 0000[0x6]
06ec 2000 0000 | | .XXX[0x2b]
06ee 031b ff08 | |
06f0 9000 63dc | c |
06f2 4000 0000 |@ |
06f4 063b 0800 | ; |
06f6 c936 c69f | 6 |
06f8 8019 6330 | c0|
06fa 0000 0001 | |
06fc 8ef7 0063 | c|
06fe 6200 18ce |b |
0700 e4d4 2c01 | , |
0702 9288 0000 | |
0704 0000 3c00 | < |
0706 0000 0000 | |
0708 0000 0001 | |
070a 3b17 0064 |; d|
070c a200 0000 | |
070e 0001 6000 | ` |
0710 0000 0228 | (|
0712 4600 c907 |F |
0714 0000 0000 | |
0716 1580 | |
0717 0000 0000 | | .BLANK 0000[0x6]
071d 0040 0000 | @ | .XXX[0x1a]
071f 0006 445a | DZ|
0721 1120 00c9 | |
0723 4400 0000 |D |
0725 000c 8ec8 | |
0727 0195 848d | |
0729 3f00 32c6 |? 2 |
072b 6000 0000 |` |
072d 0324 1c00 | $ |
072f c84f 8032 | O 2|
0731 00a9 a858 | X|
0733 032b 3e00 | +> |
0735 0000 0078 | x|
0737 0000 0000 | | .BLANK 0000[0x4]
073b 0276 2e00 | v. | .XXX[0xd]
073d cacf 8000 | |
073f 0000 02c0 | |
0741 0000 0004 | |
0743 508c 0195 |P |
0745 2500 0000 |% |
0747 0031 | 1 |
0748 0000 0000 | | .BLANK 0000[0x7]
074f 8000 0000 | | .XXX[0x17]
0751 0ca1 6c22 | l"|
0753 4001 959f |@ |
0755 0000 0000 | |
0757 194f 0000 | O |
0759 0001 1a7e | ~|
075b 0065 8cc0 | e |
075d 0000 0006 | |
075f 5494 0193 |T |
0761 b600 64c7 | d |
0763 10c9 4006 | @ |
0765 5b0c |[ |
0766 0000 0000 | | .BLANK 0000[0x6]
076c 1017 b006 | | .XXX[0x10]
076e 615c 0000 |a\ |
0770 0000 658c | e |
0772 e6ce e00c | |
0774 c2b8 0000 | |
0776 008c 1600 | |
0778 330a e00d |3 |
077a 5200 06a0 |R |
077c 0000 0000 | | .BLANK 0000[0x7]
0783 0197 6800 | h | .XXX[0x11]
0785 1906 3d00 | = |
0787 2b5d c000 |+] |
0789 0000 065d | ]|
078b a001 96c3 | |
078d 0065 c880 | e |
078f 0010 06f2 | |
0791 b801 9857 | W|
0793 8646 | F |
0794 0000 0000 | | .BLANK 0000[0x5]
0799 0003 3380 | 3 | .XXX[0xb]
079b 0000 0000 | |
079d 0000 0001 | |
079f 9a00 0000 | |
07a1 0000 0000 | |
07a3 0080 | |
07a4 0000 0000 | | .BLANK 0000[0x5c]