*COMDECK CBCONV60 
 CONV60   EJECT 
**        CONV60 - CONVERT 60 BOOLEAN DISPLAY CHARACTERS TO BITS
* 
*         INPUT 
*                X1 - BYTE OFFSET (UNCHANGED ON RETURN) 
*                B3 - WORD ADDRESS
*                B4 - BYTE LENGTH 
*         OUTPUT
*                X3 - 60 BOOLEAN BITS 
*                B3 - NEW WORD ADDRESS
*                B4 - NEW BYTE LENGTH 
 CONV60   DATA   0
          MX6    0
          SA6    CNVCOUNT 
          SA6    CNVWORD
 CONV1    RJ     GET10CH
          SA2    =XC.ZERO 
          IX6    X6-X2
          SA3    CNVWORD
          LX6    59 
          MX0    1
 A        DUP    10 
          LX6    6
          BX2    X0*X6
          BX3    X2+X3
          LX3    1
 A        ENDD
          SA2    CNVCOUNT 
          SX7    X2+B1
          SA7    A2 
          SX0    X7-6 
          ZR     X0,CONV60   DONE WITH 60 BITS
          BX6    X3 
          SA6    CNVWORD
          NE     B4,B0,CONV1 MORE BYTES 
          BX7    -X0         6 - CNVCOUNT 
          SX2    10 
          IX2    X2*X7
          SB2    X2 
          LX3    B2,X3       POSITION OUTPUT WORD 
          EQ     CONV60 
          SPACE  3
 CNVCOUNT BSS    1
 CNVWORD  BSS    1
