26 lines
723 B
Text
26 lines
723 B
Text
* Logical operations 04/04/2017
|
|
LOGICAL CSECT
|
|
USING LOGICAL,R15
|
|
* -- C=A and B
|
|
MVC C,A C=A
|
|
NC C,B C=A and B
|
|
* -- C=A or B
|
|
MVC C,A C=A
|
|
OC C,B C=A or B
|
|
* -- C=not A
|
|
MVC C,A C=A
|
|
XI C,X'01' C=not A
|
|
* -- if C then goto e
|
|
CLI C,X'01' if C
|
|
BE E then goto e
|
|
XPRNT =C'FALSE',5
|
|
*
|
|
E BR R14
|
|
TRUE DC X'01'
|
|
FALSE DC X'00'
|
|
A DC X'01'
|
|
B DC X'00'
|
|
C DS X
|
|
PG DC CL80' '
|
|
YREGS
|
|
END LOGICAL
|