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;