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 (XTAC)
	    RET
	FI
	;! First words equal, second words yield relation
	CAMG X1,1(XTAC)
	 RET
	STD (XTAC)
	RET
	END;