September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Logical-operations/360-Assembly/logical-operations.360
+++ b/Task/Logical-operations/360-Assembly/logical-operations.360
@ -0,0 +1,26 @@
+*        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