.TITLE	NOARG
	.PSECT	NOARG,EXE,NOWRT
        .ENTRY  NOARG   ^M<>
	MOVL	@8(FP),@4(AP)
	RET
        .END