Mover Letrero

Programa que subes y bajas un letrero con la tecla 1 subes con la tecla 2 bajas y con enter sales del programa, el programa no esta optimizado ya que es uno de los primeros que hago pero funciona bien xD

Búsqueda de ejemplos en Ensamblador
;Autor Oscar Tonatiu
;URL

;<<<<<<<<3.-desplegar una cadena y moverla con el 1 arriba y con el 2 abajo salir con enter
;<<<<<<<<Facultad De Telematica  Oscar Tonatiu Sanchez Briceño
.model tiny
.stack
.data
        msg1 db \'Hola Mundo Cruel\',10,13,\'$\'
                fila db 10
        var db 0
        col db 0
.code
.startup
         repite:
         mov ah,06h;funcion de linpiar pantalla
             mov bh,07h;Atributos de color de fondo
         mov al,00h;cantidad de Filas a Borrar Enrollar
         mov cx,00h;Fila inicial en Ch, Columna Inicial en Cl
         mov dx,30a0h;Fila Final en Dh,Columna Final en Dl
        int 10h
;<<<<<<<<Posicion de pantallas      
        mov ah,02h
        mov bx,0000h
        mov dl,0ah
        mov dh,fila
        int 10h
           
        mov ah,09h
        lea dx,msg1
        int 21h

        mov ah,01h
        int 21h
        mov var,al  
;<<<<<<<<<<<etiketas        
        cheka2:
        cmp var,\'1\'
        je arriba
        jne cheka
        arriba:
        dec fila
        jmp final1
;<<<<<<<<<<<<<etiketas
        cheka:
        cmp var,\'2\'
         je abajo
                 abajo:
                 jne final1
                 inc fila      
                 jmp final2
                                 
                 
        final2:                  
     final1:   cmp al,13
        jne repite
       
.exit
end