Initial headers for core assembly

cassiemeharry · Oct 21, 2012 · 1f60616 · 1f60616
1 parent 11fc707
commit 1f60616
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/forth-core.dasm b/forth-core.dasm
@@ -0,0 +1,16 @@
+include(`forth-macros.m4')
+
+; Stack diagrams are read as follows:
+;        BEFORE                AFTER
+; ( bottom middle top -- bottom middle top )
+
+	set pc, _START
+
+:DOCOL
+	PUSHRSP(i)
+	add z, 1		; Move skip the DOCOL word
+	set i, z		; Save in i to prepare for NEXT
+	NEXT
+
+:_START
+	set pc, _START