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

forth: Forth-ify "SCMP"

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-28 15:14:15 -04:00
parent 400ef99b54
commit 7c9d799d93
3 changed files with 17 additions and 17 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.

22
forth/forth.asm
View File

@ -122,6 +122,8 @@ LIT:
.dw litWord .dw litWord
.dw INITIAL_SP .dw INITIAL_SP
.dw WORDBUF .dw WORDBUF
jp flagsToBC
jp strcmp
; *** Code *** ; *** Code ***
forthMain: forthMain:
@ -180,7 +182,7 @@ INTERPRET:
.dw DROP .dw DROP
.dw EXECUTE .dw EXECUTE
.fill 56 .fill 50
; STABLE ABI ; STABLE ABI
; Offset: 00cd ; Offset: 00cd
@ -980,25 +982,11 @@ PLUS:
push hl push hl
jp next jp next
.fill 18 .fill 42
; ( a1 a2 -- b )
.db "SCMP"
.dw $-PLUS
.db 4
SCMP:
.dw nativeWord
pop de
pop hl
call chkPS
call strcmp
call flagsToBC
push bc
jp next
; ( n1 n2 -- f ) ; ( n1 n2 -- f )
.db "CMP" .db "CMP"
.dw $-SCMP .dw $-PLUS
.db 3 .db 3
CMP: CMP:
.dw nativeWord .dw nativeWord

12
forth/z80c.fs
View File

@ -254,3 +254,15 @@ CODE (resSP)
( INITIAL_SP == JTBL+28 ) ( INITIAL_SP == JTBL+28 )
SP JTBL 28 + @ LDdd(nn), SP JTBL 28 + @ LDdd(nn),
;CODE ;CODE
CODE SCMP
DE POPqq,
HL POPqq,
chkPS,
( JTBL+35 == strcmp )
JTBL 35 + CALLnn,
( JTBL+32 == flagsToBC )
JTBL 32 + CALLnn,
BC PUSHqq,
;CODE