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

forth: Forth-ify "C,"

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-27 19:12:46 -04:00
parent 29dcddb8cd
commit 26871be6f2
3 changed files with 8 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.

18
forth/forth.asm
View File

@ -720,24 +720,10 @@ EMIT:
.dw EXIT .dw EXIT
.fill 49 .fill 71
.db "C,"
.dw $-EMIT
.db 2
CWR:
.dw nativeWord
pop de
call chkPS
ld hl, (HERE)
ld (hl), e
inc hl
ld (HERE), hl
jp next
.db "," .db ","
.dw $-CWR .dw $-EMIT
.db 1 .db 1
WR: WR:
.dw nativeWord .dw nativeWord

7
forth/icore.fs
View File

@ -81,6 +81,11 @@
AGAIN AGAIN
; ;
: C,
HERE @ _c C!
HERE @ 1 + HERE !
;
: (entry) : (entry)
HERE @ ( h ) HERE @ ( h )
WORD ( h s ) WORD ( h s )
@ -92,7 +97,7 @@
( write prev value ) ( write prev value )
HERE @ CURRENT @ _c - , HERE @ CURRENT @ _c - ,
( write size ) ( write size )
C, _c C,
HERE @ CURRENT ! HERE @ CURRENT !
; ;