September Morn Update

Task/Bitwise-operations/BASIC/bitwise-operations-3.basic

@@ -1,9 +1,6 @@
-           org   4084
-3a 83 40   ld    a, (4083)
-47         ld    b, a
-3a 82 40   ld    a, (4082)
-a0         and   b
-00         nop            ; negate and shift instructions take 2 bytes
-06 00      ld    b, 0
-4f         ld    c, a     ; value in BC reg pair is returned to BASIC
-c9         ret
+10 INPUT "A="; A
+20 INPUT "B="; B
+30 PRINT "A AND B =" A AND B    :rem AND
+40 PRINT "A OR B =" A OR B      :rem OR
+50 PRINT "A XOR B =" (A AND(NOT B))OR((NOT A)AND B)    :rem XOR
+60 PRINT "NOT A =" NOT A        :rem NOT

Task/Bitwise-operations/BASIC/bitwise-operations-4.basic

@@ -1,25 +1,8 @@
- 10 REM ABCDEFGHIJKLMNO
- 20 INPUT A
- 30 INPUT B
- 40 POKE 16514,A
- 50 POKE 16515,B
- 60 LET ADDR=16516
- 70 LET R$="3A8340473A8240A00006004FC9"
- 80 POKE ADDR,CODE R$*16+CODE R$(2)-476
- 90 LET R$=R$(3 TO )
-100 LET ADDR=ADDR+1
-110 IF R$<>"" THEN GOTO 80
-120 PRINT A;" AND ";B;" = ";USR 16516
-130 POKE 16523,176
-140 PRINT A;" OR ";B;" = ";USR 16516
-150 POKE 16523,168
-160 PRINT A;" XOR ";B;" = ";USR 16516
-170 POKE 16523,237
-180 POKE 16524,68
-190 PRINT "NOT ";A;" = ";USR 16516
-200 POKE 16523,203
-210 POKE 16524,39
-220 FOR I=1 TO B
-230 POKE 16514,USR 16516
-240 NEXT I
-250 PRINT A;" << ";B;" = ";PEEK 16514
+100 LET A=10:LET B=12
+110 PRINT A;"and";B;"=";A AND B
+120 PRINT A;"band";B;"=";A BAND B
+130 PRINT A;"or ";B;"=";A OR B
+140 PRINT A;"bor";B;"=";A BOR B
+150 PRINT A;"xor";B;"=";XOR(A,B)
+160 PRINT " not";A;"=";NOT A
+170 DEF XOR(A,B)=(A BOR B)-(A BAND B)

Task/Bitwise-operations/BASIC/bitwise-operations-5.basic

@@ -0,0 +1,9 @@
+           org   4084
+3a 83 40   ld    a, (4083)
+47         ld    b, a
+3a 82 40   ld    a, (4082)
+a0         and   b
+00         nop            ; negate and shift instructions take 2 bytes
+06 00      ld    b, 0
+4f         ld    c, a     ; value in BC reg pair is returned to BASIC
+c9         ret

Task/Bitwise-operations/BASIC/bitwise-operations-6.basic

@@ -0,0 +1,25 @@
+ 10 REM ABCDEFGHIJKLMNO
+ 20 INPUT A
+ 30 INPUT B
+ 40 POKE 16514,A
+ 50 POKE 16515,B
+ 60 LET ADDR=16516
+ 70 LET R$="3A8340473A8240A00006004FC9"
+ 80 POKE ADDR,CODE R$*16+CODE R$(2)-476
+ 90 LET R$=R$(3 TO )
+100 LET ADDR=ADDR+1
+110 IF R$<>"" THEN GOTO 80
+120 PRINT A;" AND ";B;" = ";USR 16516
+130 POKE 16523,176
+140 PRINT A;" OR ";B;" = ";USR 16516
+150 POKE 16523,168
+160 PRINT A;" XOR ";B;" = ";USR 16516
+170 POKE 16523,237
+180 POKE 16524,68
+190 PRINT "NOT ";A;" = ";USR 16516
+200 POKE 16523,203
+210 POKE 16524,39
+220 FOR I=1 TO B
+230 POKE 16514,USR 16516
+240 NEXT I
+250 PRINT A;" << ";B;" = ";PEEK 16514