Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99m-bb - batcon.ctl
There are 36 other files named batcon.ctl in the archive. Click here to see a list.
;[BATCON.CTL]
;
; This control file will build the GALAXY batch controller for a
; DECsystem-10. The following files are required for a TOPS-10 BATCON.
;
; Sources:	BATCON.MAC	BATCTL.MAC	BATLOG.MAC	BATMAC.MAC
;		BATPTY.MAC	BATUSR.MAC
;
; Input:	GLXLIB.REL	GLXMAC.UNV	MNTMAC.UNV	MNTPAR.REL
;		OPRPAR.REL	ORNMAC.UNV	QSRMAC.UNV	UUOSYM.UNV
;
; Output:	BATCON.EXE

BEGIN::

.R PEPB				;Initialize AUTOPATCH
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX

.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

.COMPILE/COMPILE ASL:BATMAC.MAC

BMAC1::
.CHKPNT BMAC1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BCON0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BCON0::
.ERROR

.COMPILE/COMPILE ASL:BATCON.MAC

BCON1::
.CHKPNT BCON1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BCTL0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BCTL0::
.ERROR

.COMPILE/COMPILE ASL:BATCTL.MAC

BCTL1::
.CHKPNT BCTL1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BLOG0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BLOG0::
.ERROR

.COMPILE/COMPILE ASL:BATLOG.MAC

BLOG1::
.CHKPNT BLOG1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BPTY0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BPTY0::
.ERROR

.COMPILE/COMPILE ASL:BATPTY.MAC

BPTY1::
.CHKPNT BPTY1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BUSR0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BUSR0::
.ERROR

.COMPILE/COMPILE ASL:BATUSR.MAC

BUSR1::
.CHKPNT BUSR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO BLNK0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

BLNK0::
.ERROR


.RUN LINK
*PAT:BATCON/SAVE = /LOCALS /SYMSEG:LOW /SEGMENT:LOW -
*ASL:BATCON, ASL:BATCTL, ASL:BATLOG, ASL:BATPTY, ASL:BATUSR -
*/GO

.PLEASE	AUTOPATCH BATCON Assembly Successful
.GOTO END

%CERR:: .GOTO ERROR
%ERR::  .GOTO ERROR
%TERR:: .GOTO ERROR

ERROR:: .PLEASE Error during AUTOPATCH BATCON assembly
;
.COPY FAILUR.GAL=TTY:		;Set ERROR flag file on.
*BATCON
=^Z
;
END::
;
.SUBMIT GAL703 = /MODIFY /DEPEND:-1
;
%FIN::
;[End of BATCON.CTL]