From 6ce5520ff4e96df1b32b012e5d1a9e6e4c46cf4e Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sun, 27 Dec 2020 23:31:46 +0100
Subject: [PATCH] Small optimization of User variable ;Code

---
 6502/C64/src/vf-cbm-core.fth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/6502/C64/src/vf-cbm-core.fth b/6502/C64/src/vf-cbm-core.fth
index e75338d..06134ba 100644
--- a/6502/C64/src/vf-cbm-core.fth
+++ b/6502/C64/src/vf-cbm-core.fth
@@ -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