r476 - in cpu/i8051: . build

Author: wmb
Date: 2007-07-20 02:34:15 +0200 (Fri, 20 Jul 2007)
New Revision: 476

Added:
   cpu/i8051/build/Makefile
Modified:
   cpu/i8051/build/
   cpu/i8051/kernel.bth
   cpu/i8051/target.fth
Log:
i8051 kernel - Checkpoint

Property changes on: cpu/i8051/build
___________________________________________________________________
Name: svn:ignore
   + *.hex
build

Added: cpu/i8051/build/Makefile
===================================================================
--- cpu/i8051/build/Makefile	                        (rev 0)
+++ cpu/i8051/build/Makefile	2007-07-20 00:34:15 UTC (rev 476)
@@ -0,0 +1,32 @@
+SIMTTY = /dev/pts/1
+
+OS := $(shell uname)
+
+# XXX need a better way of determining this
+HOST := x86
+
+XHOSTDIR := $(shell eval "(cd ../../${HOST}/${OS}; pwd)")
+
+all: kernel.hex
+
+.PHONY: FORCE all clean
+
+.PRECIOUS: kernel.img
+
+${XHOSTDIR}/forth:
+	@make -C ${XHOSTDIR} forth
+
+sim:  kernel.hex
+	s51 -s ${SIMTTY} -X 32M /c/Temp/kernel.hex
+
+build: ${XHOSTDIR}/forth
+	@ln -sf ${XHOSTDIR}/forth $@
+
+%.img: FORCE build
+	./build $@
+
+%.hex: %.img
+	objcopy -I binary -O ihex $< $@
+
+clean:
+	rm -f *.img *.hex *.log headers *~ build

Modified: cpu/i8051/kernel.bth
===================================================================
--- cpu/i8051/kernel.bth	2007-07-19 22:28:50 UTC (rev 475)
+++ cpu/i8051/kernel.bth	2007-07-20 00:34:15 UTC (rev 476)
@@ -18,7 +18,7 @@
 fload ${BP}/forth/kernel/meta1.fth

only forth also meta also definitions
-\needs 8015-assembler caps @ caps on  fload ${BP}/cpu/i8051/assem.fth caps !
+fload ${BP}/cpu/i8051/assem.fth

only forth also meta assembler also meta definitions
 : assembler  ( -- )  8051-assembler  ;

Modified: cpu/i8051/target.fth
===================================================================
--- cpu/i8051/target.fth	2007-07-19 22:28:50 UTC (rev 475)
+++ cpu/i8051/target.fth	2007-07-20 00:34:15 UTC (rev 476)
@@ -91,9 +91,8 @@
 : link-t@  ( host-address -- target-address )  a-t@  ;
 : link-t!  ( target-address host-address -- )  a-t!  ;

-\ Machine independent
 : a-t, ( target-address -- )  here  /a-t allot  a-t!  ;
-: token-t, ( target-address -- )  here  /token-t allot  token!-t  ;
+: token-t, ( target-address -- )  here  /token-t allot  token-t!  ;

\ Dictionary linked list; the list head is in the metacompiler environment
 \ during metacompilation