*20
/// SAGE
	 
/SUBROUTINE SAGE DOES SKIP IF VALUE
/IN AC IS GREATER OR EQUAL TO CONTENTS OF P+1.
/DOES NOT DESTROY AC, DF, OR BETA REGISTERS.
	 
	SAGE=JMP .
	STC SAGEX+1	/SAVE AC
	ADD 1
	STC SAGEX+3	/SAVE BETA 1
	SET 1
	0
	ADD 1
	STA
	SAGEX+2		/ORIG RTRN JUMP
	BCL I
	6000
	STC 1
/NOW COMPARE VALUES.
	LDA 1
	COM
	ADD SAGEX+1
	AZE I
	JMP .+7		/EQUAL
	APO I		/NOT EQUAL
	JMP .+5		/GRTR
	CLR		/LESS
/NOW SET UP RETURN JUMPS.
	ADD SAGEX+2
	ADD KP1
	JMP .+4
	CLR
	ADD SAGEX+2
	ADD KP2
	STC SAGEX
	SET 1		/RESTORE BETA 1
	SAGEX+3
	ADD SAGEX+1	/RESTORE AC
SAGEX,	0		/LEAVE, RTRN JUMP
	0		/AC
	0		/ORIG RTRN JMP
	0		/BETA 1
/SAGEX IS OFTEN USED AS A FP REGISTER AS WELL.
/END SAGE.