KolibriOS/oberon-07-compiler
16
0 Fork 0
mirror of https://github.com/AntKrotov/oberon-07-compiler.git synced 2026-10-05 09:45:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
AntKrotov authored and GitHub committed 2019-01-19 18:26:58 +03:00
1 parent b9169ba664
commit df884a9a20
1 file changed
-34
Download Patch File Download Diff File Expand all files Collapse all files
lib/Windows32/RTL.ob07
-34
View File
@@ -37,14 +37,6 @@ VAR
END;
PROCEDURE [stdcall] _unpk* (VAR n, r: INTEGER);
END _unpk;
PROCEDURE [stdcall] _pack* (n: INTEGER; VAR r: INTEGER);
END _pack;
PROCEDURE [stdcall] _move* (bytes, source, dest: INTEGER);
BEGIN
SYSTEM.CODE(
@@ -141,16 +133,6 @@ BEGIN
END _rot;
PROCEDURE [stdcall] _in* (s, i: INTEGER): BOOLEAN;
RETURN (LSR(i, 5) = 0) & ODD(LSR(s, i))
END _in;
PROCEDURE [stdcall] _in2* (i, s: INTEGER): BOOLEAN;
RETURN (LSR(i, 5) = 0) & ODD(LSR(s, i))
END _in2;
PROCEDURE [stdcall] _set2* (a, b: INTEGER): INTEGER;
VAR
res: INTEGER;
@@ -177,22 +159,6 @@ PROCEDURE [stdcall] _set* (b, a: INTEGER): INTEGER;
END _set;
PROCEDURE [stdcall] _incl* (n: INTEGER; VAR s: SET);
BEGIN
IF LSR(n, 5) = 0 THEN
s := s + BITS(LSL(1, n))
END
END _incl;
PROCEDURE [stdcall] _excl* (n: INTEGER; VAR s: SET);
BEGIN
IF LSR(n, 5) = 0 THEN
s := s - BITS(LSL(1, n))
END
END _excl;
PROCEDURE [stdcall] divmod (a, b: INTEGER; VAR mod: INTEGER): INTEGER;
BEGIN
SYSTEM.CODE(