Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/subrtn.ctl
There are no other files named subrtn.ctl in the archive.
!****	SUBRTN.CTL	23-MAR-78
!*****	ASSEMBLE PROGRAM
MAC::@R MACRO
*SUBRTN@
@IF (ERROR) @GOTO BLO
LNK::@RUN DLINK
*SUBRTN.SAV/SAV=SUBRTN/NOSYM/NOINIT/GO
@IF (ERROR) @GOTO BLO
CRF::@R CREF
*DSK:SUBRTN.LST=SUBRTN
@IF (ERROR) @GOTO BLO
DC1::@RUN DECDOC.SAV
*SUBRTN
@IF (ERROR) @GOTO BLO
MAC1::@R MACRO
*SUBUSR@
@IF (ERROR) @GOTO BLO
LNK1::@RUN DLINK
*SUBUSR.SAV/SAV=SUBUSR/NOSYM/NOINIT/GO
@IF (ERROR) @GOTO BLO
CRF1::@R CREF
*DSK:SUBUSR.LST=SUBUSR
@IF (ERROR) @GOTO BLO
DC11::@RUN DECDOC.SAV
*SUBUSR
@IF (ERROR) @GOTO BLO
DC2::@RUN DECDOC.SAV
*SUBRTN/S=SUBRTN.TXT,SUBRTN.HST,SUBRTN.DOC,SUBUSR.DOC,SUBRTN.LST,SUBUSR.LST
@IF (ERROR) @GOTO BLO
CNV::@RUN CONVRT.SAV
*SUBRTN
CNV1::@RUN CONVRT.SAV
*SUBUSR
@IF (ERROR) @GOTO BLO
DEL::@DEL SUBRTN.LST,SUBUSR.LST,SUBRTN.DOC,SUBUSR.DOC,SUBRTN.REL,SUBUSR.REL
@IF (ERROR) @GOTO BLO
@GOTO LOG
!
BLO::@R PIP
*SUBRTN.BLO=NUL:FOO
LOG::