FIX2::	TST	(R5)+
	MOV	(R5)+,R1
	MOV	(R1)+,R0		; hi order
	MOV	(R1)+,R1		; Lo order
	MOV	R0,R3			; Save sign
	MOV	R0,R2			; And exponent
	ASH	#-7,R2			; Get exponent into lo bits
	BIC	#177400,R2		; Complete exponent
	SUB	#200+24.,R2			; Now is shift count
	BIC	#177600,R0		; Clear exponent part of floating
	ADD	#200,R0			; Put back hidden bit
	ASHC	R2,R0			; Shift to proper magnitude
	TST	R3			; Sign of result??
	BGE	40$			; Positive
	COM	R0
	COM	R1
	ADD	#1,R1			; Make 2's complement
	ADC	R0
40$:	MOV	(R5)+,R2		; Output address
	MOV	R1,(R2)+
	MOV	R0,(R2)+
	RETURN
	.END