.model small
           .code
           org    100h

mathcop:   jmp    body
copr       db     "Coprocessore matematico $"
yes        db     "presente.",0dh,0ah,"$"
no         db     "assente.",0dh,0ah,"$"

body       proc   near
           int    11h
           push   ax
           and    al,2
           jnp    good
           lea    cx,no
           jmp    print
good:      lea    cx,yes
print:     lea    dx,copr
           call   stampa
           mov    dx,cx
           call   stampa
           pop    ax
           mov    ah,4ch
           int    21h
body       endp

stampa     proc   near
           mov    ah,9
           int    21h
           retn
stampa     endp

           end    mathcop