.TITLE	SETACC - SET ACCOUNT NAME

	ACC=	4			;OFFSET TO ACCOUNT NAME

ACCNAM:	.BLKB	8			;STORAGE FOR NAME

	.ENTRY	SETACC,0

; HERE WE GO....

	MOVC3	#8,@ACC(AP),ACCNAM	;GET ACCOUNT NAME
	$CMKRNL_S	10$		;GET TO WHERE I CAN DO THE STUFF
	RET				;RETURN WHEN DONE
10$:	.WORD	^M<R0,R1,R2,R3,R4,R5>	;NO REGS TO SAVE
	MOVC3	#8,ACCNAM,@#CTL$T_ACCOUNT	;SET ACCOUNT NAME
	RET				;RETURN

	.END				;THAT'S ALL FOLKS