.TITLE	CMR		
; JEFFREY KODOSKY	ARL	MAY76
;
; UTILITY:	FLOATING POINT COMPARATOR
; ENTRY:	2 ARGS (SP)	<F1>;<F2>
; EXIT:		NO ARGS
;		COND. CODES SET AS FOLLOWS: V,C CLEAR
;		Z--->ARG1=ARG2;	  N--->ARG1<ARG2
; ERRORS:	NONE
; CALLS:	NONE
; R5 PRESERVED
; ASSEMBLY SWITCHES:	FPU
;(THIS ROUTINE IS A MODIFIED VERSION OF $CMR02 OF FPMP)
	.GLOBL	CMR
	.IFDF	FPU
CMR:	.WORD	170001	
	.WORD	172426	
	.WORD	173426	
	.WORD	170000	
	JMP	@-(R4)
	.ENDC
	.IFNDF	FPU
CMR:	MOV	@PC,R0	
	MOV	4(SP),R1	
	BGE	FPS$6	
	ASL	R0	
	MOV	(SP)+,R2	
	BLT	SME$6	
	BR	NEG$6	
FPS$6:	MOV	(SP)+,R2
	BLT	PLS$6	
SME$6:	CMP	R1,R2	
	BNE	OUT$6	
	CMP	4(SP),@SP	
	BNE	OUT$6	
	CLR	R0	
OUT$6:	ROR	R0	
	BCS	PLS$6	
NEG$6:	NEG	R0	
PLS$6:	ADD	#6,SP	
	TST	R0	
	JMP	@-(R4)
	.ENDC
	.END