Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;[PULSAR.CTL]
;
; This control file will build the GALAXY disk/tape processor for a
; DECsystem-10.
;
; Sources:	PDRQUO.MAC	PLRDSK.MAC	PLRDSP.MAC	PLRDTA.MAC
;		PLRINI.MAC     	PLRLBP.MAC	PLRMAC.MAC	PLROPR.MAC
;		PLRT10.MAC     	PLRTAP.MAC	PULSAR.MAC	QUOPRM.MAC
;		QUOTAB.MAC
;
; Input:	GLXLIB.REL	GLXMAC.UNV	QSRMAC.UNV	ORNMAC.UNV
;		UFDPRM.UNV	UFDSET.REL	UUOSYM.UNV	ACTLIB.REL
;
; Output:	PULSAR.EXE

BEGIN::

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

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

.COMPILE/COMPILE ASL:PLRMAC.MAC

PMAC1::
.CHKPNT PMAC1

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

PPRM0::
.ERROR

.COMPILE/COMPILE ASL:QUOPRM.MAC

PPRM1::
.CHKPNT PPRM1

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

PDSK0::
.ERROR

.COMPILE/COMPILE ASL:PLRDSK.MAC

PDSK1::
.CHKPNT PDSK1

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

PDSP0::
.ERROR

.COMPILE/COMPILE ASL:PLRDSP.MAC

PDSP1::
.CHKPNT PDSP1

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

PDTA0::
.ERROR

.COMPILE/COMPILE ASL:PLRDTA.MAC

PDTA1::
.CHKPNT PDTA1

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

PINI0::
.ERROR

.COMPILE/COMPILE ASL:PLRINI.MAC

PINI1::
.CHKPNT PINI1

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

PLBP0::
.ERROR

.COMPILE/COMPILE ASL:PLRLBP.MAC

PLBP1::
.CHKPNT PLBP1

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

POPR0::
.ERROR

.COMPILE/COMPILE ASL:PLROPR.MAC

POPR1::
.CHKPNT POPR1

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

PQUO0::
.ERROR

.COMPILE/COMPILE ASL:PLRQUO.MAC

PQUO1::
.CHKPNT PQUO1

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

PT100::
.ERROR

.COMPILE/COMPILE ASL:PLRT10.MAC

PT101::
.CHKPNT PT101

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

PTAP0::
.ERROR

.COMPILE/COMPILE ASL:PLRTAP.MAC

PTAP1::
.CHKPNT PTAP1

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

PLSR0::
.ERROR

.COMPILE/COMPILE ASL:PULSAR.MAC

PLSR1::
.CHKPNT PLSR1

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

PTAB0::
.ERROR

.COMPILE/COMPILE ASL:QUOTAB.MAC

PTAB1::
.CHKPNT PTAB1

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

PLNK0::
.ERROR


.RUN LINK
*PAT:PULSAR/SAVE = /LOCALS /SYMSEG:LOW /SEGMENT:LOW -
*ASL:PLRDSK, ASL:PLRDSP, ASL:PLRDTA, ASL:PLRINI, ASL:PLRLBP, -
*ASL:PLROPR, ASL:PLRQUO, ASL:PLRT10, ASL:PLRTAP, ASL:PULSAR, -
*ASL:UFDSET, ACTLIB/SEARCH -
*/GO

.PLEASE	AUTOPATCH PULSAR Assembly Successful
.GOTO END

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

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