izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 01:58:06 +11:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-16 22:36:29 -04:00
parent 5d5517ac44
commit 839d7097e7
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
apps/forth/core.fs
View File

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

11
apps/forth/dict.asm
View File

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

2
apps/forth/dictionary.txt
View File

@ -121,6 +121,8 @@ H -- a HERE @
-^ a b -- c b - a -> c -^ a b -- c b - a -> c
* a b -- c a * b -> c * a b -- c a * b -> 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 *** *** Logic ***
= n1 n2 -- f Push true if n1 == n2 = n1 n2 -- f Push true if n1 == n2