Реализация через макрос - A and B -> число

Logic   macro   Action, Op1, Op2
        mov     ax,     Op1
        Action  ax,     Op2
endm
 
_stack  segment stack
        db      1024 dup(?)
_stack  ends
 
data    segment
        A       dw      7
        B       dw      12
        C       dw      ?
        asAnd   db      ' and ', '$'
        asEqu   db      ' = ', '$'
data    ends
 
code    segment
        assume  CS:code, DS:data
main:
        mov     ax,     data
        mov     ds,     ax
 
        mov     ax,     [A]
        call    ShowBin
        mov     ah,     09h
        lea     dx,     [asAnd]
        int     21h
        mov     ax,     [B]
        call    ShowBin
        mov     ah,     09h
        lea     dx,     [asEqu]
        int     21h
 
        Logic and, [A], [B]
        mov     [C],    ax
 
        call    ShowBin
 
        mov     ax,     4c00h
        int     21h
 
;выводит на экран в двоичной системе счисления содержимое регистра AX
; входные данные:
; ax - число для отображения
ShowBin proc
        push    ax
        push    bx
        push    cx
 
        mov     bx,     ax      ; из-за распределения регистров
                                ; при выводе на экран с помощью int 29h,
                                ; выводимое число будет находится в bx
        mov     cx,     16      ; переменная цикла равна количеству бит в слове
 
@@For:
 
        mov     ax,     '0'     ; в регистрах al=код символа '0', ah=00h
 
        shl     bx,     1       ; выделение бита
 
        adc     al,     ah      ; сложение кода символа '0' со значением выделенного бита
 
        int     29h
 
        loop    @@For
 
        pop     cx
        pop     bx
        pop     ax
        ret
ShowBin endp
 
code    ends
 
end     main