segmento    SEGMENT para PUBLIC 'CODE'
            ASSUME DS:segmento, CS: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

      mov ax, 0600h
     mov bh, 07h
      mov cx, 0000h
      mov dx, 184fh
      int 10h

      ret

Borra ENDP

MensajeSaludo DB '­Hola Mundo!$'

segmento  ENDS
          END  principal