segmento    SEGMENT
            ASSUME DS:segmento
            ORG 100h
principal   PROC NEAR

            call Borra

            mov ah, 02h
            mov dh, 11
            mov dl, 30
            mov bh, 00h
            int 10h

            mov ah, 09h
            mov dx, OFFSET MensajeSaludo
            int 21h

            mov ah, 00h
            int 16h

            call Borra

            mov ah, 4ch
            int 21h

principal   ENDP

Borra PROC NEAR

      push ax    ; Se almacenan en la pila los registros que va a utilizar
      push bx    ; la subrutina. El valor de SP disminuye en 4 * 2 = 8
      push cx    ; unidades
      push dx

      mov ax, 0600h     ; Se borra la pantalla
      mov bh, 07h
      mov cx, 0000h
      mov dx, 184fh
      int 10h

      pop dx     ; Se recuperan los valores de los registros, de forma que
      pop cx     ; al volver el control de la ejecuci˘n al m˘dulo principal
      pop bx     ; ‚stos almacenen los valores que poseˇan antes de la
      pop ax     ; llamada al procedimiento. SP se incrementa en 4 * 2 = 8
                 ; unidades

      ret

Borra ENDP

MensajeSaludo DB '­Hola Mundo!$'

segmento  ENDS
          END  principal