Trailing-Edge
-
PDP-10 Archives
-
bb-bt99q-bb
-
pulsar.ctl
There are 13 other files named pulsar.ctl in the archive. Click here to see a list.
;[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]