.model small
.stack 10
.data
    men1 db "MENSAJE1$"
    men2 db "MENSAJE2$"
.code
 INICIO:
    mov ax,@data
    mov ds, ax
    mov es, ax

    call MENSAJE1
    call RETARDO
    call MENSAJE2

    mov ah,4ch
    int 21h

    MENSAJE1 PROC
  ;situar el cursor
    mov ah,2
    mov bh,0
    mov dh,12
    mov dl,35
    int 10h
  ;sacar el mensaje
    mov ah,9
    mov dx, offset men1 ;lea dx,men1
    int 21h
    MENSAJE1 ENDP

    RETARDO PROC
    mov ax,0
    int 1ah
    add dx,91 ;RUTINA RETARDO DE 4 SEGUNDOS = 73 TICS(LAS VECES QUE PARPADEA EL RATON SON 10 TICS)
    mov bx,dx
 BUCLE1:
    int 1ah
    cmp dx,bx
    jnz BUCLE1
    ret
    RETARDO ENDP

    MENSAJE2 PROC
  ;situar el cursor
    mov ah,2
    mov bh,0
    mov dH,12
    MOV DL,37
    int 10h
  ;sacar el mensaje
    mov ah,9
    mov dx, offset men2 ;lea dx,men2
    int 21h
    MENSAJE2 ENDP

END INICIO