*COMDECK BCDASK 
          NAM    BCDASK 
*CALL CONVMACRO 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     MODE 4  EXTERNAL BCD TO ASCII CODE CONVERSION                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
         SPC     3
          ENT    BCDASK 
BCDASK    VMTR   20           -                                ($00-$07)
          VMTR   20           -                                ($08-$0F)
          VMTR   20           -                                ($10-$17)
          VMTR   20           -                                ($18-$1F)
         VMC     2D,4A        -          , J                   ($20-$21)
         VMC     4B,4C        K          , L                   ($22-$23)
         VMC     4D,4E        M          , N                   ($24-$25)
         VMC     4F,50        O          , P                   ($26-$27)
         VMC     51,52        Q          , R                   ($28-$29)
         VMC     21,24        LOG OR     , $                   ($2A-$2B)
         VMC     2A,27        *          , UP ARROW            ($2C-$2D)
         VMC     3F,3E        DOWN ARROW , GREATER THAN        ($2F-$2E)
         VMC     2B,41        +          , A                   ($30-$31)
         VMC     42,43        B          , C                   ($32-$33)
         VMC     44,45        D          , E                   ($34-$35)
         VMC     46,47        F          , G                   ($36-$37)
         VMC     48,49        H          , I                   ($38-$39)
         VMC     3C,2E        LESS THAN  , .                   ($3A-$3!)
         VMC     29,5C        )          , GREATER-EQUAL       ($3C-$3D)
         VMC   1B,3B          ESCAPE     , ;                   ($3E-$3F)
         VMC     3A,31        COLON      , 1                   ($40-$41)
         VMC     32,33        2          , 3                   ($42-$43)
         VMC     34,35        4          , 5                   ($44-$45)
         VMC     36,37        6          , 7                   ($46-$47)
         VMC     38,39        8          , 9                   ($48-$49)
         VMC     30,3D        0          , =                   ($4A-$4B)
         VMC     22,40        "          , LESS-EQUAL          ($4C-$4D)
         VMC     25,5B        PERCENT    , L BRA CKET          ($4E-$4F)
         VMC     20,2F        SPACE      , SLASH               ($50-$51)
         VMC     53,54        S          , T                   ($52-$53)
         VMC     55,56        J          , V                   ($54-$55)
         VMC     57,58        W          , X                   ($56-$57)
         VMC     59,5A        Y          , Z                   ($58-$59)
         VMC     5D,2C        R BRACKET  , ,                   ($5A-$5B)
         VMC     28,5F        L PAREN    , R ARROW             ($5C-$5D)
         VMC     23,26        IDENTITY   , LOGICAL AND         ($5E-$5F)
          VMTR   20           -                                ($60-$68)
          VMTR   20           -                                ($69-$6F)
          VMTR   20           -                                ($70-$78)
          VMTR   20           -                                ($79-$7F)
         END
          EJT 
