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

;
;		       COPYRIGHT (C) 1984, 1985 BY
;	    DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
;
;   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED
;   AND  COPIED  ONLY  IN  ACCORDANCE  WITH  THE  TERMS OF SUCH
;   LICENSE AND WITH  THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT
;   NOTICE.   THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT
;   BE PROVIDED  OR  OTHERWISE	MADE  AVAILABLE  TO  ANY  OTHER
;   PERSON.   NO  TITLE  TO  AND  OWNERSHIP  OF THE SOFTWARE IS
;   HEREBY TRANSFERRED.
;
;   THE INFORMATION IN	THIS  SOFTWARE	IS  SUBJECT  TO  CHANGE
;   WITHOUT  NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;   BY DIGITAL EQUIPMENT CORPORATION.
;
;   DIGITAL  ASSUMES  NO  RESPONSIBILITY   FOR	 THE   USE   OR
;   RELIABILITY  OF  ITS  SOFTWARE  ON	EQUIPMENT  WHICH IS NOT
;   SUPPLIED BY DIGITAL.
;
;[PULSAR.CTL]
;
; Modified for GALAXY-10 AUTOPATCH by Carl T. Kunkel/20-May-83
;
; This control file will build the GALAXY disk/tape processor for a
; DECsystem-10.
;
; Sources:	PLRDSK.MAC	PLRCAT.MAC	PLRDSP.MAC	PLRINI.MAC
;		PLRLBP.MAC	PLRMAC.MAC	PLROPR.MAC	PLRT10.MAC
;		PLRTAP.MAC	PULSAR.MAC
;
; Input:	CHREQV.MAC	GLXLIB.REL	GLXMAC.UNV	QSRMAC.UNV
;		ORNMAC.UNV	UFDPRM.UNV	UFDSET.REL	UUOSYM.UNV
;
; Output:	PULSAR.EXE

BEGIN::

.R PEPB				;Initialize AUTOPATCH
*INITIALIZE GALAXY-10-V702
*EX

.PATH REL:=ASL:

.PATH ASL:/SEARCH

.COMPILE/COMPILE ASL:PLRMAC.MAC

PMAC1::
.CHKPNT PMAC1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PCAT0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PCAT0::

.COMPILE/COMPILE ASL:PLRCAT.MAC

PCAT1::
.CHKPNT PCAT1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PDSK0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PDSK0::

.COMPILE/COMPILE ASL:PLRDSK.MAC

PDSK1::
.CHKPNT PDSK1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PDSP0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PDSP0::

.COMPILE/COMPILE ASL:PLRDSP.MAC

PDSP1::
.CHKPNT PDSP1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PINI0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PINI0::

.COMPILE/COMPILE ASL:PLRINI.MAC

PINI1::
.CHKPNT PINI1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PLBP0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PLBP0::

.COMPILE/COMPILE ASL:PLRLBP.MAC

PLBP1::
.CHKPNT PLBP1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO POPR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

POPR0::

.COMPILE/COMPILE ASL:PLROPR.MAC

POPR1::
.CHKPNT POPR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PT100	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PT100::

.COMPILE/COMPILE ASL:PLRT10.MAC

PT101::
.CHKPNT PT101

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PTAP0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PTAP0::

.COMPILE/COMPILE ASL:PLRTAP.MAC

PTAP1::
.CHKPNT PTAP1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PLSR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PLSR0::

.COMPILE/COMPILE ASL:PULSAR.MAC

PLSR1::
.CHKPNT PLSR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO PLNK0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

PLNK0::


.RUN LINK
*PAT:PULSAR/SAVE = /LOCALS /SYMSEG:LOW /SEGMENT:LOW -
*ASL:PLRCAT, ASL:PLRDSK, ASL:PLRDSP, ASL:PLRINI, -
*ASL:PLRLBP, ASL:PLROPR, ASL:PLRT10, ASL:PLRTAP, -
*ASL:PULSAR, ASL:UFDSET -
*/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 GAL702 = /MODIFY /DEPEND:-1
;
%FIN::
;[End of PULSAR.CTL]