From 1cc0a0def6f287ec7af7ba70b3da7aab6026d35d Mon Sep 17 00:00:00 2001
From: Ry <ryanst755@gmail.com>
Date: Fri, 24 Nov 2023 15:58:09 -0800
Subject: [PATCH] Add shift/caps pressed/released to Okameron defs

---
 fox32rom.def.okm |  3 +++
 fox32rom_okm.asm | 14 +++++++++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/fox32rom.def.okm b/fox32rom.def.okm
index c301695..5b107b1 100644
--- a/fox32rom.def.okm
+++ b/fox32rom.def.okm
@@ -26,6 +26,9 @@ MODULE Fox32ROM;
     EXTERN PROCEDURE NewEvent: INT;
     EXTERN PROCEDURE GetNextEvent: INT;
     EXTERN PROCEDURE ScancodeToAscii: INT;
+    EXTERN PROCEDURE ShiftPressed: INT;
+    EXTERN PROCEDURE ShiftReleased: INT;
+    EXTERN PROCEDURE CapsPressed: INT;
 
     EXTERN PROCEDURE FillBackground: INT;
     EXTERN PROCEDURE DrawStrToBackground: INT;
diff --git a/fox32rom_okm.asm b/fox32rom_okm.asm
index 176aa98..44e4327 100644
--- a/fox32rom_okm.asm
+++ b/fox32rom_okm.asm
@@ -46,10 +46,22 @@ GetNextEvent:
     pop r8
     ret
 
-; PROCEDURE ScancodeToAscii(scancode: CHAR): CHAR;
+; PROCEDURE ScancodeToAscii(scancode: CHAR;): CHAR;
 ScancodeToAscii:
     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;);
 FillBackground:
     jmp fill_background