*COMDECK CBPUT60
 PUT60    EJECT 
**        PUT60  - CONVERT WORD OF BOOLEAN BIT TO DISPLAY AND STORE 
* 
*         INPUT 
*                X1 - OFFSET DESTINATION (UNCHANGED ON OUTPUT)
*                B3 - ADDRESS 
*                B4 - BYTE LENGTH DESTINATION 
*                X6 - WORD TO STORE 
*         OUTPUT
*                B3 - NEW ADDRESS 
*                B4 - NEW LENGTH
 PUT60    DATA   0
          MX7    0
          SA7    SHFTCNT
          SA6    SAVEWORD 
 PUT1     SA2    SHFTCNT
          SB2    X2 
          SA2    SAVEWORD 
          LX6    X2,B2
          MX0    59 
          SA3    =XC.ZERO 
 PUT2     DUP    10 
          LX6    1
          LX3    6
          BX7    -X0*X6 
          IX3    X3+X7
 PUT2     ENDD
          BX6    X3 
          RJ     PUT10CH
          ZR     B4,PUT60    END OF DESTINATION 
          SA3    SHFTCNT
          SX7    X3+10
          SA7    A3 
          SX6    60 
          IX0    X6-X7
          NZ     X0,PUT1
          EQ     PUT60       DONE WITH WORD 
          SPACE  3
 SAVEWORD BSS    1
 SHFTCNT  BSS    1
 PUT10CH  EJECT 
