Z80 port (cleaned up version)

.gitignore

@@ -0,0 +1,22 @@
+*.bin
+*.hlr
+*.ihx
+*.lst
+*.map
+*.o
+*.rel
+*.rst
+*.seed
+/common/crc10.forth
+/emu_z80/emu_z80
+/i386/preForth
+/i386/preForth.asm
+/i386/preForthDemo
+/i386/preForthDemo.asm
+/i386/seedForth
+/i386/seedForth.asm
+/i386/__temp__.fs
+/z80/preForth.asm
+/z80/preForthDemo.asm
+/z80/seedForth.asm
+/z80/__temp__.fs

.gitmodules

@@ -0,0 +1,6 @@
+[submodule "emu_z80/z80"]
+	path = emu_z80/z80
+	url = https://github.com/nickd4/z80.git
+[submodule "asxv5pxx"]
+	path = asxv5pxx
+	url = https://github.com/nickd4/asxv5pxx.git

COPYRIGHT

@@ -0,0 +1,16 @@
+preForth, seedForth, seedForthInteractive
+Copyright 2018-2020 Ulrich Hoffman <[email protected]>
+Copyright 2022 Nick Downing <[email protected]>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.

Makefile

@@ -0,0 +1,30 @@
+.PHONY: all
+all: asxv5pxx common emu_z80 i386 z80
+
+.PHONY: asxv5pxx
+asxv5pxx:
+	$(MAKE) $(MAKEFLAGS) -C asxv5pxx/asxmak/linux/build asz80 aslink
+
+.PHONY: common
+common:
+	$(MAKE) $(MAKEFLAGS) -C common
+
+.PHONY: emu_z80
+emu_z80: asxv5pxx
+	$(MAKE) $(MAKEFLAGS) -C emu_z80
+
+.PHONY: i386
+i386: common
+	$(MAKE) $(MAKEFLAGS) -C i386
+
+.PHONY: z80
+z80: emu_z80 common
+	$(MAKE) $(MAKEFLAGS) -C z80
+
+clean:
+	$(MAKE) $(MAKEFLAGS) -C asxv5pxx/asxmak/linux/build clean
+	# avoid git complaining of changes in subrepo:
+	touch asxv5pxx/asxmak/linux/exe/_exe
+	$(MAKE) $(MAKEFLAGS) -C common clean
+	$(MAKE) $(MAKEFLAGS) -C emu_z80 clean
+	$(MAKE) $(MAKEFLAGS) -C i386 clean

README.md

@@ -83,3 +83,6 @@ Inspect sources and generated files.
 
 *Have fun. May the Forth be with you.*
 
+# Copyright and license
+
+Please see the files `COPYRIGHT` and `LICENSE` in the root of this repository.

common/Makefile

@@ -0,0 +1,15 @@
+# Set HOSTFORTH to the Forth system that generates the initial preForth
+# ------------------------------------------------------------------------
+HOSTFORTH=gforth
+# HOSTFORTH=sf   # SwiftForth >3.7
+# ------------------------------------------------------------------------
+
+.PHONY: all
+all: crc10.forth
+
+crc10.forth: crc10_gen.forth
+	$(HOSTFORTH) $^ -e bye >$@
+
+.PHONY: clean
+clean:
+	rm -f crc10.forth

common/crc10_gen.forth

@@ -0,0 +1,50 @@
+\ run this as follows:
+\ ./seedForth seedForthBoot.seed runtime.forth crc10_gen.forth >crc10.forth
+
+817 Constant poly \ CRC-10/ATM, truncated polynomial 0x233, bit reversed 0x331
+
+\ we don't want MS-DOS style line endings in the generated CRC table file
+: lf 10 emit ;
+
+: gen
+  ." Create crc10_tab" lf
+  256 0 ?DO
+    I 8 0 ?DO
+      \ split into LSB and the remaining bits
+      \ in seedForth: 2 u/mod swap
+      \ in gForth: 2 /mod swap
+      dup 1 rshift swap 1 and
+
+      IF poly xor THEN
+    LOOP
+    . ',' emit
+    I 7 and 7 = IF lf ELSE space THEN
+  LOOP
+  lf
+  ." : crc10 ( addr len crc -- crc )" lf
+  ."   swap 0 ?DO ( addr crc )" lf
+  ."     \ retrieve next character" lf
+  ."     over I + c@" lf
+  lf
+  ."     \ xor into low bits of crc" lf
+  ."     xor" lf
+  lf
+  ."     \ separate into table index and remaining bits" lf
+  ."     \ 256 u/mod swap" lf
+  ."     dup 8 rshift swap 255 and" lf
+  lf
+  ."     \ look up new bits from table" lf
+  ."     cells crc10_tab + @" lf
+  lf
+  ."     \ combine with remaining (shifted right) bits" lf
+  ."     xor" lf
+  ."   LOOP" lf
+  ."   nip" lf
+  ." ;" lf
+  lf
+  ." \ testing:" lf
+  ." \ Create hello 104 c, 101 c, 108 c, 108 c, 111 c," lf
+  ." \ hello 5 1023 crc10 . ;" lf
+;
+
+gen