	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.IFNDF $SYSAC .ASK $SYSAC HAVE YOU INCORPORATED THE SYSTEM ACCOUNTING DATA BASES
	.IFF $SYSAC ; SYSLOG WILL NOT WORK UNLESS THE DATA BASE CHANGES TO SYSCM, TDSCH
	.IFF $SYSAC ; AND DATA BASES FOR TT:, VT: AND CO: HAVE BEEN MADE.
	.IFF $SYSAC ; PLEASE MAKE THESE CHANGES(SLP FILES PROVEDED), GEN A SYSTEM
	.IFF $SYSAC ; AND TRY AGAIN.
	.IFF $SYSAC /
	.IFDF $VEC .GOTO 5
	.IFNDF $VEC .ASK CLK DO YOU HAVE A PROGRAMABLE CLOCK
	.IFT CLK .SETN $VEC 104
	.IFF CLK .SETN $VEC 100
.5:	; YOUR CLOCK INTERRUPT VECTOR IS SET TO '$VEC'
	.IFNDF $RESLB .ASK $RESLB DO YOU WISH TO BUILD SYSLOG 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 SYSLOG.OBJ;*/DE/NM
	.IFT $ASM .OPEN SYSLOGASM.CMD;1
	.IFT $ASM .DATA SYSLOG'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'SYSLOG
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @SYSLOGASM
	.IF <EXSTAT> NE 1 /
	.IFT $ASM PIP SYSLOGASM.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 SYSLOG.TSK;*/DE/NM
	.OPEN SYSLOGBLD.CMD;1
	.DATA SYSLOG.TSK;1/PR/CP'MP'=SYSLOG,[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=$$CVEC:'$VEC'
	.DATA PRI=65
	.DATA PAR=GEN
	.DATA //
	.CLOSE
	TKB @SYSLOGBLD
.EEND:	;EOF SYSLOG
	
