/* Begin include file ...... mstr.incl.pl1 */ /* Modified 2/11/74 by N. I. Morris */ /* Modified 12/30/80 by J. A. Bush for bootable tape labels */ /* Modified 12/14/82 by J. A. Bush to add version number to the record header */ /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */ dcl mstrp ptr; /* pointer to MST record */ dcl 1 mstr based (mstrp) aligned, /* Multics standard tape mstr */ 2 head like mstr_header, /* tape record header */ 2 data bit (36864 refer (mstr.head.data_bit_len)), /* record body */ 2 trail like mstr_trailer; /* record trailer */ dcl 1 mst_label based (mstrp) aligned, /* bootable label structure */ 2 xfer_vector (4), /* bootload interrupt transfer vector */ 3 lda_instr bit (36), /* this will be a "LDA 4" instruction */ 3 tra_instr bit (36), /* a "TRA" instruction to start of boot pgm */ 2 head like mstr_header, /* standard record header */ 2 vid like volume_identifier, /* tape volume info */ 2 fv_overlay (0:31), /* overlay for fault vectors when tape booted */ 3 scu_instr bit (36), /* an "SCU" instruction to address of fault_data */ 3 dis_instr bit (36), /* a "DIS" instruction, with Y field = to its own addr */ 2 fault_data (8) bit (36), /* SCU data for unexpected faults goes here */ 2 boot_pgm_path char (168) unaligned, /* path name of boot program */ 2 userid char (32) unaligned, /* Storage for Person.Project.Instance of creator of tape */ 2 label_version fixed bin, /* defined by LABEL_VERSION constant below */ 2 output_mode fixed bin, /* mode in which tape was written with */ 2 boot_pgm_len fixed bin, /* length in words of boot program */ 2 copyright char (56), /* Protection notice goes here if boot pgm is written */ 2 pad (13) bit (36), /* pad out to 192 (300 octal) */ 2 boot_pgm (0 refer (mst_label.boot_pgm_len)) bit (36), /* boot program */ 2 trail like mstr_trailer; /* standard record trailer */ dcl 1 mstr_header based aligned, /* Multics standard tape record header */ ( 2 c1 bit (36), /* constant = 670314355245(8) */ 2 uid bit (72), /* unique ID */ 2 rec_within_file fixed bin (17), /* phys. rec. # within phys. file */ 2 phy_file fixed bin (17), /* phys. file # on phys. tape */ 2 data_bits_used fixed bin (17), /* # of bits of data in record */ 2 data_bit_len fixed bin (17), /* bit length of data space */ 2 flags, /* record flags */ 3 admin bit (1), /* admin record flag */ 3 label bit (1), /* label record flag */ 3 eor bit (1), /* end-of-reel record flag */ 3 pad1 bit (11), 3 set bit (1), /* ON if any of following items set */ 3 repeat bit (1), /* repeated record flag */ 3 padded bit (1), /* record contains padding flag */ 3 eot bit (1), /* EOT reflector encountered flag */ 3 drain bit (1), /* synchronous write flag */ 3 continue bit (1), /* continue on next reel flag */ 3 pad2 bit (4), 2 header_version fixed bin (3) unsigned, /* current header version number */ 2 repeat_count fixed bin (8), /* repetition count */ 2 checksum bit (36), /* checksum of header and trailer */ 2 c2 bit (36) ) unal; /* constant = 512556146073(8) */ dcl 1 mstr_trailer based aligned, /* Multics standard tape record trailer */ ( 2 c1 bit (36), /* constant = 107463422532(8) */ 2 uid bit (72), /* unique ID (matches header) */ 2 tot_data_bits fixed bin (35), /* total data bits written on logical tape */ 2 pad_pattern bit (36), /* padding pattern */ 2 reel_num fixed bin (11), /* reel sequence # */ 2 tot_file fixed bin (23), /* phys. file number */ 2 tot_rec fixed bin (35), /* phys. record # for logical tape */ 2 c2 bit (36) ) unal; /* constant = 265221631704(8) */ dcl 1 volume_identifier based aligned, /* tape volume info */ ( 2 installation_id char (32), /* installation that created tape */ 2 tape_reel_id char (32), /* tape reel name */ 2 volume_set_id char (32) ) unaligned; /* name of the volume set */ dcl ( header_c1 init ("670314355245"b3), header_c2 init ("512556146073"b3), trailer_c1 init ("107463422532"b3), trailer_c2 init ("265221631704"b3), label_c1 init ("000004235000"b3) ) bit (36) static; dcl LABEL_VERSION fixed bin static options (constant) init (3); /* current label version */ dcl HEADER_VERSION fixed bin static options (constant) init (1); /* current header version */ /* End of include file ...... mstr.incl.pl1 */ */ ----------------------------------------------------------- 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 */