	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
.;	.IFNDF P1 .SETS P1 ""
.;	.IF P1 EQ "NOLIST" .ENABLE QUIET
	.IFNDF $RESLB .ASK $RESLB BUILD ACCLOG WITH AN FCS RESIDENT LIBRARY
	.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 ACCLOG.OBJ;*/DE/NM
	.IFT $ASM .OPEN ACCLOGASM.CMD;1
	.IFT $ASM .DATA ACCLOG'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'ACCLOG
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @ACCLOGASM
	.IFT $ASM PIP ACCLOGASM.CMD;1/DE/NM
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP ACCLOG.TSK;*/DE/NM
	.IFT $TKB .OPEN ACCLOGBLD.CMD;1
	.IFT $TKB .DATA ACCLOG/PR:0/MM/CP'MP'=ACCLOG,[1,24]MCR/LB:ACTFIL
	.IFT $TKB .DATA [1,24]MCR/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA PAR=GEN
	.IFT $TKB .IFT $RESLB .DATA LIBR=FCSRES:RO
	.IFT $TKB .DATA ASG=TI:1
	.IFT $TKB .DATA ASG=SY:2
	.IFT $TKB .DATA STACK=64
	.IFT $TKB .DATA TASK=ACCLOG
	.IFT $TKB .DATA PRI=55
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @ACCLOGBLD
	.IFT $TKB PIP ACCLOGBLD.CMD;1/NM/DE,ACCLOG.OBJ;*
.EEND:	;EOF ACCLOG
