Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/lmin.mac
There are 2 other files named lmin.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,ZYLLMN);
LONG REAL PROCEDURE lmin(l1,l2); LONG REAL l1,l2;
COMMENT lmin:=l1, IF l2<l1 THEN lmin:=l2;

;

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

	TITLE	lmin
	ENTRY	ZYLLMN
	SUBTTL	SIMULA utility, Lars Enderin Aug 1977

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


	sall
	search	simmac,simmcr,simrpa
	macinit


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