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

On X16 preserve selected RAM bank when querying the keyboard buffer

Browse Source
This commit is contained in:
Philip Zembrod 2020-12-19 01:57:55 +01:00
parent 7ee360b6c2
commit 0bb8cc9e02
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,18 +29,23 @@ include vf-lbls-cbm.fth
\ X16 c64key? getkey \ X16 c64key? getkey
Code c64key? ( -- flag) Code c64key? ( -- flag)
9f61 ldx
0 # lda 9f61 sta 0 # lda 9f61 sta
0a00a lda 0a00a lda
0<> ?[ 0FF # lda ]? pha 0<> ?[ 0FF # lda ]? pha
9f61 stx
Push jmp end-code Push jmp end-code
Code getkey ( -- 8b) Code getkey ( -- 8b)
9f61 lda N sta
0 # lda 9f61 sta 0 # lda 9f61 sta
0a00a lda 0<> 0a00a lda 0<>
?[ sei 0a000 ldy ?[ sei 0a000 ldy
[[ 0a000 1+ ,X lda 0a000 ,X sta inx [[ 0a000 1+ ,X lda 0a000 ,X sta inx
0a00a cpx 0= ?] 0a00a cpx 0= ?]
0a00a dec tya cli 0A0 # cmp 0a00a dec
N lda 9f61 sta
tya cli 0A0 # cmp
0= ?[ bl # lda ]? 0= ?[ bl # lda ]?
]? ]?
Push0A jmp end-code Push0A jmp end-code