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