Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/24/lmax.mac
There are 2 other files named lmax.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,ZYLLMX);
LONG REAL PROCEDURE lmax(l1,l2); LONG REAL l1,l2;
COMMENT lmax:=l1, IF l2>l1 THEN lmax:=l2;

;

!*;! MACRO-10 code !*;!

	TITLE	lmax
	ENTRY	ZYLLMX
	SUBTTL	SIMULA utility, Lars Enderin Aug 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit


ZYLLMX:	L 2(XTAC)
	CAMGE (XTAC)
	 RET ;! if first word of l1 > first word of l2
	L X1,3(XTAC)
	IF ;! <
	   CAMG (XTAC)
	    GOTO FALSE
	THEN ;! Return l2
	   STD X0,(XTAC)
	    RET
	FI
	;! First words equal, second words yield relation
	CAMG X1,1(XTAC)
	 RET
	STD X0,(XTAC)
	RET
	END;