From ce11fa906050d7b768fd77b96a72416aafadf2c9 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Sun, 11 Apr 2021 19:44:39 +0200
Subject: [PATCH] Place cursor-relevant ZP addresses in vf-sys-c64.fth into
 labels

---
 6502/C64/src/vf-sys-c64.fth | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/6502/C64/src/vf-sys-c64.fth b/6502/C64/src/vf-sys-c64.fth
index e787350..9eb05de 100644
--- a/6502/C64/src/vf-sys-c64.fth
+++ b/6502/C64/src/vf-sys-c64.fth
@@ -20,6 +20,12 @@ include vf-lbls-cbm.fth
   0d8 >label InsCnt
  028a >label KeyRep
 
+  0cc >label blnsw
+  0cd >label blnct
+  0ce >label gdbln
+  0cf >label blnon
+  0d1 >label pnt
+  0d3 >label pntr
 
 \ *** Block No. 129, Hexblock 81
 81 fthpage
@@ -48,12 +54,12 @@ Code getkey  ( -- 8b)
 \ C64 curon curoff
 
 Code curon   ( --)
- 0D3 ldy  0D1 )Y lda  0CE sta  0CC stx
+ pntr ldy  pnt )Y lda  gdbln sta  blnsw stx
  xyNext jmp   end-code
 
 Code curoff   ( --)
- iny  0CC sty  0CD sty  0CF stx
- 0CE lda  0D3 ldy  0D1 )Y sta
+ iny  blnsw sty  blnct sty  blnon stx
+ gdbln lda  pntr ldy  pnt )Y sta
  1 # ldy  Next jmp   end-code