6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-08-10 06:25:00 +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
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 0d8 >label InsCnt
028a >label KeyRep 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 \ *** Block No. 129, Hexblock 81
81 fthpage 81 fthpage
@@ -48,12 +54,12 @@ Code getkey ( -- 8b)
\ C64 curon curoff \ C64 curon curoff
Code curon ( --) Code curon ( --)
0D3 ldy 0D1 )Y lda 0CE sta 0CC stx pntr ldy pnt )Y lda gdbln sta blnsw stx
xyNext jmp end-code xyNext jmp end-code
Code curoff ( --) Code curoff ( --)
iny 0CC sty 0CD sty 0CF stx iny blnsw sty blnct sty blnon stx
0CE lda 0D3 ldy 0D1 )Y sta gdbln lda pntr ldy pnt )Y sta
1 # ldy Next jmp end-code 1 # ldy Next jmp end-code