3 ms·
My 6502 Apple ][ FORTH based on FIG FORTH had a "Character Literal" CLIT, that saved one byte compared LIT. With a quick google I was able to find CLIT: https
by DonHopkins 9mo ago
My 6502 Apple ][ FORTH based on FIG FORTH had a "Character Literal" CLIT, that saved one byte compared LIT.
With a quick google I was able to find CLIT:
https://github.com/wa1tnr/figforth-local/blob/main/fig6502.txt#L150 https://github.com/wa1tnr/figforth-local/blob/main/fig6502.t...
; CLIT pushes the next inline byte to data stack
;
L35: .BYTE $84,"CLI",$D4
.WORD L22 ; Link to LIT
CLIT: .WORD *+2
LDA (IP),Y
PHA
TYA
BEQ L31 ; a forced branch into LIT
I was also able to find COLON, which is threaded code instead of assembly:
https://github.com/wa1tnr/figforth-local/blob/main/fig6502.txt#L1047 https://github.com/wa1tnr/figforth-local/blob/main/fig6502.t...
L823: .BYTE $C1,$BA
.WORD L813 ; link to C!
COLON: .WORD DOCOL
.WORD QEXEC
.WORD SCSP
.WORD CURR
.WORD AT
.WORD CON
.WORD STORE
.WORD CREAT
.WORD RBRAC
.WORD PSCOD