6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 07:24:16 +00:00
Code Issues Projects Releases Wiki Activity

Get keypress/getkey working for Apple /// properly

Browse Source
This commit is contained in:
dschmenk 2024-01-09 21:18:34 -08:00
parent dff6c2bd9b
commit d5c22b1ff0
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/libsrc/apple/conio.pla
View File

@ -287,18 +287,16 @@ def a3keypressed
byte count byte count
dev_status(cmdsys.devcons, 5, @count) dev_status(cmdsys.devcons, 5, @count)
if count and !a3keyqueue if count
a3keyqueue = getc a3keyqueue = getc
fin fin
return a3keyqueue | $80 return a3keyqueue ?? a3keyqueue | $80 :: 0
end end
def a3getkey def a3getkey
byte keycode byte keycode
repeat repeat
randnum = randnum + 123 randnum = randnum + 123
if !a3keyqueue a3keypressed
a3keypressed
fin
keycode = a3keyqueue keycode = a3keyqueue
until keycode until keycode
a3keyqueue = 0 a3keyqueue = 0