Проверка на четность первых 15-ти однобайтовых чисел

CSEG segment
org 0066h
 
proga:
 
      mov HL,0066h
      mov cx,15
      
      loopstarter
      
      mov ax, HL
      test ax,1
      jz chet
      out ax,10
      jmp contine
      chet
          out ax,9
          jmp contine
          
      contine
      inc HL
      loop loopstarter
      ender
CSEG ends
end proga

mov ax,[value]
bt ax,0;если бит 0 не установлен
jc nechet; то нечётное
;чётное

lxi h,66h
mvi c,15
lp: mov a,m
ani 1
mov a,m
jz m1
out 9
jmp m2
m1: out 10
m2:inx h
dcr c
jnz lp

lxi h,66h; загрузить в HL число 0066h
mvi c,15; запись в c число 15
lp: ;метка цикла
mov a,m ;перенос в A значение из M
ani 1 ;логическая И с числом 1, не очень понял что это
mov a,m ;еще раз записать значение M в A, не очень понял
jz m1 ;если A = 0 переходим к метке m1
out 9 ;вывод числа на 9-е оборудование
jmp m2 ;переход к метке m2
m1: out 10 ;вывод числа на 10-е оборудование
m2:inx h ;прибавить к HL единицу
dcr c ;уменьшить число циклов на 1
jnz lp ;если число циклов > 0, повторить цикл

mov a,m
ani 1
mov a,m

mov a,m ;перенос в A значение из M
ani 1 ;логическая И с числом 1, где приёмник A также устанавливаются флаги
mov a,m ;еще раз записать значение M в A, для вывода если он будет. Данная команда флаги не меняет
jz m1 ;если A = 0 переходим к метке m1 согласно флагам