6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-11 23:29:29 +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
dev_status(cmdsys.devcons, 5, @count)
if count and !a3keyqueue
if count
a3keyqueue = getc
fin
return a3keyqueue | $80
return a3keyqueue ?? a3keyqueue | $80 :: 0
end
def a3getkey
byte keycode
repeat
randnum = randnum + 123
if !a3keyqueue
a3keypressed
fin
a3keypressed
keycode = a3keyqueue
until keycode
a3keyqueue = 0