Trailing-Edge
-
PDP-10 Archives
-
de-10-omona-v-mc9
-
omount.ctl
There are 2 other files named omount.ctl in the archive. Click here to see a list.
;
;V26B(110) TO MAKE OMOUNT.EXE FROM OMOUNT.MAC 21 SEP 78
;SUBMIT WITH COMMAND .SUBMIT OMOUNT/RESTART:1
;
START:: ;
.CHKPNT START
;
;REMOVE UNNECESSARY FILES LEFT FROM PREVIOUS RUNS OF THIS .CTL FILE.
.DELETE OMOUNT.REL,OMOUNT.EXE
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;DEC: PIP.EXE
; DIRECT.EXE
; COMPILE.EXE
; MACRO.EXE
; LNK???.EXE
; LINK.EXE
; CREF.EXE
;
;SELF: OMOUNT.MAC
;
;OUTPUT FILE:
; OMOUNT.EXE
;
;OUTPUT LISTINGS:
; OMOUNT.LST
; OMOUNT.LOG
;
;FILES TO BE SHIPPED:
; OMOUNT.CTL
; OMOUNT.EXE
; OMOUNT.HLP
; OMOUNT.MAC
; OMT???.DOC
;
;
;MAKE A DIRECTORY OF REQUIRED FILES (LATEST RELEASED VERSIONS).
.R DIRECT
*TTY:/CHECKSUM=DEC:PIP.EXE,DIRECT.EXE,COMPIL.EXE,MACRO.EXE,LNK???.EXE
*TTY:/CHECKSUM=DEC:LINK.EXE,CREF.EXE
;
;
COMPL:: ;
.CHKPNT COMPL
;
;
;GET FIELD IMAGE SOFTWARE.
.ASSIGN DEC SYS
.ASSIGN DEC REL
.ASSIGN DEC UNV
;
;MAKE A RECORD OF WHAT IS BEING USED.
.SET WATCH VERSION
.IF (ERROR) ;OKAY, WE MUST BE ON A KA10.
;
;
.ERROR % ;FLAG "% ERRORS"
;COMPILE, LOAD, AND SAVE; PRODUCING CREF FILE.
.R MACRO
*OMOUNT,OMOUNT/C=OMOUNT
.IF (ERROR) .GOTO ERROR:
;
.R LINK
*OMOUNT/GO
.IF (ERROR) .GOTO ERROR:
.SSAVE DSK:OMOUNT
.VERSION
.IF (ERROR) .E 137
.ERROR
;
;TRY IT JUST TO MAKE SURE IT WORKS.
.RUN DSK:OMOUNT
.IF (ERROR)
.R DIRECT
*TTY:/CHECKSUM=DSK:OMOUNT.EXE
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR.
.ASSIGN DSK:LPT ;PUT ".LST" FILE ON DISK.
.R CREF
*OMOUNT
.PLEASE OMOUNT SUCCESSFUL. ;NOTIFY THE OPERATOR.
.DEASSIGN ;DEASSIGN ALL LOGICAL NAMES.
;
;REMOVE TEMPORARY FILES.
.DELETE FACTOR.REL,OMOUNT.REL
.KJOB/F/Z:0
;
;
;IF THIS JOB FAILED, MAKE A ".ERR" FILE ON THE DISK TO LET YOU
; KNOW THAT IT FAILED.
ERROR::
%ERR::
%FIN::
;
.R TECO
*EWOMOUNT.ERREX
.PLEASE OMOUNT FAILED. ;NOTIFY THE OPERATOR.
;END FILE [OMOUNT.CTL]