;TEST PROGRAM TO TEST LDFPS INSTRUCTION
.WORD	-1,-1,-1,-1
.BLKW	252.	;STACK OVERFLOW AREA
START:	SETI
	SETD
	LDCID	#0,%0		;SET UP THE REG'S SO WE CAN SEE THEM
	LDCID	#1,%1
	LDCID	#2,%2
	LDCID	#3,%3
RSTART:	MOV	#1000,SP	;RESET SP
	CLR	(SP)		;CLEAR IT
	LDFPS	(SP)+		;LOAD FLOAT POINT STAT REG
	CMP	SP,#1002	;IS STACK RIGHT /
	BEQ	RSTART		;IF SO, TRY AGAIN
	SETD
	SETI
	STD	%0,(SP)+	;STORE THE REGS
	STD	%1,(SP)+
	STD	%2,(SP)+
	STD	%3,(SP)+
	STFPS	R0		;SAVE FPS
	LDFPS	#0		;CLEAR FPS
	STFPS	R1
	LDFPS	#177777
	STFPS	R2
	NOP			;PUT A BREAKPOINT HERE
	.END	START