.TITLE	CURPOS
CURPOS::
	MOV	#FD.POS,R1
	JMP	CTLOUT
	.END