*COMDECK NETXWOD
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH W
          RJ     WOD
          SA2    B7+B1       FETCH LOC (A)
          SA6    X2          STORE UPPER 10 CHARACTERS
          SA7    X2+B1       STORE LOWER 10 CHARACTERS
          JP     EXIT.       RETURN 
 COMCWOD  SPACE  4,8
**        COMCWOD - COMPASS-CALLABLE ROUTINE. 
*CALL     COMCWOD            CONVERT WORD TO OCTAL DISPLAY CODE.
