Stringa pari o dispari

Scrivi un programma in Assembly che conti e visualizzi il numero di caratteri di una sequenza di valori interi positivi. Infine se la lunghezza della stringa è pari si dovrà visualizzare la scritta "PARI", altrimenti "DISPARI".

#make_com#
org 100h
jmp start
stampa macro messaggio   
lea dx, messaggio  
mov ah, 09h   int 21h
endm
acquisisci macro stringa  
lea dx,stringa   
mov ah, 0Ah   
int 21h
endm

paro db 'pari$'
disparo db 'dispari$'
acapo db 10,13,'$'
benvenuto db 'Inserire stringa max 10 car: $'
stringa db 10,?,10 dup ('$')
start:
stampa benvenuto
acquisisci stringa
stampa acapo
mov al, stringa[1]
mov ah, 00h
mov bl, 2
div bl
cmp ah, 0
je pari
jmp dispari
pari:
stampa paro
jmp fine
dispari:
stampa disparo
fine:
ret