parse ihx

ihx_loop = ihx_len+1
DO i = 1 WHILE i < ihx_loop
    DO
    ich = CHARIN(ihxfpathname,,)
    IF(ich=':') THEN DO
                datalen = X2D(CHARIN(ihxfpathname,,2))
                i = i+2
                offset  = CHARIN(ihxfpathname,,4)
                i = i+4
                rectype = CHARIN(ihxfpathname,,2)
                i = i+2
                data    = CHARIN(ihxfpathname,,2*datalen)
                i = i+datalen
                crc     = CHARIN(ihxfpathname,,2)
                a   = CHAROUT(binfpathname,X2C(data),)
                END
    END
END