home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 5.ddi / CLIBSRC2.ZIP / H_PADA.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  3.3 KB  |  113 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      H_PADA.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  PADA@
  21.                 public  F_PADA@
  22.                 public  N_PADA@
  23.  
  24. N_PADA@:
  25.                 pop     es                      ;fix up far return
  26.                 push    cs
  27.                 push    es
  28. PADA@:
  29. F_PADA@:
  30.                 mov     es,dx
  31.                 xchg    ax,bx
  32. ;
  33. ;               Pointer to memory cell to increment is in es:bx
  34. ;               Increment amount is ax:cx
  35. ;
  36.                 mov     dx, es:2[bx]    ; DX <- Selector
  37.                 push    bx
  38.                 mov     bx, es:[bx]     ; BX <- Offset
  39.                 or      cx,cx           ; Is increment negative?
  40.                 jge     ada1            ; No, ...
  41.                 not     ax              ; Yes, ...
  42.                 not     cx
  43.                 add     ax,1
  44.                 adc     cx,0
  45.                 jmp     sba1
  46. ada1:
  47.                 add     bx,ax           ; Add offsets
  48.                 jnc     adaok
  49.                 add     dx,1000h
  50. adaok:
  51.                 mov     ah,cl
  52.                 mov     cl,4
  53.                 shl     ah,cl
  54.                 xor     al,al
  55.                 add     dx,ax
  56.                 mov     ch,bl
  57.                 shr     bx,cl
  58.                 add     dx,bx
  59.                 mov     al,ch
  60.                 and     ax,0fh
  61.                 pop     bx
  62.                 mov     es:[bx], ax
  63.                 mov     es:2[bx], dx
  64.                 retf
  65.  
  66.                 public  PSBA@
  67.                 public  F_PSBA@
  68.                 public  N_PSBA@
  69.  
  70. N_PSBA@:
  71.                 pop     es                      ;fix up far return
  72.                 push    cs
  73.                 push    es
  74. PSBA@:
  75. F_PSBA@:
  76.                 mov     es,dx
  77.                 xchg    ax,bx
  78. ;
  79. ;               Pointer to memory cell to increment is in es:bx
  80. ;               Increment amount is ax:cx
  81. ;
  82.                 mov     dx,es:2[bx]
  83.                 push    bx
  84.                 mov     bx,es:[bx]
  85.                 or      cx,cx
  86.                 jge     sba1
  87.                 not     ax
  88.                 not     cx
  89.                 add     ax,1
  90.                 adc     cx,0
  91.                 jmp     ada1
  92. sba1:
  93.                 sub     bx,ax
  94.                 jnc     sbaok
  95.                 sub     dx,1000h
  96. sbaok:
  97.                 mov     ah,cl
  98.                 mov     cl,4
  99.                 shl     ah,cl
  100.                 xor     al,al
  101.                 sub     dx,ax
  102.                 mov     ch,bl
  103.                 shr     bx,cl
  104.                 add     dx,bx
  105.                 mov     al,ch
  106.                 and     ax,0fh
  107.                 pop     bx
  108.                 mov     es:[bx],ax
  109.                 mov     es:2[bx],dx
  110.                 retf
  111. _TEXT           ENDS
  112.                 END
  113.