.TITLE	GRADP		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<S1>;<S2>
; EXIT:		1 ARG		<BOOL>
; ERRORS:	NONE
; CALLS:	NONE
; R1,R2,R3 PRESERVED
	.GLOBL	GRADP,ZGRADP,.T.
GRADP:	CMP	(R5)+,(R5)+	;TRUE IF ARG1 IS AT LOWER
	BLO	GRADP1	;CORE ADDRESS THAN ARG2
	CLR	-(R5)
	JMP	@-(R4)
GRADP1:	MOV	.T.,-(R5)
	JMP	@-(R4)
ZGRADP=.-GRADP
	.END