@@ -720,24 +720,10 @@ EMIT: | |||||
.dw EXIT | .dw EXIT | ||||
.fill 49 | |||||
.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 | |||||
.fill 71 | |||||
.db "," | .db "," | ||||
.dw $-CWR | |||||
.dw $-EMIT | |||||
.db 1 | .db 1 | ||||
WR: | WR: | ||||
.dw nativeWord | .dw nativeWord | ||||
@@ -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 ! | ||||
; | ; | ||||