Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/nvt/11host.cmd
There is 1 other file named 11host.cmd in the archive. Click here to see a list.
.ENABLE SUBSTITUTION
.SETS OLDUIC "'<UIC>'"
SET /UIC=[133,24]
.SETS SPL "/CR"
.ASK Q SPOOL LISTING
.IFF Q .SETS SPL "'SPL'/-SP"
.MAC:.ASKS MOD WHAT MODULE
.IF MOD = "" .GOTO TKB
.IF MOD = "*" .GOTO ALL
MAC 'MOD',[133,34]'MOD''SPL'=[1,1]NETLIB/ML,[133,10]'MOD'
.GOTO MAC
.ALL:MAC HOST,[133,34]HOST'SPL'=[1,1]NETLIB/ML,[133,10]HOST
.TKB:.ASK Q BUILD HOST
.IFF Q .GOTO END
.SETS SPL ""
.ASK Q SPOOL MAP
.IFF Q .SETS SPL "'SPL'/-SP"
.SETS SW "/PR:0/-CP"
.ASK Q DEBUG
.IFT Q .SETS SW "'SW'/DA"
SET /UIC=[1,24]
.OPEN HOSTBLD.CMD
.ENABLE DATA
[1,54]HOST'SW',[1,34]HOST'SPL'=[133,24]HOST
/
TASK=...HOS
UNITS=3
ASG=TI:3
STACK=64
/
.DISABLE DATA
.CLOSE HOSTBLD.CMD
TKB @HOSTBLD
PIP HOSTBLD.CMD;0/DE
.END:.IFACT CRF... .WAIT CRF...
SET /UIC='OLDUIC'