home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / FROM_ASM.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-02-13  |  671 b   |  30 lines
  1. ; Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  2.  
  3. ; FROM_ASM.ASM
  4.  
  5. ; Interfacing Turbo Assembler and Turbo Prolog.
  6.  
  7.         EXTRN   PopMessage_0:FAR
  8. DGROUP  GROUP   _DATA
  9.         ASSUME  CS:SENDMESS_TEXT,DS:DGROUP
  10.  
  11. _DATA   SEGMENT WORD PUBLIC 'DATA'
  12. mess1   DB      "Report: Condition Red",0
  13. _DATA   ENDS
  14.  
  15. SENDMESS_TEXT   SEGMENT   BYTE PUBLIC 'CODE'
  16.         PUBLIC  FROM_ASM_0
  17. FROM_ASM_0      PROC    FAR
  18.         push  ds
  19.         mov   ax,OFFSET DGROUP:mess1
  20.         push  ax
  21.         call  FAR PTR PopMessage_0
  22.         pop   cx
  23.         pop   cx
  24.         ret
  25. FROM_ASM_0      ENDP
  26. SENDMESS_TEXT   ENDS
  27.         END
  28.  
  29.  
  30.