.TITLE	.CAT1R AND .CAT1D - TEST IF FLOATING AC = ZERO
/
/COPYRIGHT (C) 1975
/DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
/
/THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
/ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
/THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS
/SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO-
/VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
/EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
/THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
/SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
/WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-
/MITMENT BY DIGITAL EQUIPMENT CORPORATION.
/
/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
	.EJECT
/
/ EDIT 001	AUG-20-75	M. HEBENSTREIT	DISCLAIMER
/FOR HARDWARE FLOATING POINT PROCESSOR (FPP), DEFINE 90 FPP,
	.GLOBL	.CAT1R,.CAT1D
	.IFUND %FPP
	.GLOBL .AG,.AO
	.ENDC
	.IFUND %FPP
	.DEFIN FLD%,A		/FLOATING LOAD (.AG) REAL
	JMS* A
	.ENDM
	.DEFIN DLD%,A		/DOUBLE LOAD (.AO)
	JMS*	A
	.ENDM
	.ENDC
	.IFDEF %FPP
FLD=713050
DLD=713150
	.DEFIN FLD%
	FLD
	.ENDM
	.DEFIN DLD%
	DLD
	.ENDM
	.ENDC
/             CALLING SEQUENCE
/      JMS*   (.CAT1R OR .CAT1D)        SUBR CALL
/
/	RETURN IF NON ZERO
/	RETURN IF ZERO
/
.CAT1D	0
	JMS	.CAT1		/CHECK FIRST TWO WORDS FOR ZERO
	JMP*	.CAT1D		/NOOP  SO EXIT
	DLD%	.AG		/YEEP SO ZERO FLOATING AC
	.DSA	ZERO
	ISZ	.CAT1D		/INC RETURN IF VAR = ZERO
	JMP*	.CAT1D		/BACK TO CALLER
/
/
.CAT1R	0
	JMS	.CAT1		/CHECK FOR ZERO
	JMP*	.CAT1R		/NOOP SO EXIT
	FLD%	.AG		/YEEP SO ZERO FLOATING AC
	.DSA	ZERO
	ISZ	.CAT1R		/INC RETURN IF VAR = ZERO
	JMP*	.CAT1R		/BYE
/
/
.CAT1	0
	DAC	PTR
	TAD	ONE		/SET UP POINTERS FOR TEST
	DAC	PTR2
	LAC*	PTR
	SAD	ONE		/COMPARE 1ST WORD
	SKP
	JMP*	.CAT1		/NOT EQUAL SO RETURN
	LAC*	PTR2		/COMPARE 2ND WORD
	SAD	TWO
	SKP
	JMP*	.CAT1		/NOT EQUAL SO RETURN
	ISZ	.CAT1		/VAR EQUAL TO ZERO; INC RETURN AS FLAG
	JMP*	.CAT1
/
PTR	.DSA	0
PTR2	.DSA	0
ONE	.DSA	1
TWO	.DSA	200000
ZERO	.DSA	0
	.DSA	0
	.DSA	0
	.END