Check 4th bit

18. Program to check the 4th bit of 8-number.
   4100    3A 00 50     LDA 5000H    4103    E6 08        ANI 08H    4105    CA 0A 41     JZ J1    4108    3E FF        MVI A,0FFH    410A    32 00 51    J1: STA 5100H    410D    76           HLT