.TITLE	INVON
INVON::
	MOV	#FD.ION,R1
	JMP	CTLOUT
	.END