Google
 

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