Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9848 → Rev 9849

/drivers/examples/oberon_drv/API.ob07
0,0 → 1,122
(*
BSD 2-Clause License
 
Copyright (c) 2018-2022, Anton Krotov
All rights reserved.
*)
 
MODULE API;
 
IMPORT SYSTEM;
 
CONST
eol* = 0DX + 0AX;
BIT_DEPTH* = 32;
 
VAR
action*, cmdline*: INTEGER;
 
 
PROCEDURE [stdcall-] sysfunc3* (arg1, arg2, arg3: INTEGER): INTEGER;
BEGIN
SYSTEM.CODE(
053H, (* push ebx *)
08BH, 045H, 008H, (* mov eax, dword [ebp + 8] *)
08BH, 05DH, 00CH, (* mov ebx, dword [ebp + 12] *)
08BH, 04DH, 010H, (* mov ecx, dword [ebp + 16] *)
0CDH, 040H, (* int 64 *)
05BH, (* pop ebx *)
0C9H, (* leave *)
0C2H, 00CH, 000H (* ret 12 *)
)
RETURN 0
END sysfunc3;
 
 
PROCEDURE OutChar* (c: CHAR);
BEGIN
sysfunc3(63, 1, ORD(c))
END OutChar;
 
 
PROCEDURE OutLn*;
BEGIN
OutChar(0DX);
OutChar(0AX)
END OutLn;
 
 
PROCEDURE OutStr (pchar: INTEGER);
VAR
c: CHAR;
BEGIN
IF pchar # 0 THEN
REPEAT
SYSTEM.GET(pchar, c);
IF c # 0X THEN
OutChar(c)
END;
INC(pchar)
UNTIL c = 0X
END
END OutStr;
 
 
PROCEDURE DebugMsg* (lpText, lpCaption: INTEGER);
BEGIN
IF lpCaption # 0 THEN
OutLn;
OutStr(lpCaption);
OutChar(":");
OutLn
END;
OutStr(lpText);
IF lpCaption # 0 THEN
OutLn
END
END DebugMsg;
 
 
PROCEDURE _NEW* (size: INTEGER): INTEGER;
RETURN sysfunc3(68, 12, size)
END _NEW;
 
 
PROCEDURE _DISPOSE* (ptr: INTEGER): INTEGER;
BEGIN
sysfunc3(68, 13, ptr)
RETURN 0
END _DISPOSE;
 
 
PROCEDURE init* (reserved, code: INTEGER);
BEGIN
sysfunc3(68, 11, 0)
END init;
 
 
PROCEDURE exit* (code: INTEGER);
BEGIN
sysfunc3(-1, 0, 0)
END exit;
 
 
PROCEDURE exit_thread* (code: INTEGER);
BEGIN
sysfunc3(-1, 0, 0)
END exit_thread;
 
 
PROCEDURE dllentry* (hinstDLL, fdwReason, lpvReserved: INTEGER): INTEGER;
BEGIN
action := hinstDLL;
cmdline := fdwReason
RETURN action
END dllentry;
 
 
PROCEDURE sofinit*;
END sofinit;
 
 
END API.