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:
Binary file not shown.
+12
-5
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user