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

Adapt c64key? and getkey to X16

Browse Source
This commit is contained in:
Philip Zembrod 2020-08-30 01:38:07 +02:00
parent b7ef25633f
commit c2490345f5
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,16 +33,18 @@ Label ConOut clc console_put_char jmp
\ C64 c64key? getkey
Code c64key? ( -- flag)
0C6 lda
0 # lda 9f61 sta
0a00a lda
0<> ?[ 0FF # lda ]? pha
Push jmp end-code
Code getkey ( -- 8b)
0C6 lda 0<>
?[ sei 0277 ldy
[[ 0277 1+ ,X lda 0277 ,X sta inx
0C6 cpx 0= ?]
0C6 dec tya cli 0A0 # cmp
0 # lda 9f61 sta
0a00a lda 0<>
?[ sei 0a000 ldy
[[ 0a000 1+ ,X lda 0a000 ,X sta inx
0a00a cpx 0= ?]
0a00a dec tya cli 0A0 # cmp
0= ?[ bl # lda ]?
]?
Push0A jmp end-code