COMPILATION LISTING OF SEGMENT mailing_page_ Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 01/22/85 1430.9 mst Tue Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 mailing_page_: proc (mc, name, address); 12 13 dcl mc char (*), name char (*), address char (*); 14 15 dcl fmt1 char (12) aligned int static init ("^10x* ^30a *"); 16 dcl fmt2 char (12) aligned int static init ("^25x* ^30a *"); 17 18 dcl stars char (30) aligned int static init ((30)"*"); 19 dcl stars1 char (30) aligned int static init ((30)"*"); 20 21 dcl get_wdir_ entry () returns (char (168) aligned); 22 dcl hcs_$terminate_noname entry (ptr, fixed bin (35)); 23 dcl hcs_$initiate entry (char (*) aligned, char (*) aligned, char (*) aligned, fixed bin (1), fixed bin (2), 24 ptr, fixed bin (35)); 25 dcl sadp ptr int static init (null); 26 dcl first bit (1) int static init ("1"b); 27 dcl ec fixed bin (35); 28 29 dcl uao char (30) int static init ("MIT IPC User Accounts Office"); 30 dcl uaoa char (30) int static init ("MIT 39-213"); 31 dcl banner (3) char (10) int static init ("MIT INTER-", "DEPARTMENT", "MAIL"); 32 33 dcl bigletter_$five entry (char (*), entry); 34 dcl ioa_$ioa_stream entry options (variable); 35 36 dcl null builtin; 37 1 1 /* BEGIN INCLUDE FILE ... sys_admin_data.incl.pl1 */ 1 2 1 3 /* This data base is writeable by all system administrators. 1 4* It resides in the working directory of the system administrators. 1 5* The important item in this data base is "lock", which is used to prevent 1 6* two administrators from modifying the system administration data bases simultaneously. */ 1 7 1 8 /* Modified 1984-12-14 by EJ Sharpe to add default_audit_flags, and remove log_control */ 1 9 1 10 dcl 1 sys_admin_data based (sadp) aligned, 1 11 2 lock bit (36), 1 12 2 locker char (24), /* name of person using table */ 1 13 2 sadxx fixed bin, 1 14 2 time_locked fixed bin (71), 1 15 2 pntno fixed bin, 1 16 2 pnt_entries_to_install bit (1), 1 17 2 smf_entries_to_install bit (1), 1 18 2 pad1 (97) fixed bin, /* was log_control stuff before MR11 */ 1 19 2 user_accounts_office char (64), 1 20 2 user_accounts_addr char (64), 1 21 2 user_accounts_phone char (16), 1 22 2 mailing_banner (3) char (10), /* Used by mailing_page_ */ 1 23 2 default_proj_attributes bit (36), /* Used by new_proj */ 1 24 2 default_proj_ring1 fixed bin, /* .. */ 1 25 2 default_proj_ring2 fixed bin, /* .. */ 1 26 2 default_proj_group char (8), /* .. */ 1 27 2 default_proj_grace fixed bin, /* .. */ 1 28 2 default_audit_flags bit (36) aligned; /* initial set of flags for new_user and edit_proj */ 1 29 1 30 /* END INCLUDE FILE .. sys_admin_data.incl.pl1 */ 38 39 40 /* ======================================================= */ 41 42 if first then do; 43 first = "0"b; 44 call hcs_$initiate ((get_wdir_ ()), "sys_admin_data", "", 0, 1, sadp, ec); 45 if sadp ^= null then 46 if sys_admin_data.user_accounts_office > "" then do; 47 uao = sys_admin_data.user_accounts_office; 48 uaoa = sys_admin_data.user_accounts_addr; 49 banner (1) = sys_admin_data.mailing_banner (1); 50 banner (2) = sys_admin_data.mailing_banner (2); 51 banner (3) = sys_admin_data.mailing_banner (3); 52 end; 53 call hcs_$terminate_noname (sadp, ec); 54 end; 55 56 call ioa_$ioa_stream (mc, "^|^10xINTERDEPARTMENTAL^3/"); 57 58 call ioa_$ioa_stream (mc, fmt1, stars1); 59 call ioa_$ioa_stream (mc, fmt1, ""); 60 call ioa_$ioa_stream (mc, fmt1, "FROM:"); 61 call ioa_$ioa_stream (mc, fmt1, uao); 62 call ioa_$ioa_stream (mc, fmt1, uaoa); 63 call ioa_$ioa_stream (mc, fmt1, ""); 64 call ioa_$ioa_stream (mc, fmt1, stars1); 65 66 call ioa_$ioa_stream (mc, "^3/"); 67 68 call ioa_$ioa_stream (mc, fmt2, stars); 69 call ioa_$ioa_stream (mc, fmt2, ""); 70 call ioa_$ioa_stream (mc, fmt2, "TO:"); 71 call ioa_$ioa_stream (mc, fmt2, ""); 72 call ioa_$ioa_stream (mc, fmt2, name); 73 call ioa_$ioa_stream (mc, fmt2, ""); 74 call ioa_$ioa_stream (mc, fmt2, address); 75 call ioa_$ioa_stream (mc, fmt2, ""); 76 call ioa_$ioa_stream (mc, fmt2, stars); 77 78 call ioa_$ioa_stream (mc, "^3/"); 79 80 call bigletter_$five (banner (1), writer); 81 call ioa_$ioa_stream (mc, "^/"); 82 call bigletter_$five (banner (2), writer); 83 call ioa_$ioa_stream (mc, "^/"); 84 call bigletter_$five (banner (3), writer); 85 call ioa_$ioa_stream (mc, "^3/^10xINTERDEPARTMENTAL"); 86 return; 87 88 writer: proc (mp, ml); 89 dcl mp ptr, ml fixed bin; 90 91 dcl bcs char (ml) based (mp); 92 93 call ioa_$ioa_stream (mc, "^a", bcs); 94 95 end writer; 96 97 end mailing_page_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 01/22/85 1240.5 mailing_page_.pl1 >spec>temp>41-5>mailing_page_.pl1 38 1 01/22/85 1321.5 sys_admin_data.incl.pl1 >spec>temp>41-5>sys_admin_data.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. address parameter char unaligned dcl 13 set ref 11 74* banner 000061 internal static char(10) initial array unaligned dcl 31 set ref 49* 50* 51* 80* 82* 84* bcs based char unaligned dcl 91 set ref 93* bigletter_$five 000100 constant entry external dcl 33 ref 80 82 84 ec 000100 automatic fixed bin(35,0) dcl 27 set ref 44* 53* first 000040 internal static bit(1) initial unaligned dcl 26 set ref 42 43* fmt1 000010 internal static char(12) initial dcl 15 set ref 58* 59* 60* 61* 62* 63* 64* fmt2 000013 internal static char(12) initial dcl 16 set ref 68* 69* 70* 71* 72* 73* 74* 75* 76* get_wdir_ 000072 constant entry external dcl 21 ref 44 hcs_$initiate 000076 constant entry external dcl 23 ref 44 hcs_$terminate_noname 000074 constant entry external dcl 22 ref 53 ioa_$ioa_stream 000102 constant entry external dcl 34 ref 56 58 59 60 61 62 63 64 66 68 69 70 71 72 73 74 75 76 78 81 83 85 93 mailing_banner 222 based char(10) array level 2 dcl 1-10 ref 49 50 51 mc parameter char unaligned dcl 13 set ref 11 56* 58* 59* 60* 61* 62* 63* 64* 66* 68* 69* 70* 71* 72* 73* 74* 75* 76* 78* 81* 83* 85* 93* ml parameter fixed bin(17,0) dcl 89 ref 88 93 93 mp parameter pointer dcl 89 ref 88 93 name parameter char unaligned dcl 13 set ref 11 72* null builtin function dcl 36 ref 45 sadp 000036 internal static pointer initial dcl 25 set ref 44* 45 45 47 48 49 50 51 53* stars 000016 internal static char(30) initial dcl 18 set ref 68* 76* stars1 000026 internal static char(30) initial dcl 19 set ref 58* 64* sys_admin_data based structure level 1 dcl 1-10 uao 000041 internal static char(30) initial unaligned dcl 29 set ref 47* 61* uaoa 000051 internal static char(30) initial unaligned dcl 30 set ref 48* 62* user_accounts_addr 176 based char(64) level 2 dcl 1-10 ref 48 user_accounts_office 156 based char(64) level 2 dcl 1-10 ref 45 47 NAMES DECLARED BY EXPLICIT CONTEXT. mailing_page_ 000057 constant entry external dcl 11 writer 001152 constant entry internal dcl 88 ref 80 80 82 82 84 84 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1312 1416 1212 1322 Length 1644 1212 104 211 100 62 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME mailing_page_ 150 external procedure is an external procedure. writer 80 internal procedure is assigned to an entry variable. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 fmt1 mailing_page_ 000013 fmt2 mailing_page_ 000016 stars mailing_page_ 000026 stars1 mailing_page_ 000036 sadp mailing_page_ 000040 first mailing_page_ 000041 uao mailing_page_ 000051 uaoa mailing_page_ 000061 banner mailing_page_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME mailing_page_ 000100 ec mailing_page_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return ext_entry_desc int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. bigletter_$five get_wdir_ hcs_$initiate hcs_$terminate_noname ioa_$ioa_stream NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. CONSTANTS 000000 aa 526000000000 000001 aa 404000000021 000002 aa 524000000030 000003 aa 524000000002 000004 aa 500000000000 000005 aa 526000000012 000006 aa 124 117 072 000 TO: 000007 aa 524000000003 000010 aa 136 063 057 000 ^3/ 000011 aa 526000000036 000012 aa 524000000005 000013 aa 524000000036 000014 aa 524000000014 000015 aa 524000000032 000016 aa 404000000043 000017 aa 464000000000 000020 aa 404000000002 000021 aa 404000000001 000022 aa 524000000000 000023 aa 524000000016 000024 aa 524000000250 000025 aa 526077777777 000026 aa 106 122 117 115 FROM 000027 aa 072 000 000 000 : 000030 aa 077777000043 000031 aa 000001000000 000032 aa 163 171 163 137 sys_ 000033 aa 141 144 155 151 admi 000034 aa 156 137 144 141 n_da 000035 aa 164 141 000 000 ta 000036 aa 136 063 057 136 ^3/^ 000037 aa 061 060 170 111 10xI 000040 aa 116 124 105 122 NTER 000041 aa 104 105 120 101 DEPA 000042 aa 122 124 115 105 RTME 000043 aa 116 124 101 114 NTAL 000044 aa 136 174 136 061 ^|^1 000045 aa 060 170 111 116 0xIN 000046 aa 124 105 122 104 TERD 000047 aa 105 120 101 122 EPAR 000050 aa 124 115 105 116 TMEN 000051 aa 124 101 114 136 TAL^ 000052 aa 063 057 000 000 3/ BEGIN PROCEDURE mailing_page_ ENTRY TO mailing_page_ STATEMENT 1 ON LINE 11 mailing_page_: proc (mc, name, address); 000053 at 000003000025 000054 tt 000025000025 000055 ta 000053000000 000056 da 000067300000 000057 aa 000240 6270 00 eax7 160 000060 aa 7 00034 3521 20 epp2 pr7|28,* 000061 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 000062 aa 000006000000 000063 aa 000000000000 000064 aa 6 00042 3735 20 epp7 pr6|34,* 000065 aa 7 00000 2361 20 ldq pr7|0,* 000066 aa 000002 6040 04 tmi 2,ic 000070 000067 aa 777777 3760 07 anq 262143,dl 000070 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000071 aa 6 00101 7561 00 stq pr6|65 000072 aa 7 00002 2361 20 ldq pr7|2,* 000073 aa 000002 6040 04 tmi 2,ic 000075 000074 aa 777777 3760 07 anq 262143,dl 000075 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000076 aa 6 00102 7561 00 stq pr6|66 000077 aa 7 00004 2361 20 ldq pr7|4,* 000100 aa 000002 6040 04 tmi 2,ic 000102 000101 aa 777777 3760 07 anq 262143,dl 000102 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000103 aa 6 00103 7561 00 stq pr6|67 STATEMENT 1 ON LINE 42 if first then do; 000104 ia 4 00040 2351 00 lda pr4|32 first 000105 aa 000122 6000 04 tze 82,ic 000227 STATEMENT 1 ON LINE 43 first = "0"b; 000106 ia 4 00040 4501 00 stz pr4|32 first STATEMENT 1 ON LINE 44 call hcs_$initiate ((get_wdir_ ()), "sys_admin_data", "", 0, 1, sadp, ec); 000107 aa 6 00104 3521 00 epp2 pr6|68 000110 aa 6 00160 2521 00 spri2 pr6|112 000111 aa 6 00156 6211 00 eax1 pr6|110 000112 aa 004000 4310 07 fld 2048,dl 000113 la 4 00072 3521 20 epp2 pr4|58,* get_wdir_ 000114 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 000115 aa 777715 2370 04 ldaq -51,ic 000032 = 163171163137 141144155151 000116 aa 6 00156 7571 00 staq pr6|110 000117 aa 777715 2370 04 ldaq -51,ic 000034 = 156137144141 164141000000 000120 aa 6 00160 7571 00 staq pr6|112 000121 aa 6 00163 4501 00 stz pr6|115 000122 aa 000001 2360 07 ldq 1,dl 000123 aa 6 00164 7561 00 stq pr6|116 000124 aa 6 00104 3521 00 epp2 pr6|68 000125 aa 6 00170 2521 00 spri2 pr6|120 000126 aa 6 00156 3521 00 epp2 pr6|110 000127 aa 6 00172 2521 00 spri2 pr6|122 000130 aa 6 00162 3521 00 epp2 pr6|114 000131 aa 6 00174 2521 00 spri2 pr6|124 000132 aa 6 00163 3521 00 epp2 pr6|115 000133 aa 6 00176 2521 00 spri2 pr6|126 000134 aa 6 00164 3521 00 epp2 pr6|116 000135 aa 6 00200 2521 00 spri2 pr6|128 000136 aa 6 00044 3701 20 epp4 pr6|36,* 000137 ia 4 00036 3521 00 epp2 pr4|30 sadp 000140 aa 6 00202 2521 00 spri2 pr6|130 000141 aa 6 00100 3521 00 epp2 pr6|64 ec 000142 aa 6 00204 2521 00 spri2 pr6|132 000143 aa 777661 3520 04 epp2 -79,ic 000024 = 524000000250 000144 aa 6 00206 2521 00 spri2 pr6|134 000145 aa 777656 3520 04 epp2 -82,ic 000023 = 524000000016 000146 aa 6 00210 2521 00 spri2 pr6|136 000147 aa 777653 3520 04 epp2 -85,ic 000022 = 524000000000 000150 aa 6 00212 2521 00 spri2 pr6|138 000151 aa 777650 3520 04 epp2 -88,ic 000021 = 404000000001 000152 aa 6 00214 2521 00 spri2 pr6|140 000153 aa 777645 3520 04 epp2 -91,ic 000020 = 404000000002 000154 aa 6 00216 2521 00 spri2 pr6|142 000155 aa 777642 3520 04 epp2 -94,ic 000017 = 464000000000 000156 aa 6 00220 2521 00 spri2 pr6|144 000157 aa 777637 3520 04 epp2 -97,ic 000016 = 404000000043 000160 aa 6 00222 2521 00 spri2 pr6|146 000161 aa 6 00166 6211 00 eax1 pr6|118 000162 aa 034000 4310 07 fld 14336,dl 000163 la 4 00076 3521 20 epp2 pr4|62,* hcs_$initiate 000164 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 45 if sadp ^= null then if sys_admin_data.user_accounts_office > "" then do; 000165 aa 6 00044 3701 20 epp4 pr6|36,* 000166 ia 4 00036 2371 00 ldaq pr4|30 sadp 000167 aa 777641 6770 04 eraq -95,ic 000030 = 077777000043 000001000000 000170 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 000171 aa 000026 6000 04 tze 22,ic 000217 000172 ia 4 00036 3735 20 epp7 pr4|30,* sadp 000173 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 000174 aa 7 00156 00 0100 desc9a pr7|110,64 sys_admin_data.user_accounts_office 000175 aa 001017 00 0000 desc9a 527,0 001212 = 000007000000 000176 aa 000021 6020 04 tnc 17,ic 000217 000177 aa 000020 6000 04 tze 16,ic 000217 STATEMENT 1 ON LINE 47 uao = sys_admin_data.user_accounts_office; 000200 aa 000 100 100 500 mlr (pr),(pr),fill(000) 000201 aa 7 00156 00 0040 desc9a pr7|110,32 sys_admin_data.user_accounts_office 000202 ia 4 00041 00 0040 desc9a pr4|33,32 uao STATEMENT 1 ON LINE 48 uaoa = sys_admin_data.user_accounts_addr; 000203 aa 000 100 100 500 mlr (pr),(pr),fill(000) 000204 aa 7 00176 00 0040 desc9a pr7|126,32 sys_admin_data.user_accounts_addr 000205 ia 4 00051 00 0040 desc9a pr4|41,32 uaoa STATEMENT 1 ON LINE 49 banner (1) = sys_admin_data.mailing_banner (1); 000206 aa 040 100 100 500 mlr (pr),(pr),fill(040) 000207 aa 7 00222 00 0012 desc9a pr7|146,10 sys_admin_data.mailing_banner 000210 ia 4 00061 00 0012 desc9a pr4|49,10 banner STATEMENT 1 ON LINE 50 banner (2) = sys_admin_data.mailing_banner (2); 000211 aa 040 100 100 500 mlr (pr),(pr),fill(040) 000212 aa 7 00225 00 0012 desc9a pr7|149,10 sys_admin_data.mailing_banner 000213 ia 4 00063 40 0012 desc9a pr4|51(2),10 banner STATEMENT 1 ON LINE 51 banner (3) = sys_admin_data.mailing_banner (3); 000214 aa 040 100 100 500 mlr (pr),(pr),fill(040) 000215 aa 7 00230 00 0012 desc9a pr7|152,10 sys_admin_data.mailing_banner 000216 ia 4 00066 00 0012 desc9a pr4|54,10 banner STATEMENT 1 ON LINE 52 end; STATEMENT 1 ON LINE 53 call hcs_$terminate_noname (sadp, ec); 000217 ia 4 00036 3521 00 epp2 pr4|30 sadp 000220 aa 6 00170 2521 00 spri2 pr6|120 000221 aa 6 00100 3521 00 epp2 pr6|64 ec 000222 aa 6 00172 2521 00 spri2 pr6|122 000223 aa 6 00166 6211 00 eax1 pr6|118 000224 aa 010000 4310 07 fld 4096,dl 000225 la 4 00074 3521 20 epp2 pr4|60,* hcs_$terminate_noname 000226 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 54 end; STATEMENT 1 ON LINE 56 call ioa_$ioa_stream (mc, "^|^10xINTERDEPARTMENTAL^3/"); 000227 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000230 aa 777615 00 0034 desc9a -115,28 000044 = 136174136061 000231 aa 6 00166 00 0034 desc9a pr6|118,28 000232 aa 6 00032 3735 20 epp7 pr6|26,* 000233 aa 7 00002 3521 20 epp2 pr7|2,* mc 000234 aa 6 00106 2521 00 spri2 pr6|70 000235 aa 6 00166 3521 00 epp2 pr6|118 000236 aa 6 00110 2521 00 spri2 pr6|72 000237 aa 6 00042 3715 20 epp5 pr6|34,* 000240 aa 5 00000 3521 20 epp2 pr5|0,* 000241 aa 6 00112 2521 00 spri2 pr6|74 000242 aa 777553 3520 04 epp2 -149,ic 000015 = 524000000032 000243 aa 6 00114 2521 00 spri2 pr6|76 000244 aa 6 00104 6211 00 eax1 pr6|68 000245 aa 010000 4310 07 fld 4096,dl 000246 aa 6 00044 3701 20 epp4 pr6|36,* 000247 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000250 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 58 call ioa_$ioa_stream (mc, fmt1, stars1); 000251 aa 6 00032 3735 20 epp7 pr6|26,* 000252 aa 7 00002 3521 20 epp2 pr7|2,* mc 000253 aa 6 00170 2521 00 spri2 pr6|120 000254 aa 6 00044 3701 20 epp4 pr6|36,* 000255 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000256 aa 6 00172 2521 00 spri2 pr6|122 000257 ia 4 00026 3521 00 epp2 pr4|22 stars1 000260 aa 6 00174 2521 00 spri2 pr6|124 000261 aa 6 00042 3715 20 epp5 pr6|34,* 000262 aa 5 00000 3521 20 epp2 pr5|0,* 000263 aa 6 00176 2521 00 spri2 pr6|126 000264 aa 777530 3520 04 epp2 -168,ic 000014 = 524000000014 000265 aa 6 00200 2521 00 spri2 pr6|128 000266 aa 777525 3520 04 epp2 -171,ic 000013 = 524000000036 000267 aa 6 00202 2521 00 spri2 pr6|130 000270 aa 6 00166 6211 00 eax1 pr6|118 000271 aa 014000 4310 07 fld 6144,dl 000272 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000273 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 59 call ioa_$ioa_stream (mc, fmt1, ""); 000274 aa 6 00032 3735 20 epp7 pr6|26,* 000275 aa 7 00002 3521 20 epp2 pr7|2,* mc 000276 aa 6 00170 2521 00 spri2 pr6|120 000277 aa 6 00044 3701 20 epp4 pr6|36,* 000300 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000301 aa 6 00172 2521 00 spri2 pr6|122 000302 aa 6 00164 3521 00 epp2 pr6|116 000303 aa 6 00174 2521 00 spri2 pr6|124 000304 aa 6 00042 3715 20 epp5 pr6|34,* 000305 aa 5 00000 3521 20 epp2 pr5|0,* 000306 aa 6 00176 2521 00 spri2 pr6|126 000307 aa 777505 3520 04 epp2 -187,ic 000014 = 524000000014 000310 aa 6 00200 2521 00 spri2 pr6|128 000311 aa 777511 3520 04 epp2 -183,ic 000022 = 524000000000 000312 aa 6 00202 2521 00 spri2 pr6|130 000313 aa 6 00166 6211 00 eax1 pr6|118 000314 aa 014000 4310 07 fld 6144,dl 000315 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 60 call ioa_$ioa_stream (mc, fmt1, "FROM:"); 000317 aa 777507 2370 04 ldaq -185,ic 000026 = 106122117115 072000000000 000320 aa 6 00224 7571 00 staq pr6|148 000321 aa 6 00032 3735 20 epp7 pr6|26,* 000322 aa 7 00002 3521 20 epp2 pr7|2,* mc 000323 aa 6 00170 2521 00 spri2 pr6|120 000324 aa 6 00044 3701 20 epp4 pr6|36,* 000325 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000326 aa 6 00172 2521 00 spri2 pr6|122 000327 aa 6 00224 3521 00 epp2 pr6|148 000330 aa 6 00174 2521 00 spri2 pr6|124 000331 aa 6 00042 3715 20 epp5 pr6|34,* 000332 aa 5 00000 3521 20 epp2 pr5|0,* 000333 aa 6 00176 2521 00 spri2 pr6|126 000334 aa 777460 3520 04 epp2 -208,ic 000014 = 524000000014 000335 aa 6 00200 2521 00 spri2 pr6|128 000336 aa 777454 3520 04 epp2 -212,ic 000012 = 524000000005 000337 aa 6 00202 2521 00 spri2 pr6|130 000340 aa 6 00166 6211 00 eax1 pr6|118 000341 aa 014000 4310 07 fld 6144,dl 000342 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000343 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 61 call ioa_$ioa_stream (mc, fmt1, uao); 000344 aa 6 00032 3735 20 epp7 pr6|26,* 000345 aa 7 00002 3521 20 epp2 pr7|2,* mc 000346 aa 6 00170 2521 00 spri2 pr6|120 000347 aa 6 00044 3701 20 epp4 pr6|36,* 000350 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000351 aa 6 00172 2521 00 spri2 pr6|122 000352 ia 4 00041 3521 00 epp2 pr4|33 uao 000353 aa 6 00174 2521 00 spri2 pr6|124 000354 aa 6 00042 3715 20 epp5 pr6|34,* 000355 aa 5 00000 3521 20 epp2 pr5|0,* 000356 aa 6 00176 2521 00 spri2 pr6|126 000357 aa 777435 3520 04 epp2 -227,ic 000014 = 524000000014 000360 aa 6 00200 2521 00 spri2 pr6|128 000361 aa 777430 3520 04 epp2 -232,ic 000011 = 526000000036 000362 aa 6 00202 2521 00 spri2 pr6|130 000363 aa 6 00166 6211 00 eax1 pr6|118 000364 aa 014000 4310 07 fld 6144,dl 000365 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000366 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 62 call ioa_$ioa_stream (mc, fmt1, uaoa); 000367 aa 6 00032 3735 20 epp7 pr6|26,* 000370 aa 7 00002 3521 20 epp2 pr7|2,* mc 000371 aa 6 00170 2521 00 spri2 pr6|120 000372 aa 6 00044 3701 20 epp4 pr6|36,* 000373 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000374 aa 6 00172 2521 00 spri2 pr6|122 000375 ia 4 00051 3521 00 epp2 pr4|41 uaoa 000376 aa 6 00174 2521 00 spri2 pr6|124 000377 aa 6 00042 3715 20 epp5 pr6|34,* 000400 aa 5 00000 3521 20 epp2 pr5|0,* 000401 aa 6 00176 2521 00 spri2 pr6|126 000402 aa 777412 3520 04 epp2 -246,ic 000014 = 524000000014 000403 aa 6 00200 2521 00 spri2 pr6|128 000404 aa 777405 3520 04 epp2 -251,ic 000011 = 526000000036 000405 aa 6 00202 2521 00 spri2 pr6|130 000406 aa 6 00166 6211 00 eax1 pr6|118 000407 aa 014000 4310 07 fld 6144,dl 000410 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000411 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 63 call ioa_$ioa_stream (mc, fmt1, ""); 000412 aa 6 00032 3735 20 epp7 pr6|26,* 000413 aa 7 00002 3521 20 epp2 pr7|2,* mc 000414 aa 6 00170 2521 00 spri2 pr6|120 000415 aa 6 00044 3701 20 epp4 pr6|36,* 000416 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000417 aa 6 00172 2521 00 spri2 pr6|122 000420 aa 6 00164 3521 00 epp2 pr6|116 000421 aa 6 00174 2521 00 spri2 pr6|124 000422 aa 6 00042 3715 20 epp5 pr6|34,* 000423 aa 5 00000 3521 20 epp2 pr5|0,* 000424 aa 6 00176 2521 00 spri2 pr6|126 000425 aa 777367 3520 04 epp2 -265,ic 000014 = 524000000014 000426 aa 6 00200 2521 00 spri2 pr6|128 000427 aa 777373 3520 04 epp2 -261,ic 000022 = 524000000000 000430 aa 6 00202 2521 00 spri2 pr6|130 000431 aa 6 00166 6211 00 eax1 pr6|118 000432 aa 014000 4310 07 fld 6144,dl 000433 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000434 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 64 call ioa_$ioa_stream (mc, fmt1, stars1); 000435 aa 6 00032 3735 20 epp7 pr6|26,* 000436 aa 7 00002 3521 20 epp2 pr7|2,* mc 000437 aa 6 00170 2521 00 spri2 pr6|120 000440 aa 6 00044 3701 20 epp4 pr6|36,* 000441 ia 4 00010 3521 00 epp2 pr4|8 fmt1 000442 aa 6 00172 2521 00 spri2 pr6|122 000443 ia 4 00026 3521 00 epp2 pr4|22 stars1 000444 aa 6 00174 2521 00 spri2 pr6|124 000445 aa 6 00042 3715 20 epp5 pr6|34,* 000446 aa 5 00000 3521 20 epp2 pr5|0,* 000447 aa 6 00176 2521 00 spri2 pr6|126 000450 aa 777344 3520 04 epp2 -284,ic 000014 = 524000000014 000451 aa 6 00200 2521 00 spri2 pr6|128 000452 aa 777341 3520 04 epp2 -287,ic 000013 = 524000000036 000453 aa 6 00202 2521 00 spri2 pr6|130 000454 aa 6 00166 6211 00 eax1 pr6|118 000455 aa 014000 4310 07 fld 6144,dl 000456 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000457 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 66 call ioa_$ioa_stream (mc, "^3/"); 000460 aa 777330 2350 04 lda -296,ic 000010 = 136063057000 000461 aa 6 00164 7551 00 sta pr6|116 000462 aa 6 00032 3735 20 epp7 pr6|26,* 000463 aa 7 00002 3521 20 epp2 pr7|2,* mc 000464 aa 6 00170 2521 00 spri2 pr6|120 000465 aa 6 00164 3521 00 epp2 pr6|116 000466 aa 6 00172 2521 00 spri2 pr6|122 000467 aa 6 00042 3715 20 epp5 pr6|34,* 000470 aa 5 00000 3521 20 epp2 pr5|0,* 000471 aa 6 00174 2521 00 spri2 pr6|124 000472 aa 777315 3520 04 epp2 -307,ic 000007 = 524000000003 000473 aa 6 00176 2521 00 spri2 pr6|126 000474 aa 6 00166 6211 00 eax1 pr6|118 000475 aa 010000 4310 07 fld 4096,dl 000476 aa 6 00044 3701 20 epp4 pr6|36,* 000477 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000500 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 68 call ioa_$ioa_stream (mc, fmt2, stars); 000501 aa 6 00032 3735 20 epp7 pr6|26,* 000502 aa 7 00002 3521 20 epp2 pr7|2,* mc 000503 aa 6 00170 2521 00 spri2 pr6|120 000504 aa 6 00044 3701 20 epp4 pr6|36,* 000505 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000506 aa 6 00172 2521 00 spri2 pr6|122 000507 ia 4 00016 3521 00 epp2 pr4|14 stars 000510 aa 6 00174 2521 00 spri2 pr6|124 000511 aa 6 00042 3715 20 epp5 pr6|34,* 000512 aa 5 00000 3521 20 epp2 pr5|0,* 000513 aa 6 00176 2521 00 spri2 pr6|126 000514 aa 777300 3520 04 epp2 -320,ic 000014 = 524000000014 000515 aa 6 00200 2521 00 spri2 pr6|128 000516 aa 777275 3520 04 epp2 -323,ic 000013 = 524000000036 000517 aa 6 00202 2521 00 spri2 pr6|130 000520 aa 6 00166 6211 00 eax1 pr6|118 000521 aa 014000 4310 07 fld 6144,dl 000522 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000523 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 69 call ioa_$ioa_stream (mc, fmt2, ""); 000524 aa 6 00032 3735 20 epp7 pr6|26,* 000525 aa 7 00002 3521 20 epp2 pr7|2,* mc 000526 aa 6 00170 2521 00 spri2 pr6|120 000527 aa 6 00044 3701 20 epp4 pr6|36,* 000530 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000531 aa 6 00172 2521 00 spri2 pr6|122 000532 aa 6 00164 3521 00 epp2 pr6|116 000533 aa 6 00174 2521 00 spri2 pr6|124 000534 aa 6 00042 3715 20 epp5 pr6|34,* 000535 aa 5 00000 3521 20 epp2 pr5|0,* 000536 aa 6 00176 2521 00 spri2 pr6|126 000537 aa 777255 3520 04 epp2 -339,ic 000014 = 524000000014 000540 aa 6 00200 2521 00 spri2 pr6|128 000541 aa 777261 3520 04 epp2 -335,ic 000022 = 524000000000 000542 aa 6 00202 2521 00 spri2 pr6|130 000543 aa 6 00166 6211 00 eax1 pr6|118 000544 aa 014000 4310 07 fld 6144,dl 000545 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000546 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 70 call ioa_$ioa_stream (mc, fmt2, "TO:"); 000547 aa 777237 2350 04 lda -353,ic 000006 = 124117072000 000550 aa 6 00164 7551 00 sta pr6|116 000551 aa 6 00032 3735 20 epp7 pr6|26,* 000552 aa 7 00002 3521 20 epp2 pr7|2,* mc 000553 aa 6 00170 2521 00 spri2 pr6|120 000554 aa 6 00044 3701 20 epp4 pr6|36,* 000555 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000556 aa 6 00172 2521 00 spri2 pr6|122 000557 aa 6 00164 3521 00 epp2 pr6|116 000560 aa 6 00174 2521 00 spri2 pr6|124 000561 aa 6 00042 3715 20 epp5 pr6|34,* 000562 aa 5 00000 3521 20 epp2 pr5|0,* 000563 aa 6 00176 2521 00 spri2 pr6|126 000564 aa 777230 3520 04 epp2 -360,ic 000014 = 524000000014 000565 aa 6 00200 2521 00 spri2 pr6|128 000566 aa 777221 3520 04 epp2 -367,ic 000007 = 524000000003 000567 aa 6 00202 2521 00 spri2 pr6|130 000570 aa 6 00166 6211 00 eax1 pr6|118 000571 aa 014000 4310 07 fld 6144,dl 000572 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000573 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 71 call ioa_$ioa_stream (mc, fmt2, ""); 000574 aa 6 00032 3735 20 epp7 pr6|26,* 000575 aa 7 00002 3521 20 epp2 pr7|2,* mc 000576 aa 6 00170 2521 00 spri2 pr6|120 000577 aa 6 00044 3701 20 epp4 pr6|36,* 000600 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000601 aa 6 00172 2521 00 spri2 pr6|122 000602 aa 6 00164 3521 00 epp2 pr6|116 000603 aa 6 00174 2521 00 spri2 pr6|124 000604 aa 6 00042 3715 20 epp5 pr6|34,* 000605 aa 5 00000 3521 20 epp2 pr5|0,* 000606 aa 6 00176 2521 00 spri2 pr6|126 000607 aa 777205 3520 04 epp2 -379,ic 000014 = 524000000014 000610 aa 6 00200 2521 00 spri2 pr6|128 000611 aa 777211 3520 04 epp2 -375,ic 000022 = 524000000000 000612 aa 6 00202 2521 00 spri2 pr6|130 000613 aa 6 00166 6211 00 eax1 pr6|118 000614 aa 014000 4310 07 fld 6144,dl 000615 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000616 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 72 call ioa_$ioa_stream (mc, fmt2, name); 000617 aa 6 00032 3735 20 epp7 pr6|26,* 000620 aa 7 00002 3521 20 epp2 pr7|2,* mc 000621 aa 6 00170 2521 00 spri2 pr6|120 000622 aa 6 00044 3701 20 epp4 pr6|36,* 000623 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000624 aa 6 00172 2521 00 spri2 pr6|122 000625 aa 7 00004 3521 20 epp2 pr7|4,* name 000626 aa 6 00174 2521 00 spri2 pr6|124 000627 aa 6 00042 3715 20 epp5 pr6|34,* 000630 aa 5 00000 3521 20 epp2 pr5|0,* 000631 aa 6 00176 2521 00 spri2 pr6|126 000632 aa 777162 3520 04 epp2 -398,ic 000014 = 524000000014 000633 aa 6 00200 2521 00 spri2 pr6|128 000634 aa 5 00002 3521 20 epp2 pr5|2,* 000635 aa 6 00202 2521 00 spri2 pr6|130 000636 aa 6 00166 6211 00 eax1 pr6|118 000637 aa 014000 4310 07 fld 6144,dl 000640 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000641 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 73 call ioa_$ioa_stream (mc, fmt2, ""); 000642 aa 6 00032 3735 20 epp7 pr6|26,* 000643 aa 7 00002 3521 20 epp2 pr7|2,* mc 000644 aa 6 00170 2521 00 spri2 pr6|120 000645 aa 6 00044 3701 20 epp4 pr6|36,* 000646 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000647 aa 6 00172 2521 00 spri2 pr6|122 000650 aa 6 00164 3521 00 epp2 pr6|116 000651 aa 6 00174 2521 00 spri2 pr6|124 000652 aa 6 00042 3715 20 epp5 pr6|34,* 000653 aa 5 00000 3521 20 epp2 pr5|0,* 000654 aa 6 00176 2521 00 spri2 pr6|126 000655 aa 777137 3520 04 epp2 -417,ic 000014 = 524000000014 000656 aa 6 00200 2521 00 spri2 pr6|128 000657 aa 777143 3520 04 epp2 -413,ic 000022 = 524000000000 000660 aa 6 00202 2521 00 spri2 pr6|130 000661 aa 6 00166 6211 00 eax1 pr6|118 000662 aa 014000 4310 07 fld 6144,dl 000663 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000664 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 74 call ioa_$ioa_stream (mc, fmt2, address); 000665 aa 6 00032 3735 20 epp7 pr6|26,* 000666 aa 7 00002 3521 20 epp2 pr7|2,* mc 000667 aa 6 00170 2521 00 spri2 pr6|120 000670 aa 6 00044 3701 20 epp4 pr6|36,* 000671 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000672 aa 6 00172 2521 00 spri2 pr6|122 000673 aa 7 00006 3521 20 epp2 pr7|6,* address 000674 aa 6 00174 2521 00 spri2 pr6|124 000675 aa 6 00042 3715 20 epp5 pr6|34,* 000676 aa 5 00000 3521 20 epp2 pr5|0,* 000677 aa 6 00176 2521 00 spri2 pr6|126 000700 aa 777114 3520 04 epp2 -436,ic 000014 = 524000000014 000701 aa 6 00200 2521 00 spri2 pr6|128 000702 aa 5 00004 3521 20 epp2 pr5|4,* 000703 aa 6 00202 2521 00 spri2 pr6|130 000704 aa 6 00166 6211 00 eax1 pr6|118 000705 aa 014000 4310 07 fld 6144,dl 000706 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000707 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 75 call ioa_$ioa_stream (mc, fmt2, ""); 000710 aa 6 00032 3735 20 epp7 pr6|26,* 000711 aa 7 00002 3521 20 epp2 pr7|2,* mc 000712 aa 6 00170 2521 00 spri2 pr6|120 000713 aa 6 00044 3701 20 epp4 pr6|36,* 000714 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000715 aa 6 00172 2521 00 spri2 pr6|122 000716 aa 6 00164 3521 00 epp2 pr6|116 000717 aa 6 00174 2521 00 spri2 pr6|124 000720 aa 6 00042 3715 20 epp5 pr6|34,* 000721 aa 5 00000 3521 20 epp2 pr5|0,* 000722 aa 6 00176 2521 00 spri2 pr6|126 000723 aa 777071 3520 04 epp2 -455,ic 000014 = 524000000014 000724 aa 6 00200 2521 00 spri2 pr6|128 000725 aa 777075 3520 04 epp2 -451,ic 000022 = 524000000000 000726 aa 6 00202 2521 00 spri2 pr6|130 000727 aa 6 00166 6211 00 eax1 pr6|118 000730 aa 014000 4310 07 fld 6144,dl 000731 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000732 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 76 call ioa_$ioa_stream (mc, fmt2, stars); 000733 aa 6 00032 3735 20 epp7 pr6|26,* 000734 aa 7 00002 3521 20 epp2 pr7|2,* mc 000735 aa 6 00170 2521 00 spri2 pr6|120 000736 aa 6 00044 3701 20 epp4 pr6|36,* 000737 ia 4 00013 3521 00 epp2 pr4|11 fmt2 000740 aa 6 00172 2521 00 spri2 pr6|122 000741 ia 4 00016 3521 00 epp2 pr4|14 stars 000742 aa 6 00174 2521 00 spri2 pr6|124 000743 aa 6 00042 3715 20 epp5 pr6|34,* 000744 aa 5 00000 3521 20 epp2 pr5|0,* 000745 aa 6 00176 2521 00 spri2 pr6|126 000746 aa 777046 3520 04 epp2 -474,ic 000014 = 524000000014 000747 aa 6 00200 2521 00 spri2 pr6|128 000750 aa 777043 3520 04 epp2 -477,ic 000013 = 524000000036 000751 aa 6 00202 2521 00 spri2 pr6|130 000752 aa 6 00166 6211 00 eax1 pr6|118 000753 aa 014000 4310 07 fld 6144,dl 000754 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000755 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 78 call ioa_$ioa_stream (mc, "^3/"); 000756 aa 777032 2350 04 lda -486,ic 000010 = 136063057000 000757 aa 6 00164 7551 00 sta pr6|116 000760 aa 6 00032 3735 20 epp7 pr6|26,* 000761 aa 7 00002 3521 20 epp2 pr7|2,* mc 000762 aa 6 00170 2521 00 spri2 pr6|120 000763 aa 6 00164 3521 00 epp2 pr6|116 000764 aa 6 00172 2521 00 spri2 pr6|122 000765 aa 6 00042 3715 20 epp5 pr6|34,* 000766 aa 5 00000 3521 20 epp2 pr5|0,* 000767 aa 6 00174 2521 00 spri2 pr6|124 000770 aa 777017 3520 04 epp2 -497,ic 000007 = 524000000003 000771 aa 6 00176 2521 00 spri2 pr6|126 000772 aa 6 00166 6211 00 eax1 pr6|118 000773 aa 010000 4310 07 fld 4096,dl 000774 aa 6 00044 3701 20 epp4 pr6|36,* 000775 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 000776 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 80 call bigletter_$five (banner (1), writer); 000777 aa 000153 3520 04 epp2 107,ic 001152 = 000120627000 001000 aa 6 00156 2521 00 spri2 pr6|110 cp.68 001001 aa 6 00160 6521 00 spri6 pr6|112 cp.68 001002 aa 6 00044 3701 20 epp4 pr6|36,* 001003 ia 4 00061 3521 00 epp2 pr4|49 banner 001004 aa 6 00170 2521 00 spri2 pr6|120 001005 aa 6 00156 3521 00 epp2 pr6|110 cp.68 001006 aa 6 00172 2521 00 spri2 pr6|122 001007 aa 776776 3520 04 epp2 -514,ic 000005 = 526000000012 001010 aa 6 00174 2521 00 spri2 pr6|124 001011 aa 776773 3520 04 epp2 -517,ic 000004 = 500000000000 001012 aa 6 00176 2521 00 spri2 pr6|126 001013 aa 6 00166 6211 00 eax1 pr6|118 001014 aa 010000 4310 07 fld 4096,dl 001015 la 4 00100 3521 20 epp2 pr4|64,* bigletter_$five 001016 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 81 call ioa_$ioa_stream (mc, "^/"); 001017 aa 136057 2350 03 lda 48175,du 001020 aa 6 00164 7551 00 sta pr6|116 001021 aa 6 00032 3735 20 epp7 pr6|26,* 001022 aa 7 00002 3521 20 epp2 pr7|2,* mc 001023 aa 6 00170 2521 00 spri2 pr6|120 001024 aa 6 00164 3521 00 epp2 pr6|116 001025 aa 6 00172 2521 00 spri2 pr6|122 001026 aa 6 00042 3715 20 epp5 pr6|34,* 001027 aa 5 00000 3521 20 epp2 pr5|0,* 001030 aa 6 00174 2521 00 spri2 pr6|124 001031 aa 776752 3520 04 epp2 -534,ic 000003 = 524000000002 001032 aa 6 00176 2521 00 spri2 pr6|126 001033 aa 6 00166 6211 00 eax1 pr6|118 001034 aa 010000 4310 07 fld 4096,dl 001035 aa 6 00044 3701 20 epp4 pr6|36,* 001036 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 001037 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 82 call bigletter_$five (banner (2), writer); 001040 aa 000112 3520 04 epp2 74,ic 001152 = 000120627000 001041 aa 6 00156 2521 00 spri2 pr6|110 cp.68 001042 aa 6 00160 6521 00 spri6 pr6|112 cp.68 001043 aa 000002 7270 07 lxl7 2,dl 001044 aa 6 00044 3701 20 epp4 pr6|36,* 001045 ia 4 00063 3521 00 epp2 pr4|51 banner 001046 aa 2 00000 5005 17 a9bd pr2|0,7 001047 aa 6 00170 2521 00 spri2 pr6|120 001050 aa 6 00156 3521 00 epp2 pr6|110 cp.68 001051 aa 6 00172 2521 00 spri2 pr6|122 001052 aa 776733 3520 04 epp2 -549,ic 000005 = 526000000012 001053 aa 6 00174 2521 00 spri2 pr6|124 001054 aa 776730 3520 04 epp2 -552,ic 000004 = 500000000000 001055 aa 6 00176 2521 00 spri2 pr6|126 001056 aa 6 00166 6211 00 eax1 pr6|118 001057 aa 010000 4310 07 fld 4096,dl 001060 la 4 00100 3521 20 epp2 pr4|64,* bigletter_$five 001061 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 83 call ioa_$ioa_stream (mc, "^/"); 001062 aa 136057 2350 03 lda 48175,du 001063 aa 6 00164 7551 00 sta pr6|116 001064 aa 6 00032 3735 20 epp7 pr6|26,* 001065 aa 7 00002 3521 20 epp2 pr7|2,* mc 001066 aa 6 00170 2521 00 spri2 pr6|120 001067 aa 6 00164 3521 00 epp2 pr6|116 001070 aa 6 00172 2521 00 spri2 pr6|122 001071 aa 6 00042 3715 20 epp5 pr6|34,* 001072 aa 5 00000 3521 20 epp2 pr5|0,* 001073 aa 6 00174 2521 00 spri2 pr6|124 001074 aa 776707 3520 04 epp2 -569,ic 000003 = 524000000002 001075 aa 6 00176 2521 00 spri2 pr6|126 001076 aa 6 00166 6211 00 eax1 pr6|118 001077 aa 010000 4310 07 fld 4096,dl 001100 aa 6 00044 3701 20 epp4 pr6|36,* 001101 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 001102 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 84 call bigletter_$five (banner (3), writer); 001103 aa 000047 3520 04 epp2 39,ic 001152 = 000120627000 001104 aa 6 00156 2521 00 spri2 pr6|110 cp.68 001105 aa 6 00160 6521 00 spri6 pr6|112 cp.68 001106 aa 6 00044 3701 20 epp4 pr6|36,* 001107 ia 4 00066 3521 00 epp2 pr4|54 banner 001110 aa 6 00170 2521 00 spri2 pr6|120 001111 aa 6 00156 3521 00 epp2 pr6|110 cp.68 001112 aa 6 00172 2521 00 spri2 pr6|122 001113 aa 776672 3520 04 epp2 -582,ic 000005 = 526000000012 001114 aa 6 00174 2521 00 spri2 pr6|124 001115 aa 776667 3520 04 epp2 -585,ic 000004 = 500000000000 001116 aa 6 00176 2521 00 spri2 pr6|126 001117 aa 6 00166 6211 00 eax1 pr6|118 001120 aa 010000 4310 07 fld 4096,dl 001121 la 4 00100 3521 20 epp2 pr4|64,* bigletter_$five 001122 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 85 call ioa_$ioa_stream (mc, "^3/^10xINTERDEPARTMENTAL"); 001123 aa 776713 2370 04 ldaq -565,ic 000036 = 136063057136 061060170111 001124 aa 6 00166 7571 00 staq pr6|118 001125 aa 776713 2370 04 ldaq -565,ic 000040 = 116124105122 104105120101 001126 aa 6 00170 7571 00 staq pr6|120 001127 aa 776713 2370 04 ldaq -565,ic 000042 = 122124115105 116124101114 001130 aa 6 00172 7571 00 staq pr6|122 001131 aa 6 00032 3735 20 epp7 pr6|26,* 001132 aa 7 00002 3521 20 epp2 pr7|2,* mc 001133 aa 6 00106 2521 00 spri2 pr6|70 001134 aa 6 00166 3521 00 epp2 pr6|118 001135 aa 6 00110 2521 00 spri2 pr6|72 001136 aa 6 00042 3715 20 epp5 pr6|34,* 001137 aa 5 00000 3521 20 epp2 pr5|0,* 001140 aa 6 00112 2521 00 spri2 pr6|74 001141 aa 776641 3520 04 epp2 -607,ic 000002 = 524000000030 001142 aa 6 00114 2521 00 spri2 pr6|76 001143 aa 6 00104 6211 00 eax1 pr6|68 001144 aa 010000 4310 07 fld 4096,dl 001145 aa 6 00044 3701 20 epp4 pr6|36,* 001146 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 001147 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 86 return; 001150 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 97 end mailing_page_; BEGIN PROCEDURE writer ENTRY TO writer STATEMENT 1 ON LINE 88 writer: proc (mp, ml); 001151 da 000074200000 001152 aa 000120 6270 00 eax7 80 001153 aa 7 00034 3521 20 epp2 pr7|28,* 001154 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 001155 aa 000004000000 001156 aa 000000000000 STATEMENT 1 ON LINE 93 call ioa_$ioa_stream (mc, "^a", bcs); 001157 aa 6 00032 3735 20 epp7 pr6|26,* 001160 aa 7 00004 2361 20 ldq pr7|4,* ml 001161 aa 526000 2760 03 orq 175104,du 001162 aa 6 00100 7561 00 stq pr6|64 001163 aa 136141 2350 03 lda 48225,du 001164 aa 6 00101 7551 00 sta pr6|65 001165 aa 6 00040 3715 20 epp5 pr6|32,* 001166 aa 5 00032 3535 20 epp3 pr5|26,* 001167 aa 3 00002 3521 20 epp2 pr3|2,* mc 001170 aa 6 00104 2521 00 spri2 pr6|68 001171 aa 6 00101 3521 00 epp2 pr6|65 001172 aa 6 00106 2521 00 spri2 pr6|70 001173 aa 7 00002 3515 20 epp1 pr7|2,* mp 001174 aa 1 00000 3521 20 epp2 pr1|0,* bcs 001175 aa 6 00110 2521 00 spri2 pr6|72 001176 aa 5 00042 3515 20 epp1 pr5|34,* 001177 aa 1 00000 3521 20 epp2 pr1|0,* 001200 aa 6 00112 2521 00 spri2 pr6|74 001201 aa 776602 3520 04 epp2 -638,ic 000003 = 524000000002 001202 aa 6 00114 2521 00 spri2 pr6|76 001203 aa 6 00100 3521 00 epp2 pr6|64 001204 aa 6 00116 2521 00 spri2 pr6|78 001205 aa 6 00102 6211 00 eax1 pr6|66 001206 aa 014000 4310 07 fld 6144,dl 001207 la 4 00102 3521 20 epp2 pr4|66,* ioa_$ioa_stream 001210 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 95 end writer; 001211 aa 0 00631 7101 00 tra pr0|409 return END PROCEDURE writer END PROCEDURE mailing_page_ ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved