MACRO                                                          00001000
         DECHEX                                                         00002000
.*  THIS MACRO CONVERTS A DECIMAL NUMBER TO A HEX CHARACTER             00003000
         GBLA  &DEC                                                     00004000
         GBLB  &RCODE                                                   00005000
         GBLC  &HEX                                                     00006000
         AIF   (&DEC GE 0 AND &DEC LE 15).VALID                         00007000
&RCODE   SETB  1                                                        00008000
         MEXIT                                                          00009000
.VALID   ANOP                                                           00010000
&HEX     SETC  '0123456789ABCDEF'(&DEC+1,1)                             00011000
&RCODE   SETB  0                                                        00012000
         MEND                                                           00013000