6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-25 10:30:57 +00:00
Code Issues Projects Releases Wiki Activity

Fix broken platform-specific commenting-out mechanism around (CX for Commander X16

Browse Source
This commit is contained in:
Philip Zembrod 2020-12-18 22:07:42 +01:00
parent 3db4ae726c
commit 7ee360b6c2
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
6502/C64/src/vf-finalize.fth
View File

@ -11,17 +11,21 @@ Target
Forth also definitions Forth also definitions
(C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate
(C16 : (64 ) \ jumps belhind C) (C16 : (64 ) \ jumps belhind C)
(C64 : (16 ) (C64 : (16 )
(X16 : (CX ) (X16 : (64 )
BEGIN name count dup 0= BEGIN name count dup 0=
abort" C) missing" 2 = >r abort" C) missing" 2 = >r
@ [ Ascii C Ascii ) $100 * + ] Literal @ [ Ascii C Ascii ) $100 * + ] Literal
= r> and UNTIL ; immediate = r> and UNTIL ; immediate
: C) ; immediate (C16 ' (64 alias (CX immediate )
(C64 ' (16 alias (CX immediate )
(X16 ' (64 alias (16 immediate )
(C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate : C) ; immediate
: forth-83 ; \ last word in Dictionary : forth-83 ; \ last word in Dictionary