Add shift/caps pressed/released to Okameron defs

This commit is contained in:
Ry 2023-11-24 15:58:09 -08:00
parent f247307575
commit 1cc0a0def6
2 changed files with 16 additions and 1 deletions

View File

@ -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;

View File

@ -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