r475 - cpu/i8051

Author: wmb
Date: 2007-07-20 00:28:50 +0200 (Fri, 20 Jul 2007)
New Revision: 475

Modified:
   cpu/i8051/assem.fth
Log:
8051 assembler - fixed but in <resolve; it was not allot'ing the offset byte,
so the next instruction overwrote it.

Modified: cpu/i8051/assem.fth
===================================================================
--- cpu/i8051/assem.fth	2007-07-19 09:51:02 UTC (rev 474)
+++ cpu/i8051/assem.fth	2007-07-19 22:28:50 UTC (rev 475)
@@ -358,7 +358,7 @@
    here  swap  rel!
 ;
 : <mark  ( -- to )  here  ;
-: <resolve  ( from -- )  here  rel!  ;
+: <resolve  ( to -- )  rel,  ;

: but  ( mark1 mark1 -- mark2 mark1 )  swap  ;
 : yet  ( mark -- mark mark )  dup  ;