From b9169ba6644d685fd51a63225e69072f8a357f73 Mon Sep 17 00:00:00 2001
From: AntKrotov <44221365+AntKrotov@users.noreply.github.com>
Date: Sat, 19 Jan 2019 18:26:21 +0300
Subject: [PATCH] Add files via upload

---
 lib/KolibriOS/RTL.ob07 | 34 ----------------------------------
 1 file changed, 34 deletions(-)

diff --git a/lib/KolibriOS/RTL.ob07 b/lib/KolibriOS/RTL.ob07
index 5fe488d..7563b2a 100644
--- a/lib/KolibriOS/RTL.ob07
+++ b/lib/KolibriOS/RTL.ob07
@@ -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(