( SIMPLE INTEL HEX RECORD LOADER FOR MAXFORTH V3.5
( DOES NOT CHECK CHECKSUM
(
( EDIT TO CHANGE LOAD-OFFSET IF OFFSET IS NEEDED
( OTHERWISE LOAD WILL BEGIN WITH 0 OFFSET

( COLD

HEX

0 CONSTANT LOAD-OFFSET ( CHANGE OFFSET IF LOAD ADDR IS NOT RUN ADDR

: GETC
  >IN @ TIB @ + C@ 1 >IN +! ;

: 1# ( -- n )
  GETC 30 - DUP 9 > IF 7 - THEN 0 MAX F MIN ;

: 2# ( -- nn )
  1# 10 *  1# + ;

: 4# ( -- nnnn )
  2# >< 2# OR ;

: XC! ( n addr -- )
   2DUP C! 2DUP C@ = IF 2DROP EXIT THEN EEC! ;

: IREC
   CR ." READY TO LOAD, OFFSET = " LOAD-OFFSET U. CR
   BEGIN
      QUERY
      GETC 3A = IF              ( ":"
         2#                     ( len
         4# LOAD-OFFSET +       ( len addr
         2# 1 = IF
            2DROP 0 #TIB ! EXIT
         THEN
         SWAP OVER + SWAP DO
            2# I XC!
         LOOP
         CR
      THEN
   AGAIN ;

IREC