home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 1.ddi / CLIBSRC1.ZIP / H_PADD.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  2.4 KB  |  89 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      H_PADD.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 huge pointers.
  16.  
  17. _TEXT           SEGMENT BYTE PUBLIC 'CODE'
  18.                 ASSUME  CS:_TEXT
  19.  
  20.                 public  PADD@
  21.                 public  F_PADD@
  22.                 public  N_PADD@
  23.  
  24. N_PADD@:
  25.                 pop     es                      ;fix up far return
  26.                 push    cs
  27.                 push    es
  28. PADD@:
  29. F_PADD@:
  30.                 or      cx,cx
  31.                 jge     add1
  32.                 not     bx
  33.                 not     cx
  34.                 add     bx,1
  35.                 adc     cx,0
  36.                 jmp     sub1
  37. add1:
  38.                 add     ax,bx
  39.                 jnc     addok
  40.                 add     dx,1000h
  41. addok:
  42.                 mov     ch,cl
  43.                 mov     cl,4
  44.                 shl     ch,cl
  45.                 add     dh,ch
  46.                 mov     ch,al
  47.                 shr     ax,cl
  48.                 add     dx,ax
  49.                 mov     al,ch
  50.                 and     ax,0fh
  51.                 retf
  52.  
  53.                 public  PSUB@
  54.                 public  F_PSUB@
  55.                 public  N_PSUB@
  56.  
  57. N_PSUB@:
  58.                 pop     es                      ;fix up far return
  59.                 push    cs
  60.                 push    es
  61. PSUB@:
  62. F_PSUB@:
  63.                 or      cx,cx
  64.                 jge     sub1
  65.                 not     bx
  66.                 not     cx
  67.                 add     bx,1
  68.                 adc     cx,0
  69.                 jmp     add1
  70. sub1:
  71.                 sub     ax,bx
  72.                 jnc     subok
  73.                 sub     dx,1000h
  74. subok:
  75.                 mov     bh,cl
  76.                 mov     cl,4
  77.                 shl     bh,cl
  78.                 xor     bl,bl
  79.                 sub     dx,bx
  80.                 mov     ch,al
  81.                 shr     ax,cl
  82.                 add     dx,ax
  83.                 mov     al,ch
  84.                 and     ax,0fh
  85.                 retf
  86. _TEXT           ENDS
  87.                 END
  88.  
  89.