Alignment is now 2; low bit is still IMMEDIATE

2023-09-08 11:25:09 -04:00 · 2023-09-08 11:25:09 -04:00 · 9f4546e465
parent 4cac45c0d2
commit 9f4546e465
5 changed files with 8 additions and 6 deletions
--- a/2
+++ b/2
@ -7,5 +7,5 @@ all: nforth
 clean:
 	rm -f *.lst *~ *#

-nforth:	macros.asm nforth.asm nforth.f
+nforth:	macros.asm nforth.asm nforth.f config.asm
 	./build nforth
--- a/config.asm
+++ b/config.asm
@ -1,5 +1,5 @@
 MEMSIZE = $20000
 CFG_PRINT_SYMTAB = 1
-CFG_DEBUG = 10
+CFG_DEBUG = 0


--- a/BIN
+++ b/BIN
--- a/nforth.asm
+++ b/nforth.asm
@ -428,7 +428,8 @@ HEAD output,$+4
   DSTACK
 .loop:
 	xor     edx,edx 
-	div     ebx
+	div     ecx
+
 	push    edx		            ;push digit
 	inc     ebx		            ;count it
 	test    eax,eax
@ -611,7 +612,7 @@ HEAD ERXIT,$+4

 HEAD gettype,$+4  		;entry--type
 	movzx	ebx,word[ebx-8]
-    and     ebx,3
+    and     ebx,ALIGN_NONCE
 	NEXT
 ;;-------------------------------------------------------------------
 ;; '  [srcword]
--- a/nforth.f
+++ b/nforth.f
@ -3,7 +3,8 @@
 \ else [ parsereset begin INTERPRET again ]
 \ thanx ]

-\ : included; [ drop push zero zero pop osopen uncompile loadh pop drop ; ]
+ : included; [ drop push zero zero pop osopen uncompile loadh pop drop ; ]
+
+ [ " nf.f" included; ]

-\ [ " nf.f" included; ]