Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50516/basic.ctl
There is 1 other file named basic.ctl in the archive. Click here to see a list.
.ERROR %
.DIR REL:HELPER.REL,REL:QUEUER.REL
.IF (ERROR) .GOTO OHELL
.ERROR
.COMP S
.COMP @BASICC
.IF (ERROR) .GOTO OHELL
.ERROR %     ;CHECK WHICH VERSION TO CREATE
.DIR DDT.VER
.IF (NOERROR) .GOTO DDTVER
.LOA @BASERR
.IF (ERROR)
.SSA BASERR
.LOA @BASXCT
.IF (ERROR)
.SSA BASXCT
.LOA @BASCOM
.IF (ERROR)
.SSA BASCOM
.LOA @BASDDT
.IF (ERROR)
.SSA BASDDT
.IF (ERROR)
.LOA @BASCRF
.IF (ERROR)
.SSA BASCRF
.LOA @BASEDT
.IF (ERROR)
.SSA BASIC
.GOTO FINIT
DDTVER::
.R LINK
*@BASERR.DEB
.IF (ERROR)
.D 0 0 134
.SAVE BASERR
.R LINK
*@BASCOM.DEB
.IF (ERROR)
.D 0 0 134
.SAVE BASCOM
.R LINK
*@BASXCT.DEB
.IF (ERROR)
.D 0 0 134
.SAVE BASXCT
.R LINK
*@BASDDT.DEB
.IF (ERROR)
.D 0 0 134
.SAVE BASDDT
.R LINK
@BASCRF.DEB
.IF (ERROR)
.D 0 0 134
.SAVE BASCRF
.R LINK
*@BASEDT.DEB
.IF (ERROR)
.E 120
.D 0 0 134
.SAVE BASIC
.GOTO FINIT
%ERR::
%CERR::
OHELL::
FINIT::