Re: Byte to Hex
enigma, Here is a subroutine I use to output ascii equivalent data for a word in hex:
'************************************************* ********************
HEXOUT: 'DECODE WORD INTO HEX CHARACTERS AND OUTPUT
'************************************************* ********************
'data to decode is placed in variable SCRATCH
'TX_CHAR is decodes ascii character
JUNK = 3 'number of hex characters
WHILE JUNK < 255
BITS4 = SCRATCH >> (4 * JUNK) 'MOST SIGNIFICANT 4 BITS
BITS4 = BITS4 & $0F
IF BITS4 < 10 THEN
TX_CHAR = BITS4 + $30
GOSUB SNDCHAR: 'INCREMENT BUFFER POINTERS
ELSE
TX_CHAR = (BITS4 - 10) + $41
GOSUB SNDCHAR: 'INCREMENT BUFFER POINTERS
endif
JUNK = JUNK -1
WEND
RETURN
Enjoy...
Dave Purola,
N8NTA
EN82fn
Bookmarks