6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-01 06:41:37 +00:00
Code Issues Projects Releases Wiki Activity

Place cursor-relevant ZP addresses in vf-sys-c64.fth into labels

Browse Source
This commit is contained in:
Philip Zembrod 2021-04-11 19:44:39 +02:00
parent ef6f246dea
commit ce11fa9060
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
6502/C64/src/vf-sys-c64.fth
View File

@ -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