Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/23/rmin.mac
There is 1 other file named rmin.mac in the archive. Click here to see a list.
00100 COMMENT * SIMULA specification;
00200 OPTIONS(/E:QUICK,ZYLRMN);
00300 REAL PROCEDURE rmin(i1,i2); REAL i1,i2;
00400 COMMENT rmin:=i1, IF i2<i1 THEN rmin:=i2;
00500
00600 ;
00700
00800 !*;! MACRO-10 code !*;!
00900
01000 TITLE rmin
01100 ENTRY ZYLRMN
01200 SUBTTL SIMULA utility, Lars Enderin Aug 1977
01300
01400 ;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
01500 ;!*** Copying is allowed. ***
01600
01700
02100
02200 ;! Local definitions ;!
02300
02500 XTAC==2
02550 OPDEF RET [POPJ 17,]
02600
02700 ZYLRMN: MOVE 1(XTAC)
02800 CAMGE (XTAC)
02900 MOVEM (XTAC)
03000 RET
03100 END;