*COMDECK XDTB 
          IDENT  XDTB 
          ENTRY  XDTB 
          SYSCOM B1 
          COMMENT DELETE TRAILING BLANKS IN WORD. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
          SPACE  4,10 
***       XDTB - DELETE TRAILING BLANKS IN WORD.
* 
*         *SYMPL* CALLABLE ROUTINE TO DELETE TRAILING DISPLAY 
*         CODE BLANKS FROM ONE 60-BIT WORD. 
* 
*         XX = XDTB(NAME);   (*SYMPL* CALL) 
* 
*         ENTRY  NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED, 
*                      BLANK FILLED.
* 
*         EXIT   XX, AN ITEM TO CONTAIN THE NAME, WITH TRAILING 
*                      SPACE CHARACTERS CONVERTED TO BINARY ZEROS.
* 
*         USES   X - 0, 1, 2, 5, 6. 
*                A - 1. 
*                B - 1. 
  
  
 XDTB     SUBR               ENTRY/EXIT 
          SB1    1
          SX5    1R          CHAR TO MASK 
          SA1    X1+         GET NAME 
          MX0    -6          FORM MASK
          BX6    X1          (X6) = NAME
 DTB1     BX2    -X0*X6      MASK CHAR
          BX2    X2-X5       TEST FOR BLANK 
          NZ     X2,XDTBX    IF NOT BLANK 
          BX6    X0*X6       REMOVE BLANK 
          LX5    6           SHIFT CHAR TO TEST FOR 
          LX0    6           SHIFT MASK 
          EQ     DTB1        CONTINUE 
  
          END 
