mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-15 12:16:07 +00:00
22 lines
378 B
Plaintext
22 lines
378 B
Plaintext
.DECLARE@BUILDS.DCL
|
|
.PA@BUILDS.PTH
|
|
.DELETE BASE:'A.AOK
|
|
.IF (ERROR)
|
|
.DELETE BASE:'A.FUB
|
|
.IF (ERROR)
|
|
.PA='B:
|
|
.ERROR %
|
|
.COMPIL/COMPIL/CREF 'C
|
|
.IF (ERROR) .GOTO BADCOM
|
|
.ERROR ?
|
|
.COPY BASE:'A.AOK=NUL:AOK.AOK
|
|
.CREF BASE:='A
|
|
.R FILCOM
|
|
*BASE:.SCM=MON:'A.MAC,BASE:/O/T
|
|
.PRINT/OP:J BASE:'A.LST,'A.SCM
|
|
.GOTO DONE
|
|
BADCOM::
|
|
.ERROR ?
|
|
.COPY BASE:'A.FUB=NUL:FUB.FUB
|
|
DONE::
|