*DECK BIT2DSP 
          IDENT  BIT2DSP
          MACHINE ANY,I 
          COMMENT  BOOLEAN CONVERSION 
*         BIT2DS - SYMPL INTERFACE TO C$BT2BD 
*         INPUT 
*                BIT2DS(P1,P2,P3,P4)
*                P1 - ADDRESS BIT STRING
*                P2 - BCP BIT STRING
*                P3 - BIT LENGTHS 
*                P4 - ADDRESS CHARACTER STRING (RECEIVING FIELD)
          TITLE  BIT2DSP - BOOLEAN CONVERSION 
          ENTRY  BIT2DSP
 BIT2DSP  DATA   0
          SB1    1
          SB5    X1          ADDR SOURCE
          SA1    A1+B1
          SA2    X1 
          SB6    X2          BCP SOURCE 
          SA2    A1+B1
          SA1    X2          LENGTH SOURCE
          SA2    A2+B1
          SB3    X2          ADDR DESTINATION 
          BX2    X1          LENGTH DESTINATION 
          MX0    0           NOT JUSTIFIED
          SB4    B0          BCP RECEIVING
          RJ     =XC.BT2BD
          EQ     BIT2DSP
          END 
