*COMDECK ASKBCD 
          NAM    ASKBCD 
*CALL CONVMACRO 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     MODE 4   ASCII TO EXTERNAL BCD                                  * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EJT 
          ENT    ASKBCD 
ASKBCD    VMTR   D0           -                                ($00-$07)
          VMTR   D0           -                                ($08-$0F)
          VMC    D0,D0       SPACE      , SPACE 
          VMC    D0,D0       SPACE      , SPACE 
          VMC    D0,D0       SPACE      , SPACE 
          VMC    16,D0       SYNC       , SPACE 
         VMTR    D0           -                                ($18-$1F)
          VMC    D0,2A        SPACE      , EXCLAMATION         ($20-$21)
          VMC    4C,5E        QUOTE      , NUMERIC             ($22-$23)
          VMC    AB,CE        DOLLAR     , PERCENT             ($24-$25)
          VMC    DF,AD        AMPERSAND  , APOSTROPHE          ($26-$27)
          VMC    DC,BC        LEFT PAREN , RIGHT PAREN         ($28-$29)
          VMC    2C,B0        ASTERISK   , PLUS                ($2A-$2B)
          VMC    5B,20        COMMA      , MINUS               ($2C-$2D)
          VMC    3B,51        PERIOD     , SLASH               ($2E-$2F)
          VMC    4A,C1        0          , 1                   ($30-$31)
          VMC    C2,43        2          , 3                   ($32-$33)
          VMC    C4,45        4          , 5                   ($34-$35)
          VMC    46,C7        6          , 7                   ($36-$37)
          VMC    C8,49        8          , 9                   ($38-$39)
          VMC    40,BF        COLON      , SEMI-COLON          ($3A-$3B)
          VMC    BA,CB        LESS THAN  , EQUAL               ($3C-$3D)
          VMC    2F,AE        GREATER    , QUESTION MARK       ($3E-$3F)
          VMC    CD,31        COMM AT    , A                   ($40-$41)
          VMC    32,B3        B          , C                   ($42-$43)
          VMC    34,B5        D          , E                   ($44-$45)
          VMC    B6,37        F          , G                   ($46-$47)
          VMC    38,B9        H          , I                   ($48-$49)
          VMC    A1,A2        J          , K                   ($4A-$4B)
          VMC    23,A4        L          , M                   ($4C-$4D)
          VMC    25,26        N          , O                   ($4E-$4F)
          VMC    A7,A8        P          , Q                   ($50-$51)
          VMC    29,52        R          , S                   ($52-$53)
          VMC    D3,54        T          , U                   ($54-$55)
          VMC    D5,D6        Y          , W                   ($56-$57)
          VMC    57,58        X          , Y                   ($58-$59)
          VMC    D9,4F        Z          , LEFT BRACKET        ($5A-$5B)
          VMC    3D,DA        REV SLASH  , RIGHT BRACKET       ($5C-$5D)
          VMC    D0,5D        LOG AND    , UNDERLINE           ($5E-$5F)
          VMC    CD,31        ACCENT     , LC A                ($60-$61)
          VMC    32,B3        LC B       , LC C                ($62-$63)
          VMC    34,B5        LC D       , LC E                ($64-$65)
          VMC    B6,37        LC F       , LC G                ($66-$67)
          VMC    38,B9        LC H       , LC I                ($68-$69)
          VMC    A1,A2        LC J       , LC K                ($6A-$6B)
          VMC    23,24        LC L       , LC M                ($6C-$6D)
          VMC    25,26        LC N       , LC O                ($6E-$6F)
          VMC    A7,A8        LC P       , LC Q                ($70-$71)
          VMC    29,52        LC R       , LC S                ($72-$73)
          VMC    D3,54        LC T       , LC U                ($74-$75)
          VMC    D5,D6        LC V       , LC W                ($76-$77)
          VMC    57,58        LC X       , LC Y                ($78-$79)
          VMC    D9,4F        LC Z       , LEFT BRACE          ($7A-$7B)
          VMC    3D,DA        VERT LINE  , RIGH BRACE          ($7C-$7D)
          VMC    D0,5D        APPROX     , DEL                 ($7E-$7F)
          END 
          EJT 
