.
model small
.data
cad1 db 10,13,"INGRESE EL VALOR PARA A$"
cad2 db 10,13,"EL NUMERO ES PAR$"
cad3 db 10,13,"EL NUMERO ES IMPAR$"
a db ?
.code
mov Ax,@data
mov DS,AX
Mov cl,2
lea dx,cad1
mov Ah,9
int 21h
mov Ah,01
int 21h
sub Al,30h
mov a,al
div cl; la operacion
mov dl,al
Add dl,30h
mov Ah,2
int 21h
mov Ah,4ch
int 21h
end