6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-24 19:30:10 +00:00
Code Issues Projects Releases Wiki Activity

Small optimization of User variable ;Code

Browse Source
This commit is contained in:
Philip Zembrod 2020-12-27 23:31:46 +01:00
parent 75e2b1ca52
commit 6ce5520ff4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
6502/C64/src/vf-cbm-core.fth
View File

@ -1789,8 +1789,8 @@ Variable ?heapmovetx 0 ?heapmovetx !
: User Create 2 uallot c,
;Code SP 2dec 2 # ldy
W )Y lda clc UP adc SP X) sta
txa iny UP 1+ adc 1 # ldy
SP )Y sta Next jmp end-code
dey txa UP 1+ adc SP )Y sta
Next jmp end-code
: Alias ( cfa --)
Create last @ dup c@ $20 and