------------------------<snip>-------------------
Hi all,
Does anyone have a quick assembler routine to convert a hexadecimal
number represented in EBCDIC into the real hex number?
------------------------<unsnip>-----------------------
TR SOURCE,HEXTAB
PACK RESULT(L'RESULT+1),SOURCE(L'SOURCE+!)
HEXTAB DC 256AL1(*-HEXTAB)
ORG HEXTAB+C'A'
DC X'FAFBFCFDFEFF'
ORG
Should do just fine. Be careful of length values in UNPK instruction.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html