Hex String to Integer

[Zenerdiode]

On the LZ we have the HEX$ function for returning a hexadecimal string representation of an integer - but not for the other way round. Here’s a function to do just that. Caveats are the hex letters must be in uppercase and string length must be four characters.

INTHEX%:
Syntax: x%=INTHEX%:(h$)
Returns a two byte integer value of the hexadecimal string expression in the brackets. For example: INTHEX%:(“20CD”) will return 8397.

Code: Select all

INTHEX%:(HX$)
LOCAL IN%(4),I%,M%,H$(1)
I%=1
DO
 H$=MID$(HX$,I%,1)
 IF ASC(H$) > 64 AND ASC(H$) < 71
  M%=ASC(H$) - 55
 ELSE
  M%=ASC(H$) - 48
 ENDIF
 IN%(I%)=M%
 I%=I%+1
UNTIL I%=5
RETURN (IN%(1)*4096)+(IN%(2)*256)+(IN%(3)*16)+IN%(4)