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

forth: fix "NOT"

Browse Source 
Ouh, I need a solution here...
This commit is contained in:
Virgil Dupras 2020-03-11 19:59:10 -04:00
parent ea5f33558a
commit d8542f7cf7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
apps/forth/dict.asm
View File

@ -658,6 +658,7 @@ CONSTANT:
.dw FETCH
.dw EXIT
; TODO: find a way to express IF/THEN/ELSE in core dict more easily.
; ( f -- f )
; IF 0 ELSE 1 THEN
.db "NOT"
@ -665,13 +666,14 @@ CONSTANT:
.dw CONSTANT
NOT:
.dw compiledWord
.dw IF
.dw CBRANCH
.db 8
.dw NUMBER
.dw 0
.dw ELSE
.dw BRANCH
.db 5
.dw NUMBER
.dw 1
.dw THEN
.dw EXIT
; ( n1 n2 -- f )