Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

TITLE	CMPX FOR LIBOL V12
SUBTTL	SIX FLAVORS OF NON-NUMERIC COMPARISON		/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1979 BY DIGITAL EQUIPMENT CORPORATION


	HISEG

ENTRY CMP.E	;SKIP IF EQUAL
ENTRY CMP.G	;SKIP IF GREATER
ENTRY CMP.L	;SKIP IF LESS
ENTRY CMP.N	;SKIP IF NOT EQUAL
ENTRY CMP.GE	;SKIP IF GREATER OR EQUAL
ENTRY CMP.LE	;SKIP IF LESS OR EQUAL

EXTERNAL COMP.

;THESE ROUTINES USE THE GENERAL 'COMP.' ROUTINE TO DETERMINE
;RELATIVE VALUES OF TWO NON-NUMERIC FIELDS.
;THE 'COMP.' ROUTINE IS CALLED BY:
;	PUSHJ PP,COMP.
;	RETURN IF A < B
;	RETURN IF A > B
;	RETURN IF A = B

	PP=17	;PUSH-DOWN POINTER

CMP.E:	PUSHJ	PP,COMP.
	POPJ	PP,
	POPJ	PP,
	AOSA	(PP)

CMP.G:	PUSHJ	PP,COMP.
	POPJ	PP,
	AOS	(PP)
	POPJ	PP,

CMP.LE:	PUSHJ	PP,COMP.
	AOS	(PP)
	POPJ	PP,
	AOSA	(PP)

CMP.GE:	PUSHJ	PP,COMP.
	POPJ	PP,
	AOSA	(PP)
	AOS	(PP)
	POPJ	PP,

CMP.L:	PUSHJ	PP,COMP.
	AOS	(PP)
	POPJ	PP,
	POPJ	PP,

CMP.N:	PUSHJ	PP,COMP.
	AOSA	(PP)
	AOS	(PP)
	POPJ	PP,

	END