2023-05-24 05:53:47 +02:00
|
|
|
(* fox32rom routine definitions for Okameron *)
|
|
|
|
|
|
|
|
|
|
MODULE Fox32ROM;
|
|
|
|
|
ASM "fox32rom.def";
|
|
|
|
|
ASM "fox32rom_okm.asm";
|
|
|
|
|
|
|
|
|
|
TYPE ROMFile = RECORD
|
|
|
|
|
disk: CHAR;
|
|
|
|
|
firstSector: SHORT;
|
|
|
|
|
seekOffset: INT;
|
|
|
|
|
reserved: CHAR;
|
|
|
|
|
END;
|
|
|
|
|
|
2023-11-23 07:04:23 +01:00
|
|
|
EXTERN EVENT_TYPE_MOUSE_CLICK: INT;
|
|
|
|
|
EVENT_TYPE_MOUSE_RELEASE: INT;
|
|
|
|
|
EVENT_TYPE_KEY_DOWN: INT;
|
|
|
|
|
EVENT_TYPE_KEY_UP: INT;
|
|
|
|
|
EVENT_TYPE_MENU_BAR_CLICK: INT;
|
|
|
|
|
EVENT_TYPE_MENU_UPDATE: INT;
|
|
|
|
|
EVENT_TYPE_MENU_CLICK: INT;
|
|
|
|
|
EVENT_TYPE_MENU_ACK: INT;
|
|
|
|
|
EVENT_TYPE_EMPTY: INT;
|
|
|
|
|
|
2023-11-25 00:34:16 +01:00
|
|
|
EXTERN PROCEDURE Panic: INT;
|
|
|
|
|
|
2023-05-24 05:53:47 +02:00
|
|
|
EXTERN PROCEDURE NewEvent: INT;
|
|
|
|
|
EXTERN PROCEDURE GetNextEvent: INT;
|
2023-11-23 07:04:23 +01:00
|
|
|
EXTERN PROCEDURE ScancodeToAscii: INT;
|
2023-11-25 00:58:09 +01:00
|
|
|
EXTERN PROCEDURE ShiftPressed: INT;
|
|
|
|
|
EXTERN PROCEDURE ShiftReleased: INT;
|
|
|
|
|
EXTERN PROCEDURE CapsPressed: INT;
|
2023-05-24 05:53:47 +02:00
|
|
|
|
|
|
|
|
EXTERN PROCEDURE FillBackground: INT;
|
|
|
|
|
EXTERN PROCEDURE DrawStrToBackground: INT;
|
2023-11-12 08:01:15 +01:00
|
|
|
EXTERN PROCEDURE DrawFontTileToBackground: INT;
|
2023-05-24 05:53:47 +02:00
|
|
|
EXTERN PROCEDURE DrawFormatStrToBackground: INT;
|
|
|
|
|
|
2023-06-25 00:53:21 +02:00
|
|
|
EXTERN PROCEDURE FillOverlay: INT;
|
|
|
|
|
EXTERN PROCEDURE DrawStrToOverlay: INT;
|
|
|
|
|
EXTERN PROCEDURE DrawFormatStrToOverlay: INT;
|
|
|
|
|
EXTERN PROCEDURE DrawFilledRectangleToOverlay: INT;
|
|
|
|
|
|
2023-05-24 05:53:47 +02:00
|
|
|
EXTERN PROCEDURE RYFSOpen: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSSeek: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSTell: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSRead: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSReadWholeFile: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSGetSize: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSGetFileList: INT;
|
|
|
|
|
EXTERN PROCEDURE RYFSWrite: INT;
|
|
|
|
|
|
|
|
|
|
EXTERN PROCEDURE CopyMemoryChar: INT;
|
|
|
|
|
EXTERN PROCEDURE CopyMemoryInt: INT;
|
|
|
|
|
EXTERN PROCEDURE CopyString: INT;
|
|
|
|
|
EXTERN PROCEDURE CompareMemoryChar: INT;
|
|
|
|
|
EXTERN PROCEDURE CompareMemoryInt: INT;
|
|
|
|
|
EXTERN PROCEDURE CompareString: INT;
|
|
|
|
|
EXTERN PROCEDURE StringLength: INT;
|
|
|
|
|
END.
|
