FORTRAN IV-PLUS V02-51D		02:29:09    22-AUG-78		PAGE 1   

ISTATE.FTN   	/TR:BLOCKS/WR


        C

        C

        C	ISTATE  --  

        C

        C

        C

        C	COPYRIGHT (C) 1976

        C	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

        C

        C	THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

        C	SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

        C	SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

        C	OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

        C	AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

        C	AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

        C	OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

        C

        C	THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

        C	NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

        C	EQUIPMENT CORPORATION.

        C

        C	DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

        C	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

        C

        C

        C	T.J. PORTER AND K.D. MORSE  07-NOV-76

        C

        C

        C

        C	THIS FUNCTION SUBPROGRAM RETURNS THE VALUE TRUE

        C	IF THE "BIT" IS SET IN "FLAGS". FALSE OTHERWISE

        C

        C

0001    	FUNCTION ISTATE(FLAGS,BIT)

        C

        C

0002    	LOGICAL*1 ISTATE

        C

0003    	INTEGER BIT

        C

0004    	BYTE	FLAGS

        C

0005    	ISTATE = FLAGS*( 2**(7-BIT))

0006    	RETURN

0007    	END

FORTRAN IV-PLUS V02-51D		02:29:09    22-AUG-78		PAGE 2   

ISTATE.FTN   	/TR:BLOCKS/WR


PROGRAM SECTIONS



NUMBER	 NAME	    SIZE		ATTRIBUTES



  1	$CODE1	000064    26		RW,I,CON,LCL

  3	$IDATA	000002     1		RW,D,CON,LCL





ENTRY POINTS



 NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS   



 ISTATE	L*1   1-000000





VARIABLES



 NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS    NAME   TYPE  ADDRESS   



 BIT	I*2   F-000004*	 FLAGS	L*1   F-000002*





TOTAL SPACE ALLOCATED = 000066    27



NO FPP INSTRUCTIONS GENERATED



OBJ$:ISTATE.OBI,LIS$:ISTATE.LST/-SP=SRC$:ISTATE

