fox32rom/fox32rom_okm.asm

237 lines
4.1 KiB
NASM
Raw Normal View History

2023-05-24 05:53:47 +02:00
; fox32rom routine definitions for Okameron
; PROCEDURE NewEvent(
; eventType,
; eventArg0,
; eventArg1,
; eventArg2,
; eventArg3,
; eventArg4,
; eventArg5,
; eventArg6: INT;
; );
NewEvent:
push r7
mov r7, 0
call new_event
pop r7
ret
; PROCEDURE GetNextEvent(event: POINTER TO ARRAY 8 OF INT);
GetNextEvent:
push r8
mov r8, r0
call get_next_event
mov [r8], r0
add r8, 4
mov [r8], r1
add r8, 4
mov [r8], r2
add r8, 4
mov [r8], r3
add r8, 4
mov [r8], r4
add r8, 4
mov [r8], r5
add r8, 4
mov [r8], r6
add r8, 4
mov [r8], r7
pop r8
ret
; PROCEDURE FillBackground(color: INT;);
FillBackground:
jmp fill_background
; PROCEDURE DrawStrToBackground(
; str: POINTER TO CHAR;
; x, y, fgColor, bgColor: INT;
; );
DrawStrToBackground:
jmp draw_str_to_background
; PROCEDURE DrawFormatStrToBackground(
; str: POINTER TO CHAR;
; x, y, fgColor, bgColor,
; format0, format1, format2: INT;
; );
DrawFormatStrToBackground:
push r10
push r11
push r12
push r13
push r14
push r15
mov r10, r5
mov r11, r6
mov r12, r7
mov r13, 0
mov r14, 0
mov r15, 0
call draw_format_str_to_background
pop r15
pop r14
pop r13
pop r12
pop r11
pop r10
ret
; PROCEDURE FillOverlay(color, overlay: INT;);
FillOverlay:
jmp fill_overlay
; PROCEDURE DrawStrToOverlay(
; str: POINTER TO CHAR;
; x, y, fgColor, bgColor, overlay: INT;
; );
DrawStrToOverlay:
jmp draw_str_to_overlay
; PROCEDURE DrawFormatStrToBackground(
; str: POINTER TO CHAR;
; x, y, fgColor, bgColor, overlay,
; format0, format1: INT;
; );
DrawFormatStrToOverlay:
push r10
push r11
push r12
push r13
push r14
push r15
mov r10, r5
mov r11, r6
mov r12, r7
mov r13, 0
mov r14, 0
mov r15, 0
call draw_format_str_to_overlay
pop r15
pop r14
pop r13
pop r12
pop r11
pop r10
ret
; PROCEDURE DrawFilledRectangleToOverlay(
; x, y, width, height, color, overlay: INT;
; );
DrawFilledRectangleToOverlay:
jmp draw_filled_rectangle_to_overlay
2023-05-24 05:53:47 +02:00
; PROCEDURE RYFSOpen(
; name: POINTER TO CHAR;
; id: INT;
; struct: POINTER TO ROMFile;
; ): INT;
RYFSOpen:
jmp ryfs_open
; PROCEDURE RYFSSeek(
; offset: INT;
; struct: POINTER TO ROMFile;
; );
RYFSSeek:
jmp ryfs_seek
; PROCEDURE RYFSTell(
; struct: POINTER TO ROMFile;
; ): INT;
RYFSTell:
jmp ryfs_tell
; PROCEDURE RYFSRead(
; size: INT;
; struct: POINTER TO ROMFile;
; destination: POINTER TO CHAR;
; );
RYFSRead:
jmp ryfs_read
; PROCEDURE RYFSReadWholeFile(
; struct: POINTER TO ROMFile;
; destination: POINTER TO CHAR;
; );
RYFSReadWholeFile:
jmp ryfs_read_whole_file
; PROCEDURE RYFSGetSize(
; struct: POINTER TO ROMFile;
; ): INT;
RYFSGetSize:
jmp ryfs_get_size
; PROCEDURE RYFSGetFileList(
; buffer: POINTER TO CHAR;
; id: INT;
; );
RYFSGetFileList:
jmp ryfs_get_file_list
; PROCEDURE RYFSWrite(
; size: INT;
; struct: POINTER TO ROMFile;
; source: POINTER TO CHAR;
; );
RYFSWrite:
jmp ryfs_write
; PROCEDURE CopyMemoryChar(
; source, destination: POINTER TO CHAR;
; size: INT;
; );
CopyMemoryChar:
jmp copy_memory_bytes
; PROCEDURE CopyMemoryInt(
; source, destination: POINTER TO INT;
; size: INT;
; );
CopyMemoryInt:
jmp copy_memory_words
; PROCEDURE CopyString(
; source, destination: POINTER TO CHAR;
; );
CopyString:
jmp copy_string
; PROCEDURE CompareMemoryChar(
; source, destination: POINTER TO CHAR;
; size: INT;
; ): INT;
CompareMemoryChar:
call compare_memory_bytes
ifz mov r0, 0
ifnz mov r0, 1
ret
; PROCEDURE CompareMemoryInt(
; source, destination: POINTER TO INT;
; size: INT;
; ): INT;
CompareMemoryInt:
call compare_memory_words
ifz mov r0, 0
ifnz mov r0, 1
ret
; PROCEDURE CompareString(
; source, destination: POINTER TO CHAR;
; size: INT;
; ): INT;
CompareString:
call compare_string
ifz mov r0, 0
ifnz mov r0, 1
ret
; PROCEDURE StringLength(
; source: POINTER TO CHAR;
; ): INT;
StringLength:
jmp string_length