16 lines
378 B
Text
16 lines
378 B
Text
include c:\cxpl\codes; \intrinsic 'code' declarations
|
|
|
|
func Logic(A, B);
|
|
int A, B;
|
|
[HexOut(0, A and B); ChOut(0, ^ );
|
|
HexOut(0, A or B); ChOut(0, ^ );
|
|
HexOut(0, not A); ChOut(0, ^ );
|
|
HexOut(0, A xor B);
|
|
]; \Logic
|
|
|
|
[Logic(false, false); CrLf(0);
|
|
Logic(true, false); CrLf(0);
|
|
Logic(true, true); CrLf(0);
|
|
Logic(1, 1); CrLf(0);
|
|
Logic(1, 2); CrLf(0);
|
|
]
|