*COMDECK XWOD 
          IDENT  XWOD 
          ENTRY  XWOD 
          SYSCOM B1 
          TITLE  XWOD - CONVERT WORD TO OCTAL DISPLAY CODE. 
          COMMENT CONVERT WORD TO OCTAL DISPLAY CODE. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XWOD     SPACE  4,8
***       XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
* 
*         *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
*         TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
*         OF THE INPUT WORD.
* 
*         XWOD(W,A);                   (*SYMPL* CALL) 
* 
*         ENTRY  W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED. 
*                A, A 20 CHARACTER BUFFER FWA.
*                    (AN ARRAY OR ITEM 20 CHARACTERS LONG)
* 
*         EXIT   A AND A+1, CONTAIN CONVERTED WORD. 
* 
*         USES   X - 1, 2, 6, 7.
*                A - 1, 2, 6, 7.
*                B - 1, 7.
* 
*         CALLS  WOD. 
  
  
 XWOD     SUBR               ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH W
          RJ     =XWOD= 
          SA2    B7+B1       FETCH LOCATION (A) 
          SA6    X2          STORE UPPER 10 CHARACTERS
          SA7    X2+B1       STORE LOWER 10 CHARACTERS
          EQ     XWODX       RETURN 
  
          END 
