COMTDA8 
COMMON
          CTEXT  COMTDA8 - DISPLAY CODE TO *ASCII8* CODE. 
          SPACE  4,10 
          BASE   O
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 DA8      SPACE  4,10 
*         TDA8 - DISPLAY CODE TO *ASCII8* CODE. 
*         D. R. HILGREN.     79/01/15.
          SPACE  4,10 
**        TABLE FORMAT. 
* 
* 
*         FOR CP CODE - 
* 
*T,       1/ E ,41/ 0 ,1/ I ,5/ 0 ,12/ ASCII8 
* 
* 
*         FOR PP CODE - 
* 
*T,       12/ ASCII8
* 
* 
*         E = 1, IF ESCAPE CODED CHARACTER (IF SO,
*                ASCII8 = FWA OF ESCAPE CODE PART OF TABLE).
*         I = 1, IF CODE IS AN ILLEGAL CODE.  SUCH A CODE IS
*                CONVERTED TO AN *ASCII8* NULL. 
*         ASCII8 = 12-BIT ASCII CODE. 
          SPACE  4,10 
 TDA8     BSS    0
          LOC    0
  
          CODE   A
  
          CON    72          00    COLON
          CON    1RA+40B     01    UPPER CASE A 
          CON    1RB+40B     02    UPPER CASE B 
          CON    1RC+40B     03    UPPER CASE C 
          CON    1RD+40B     04    UPPER CASE D 
          CON    1RE+40B     05    UPPER CASE E 
          CON    1RF+40B     06    UPPER CASE F 
          CON    1RG+40B     07    UPPER CASE G 
* 
          CON    1RH+40B     10    UPPER CASE H 
          CON    1RI+40B     11    UPPER CASE I 
          CON    1RJ+40B     12    UPPER CASE J 
          CON    1RK+40B     13    UPPER CASE K 
          CON    1RL+40B     14    UPPER CASE L 
          CON    1RM+40B     15    UPPER CASE M 
          CON    1RN+40B     16    UPPER CASE N 
          CON    1RO+40B     17    UPPER CASE O 
* 
          CON    1RP+40B     20    UPPER CASE P 
          CON    1RQ+40B     21    UPPER CASE Q 
          CON    1RR+40B     22    UPPER CASE R 
          CON    1RS+40B     23    UPPER CASE S 
          CON    1RT+40B     24    UPPER CASE T 
          CON    1RU+40B     25    UPPER CASE U 
          CON    1RV+40B     26    UPPER CASE V 
          CON    1RW+40B     27    UPPER CASE W 
* 
          CON    1RX+40B     30    UPPER CASE X 
          CON    1RY+40B     31    UPPER CASE Y 
          CON    1RZ+40B     32    UPPER CASE Z 
          CON    1R0+40B     33    0
          CON    1R1+40B     34    1
          CON    1R2+40B     35    2
          CON    1R3+40B     36    3
          CON    1R4+40B     37    4
* 
          CON    1R5+40B     40    5
          CON    1R6+40B     41    6
          CON    1R7+40B     42    7
          CON    1R8+40B     43    8
          CON    1R9+40B     44    9
          CON    1R++40B     45    PLUS 
          CON    1R-+40B     46    MINUS (HYPHEN) 
          CON    1R*+40B     47    ASTERISK 
* 
          CON    1R/+40B     50    SLASH (DIVISION) 
          CON    1R(+40B     51    OPEN PARENTHESIS 
          CON    1R)+40B     52    CLOSED PARENTHESIS 
          CON    1R$+40B     53    DOLLAR SIGN
          CON    1R=+40B     54    EQUAL SIGN 
          CON    1R +40B     55    SPACE
          CON    1R,+40B     56    COMMA
          CON    1R.+40B     57    PERIOD (DECIMAL POINT) 
* 
          CON    1R#+40B     60    POUND SIGN 
          CON    1R[+40B     61    OPEN BRACKET 
          CON    1R]+40B     62    CLOSED BRACKET 
          CON    45          63    PERCENT
          CON    1R"+40B     64    QUOTE
          CON    137         65    CONCANTENATION (UNDERLINE) 
          CON    1R!+40B     66    EXCLAMATION
          CON    1R&+40B     67    AMPERSAND
* 
          CON    1R'+40B     70    APOSTROPHE 
          CON    1R?+40B     71    QUESTION MARK
          CON    1R<+40B     72    LESS THAN
          CON    1R>+40B     73    GREATER THAN 
          IFPP   2
          CON    1R@+40B     74    AT 
          IFCP   1
          VFD    1/1,51B/0,22B/T.ESC74
          CON    1R\+40B     75    BACK SLASH 
          IFPP   2
          CON    1R^+40B     76    CIRCUMFLEX 
          IFCP   1
          VFD    1/1,51B/0,22B/T.ESC76
          CON    1R;+40B     77    SEMICOLON
  
          IFCP
  
          BASE   D
  
*         TABLE FOR ESCAPE CODE 74B.
  
 T.ESC74  BSS    0
          VFD    42/0,1/1,17/4000B  7400    NULL
          VFD    60/100B            7401    AT
          VFD    60/136B            7402    CIRCUMFLEX (UP ARROW) 
          VFD    60/045B            7403    PERCENT 
          VFD    60/072B            7404    COLON 
          VFD    42/0,1/1,17/4000B  7405    NULL
          VFD    42/0,1/1,17/4000B  7406    NULL
          VFD    60/140B            7407    GRAVE 
* 
          DUP    56,1 
          VFD    42/0,1/1,17/4000B  7477    NULL
  
*         TABLE FOR ESCAPE CODE 76B.
  
 T.ESC76  BSS    0
          VFD    42/0,1/1,17/4000B  7600    NULL
          VFD    60/141B     7601    LOWER CASE A 
          VFD    60/142B     7602    LOWER CASE B 
          VFD    60/143B     7603    LOWER CASE C 
          VFD    60/144B     7604    LOWER CASE D 
          VFD    60/145B     7605    LOWER CASE E 
          VFD    60/146B     7606    LOWER CASE F 
          VFD    60/147B     7607    LOWER CASE G 
* 
          VFD    60/150B     7610    LOWER CASE H 
          VFD    60/151B     7611    LOWER CASE I 
          VFD    60/152B     7612    LOWER CASE J 
          VFD    60/153B     7613    LOWER CASE K 
          VFD    60/154B     7614    LOWER CASE L 
          VFD    60/155B     7615    LOWER CASE M 
          VFD    60/156B     7616    LOWER CASE N 
          VFD    60/157B     7617    LOWER CASE O 
* 
          VFD    60/160B     7620    LOWER CASE P 
          VFD    60/161B     7621    LOWER CASE Q 
          VFD    60/162B     7622    LOWER CASE R 
          VFD    60/163B     7623    LOWER CASE S 
          VFD    60/164B     7624    LOWER CASE T 
          VFD    60/165B     7625    LOWER CASE U 
          VFD    60/166B     7626    LOWER CASE V 
          VFD    60/167B     7627    LOWER CASE W 
* 
          VFD    60/170B     7630    LOWER CASE X 
          VFD    60/171B     7631    LOWER CASE Y 
          VFD    60/172B     7632    LOWER CASE Z 
          VFD    60/173B     7633    LEFT BRACE 
          VFD    60/174B     7634    VERTICAL BAR 
          VFD    60/175B     7635    RIGHT BRACE
          VFD    60/176B     7636    TILDE
          VFD    60/177B     7637    DEL (DELETE) 
* 
          VFD    42/0,1/0,17/4000B  7640    NUL  (NULL) 
          VFD    60/001B     7641    SOH  (START OF HEADING)
          VFD    60/002B     7642    STX  (START OF TEXT) 
          VFD    60/003B     7643    ETX  (END OF TEXT) 
          VFD    60/004B     7644    EOT  (END OF TRANSMISSION) 
          VFD    60/005B     7645    ENQ  (ENQUIRY) 
          VFD    60/006B     7646    ACK  (ACKNOWLEDGE) 
          VFD    60/007B     7647    BEL  (BELL)
* 
          VFD    60/010B     7650    BS  (BACKSPACE)
          VFD    60/011B     7651    HT  (HORIZONTAL TAB) 
          VFD    60/012B     7652    LF  (LINE FEED)
          VFD    60/013B     7653    VT  (VERTICAL TAB) 
          VFD    60/014B     7654    FF  (FORM FEED)
          VFD    60/015B     7655    CR  (CARRIAGE RETURN)
          VFD    60/016B     7656    SO  (SHIFT OUT)
          VFD    60/017B     7657    SI  (SHIFT IN) 
* 
          VFD    60/020B     7660    DLE  (DATA LINK ESCAPE)
          VFD    60/021B     7661    DC1  (DEVICE CONTROL 1 (X-ON)) 
          VFD    60/022B     7662    DC2  (DEVICE CONTROL 2)
          VFD    60/023B     7663    DC3  (DEVICE CONTROL 3 (X-OFF))
          VFD    60/024B     7664    DC4  (DEVICE CONTROL 4 (STOP)) 
          VFD    60/025B     7665    NAK  (NEGATIVE ACKNOWLEDGE)
          VFD    60/026B     7666    SYN  (SYNCHRONOUS IDLE)
          VFD    60/027B     7667    ETB  (END OF TRANSMISSION BLOCK) 
* 
          VFD    60/030B     7670    CAN  (CANCEL)
          VFD    60/031B     7671    EM  (END OF MEDIUM)
          VFD    60/032B     7672    SUB  (SUBSTITUTE)
          VFD    60/033B     7673    ESC  (ESCAPE)
          VFD    60/034B     7674    FS  (FILE SEPARATOR) 
          VFD    60/035B     7675    GS  (GROUP SEPARATOR)
          VFD    60/036B     7676    RS 
          VFD    60/037B     7677    US  (UNIT SEPARATOR) 
  
          BASE   *
          ENDIF 
  
          CODE   *
          LOC    *O 
          BASE   *
          ENDX
