.ENABL GBL
.GLOBL FPTST
.MCALL .PRINT,.EXIT
FPTST:	JSR	R4,POLISH
	.WORD	MOF$MS,X
	.WORD	CMF$MS,Y
	.WORD	BGT$,FPT10
	.WORD	.+2
	.PRINT	#MSG2
	BR	FPT20
FPT10:	.WORD	.+2
	.PRINT	#MSG1
FPT20:	JSR	R4,POLISH
	.WORD	TSF$M,Z
	.WORD	BNE$,FPT30
	.WORD	.+2
	.PRINT	#MSG3
	.EXIT
FPT30:	.WORD	.+2
	.PRINT	#MSG4
	.EXIT

POLISH:	TST	(SP)+
	JMP	@(R4)+

X:	.FLT2	2.
Y:	.FLT2	3.
Z:	.FLT2	10.
MSG1:	.ASCIZ	'X <= Y'
MSG2:	.ASCIZ	'X > Y'
MSG3:	.ASCIZ	'Z=0'
MSG4:	.ASCIZ	'Z%0'
	.EVEN
	.END	FPTST
    