DEFINITION SYSTEM;

TYPE BYTE * = CHAR;
TYPE IntPtr = POINTER TO INTEGER;

PROCEDURE ADR(v: INTEGER): LONGINT;
PROCEDURE BIT(a: LONGINT; n: SHORTINT): BOOLEAN;
PROCEDURE CC(n: SHORTINT): BOOLEAN;
PROCEDURE LSH(x: INTEGER; n: SHORTINT): INTEGER;
PROCEDURE ROT(x: INTEGER; n: SHORTINT): INTEGER;
PROCEDURE VAL(T: INTEGER; x: INTEGER) : INTEGER;

PROCEDURE GET(a: LONGINT; VAR v: INTEGER);
PROCEDURE PUT(a: LONGINT; v: INTEGER);
PROCEDURE MOVE(s, d: LONGINT; n: INTEGER);
PROCEDURE NEW(v: IntPtr; n: INTEGER);

END SYSTEM.