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