Add shift/caps pressed/released to Okameron defs
This commit is contained in:
parent
f247307575
commit
1cc0a0def6
|
@ -26,6 +26,9 @@ MODULE Fox32ROM;
|
||||||
EXTERN PROCEDURE NewEvent: INT;
|
EXTERN PROCEDURE NewEvent: INT;
|
||||||
EXTERN PROCEDURE GetNextEvent: INT;
|
EXTERN PROCEDURE GetNextEvent: INT;
|
||||||
EXTERN PROCEDURE ScancodeToAscii: INT;
|
EXTERN PROCEDURE ScancodeToAscii: INT;
|
||||||
|
EXTERN PROCEDURE ShiftPressed: INT;
|
||||||
|
EXTERN PROCEDURE ShiftReleased: INT;
|
||||||
|
EXTERN PROCEDURE CapsPressed: INT;
|
||||||
|
|
||||||
EXTERN PROCEDURE FillBackground: INT;
|
EXTERN PROCEDURE FillBackground: INT;
|
||||||
EXTERN PROCEDURE DrawStrToBackground: INT;
|
EXTERN PROCEDURE DrawStrToBackground: INT;
|
||||||
|
|
|
@ -46,10 +46,22 @@ GetNextEvent:
|
||||||
pop r8
|
pop r8
|
||||||
ret
|
ret
|
||||||
|
|
||||||
; PROCEDURE ScancodeToAscii(scancode: CHAR): CHAR;
|
; PROCEDURE ScancodeToAscii(scancode: CHAR;): CHAR;
|
||||||
ScancodeToAscii:
|
ScancodeToAscii:
|
||||||
jmp scancode_to_ascii
|
jmp scancode_to_ascii
|
||||||
|
|
||||||
|
; PROCEDURE ShiftPressed();
|
||||||
|
ShiftPressed:
|
||||||
|
jmp shift_pressed
|
||||||
|
|
||||||
|
; PROCEDURE ShiftReleased();
|
||||||
|
ShiftReleased:
|
||||||
|
jmp shift_released
|
||||||
|
|
||||||
|
; PROCEDURE CapsPressed();
|
||||||
|
CapsPressed:
|
||||||
|
jmp caps_pressed
|
||||||
|
|
||||||
; PROCEDURE FillBackground(color: INT;);
|
; PROCEDURE FillBackground(color: INT;);
|
||||||
FillBackground:
|
FillBackground:
|
||||||
jmp fill_background
|
jmp fill_background
|
||||||
|
|
Loading…
Reference in New Issue
Block a user