6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-22 20:34:07 +00:00
Code Issues Projects Releases Wiki Activity

Provide Missing X16 companion to (64 and (16 in v-finalize.fth - calling it (Cx

Browse Source
This commit is contained in:
Philip Zembrod 2020-08-31 00:12:31 +02:00
parent f74c431d6b
commit a2b7f82d28
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,7 @@ Forth also definitions
(C16 : (64 ) \ jumps belhind C) (C16 : (64 ) \ jumps belhind C)
(C64 : (16 ) (C64 : (16 )
(X16 : (CX )
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
@ -20,7 +21,7 @@ Forth also definitions
: C) ; immediate : C) ; immediate
(C16 : (16 ) (C64 : (64 ) ; immediate (C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate
: forth-83 ; \ last word in Dictionary : forth-83 ; \ last word in Dictionary