|
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 07c0 | | .CONST 0x07c0 ; 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 8004 | | .CONST 0x8004 ; 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 0076 | v | .CONST 0x0076 ; Address of begin
0019 0220 | | .CONST 0x0220 ; Address of exception handler
001a 0018 | | .CONST 0x0018 ; Number of locals
001b INIT_0018:
001b 485f |H_ | Short_Literal 0x5f
001c 4800 |H | Short_Literal 0x0
001d 4803 |H | Short_Literal 0x3
001e 4804 |H | Short_Literal 0x4
001f e001 | | Load 0x0,0x1
0020 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0021 e001 | | Load 0x0,0x1
0022 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0023 01ca | | Execute Vector,Prepend
0024 0007 | | Action Break_Optional
0025 0092 0370 | p| Action Push_String_Extended,0x370 ; "Install_Initialize"
0027 00d9 | | Load_Top At_Offset_1
0028 01cc | | Execute Vector,Catenate
0029 0007 | | Action Break_Optional
002a 0092 0371 | q| Action Push_String_Extended,0x371 ; "$$.Lists.Init_Procs_To_Delete"
002c 0092 0372 | r| Action Push_String_Extended,0x372 ; "$$.Lists.Init_Procs_To_Change"
002e 0092 0373 | s| Action Push_String_Extended,0x373 ; "$$.Golden_Initialize_Procedures."
0030 0092 0374 | t| Action Push_String_Extended,0x374 ; "!Machine.Initialization.Local.Terminal_Configuration"
0032 0092 0375 | u| Action Push_String_Extended,0x375 ; "!Machine.Initialization.Local.Printer_Configuration"
0034 0092 0376 | v| Action Push_String_Extended,0x376 ; "!Machine.Initialization.Rational.Mail_Start"
0036 0092 0377 | w| Action Push_String_Extended,0x377 ; "!Machine.Initialization.Site.Distribute_Server_Start"
0038 0092 0378 | x| Action Push_String_Extended,0x378 ; "$$.Logs."
003a 0092 0379 | y| Action Push_String_Extended,0x379 ; "$$.Universe"
003c 0092 037a | z| Action Push_String_Extended,0x37a ; "$$.Lists"
003e e5ff | | Load 0x2,-0x1
003f 8002 | | Call 0x0,0x2
0040 e003 | | Load 0x0,0x3
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 02c7 | | Declare_Variable Any
0043 e003 | | Load 0x0,0x3
0044 180e | | Execute Package,Field_Execute,Field_Number 0xe
0045 a40f | | Store_Unchecked 0x2,0xf
0046 e003 | | Load 0x0,0x3
0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0048 02c7 | | Declare_Variable Any
0049 00d8 | | Load_Top At_Offset_0
004a 1c00 | | Execute_Immediate Run_Utility,0x0
004b e004 | | Load 0x0,0x4
004c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
004d 4800 |H | Short_Literal 0x0
004e 4801 |H | Short_Literal 0x1
004f 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0051 03fd | | Declare_Type Discrete,Defined
0052 e005 | | Load 0x0,0x5
0053 e006 | | Load 0x0,0x6
0054 00da | | Load_Top At_Offset_2
0055 4800 |H | Short_Literal 0x0
0056 4801 |H | Short_Literal 0x1
0057 4801 |H | Short_Literal 0x1
0058 0092 037b | {| Action Push_String_Extended,0x37b ; "check_comments => boolean"
005a 00ea | | Load_Encached Null_String_Cache
005b 00ea | | Load_Encached Null_String_Cache
005c 4801 |H | Short_Literal 0x1
005d 4801 |H | Short_Literal 0x1
005e e007 | | Load 0x0,0x7
005f 0387 | | Declare_Variable Package
0060 00d8 | | Load_Top At_Offset_0
0061 020f | | Execute Module,Activate
0062 e5fd | | Load 0x2,-0x3
0063 00d9 | | Load_Top At_Offset_1
0064 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0065 4801 |H | Short_Literal 0x1
0066 4801 |H | Short_Literal 0x1
0067 00da | | Load_Top At_Offset_2
0068 e413 | | Load 0x2,0x13
0069 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
006a 0f00 | | Execute_Immediate Equal,0x0
006b 00e1 | | Load_Encached Boolean_Cache
006c 03f1 | | Declare_Variable Discrete,With_Value
006d e008 | | Load 0x0,0x8
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 02c7 | | Declare_Variable Any
0070 00d8 | | Load_Top At_Offset_0
0071 1c00 | | Execute_Immediate Run_Utility,0x0
0072 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0074 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0076 BODY_0018:
0076 4801 |H | Short_Literal 0x1
0077 e004 | | Load 0x0,0x4
0078 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0079 e004 | | Load 0x0,0x4
007a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007b 7008 |p | Jump_Nonzero 0x84
007c e003 | | Load 0x0,0x3
007d 180e | | Execute Package,Field_Execute,Field_Number 0xe
007e 4805 |H | Short_Literal 0x5
007f 0092 037c | || Action Push_String_Extended,0x37c ; "Aborting initialize conversion: Could not set PRIVILEGED MODE."
0081 e009 | | Load 0x0,0x9
0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0083 7998 |y | Jump 0x21c
0084 0092 037d | }| Action Push_String_Extended,0x37d ; "$$.Combined_Mload"
0086 800a | | Call 0x0,0xa
0087 7019 |p | Jump_Nonzero 0xa1
0088 e003 | | Load 0x0,0x3
0089 180e | | Execute Package,Field_Execute,Field_Number 0xe
008a 4805 |H | Short_Literal 0x5
008b 0092 037e | ~| Action Push_String_Extended,0x37e ; "Aborting initialize conversion: "
008d 61ca |a | Indirect_Literal Discrete,0x258,{0x00000000, 0x00004000}
008e e00b | | Load 0x0,0xb
008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0090 e00c | | Load 0x0,0xc
0091 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0092 e00d | | Load 0x0,0xd
0093 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0094 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0095 0092 037f | | Action Push_String_Extended,0x37f ; "$$"
0097 e00d | | Load 0x0,0xd
0098 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0099 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
009a 01cc | | Execute Vector,Catenate
009b 0092 0380 | | Action Push_String_Extended,0x380 ; " is not a release world."
009d 01cc | | Execute Vector,Catenate
009e e009 | | Load 0x0,0x9
009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a0 797b |y{ | Jump 0x21c
00a1 0092 0381 | | Action Push_String_Extended,0x381 ; "!Machine.Initialization"
00a3 800a | | Call 0x0,0xa
00a4 7008 |p | Jump_Nonzero 0xad
00a5 e003 | | Load 0x0,0x3
00a6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a7 4805 |H | Short_Literal 0x5
00a8 0092 0382 | | Action Push_String_Extended,0x382 ; "Aborting initialize conversion: INSTALL_UNIVERSE has not been completed."
00aa e009 | | Load 0x0,0x9
00ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ac 796f |yo | Jump 0x21c
00ad e003 | | Load 0x0,0x3
00ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
00af 4803 |H | Short_Literal 0x3
00b0 0092 0383 | | Action Push_String_Extended,0x383 ; "Installing Machine Initialize "
00b2 e40e | | Load 0x2,0xe
00b3 01cc | | Execute Vector,Catenate
00b4 e009 | | Load 0x0,0x9
00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b6 e40b | | Load 0x2,0xb
00b7 800a | | Call 0x0,0xa
00b8 700b |p | Jump_Nonzero 0xc4
00b9 0092 0384 | | Action Push_String_Extended,0x384 ; "<PROFILE>"
00bb 00ea | | Load_Encached Null_String_Cache
00bc 4800 |H | Short_Literal 0x0
00bd 4801 |H | Short_Literal 0x1
00be 4801 |H | Short_Literal 0x1
00bf 4807 |H | Short_Literal 0x7
00c0 e40b | | Load 0x2,0xb
00c1 01cf | | Execute Vector,Slice_Read
00c2 e00e | | Load 0x0,0xe
00c3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00c4 e003 | | Load 0x0,0x3
00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c6 e003 | | Load 0x0,0x3
00c7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c8 e40b | | Load 0x2,0xb
00c9 e403 | | Load 0x2,0x3
00ca 01cc | | Execute Vector,Catenate
00cb e009 | | Load 0x0,0x9
00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cd e003 | | Load 0x0,0x3
00ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cf 4803 |H | Short_Literal 0x3
00d0 0092 0383 | | Action Push_String_Extended,0x383 ; "Installing Machine Initialize "
00d2 e40e | | Load 0x2,0xe
00d3 01cc | | Execute Vector,Catenate
00d4 e009 | | Load 0x0,0x9
00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d6 e5fe | | Load 0x2,-0x2
00d7 01db | | Execute Vector,Length
00d8 7006 |p | Jump_Nonzero 0xdf
00d9 0092 0385 | | Action Push_String_Extended,0x385 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols), !!!|>>>|+++|++*|***|%%%, Activity = !Machine.Release.Current.Activity"
00db e003 | | Load 0x0,0x3
00dc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00dd c410 | | Store 0x2,0x10
00de 7804 |x | Jump 0xe3
00df e5fe | | Load 0x2,-0x2
00e0 e003 | | Load 0x0,0x3
00e1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00e2 c410 | | Store 0x2,0x10
00e3 e410 | | Load 0x2,0x10
00e4 e003 | | Load 0x0,0x3
00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e6 e00f | | Load 0x0,0xf
00e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e8 e00f | | Load 0x0,0xf
00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ea 00d9 | | Load_Top At_Offset_1
00eb 00d0 | | Action Swap_Control
00ec 0260 | ` | Execute Discrete,In_Type
00ed 7001 |p | Jump_Nonzero 0xef
00ee 0801 | | Execute_Immediate Raise,0x1
00ef 6164 |ad | Indirect_Literal Discrete,0x254,{0x00000000, 0x00003e80}
00f0 e00f | | Load 0x0,0xf
00f1 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00f2 0092 0386 | | Action Push_String_Extended,0x386 ; "!Machine.Initialize_Site"
00f4 800a | | Call 0x0,0xa
00f5 6832 |h2 | Jump_Zero 0x128
00f6 0092 0387 | | Action Push_String_Extended,0x387 ; "!Machine.Initialization.Local.Initialize_Site"
00f8 800a | | Call 0x0,0xa
00f9 7023 |p# | Jump_Nonzero 0x11d
00fa 4800 |H | Short_Literal 0x0
00fb 0092 0388 | | Action Push_String_Extended,0x388 ; "Moving Initialize_Site to Initialization.Local"
00fd 8010 | | Call 0x0,0x10
00fe 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0100 4802 |H | Short_Literal 0x2
0101 0092 038a | | Action Push_String_Extended,0x38a ; "?"
0103 0092 038b | | Action Push_String_Extended,0x38b ; "@"
0105 0092 038c | | Action Push_String_Extended,0x38c ; "!Machine.Initialization.Local"
0107 0092 038d | | Action Push_String_Extended,0x38d ; "!Machine"
0109 e011 | | Load 0x0,0x11
010a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
010b 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
010d 4801 |H | Short_Literal 0x1
010e 0092 0386 | | Action Push_String_Extended,0x386 ; "!Machine.Initialize_Site"
0110 e00e | | Load 0x0,0xe
0111 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0112 00ea | | Load_Encached Null_String_Cache
0113 4801 |H | Short_Literal 0x1
0114 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0116 4801 |H | Short_Literal 0x1
0117 0092 038e | | Action Push_String_Extended,0x38e ; "!Machine.Initialization.Local.#"
0119 0092 0386 | | Action Push_String_Extended,0x386 ; "!Machine.Initialize_Site"
011b e00e | | Load 0x0,0xe
011c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011d 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
011f 4800 |H | Short_Literal 0x0
0120 0092 038f | | Action Push_String_Extended,0x38f ; "<ALL_WORLDS>"
0122 4803 |H | Short_Literal 0x3
0123 4802 |H | Short_Literal 0x2
0124 0092 0387 | | Action Push_String_Extended,0x387 ; "!Machine.Initialization.Local.Initialize_Site"
0126 e012 | | Load 0x0,0x12
0127 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0128 0092 0390 | | Action Push_String_Extended,0x390 ; "MAIL"
012a e013 | | Load 0x0,0x13
012b 180e | | Execute Package,Field_Execute,Field_Number 0xe
012c 6897 |h | Jump_Zero 0x1c4
012d 0092 0391 | | Action Push_String_Extended,0x391 ; "!Tools.Mail.Current"
012f 800a | | Call 0x0,0xa
0130 6870 |hp | Jump_Zero 0x1a1
0131 4800 |H | Short_Literal 0x0
0132 0092 0392 | | Action Push_String_Extended,0x392 ; "Release11_5_7"
0134 4800 |H | Short_Literal 0x0
0135 0092 0391 | | Action Push_String_Extended,0x391 ; "!Tools.Mail.Current"
0137 8014 | | Call 0x0,0x14
0138 e015 | | Load 0x0,0x15
0139 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
013a 7066 |pf | Jump_Nonzero 0x1a1
013b 4800 |H | Short_Literal 0x0
013c 0092 0393 | | Action Push_String_Extended,0x393 ; "Creating New Mail Initialization Files"
013e 8010 | | Call 0x0,0x10
013f 00da | | Load_Top At_Offset_2
0140 00ea | | Load_Encached Null_String_Cache
0141 e409 | | Load 0x2,0x9
0142 4801 |H | Short_Literal 0x1
0143 e008 | | Load 0x0,0x8
0144 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0145 c416 | | Store 0x2,0x16
0146 0092 0394 | | Action Push_String_Extended,0x394 ; "--|No_Wait"
0148 00db | | Load_Top At_Offset_3
0149 e008 | | Load 0x0,0x8
014a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
014b 0092 0395 | | Action Push_String_Extended,0x395 ; "--|Procedure_Name Initialize"
014d 00db | | Load_Top At_Offset_3
014e e008 | | Load 0x0,0x8
014f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0150 0092 0396 | | Action Push_String_Extended,0x396 ; "--|Procedure_Context !Machine.Transfer"
0152 00db | | Load_Top At_Offset_3
0153 e008 | | Load 0x0,0x8
0154 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0155 00da | | Load_Top At_Offset_2
0156 e008 | | Load 0x0,0x8
0157 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0158 c416 | | Store 0x2,0x16
0159 00da | | Load_Top At_Offset_2
015a 00ea | | Load_Encached Null_String_Cache
015b e40a | | Load 0x2,0xa
015c 4801 |H | Short_Literal 0x1
015d e008 | | Load 0x0,0x8
015e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
015f c416 | | Store 0x2,0x16
0160 0092 0394 | | Action Push_String_Extended,0x394 ; "--|No_Wait"
0162 00db | | Load_Top At_Offset_3
0163 e008 | | Load 0x0,0x8
0164 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0165 0092 0397 | | Action Push_String_Extended,0x397 ; "--|Procedure_Name Distribute_Server"
0167 00db | | Load_Top At_Offset_3
0168 e008 | | Load 0x0,0x8
0169 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
016a 0092 0398 | | Action Push_String_Extended,0x398 ; "--|Procedure_Context !Machine.Transfer.Distribute"
016c 00db | | Load_Top At_Offset_3
016d e008 | | Load 0x0,0x8
016e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
016f 00da | | Load_Top At_Offset_2
0170 e008 | | Load 0x0,0x8
0171 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0172 c416 | | Store 0x2,0x16
0173 0092 0399 | | Action Push_String_Extended,0x399 ; "!Machine.Initialize_Mail"
0175 800a | | Call 0x0,0xa
0176 684d |hM | Jump_Zero 0x1c4
0177 4801 |H | Short_Literal 0x1
0178 0092 039a | | Action Push_String_Extended,0x39a ; "$$.Golden_Initialize_Procedures.Initialize_Mail"
017a 0092 0399 | | Action Push_String_Extended,0x399 ; "!Machine.Initialize_Mail"
017c 8016 | | Call 0x0,0x16
017d 6811 |h | Jump_Zero 0x18f
017e 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0180 4801 |H | Short_Literal 0x1
0181 0092 0399 | | Action Push_String_Extended,0x399 ; "!Machine.Initialize_Mail"
0183 e00e | | Load 0x0,0xe
0184 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0185 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0187 0092 039b | | Action Push_String_Extended,0x39b ; "<WORLDS>"
0189 4802 |H | Short_Literal 0x2
018a 0092 0399 | | Action Push_String_Extended,0x399 ; "!Machine.Initialize_Mail"
018c e012 | | Load 0x0,0x12
018d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
018e 7835 |x5 | Jump 0x1c4
018f e003 | | Load 0x0,0x3
0190 180e | | Execute Package,Field_Execute,Field_Number 0xe
0191 4806 |H | Short_Literal 0x6
0192 0092 039c | | Action Push_String_Extended,0x39c ; "!Machine.Initialize_Mail has been changed"
0194 e009 | | Load 0x0,0x9
0195 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0196 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0198 4800 |H | Short_Literal 0x0
0199 0092 039b | | Action Push_String_Extended,0x39b ; "<WORLDS>"
019b 4800 |H | Short_Literal 0x0
019c 0092 0399 | | Action Push_String_Extended,0x399 ; "!Machine.Initialize_Mail"
019e e012 | | Load 0x0,0x12
019f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a0 7823 |x# | Jump 0x1c4
01a1 4800 |H | Short_Literal 0x0
01a2 0092 039d | | Action Push_String_Extended,0x39d ; "Creating Mail Initailization File"
01a4 8010 | | Call 0x0,0x10
01a5 00da | | Load_Top At_Offset_2
01a6 00ea | | Load_Encached Null_String_Cache
01a7 e409 | | Load 0x2,0x9
01a8 4801 |H | Short_Literal 0x1
01a9 e008 | | Load 0x0,0x8
01aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ab c416 | | Store 0x2,0x16
01ac 0092 039e | | Action Push_String_Extended,0x39e ; "--|Prerequisite Network"
01ae 00db | | Load_Top At_Offset_3
01af e008 | | Load 0x0,0x8
01b0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01b1 0092 0394 | | Action Push_String_Extended,0x394 ; "--|No_Wait"
01b3 00db | | Load_Top At_Offset_3
01b4 e008 | | Load 0x0,0x8
01b5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01b6 0092 039f | | Action Push_String_Extended,0x39f ; "--|Procedure_Name Initialize_Mail"
01b8 00db | | Load_Top At_Offset_3
01b9 e008 | | Load 0x0,0x8
01ba 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01bb 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "--|Procedure_Context !Machine"
01bd 00db | | Load_Top At_Offset_3
01be e008 | | Load 0x0,0x8
01bf 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01c0 00da | | Load_Top At_Offset_2
01c1 e008 | | Load 0x0,0x8
01c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c3 c416 | | Store 0x2,0x16
01c4 4800 |H | Short_Literal 0x0
01c5 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "Scanning for Changes to Initialize Units"
01c7 8010 | | Call 0x0,0x10
01c8 e404 | | Load 0x2,0x4
01c9 e405 | | Load 0x2,0x5
01ca 8417 | | Call 0x2,0x17
01cb e407 | | Load 0x2,0x7
01cc 800a | | Call 0x0,0xa
01cd 7007 |p | Jump_Nonzero 0x1d5
01ce 4800 |H | Short_Literal 0x0
01cf 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "Creating Terminal Configuration File"
01d1 8010 | | Call 0x0,0x10
01d2 4800 |H | Short_Literal 0x0
01d3 e407 | | Load 0x2,0x7
01d4 8017 | | Call 0x0,0x17
01d5 e408 | | Load 0x2,0x8
01d6 800a | | Call 0x0,0xa
01d7 7005 |p | Jump_Nonzero 0x1dd
01d8 4800 |H | Short_Literal 0x0
01d9 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Creating Empty Printer Configuration File"
01db 8010 | | Call 0x0,0x10
01dc 8418 | | Call 0x2,0x18
01dd 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "!Machine.Cross_Compilers"
01df 800a | | Call 0x0,0xa
01e0 6813 |h | Jump_Zero 0x1f4
01e1 0092 03a5 | | Action Push_String_Extended,0x3a5 ; "!Machine.Initialization.Local.Cross_Compiler_Configuration"
01e3 800a | | Call 0x0,0xa
01e4 700f |p | Jump_Nonzero 0x1f4
01e5 4800 |H | Short_Literal 0x0
01e6 0092 03a6 | | Action Push_String_Extended,0x3a6 ; "Moving Cross Compiler configuration file"
01e8 8010 | | Call 0x0,0x10
01e9 00ea | | Load_Encached Null_String_Cache
01ea 4801 |H | Short_Literal 0x1
01eb 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
01ed 4801 |H | Short_Literal 0x1
01ee 0092 03a5 | | Action Push_String_Extended,0x3a5 ; "!Machine.Initialization.Local.Cross_Compiler_Configuration"
01f0 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "!Machine.Cross_Compilers"
01f2 e00e | | Load 0x0,0xe
01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f4 0092 03a7 | | Action Push_String_Extended,0x3a7 ; "!Machine.Design_Facilities"
01f6 800a | | Call 0x0,0xa
01f7 6813 |h | Jump_Zero 0x20b
01f8 0092 03a8 | | Action Push_String_Extended,0x3a8 ; "!Machine.Initialization.Local.Design_Facility_Configuration"
01fa 800a | | Call 0x0,0xa
01fb 700f |p | Jump_Nonzero 0x20b
01fc 4800 |H | Short_Literal 0x0
01fd 0092 03a9 | | Action Push_String_Extended,0x3a9 ; "Moving Design Facilities configuration file"
01ff 8010 | | Call 0x0,0x10
0200 00ea | | Load_Encached Null_String_Cache
0201 4801 |H | Short_Literal 0x1
0202 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
0204 4801 |H | Short_Literal 0x1
0205 0092 03a8 | | Action Push_String_Extended,0x3a8 ; "!Machine.Initialization.Local.Design_Facility_Configuration"
0207 0092 03a7 | | Action Push_String_Extended,0x3a7 ; "!Machine.Design_Facilities"
0209 e00e | | Load 0x0,0xe
020a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020b e40f | | Load 0x2,0xf
020c e003 | | Load 0x0,0x3
020d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020e 4801 |H | Short_Literal 0x1
020f 0092 0370 | p| Action Push_String_Extended,0x370 ; "Install_Initialize"
0211 8010 | | Call 0x0,0x10
0212 e003 | | Load 0x0,0x3
0213 180e | | Execute Package,Field_Execute,Field_Number 0xe
0214 e003 | | Load 0x0,0x3
0215 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0216 e009 | | Load 0x0,0x9
0217 180f | | Execute Package,Field_Execute,Field_Number 0xf
0218 e40b | | Load 0x2,0xb
0219 e403 | | Load 0x2,0x3
021a 01cc | | Execute Vector,Catenate
021b 8018 | | Call 0x0,0x18
021c e411 | | Load 0x2,0x11
021d e004 | | Load 0x0,0x4
021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
021f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0220 TRAP_0018:
0220 0007 | | Action Break_Optional
0221 e003 | | Load 0x0,0x3
0222 180e | | Execute Package,Field_Execute,Field_Number 0xe
0223 4808 |H | Short_Literal 0x8
0224 4801 |H | Short_Literal 0x1
0225 4801 |H | Short_Literal 0x1
0226 e019 | | Load 0x0,0x19
0227 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0228 0092 03aa | | Action Push_String_Extended,0x3aa ; " Raised installing initialize "
022a 01cc | | Execute Vector,Catenate
022b e5ff | | Load 0x2,-0x1
022c 01cc | | Execute Vector,Catenate
022d e009 | | Load 0x0,0x9
022e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022f e003 | | Load 0x0,0x3
0230 180e | | Execute Package,Field_Execute,Field_Number 0xe
0231 e003 | | Load 0x0,0x3
0232 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0233 680f |h | Jump_Zero 0x243
0234 e40f | | Load 0x2,0xf
0235 e003 | | Load 0x0,0x3
0236 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0237 e003 | | Load 0x0,0x3
0238 180e | | Execute Package,Field_Execute,Field_Number 0xe
0239 e003 | | Load 0x0,0x3
023a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
023b e009 | | Load 0x0,0x9
023c 180f | | Execute Package,Field_Execute,Field_Number 0xf
023d e40b | | Load 0x2,0xb
023e e403 | | Load 0x2,0x3
023f 01cc | | Execute Vector,Catenate
0240 8018 | | Call 0x0,0x18
0241 00d8 | | Load_Top At_Offset_0
0242 0101 | | Execute Exception,Reraise
0243 e40f | | Load 0x2,0xf
0244 e003 | | Load 0x0,0x3
0245 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0246 e003 | | Load 0x0,0x3
0247 180e | | Execute Package,Field_Execute,Field_Number 0xe
0248 e003 | | Load 0x0,0x3
0249 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
024a e009 | | Load 0x0,0x9
024b 180f | | Execute Package,Field_Execute,Field_Number 0xf
024c e40b | | Load 0x2,0xb
024d e403 | | Load 0x2,0x3
024e 01cc | | Execute Vector,Catenate
024f 8018 | | Call 0x0,0x18
0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0251 0000 0000 | | .XXX[0x3]
0253 0000 | |
0254 0000 0000 | | .LITERAL {0x00000000, 0x00003e80}
0258 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4607 |F | Jump_Case 0x8
0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0265 7806 |x | Jump 0x26c ; case 0x1
0266 7809 |x | Jump 0x270 ; case 0x2
0267 780d |x | Jump 0x275 ; case 0x3
0268 7810 |x | Jump 0x279 ; case 0x4
0269 7811 |x | Jump 0x27b ; case 0x5
026a 7812 |x | Jump 0x27d ; case 0x6
026b 7815 |x | Jump 0x281 ; case 0x7
026c 00da | | Load_Top At_Offset_2
026d 0091 036e | n| Action Push_String_Extended_Indexed,0x36e ; "NIL"
026f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0270 00db | | Load_Top At_Offset_3
0271 00db | | Load_Top At_Offset_3
0272 00e0 | | Load_Encached Standard_Cache
0273 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0274 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0275 00da | | Load_Top At_Offset_2
0276 00e0 | | Load_Encached Standard_Cache
0277 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0278 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0279 00db | | Load_Top At_Offset_3
027a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027b 00db | | Load_Top At_Offset_3
027c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027d e412 | | Load 0x2,0x12
027e 00dc | | Load_Top At_Offset_4
027f 0267 | g | Execute Discrete,Predecessor
0280 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0281 e412 | | Load 0x2,0x12
0282 00dc | | Load_Top At_Offset_4
0283 0268 | h | Execute Discrete,Successor
0284 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02a2 | | .CONST 0x02a2 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0007 | | .CONST 0x0007 ; Number of locals
028b INIT_0288:
028b 0092 03ab | | Action Push_String_Extended,0x3ab ; "!Machine.[Initialize@'C(ADA)'SPEC, ~Initialize_Mail]"
028d e00d | | Load 0x0,0xd
028e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0290 02c7 | | Declare_Variable Any
0291 00d8 | | Load_Top At_Offset_0
0292 1c00 | | Execute_Immediate Run_Utility,0x0
0293 e00d | | Load 0x0,0xd
0294 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0295 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0296 e008 | | Load 0x0,0x8
0297 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0298 02c7 | | Declare_Variable Any
0299 00d8 | | Load_Top At_Offset_0
029a 1c00 | | Execute_Immediate Run_Utility,0x0
029b e008 | | Load 0x0,0x8
029c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029d 02c7 | | Declare_Variable Any
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 029f 031b | | Declare_Subprogram INIT_0318,For_Call
02a2 BODY_0288:
02a2 00da | | Load_Top At_Offset_2
02a3 00ea | | Load_Encached Null_String_Cache
02a4 e7ff | | Load 0x3,-0x1
02a5 4801 |H | Short_Literal 0x1
02a6 e008 | | Load 0x0,0x8
02a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a8 c605 | | Store 0x3,0x5
02a9 00d9 | | Load_Top At_Offset_1
02aa 00ea | | Load_Encached Null_String_Cache
02ab e7fe | | Load 0x3,-0x2
02ac 4801 |H | Short_Literal 0x1
02ad e008 | | Load 0x0,0x8
02ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02af c606 | | Store 0x3,0x6
02b0 e00d | | Load 0x0,0xd
02b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b3 e603 | | Load 0x3,0x3
02b4 6047 |`G | Indirect_Literal Discrete,0x2fc,{0x00000000, 0x00004000}
02b5 e00b | | Load 0x0,0xb
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 e00c | | Load 0x0,0xc
02b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b9 e01a | | Load 0x0,0x1a
02ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bb 4801 |H | Short_Literal 0x1
02bc 4800 |H | Short_Literal 0x0
02bd e00c | | Load 0x0,0xc
02be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bf e00d | | Load 0x0,0xd
02c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c2 e602 | | Load 0x3,0x2
02c3 e00d | | Load 0x0,0xd
02c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c6 c603 | | Store 0x3,0x3
02c7 c604 | | Store 0x3,0x4
02c8 00cf | | Action Mark_Auxiliary
02c9 7807 |x | Jump 0x2d1
02ca 8607 | | Call 0x3,0x7
02cb e603 | | Load 0x3,0x3
02cc e00d | | Load 0x0,0xd
02cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02cf c603 | | Store 0x3,0x3
02d0 00c9 | | Action Pop_Auxiliary_Loop
02d1 e603 | | Load 0x3,0x3
02d2 e00d | | Load 0x0,0xd
02d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d5 6ff4 |o | Jump_Zero 0x2ca
02d6 00ce | | Action Pop_Auxiliary
02d7 e603 | | Load 0x3,0x3
02d8 e00d | | Load 0x0,0xd
02d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02da 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
02db c603 | | Store 0x3,0x3
02dc 00da | | Load_Top At_Offset_2
02dd e008 | | Load 0x0,0x8
02de 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02df c605 | | Store 0x3,0x5
02e0 00d9 | | Load_Top At_Offset_1
02e1 e008 | | Load 0x0,0x8
02e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02e3 c606 | | Store 0x3,0x6
02e4 e7ff | | Load 0x3,-0x1
02e5 801b | | Call 0x0,0x1b
02e6 6808 |h | Jump_Zero 0x2ef
02e7 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
02e9 0092 03ac | | Action Push_String_Extended,0x3ac ; "<DIRECTORIES>"
02eb 4801 |H | Short_Literal 0x1
02ec e7ff | | Load 0x3,-0x1
02ed e00e | | Load 0x0,0xe
02ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ef e7fe | | Load 0x3,-0x2
02f0 801b | | Call 0x0,0x1b
02f1 6808 |h | Jump_Zero 0x2fa
02f2 0092 0389 | | Action Push_String_Extended,0x389 ; "<ERRORS>"
02f4 0092 03ac | | Action Push_String_Extended,0x3ac ; "<DIRECTORIES>"
02f6 4801 |H | Short_Literal 0x1
02f7 e7fe | | Load 0x3,-0x2
02f8 e00e | | Load 0x0,0xe
02f9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fb 0000 | | .XXX[0x1]
02fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308 | | .CONST 0x0308 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 e008 | | Load 0x0,0x8
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 02c7 | | Declare_Variable Any
0306 00d8 | | Load_Top At_Offset_0
0307 1c00 | | Execute_Immediate Run_Utility,0x0
0308 BODY_0300:
0308 00d8 | | Load_Top At_Offset_0
0309 00ea | | Load_Encached Null_String_Cache
030a e408 | | Load 0x2,0x8
030b 4801 |H | Short_Literal 0x1
030c e008 | | Load 0x0,0x8
030d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
030e c602 | | Store 0x3,0x2
030f 00d8 | | Load_Top At_Offset_0
0310 e008 | | Load 0x0,0x8
0311 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0312 c602 | | Store 0x3,0x2
0313 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0333 | 3 | .CONST 0x0333 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0004 | | .CONST 0x0004 ; Number of locals
031b INIT_0318:
031b e603 | | Load 0x3,0x3
031c e00d | | Load 0x0,0xd
031d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
031f 00d8 | | Load_Top At_Offset_0
0320 e00d | | Load 0x0,0xd
0321 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0322 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0323 0092 03ad | | Action Push_String_Extended,0x3ad ; "."
0325 01cc | | Execute Vector,Catenate
0326 00d9 | | Load_Top At_Offset_1
0327 e00d | | Load 0x0,0xd
0328 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0329 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
032a 01cc | | Execute Vector,Catenate
032b 0007 | | Action Break_Optional
032c e406 | | Load 0x2,0x6
032d 00d9 | | Load_Top At_Offset_1
032e e00d | | Load 0x0,0xd
032f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0330 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0331 01cc | | Execute Vector,Catenate
0332 0007 | | Action Break_Optional
0333 BODY_0318:
0333 00d8 | | Load_Top At_Offset_0
0334 800a | | Call 0x0,0xa
0335 682a |h* | Jump_Zero 0x360
0336 e415 | | Load 0x2,0x15
0337 00d9 | | Load_Top At_Offset_1
0338 00db | | Load_Top At_Offset_3
0339 8016 | | Call 0x0,0x16
033a 6811 |h | Jump_Zero 0x34c
033b e003 | | Load 0x0,0x3
033c 180e | | Execute Package,Field_Execute,Field_Number 0xe
033d 4803 |H | Short_Literal 0x3
033e 00db | | Load_Top At_Offset_3
033f 0092 03ae | | Action Push_String_Extended,0x3ae ; " is an old initialize file"
0341 01cc | | Execute Vector,Catenate
0342 0092 03af | | Action Push_String_Extended,0x3af ; " and will be added to the delete list."
0344 01cc | | Execute Vector,Catenate
0345 e009 | | Load 0x0,0x9
0346 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0347 00d9 | | Load_Top At_Offset_1
0348 e606 | | Load 0x3,0x6
0349 e008 | | Load 0x0,0x8
034a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
034b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034c e003 | | Load 0x0,0x3
034d 180e | | Execute Package,Field_Execute,Field_Number 0xe
034e 4806 |H | Short_Literal 0x6
034f 00db | | Load_Top At_Offset_3
0350 0092 03b0 | | Action Push_String_Extended,0x3b0 ; " has been "
0352 01cc | | Execute Vector,Catenate
0353 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "modified from the released version, "
0355 01cc | | Execute Vector,Catenate
0356 0092 03b2 | | Action Push_String_Extended,0x3b2 ; "it will not be deleted."
0358 01cc | | Execute Vector,Catenate
0359 e009 | | Load 0x0,0x9
035a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
035b 00d9 | | Load_Top At_Offset_1
035c e605 | | Load 0x3,0x5
035d e008 | | Load 0x0,0x8
035e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
035f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0360 e003 | | Load 0x0,0x3
0361 180e | | Execute Package,Field_Execute,Field_Number 0xe
0362 4803 |H | Short_Literal 0x3
0363 00db | | Load_Top At_Offset_3
0364 0092 03b3 | | Action Push_String_Extended,0x3b3 ; " is a new unit, it will not be deleted"
0366 01cc | | Execute Vector,Catenate
0367 e009 | | Load 0x0,0x9
0368 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0369 00d9 | | Load_Top At_Offset_1
036a e605 | | Load 0x3,0x5
036b e008 | | Load 0x0,0x8
036c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
036d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
036e ; --------------------------------------------------------------------------------------
036e ; STRING TABLE
036e ; --------------------------------------------------------------------------------------
036e 008e | | .STRTAB 0x008e->0x03b5 ; "NIL"
036f 008f | | .STRTAB 0x008f->0x03b6 ; "CHECK_COMMENTS"
0370 009b | | .STRTAB 0x009b->0x03bd ; "Install_Initialize"
0371 00ab | | .STRTAB 0x00ab->0x03c6 ; "$$.Lists.Init_Procs_To_Delete"
0372 00c6 | | .STRTAB 0x00c6->0x03d5 ; "$$.Lists.Init_Procs_To_Change"
0373 00e1 | | .STRTAB 0x00e1->0x03e3 ; "$$.Golden_Initialize_Procedures."
0374 00ff | | .STRTAB 0x00ff->0x03f3 ; "!Machine.Initialization.Local.Terminal_Configuration"
0375 0131 | 1 | .STRTAB 0x0131->0x040d ; "!Machine.Initialization.Local.Printer_Configuration"
0376 0162 | b | .STRTAB 0x0162->0x0427 ; "!Machine.Initialization.Rational.Mail_Start"
0377 018b | | .STRTAB 0x018b->0x043c ; "!Machine.Initialization.Site.Distribute_Server_Start"
0378 01bd | | .STRTAB 0x01bd->0x0456 ; "$$.Logs."
0379 01c3 | | .STRTAB 0x01c3->0x045a ; "$$.Universe"
037a 01cc | | .STRTAB 0x01cc->0x0460 ; "$$.Lists"
037b 01d2 | | .STRTAB 0x01d2->0x0464 ; "check_comments => boolean"
037c 01e9 | | .STRTAB 0x01e9->0x0470 ; "Aborting initialize conversion: Could not set PRIVILEGED MODE."
037d 0225 | % | .STRTAB 0x0225->0x048f ; "$$.Combined_Mload"
037e 0234 | 4 | .STRTAB 0x0234->0x0498 ; "Aborting initialize conversion: "
037f 0252 | R | .STRTAB 0x0252->0x04a8 ; "$$"
0380 0252 | R | .STRTAB 0x0252->0x04a9 ; " is not a release world."
0381 0268 | h | .STRTAB 0x0268->0x04b5 ; "!Machine.Initialization"
0382 027d | } | .STRTAB 0x027d->0x04c0 ; "Aborting initialize conversion: INSTALL_UNIVERSE has not been completed."
0383 02c3 | | .STRTAB 0x02c3->0x04e4 ; "Installing Machine Initialize "
0384 02df | | .STRTAB 0x02df->0x04f3 ; "<PROFILE>"
0385 02e6 | | .STRTAB 0x02e6->0x04f8 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols), !!!|>>>|+++|++*|***|%%%, Activity = !Machine.Release.Current.Activity"
0386 0350 | P | .STRTAB 0x0350->0x052e ; "!Machine.Initialize_Site"
0387 0366 | f | .STRTAB 0x0366->0x053a ; "!Machine.Initialization.Local.Initialize_Site"
0388 0391 | | .STRTAB 0x0391->0x0550 ; "Moving Initialize_Site to Initialization.Local"
0389 03bd | | .STRTAB 0x03bd->0x0567 ; "<ERRORS>"
038a 03c3 | | .STRTAB 0x03c3->0x056b ; "?"
038b 03c2 | | .STRTAB 0x03c2->0x056c ; "@"
038c 03c1 | | .STRTAB 0x03c1->0x056c ; "!Machine.Initialization.Local"
038d 03dc | | .STRTAB 0x03dc->0x057b ; "!Machine"
038e 03e2 | | .STRTAB 0x03e2->0x057f ; "!Machine.Initialization.Local.#"
038f 03ff | | .STRTAB 0x03ff->0x058e ; "<ALL_WORLDS>"
0390 0409 | | .STRTAB 0x0409->0x0594 ; "MAIL"
0391 040b | | .STRTAB 0x040b->0x0596 ; "!Tools.Mail.Current"
0392 041c | | .STRTAB 0x041c->0x05a0 ; "Release11_5_7"
0393 0427 | ' | .STRTAB 0x0427->0x05a6 ; "Creating New Mail Initialization Files"
0394 044b | K | .STRTAB 0x044b->0x05b9 ; "--|No_Wait"
0395 0453 | S | .STRTAB 0x0453->0x05be ; "--|Procedure_Name Initialize"
0396 046d | m | .STRTAB 0x046d->0x05cc ; "--|Procedure_Context !Machine.Transfer"
0397 0491 | | .STRTAB 0x0491->0x05df ; "--|Procedure_Name Distribute_Server"
0398 04b2 | | .STRTAB 0x04b2->0x05f1 ; "--|Procedure_Context !Machine.Transfer.Distribute"
0399 04e1 | | .STRTAB 0x04e1->0x0609 ; "!Machine.Initialize_Mail"
039a 04f7 | | .STRTAB 0x04f7->0x0615 ; "$$.Golden_Initialize_Procedures.Initialize_Mail"
039b 0524 | $ | .STRTAB 0x0524->0x062d ; "<WORLDS>"
039c 052a | * | .STRTAB 0x052a->0x0631 ; "!Machine.Initialize_Mail has been changed"
039d 0551 | Q | .STRTAB 0x0551->0x0645 ; "Creating Mail Initailization File"
039e 0570 | p | .STRTAB 0x0570->0x0656 ; "--|Prerequisite Network"
039f 0585 | | .STRTAB 0x0585->0x0661 ; "--|Procedure_Name Initialize_Mail"
03a0 05a4 | | .STRTAB 0x05a4->0x0672 ; "--|Procedure_Context !Machine"
03a1 05bf | | .STRTAB 0x05bf->0x0680 ; "Scanning for Changes to Initialize Units"
03a2 05e5 | | .STRTAB 0x05e5->0x0694 ; "Creating Terminal Configuration File"
03a3 0607 | | .STRTAB 0x0607->0x06a6 ; "Creating Empty Printer Configuration File"
03a4 062e | . | .STRTAB 0x062e->0x06bb ; "!Machine.Cross_Compilers"
03a5 0644 | D | .STRTAB 0x0644->0x06c7 ; "!Machine.Initialization.Local.Cross_Compiler_Configuration"
03a6 067c | | | .STRTAB 0x067c->0x06e4 ; "Moving Cross Compiler configuration file"
03a7 06a2 | | .STRTAB 0x06a2->0x06f8 ; "!Machine.Design_Facilities"
03a8 06ba | | .STRTAB 0x06ba->0x0705 ; "!Machine.Initialization.Local.Design_Facility_Configuration"
03a9 06f3 | | .STRTAB 0x06f3->0x0722 ; "Moving Design Facilities configuration file"
03aa 071c | | .STRTAB 0x071c->0x0738 ; " Raised installing initialize "
03ab 0738 | 8 | .STRTAB 0x0738->0x0747 ; "!Machine.[Initialize@'C(ADA)'SPEC, ~Initialize_Mail]"
03ac 076a | j | .STRTAB 0x076a->0x0761 ; "<DIRECTORIES>"
03ad 0775 | u | .STRTAB 0x0775->0x0767 ; "."
03ae 0774 | t | .STRTAB 0x0774->0x0768 ; " is an old initialize file"
03af 078c | | .STRTAB 0x078c->0x0775 ; " and will be added to the delete list."
03b0 07b0 | | .STRTAB 0x07b0->0x0788 ; " has been "
03b1 07b8 | | .STRTAB 0x07b8->0x078d ; "modified from the released version, "
03b2 07da | | .STRTAB 0x07da->0x079f ; "it will not be deleted."
03b3 07ef | | .STRTAB 0x07ef->0x07aa ; " is a new unit, it will not be deleted"
03b4 0813 | | .STREND 0x0813->0x07bd
03b5 4e49 4c43 |NILC| .STRTAB_STRINGS
07be 0000 0000 | | .XXX[0x2]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug Table
07c0 ; --------------------------------------------------------------------------------------
07c0 0004 000e | | .DEBUG4 0x0004,0x000e,0xc397,0x0000,0x0001,0x0000
07c6 0179 7f27 | y '| .XXX[0x3a]
07c8 0ffc d7a2 | |
07ca 718e 0f10 |q |
07cc 082f 01d0 | / |
07ce 1a01 301c | 0 |
07d0 13af a201 | |
07d2 901f efaf | |
07d4 8a2d 1032 | - 2|
07d6 6625 1bf2 |f% |
07d8 255b f949 |%[ I|
07da 43a2 dd8e |C |
07dc 0f10 1225 | %|
07de 1bf2 255b | %[|
07e0 f9a8 115e | ^|
07e2 351b f143 |5 C|
07e4 a1a5 8a0f | |
07e6 101b aeee | |
07e8 43fc d7a1 |C |
07ea 718e 0f10 |q |
07ec 082f 01d0 | / |
07ee 1a01 3008 | 0 |
07f0 23ae a201 |# |
07f2 900b dfae | |
07f4 8a29 1008 | ) |
07f6 9020 f004 | |
07f8 6f25 0625 |o% %|
07fa 3bf1 47a0 |; G |
07fc e18e 0f10 | |
07fe 0a25 1bf1 | % |