*COMDECK  COMCSFW - SPACE FILL WORD.
          CTEXT  COMCSFW - SPACE FILL WORD. 
 SFW      SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMCSFW
*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
 SFW      SPACE  4,10 
***       SFW - SPACE FILL WORD.
* 
*         G. R. MANSFIELD.   70/12/08.
*         S. R. MCPHERSON.   74/11/15.
*         R. H. GOODELL.     76/06/29.
 SFW      SPACE  4,10 
***              SFW REPLACES ALL 00 CODES WITH 55 CODES IN A WORD. 
* 
*         ENTRY  (X1) = WORD WITH 00 CODES. 
*                (B1) = 1.
* 
*         EXIT   (X6) = WORD SPACE FILLED.
*                (X7) = FINAL CHARACTER MASK. 
* 
*         USES   X - 3, 6, 7. 
*                B - NONE.
*                A - 3. 
* 
*         CALLS  NONE.
  
  
 SFW      SUBR               ENTRY/EXIT 
          SA3    SFWA        =37373737373737373737B 
          BX6    X3*X1       EXTRACT UPPER BIT FROM EACH CHARACTER
          BX7    -X3*X1      EXTRACT LOWER 5 BITS FROM EACH CHARACTER 
          IX6    X6+X3       EACH NON-00 CHARACTER GIVES CARRY
          BX6    X6+X7
          BX7    -X3*X6      EACH NON-00 CHARACTER = 40B
          SA3    A3+B1       =10H 
          BX6    X7 
          LX7    -5          GENERATE SPACE MASK
          IX7    X6-X7
          BX7    X6+X7
          BX3    -X7*X3      SELECT SPACE CODES 
          IX6    X1+X3       MERGE SPACES 
          EQ     EXIT.
  
 SFWA     CON    37373737373737373737B
          CON    10H
 SFW      SPACE  4,10 
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SFW      EQU    /COMCSFW/SFW 
 QUAL$    ENDIF 
          ENDX
