home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tasminst / chapxmpl.arc / ADD.ASM next >
Assembly Source File  |  1989-05-02  |  1KB  |  49 lines
  1.  
  2.        name     add
  3.  
  4. ADD_TEXT        SEGMENT   BYTE PUBLIC 'CODE'
  5.        ASSUME   CS:ADD_TEXT
  6.        PUBLIC   ADD_0                ;(i,i,o) flow pattern
  7.  
  8. ADD_0  PROC     FAR
  9.        arg      Z:dWORD, Y:WORD, X:WORD = ARGLEN1
  10.        push     bp
  11.        mov      bp,sp
  12.        mov      ax,X
  13.        add      ax,Y
  14.        les      bx,Z
  15.        mov      WORD PTR ES:[BX],ax
  16.        pop      bp
  17.        ret      ARGLEN1
  18. ADD_0  ENDP
  19.  
  20.        PUBLIC   ADD_1                      ;(i,o,i) flow pattern
  21. ADD_1  PROC     FAR
  22. arg    Z:WORD,  Y:dWORD, X:WORD = ARGLEN2
  23.        push     bp
  24.        mov      bp,sp
  25.        mov      ax, Z
  26.        sub      ax, X
  27.        les      bx, Y
  28.        mov      WORD PTR ES:[BX],AX
  29.        pop      bp
  30.        ret      ARGLEN2
  31. ADD_1  ENDP
  32.  
  33.        PUBLIC   ADD_2                 ;(o,i,i) flow pattern
  34. ADD_2  PROC     FAR
  35. arg    Z:WORD,  Y:WORD, X:dWORD = ARGLEN3
  36.        push     bp
  37.        mov      bp,sp
  38.        mov      ax, Z
  39.        sub      ax, Y
  40.        les      bx, X
  41.        mov      WORD PTR ES:[BX],AX
  42.        pop      bp
  43.        ret      ARGLEN3
  44. ADD_2  ENDP
  45.  
  46. ADD_TEXT        ENDS
  47.        END
  48.  
  49.