home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 5.ddi / CLIBSRC2.ZIP / H_PINA.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  2.5 KB  |  91 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      H_PINA.ASM -- long pointer routines                          |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.                 INCLUDE RULES.ASI
  13.  
  14. ; calls to these routines are generated by the compiler to perform
  15. ; arithmetic operations on long pointers.
  16.  
  17. _TEXT           SEGMENT BYTE PUBLIC 'CODE'
  18.                 ASSUME  CS:_TEXT
  19.  
  20.                 public  PINA@
  21.                 public  F_PINA@
  22.                 public  N_PINA@
  23.  
  24. N_PINA@:
  25.                 pop     cx                      ;fix up far return
  26.                 push    cs
  27.                 push    cx
  28. PINA@:
  29. F_PINA@:
  30. ;
  31. ;               Pointer to memory cell to increment is in es:bx
  32. ;               Increment amount is ax
  33. ;               This routine trashes cl
  34.  
  35.                 mov     cl,4
  36.                 add     ax,es:[bx]
  37.                 mov     dx,ax
  38.                 jc      inacarry
  39.                 shr     dx,cl
  40.                 add     dx,es:2[bx]
  41.                 and     ax,0fh
  42.                 xchg    es:[bx],ax
  43.                 xchg    es:2[bx],dx
  44.                 retf
  45. inacarry:
  46.                 shr     dx,cl
  47.                 add     dx,es:2[bx]
  48.                 add     dx,1000H
  49.                 and     ax,0fh
  50.                 xchg    es:[bx],ax
  51.                 xchg    es:2[bx],dx
  52.                 retf
  53.  
  54.                 public  PDEA@
  55.                 public  F_PDEA@
  56.                 public  N_PDEA@
  57.  
  58. N_PDEA@:
  59.                 pop     cx                      ;fix up far return
  60.                 push    cs
  61.                 push    cx
  62. PDEA@:
  63. F_PDEA@:
  64. ;
  65. ;               Pointer to memory cell to increment is in es:bx
  66. ;               Decrement amount is ax
  67. ;               This routine trashes cl
  68.  
  69.                 mov     cl,4
  70.                 mov     dx,es:[bx]
  71.                 sub     dx,ax
  72.                 mov     ax,dx
  73.                 jc      deacarry
  74.                 shr     dx,cl
  75.                 add     dx,es:2[bx]
  76.                 and     ax,0fh
  77.                 xchg    es:[bx],ax
  78.                 xchg    es:2[bx],dx
  79.                 retf
  80. deacarry:
  81.                 shr     dx,cl
  82.                 add     dx,es:2[bx]
  83.                 sub     dx,1000H
  84.                 and     ax,0fh
  85.                 xchg    es:[bx],ax
  86.                 xchg    es:2[bx],dx
  87.                 retf
  88. _TEXT           ENDS
  89.                 END
  90.  
  91.