September 2017 Update

Task/Bitwise-operations/BASIC/bitwise-operations-3.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-4.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