.TITLE	PAGMOD
PAGMOD::
	MOV	#FD.PON,R1
	JMP	CTLOUT
	.END