*COMDECK  COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE. 
          CTEXT  COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
 WOD      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCWOD
          BASE   D
 WOD      SPACE  4
***       WOD - CONVERT WORD TO OCTAL DISPLAY CODE. 
*         C. R. WILLIS. 
*         UNIVERSITY OF MINNESOTA.
 WOD      SPACE  4
***              WOD CONVERTS A WORD TO OCTAL DISPLAY CODE BY AN
*         IN-LINE SEQUENCE OF SHIFTS AND MASKS. 
* 
*         ENTRY  (X1) = WORD TO CONVERT.
*                (B1) = 1.
* 
*         EXIT   (X6,X7) = CONVERSION.
* 
*         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.
*                B - NONE.
*                A - 2, 3, 4, 5.
* 
*         CALLS  NONE.
  
  
 WOD      PS                 ENTRY/EXIT 
  
*         (X1)   =           ABCDE FGHIJ KLMNO PQRST
  
          SA2    WODA        7.... 7.... 7.... 7....
          BX7    X2*X1       A.... F.... K.... P....
          LX1    3           BCDEF GHIJK LMNOP QRSTA
          BX6    X2*X1       B.... G.... L.... Q....
          LX1    3           CDEFG HIJKL MNOPQ RSTAB
          LX7    27          .K... .P... .A... .F...
          BX0    X2*X1       C.... H.... M.... R....
          LX6    21          ...L. ...Q. ...B. ...G.
          LX1    3           DEFGH IJKLM NOPQR STABC
          IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.
          BX5    X2*X1       D.... I.... N.... S....
          LX1    3           EFGHI JKLMN OPQRS TABCD
          LX0    15          H.... M.... R.... C....
          BX6    X2*X1       E.... J.... O.... T....
          IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.
          LX5    9           ..I.. ..N.. ..S.. ..D..
          LX6    3           ....J ....O ....T ....E
          IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE
          SA4    A2+B1       .7.7. 7.7.7 ..... .....
          SA3    A4+B1       ..... .7.7. 7.7.7 .....
          BX7    X7+X5       HKILJ MPNQO RASBT CFDGE
          BX2    X7*X4       .K.L. M.N.O ..... .....
          SA5    A3+B1       00000 00000 00000 00000
          BX1    X7*X3       ..... .P.Q. R.S.T .....
          LX7    30          RASBT CFDGE HKILJ MPNQO
          IX2    X5+X2       .K.L. M.N.O 00000 00000
          BX0    X7*X4       .A.B. C.D.E ..... .....
          IX0    X0+X5       .A.B. C.D.E 00000 00000
          LX1    45          ..... ..... .P.Q. R.S.T
          BX3    X7*X3       ..... .F.G. H.I.J .....
          IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T
          LX3    45          ..... ..... .F.G. H.I.J
          IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J
          EQ     WOD         RETURN 
  
 WODA     CON    70000700007000070000B
          CON    07070707070000000000B
          CON    00000070707070700000B
          CON    10H0000000000
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 WOD      EQU    /COMCWOD/WOD 
 QUAL$    ENDIF 
          ENDX
