	.ENABLE GLOBAL
	.ENABLE QUIET
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.IFNDF $OTUIC .SETS $OTUIC <UIC>
	.IFNDF $INUIC .SETS $INUIC <UIC>
	.IFNDF $OTDEV .SETS $OTDEV "SY:"
	.SETS LI ""
	.SETS MP ""
	.IFNDF $MCLI .ASK $MCLI Does your system have multiple CLI support
	.IFF $MCLI .SETS TST ".IFDF"
	.IFF $MCLI .SETS JOIN "!"
	.IFT $MCLI .SETS TST ".IFNDF"
	.IFT $MCLI .SETS JOIN "&"
	.IFT $MCLI .SETS ANS "NOT"
	.IFF $MCLI .SETS ANS ""
.DISABLE QUIET
.IFNDF $SYSAC .ASK $SYSAC Have you incorporated the system accounting data
.IFF $SYSAC ; bases, TASKLOG will not work unless the slp changes to SYSCM,
.IFF $SYSAC ; TDSCH,SYSXT, and DATA bases for TT:, VT: and CO: have been made.
.IFF $SYSAC ; Please make these changes (SLP files provided), gen a system
.IFF $SYSAC ; and try again.
.IFF $SYSAC /
.ENABLE QUIET
	.IFNDF $TICS .ASK CLK Do you have a programable clock
	.IFDF $TICS .GOTO 5
	.IFT CLK .SETN $TICS 144
	.IFF CLK .SETN $TICS 74
.5:	.SETN TICS $TICS+0.
	.DISABLE QUIET
	.IFDF CLK ; Your clock is assumed to "TIC" 'TICS' times/sec
	.ENABLE QUIET
.IFNDF $RESLB .ASK $RESLB Do you wish to build tasklog with an FCS resident library
.10:	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.SETF $TKB
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM PIP '<UIC>'TSKLOG.OBJ;*/DE/NM
.OPEN CLITST.MAC;1
.ENABLE DATA
	'TST'	M$$CLI'JOIN'A$$CLI
	.ERROR  ; YOUR RSXMC.MAC DOES 'ANS' SUPPORT MULTIPLE CLI"S
	.ENDC
	.END
.DISABLE DATA
	.CLOSE
	.SETF BADBAD
	MAC NL:=LB:[200,200]RSXMC/PA:1,SY:'<UIC>'CLITST
	.IF <EXSTAT> NE 1 .SETT BADBAD
	PIP '<UIC>'CLITST.MAC;*/DE/NM
.DISABLE QUIET
.IFT BADBAD ; SORRY, you can not build TASKLOG untill you decide on multiple
.IFT BADBAD ; CLI support.  We will now exit.
	.IFT BADBAD .EXIT
	.ENABLE QUIET
	.IFT $ASM .OPEN TSKLOGASM.CMD;1
	.IFT $ASM .DATA TSKLOG'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'$INUIC'TASKLOG
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @TSKLOGASM
	.IF <EXSTAT> NE 1 /
	.IFT $ASM PIP '<UIC>'TSKLOGASM.CMD;*/DE
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFF $TKB .GOTO .EEND
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP '$OTUIC'TSKLOG.TSK;*/DE/NM
	.OPEN TSKLOGBLD.CMD;1
.DATA '$OTDEV''$OTUIC'TSKLOG.TSK;1/PR:4/CP'MP'='<UIC>'TSKLOG,[1,24]MCR/LB
	.DATA LB:[1,1]EXELIB/LB
	.DATA LB:[1,54]RSX11M.STB/SS
	.DATA LB:[1,1]SYSLIB/LB/MA
	.DATA /
	.DATA ASG=SY0:1
	.DATA ASG=TI0:2
	.IFT $RESLB .DATA RESLIB=LB:[1,24]FCSRES/RO:6
	.DATA STACK=64
	.DATA GBLDEF=$$TKPS:'$TICS'
	.DATA PRI=65
	.DATA PAR=GEN
	.DATA TASK=TSKLOG
	.DATA //
	.CLOSE
	TKB @TSKLOGBLD.CMD;1
.EEND:	;EOF TASKLOG
	
