开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
mmutils.inc
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：11k
源码类别：

Delphi控件源码

开发平台：

Delphi

mmutils.inc：源码内容
  1. {=========================================================================}
  2. procedure _SwapSmall(var a, b: SmallInt);
  3. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  4. var
  5.    Temp: SmallInt;
  7. begin
  8.      Temp := a;
  9.      a := b;
  10.      b := Temp;
  11. end;
  13. {=========================================================================}
  14. procedure _SwapInt(var a, b: integer);
  15. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  16. var
  17.    Temp: integer;
  19. begin
  20.      Temp := a;
  21.      a := b;
  22.      b := Temp;
  23. end;
  25. {=========================================================================}
  26. procedure _SwapLong(var a, b: Longint);
  27. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  28. var
  29.    Temp: Longint;
  31. begin
  32.      Temp := a;
  33.      a := b;
  34.      b := Temp;
  35. end;
  37. {=========================================================================}
  38. function _Min(a, b: Longint): Longint;
  39. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  40. begin
  41.      if a > b then Result := b
  42.      else Result := a;
  43. end;
  45. {=========================================================================}
  46. function _Max(a, b: Longint): Longint;
  47. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  48. begin
  49.      if a > b then Result := a
  50.      else Result := b;
  51. end;
  53. {=========================================================================}
  54. function _MinMax(X, Min, Max: Longint): Longint;
  55. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  56. begin
  57.      if (X < Min) then X := Min
  58.      else if (X > Max) then X := Max;
  59.      Result := X;
  60. end;
  62. {=========================================================================}
  63. function _Limit(X, Min, Max: Longint): Longint;
  64. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  65. begin
  66.    if (Max >= Min) then
  67.    begin
  68.       if (X < Min) then X := Min
  69.       else if (X > Max) then X := Max;
  70.    end
  71.    else
  72.    begin
  73.       if (X < Max) then X := Max
  74.       else if (X > Min) then X := Min;
  75.    end;
  76.    Result := X;
  77. end;
  79. {=========================================================================}
  80. function _InMinMax(X,Min,Max: Longint): Boolean;
  81. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  82. begin
  83.    { if Min > Max then Result is never true }
  84.    if (X < Min) then Result := False
  85.    else if (X > Max) then Result := False
  86.    else Result := True;
  87. end;
  89. {=========================================================================}
  90. function _InRange(X, Min, Max: Longint): Boolean;
  91. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}
  92. begin
  93.    if (Max >= Min) then
  94.    begin
  95.       if (X < Min) then Result := False
  96.       else if (X > Max) then Result := False
  97.       else Result := True;
  98.    end
  99.    else
  100.    begin
  101.       if (X < Max) then Result := False
  102.       else if (X > Min) then Result := False
  103.       else Result := True;
  104.    end;
  105. end;
  107. {=========================================================================}
  108. procedure _incHuge(var Pointer; nBytes: Longint);
  109. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}assembler;
  110. asm
  111. {$IFDEF WIN32}
  112.       add    [eax], edx
  113. {$ELSE}
  114.       mov    ax, nBytes.Word[0]
  115.       mov    dx, nBytes.Word[2]
  116.       xor    bx, bx
  117.       les    di, Pointer
  118.       add    es:[di].Word[0], ax
  119.       adc    bx, dx
  120.       shl    bx, 3                     { inc Selector by SelectorInc = 8 }
  121.       add    es:[di].Word[2], bx
  122. {$ENDIF}
  123. end;
  125. {=========================================================================}
  126. procedure _GlobalFillMem(var X; Cnt: Longint; Value: Byte);
  127. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}assembler;
  128. asm
  129. {$IFDEF WIN32}
  130. {     ->EAX     Pointer to destination  }
  131. {       EDX     count   }
  132. {       CL      value   }
  134.         test    eax, eax
  135.         jz      @@error
  137.         test    edx, edx
  138.         jz      @@error
  140.         push    edi
  142.         mov     edi, eax { Point EDI to destination              }
  145.         mov     ch, cl     { Fill EAX with value repeated 4 times  }
  146.         mov     eax, ecx
  147.         shl     eax, 16
  148.         mov     ax, cx
  150.         mov     ecx, edx
  151.         sar     ecx, 2
  152.         js      @@exit
  154.         cld
  155.         rep     stosd      { Fill count DIV 4 dwords       }
  157.         mov     ecx, edx
  158.         and     ecx, 3
  159.         rep     stosb      { Fill count MOD 4 bytes        }
  161. @@exit:
  162.         pop     edi
  163. @@error:
  165. {$ELSE}
  166.         db      66h
  167.         xor     di, di
  168.         les     di, X      { Point ES:[EDI] to destination }
  170.         mov     cl, Value
  171.         mov     ch, cl     { Fill EAX with value repeated 4 times  }
  172.         mov     ax, cx
  173.         db      66h
  174.         shl     ax, 16
  175.         mov     ax, cx
  177.         db      66h
  178.         mov     cx, word ptr Cnt
  179.         db      66h
  180.         sar     cx, 2
  181.         js      @@exit
  183.         db      66h
  184.         rep
  185.         db      67h
  186.         stosw              { Fill count DIV 4 dwords       }
  188.         db      66h
  189.         mov     cx, word ptr Cnt
  190.         db      66h
  191.         db      83h
  192.         db      0E1h
  193.         db      03h        { and ecx, 3                    }
  194.         rep
  195.         db      67h
  196.         stosb              { Fill count MOD 4 bytes        }
  197. @@exit:
  198. {$ENDIF}
  199. end;
  201. {=========================================================================}
  202. procedure _GlobalFillLong(var X; Cnt: Longint; Value: Longint);
  203. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}assembler;
  204. asm
  205. {$IFDEF WIN32}
  206. {     ->EAX     Pointer to destination  }
  207. {       EDX     count   }
  208. {       CL      value   }
  210.         push    edi
  212.         mov     edi, eax { Point EDI to destination              }
  215.         mov     eax, ecx
  217.         mov     ecx, edx
  218.         sar     ecx, 2
  219.         js      @@exit
  221.         cld
  222.         rep     stosd      { Fill count DIV 4 dwords       }
  224.         mov     ecx, edx
  225.         and     ecx, 3
  226.         rep     stosb      { Fill count MOD 4 bytes        }
  228. @@exit:
  229.         pop     edi
  231. {$ELSE}
  232.         db      66h
  233.         xor     di, di
  234.         les     di, X      { Point ES:[EDI] to destination }
  236.         db      66h
  237.         mov     ax, word ptr Value
  239.         db      66h
  240.         mov     cx, word ptr Cnt
  241.         db      66h
  242.         sar     cx, 2
  243.         js      @@exit
  245.         db      66h
  246.         rep
  247.         db      67h
  248.         stosw              { Fill count DIV 4 dwords       }
  250.         db      66h
  251.         mov     cx, word ptr Cnt
  252.         db      66h
  253.         db      83h
  254.         db      0E1h
  255.         db      03h        { and ecx, 3                    }
  256.         rep
  257.         db      67h
  258.         stosb              { Fill count MOD 4 bytes        }
  259. @@exit:
  260. {$ENDIF}
  261. end;
  263. {=========================================================================}
  264. procedure _GlobalMoveMem(const Source; var Dest; Cnt: Longint);
  265. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}assembler;
  266. asm
  267. {$IFDEF WIN32}
  268. {     ->EAX     Pointer to source       }
  269. {       EDX     Pointer to destination  }
  270. {       ECX     Count                   }
  272.         test    ecx, ecx
  273.         jz      @@error
  275.         push    esi
  276.         push    edi
  278.         mov     esi, eax
  279.         mov     edi, edx
  281.         mov     eax, ecx
  283.         cmp     edi, esi
  284.         jg      @@down
  285.         je      @@exit
  287.         sar     ecx, 2     { copy count DIV 4 dwords       }
  288.         js      @@exit
  290.         cld
  291.         rep     movsd
  293.         mov     ecx, eax
  294.         and     ecx, 3
  295.         rep     movsb      { copy count MOD 4 bytes        }
  296.         jmp     @@exit
  298. @@down:
  299.         lea     esi, [esi+ecx-4] { point ESI to last dword of source     }
  300.         lea     edi, [edi+ecx-4] { point EDI to last dword of dest       }
  302.         sar     ecx, 2     { copy count DIV 4 dwords       }
  303.         js      @@exit
  305.         std
  306.         rep     movsd
  308.         mov     ecx, eax
  309.         and     ecx, 3     { copy count MOD 4 bytes        }
  310.         add     esi, 4-1   { point to last byte of rest    }
  311.         add     edi, 4-1
  312.         rep     movsb
  313.         cld
  314. @@exit:
  315.         pop     edi
  316.         pop     esi
  317. @@error:
  318. {$ELSE}
  319.         mov     dx, ds     { save DS in DX }
  321.         db      66h
  322.         xor     si, si
  323.         lds     si, Source { DS:[esi] point to Source }
  325.         db      66h
  326.         xor     di, di
  327.         les     di, Dest   { ES:[EDI] point to destination }
  329.         db      66h
  330.         mov     cx, word ptr Cnt
  332.         db      66h
  333.         cmp     di, si
  334.         jg      @@down
  336.         cld
  338.         db      66h
  339.         sar     cx, 2
  340.         js      @@exit
  342.         db      66h
  343.         rep
  344.         db      67h
  345.         movsw              { move count DIV 4 dwords       }
  347.         db      66h
  348.         mov     cx, word ptr Cnt
  349.         db      66h
  350.         db      83h
  351.         db      0E1h
  352.         db      03h        { and ecx, 3                    }
  354.         db      66h
  355.         rep
  356.         db      67h
  357.         movsb              { move count MOD 4 bytes        }
  359.         jmp     @@exit
  361. @@down:
  362.         db      66h
  363.         add     si, cx
  364.         db      66h
  365.         add     di, cx
  366.         db      66h
  367.         sub     si, 4
  368.         db      66h
  369.         sub     di, 4
  370.         std
  372.         db      66h
  373.         sar     cx, 2
  374.         js      @@exit
  376.         db      66h
  377.         rep
  378.         db      67h
  379.         movsw              { move count DIV 4 dwords       }
  381.         db      66h
  382.         mov     cx, word ptr Cnt
  383.         db      66h
  384.         db      83h
  385.         db      0E1h
  386.         db      03h        { and ecx, 3                    }
  388.         db      66h
  389.         add     si, 4-1   { point to last byte of rest    }
  390.         db      66h
  391.         add     di, 4-1
  393.         db      66h
  394.         rep
  395.         db      67h
  396.         movsb              { move count MOD 4 bytes        }
  398. @@exit:
  399.         cld
  400.         mov     ds, dx     { restore DS }
  401. {$ENDIF}
  402. end;
  404. {=========================================================================}
  405. function _GlobalCmpMem(const p1, p2; Cnt: Longint): Boolean;
  406. {$IFDEF USEDLL}export;{$ELSE}Far;{$ENDIF}assembler;
  407. asm
  408. {$IFDEF WIN32}
  409. {     ->EAX     Pointer to source       }
  410. {       EDX     Pointer to destination  }
  411. {       ECX     Count                   }
  412.         push edi
  413.         push    esi
  415.         cld
  417.         mov     edi, eax
  418.         mov     esi, edx
  420.         xor     eax, eax
  421.         mov edx, ecx
  423.         shr ecx, 2
  424.         or ecx, ecx
  425.         jz @@Rest
  427.         repz    cmpsd
  428.         jnz @@NotEqual
  429. @@Rest:
  430.         mov     ecx, edx
  431.         and ecx, 3
  432.         or ecx, ecx
  433.         jz @@Equal
  435.         repz    cmpsb
  436.         jnz @@NotEqual
  438. @@Equal:
  439.         mov ax, True
  441. @@NotEqual:
  442.         pop     esi
  443.         pop edi
  444. {$ELSE}
  445.         mov     bx, ds     { save DS in BX }
  446.         cld
  448.         xor     ax, ax
  450.         db      66h
  451.         xor     si, si
  452.         lds     si, p1     { DS:[esi] point to p1 }
  454.         db      66h
  455.         xor     di, di
  456.         les     di, p2     { ES:[EDI] point to p2 }
  458.         db      66h
  459.         mov     cx, word ptr Cnt
  461.         db      66h
  462.         mov dx, cx
  464.         db      66h
  465.         shr     cx, 2
  466.         db      66h
  467.         or      cx, cx
  468.         jz      @@Rest
  470.         db      66h
  471.         repz
  472.         db      67h
  473.         cmpsw              { compare count DIV 4 dwords       }
  474.         jnz @@NotEqual
  475. @@Rest:
  476.         db      66h
  477.         mov     cx, dx
  479.         db      66h
  480.         db      83h
  481.         db      0E1h
  482.         db      03h        { and ecx, 3                    }
  483.         db      66h
  484.         or cx, cx
  485.         jz @@Equal
  487.         repz
  488.         db      67h
  489.         cmpsb
  490.         jnz @@NotEqual
  492. @@Equal:
  493.         mov ax, True
  495. @@NotEqual:
  496.         mov     ds, bx     { restore ds }
  497. {$ENDIF}
  498. end;