EXTRN A:FAR
EXTRN B:FAR

CSEG SEGMENT
     ASSUME CS:CSEG,DS:DSEG

MAIN PROC
     MOV  AX,DSEG
     MOV  DS,AX
     MOV  DX,OFFSET HALLO
     MOV  AH,9
     INT  21h
     CALL A
     CALL B
     MOV  DX,OFFSET TSCHUESS
     MOV  AH,9
     INT  21h
     MOV  AX,4C00h
     INT  21h
MAIN ENDP

CSEG ENDS

DSEG SEGMENT
HALLO    DB "Hallo",13,10,"$"
TSCHUESS DB 13,10,"Tschuess :-)$"
DSEG ENDS

SSEG SEGMENT STACK
     DW 128 DUP (?)
SSEG ENDS

END MAIN