COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,andint);
INTEGER PROCEDURE andint(i1,i2); INTEGER i1,i2;
COMMENT Bitwise AND function of (i1,i2).
;

!*;! MACRO-10 code !*;!

	TITLE	andint
	ENTRY	andint
	SUBTTL	SIMULA utility, Lars Enderin May 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***

	;! Local definitions ;!

	i1==<result==0>
	i2==1
	XTAC==2

andint:	MOVE	i2(XTAC)
	ANDM	result(XTAC)
	POPJ	17,
	END;