*DECK C$ALL2B 
          IDENT  C$ALL2B
          TITLE  C$ALL2B - MOVE ALL LITERAL TO BOOLEAN BIT
**        C$ALL2B - MOVE ALL LITERAL TO BOOLEAN BIT 
* 
*         INPUT 
*                B3 - ADDRESS DESTINATION 
*                B4 - BYTE OFFSET DESTINATION 
*                B5 - ADDRESS LITERAL 
*                B6 - BYTE OFFSET LITERAL 
*                X1 - BYTE LENGTH LITERAL 
*                X2 - BIT  LENGTH ITEM
*         METHOD - THE LITERAL IS MOVED TO SUCCESSIVE SUBFIELDS OF THE
*                DESTINATION UNTIL THE DESTINATION IS FILLED. THE 
*                COMPUTATION OF THE SUCCESSIVE BYTE OFFSETS OF THE
*                DESTINATION DEPENDS ON THE LITERAL BEING POOLED AS A 
*                MULTIPLE OF SIX CHARACTERS.
          ENTRY  C.ALL2B
 C.ALL2B  DATA   0
          BX6    X1 
          SA6    LITLEN 
          BX7    X2 
          SA7    ITEMLEN
          SX6    B3 
          SA6    ITEMADDR 
          SX7    B4 
          SA7    ITEMOFFS 
          SX6    B5 
          SA6    LITADDR
          SX7    B6 
          SA7    LITOFFS
          BX2    X1 
 ALL2B1   RJ     =XC.BD2BT
          SA1    LITLEN 
          SA2    ITEMLEN
          IX0    X1-X2
          PL     X0,C.ALL2B 
          BX6    -X0         DECREMENT ITEM LENGTH
          SA6    A2 
          IX0    X6-X1
          SA3    ITEMOFFS 
          SX7    6
          PX4    B0,X1
          PX7    B0,X7
          NX7    B0,X7
          FX4    X4/X7
          UX7    B7,X4
          LX7    B7,X7       LITLEN / 6 
          IX6    X7+X3       INCREMENT ITEM OFFSET
          SA6    A3 
          SB4    X6 
          PL     X0,ALL2B2
          BX1    X2          USE ITEM LENGTH IF SHORTER 
 ALL2B2   BX2    X1 
          SA3    ITEMADDR 
          SB3    X3 
          SA4    LITADDR
          SB5    X4 
          SA3    LITOFFS
          SB6    X3 
          EQ     ALL2B1 
          SPACE  3
 ITEMADDR BSS    1
 ITEMLEN  BSS    1
 ITEMOFFS BSS    1
 LITADDR  BSS    1
 LITLEN   BSS    1
 LITOFFS  BSS    1
          END 
