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