COMT8AD 
COMMON
          CTEXT  COMT8AD - *ASCII8* CODE TO DISPLAY CODE. 
          IF     -DEF,QUAL$,1 
          QUAL   COMT8AD
          SPACE  4,10 
          BASE   O
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 8AD      SPACE  4,10 
**        T8AD - *ASCII8* CODE TO DISPLAY CODE. 
*         D. R. HILGREN.     79/01/15.
          SPACE  4,10 
**               COMT8AD IS A TABLE TO ALLOW TRANSLATION OF 
*         12-BIT ASCII CODE TO DISPLAY CODE.
* 
*                THE 12-BIT ASCII CODE 140B, CODES THAT ARE 
*         LESS THAN 040B, AND CODES THAT ARE GREATER THAN 172B HAVE 
*         NO DISPLAY CODE EQUIVALENT.  IT IS UP TO THE CALLING
*         PROGRAM TO PROCESS SUCH CODES.
          SPACE  4,10 
 T8AD     BSS    0
          LOC    0
  
          CON    1R          040
          CON    1R!         041
          CON    1R"         042
          CON    1R#         043
          CON    1R$         044
          CON    63          045 (PERCENT)
          CON    1R&         046
          CON    1R'         047
          CON    1R(         050
          CON    1R)         051
          CON    1R*         052
          CON    1R+         053
          CON    1R,         054
          CON    1R-         055
          CON    1R.         056
          CON    1R/         057
          CON    1R0         060
          CON    1R1         061
          CON    1R2         062
          CON    1R3         063
          CON    1R4         064
          CON    1R5         065
          CON    1R6         066
          CON    1R7         067
          CON    1R8         070
          CON    1R9         071
          CON    00          072 (COLON)
          CON    1R;         073
          CON    1R<         074
          CON    1R=         075
          CON    1R>         076
          CON    1R?         077
          CON    1R@         100
          CON    1RA         101, 141 
          CON    1RB         102, 142 
          CON    1RC         103, 143 
          CON    1RD         104, 144 
          CON    1RE         105, 145 
          CON    1RF         106, 146 
          CON    1RG         107, 147 
          CON    1RH         110, 150 
          CON    1RI         111, 151 
          CON    1RJ         112, 152 
          CON    1RK         113, 153 
          CON    1RL         114, 154 
          CON    1RM         115, 155 
          CON    1RN         116, 156 
          CON    1RO         117, 157 
          CON    1RP         120, 160 
          CON    1RQ         121, 161 
          CON    1RR         122, 162 
          CON    1RS         123, 163 
          CON    1RT         124, 164 
          CON    1RU         125, 165 
          CON    1RV         126, 166 
          CON    1RW         127, 167 
          CON    1RX         130, 170 
          CON    1RY         131, 171 
          CON    1RZ         132, 172 
          CON    1R[         133
          CON    1R\         134
          CON    1R]         135
          CON    1R^         136
          CON    65          137  (CONCATENATION OR UNDERLINE)
  
  
          LOC    *O 
          BASE   *
  
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 T8AD     EQU    /COMT8AD/T8AD
 QUAL$    ENDIF 
          ENDX
