Programa 3 -Hola mundo con funcion-

CR EQU 13
LF EQU 10

DATOS SEGMENT
         MENSAJE DB CR, LF, 'Hola mundo', CR, LF, '$'

DATOS ENDS

PILA SEGMENT STACK
          DB 64 DUP ( 'PILA' )
PILA ENDS

CODIGO SEGMENT
          HMF PROC FAR
          ASSUME CS:CODIGO, DS:DATPOS, SS:PILA
          MOV AX, DATOS
          MOV DS, AX
          LEA DX, MENSAJE

          CALL ESCRIBE
          MOV AX, 4C00H
          INT 21H

          HMF ENDP

          ESCRIBE PROC
                            MOV AH, 9
                            INT 21H
                            RET
                            ESCRIBE ENDP
             
                 CODIGO ENDS
                 END HMF