home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s196 / 2.img / SNIP.ASM < prev   
Encoding:
Assembly Source File  |  1991-08-14  |  1.3 KB  |  32 lines
  1.    ;-------------------------------------------------------------------------
  2.    ;    void pascal fiction1(int x, long int y, long int z);
  3.    ;-------------------------------------------------------------------------
  4. @FICTION1$QILL    proc    far
  5.     push    bp
  6.         push    si                ; recommended by Borland when register
  7.         push    di                ; variables are enabled
  8.         mov     bp,sp
  9.     sub    sp,4
  10.  
  11.         x   EQU word ptr [bp+14]  ; passed parameters reference to bp
  12.         yHI EQU word ptr [bp+12]  ; calculated by Borland
  13.         yHI EQU word ptr [bp+10]
  14.         zHI EQU word ptr [bp+8]
  15.         zLO EQU word ptr [bp+6]
  16.  
  17.         i1  EQU word ptr [bp-2]   ; local parameters reference to bp
  18.         i2  EQU word ptr [bp-4]   ; calculated by Borland
  19.  
  20.         ;  play with the GAZINTAS here and pass back GAZOWTAS
  21.         ;  The compiler has calculated all of the references to the
  22.         ;  base pointer for you, and even commented them above with
  23.         ;  the appropriate variable names which you may create equates
  24.         ;  for and now address by name.
  25.  
  26.         mov     sp,bp
  27.         pop     di                ; recommended by Borland when register
  28.         pop     si                ; variables are enabled
  29.     pop    bp
  30.     ret    10
  31. @FICTION1$QILL    endp
  32.