Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/rmax.mac
There is 1 other file named rmax.mac in the archive. Click here to see a list.
00100 COMMENT * SIMULA specification;
00200 OPTIONS(/E:QUICK,ZYLRMX);
00300 REAL PROCEDURE rmax(i1,i2); REAL i1,i2;
00400 COMMENT rmax:=i1, IF i2>i1 THEN rmax:=i2;
00500
00600 ;
00700
00800 !*;! MACRO-10 code !*;!
00900
01000 TITLE rmax
01100 ENTRY ZYLRMX
01200 SUBTTL SIMULA utility, Lars Enderin Aug 1977
01300
01400 ;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
01500 ;!*** Copying is allowed. ***
01600
01700
01800 sall
01900 XTAC==2
01950 OPDEF RET [POPJ 17,]
02000
02100 ZYLRMX: MOVE 1(XTAC)
02200 CAMLE (XTAC)
02300 MOVEM (XTAC)
02400 RET
02500 END;