forth: add words "MOD" and "/MOD"

apps/forth/core.fs

@@ -47,3 +47,5 @@
 : = CMP NOT ;
 : < CMP 0 1 - = ;
 : > CMP 1 = ;
+: / /MOD SWAP DROP ;
+: MOD /MOD DROP ;

apps/forth/dict.asm

@@ -734,23 +734,24 @@ MULT:
 	push	hl
 	jp	next
 
-; ( a b -- c ) A / B
+
-	.db "/"
+	.db	"/MOD"
-	.fill 6
+	.fill	3
 	.dw MULT
 	.db 0
-DIV:
+DIVMOD:
 	.dw nativeWord
 	pop	de
 	pop	hl
 	call	divide
+	push	hl
 	push	bc
 	jp	next
 
 ; ( a1 a2 -- b )
 	.db "SCMP"
 	.fill 3
-	.dw DIV
+	.dw DIVMOD
 	.db 0
 SCMP:
 	.dw nativeWord

apps/forth/dictionary.txt

@@ -121,6 +121,8 @@ H           -- a            HERE @
 -^          a b -- c        b - a -> c
 *           a b -- c        a * b -> c
 /           a b -- c        a / b -> c
+MOD         a b -- c        a % b -> c
+/MOD        a b -- r q      r:remainder q:quotient
 
 *** Logic ***
 =           n1 n2 -- f      Push true if n1 == n2