COMTDP6 
COMMON
          CTEXT  COMTDP6 - DISPLAY CODE TO O26 PUNCH. 
          SPACE  4,10 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TDP6     SPACE  4
**        TDP6 - DISPLAY CODE TO O26 PUNCH. 
  
  
 TDP6     BSS    0
          LOC    0
  
          CON    0202        COLON     8-2
          CON    4400        A         12-1 
          CON    4200        B         12-2 
          CON    4100        C         12-3 
          CON    4040        D         12-4 
          CON    4020        E         12-5 
          CON    4010        F         12-6 
          CON    4004        G         12-7 
          CON    4002        H         12-8 
          CON    4001        I         12-9 
          CON    2400        J         11-1 
          CON    2200        K         11-2 
          CON    2100        L         11-3 
          CON    2040        M         11-4 
          CON    2020        N         11-5 
          CON    2010        O         11-6 
          CON    2004        P         11-7 
          CON    2002        Q         11-8 
          CON    2001        R         11-9 
          CON    1200        S         0-2
          CON    1100        T         0-3
          CON    1040        U         0-4
          CON    1020        V         0-5
          CON    1010        W         0-6
          CON    1004        X         0-7
          CON    1002        Y         0-8
          CON    1001        Z         0-9
          CON    1000        0         0
          CON    0400        1         1
          CON    0200        2         2
          CON    0100        3         3
          CON    0040        4         4
          CON    0020        5         5
          CON    0010        6         6
          CON    0004        7         7
          CON    0002        8         8
          CON    0001        9         9
          CON    4000        +         12 
          CON    2000        -         11 
          CON    2042        *         11-8-4 
          CON    1400        /         0-1
          CON    1042        (         0-8-4
          CON    4042        )         12-8-4 
          CON    2102        $         11-8-3 
          CON    0102        =         8-3
          CON    0000        BLANK     NO PUNCH 
          CON    1102        ,         0-8-3
          CON    4102        .         12-8-3 
          CON    1012        #         0-8-6
          CON    0006        [         8-7
          CON    1202        ]         0-8-2
          CON    0012        PERCENT   8-6
          CON    0042        "         8-4
          CON    1022        _         0-8-5
          CON    3000        !         11-0 
          CON    1006        &         0-8-7
          CON    2022        '         11-8-5 
          CON    2012        ?         11-8-6 
          CON    5000        <         12-0 
          CON    2006        >         11-8-7 
          CON    0022        @         8-5
          CON    4022        \         12-8-5 
          CON    4012        ^         12-8-6 
          CON    4006        ;         12-8-7 
  
          LOC    *O 
          ENDX
