[OpenBIOS] r659 - trunk/openbios-devel/forth/debugging
svn at openbios.org
svn at openbios.org
Sun Jan 3 04:44:02 CET 2010
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)
More information about the OpenBIOS
mailing list