mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:18:06 +11:00
forth: Forth-ify "IMMEDIATE"
This commit is contained in:
parent
41cd8086d4
commit
8f990ff954
Binary file not shown.
@ -781,19 +781,10 @@ DOES:
|
||||
jp EXIT+2
|
||||
|
||||
|
||||
.db "IMMEDIATE"
|
||||
.dw $-DOES
|
||||
.db 9
|
||||
IMMEDIATE:
|
||||
.dw nativeWord
|
||||
ld hl, (CURRENT)
|
||||
dec hl
|
||||
set FLAG_IMMED, (hl)
|
||||
jp next
|
||||
|
||||
.fill 23
|
||||
|
||||
.db "IMMED?"
|
||||
.dw $-IMMEDIATE
|
||||
.dw $-DOES
|
||||
.db 6
|
||||
ISIMMED:
|
||||
.dw nativeWord
|
||||
|
@ -79,6 +79,7 @@
|
||||
0xc5 OP1qq PUSHqq,
|
||||
0xc1 OP1qq POPqq,
|
||||
0x03 OP1qq INCss,
|
||||
0x0b OP1qq DECss,
|
||||
0x09 OP1qq ADDHLss,
|
||||
|
||||
: _1rr
|
||||
|
@ -227,3 +227,9 @@ CODE R>
|
||||
JTBL 12 + CALLnn,
|
||||
HL PUSHqq,
|
||||
;CODE
|
||||
|
||||
CODE IMMEDIATE
|
||||
CURRENT LDHL(nn),
|
||||
HL DECss,
|
||||
7 (HL) SETbr,
|
||||
;CODE
|
||||
|
Loading…
Reference in New Issue
Block a user