*DECK C$BTDCM 
          IDENT  C$BTDCM
          TITLE  C$BTDCM - COMPARE BOOLEAN BIT ITEM TO BOOLEAN DISPLAY
**        C$BTDCM - COMPARE BOOLEAN BIT TO BOOLEAN DISPLAY
* 
*         INPUT 
*                X1 - BYTE OFFSETA
*                X2 - BYTE OFFSETB
*                B3 - ADDRESS B 
*                B4 - ADDRESS B 
*                B5 - BYTE LENGTH A 
*                B6 - BIT LENGTH B
*         OUTPUT
*                B3 - 0 IF OPERANDS EQUAL, NON-ZERO IF UNEQUAL
          ENTRY  C.BTDCM
 C.BTDCM  DATA   0
          SX4    314632B
          IX4    X4*X1
          AX4    20 
          SB3    B3+X4       NEW ADDR A 
          IX5    X4+X4
          LX4    3
          IX5    X5+X4
          IX7    X1-X5       NEW BCP A
          SA7    OFFSETA
          SX6    B3 
          SA6    ADDRA
          SX7    B5 
          SA7    LENGTHA
          SX4    314632B
          IX4    X4*X2
          AX4    20 
          SB4    B4+X4       NEW ADDR B 
          IX5    X4+X4
          LX4    3
          IX5    X5+X4
          IX2    X2-X5       NEW BCP B
          SX6    6
          IX7    X6*X2       NEW BBP B
          SA7    OFFSETB
          SX6    B4 
          SA6    ADDRB
          SX7    B6 
          SA7    LENGTHB
 BTDCM1   SA1    OFFSETB
          SA2    ADDRB
          SB3    X2 
          SA2    LENGTHB
          SB4    X2 
          RJ     GETWORD     GET NEXT WORD B
          SA6    BWORD
          SX7    B3 
          SA7    ADDRB
          SX7    B4 
          SA7    LENGTHB
          SA1    OFFSETA
          SA2    LENGTHA
          SB4    X2 
          SA2    ADDRA
          SB3    X2 
          RJ     CONV60      CONVERT NEXT 60 CHARS OF A TO BITS 
          SA2    BWORD
          IX6    X2-X3
          NZ     X6,UNEQUAL 
          ZR     B4,BTDCM3   END OF A 
          SX6    B3 
          SA6    ADDRA
          SX7    B4 
          SA7    LENGTHA
          SA2    LENGTHB
          NZ     X2,BTDCM1   NOT END OF A OR B
          SA1    OFFSETA
          SA2    LENGTHA
          SB4    X2 
          SA2    ADDRA
          SB3    X2 
 BTDCM2   RJ     CONV60 
          NZ     X3,UNEQUAL 
          NE     B4,B0,BTDCM2      NOT END OF A 
          EQ     EQUAL
          SPACE  3
 BTDCM3   SA2    LENGTHB
          ZR     X2,EQUAL    END OF B 
          SA1    OFFSETB
          SB4    X2 
          SA2    ADDRB
          SB3    X2 
 BTDCM4   RJ     GETWORD
          NZ     X6,UNEQUAL 
          NE     B4,B0,BTDCM4      NOT END OF B 
          EQ     EQUAL
          SPACE  3
 EQUAL    SB3    B0 
          EQ     C.BTDCM
          SPACE  3
 UNEQUAL  SB3    B1 
          EQ     C.BTDCM
          SPACE  3
 ADDRA    BSS    1
 ADDRB    BSS    1
 BWORD    BSS    1
 LENGTHA  BSS    1
 LENGTHB  BSS    1
 OFFSETA  BSS    1
 OFFSETB  BSS    1
*CALL CBCONV60
*CALL CBGET10C
*CALL CBGETWRD
          END 
