Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/compd.mac
There are 5 other files named compd.mac in the archive. Click here to see a list.
TITLE	COMPD FOR LIBOL V12C
SUBTTL	COMPARE	TWO DOUBLE-PRECISION INTEGERS	PETE WILSON/CAM

	SEARCH	COPYRT
	SALL

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

	HISEG

	.COPYRIGHT		;Put standard copyright statement in REL file

;ENTER WITH BOTH A-FIELD WORDS IN AC'S 0 AND 1.
;RETURNS:
;	RET.1 IF A < B
;	RET.2 IF A > B
;	RET.3 IF A = B
	ENTRY	COMP.D
	EXTERNAL	RET.1,RET.2,RET.3
HIGHA=0				;HIGH-ORDER AND
LOWA=1				;  LOW-ORDER PARTS OF A-FIELD.
PP=17

COMP.D:	CAMGE	HIGHA,0(16)	;COMPARE HIGH-ORDER WORDS.
	POPJ	PP,		;A IS LESS THAN B.
	CAME	HIGHA,0(16)	;COMPARE AGAIN FOR EQUALITY.
	JRST	RET.2		;A IS GREATER THAN B.
	CAMGE	LOWA,1(16)	;COMPARE LOW-ORDER WORDS.
	POPJ	PP,		;A IS LESS THAN B.
	CAME	LOWA,1(16)	;SKIP IF EQUAL.
	JRST	RET.2		;A IS GREATER THAN B.
	JRST	RET.3		;A EQUAL TO B.

END