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

forth: Forth-ify "-"

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-27 11:36:58 -04:00
parent 005dd98fc2
commit 941224be94
3 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

16
forth/forth.asm
View File

@ -1318,23 +1318,11 @@ PLUS:
push hl push hl
jp next jp next
; ( a b -- c ) A - B .fill 18
.db "-"
.dw $-PLUS
.db 1
MINUS:
.dw nativeWord
pop de ; B
pop hl ; A
call chkPS
or a ; reset carry
sbc hl, de
push hl
jp next
; ( a1 a2 -- b ) ; ( a1 a2 -- b )
.db "SCMP" .db "SCMP"
.dw $-MINUS .dw $-PLUS
.db 4 .db 4
SCMP: SCMP:
.dw nativeWord .dw nativeWord

9
forth/z80c.fs
View File

@ -113,6 +113,15 @@ CODE XOR
HL PUSHqq, HL PUSHqq,
;CODE ;CODE
CODE -
DE POPqq,
HL POPqq,
chkPS,
A ORr,
DE SBCHLss,
HL PUSHqq,
;CODE
CODE * CODE *
DE POPqq, DE POPqq,
BC POPqq, BC POPqq,