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