Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
omount.ctl
There are 2 other files named omount.ctl in the archive. Click here to see a list.
;JOB%1(15) TO MAKE OMOUNT.SHR FROM OMOUNT.MAC
;SUBMIT WITH COMMAND .QUEUE I:=OMOUNT/RESTART:1
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] PIP.SHR
; DIRECT.SHR
; COMPIL.SHR
; MACRO.SHR
; LINK.SHR
; LNK???.SHR
; CREF.SHR
;[SELF] OMOUNT.MAC
;
;OUTPUT FILE:
; OMOUNT.SHR
;OUTPUT LISTINGS:
; OMOUNT CREF LISTING
; OMOUNT.LOG
; OMOUNT.MAP
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.SET WATCH VERSION
.IF (ERROR) .GOTO PNT1
.R SETSRC
*LIB[10,7]
.IF (NOERROR) .GOTO A
PNT1:: ;
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7],LINK.SHR[10,7]
*/X_DSK:CREF.SHR[10,7],LNK???.SHR[10,7]
;
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SAV+*.SHR+*.HLP
A:.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=OMOUNT.MAC+OMOUNT.CTL+OMOUNT.HLP+OMT???.RN?+OMOUNT.DOC
;****HERE INCLUDE OTHER SUBROUTINES AND THERE CHECKSUM****
;*****EXAMPLES ARE SCANER,QUEUER ETC *****
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:OMOUNT /CREF /COMPILE OMOUNT.MAC
.SSAVE DSK:OMOUNT
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:OMOUNT
*WHAT
;FAILURE EXPECTED UNLESS UNDER [1,2]
.IF (ERROR) .GOTO B
B:
.RU DSK: DIRECT[10,7]
*TTY:/CHECKSUM=OMOUNT.SHR+OMOUNT.SAV+OMOUNT.LOW+OMOUNT.HGH
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE OMOUNT SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE OMOUNT.REL,MACRO.SHR,LINK.SHR,CREF.SHR,LNK???.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR
;
;
;****************************************************************
;OMOUNT CONDITIONAL ASSEMBLY SWITCHES WITH THEIR DEFAULT SETTINGS
;
;IFNDEF PURESW,<PURESW==1> ;NON-ZERO MEANS REENTRANT SHARABLE
;IFNDEF NOTISW,<NOTISW==1> ;NON-ZERO MEANS NO DATE/TIME TYPEOUT
;IFNDEF DELYSW,<DELYSW==1> ;NON-ZERO MEANS INCLUDE DELAY AS PART OF
; ;DATE-TIME TYPEOUT. NOTISW MUST BE ZERO
; ;FOR THIS TO MATTER.
;IFNDEF UNLOSW,<UNLOSW==1> ;NON-ZERO MEANS REWIND AND UNLOAD DTAS
;IFNDEF DBUGSW,<DBUGSW==0> ;NON-ZERO MEANS ASSEMBLE FOR DEBUGGING (SEE BELOW)
;IFNDEF R12SW,<R12SW==1> ;NON-ZERO MEANS OMOUNT MUST RUN AS A 1,2 JOB
; ; THIS SWITCH SHOULD =0 ONLY FOR SPECIAL DEBUGGING
;IFNDEF SLPSW,<SLPSW==5> ;5 = MINUTES TO WAIT FOR OPERATOR RESPONSE BEFORE
; ; RETYPING THE OMOUNT REQUEST
;IFNDEF RPTSIZ,<RPTSIZ==100> ;SIZE OF BLOCK TO SAVE TTY OUTPUT IN FOR /WHAT SWITCH
;
;IFNDEF IGNSTS, <IGNSTS==1> ;NON-ZERO GIVES AN OPTION TO Opr TO
; ;IGNORE WRITE LOCK/WRITE ENABLE DISCRE-
; ;PENCY FOR DECtapes AND MAGTAPES
;
;IFNDEF IGNWE, <IGNWE==0> ;IF NON-ZERO, OPR CAN'T IGNORE DIS-
; ; CREPENCY IN WRITE-STATUS IF USER REQUESTED
; ; WRITE-ENABLE
;IFNDEF DRIREQ, <DRIREQ==0> ;IF NON-ZERO, OPR MUST USE REQUEST
; ;DRIVE OF USER
;
;IFNDEF FILESW, <FILESW==1> ;IF NON-ZERO, INCLUDE FILE COMMAND CODE
;
;IFNDEF OFFLIN,<OFFLIN==1> ;NON-ZERO ADDS CAPILITY TO REMOVE OFF-LINE UNIT
;
;IFNDEF MTA0SW, <MTA0SW==0> ;MTA0 IS A SEVEN-TRACK DRIVE
;IFNDEF DIAGSW, <DIAGSW==1> ;PUT FILE CMD DIAGNOSTICS IN .DIR FILE INSTEAD OF ON TTY
;IFNDEF FTFACT, <FTFACT==1> ;ADDS DEC-STYLE (FACT) ACCOUNTING
;IFNDEF JIFSEC, <JIFSEC==^D60>
;IFNDEF DEFERM,<DEFERM==24> ;MAX. NO. OF HOURS TO ALLOW FOR DEFER
; DEFERT==DEFERM*^D60 ;CONVERT TO MINUTES FOR DEFERQ RTE.
;
;IFNDEF RIDSW, <RIDSW==0> ;NON-ZERO ADDS OPERATOR ABILTIY TO SET
; ;REELID DURING DRIVE SELECTION
; ;VIA THE /REELID:XXXXXX COMMANDS,
; ;WHICH CAN BE USED IN RESPONSE TO THE DRIVE
; ;SELECTION MESSAGE ITSELF AND A PROCEED?
; ;THAT IS ISSUED IF THE REELID HAS NOT BEEN
; ;PROVIDED. ADDITIONALLY, THE /REELID IS
; ;TYPED IN THE NORMAL MOUNT MESSAGE; THE
; ;USER'S VID WILL BE SUBSTITUTED FOR A
; ;MISSING REELID. THE SWITCH IS FURTHER
; ;REFINED BY:
; ; IF +, OPER *MUST* SUPPLY A REELID
; ; FOR MAGTAPES WHEN THE USER DIDN'T
; ; IF -, OPER IS GIVEN A CHANCE TO SUPPLY
; ; A REELID FOR MAGTAPES WHEN THE
; ; USER DIDN'T
;
;TO CHANGE ANY CONDITIONAL ASSEMBLY SWITCH:
;
; .R MACRO
; *OMOUNT,OMOUNT/C_TTY:,DSK:OMOUNT
; SWIT1=N ;WHERE SWIT1 EQUAL ANY/ALL OF THE ABOVE
; ; AND N EUQALS THE DESIRED SETTING
; ^Z
; ^Z
;
; .LOAD OMOUNT
; .SSAVE OMOUNT
;
;**********************************************************