.; TALK.CMD  -  01DEC82
.;
.ENABLE SUBSTITUTION
.SETS	UIC	"'<UIC>'"
.SETF	MADEPR
.SETF	DCL
.IFDF  <CLI>  .IF  <CLI>  EQ  "DCL"  .SETT DCL
.IFT	DCL	SET MCR
.;
; 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
.OTHER:
.ASKS FILE Enter module to assemble (<CR> to end, "ALL" for all)
.IF FILE = "" .GOTO ENDASS
.IF FILE = "ALL" .GOTO ASSALL
.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 TALKPRTMP.MAC;*/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'-(D,C)
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=65
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:
.IFT	DCL	SET /DCL=TI:
.STOP
;
.ASSMOD:
.SETS OUTFIL "'FILE'"+"'SUF'"
.SETS LST ""
.IFT SPQ .SETS LST ",'OUTFIL'/-SP"
.IFT SPX .SETS LST LST+"/CR"
.SETF	RSXMC
.IF	FILE  EQ  "CNPRT"  .SETT  RSXMC
.IF	FILE  EQ  "cnprt"  .SETT  RSXMC
.IFT	RSXMC	PIP TALKMCTMP.MAC=LB:[11,10]RSXMC.MAC,SY:'<UIC>'TALKPRTMP.MAC
.SETS	PREFIL	"TALKPRTMP/PA:1"
.IF	FILE  EQ  "TALK"  .SETS  PREFIL  "TALKPRTMP"
.IF	FILE  EQ  "talk"  .SETS  PREFIL  "TALKPRTMP"
.IFT	RSXMC	.SETS  PREFIL  "TALKMCTMP/PA:1"
.IFT	RSXMC	.GOTO  MACIT
.IFF	MADEPR	PIP TALKPRTMP.MAC=TALKSYS'SUF'.MAC,TALKPRE.MAC
.SETT	MADEPR
.MACIT:
MAC 'OUTFIL''LST'=LB:[1,1]EXEMC/ML,SY:'<UIC>''PREFIL','FILE'
.IFT	RSXMC	PIP TALKMCTMP.MAC;*/DE
.RETURN

