.TITLE RWMT.MAC 80G07B 08-MAY-80/07-JUL-80. ; ; AUTHOR: N. A. BOURGEOIS, JR. ; SYSTEMS ENGINEERING DIVISION 1738 ; SANDIA NATIONAL LABORATORIES ; PO BOX 5800 ; ALBUQUERQUE, NM 87185 ; 505-844-8088 ; FTS 844-8088 ; ; THIS SOFTWARE IS ISSUED BY SANDIA NATIONAL LABORATORIES, ; OPERATED FOR THE UNITED STATES DEPARTMENT OF ENERGY BY ; SANDIA CORPORATION. ; ; NOTICE ; ; THIS SOFTWARE WAS SPONSORED BY THE UNITED STATES ; GOVERNMENT. NEITHER THE UNITED STATES GOVERNMENT NOR ; THE UNITED STATES DEPARTMENT OF ENERGY, NOR ANY OF THEIR ; EMPLOYEES, NOR ANY OF THEIR CONTRACTORS, SUBCONTRACTORS, ; OR THEIR EMPLOYEES MAKES ANY WARRANTY, EXPRESS OR ; IMPLIED, OR ASSUMES ANY LEGAL LIABILITY OR ; RESPONSIBILITY FOR THE ACCURACY, COMPLETENESS OR ; USEFULNESS OF ANY INFORMATION, APPARATUS, PRODUCT OR ; PROCESS DISCLOSED, OR REPRESENTS THAT ITS USE WOULD NOT ; INFRINGE PRIVATELY OWNED RIGHTS. ; ; THIS WORK WAS SPONSORED AND FUNDED BY: ; ; HEADQUARTERS, ESD / OCB / STOP 36 ; HANSCOM AIR FORCE BASE, MA 01731 ; ; .SBTTL **************** .SBTTL * * .SBTTL * UNCLASSIFIED * .SBTTL * * .SBTTL **************** .SBTTL DESCRIPTION 08-MAY-80/07-JUL-80. ;THIS PROGRAM WILL CAUSE ALL ONLINE MAG TAPE UNITS TO GO OFFLINE AND ;REWIND. ; ;THIS PROGRAM IS WRITTEN IN DEC'S MACRO-11 ASSEMBLY LANGUAGE AND IS ;DESIGNED TO EXECUTE ON ANY OF THE PDP-11 FAMILY OF COMPUTERS UNDER ;THE RT-11 OPERATING SYSTEM [1,2,3] *. THE PROGRAM WILL RUN UNDER ;ANY OF THE MONITORS. ; ; * DEC AND PDP ARE REGISTERED TRADEMARKS OF DIGITAL EQUIPMENT ; CORPORATION, MAYNARD, MA. .SBTTL DIRECTIVES 08-MAY-80/07-JUL-80. .IDENT \80G07B\ ;TELL LINKER OUR VERSION .NLIST BEX ;BINARY EXTENSIONS .PSECT CODE,I ;PROGRAM CODE .PSECT DATA,D ;PROGRAM DATA .SBTTL ASSIGNMENTS & LOCATIONS 08-MAY-80/07-JUL-80. BEL =7 ;ASCII BELL CHARACTER CR =15 ;ASCII CARRIAGE RETURN LF =12 ;ASCII LINE FEED MTC =172522 ;MT: CONTROL REGISTER .SBTTL MESSAGES 07-JUL-80/. MSG01: .ASCIZ \RWMT: 80G07B\ MSG02: .ASCIZ \RWMT: TERMINATED\ .EVEN .SBTTL MACROS [4] 08-MAY-80/07-JUL-80. .MCALL .EXIT ;TO RT-11 MONITOR .MCALL .PRINT ;A MESSAGE ON THE CONSOLE TT: .SBTTL CODE 08-MAY-80/07-JUL-80. .PSECT CODE START:: .PRINT #MSG01 ;PROGRAM IDENTIFICATION CLR R5 ;MT: UNIT # 1$: TSTB @#MTC ;CONTROL UNIT READY? BPL 1$ ; NO CLR @#MTC ;OFFLINE & REWIND BISB R5 ,@#MTC+1 ; MT: UNIT # INC @#MTC ; AND GO! INC R5 ;BUMP MT: UNIT # CMP #8. ,R5 ;DONE ALL? BGT 1$ ; NO .PRINT #MSG02 ;TERMINATION .EXIT ;TO RT-11 .SBTTL RT-11 COMMAND STRINGS [5] 07-JUL-80/. ;ASSEMBLER ; .RUN MACRO ; *RWMT[,LP:]