.TITLE	SCRMOD
SCRMOD::
	MOV	#FD.POF,R1
	JMP	CTLOUT
	.END