ASSEMBLY LISTING OF SEGMENT >spec>h>3.17>label.alm ASSEMBLED ON: 11/29/83 1518.2 mst Tue OPTIONS USED: list ASSEMBLED BY: ALM Version 6.6 November 1982 ASSEMBLER CREATED: 09/21/83 1227.3 mst Wed  1 " ***********************************************************  2 " * *  3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *  4 " * *  5 " ***********************************************************  6 " ******************************************************  7 " * *  8 " * *  9 " * Copyright (c) 1972 by Massachusetts Institute of *  10 " * Technology and Honeywell Information Systems, Inc. *  11 " * *  12 " * *  13 " ******************************************************  14  15 "  16 " label 17 "  18 " Program to read the label of a tape.  19 " Coded 2/72 Steve Webber  20 " Modified 9/83 Sherman D. Sprague to be more verbose.  21 "  22 include bosequ 1-1 " Begin include file ...... bosequ.incl.alm 1-2 " Modified 8/25/76 by N. I. Morris  1-3 " Modified 8/79 by R.J.C. Kissel to expand BOS. 1-4 " Modified November 1981 by C. Hornig to add pgmorg.  1-5 " Modified October 1982 by J. Bongiovanni to take it out  1-6  000000 1-7 bool ds,0 descriptor segment  000001 1-8 bool tmp,1 temp seg  000002 1-9 bool bf,2 buffer segment for save/restor  000003 1-10 bool pgm,3 program in control 000004 1-11 bool xs1,4 spare segment  000005 1-12 bool xs2,5 spare segment  000005 1-13 bool fgb,5 flagbox segment  000006 1-14 bool com,6 common 000007 1-15 bool mem,7 all memory 1-16  000017 1-17 equ arglen,15 max number of args from scan  1-18  004000 1-19 bool runcom_bit,4000 runcom bit in dir entry  002000 1-20 bool firmware_bit,2000 firmware bit in dir entry  1-21  012000 1-22 bool utilorg,12000 origin of utility package  1-23  1-24 " End of include file ...... bosequ.incl.alm  23 include mstr  2-1  2-2  2-3 "BEGIN INCLUDE FILE mstr.incl.alm  2-4  2-5  2-6 "  2-7 " Structure mstr  2-8 "  2-9  000000 2-10 equ mstr.head,0 " LEVEL 2 2-11  2-12  000010 2-13 equ mstr.data_word,8  000044 2-14 equ mstr.data_shift,36 000000 2-15 bool mstr.data_mask,000000 2-16  000000 2-17 equ mstr.trail,0 " LEVEL 2  2-18  2-19  2-20 "  2-21 " Structure mst_label  2-22 "  000000 2-23 equ mst_label.xfer_vector,0 " LEVEL 2  2-24  000000 2-25 equ mst_label.lda_instr,0  000001 2-26 equ mst_label.tra_instr,1  000010 2-27 equ mst_label.head,8 " LEVEL 2  2-28  000020 2-29 equ mst_label.vid,16 " LEVEL 2  2-30  000050 2-31 equ mst_label.fv_overlay,40 " LEVEL 2  2-32  000050 2-33 equ mst_label.scu_instr,40 000051 2-34 equ mst_label.dis_instr,41 000150 2-35 equ mst_label.fault_data,104  000160 2-36 equ mst_label.boot_pgm_path,112  000232 2-37 equ mst_label.userid,154  000242 2-38 equ mst_label.label_version,162  000243 2-39 equ mst_label.output_mode,163  000244 2-40 equ mst_label.boot_pgm_len,164 000245 2-41 equ mst_label.copyright,165  000300 2-42 equ mst_label.boot_pgm,192 000000 2-43 equ mst_label.trail,0 " LEVEL 2  2-44  2-45  2-46 "  2-47 " Structure mstr_header 2-48 "  000010 2-49 equ mstr_header_size,8 2-50  000000 2-51 equ mstr_header.c1,0  000001 2-52 equ mstr_header.uid,1 " DOUBLE  2-53  000003 2-54 equ mstr_header.rec_within_file,3 " UPPER  000003 2-55 equ mstr_header.phy_file,3 " LOWER 2-56  000004 2-57 equ mstr_header.data_bits_used,4 " UPPER  000004 2-58 equ mstr_header.data_bit_len,4 " LOWER 2-59  000005 2-60 equ mstr_header.flags_word,5  000011 2-61 equ mstr_header.flags_shift,9  000005 2-62 equ mstr_header.admin_word,5  400000 2-63 bool mstr_header.admin,400000 " DU 000005 2-64 equ mstr_header.label_word,5  200000 2-65 bool mstr_header.label,200000 " DU 000005 2-66 equ mstr_header.eor_word,5 100000 2-67 bool mstr_header.eor,100000 " DU  000005 2-68 equ mstr_header.set_word,5 000010 2-69 bool mstr_header.set,000010 " DU  000005 2-70 equ mstr_header.repeat_word,5  000004 2-71 bool mstr_header.repeat,000004 " DU  000005 2-72 equ mstr_header.eot_word,5 000001 2-73 bool mstr_header.eot,000001 " DU  000005 2-74 equ mstr_header.drain_word,5  400000 2-75 bool mstr_header.drain,400000 " DL 000005 2-76 equ mstr_header.continue_word,5  200000 2-77 bool mstr_header.continue,200000 " DL  000005 2-78 equ mstr_header.repeat_count_word,5  000000 2-79 equ mstr_header.repeat_count_shift,0  000777 2-80 bool mstr_header.repeat_count_mask,000777  2-81  000006 2-82 equ mstr_header.checksum,6 000007 2-83 equ mstr_header.c2,7  2-84  2-85 "  2-86 " Structure mstr_trailer  2-87 "  000010 2-88 equ mstr_trailer_size,8  2-89  000000 2-90 equ mstr_trailer.c1,0  000001 2-91 equ mstr_trailer.uid,1 " DOUBLE  2-92  000003 2-93 equ mstr_trailer.tot_data_bits_word,3  2-94 " equ mstr_trailer.tot_data_bits_shift,0  2-95  000005 2-96 equ mstr_trailer.reel_num_word,5  000030 2-97 equ mstr_trailer.reel_num_shift,24 007777 2-98 bool mstr_trailer.reel_num_mask,007777 000005 2-99 equ mstr_trailer.tot_file_word,5  000000 2-100 equ mstr_trailer.tot_file_shift,0  2-101  000006 2-102 equ mstr_trailer.tot_rec_word,6  000000 2-103 equ mstr_trailer.tot_rec_shift,0  2-104  000007 2-105 equ mstr_trailer.c2,7  2-106  2-107 "  2-108 " Structure volume_identifier  2-109 "  000030 2-110 equ volume_identifier_size,24  2-111  2-112 " equ volume_identifier.installation_id,0  000010 2-113 equ volume_identifier.tape_reel_id,8  000020 2-114 equ volume_identifier.volume_set_id,16 2-115  670314 355245 2-116 bool header_c1,670314355245 " MANIFEST 512556 146073 2-117 bool header_c2,512556146073 " MANIFEST 107463 422532 2-118 bool trailer_c1,107463422532 " MANIFEST  265221 631704 2-119 bool trailer_c2,265221631704 " MANIFEST  2-120  000003 2-121 equ LABEL_VERSION,3 " MANIFEST  2-122  2-123 "END INCLUDE FILE mstr.incl.alm  24  002020 25 equ bufl,1040 max record size 26  000000 0a 000146 7420 00 27 stx2 x2  000001 aa 7 00000 2271 12 28 ldx7 mem|0,2  000002 aa 7 00001 2351 17 29 lda mem|1,7 get tape number  000003 0a 000010 6044 00 30 tmoz *+5  000004 aa 000010 1150 03 31 cmpa =8,du 000005 0a 000010 6050 00 32 tpl *+3  000006 aa 000014 7350 00 33 als 12 000007 0a 002226 7510 04 34 stca tpch,04 store as device number  35  000010 aa 6 02015 2271 00 36 ldx7 com|tapechanno copy tape channel number into control word 000011 0a 002226 7470 00 37 stx7 tpch  38  000012 aa 012271 7020 00 39 tsx2 init_io  000013 aa 012245 7020 00 40 tsx2 ttyinit  000014 0a 000146 0000 00 41 arg return 42  43 " Rewind the tape  44  000015 aa 012277 7020 00 45 tsx2 xio_wait  000016 aa 000000 000000 46 zero 0,0  000017 0a 002226 000070 47 zero tpch,56  000020 0a 000015 7100 00 48 tra *-3  49  000021 aa 012237 7020 00 50 tsx2 itaper  000022 0a 002226 0000 00 51 arg tpch  52  000023 aa 000024 6200 00 53 eax0 20  000024 aa 012277 7020 00 54 reread: tsx2 xio_wait start tape io  000025 0a 000206 202000 55 vfd 18/buf,12/bufl 000026 0a 002226 000005 56 zero tpch,5  000027 0a 000151 7100 00 57 tra tper  58  59 " 60 " Have a look at the label  61  000030 0a 000206 2350 00 62 lda buf+mstr.head+mstr_header.c1  000031 0a 002232 1150 00 63 cmpa =v36/header_c1 " Ordinary tape?  000032 0a 000050 6010 00 64 tnz not_old_label 65  66  67 " Old tape, no understanding 'cept "offset 16"  68  000033 aa 012241 7020 00 69 tsx2 erpt  000034 aa 034 117 154 144 70 acc "Old format Multics label ^A." 000035 aa 040 146 157 162 000036 aa 155 141 164 040 000037 aa 115 165 154 164 000040 aa 151 143 163 040 000041 aa 154 141 142 145 000042 aa 154 040 136 101 000043 aa 056 000 000 000 000044 0a 000064 0000 00 71 arg old_label_desc 72  000045 0a 000207 2350 00 73 lda buf+mstr_header.uid  000046 0a 000210 2360 00 74 ldq buf+mstr_header.uid+1  000047 0a 000122 7100 00 75 tra date_time_common  76  000050 77 not_old_label:  78  000050 0a 000216 2350 00 79 lda buf+mst_label.head+mstr_header.c1  000051 0a 002232 1150 00 80 cmpa =v36/header_c1  000052 0a 000070 6000 00 81 tze new_label  82  000053 aa 012241 7020 00 83 tsx2 erpt  000054 aa 031 116 157 164 84 acc "Not a valid Multics tape."  000055 aa 040 141 040 166 000056 aa 141 154 151 144 000057 aa 040 115 165 154 000060 aa 164 151 143 163 000061 aa 040 164 141 160 000062 aa 145 056 000 000 000063 0a 000142 7100 00 85 tra rewind_the_tape  86  000064 87 old_label_desc: 000064 0a 000226 000040 88 desc9a buf+16,32  000065 89 vid.tape_reel_id:  000065 0a 000236 000040 90 desc9a buf+mst_label.vid+volume_identifier.tape_reel_id,32 000066 91 vid.installation_id:  000066 0a 000226 000040 92 desc9a buf+mst_label.vid,32 " name is too long 000067 93 vid.volume_set_id:  000067 0a 000246 000040 94 desc9a buf+mst_label.vid+volume_identifier.volume_set_id,32  000070 95 new_label:  000070 aa 012241 7020 00 96 tsx2 erpt  000071 aa 026 115 165 154 97 acc "Multics tape label ^A."  000072 aa 164 151 143 163 000073 aa 040 164 141 160 000074 aa 145 040 154 141 000075 aa 142 145 154 040 000076 aa 136 101 056 000 000077 0a 000065 0000 00 98 arg vid.tape_reel_id  000100 aa 012241 7020 00 99 tsx2 erpt  000101 aa 026 040 040 040 100 acc " Volume set: ^A."  000102 aa 126 157 154 165 000103 aa 155 145 040 163 000104 aa 145 164 072 040 000105 aa 040 040 040 040 000106 aa 136 101 056 000 000107 0a 000067 0000 00 101 arg vid.volume_set_id  000110 aa 012241 7020 00 102 tsx2 erpt  000111 aa 025 040 040 040 103 acc " Created at: ^A"  000112 aa 103 162 145 141 000113 aa 164 145 144 040 000114 aa 141 164 072 040 000115 aa 040 040 040 040 000116 aa 136 101 000 000 000117 0a 000066 0000 00 104 arg vid.installation_id  000120 0a 000217 2350 00 105 lda buf+mst_label.head+mstr_header.uid 000121 0a 000220 2360 00 106 ldq buf+mst_label.head+mstr_header.uid+1  107  000122 108 date_time_common:  000122 aa 000001 3150 03 109 cana =o000001,du " unique_bits_ ?  000123 0a 000126 6000 00 110 tze already_date_time  000124 aa 000022 7370 00 111 lls 18 000125 aa 000024 7730 00 112 lrl 20 113  000126 114 already_date_time:  115  000126 aa 012270 7020 00 116 tsx2 cvclock  000127 0a 002230 7570 00 117 staq date_time_string  000130 aa 012241 7020 00 118 tsx2 erpt  000131 aa 031 040 040 040 119 acc " Created on: ^g ^g."  000132 aa 103 162 145 141 000133 aa 164 145 144 040 000134 aa 157 156 072 040 000135 aa 040 040 040 040 000136 aa 136 147 040 136 000137 aa 147 056 000 000 000140 0a 002230 0000 00 120 arg date_time_string  000141 0a 002231 0000 00 121 arg date_time_string+1 122  000142 123 rewind_the_tape:  124  125 " Now rewind the tape  126  000142 aa 012277 7020 00 127 tsx2 xio_wait  000143 aa 000000 000000 128 zero 0,0  000144 0a 002226 000070 129 zero tpch,56  000145 0a 000146 7100 00 130 tra *+1  131  000146 132 return: 000146 133 x2: 000146 0a 000146 6220 00 134 eax2 * 000147 aa 000001 3350 07 135 lca 1,dl  000150 aa 7 00001 7101 12 136 tra mem|1,2  137  000151 aa 000036 7710 00 138 tper: arl 30  000152 aa 000007 3750 07 139 ana =o7,dl dispatch on major status  000153 0a 000154 7100 05 140 tra *+1,al 000154 0a 000164 7100 00 141 tra retry  000155 0a 000024 7100 00 142 tra reread 000156 0a 000024 7100 00 143 tra reread 000157 0a 000164 7100 00 144 tra retry  000160 0a 000200 7100 00 145 tra eof  000161 0a 000024 7100 00 146 tra reread 000162 0a 000162 7100 00 147 tra *  000163 0a 000163 7100 00 148 tra *  149  000164 aa 777777 6200 10 150 retry: eax0 -1,0 count down errors 000165 0a 000173 6040 00 151 tmi rder  000166 aa 012277 7020 00 152 tsx2 xio_wait backspace  000167 aa 000000 000000 153 zero  000170 0a 002226 000046 154 zero tpch,38  000171 0a 000024 7100 00 155 tra reread 000172 0a 000024 7100 00 156 tra reread 157  000173 aa 012241 7020 00 158 rder: tsx2 erpt 000174 aa 012 164 141 160 159 acc "tape error"  000175 aa 145 040 145 162 000176 aa 162 157 162 000 000177 0a 000146 7100 00 160 tra return 161  000200 aa 012241 7020 00 162 eof: tsx2 erpt  000201 aa 015 145 157 146 163 acc "eof, no label"  000202 aa 054 040 156 157 000203 aa 040 154 141 142 000204 aa 145 154 000 000 000205 0a 000146 7100 00 164 tra return 165  166 even  000206 167 bss buf,bufl  168  169 even  002226 aa 000000 010000 170 tpch: vfd 18/0,6/1,12/0 002227 aa 000000 0110 03 171 even  002230 172 bss date_time_string,2 173  174  175 include bos_tv 3-1 " 3-2 " Begin include file ...... bos_tv.incl.alm 3-3 " Created in November 1971 by N. I. Morris. 3-4 " Modified 9/9/76 by Noel I. Morris 3-5 " Modified by Sherman D. Sprague 02/11/81 for DPS8 support. 3-6 " Modified November 1981 by C. Hornig to remove iom_connect_rel.  3-7 " Modified January 1982 by J. Bongiovanni to add getport_info  3-8 " Modified May 1982 by Sherman D. Sprague to add getmpc.  3-9  3-10 " BOS Utility Package Transfer Vector.  3-11  012000 3-12 equ pagectl,utilorg  012001 3-13 equ line,pagectl+1 012040 3-14 equ arg,line+31  012060 3-15 equ darg,arg+arglen+1  012100 3-16 equ earg,darg+arglen+1 012120 3-17 equ fltscu,earg+arglen+1  3-18  012200 3-19 equ tv_org,utilorg+128 3-20  012200 3-21 equ scan,tv_org+0  012201 3-22 equ arg_count,tv_org+1 012202 3-23 equ nextline,tv_org+2  012203 3-24 equ nlraw,tv_org+3 012204 3-25 equ search,tv_org+4  012205 3-26 equ makefil,tv_org+5  012206 3-27 equ ldcom,tv_org+6 012207 3-28 equ getsec,tv_org+7  012210 3-29 equ cvinit,tv_org+8  012211 3-30 equ rdev,tv_org+9  012212 3-31 equ wdev,tv_org+10 012213 3-32 equ phybos,tv_org+11  012214 3-33 equ bosphy,tv_org+12  012215 3-34 equ phyadd,tv_org+13  012216 3-35 equ mulbos,tv_org+14  012217 3-36 equ bosmul,tv_org+15  012220 3-37 equ lookup_devmodel,tv_org+16  012221 3-38 equ makesdw,tv_org+17  012222 3-39 equ argbos,tv_org+18  012223 3-40 equ argmul,tv_org+19  012224 3-41 equ amdvt,tv_org+20  012225 3-42 equ amfirst,tv_org+21  012226 3-43 equ amlast,tv_org+22  012227 3-44 equ cvnamla,tv_org+23  012230 3-45 equ sect_per_cyl_list,tv_org+24  012231 3-46 equ sect_per_dev_list,tv_org+25  012232 3-47 equ rec_per_dev_list,tv_org+26 012233 3-48 equ amaxio,tv_org+27  012234 3-49 equ rdsec,tv_org+28  012235 3-50 equ wtsec,tv_org+29  012236 3-51 equ disk_brief,tv_org+30  012237 3-52 equ itaper,tv_org+31  012240 3-53 equ itapew,tv_org+32  012241 3-54 equ erpt,tv_org+33 012242 3-55 equ ercv,tv_org+34 012243 3-56 equ erbuf,tv_org+35  012244 3-57 equ type,tv_org+36 012245 3-58 equ ttyinit,tv_org+37  012246 3-59 equ readcd,tv_org+38  012247 3-60 equ readtty,tv_org+39  012250 3-61 equ getprt,tv_org+40  012251 3-62 equ punch,tv_org+41  012252 3-63 equ octwd,tv_org+42  012253 3-64 equ geas,tv_org+43 012254 3-65 equ geastab,tv_org+44  012255 3-66 equ asge,tv_org+45 012256 3-67 equ asgetab,tv_org+46  012257 3-68 equ ljust,tv_org+47  012260 3-69 equ rjust,tv_org+48  012261 3-70 equ bzel,tv_org+49 012262 3-71 equ stripa,tv_org+50  012263 3-72 equ stripg,tv_org+51  012264 3-73 equ getconf,tv_org+52  012265 3-74 equ getmore,tv_org+53  012266 3-75 equ getperiph,tv_org+54  012267 3-76 equ rdclock,tv_org+55  012270 3-77 equ cvclock,tv_org+56  012271 3-78 equ init_io,tv_org+57  012272 3-79 equ connect_iom,tv_org+58  012273 3-80 equ getmpc,tv_org+59  012274 3-81 equ check_status,tv_org+60 012275 3-82 equ get_special_interrupt,tv_org+61  012276 3-83 equ get_status_interrupt,tv_org+62 012277 3-84 equ xio_wait,tv_org+63 012300 3-85 equ initint,tv_org+64  012301 3-86 equ wantflt,tv_org+65  012302 3-87 equ intno,tv_org+66  012303 3-88 equ intrpts1,tv_org+67 012304 3-89 equ hexwd,tv_org+68  012305 3-90 equ find_disk,tv_org+69  012306 3-91 equ find_root,tv_org+70  012307 3-92 equ find_part,tv_org+71  012310 3-93 equ check_status_no_stat,tv_org+72 012311 3-94 equ check_special_status,tv_org+73 012312 3-95 equ check_cpu_type,tv_org+74  012313 3-96 equ getportinfo,tv_org+75  3-97  3-98 " End of include file ...... bos_tv.incl.alm  3-99  176 include bos_common 4-1 "  4-2 " Begin include file ...... bos_common.incl.alm 4-3 " Modified on 8/31/76 by N. I. Morris  4-4 " Modified on 9/01/80 by Sherman D. Sprague for DPS8 operation  4-5 " Modified on 5/26/82 by Sherman D. Sprague to lengthen config size 4-6 " Modified on 3/01/83 by Sherman D. Sprague to lengthen dirlen  4-7 " MACHINE CONDITIONS AREA  4-8 " Its length is "storlen". 4-9  000000 4-10 equ amptwregs,0 Ass. Mem PTW registers  000100 4-11 equ amptwptr,64 Ass. Mem PTW pointers 000200 4-12 equ amsdwregs,128 Ass. Mem SDW registers  000400 4-13 equ amsdwptr,256 Ass. Mem SDW pointers  000500 4-14 equ ouhist,320 operations hist regs  000700 4-15 equ cuhist,448 control unit hist regs  001100 4-16 equ eishist,576 eis hist regs  001300 4-17 equ aphist,704 appending unit hist regs  001500 4-18 equ prs,832 pointer regs  001520 4-19 equ regs,848 sreg 001530 4-20 equ low_order_port,856 port to read clock from 001532 4-21 equ mctime,858 bootload memory clock  001540 4-22 equ scu,864  001550 4-23 equ mcm,872 memory masks 8 ports 001570 4-24 equ dbr,888  001572 4-25 equ intrpts,890 waiting interrupts 001573 4-26 equ bar,891 bar  001574 4-27 equ modereg,892 processor & cache mode registers  001576 4-28 equ faultreg,894 processor fault register  001600 4-29 equ ptrlen,896 pointer-lengths EIS 0 mod 8 001610 4-30 equ coreblocks,904 array of port information  4-31 " Bits 0-17 => num 1st 64-word block  4-32 " Bits 18-35 => num of 64-word blocks  4-33 " (-1) => no mem on this port  001620 4-34 equ lowport_cfg,912 Saved CFG from bootload SCU  4-35  002000 4-36 equ storlen,1024  4-37  4-38  4-39  4-40 " BOS COMMAND DIRECTORY 4-41 " Its length is "dirlen".  4-42  002000 4-43 equ dir,1024 ( 0-23) => sector # of first sector on BOS disk  4-44 " (24-35) => # of sectors in BOS common  002001 4-45 equ used,dir+1 ( 0-23) => # of next available sector on BOS disk  002002 4-46 equ useable,dir+2 ( 0-23) => first unavailable sector on BOS disk  002003 4-47 equ corearea,dir+3 ( 0-23) => starting sector of Multics core image  4-48 " (24-35) => # of sectors in Multics core image  002004 4-49 equ setuparea,dir+4 Sector and length of setup 002005 4-50 equ utilarea,dir+5 where utility package is kept  002010 4-51 equ iom_mxbase,dir+8 IOM IMW area address  002011 4-52 equ iom_mbbase,dir+9 IOM mailbox base  002012 4-53 equ bos_dvt,dir+10 BOS disk loc: (o3/iom,o6/chn,o9/drive,o18/devtype)  002013 4-54 equ unitgroup,dir+11 disk unitgroup (device no. or area no.)  002014 4-55 equ diskchanno,dir+12 channel to be used for disk  002015 4-56 equ tapechanno,dir+13 channel # for tapes  002016 4-57 equ rdrchanno,dir+14 channel number for card reader  002017 4-58 equ ttychanno,dir+15 channel # for operator's tty  002020 4-59 equ quietsw,dir+16 if on, don't print card and macro commands  002021 4-60 equ inputsw,dir+17 read from tty, cards, macros  002022 4-61 equ macroloc,dir+18 disk addr, buffer index of macro file  002023 4-62 equ fdump_state,dir+19 completion flag for last FDUMP  002024 4-63 equ d355_state,dir+20 = 1 if DataNet 355 loaded successfully  002025 4-64 equ skipsw,dir+21 if on, skip runcom lines 002026 4-65 equ ttypmtsw,dir+22 if on, prompt  002027 4-66 equ curtcmd,dir+23 current bos command 002030 4-67 equ readysw,dir+24 if on, print ready message  002032 4-68 equ cmdlst,dir+26 list of commands 4-69  000600 4-70 equ dirlen,384 4-71  4-72  4-73  4-74 " MACRO BUFFER AREA 4-75  002600 4-76 equ macrobuf,dir+dirlen io buffer for macro files 002700 4-77 equ macroline,macrobuf+64 runcom command line 002716 4-78 equ macroargs,macroline+14 argument descriptors for runcom  4-79  4-80  4-81  4-82 " CONFIGURATION CARD AREA  4-83 " Its length is 2048 words.  4-84  003000 4-85 equ conf,macrobuf+128 start of configuration info  007000 4-86 equ econf,conf+2048 end of configuration info  000020 4-87 equ confl,16 length of each line  4-88  4-89  007000 4-90 equ seg6length,econf length of bos_common area segment 4-91  4-92 " End of include file ...... bos_common.incl.alm  4-93  177  178 end  LITERALS 002232 aa 670314 355245 NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 002233 5a 000003 000000 002234 5a 000017 600000 002235 aa 000000 000000 002236 55 000010 000002 002237 5a 000002 400003 002240 55 000006 000010 002241 aa 005 154 141 142 002242 aa 145 154 000 000 002243 55 000002 000003 002244 6a 000000 400002 002245 55 000013 000003 002246 aa 014 163 171 155 symbol_table  002247 aa 142 157 154 137 002250 aa 164 141 142 154 002251 aa 145 000 000 000 DEFINITIONS HASH TABLE  002252 aa 000000 000015 002253 aa 000000 000000 002254 aa 000000 000000 002255 aa 000000 000000 002256 aa 000000 000000 002257 aa 000000 000000 002260 aa 000000 000000 002261 5a 000010 000000 002262 aa 000000 000000 002263 aa 000000 000000 002264 aa 000000 000000 002265 aa 000000 000000 002266 aa 000000 000000 002267 aa 000000 000000 NO EXTERNAL NAMES  NO TRAP POINTER WORDS  TYPE PAIR BLOCKS  002270 aa 000001 000000 002271 aa 000000 000000 INTERNAL EXPRESSION WORDS LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 002233 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000010 000010 000007 a2 000000 000000 SYMBOL INFORMATION SYMBOL TABLE HEADER  000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000004 000004 aa 000000 112143 000005 aa 305203 523135 000006 aa 000000 112272 000007 aa 223033 564263 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000306 000020 aa 000000 000160 000021 aa 000000 000272 000022 aa 000275 000160 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 040066 056066 000030 aa 040040 116157 000031 aa 166145 155142 000032 aa 145162 040061 000033 aa 071070 062040 000034 aa 110157 154155 000035 aa 163164 145144 000036 aa 164056 123171 000037 aa 163115 141151 000040 aa 156164 056141 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 154151 163164 000045 aa 040040 040040 000046 aa 040040 040040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040040 040040 000057 aa 040040 040040 000060 aa 040040 040040 000061 aa 040040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000005 000066 aa 000112 000026 000067 aa 122721 272777 000070 aa 000000 112272 000071 aa 214710 600000 000072 aa 000120 000040 000073 aa 113400 415301 000074 aa 000000 111341 000075 aa 220414 400000 000076 aa 000130 000032 000077 aa 112375 747474 000100 aa 000000 111240 000101 aa 207532 000000 000102 aa 000137 000040 000103 aa 110235 072677 000104 aa 000000 111024 000105 aa 524460 600000 000106 aa 000147 000044 000107 aa 121622 277475 000110 aa 000000 112162 000111 aa 321563 400000 000112 aa 076163 160145 >spec>h>3.17>label.alm  000113 aa 143076 150076 000114 aa 063056 061067 000115 aa 076154 141142 000116 aa 145154 056141 000117 aa 154155 040040 000120 aa 076154 144144 >ldd>bos>include>bosequ.incl.alm  000121 aa 076142 157163 000122 aa 076151 156143 000123 aa 154165 144145 000124 aa 076142 157163 000125 aa 145161 165056 000126 aa 151156 143154 000127 aa 056141 154155 000130 aa 076154 144144 >ldd>include>mstr.incl.alm  000131 aa 076151 156143 000132 aa 154165 144145 000133 aa 076155 163164 000134 aa 162056 151156 000135 aa 143154 056141 000136 aa 154155 040040 000137 aa 076154 144144 >ldd>bos>include>bos_tv.incl.alm  000140 aa 076142 157163 000141 aa 076151 156143 000142 aa 154165 144145 000143 aa 076142 157163 000144 aa 137164 166056 000145 aa 151156 143154 000146 aa 056141 154155 000147 aa 076154 144144 >ldd>bos>include>bos_common.incl.alm  000150 aa 076142 157163 000151 aa 076151 156143 000152 aa 154165 144145 000153 aa 076142 157163 000154 aa 137143 157155 000155 aa 155157 156056 000156 aa 151156 143154 000157 aa 056141 154155 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number  126 already_date_time label: 110, 114.  12233 amaxio bos_tv: 48. 12224 amdvt bos_tv: 41. 12225 amfirst bos_tv: 42. 12226 amlast bos_tv: 43. 100 amptwptr bos_common: 11. 0 amptwregs bos_common: 10. 400 amsdwptr bos_common: 13. 200 amsdwregs bos_common: 12. 1300 aphist bos_common: 17. 12040 arg bos_tv: 14, 15.  12222 argbos bos_tv: 39. 17 arglen bosequ: 17, bos_tv: 15, 16, 17. 12223 argmul bos_tv: 40. 12201 arg_count bos_tv: 22. 12255 asge bos_tv: 66. 12256 asgetab bos_tv: 67. 1573 bar bos_common: 26. 2 bf bosequ: 9. 12217 bosmul bos_tv: 36. 12214 bosphy bos_tv: 33. 2012 bos_dvt bos_common: 53. 206 buf label: 55, 62, 73, 74, 79, 88, 90, 92, 94, 105, 106, 167.  2020 bufl label: 25, 55, 167. 12261 bzel bos_tv: 70. 12312 check_cpu_type bos_tv: 95. 12311 check_special_status bos_tv: 94. 12274 check_status bos_tv: 81. 12310 check_status_no_stat bos_tv: 93. 2032 cmdlst bos_common: 68. 6 com label: 36, bosequ: 14. 3000 conf bos_common: 85, 86.  20 confl bos_common: 87. 12272 connect_iom bos_tv: 79. 2003 corearea bos_common: 47. 1610 coreblocks bos_common: 30. 700 cuhist bos_common: 15. 2027 curtcmd bos_common: 66. 12270 cvclock label: 116, bos_tv: 77. 12210 cvinit bos_tv: 29. 12227 cvnamla bos_tv: 44. 2024 d355_state bos_common: 63. 12060 darg bos_tv: 15, 16.  122 date_time_common label: 75, 108.  2230 date_time_string label: 117, 120, 121, 172.  1570 dbr bos_common: 24. 2000 dir bos_common: 43, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56,  57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 76. 600 dirlen bos_common: 70, 76.  2014 diskchanno bos_common: 55. 12236 disk_brief bos_tv: 51. 0 ds bosequ: 7. 12100 earg bos_tv: 16, 17.  7000 econf bos_common: 86, 90.  1100 eishist bos_common: 16. 200 eof label: 145, 162.  12243 erbuf bos_tv: 56. 12242 ercv bos_tv: 55. 12241 erpt label: 69, 83, 96, 99, 102, 118, 158, 162,  bos_tv: 54. 1576 faultreg bos_common: 28. 2023 fdump_state bos_common: 62. 5 fgb bosequ: 13. 12305 find_disk bos_tv: 90. 12307 find_part bos_tv: 92. 12306 find_root bos_tv: 91. 2000 firmware_bit bosequ: 20. 12120 fltscu bos_tv: 17. 12253 geas bos_tv: 64. 12254 geastab bos_tv: 65. 12264 getconf bos_tv: 73. 12265 getmore bos_tv: 74. 12273 getmpc bos_tv: 80. 12266 getperiph bos_tv: 75. 12313 getportinfo bos_tv: 96. 12250 getprt bos_tv: 61. 12207 getsec bos_tv: 28. 12275 get_special_interrupt bos_tv: 82. 12276 get_status_interrupt bos_tv: 83. 355245 header_c1 label: 63, 80,  mstr: 116. 146073 header_c2 mstr: 117. 12304 hexwd bos_tv: 89. 12300 initint bos_tv: 85. 12271 init_io label: 39, bos_tv: 78. 2021 inputsw bos_common: 60. 12302 intno bos_tv: 87. 1572 intrpts bos_common: 25. 12303 intrpts1 bos_tv: 88. 2011 iom_mbbase bos_common: 52. 2010 iom_mxbase bos_common: 51. 12237 itaper label: 50, bos_tv: 52. 12240 itapew bos_tv: 53. 3 LABEL_VERSION mstr: 121. 12206 ldcom bos_tv: 27. 12001 line bos_tv: 13, 14.  12257 ljust bos_tv: 68. 12220 lookup_devmodel bos_tv: 37. 1620 lowport_cfg bos_common: 34. 1530 low_order_port bos_common: 20. 2716 macroargs bos_common: 78. 2600 macrobuf bos_common: 76, 77, 85. 2700 macroline bos_common: 77, 78.  2022 macroloc bos_common: 61. 12205 makefil bos_tv: 26. 12221 makesdw bos_tv: 38. 1550 mcm bos_common: 23. 1532 mctime bos_common: 21. 7 mem label: 28, 29, 136, bosequ: 15. 1574 modereg bos_common: 27. 0 mstr.data_mask mstr: 15. 44 mstr.data_shift mstr: 14. 10 mstr.data_word mstr: 13. 0 mstr.head label: 62, mstr: 10. 0 mstr.trail mstr: 17. 400000 mstr_header.admin mstr: 63. 5 mstr_header.admin_word mstr: 62. 0 mstr_header.c1 label: 62, 79,  mstr: 51. 7 mstr_header.c2 mstr: 83. 6 mstr_header.checksum mstr: 82. 200000 mstr_header.continue mstr: 77. 5 mstr_header.continue_word mstr: 76.  4 mstr_header.data_bits_used mstr: 57.  4 mstr_header.data_bit_len mstr: 58.  400000 mstr_header.drain mstr: 75. 5 mstr_header.drain_word mstr: 74. 100000 mstr_header.eor mstr: 67. 5 mstr_header.eor_word mstr: 66. 1 mstr_header.eot mstr: 73. 5 mstr_header.eot_word mstr: 72. 11 mstr_header.flags_shift mstr: 61. 5 mstr_header.flags_word mstr: 60. 200000 mstr_header.label mstr: 65. 5 mstr_header.label_word mstr: 64. 3 mstr_header.phy_file mstr: 55. 3 mstr_header.rec_within_file mstr: 54.  4 mstr_header.repeat mstr: 71. 777 mstr_header.repeat_count_mask mstr: 80.  0 mstr_header.repeat_count_shift mstr: 79. 5 mstr_header.repeat_count_word mstr: 78.  5 mstr_header.repeat_word mstr: 70. 10 mstr_header.set mstr: 69. 5 mstr_header.set_word mstr: 68. 1 mstr_header.uid label: 73, 74, 105, 106,  mstr: 52. 10 mstr_header_size mstr: 49. 0 mstr_trailer.c1 mstr: 90. 7 mstr_trailer.c2 mstr: 105. 7777 mstr_trailer.reel_num_mask mstr: 98.  30 mstr_trailer.reel_num_shift mstr: 97.  5 mstr_trailer.reel_num_word mstr: 96.  3 mstr_trailer.tot_data_bits_word mstr: 93. 0 mstr_trailer.tot_file_shift mstr: 100.  5 mstr_trailer.tot_file_word mstr: 99.  0 mstr_trailer.tot_rec_shift mstr: 103.  6 mstr_trailer.tot_rec_word mstr: 102.  1 mstr_trailer.uid mstr: 91. 10 mstr_trailer_size mstr: 88. 300 mst_label.boot_pgm mstr: 42. 244 mst_label.boot_pgm_len mstr: 40. 160 mst_label.boot_pgm_path mstr: 36. 245 mst_label.copyright mstr: 41. 51 mst_label.dis_instr mstr: 34. 150 mst_label.fault_data mstr: 35. 50 mst_label.fv_overlay mstr: 31. 10 mst_label.head label: 79, 105, 106, mstr: 27. 242 mst_label.label_version mstr: 38. 0 mst_label.lda_instr mstr: 25. 243 mst_label.output_mode mstr: 39. 50 mst_label.scu_instr mstr: 33. 0 mst_label.trail mstr: 43. 1 mst_label.tra_instr mstr: 26. 232 mst_label.userid mstr: 37. 20 mst_label.vid label: 90, 92, 94, mstr: 29. 0 mst_label.xfer_vector mstr: 23. 12216 mulbos bos_tv: 35. 70 new_label label: 81, 95.  12202 nextline bos_tv: 23. 12203 nlraw bos_tv: 24. 50 not_old_label label: 64, 77.  12252 octwd bos_tv: 63. 64 old_label_desc label: 71, 87.  500 ouhist bos_common: 14. 12000 pagectl bos_tv: 12, 13.  3 pgm bosequ: 10. 12215 phyadd bos_tv: 34. 12213 phybos bos_tv: 32. 1500 prs bos_common: 18. 1600 ptrlen bos_common: 29. 12251 punch bos_tv: 62. 2020 quietsw bos_common: 59. 12267 rdclock bos_tv: 76. 173 rder label: 151, 158.  12211 rdev bos_tv: 30. 2016 rdrchanno bos_common: 57. 12234 rdsec bos_tv: 49. 12246 readcd bos_tv: 59. 12247 readtty bos_tv: 60. 2030 readysw bos_common: 67. 12232 rec_per_dev_list bos_tv: 47. 1520 regs bos_common: 19. 24 reread label: 54, 142, 143, 146, 155, 156.  164 retry label: 141, 144, 150. 146 return label: 41, 132, 160, 164.  142 rewind_the_tape label: 85, 123.  12260 rjust bos_tv: 69. 4000 runcom_bit bosequ: 19. 12200 scan bos_tv: 21. 1540 scu bos_common: 22. 12204 search bos_tv: 25. 12230 sect_per_cyl_list bos_tv: 45. 12231 sect_per_dev_list bos_tv: 46. 7000 seg6length bos_common: 90. 2004 setuparea bos_common: 49. 2025 skipsw bos_common: 64. 2000 storlen bos_common: 36. 12262 stripa bos_tv: 71. 12263 stripg bos_tv: 72. 2015 tapechanno label: 36, bos_common: 56. 1 tmp bosequ: 8. 2226 tpch label: 34, 37, 47, 51, 56, 129, 154, 170.  151 tper label: 57, 138.  422532 trailer_c1 mstr: 118. 631704 trailer_c2 mstr: 119. 2017 ttychanno bos_common: 58. 12245 ttyinit label: 40, bos_tv: 58. 2026 ttypmtsw bos_common: 65. 12200 tv_org bos_tv: 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,  32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,  44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55,  56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,  68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,  80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,  92, 93, 94, 95, 96. 12244 type bos_tv: 57. 2013 unitgroup bos_common: 54. 2002 useable bos_common: 46. 2001 used bos_common: 45. 2005 utilarea bos_common: 50. 12000 utilorg bosequ: 22, bos_tv: 12, 19.  66 vid.installation_id label: 91, 104.  65 vid.tape_reel_id label: 89, 98.  67 vid.volume_set_id label: 93, 101.  10 volume_identifier.tape_reel_id label: 90, mstr: 113. 20 volume_identifier.volume_set_id label: 94, mstr: 114. 30 volume_identifier_size mstr: 110. 12301 wantflt bos_tv: 86. 12212 wdev bos_tv: 31. 12235 wtsec bos_tv: 50. 146 x2 label: 27, 133.  12277 xio_wait label: 45, 54, 127, 152,  bos_tv: 84. 4 xs1 bosequ: 11. 5 xs2 bosequ: 12. NO FATAL ERRORS  ----------------------------------------------------------- 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