.TITLE	SNGHGT
SNGHGT::
	MOV	#FD.SHT,R1
	JMP	CTLOUT
	.END