1 C Loglan82 Compiler&Interpreter
2 C Copyright (C) 1981-1993 Institute of Informatics, University of Warsaw
3 C Copyright (C) 1993, 1994 LITA, Pau
5 C This program is free software; you can redistribute it and/or modify
6 C it under the terms of the GNU General Public License as published by
7 C the Free Software Foundation; either version 2 of the License, or
8 C (at your option) any later version.
10 C This program is distributed in the hope that it will be useful,
11 C but WITHOUT ANY WARRANTY; without even the implied warranty of
12 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 C GNU General Public License for more details. File: LICENSE.GNU
14 C ===============================================================
16 integer function ibset(i,j)
18 ibset= or(i,lshift(1,j))
22 integer function ibclr(i,j)
24 ibclr = xor(i,and(i,lshift(1,j)))
28 logical function btest(i,j)
30 btest = and(i,lshift(1,j)) .ne. 0
34 integer function iand(i,j)
40 integer function ior(i,j)
46 integer function ieor(i,j)
52 integer function ishft(i,j)
59 10 ishft = lshift(i,j)
65 character function int2char(i)