home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / ADDPRO.PRO < prev    next >
Encoding:
Text File  |  1991-02-13  |  429 b   |  15 lines
  1. /* Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc. */
  2. /* ADDPRO.PRO */
  3. /* Interfacing Turbo Assembler and Turbo Prolog. */
  4.  
  5. global predicates
  6.    add(integer,integer,integer) - (i,i,o),(i,o,i),(o,i,i)
  7.                                   language asm
  8.  
  9. goal
  10.    add(2,3,X), write("2 + 3 = ",X),nl,
  11.    add(2,Y,5), write("5 - 2 = ",Y),nl,
  12.    add(Z,3,5), write("5 - 3 = ",Z),nl,
  13.    readchar(_).
  14.  
  15.