*COMDECK DC3BCD 
          NAM    DC3BCD 
*CALL CONVMACRO 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*        DISPLAY CODE (63 CHAR SET) TO BCD CONVERSION TABLE           * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
         ENT   DC3BCD 
DC3BCD   VMC   D0,31          NOTHING       , A               ($D0-$01) 
         VMC   32,B3          B             , C               ($02-$03) 
         VMC   34,B5          D             , E               ($04-$05) 
         VMC   B6,37          F             , G               ($06-$07) 
         VMC   38,B9          H             , I               ($08-$09) 
         VMC   A1,A2          J             , K               ($0A-$0B) 
         VMC   23,A4          L             , M               ($0C-$0D) 
         VMC   25,26          N             , O               ($0E-$0F) 
         VMC   A7,A8          P             , Q               ($10-$11) 
         VMC   29,52          R             , S               ($12-$13) 
         VMC   D3,54          T             , U               ($14-$15) 
         VMC   D5,D6          V             , W               ($16-$17) 
         VMC   57,58          X             , Y               ($18-$19) 
         VMC   D9,4A          Z             , 0               ($1A-$1B) 
         VMC   C1,C2          1             , 2               ($1C-$1D) 
         VMC   43,C4          3             , 4               ($1E-$1F) 
         VMC   45,46          5             , 6               ($20-$21) 
         VMC   C7,C8          7             , 8               ($22-$23) 
         VMC   49,B0          9             , +               ($24-$25) 
         VMC   20,2C          -             , *               ($26-$27) 
         VMC   51,DC          /             , (               ($28-$29) 
         VMC   BC,AB          )             , $               ($2A-$2B) 
         VMC   CB,D0          =             , SPACE           ($2C-$2D) 
         VMC   5B,3B          ,             , .               ($2E-$2F) 
         VMC   5E,4F          #             , [               ($30-$31) 
         VMC   DA,40          ]             , COLON           ($32-$33) 
         VMC   4C,5D          "             , RIGHT ARROW     ($34-$35) 
         VMC   2A,DF          !             , &               ($36-$37) 
         VMC   AD,AE          '             , DOWN ARROW      ($38-$39) 
         VMC   BA,2F          <             , >               ($3A-$3B) 
         VMC   CD,3D          @             , \               ($3C-$3D) 
         VMC   CE,BF          NOT SIGN      , ;               ($3E $3F) 
*                              PERCENT
          END 
