1
0
mirror of https://github.com/PDP-10/stacken.git synced 2026-02-15 20:26:09 +00:00
Files
PDP-10.stacken/files/stacken-tape-backup/dskb:10_7/mon/ctls/mongen.ctl
Lars Brinkhoff 6e18f5ebef Extract files from tape images.
Some tapes could not be extracted.
2021-01-29 10:47:33 +01:00

19 lines
385 B
Plaintext

.DECLARE@BUILDS.DCL
.PA@BUILDS.PTH
.PA=BASE:
.DELETE BASE:MONGEN.AOK
.IF (ERROR)
.DELETE BASE:MONGEN.FUB
.IF (ERROR)
.LOAD/COMPIL/CREF MONGEN/SAVE
.IF (ERROR) .GOTO BADCOM
.CREF BASE:=MONGEN
.R FILCOM
*BASE:.SCM=MON:MONGEN.MAC,BASE:
.COPY BASE:MONGEN.AOK=NUL:AOK.AOK
.PRINT/OP:J BASE:MONGEN.LST,MONGEN.SCM
.GOTO DONE
BADCOM::
.COPY BASE:MONGEN.FUB=NUL:FUB.FUB
DONE::