.TITLE	DISCTL
DISCTL::
	MOV	#FD.CTL,R1
	JMP	CTLOUT
	.END