Ensamblador - Ensamblador

hola necesesito ayuda con mi pequeño programa.
esto es lo que tiene que hacer.


DESPLEGAR UN MENU CON 3 OPCIONES
1.-Convertir de minusculas a mayusculas
2.-Convertit de Mayusculas a minusculas
3.-Salir


una ves entrado en la opcion 1 o 2 deve de realizar la conversion pero
no me funciona tendre un error en la opcion 1 y 2.?????
porfa si me pueden ayudar . se los agradeceri


PROGRAMA:


.model small
.stack
.data
menu db "Menu$"
min db "1.-Convertir Min a May$"
may db "2.-Convertir May a Min$"
Salir db "3.-Salir$"
pal db 25 dup("$")
mns db "Escriba una palabra en minuscula$"
mns2 db "Escriba una palabra en mayuscula$"

op db 0
.code
inicio:mov ax,@data
mov ds,ax
Regresa:
mov ah,06h
mov al,0
mov bh,07h
mov ch,0
mov cl,0
mov dh,24
mov dl,79
int 10h

mov ah,02h
mov bh,0
mov dh,10
mov dl,32
int 10h

mov ah,09h
mov dx,offset menu
int 21h
mov ah,02h
mov bh,0
mov dh,11
mov dl,32
int 10h

mov ah,09h
mov dx,offset min
int 21h

mov ah,02h
mov bh,0
mov dh,12
mov dl,32
int 10h

mov ah,09h
mov dx,offset may
int 21h

mov ah,02h
mov bh,0
mov dh,13
mov dl,32
int 10h

mov ah,09h
mov dx,offset salir
int 21h

mov ah,07h
int 21h

mov op,al
cmp op,"1"
jne opcion2

mov ah,06h
mov al,0
mov bh,07h
mov ch,0
mov cl,0
mov dh,24
mov dl,79
int 10h

mov ah,02h
mov bh,0
mov dh,10
mov dl,1
int 10h

mov ah,09h
mov dx,offset mns
int 21h

mov pal,25
mov ah,0Ah
mov dx,offset pal
int 21h
mov bx,2
mov cl,23

ciclo:
and pal[bx],11011111b
inc bx
loop ciclo

mov ah,09h
lea dx,pal[2]
int 21h
jmp regresa

opcion2:

cmp op,"2"
jne opcion3

mov ah,06h
mov al,0
mov bh,07h
mov ch,0
mov cl,0
mov dh,24
mov dl,79
int 10h

mov ah,02h
mov bh,0
mov dh,10
mov dl,1
int 10h

mov ah,09h
mov dx,offset mns2
int 21h

mov pal,25
mov ah,0Ah
mov dx,offset pal
int 21h
mov bx,2
mov cl,23

ciclo1:
or pal[bx],00100000b
inc bx
loop ciclo1

mov ah,09h
lea dx,pal[2]
int 21h
jmp regresa

Opcion3:
cmp op,"3"
jne regresa
mov cx,4c00h
int 21h
end inicio