Forth: Add DUMP ( a1 a2 -- ) rudimentary mem dump

adumont · Nov 8, 2021 · bbdf84b · bbdf84b
1 parent 75e536b
commit bbdf84b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/forth.s b/forth.s
@@ -2461,6 +2461,8 @@ BOOT_PRG:
 	.BYTE " : t 8 L@ ; : t! 8 L! ;"
 ; End of Local variables support
 
+	.BYTE " : DUMP SWAP DUP . DO I C@ C. LOOP ; " ; ( addr1 addr2 -- ) dumps memory from addr1 to addr2
+
 	.BYTE " MARKER " ; so we can return to this point using FORGET
 	.BYTE " PRMP" ; Shows ok prompt to user