Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
nopag0.ctl
There are 3 other files named nopag0.ctl in the archive. Click here to see a list.
;CONTROL FILE
;TO MAKE NOPAG0.EXE FROM NOPAG0.MAC, VERSION X(Y), 11-MAR-77.
;SUBMIT WITH COMMAND .SUBMIT NOPAG0/RESTART:1
;
START::
.CHKPNT START ;
;
;REMOVE UNNECESSARY FILES LEFT FROM PREVIOUS RUNS OF THIS .CTL FILE.
.DELETE NOPAG0.ERR,NOPAG0.EXE,NOPAG0.MAP,NOPAG0.REL
.IF (ERROR) ;OKAY, THOSE FILES MAY NOT BE THERE.
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;DEC: PIP.EXE
; DIRECT.EXE
; COMPIL.EXE
; MACRO.EXE
; LNK???.EXE
; LINK.EXE
; NOPAG0.MAC [SELF]
;
;OUTPUT FILE:
; NOPAG0.EXE
;
;OUTPUT LISTINGS:
; NOPAG0.MAP
; NOPAG0.LST [NOPAG0 LISTING]
; NOPAG0.LOG
;
;FILES TO BE SHIPPED
; NOPAG0.CTL
; NOPAG0.DOC
; NOPAG0.EXE
; NOPAG0.MAC
; NOPAG0.RND
;
;
;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,HELPER.REL,CREF.EXE
;
;
COMPL::
.CHKPNT COMPL ;
;
;
;GET FIELD IMAGE SOFTWARE.
.ASSIGN DEC SYS
;
;
;MAKE A RECORD OF WHAT IS BEING USED.
.SET WATCH VERSION
.IF (ERROR) ;OKAY WE MAY BE ON A KA-10.
;
.ERROR % ;FLAG "% ERRORS".
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND NOPAG0 FILE.
.R MACRO
*NOPAG0,NOPAG0/C=NOPAG0
.IF (ERROR) .GOTO ERROR:
;
.R LINK
*NOPAG0/MAP = NOPAG0
.IF (ERROR) .GOTO ERROR:
.NSSAVE DSK:NOPAG0
.GET DSK:NOPAG0
.VERSION
.IF (ERROR) .E 137
.ERROR
;
;NOW TRY IT
.GET SYS:DDT
.OSAVE DDT
.RUN NOPAG0
*DSK:DDT1=DSK:DDT
.R DIRECT
*TTY:/CHECKSUM=DSK:NOPAG0.EXE
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR.
.ASSIGN DSK:LPT ;PUT ".LST" FILE ON DISK.
.R CREF
*NOPAG0
.PLEASE NOPAG0 SUCCESSFUL. ;NOTIFY THE OPERATOR.
.DEASSIGN ;DEASSIGN ALL LOGICAL NAMES.
;
;REMOVE TEMPORARY FILES.
.DELETE NOPAG0.REL,DDT.SAV,DDT1.SAV
.KJOB/F
;
;
;IF THIS JOB FAILED, MAKE A ".ERR" FILE ON THE DISK TO LET YOU
; KNOW THAT IT FAILED.
ERROR::
%ERR::
%FIN::
;
.R TECO
*EWNOPAG0.ERREX
.PLEASE NOPAG0 FAILED. ;NOTIFY THE OPERATOR.
;END FILE [NOPAG0.CTL]