gil;
mov _mask,#080h
mov _z,#00h
loop:
mov a,_x
anl a,mask
mov b,a
mov a,_y
anl a,mask
xrl a,b
jz count_update
orl _z,a
;add additional code required for bit
;mismatch
count_update:
mov a,mask
rr a
jnz loop
end