.; TALK.CMD - 2DEC81
.ENABLE SUBSTITUTION
.SETS	UIC	"'<UIC>'"
; ASSEMBLE AND BUILD THE TALK PROGRAM - '<DATE>' - '<TIME>'
;
;IF YOU ARE GENERATING VERSIONS FOR DIFFERENT HOSTS YOU MAY
;WANT TO USE A SUFFIX
;
.ASKS [0:2] SUF ENTER 2 CHARACTER SUFFIX FOR OUTPUT FILES IF DESIRED
.SETS SPL  ""
.ASK SPQ DO YOU WANT TO CREATE LISTINGS
.SETF SPX
.IFT SPQ .ASK SPX DO YOU WANT CROSS REFERENCE LISTINGS
.ASK LNK WILL YOU WANT TO TASKBUILD THE PROGRAM
.ASK ASS DO YOU WANT TO ASSEMBLE ANY MODULES
.IFF ASS .GOTO LINK
PIP TALKPRE.TMP=TALKSYS'SUF'.MAC,TALKPRE.MAC
.OTHER:
.ASKS FILE ENTER MODULE TO ASSEMBLE (<CR> TO END, "ALL" FOR ALL)
.IF FILE = "" .GOTO ENDASS
.IF FILE = "ALL" .GOTO ASSALL
.GOSUB ASSMOD
.GOTO OTHER
.ASSALL:
.SETS FILE "TALK"
.GOSUB ASSMOD
.SETS FILE "BUILD"
.GOSUB ASSMOD
.SETS FILE "CNPRT"
.GOSUB ASSMOD
.SETS FILE "CONTRL"
.GOSUB ASSMOD
.SETS FILE "CMDIN"
.GOSUB ASSMOD
.SETS FILE "MENU"
.GOSUB ASSMOD
.SETS FILE "RDIHLP"
.GOSUB ASSMOD
.ENDASS:
PIP TALKPRE.TMP;*/DE
.LINK:
.IFF LNK .GOTO FINI
.SETS SPL ""
.IFT SPQ .SETS SPL ",TALK'SUF'/-SP"
.IFT SPX  .SETS  SPL  SPL+"/CR"
;
.OPEN TALK.ODL
.ENABLE DATA
	.ROOT	TALK'SUF'-LB:'<SYSUIC>'RSX11M.STB-*(A,B)
A:	.FCTR	CNPRT'SUF'
B:	.FCTR	CONTRL'SUF'-(C,D)
C:	.FCTR	CMDIN'SUF'-(E,F)
D:	.FCTR	BUILD'SUF'
E:	.FCTR	MENU'SUF'
F:	.FCTR	RDIHLP'SUF'
	.END
.DISABLE DATA
.CLOSE
.IF SUF = "" .SETS TSK "TLK"
.IF SUF <> "" .SETS TSK "T"+"'SUF'"
.OPEN TALK.TMP
.ENABLE DATA
TALK'SUF'/PR/-CP/-FP'SPL'=TALK/MP
TASK=...'TSK'
PRI=95
STACK=256
UNITS=5
ASG=SY:1:2,TI:4
ACTFIL=2
FMTBUF=0
GBLDEF=PAR$TY:200
//
.DISABLE DATA
.CLOSE
; TALK TASK BUILD BEGINNING  -  '<DATE>'  '<TIME>'
TKB @TALK.TMP
; TALK TASK BUILD FINISHED   -  '<DATE>'  '<TIME>'
PIP TALK.TMP;*/DE,TALK.ODL;*
.FINI:
.STOP
;
.ASSMOD:
.SETS OUTFIL "'FILE'"+"'SUF'"
.SETS LST ""
.IFT SPQ .SETS LST ",'OUTFIL'/-SP"
.IFT SPX .SETS LST LST+"/CR"
MAC 'OUTFIL''LST'=LB:[1,1]EXEMC/ML,SY:'<UIC>'TALKPRE.TMP,'FILE'.MAC
.RETURN

