Anonymous user
Bitwise operations: Difference between revisions
→{{header|COBOL}}: Fixed to display properly.
imported>Acediast (→{{header|COBOL}}: Added implication and equivalence (this is entirely theoretical; only Micro Focus supports this atm)) |
imported>Acediast (→{{header|COBOL}}: Fixed to display properly.) |
||
Line 2,883:
COMPUTE result = B-NOT (a B-XOR b)
DISPLAY "Logical equivalence of a and b is " result-disp
COMPUTE result = (B-NOT a) B-AND b
DISPLAY "Logical implication of a and b is " result-disp
*> Shift and rotation operators were only added in COBOL 2023.
| |||