TITLE  F77_BOOL
      MODULE F77_BOOL
      AREADEF PROG,[PIC,CODE,READ],DOUBLE
      AREADEF DATA,[PIC,DATA,WRITE],DOUBLE
      DEFSB   DATA
      EXPORTC IAND,IOR,IEOR,NOT,ISHFT,IBSET,BTEST,IBCLR
      AREA    PROG
IAND  BSR     start
      ANDD    R1,R0
      BR      stop
IOR   BSR     start
      ORD     R1,R0
      BR      stop
IEOR  BSR     start
      XORD    R1,R0
      BR stop
NOT   BSR     strt0
      COMD    R0,R0
      BR      stop
ISHFT BSR     start
      LSHD    R1,R0
      BR      stop
IBSET BSR     start
      SBITD   R1,R0
      BR      stop
BTEST BSR     start
      TBITD   R1,R0
      SFSD    R0
      BR      stop
IBCLR BSR     start
      CBITD   R1,R0
stop  MOVD    R0,ans
      ADDR    ans,R0
      RXP     4
start MOVD    4(12(SP)),R1
      MOVD    0(R1),R1
strt0 MOVD    0(12(SP)),R0
      MOVD    0(R0),R0
      RET     0
      AREA    DATA
ans   ALLOCD  1
      END