Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comcwod +++| CTEXT COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
00002 M00S00002.comcwod +++| WOD SPACE 4
00003 M00S00003.comcwod +++| IF -DEF,QUAL$,1
00004 M00S00004.comcwod +++| QUAL COMCWOD
00005 M00S00005.comcwod +++| BASE D
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.comcwod +++| WOD SPACE 4
00008 M00S00007.comcwod +++|*** WOD - CONVERT WORD TO OCTAL DISPLAY CODE.
00009 M00S00008.comcwod +++|* C. R. WILLIS.
00010 M00S00009.comcwod +++|* UNIVERSITY OF MINNESOTA.
00011 M00S00010.comcwod +++| WOD SPACE 4
00012 M00S00011.comcwod +++|*** WOD CONVERTS A WORD TO OCTAL DISPLAY CODE BY AN
00013 M00S00012.comcwod +++|* IN-LINE SEQUENCE OF SHIFTS AND MASKS.
00014 M00S00013.comcwod +++|*
00015 M00S00014.comcwod +++|* ENTRY (X1) = WORD TO CONVERT.
00016 M00S00015.comcwod +++|* (B1) = 1.
00017 M00S00016.comcwod +++|*
00018 M00S00017.comcwod +++|* EXIT (X6,X7) = CONVERSION.
00019 M00S00018.comcwod +++|*
00020 M00S00019.comcwod +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7.
00021 M00S00020.comcwod +++|* B - NONE.
00022 M00S00021.comcwod +++|* A - 2, 3, 4, 5.
00023 M00S00022.comcwod +++|*
00024 M00S00023.comcwod +++|* CALLS NONE.
00025 M00S00024.comcwod +++|
00026 M00S00025.comcwod +++|
00027 M00S00026.comcwod +++| WOD PS ENTRY/EXIT
00028 M00S00027.comcwod +++|
00029 M00S00028.comcwod +++|* (X1) = ABCDE FGHIJ KLMNO PQRST
00030 M00S00029.comcwod +++|
00031 M00S00030.comcwod +++| SA2 WODA 7.... 7.... 7.... 7....
00032 M00S00031.comcwod +++| BX7 X2*X1 A.... F.... K.... P....
00033 M00S00032.comcwod +++| LX1 3 BCDEF GHIJK LMNOP QRSTA
00034 M00S00033.comcwod +++| BX6 X2*X1 B.... G.... L.... Q....
00035 M00S00034.comcwod +++| LX1 3 CDEFG HIJKL MNOPQ RSTAB
00036 M00S00035.comcwod +++| LX7 27 .K... .P... .A... .F...
00037 M00S00036.comcwod +++| BX0 X2*X1 C.... H.... M.... R....
00038 M00S00037.comcwod +++| LX6 21 ...L. ...Q. ...B. ...G.
00039 M00S00038.comcwod +++| LX1 3 DEFGH IJKLM NOPQR STABC
00040 M00S00039.comcwod +++| IX7 X6+X7 .K.L. .P.Q. .A.B. .F.G.
00041 M00S00040.comcwod +++| BX5 X2*X1 D.... I.... N.... S....
00042 M00S00041.comcwod +++| LX1 3 EFGHI JKLMN OPQRS TABCD
00043 M00S00042.comcwod +++| LX0 15 H.... M.... R.... C....
00044 M00S00043.comcwod +++| BX6 X2*X1 E.... J.... O.... T....
00045 M00S00044.comcwod +++| IX7 X7+X0 HK.L. MP.Q. RA.B. CF.G.
00046 M00S00045.comcwod +++| LX5 9 ..I.. ..N.. ..S.. ..D..
00047 M00S00046.comcwod +++| LX6 3 ....J ....O ....T ....E
00048 M00S00047.comcwod +++| IX7 X7+X6 HK.LJ MP.QO RA.BT CF.GE
00049 M00S00048.comcwod +++| SA4 A2+B1 .7.7. 7.7.7 ..... .....
00050 M00S00049.comcwod +++| SA3 A4+B1 ..... .7.7. 7.7.7 .....
00051 M00S00050.comcwod +++| BX7 X7+X5 HKILJ MPNQO RASBT CFDGE
00052 M00S00051.comcwod +++| BX2 X7*X4 .K.L. M.N.O ..... .....
00053 M00S00052.comcwod +++| SA5 A3+B1 00000 00000 00000 00000
00054 M00S00053.comcwod +++| BX1 X7*X3 ..... .P.Q. R.S.T .....
00055 M00S00054.comcwod +++| LX7 30 RASBT CFDGE HKILJ MPNQO
00056 M00S00055.comcwod +++| IX2 X5+X2 .K.L. M.N.O 00000 00000
00057 M00S00056.comcwod +++| BX0 X7*X4 .A.B. C.D.E ..... .....
00058 M00S00057.comcwod +++| IX0 X0+X5 .A.B. C.D.E 00000 00000
00059 M00S00058.comcwod +++| LX1 45 ..... ..... .P.Q. R.S.T
00060 M00S00059.comcwod +++| BX3 X7*X3 ..... .F.G. H.I.J .....
00061 M00S00060.comcwod +++| IX7 X1+X2 .K.L. M.N.O .P.Q. R.S.T
00062 M00S00061.comcwod +++| LX3 45 ..... ..... .F.G. H.I.J
00063 M00S00062.comcwod +++| IX6 X0+X3 .A.B. C.D.E .F.G. H.I.J
00064 M00S00063.comcwod +++| EQ WOD RETURN
00065 M00S00064.comcwod +++|
00066 M00S00065.comcwod +++| WODA CON 70000700007000070000B
00067 M00S00066.comcwod +++| CON 07070707070000000000B
00068 M00S00067.comcwod +++| CON 00000070707070700000B
00069 M00S00068.comcwod +++| CON 10H0000000000
00070 M00S00069.comcwod +++| SPACE 4
00071 M00S00070.comcwod +++| BASE *
00072 M00S00071.comcwod +++| QUAL$ IF -DEF,QUAL$
00073 M00S00072.comcwod +++| QUAL *
00074 M00S00073.comcwod +++| WOD EQU /COMCWOD/WOD
00075 M00S00074.comcwod +++| QUAL$ ENDIF
00076 M00S00075.comcwod +++| ENDX