Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/imax.mac
There is 1 other file named imax.mac in the archive. Click here to see a list.
00010	COMMENT * SIMULA specification;
00020	OPTIONS(/E:QUICK,ZYLIMX);
00030	INTEGER PROCEDURE imax(i1,i2); INTEGER i1,i2;
00040	COMMENT imax:=i1, IF i2>i1 THEN imax:=i2;
00060	
00070	;
00080	
00090	!*;! MACRO-10 code !*;!
00100	
00110		TITLE	imax
00120		ENTRY	ZYLIMX
00130		EXTERN ZYLRMX
00140		SUBTTL	SIMULA utility, Lars Enderin Aug 1977
00150	
00160	;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
00170	;!*** Copying is allowed.					***
00180	
00190	
00240	ZYLIMX=ZYLRMX
00260		END;