r659 - trunk/openbios-devel/forth/debugging

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)