MACRO                                                          00001000
         HEXDEC                                                         00002000
.*  THIS MACRO CONVERTS A HEX CHARACTER TO A DECIMAL NUMBER             00003000
         GBLA  &DEC                                                     00004000
         GBLB  &RCODE                                                   00005000
         GBLC  &HEX                                                     00006000
         AIF   ('&HEX' GE '0' AND '&HEX' LE '9').N09                    00007000
         AIF   ('&HEX' EQ 'A').N10                                      00008000
         AIF   ('&HEX' EQ 'B').N11                                      00009000
         AIF   ('&HEX' EQ 'C').N12                                      00010000
         AIF   ('&HEX' EQ 'D').N13                                      00011000
         AIF   ('&HEX' EQ 'E').N14                                      00012000
         AIF   ('&HEX' EQ 'F').N15                                      00013000
&RCODE   SETB  1                                                        00014000
         MEXIT                                                          00015000
.N09     ANOP                                                           00016000
&DEC    SETA  &HEX                                                      00017000
         AGO   .END                                                     00018000
.N10     ANOP                                                           00019000
&DEC    SETA  10                                                        00020000
         AGO   .END                                                     00021000
.N11     ANOP                                                           00022000
&DEC    SETA  11                                                        00023000
         AGO   .END                                                     00024000
.N12     ANOP                                                           00025000
&DEC    SETA  12                                                        00026000
         AGO   .END                                                     00027000
.N13     ANOP                                                           00028000
&DEC    SETA  13                                                        00029000
         AGO   .END                                                     00030000
.N14     ANOP                                                           00031000
&DEC    SETA  14                                                        00032000
         AGO   .END                                                     00033000
.N15     ANOP                                                           00034000
&DEC    SETA  15                                                        00035000
.END     ANOP                                                           00036000
&RCODE   SETB  0                                                        00037000
         MEND                                                           00038000