.TITLE	CURSR4
CURSR4::
	MOV	#FD.CT4,R1
	JMP	CTLOUT
	.END