; ICMP - LOGICAL COMPARE
; 09-JAN-79
;
	.TITLE	ICMP
;
;	LOGICAL COMPARE OF TWO I*2 WORDS
;	N = ICMP( I1, I2)
;		WHERE N=0 IF I1=I2
;		      N=1 IF I1>I2
;		      N=-1IF I1<I2
;	THE SIGN OF I1 OR I2 IS LOGICALY COMPARED
;
ICMP::
	CMP	@2(R5),@4(R5)
	BEQ	LAB1
	BCS	LAB2
	CLN
	BR	LAB3
LAB2:	SEN
LAB3:	<CLV!CLZ>
	BLT	LAB4
	MOV	#1,R0
	BR	RETURN
LAB4:	MOV	#-1,R0
	BR	RETURN
LAB1:	MOV	#0,R0
RETURN:	RTS	PC
	.END