;
;  WHO.CMD
;
.ENABLE SUBSTITUTION
; Chances are, you can build WHO directly from the object library
; included with the distribution. However, if the target system
; does not support the STOP directive (STSE$) for V3.2, or if the
; target system is V3.1, you will have to reassemble the sources.
;
.ASK ASM Do you want to assemble WHO
.IFF ASM .GOTO 100
;
; This command file assumes the following files exist:
;
;    SY:'<UIC>'WHO.MAC
;    SY:'<UIC>'WHOCSI.MAC
;    SY:'<UIC>'WHOLOG.MAC
;    SY:'<UIC>'WHOFND.MAC
;    SY:'<UIC>'WHOOUT.MAC
;    SY:'<UIC>'USERMAC.MLB     (A very necessary MACRO library)
;    LB:[1,1]EXEMC.MLB
;    LB:[200,200]RSXMC.MAC
;
.ASK L Are all these files present
.IFT L .GOTO 10
.ASK L Do you want to pause to collect these files
.IFF L .GOTO 9999
.PAUSE
.10:
;
.ASK STP Does your system support the STOP (STSE$) directive
.SETS STPF ""
.IFF STP .GOTO 20
.OPEN WHOPRE.MAC
.DATA P.STP = 0                ; USE STOP DIRECTIVE
.CLOSE
.SETS STPF "WHOPRE,"
.20:
.OPEN WHOASM.CMD
.ENABLE DATA
WHO,WHO/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'USERMAC/ML,LB:[200,200]RSXMC/PA:1,-
SY:'<UIC>''STPF'WHO
WHOCSI,WHOCSI/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'USERMAC/ML,-
LB:[200,200]RSXMC/PA:1,SY:'<UIC>''STPF'WHOCSI
WHOLOG,WHOLOG/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'USERMAC/ML,-
LB:[200,200]RSXMC/PA:1,SY:'<UIC>''STPF'WHOLOG
WHOFND,WHOFND/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'USERMAC/ML,-
LB:[200,200]RSXMC/PA:1,SY:'<UIC>''STPF'WHOFND
WHOOUT,WHOOUT/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'USERMAC/ML,-
LB:[200,200]RSXMC/PA:1,SY:'<UIC>''STPF'WHOOUT
.DISABLE DATA
.CLOSE
;
pip who.obj;*/de,whocsi.obj;*,wholog.obj;*,whofnd.obj;*,whoout.obj;*
.WAIT PIP
;
mac @whoasm
.WAIT MAC
;
pip who.obs=who.obj,whocsi.obj,wholog.obj,whofnd.obj,whoout.obj
.WAIT PIP
.XQT pip who.obj;*/de,whocsi.obj;*,wholog.obj;*,whofnd.obj;*,whoout.obj;*
lbr who/cr:30.:128.:64.=who.obs
.WAIT LBR
pip who.obs;*/de
.100:
;
; To task build WHO, this command file assumes the following files
; are present:
;
.IFF ASM ;     SY:'<UIC>'WHO.OLB
;     LB:[1,1]EXELIB.OLB
;     LB:[1,24]MCR.OLB         (Needed for account information)
;     LB:'<SYSUIC>'RSX11M.STB
;
.ASK L Are all these files present
.IFT L .GOTO 110