Author: mcayland Date: 2010-01-03 04:44:01 +0100 (Sun, 03 Jan 2010) New Revision: 659
Modified: trunk/openbios-devel/forth/debugging/client.fs Log: Add Fcode as a suitable executable payload for init-program.
Modified: trunk/openbios-devel/forth/debugging/client.fs =================================================================== --- trunk/openbios-devel/forth/debugging/client.fs 2010-01-02 12:49:30 UTC (rev 658) +++ trunk/openbios-devel/forth/debugging/client.fs 2010-01-03 03:44:01 UTC (rev 659) @@ -262,6 +262,40 @@ then ;
+: fcode? + " load-base" evaluate c@ + dup h# f0 = if \ start0 + drop + true + exit + then + dup h# f1 = if \ start1 + drop + true + exit + then + dup h# f2 = if \ start2 + drop + true + exit + then + dup h# f3 = if \ start4 + drop + true + exit + then + h# fd = if \ version1 + true + exit + then + false + ; + +: init-program-fcode + " load-base" evaluate 8 + + 1 byte-load + ; + : init-program ( -- ) elf? if init-program-elf @@ -279,6 +313,10 @@ init-program-bootinfo exit then + fcode? if + init-program-fcode + exit + then ;
: (encode-bootpath) ( "{params}<cr>" -- bootpath-str bootpath-len)