1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-21 07:17:03 +00:00

Break out //c keyin so it doesn't mess wuth UltraWarp soft switches

This commit is contained in:
David Schmenk
2025-02-02 14:54:16 -08:00
parent bb4cb253fb
commit db921c7545
2 changed files with 12 additions and 5 deletions
Binary file not shown.
+12 -5
View File
@@ -994,8 +994,6 @@ def keyin3
end
def keyin2e
byte key, vbl
^$C079 = 0 // IOU enable and clear VBL int on //c
^$C05B = 0 // Enable VBL Ints on //c
vbl = ^$C019
repeat
if flags & showcurs
@@ -1012,8 +1010,6 @@ def keyin2e
fin
key = ^keyboard
until key >= 128
^$C05A = 0 // Disable VBL Ints on //c
^$C078 = 0 // IOU disable on //c
^keystrobe
if ^pushbttn2 & 128 // Closed Apple pressed
when key
@@ -1033,6 +1029,15 @@ def keyin2e
fin
return key
end
def keyin2c
byte key
^$C079 = 0 // IOU enable and clear VBL int on //c
^$C05B = 0 // Enable VBL Ints on //c
key = keyin2e
^$C05A = 0 // Disable VBL Ints on //c
^$C078 = 0 // IOU disable on //c
return key
end
def keyin2
byte key
@@ -1095,9 +1100,11 @@ end
def setkeyin#0
when MACHID & MACHID_MODEL
is MACHID_IIE
is MACHID_IIC
keyin = @keyin2e
break
is MACHID_IIC
keyin = @keyin2c
break
is MACHID_III
keyin = @keyin3
break