*COMDECK  COMCZTB            CONVERT ZEROES TO BLANKS IN A WORD.         COMCZTB
 ZTB      CTEXT  COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.            COMCZTB
 ZTB      SPACE  4,10                                                    COMCZTB
          IF     -DEF,QUAL$,1                                            COMCZTB
          QUAL   COMCZTB                                                 COMCZTB
          BASE   D                                                       COMCZTB
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCZTB
 ZTB      SPACE  4,10                                                    COMCZTB
***       ZTB - CONVERT ZEROES TO BLANKS IN A WORD.                      COMCZTB
*                                                                        COMCZTB
*         G. R. MANSFIELD.   70/12/08.                                   COMCZTB
*         S. R. MCPHERSON.   74/11/15.                                   COMCZTB
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
*                                                                        COMCZTB
*         ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB
 ZTB      SPACE  4,10                                                    COMCZTB
***       ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB
*                                                                        COMCZTB
*         ENTRY  (X1) = WORD TO BE CONVERTED.                            COMCZTB
*                (B1) = 1.                                               COMCZTB
*                                                                        COMCZTB
*         EXIT   (X6) = CONVERTED WORD.                                  COMCZTB
*                (X7) = FINAL CHARACTER MASK.                            COMCZTB
*                                                                        COMCZTB
*         USES   X - 3, 6, 7.                                            COMCZTB
*                A - 3.                                                  COMCZTB
*                B - NONE.                                               COMCZTB
*                                                                        COMCZTB
*         CALLS  NONE.                                                   COMCZTB
                                                                         COMCZTB
                                                                         COMCZTB
 ZTB      SUBR               ENTRY/EXIT                                  COMCZTB
          SA3    ZTBA                                                    COMCZTB
          BX6    X3*X1       EXTRACT UPPER BIT FROM ALL CHARACTERS       COMCZTB
          BX7    -X3*X1                                                  COMCZTB
          IX6    X6+X3       ANY NON-ZERO CHARACTER PRODUCES CARRY       COMCZTB
          BX6    X6+X7       MERGE UPPER BITS AND CARRIES                COMCZTB
          BX7    -X3*X6      ALL NON ZERO CHARACTERS = 40B               COMCZTB
          SA3    A3+B1                                                   COMCZTB
          BX6    X7                                                      COMCZTB
          LX7    -5          GENERATE SPACE MASK                         COMCZTB
          IX7    X6-X7                                                   COMCZTB
          BX7    X6+X7                                                   COMCZTB
          BX3    -X7*X3      SELECT SPACE CODES                          COMCZTB
          IX6    X1+X3       MERGE SPACES                                COMCZTB
          EQ     ZTB                                                     COMCZTB
                                                                         COMCZTB
 ZTBA     CON    37373737373737373737B                                   COMCZTB
          CON    1H                                                      COMCZTB
 ZTB      SPACE  4,10                                                    COMCZTB
          BASE   *                                                       COMCZTB
 QUAL$    IF     -DEF,QUAL$                                              COMCZTB
          QUAL   *                                                       COMCZTB
 ZTB      EQU    /COMCZTB/ZTB                                            COMCZTB
 ZTB=     EQU    /COMCZTB/ZTB 
 QUAL$    ENDIF                                                          COMCZTB
 ZTB      ENDX                                                           COMCZTB
