1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# XORI -- Boolean exclusive or of two integer operands.
int procedure xori (a, b)
int a, b
int not(), and(), or()
begin
return (or (and(a,not(b)), and(not(a),b)))
end
# XORS -- Boolean exclusive or of two short integer operands.
short procedure xors (a, b)
short a, b
short nots(), ands(), ors()
begin
return (ors (ands(a,nots(b)), ands(nots(a),b)))
end
# XORL -- Boolean exclusive or of two long integer operands.
long procedure xorl (a, b)
long a, b
long notl(), andl(), orl()
begin
return (orl (andl(a,notl(b)), andl(notl(a),b)))
end
|
