35 lines
1.1 KiB
COBOL
35 lines
1.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. bitwise-ops.
|
|
|
|
DATA DIVISION.
|
|
LOCAL-STORAGE SECTION.
|
|
01 a PIC 1(32) USAGE BIT.
|
|
01 b PIC 1(32) USAGE BIT.
|
|
|
|
01 result PIC 1(32) USAGE BIT.
|
|
01 result-disp REDEFINES result PIC S9(9) COMP.
|
|
|
|
LINKAGE SECTION.
|
|
01 a-int USAGE BINARY-LONG.
|
|
01 b-int USAGE BINARY-LONG.
|
|
|
|
PROCEDURE DIVISION USING a-int, b-int.
|
|
MOVE FUNCTION BOOLEAN-OF-INTEGER(a-int, 32) TO a
|
|
MOVE FUNCTION BOOLEAN-OF-INTEGER(b-int, 32) TO b
|
|
|
|
COMPUTE result = a B-AND b
|
|
DISPLAY "a and b is " result-disp
|
|
|
|
COMPUTE result = a B-OR b
|
|
DISPLAY "a or b is " result-disp
|
|
|
|
COMPUTE result = B-NOT a
|
|
DISPLAY "Not a is " result-disp
|
|
|
|
COMPUTE result = a B-XOR b
|
|
DISPLAY "a exclusive-or b is " result-disp
|
|
|
|
*> COBOL does not have shift or rotation operators.
|
|
|
|
GOBACK
|
|
.
|