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;