6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-22 20:34:07 +00:00
Code Issues Projects Releases Wiki Activity

Adapt curon/curoff to X16

Browse Source
This commit is contained in:
Philip Zembrod 2020-08-30 22:41:33 +02:00
parent 3a0ab07dd6
commit 969d1b7c98
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
6502/C64/src/vf-sys-x16.fth
View File

@ -55,14 +55,35 @@ Code getkey ( -- 8b)
\ C64 curon curoff \ C64 curon curoff
00C837 >label screen_get_char_color
00C8CC >label screen_restore_state
00C8B4 >label screen_save_state
00C830 >label screen_set_char_color
037B >label blnsw \ C64: $cc
037C >label blnct \ C64: $cd
037D >label gdbln \ C64: $ce
037E >label blnon \ C64: $cf
0262 >label pnt \ C64: $d1
0380 >label pntr \ C64: $d3
0373 >label gdcol
Code curon ( --) Code curon ( --)
0D3 ldy 0D1 )Y lda 0CE sta 0CC stx \ 0D3 ldy 0D1 )Y lda 0CE sta 0CC stx
screen_save_state jsr
pntr ldy screen_get_char_color jsr gdbln sta gdcol stx
0 # ldx blnsw stx \ TODO: use stz
screen_restore_state jsr
xyNext jmp end-code xyNext jmp end-code
Code curoff ( --) Code curoff ( --)
iny 0CC sty 0CD sty 0CF stx \ iny 0CC sty 0CD sty 0CF stx
0CE lda 0D3 ldy 0D1 )Y sta \ 0CE lda 0D3 ldy 0D1 )Y sta
1 # ldy Next jmp end-code \ 1 # ldy Next jmp end-code
screen_save_state jsr
2 # ldy blnsw sty blnct sty 0 # ldx blnon stx \ TODO: use stz
gdbln lda gdcol ldx pntr ldy screen_set_char_color jsr
screen_restore_state jsr
xyNext jmp end-code
include vf-sys-cbm.fth include vf-sys-cbm.fth