Algoritmia - assembler

hola amigos necesito ayuda en un codigo de assembler q es un menu pro cuando pongo la opcion crear archivo y si m lo crea pero me genera errores como mostrando caracteres raros o cm cuelga..cual es el porblema xfa..

.model small

.data
DATOS SEGMENT PARA PUBLIC

nombre DB 'BY VICTOR SOLORZANO $'
PRESENTACION DB 'PROYECTO DE ASSEMBLER $'
MENU DB '----->MEMNU DE OPCIONES<----$'
CREAR_ARCHIVO DB 'Crear Archivo $'
ESC_ARCHIVO DB 'Escribir en un Archivo $'
ELIM_ARCHIVO DB 'Eliminar Archivo$'
MENU_SALIR DB 'Salir $'
EscriboMensaje2 db 0AH,0DH,'INTRODUZCA EL NOMBRE DEL FICHERO DE SALIDA: $'
EscriboMensaje8 db '!!!EL ARCHIVO HA SIDO CREADO!!!.', 0dh,0ah,'$'
Avanza db 0dh,0ah,'$'
BufferDeEntradaTeclado db ?
FicheroDeSalida db ?
FILEENTRADA DB 'TEXTO.TXT',0 ;ARCHIVO DE ENTRADA DE TEXTO
FILESALIDA DB 'TEXTCOD.TXT',0 ;ARCHIVO DONDE QUEDARAN LOS DATOS CODIFICADOS
MESA DB 'CODER. Codificador de 20Kbytes de texto','$'

MESC DB 'Leyendo TEXTO.TXT','$'
MESE DB 'Guardando TXTCOD.TXT','$'
TALLA DW 20000
MENSAJE DW 0
TXTDEC DB 20000 DUP(?) ;BUFFER TEXTO DECODIFICADO
TXTCOD DB 20000 DUP(?) ;BUFFER TEXTO CODIFICADO
CONTADOR DB 0


p DB 5 dup(?)
nom DB 10 dup(?)
OPCION_ACTUAL DB 0
itemX1 DB 0
itemX2 DB 0
itemY1 DB 0
itemY2 DB 0

TECLA_LEFT EQU 75
TECLA_RIGHT EQU 77
TECLA_UP EQU 72
TECLA_DOWN EQU 80
TECLA_ESC EQU 27
TECLA_ENTER EQU 13
TECLA_TAB EQU 9

OPCION_ARCHIVO EQU 0

OPCION_EDICION EQU 1
OPCION_OPCIONES EQU 2
OPCION_SALIR EQU 3

opcion DB ?

DATOS ENDS


CODIGO SEGMENT PARA PUBLIC 'CODE'
ASSUME CS:CODIGO, DS:DATOS, SS:PILA, ES:DATOS
mov ax,seg nombre
mov ds, ax


QUIT MACRO
MOV AH,4CH
INT 21H
ENDM

READKEY_SINECO MACRO TECLA
MOV AH,8H
INT 21H
MOV TECLA,AL
ENDM

SHOWTEXT MACRO TEXTO
mov ah,9h

; ESTAS DOS LINEAS SON LO MISMO
;mov dx,offset TEXTO
LEA DX,TEXTO

INT 21H
ENDM

; PINTAR UN CUADRO EN LA PANTALLA DE ACUERDO A LA COORDENADA X1, Y1, X2, Y2
; CON EL ATRIBUTO ESPECIFICACO EN A

DRAWBOX MACRO A,X1,Y1,X2,Y2
MOV AH,06H ; SERVICIO 6H
MOV AL,0 ; PAGINA DE VIDEO - MONOCROMO
MOV BH,A ; ATRIBUTO 4 BITS BACKGROUND 4 BITS FOREGROUND
MOV CH,Y1 ; POSICION Y1
MOV CL,X1 ; POSICION X1
MOV DH,Y2 ; POSICION Y2
MOV DL,X2 ; POSICION X2
INT 10H ; INTERRUPCION 10H
ENDM

GOTOXY MACRO X1,Y1
MOV AH,2H
MOV BH,0
MOV DH,Y1
MOV DL,X1
INT 10H
ENDM

MAINPROG:

DRAWBOX 3FH,0,0,79,24 ; PINTA EL FONDO DE COLOR CYAN
DRAWBOX 1FH,30,04,60,04 ; PINTA EL MENU AZUL EN LA LINEA CERO
DRAWBOX 4FH,0,24,79,24 ; PINTA LA LINEA DE ESTADO

PINTAR:
mov itemY1,0
mov itemY2,0

CMP OPCION_ACTUAL,OPCION_ARCHIVO
JE posicion0

CMP OPCION_ACTUAL,OPCION_EDICION
JE posicion1

CMP OPCION_ACTUAL,OPCION_OPCIONES
JE posicion2

CMP OPCION_ACTUAL,OPCION_SALIR
JE posicion3

JMP posicionFin

posicion0:
mov itemx1,33
mov itemx2,49
mov itemy1,10
mov itemy2,10
JMP posicionFin

posicion1:
mov itemx1,33
mov itemx2,49
mov itemy1,11
mov itemy2,11

JMP posicionFin

posicion2:
mov itemx1,33
mov itemx2,49
mov itemy1,12
mov itemy2,12

JMP posicionFin

posicion3:
mov itemx1,33
mov itemx2,49
mov itemy1,13
mov itemy2,13

JMP posicionFin

posicionFin:
DRAWBOX 5FH,itemX1,itemY1,itemX2,itemY2

ESCRIBE: ; ESCRIBE LOS TEXTOS DE LOS MENUS
GOTOXY 33,04
SHOWTEXT PRESENTACION
GOTOXY 33,07
SHOWTEXT MENU
GOTOXY 33,10
SHOWTEXT CREAR_ARCHIVO
GOTOXY 33,11
SHOWTEXT ESC_ARCHIVO
GOTOXY 33,12
SHOWTEXT ELIM_ARCHIVO
GOTOXY 33,13
SHOWTEXT MENU_SALIR
GOTOXY 45,20
SHOWTEXT NOMBRE


LEER: ; LEER LA TECLA PULSADA POR EL USUARIO

READKEY_SINECO OPCION

CMP opcion,TECLA_DOWN
JE mov1

CMP opcion,TECLA_UP
JE mov2

CMP OPCION, TECLA_ESC
JE label4

CMP OPCION,TECLA_ENTER
JE LABEL0
JMP LEER

LABEL0:
CMP OPCION_ACTUAL,0
JE CARCHIVO
JMP LABEL1

LABEL1:
CMP OPCION_ACTUAL,1

JMP LABEL2

LABEL2:
CMP OPCION_ACTUAL,2

JMP LABEL3

LABEL3:
CMP OPCION_ACTUAL,3
JE label4
JMP LEER

MOV1:
JMP MOVDW
MOV2 :
JMP MOVARR


CARCHIVO:


mov ax,@DATA
MOV DS,AX


DRAWBOX 3FH,0,0,79,24
GOTOXY 33,04
push ax

pop ax
mov es,ax

mov ah,9
mov dx,offset EscriboMensaje2
int 21h

mov ah,0ah ;Lee una cadena de la entrada standard en un buffer
mov dx,offset BufferDeEntradaTeclado
int 21h
mov ah,9
mov dx,offset Avanza
int 21h


cld
mov cl,[BufferDeEntradaTeclado+1]
xor ch,ch ;Hacemos 0 a ch
mov si,offset BufferDeEntradaTeclado+2
mov di,offset FicheroDeSalida
rep movsb
xor al,al
stosb


mov ah,3ch
mov dx,Offset FicheroDeSalida
int 21h
MOV AH,3EH
INT 21H

READKEY_SINECO OPCION
cmp opcion,TECLA_ENTER
jmp mainprog


EXIT:
JMP SALIR


movarr: ; REALIZA LOS MOVIMIENTOS HACIA ABAJO

CMP OPCION_ACTUAL,OPCION_ARCHIVO
JE MOVER_OPCION_SALIR

CMP OPCION_ACTUAL,OPCION_EDICION
JE MOVER_OPCION_ARCHIVO

CMP OPCION_ACTUAL,OPCION_OPCIONES
JE MOVER_OPCION_EDICION

CMP OPCION_ACTUAL,OPCION_SALIR
JE MOVER_OPCION_OPCIONES
;JE QUIT

JMP LEER


movdw: ; REALIZA LOS MOVIMIENTOS HACIA ABAJO

CMP OPCION_ACTUAL,OPCION_ARCHIVO
JE MOVER_OPCION_EDICION

CMP OPCION_ACTUAL,OPCION_EDICION
JE MOVER_OPCION_OPCIONES

CMP OPCION_ACTUAL,OPCION_OPCIONES
JE MOVER_OPCION_SALIR

CMP OPCION_ACTUAL,OPCION_SALIR
JE MOVER_OPCION_ARCHIVO

JMP LEER

MOVER_OPCION_ARCHIVO:
MOV OPCION_ACTUAL,0
JMP mainprog

MOVER_OPCION_EDICION:
MOV OPCION_ACTUAL,1
JMP mainprog

MOVER_OPCION_OPCIONES:
MOV OPCION_ACTUAL,2
JMP mainprog

MOVER_OPCION_SALIR:
MOV OPCION_ACTUAL,3
JMP mainprog


jmp mainprog
SALIR:
QUIT

CODIGO ENDS

PILA SEGMENT PARA STACK 'stack'
DB 200 DUP(0)
PILA ENDS

END

Este es un foro de Algoritmia mas no de Assembler. Deberías solicitar la ayuda en el foro respectivo.

Salu2