home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / MYASM.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-02-13  |  767 b   |  25 lines
  1. ; Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  2. ;
  3. ; MYASM.ASM
  4. ;
  5. ; Interfacing Turbo Assembler and Turbo Prolog.
  6.  
  7. A_PROG     SEGMENT BYTE
  8.            ASSUME CS:A_PROG
  9.            PUBLIC double_0
  10. double_0   PROC   FAR
  11.            push   bp
  12.            mov    bp,sp
  13.  
  14.            mov    ax, [bp]+10          ; get the value which MyInVar is bound
  15.            add    ax,ax                ; double that value
  16.            lds    si,DWORD PTR [bp]+6
  17.            mov    [si],ax              ; store the value of MyOutVar 
  18.                                        ; in the appropriate address
  19.        mov    sp,bp                                       
  20.            pop    bp
  21.            ret    6
  22. double_0  ENDP
  23. A_PROG    ENDS
  24.           END
  25.