*COMDECK E26ASC 
********************************************* 
*                                           * 
* EBCDIC(26) TO ASCII CONVERSION TABLE      * 
*                                           * 
********************************************* 
          SPC    1
          NAM    E26ASC 
*CALL HASPMACRO 
          ENT    E26ASC 
E26ASC    VMTR   20           -             , -                ($00,$07)
          VMTR   20           -             , -                ($08,$0F)
          VMTR   20           -             , -                ($10,$17)
          VMTR   20           -             , -                ($18,$1F)
          VMTR   20           -             , -                ($20,$27)
          VMTR   20           -             , -                ($28,$2F)
          VMTR   20           -             , -                ($30,$37)
          VMTR   20           -             , -                ($38,$3F)
          VMC    20,20        SPACE         , -                ($40,$41)
          VMTR   20           -             ,                  ($42,$49)
          VMC    3C,2E        L. BRACKET    , PERIOD           ($4A,$4B)
          VMC    29,5C        )             , BACK SLANT       ($4C,$4D)
          VMC    5E,3B        CURCUMFLEX    , ;                ($4E,$4F)
          VMC    2B,20        +             , -                ($50,$51)
          VMTR   20           -             , -                ($52,$59)
          VMC    21,24        R. BRACKET    , $                ($5A,$5B)
          VMC    2A,27        *             , SINGLE QUOTE     ($5C,$5D)
          VMC    3F,3E        QUESTION MARK , >                ($5E,$5F)
          VMC    2D,2F        MINUS         , /                ($60,$61)
          VMTR   20           -                                ($62,$69)
          VMC    20,2C        -             , COMMA            ($6A,$6B)
          VMC    28,5F        (             , UNDERLINE        ($6C,$6D)
          VMC    23,26        POUND SIGN    , AMPERSAND        ($6E,$6F)
          VMTR   20           -                                ($70,$77)
          VMC    20,27        -             , GRAVE ACCENT     ($78,79) 
          VMC    3A,3D        COLON         , EQUALS           ($7A,$7B)
          VMC    22,40        DOUBLE QUOTE  , AT SIGN          ($7C,$7D)
          VMC    25,5B        PER CENT      , LEFT BRACKET     ($7E,$7F)
          VMC    20,41        -             , SM A - A         ($80,$81)
          VMTI   42           SM B - SM I     B - I            ($82,$89)
          VMC    20,20        -             , -                ($8A,$8B)
          VMC    20,20        -             , -                ($8C,$8D)
          VMC    20,20        -             , -                ($8E,$8F)
          VMC    20,4A        -             , SM J - J         ($90,$91)
          VMTI   4B           SM K - SM R     K - R            ($92,$99)
          VMTR   20           -             , -                ($9A,$A1)
          VMTI   53           SM S - SM Z   , S - Z            ($A2,$A9)
          VMTR   20           -                                ($AA,$B1)
          VMTR   20           -                                ($B2,$B9)
          VMC    20,20        -             , -                ($BA,$BB)
          VMC    20,20        -             , -                ($BC,$BD)
          VMC    20,20        -             , -                ($BE,$BF)
          VMC    3C,41        L. BRACKET    , A                ($C0,$C1)
          VMTI   42           B THRU I                         ($C2,$C9)
          VMC    20,20        -             , -                ($CA,$CB)
          VMC    20,20        -             , -                ($CC,$CD)
          VMC    20,20        -             , -                ($CE,$CF)
          VMC    21,4A        R. BRACKET    , J                ($D0,$D1)
          VMTI   4B           K THRU R                         ($D2,$D9)
          VMC    20,20        -             , -                ($DA,$DB)
          VMC    20,20        -             , -                ($DC,$DD)
          VMC    20,20        -             , -                ($DE,$DF)
          VMC    5D,20        RIGHT BRACKET , -                ($E0,$E1)
          VMTI   53           S THRU Z                         ($E2,$E9)
          VMC    20,20        -             , -                ($EA,$EB)
          VMC    20,20        -             , -                ($EC,$ED)
          VMC    20,20        -             , -                ($EE,$EF)
          VMTI   30           0 THRU 7                         ($F0,$F7)
          VMC    38,39        8             , 9                ($F8,$F9)
          VMC    20,20        -             , -                ($FA,$FB)
          VMC    20,20        -             , -                ($FC,$FD)
          VMC    20,20        -             , -                ($FE,$FF)
          END    E26ASC 
