home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / ADD.ASM next >
Encoding:
Assembly Source File  |  1991-02-13  |  1.3 KB  |  55 lines
  1. ; Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  2.  
  3. ; ADD.ASM
  4.  
  5. ; Interfacing Turbo Assembler and Turbo Prolog.
  6.  
  7.        name     add
  8.  
  9. ADD_TEXT        SEGMENT   BYTE PUBLIC 'CODE'
  10.        ASSUME   CS:ADD_TEXT
  11.        PUBLIC   ADD_0                ;(i,i,o) flow pattern
  12.  
  13. ADD_0  PROC     FAR
  14.        arg      Z:dWORD, Y:WORD, X:WORD = ARGLEN1
  15.        push     bp
  16.        mov      bp,sp
  17.        mov      ax,X
  18.        add      ax,Y
  19.        les      bx,Z
  20.        mov      WORD PTR ES:[BX],ax
  21.        pop      bp
  22.        ret      ARGLEN1
  23. ADD_0  ENDP
  24.  
  25.        PUBLIC   ADD_1                      ;(i,o,i) flow pattern
  26. ADD_1  PROC     FAR
  27. arg    Z:WORD,  Y:dWORD, X:WORD = ARGLEN2
  28.        push     bp
  29.        mov      bp,sp
  30.        mov      ax, Z
  31.        sub      ax, X
  32.        les      bx, Y
  33.        mov      WORD PTR ES:[BX],AX
  34.        pop      bp
  35.        ret      ARGLEN2
  36. ADD_1  ENDP
  37.  
  38.        PUBLIC   ADD_2                 ;(o,i,i) flow pattern
  39. ADD_2  PROC     FAR
  40. arg    Z:WORD,  Y:WORD, X:dWORD = ARGLEN3
  41.        push     bp
  42.        mov      bp,sp
  43.        mov      ax, Z
  44.        sub      ax, Y
  45.        les      bx, X
  46.        mov      WORD PTR ES:[BX],AX
  47.        pop      bp
  48.        ret      ARGLEN3
  49. ADD_2  ENDP
  50.  
  51. ADD_TEXT        ENDS
  52.        END
  53.  
  54.  
  55.