Como hacer un programa en ensamblador que me determine si un numero es par, impar o igual a cero.

Tengo en este momento el siguiente codigo pero me genera error.

. Model small

. Stack 64
. Data

Num1 db 10,13,"ingrese numero:", '$'
Imp1 db 10,13,"El numero es impar",'$'
Par1 db 10,13,"El numero es par",'$'
Cer1 db 10,13,"El numero es cero",'$'

v1 db 0
v2 db 1

.code
inicio proc far

mov ax,@data
mov ds, ax

mov ah,09h
lea dx,num1
int 21h

mov ah, 01h
int 21h
sub al,30h
sub v1,al
int 21h
sub al,30h
mov ah,v1
and bl,v1
cmp bl,v2

jz par
jmp impar

par:
mov ah,09
lea dx,par1
int 21h
jmp salir

impar:
mov ah,09
lea dx,imp1
int 21h
jmp salir

cero:
mov ah,09
lea dx,cer1
int 21h
jmp salir

salir:
mov ax,4c00h
int 21h
inicio endp
end inicio