@o@ 不用動腦，隻要動手，輕忪拿分 (219分)

luyear · 2001-08-18

20號是小妹kelly的生日，請大家幫忙發生日卡給她
發者有分。
幾個不錯的ASM delphi函數供參考
function Min(X,Y : integer) : integer;
assembler;
asm
mov ax,X
cmp ax,Y
jle @@1
mov ax,Y
@@1:
end;
{ Min }
function Max(X,Y : integer) : integer;
assembler;
asm
mov ax,X
cmp ax,Y
jge @@1
mov ax,Y
@@1:
end;
{ Max }
function LongMin(A,B : longint) : longint;
assembler;
asm
mov ax, word ptr [A]
mov dx, word ptr [A+2]
mov bx, word ptr
mov cx, word ptr [B+2]
cmp dx,cx
jl @@1
jg @@2
cmp ax,bx
jbe @@1
@@2:
mov ax,bx
mov dx,cx
@@1:
end;
{ LongMin }
function LongMax(A,B : longint) : longint;
assembler;
asm
mov ax, word ptr [A]
mov dx, word ptr [A+2]
mov bx, word ptr
mov cx, word ptr [B+2]
cmp dx,cx
jg @@1
jl @@2
cmp ax,bx
jae @@1
@@2:
mov ax,bx
mov dx,cx
@@1:
end;
{ LongMax }
function InRange(V,A,B : integer) : boolean;
assembler;
asm
mov ax,V
cmp ax,A
jl @1
cmp ax,B
jg @1
mov ax,1
jmp @2
@1:
xor ax,ax
@2:
end;
{ InRange }
function OutRange(V,A,B : integer) : boolean;
assembler;
asm
mov ax,V
cmp ax,A
jl @1
cmp ax,B
jg @1
xor ax,ax
jmp @2
@1:
mov ax,1
@2:
end;
{ OutRange }
function LongInRange(V,A,B : longint) : boolean;
begin
LongInRange := (V >= A) and (V <= B);
end;
{ LongInRange }
function LongOutRange(V,A,B : longint) : boolean;
begin
LongOutRange := (V < A) or (V > B);
end;
{ LongOutRange }
function LongToInt(V : longint) : integer;
begin
if V < -MaxInt then
LongToInt := -MaxInt
else
if V > MaxInt then
LongToInt := MaxInt
else
LongToInt := V;
end;
{ LongToInt }
function IntToShort(V : integer) : shortint;
begin
if V > 127 then
IntToShort := 127
else
if V < -128 then
IntToShort := -128
else
IntToShort := V;
end;
{ IntToShort }
function CompToLongInt(V : Comp):longint;
var
s : string[20];
l : longint;
e : integer;
begin
if V > MaxLongInt then
l := MaxLongInt
else
if V < -MaxLongInt then
l := -MaxLongInt
else
begin
Str(V:20:0, S);
val(s, l, e);
end;
CompToLongInt := l;
end;
{ CompToLongInt }
function CompToInt(V : Comp):integer;
var
s : string[20];
i, e : integer;
begin
if V > MaxInt then
i := MaxInt
else
if V < -MaxInt then
i := -MaxInt
else
begin
Str(V:20:0, S);
val(s, i, e);
end;
CompToInt := i;
end;
{ CompToInt }

end.
{ unit Arit }

coolbaby · 2001-08-18

好的，我发发发！！！！

SINGLBOY · 2001-08-18

Toylin · 2001-08-18

必需的

luyear · 2001-08-20

不知道谁发了病毒给kelly,她一打开邮件，电脑就down,再开机时，BIOS好像被破坏了

chyw123 · 2001-08-20

好可怜啊！

wjiachun · 2001-08-20

你给她找的麻烦

MrMengyi · 2001-08-20

我发了
：）

老赵 · 2001-08-20

My God.
好心办坏事.

deadcandance · 2001-08-20

我也发了

小人物 · 2001-08-20

kelly是不是MM，如果是我才发

luyear · 2001-08-20

废话！！当然是

goldfinger · 2001-08-20

哇！！有那么好的事啊！！！赶紧发！！！
好了！！
对了！！！发多几份是不是分多些啊？？？

shephard · 2001-08-20

我发，我发，我发发发！

郭玉梁 · 2001-08-20

fa,fa,fa

小淘 · 2001-08-20

开一个Party吧，那样更好

luyear · 2001-08-20

开一个Party,哪里有时间啊，大家都是上班一族啊

liguang · 2001-08-20

这种问题也发贴子真是。。。。。。。。。。。
另外kelly是不是陈慧琳啊:->

luyear · 2001-08-21

发分了！！！按发卡数量发分

jackyzhang · 2001-08-21

我没来得及看，可惜了

@o@ 不用動腦，隻要動手，輕忪拿分 (219分)

luyear

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

SINGLBOY

Unregistered / Unconfirmed

Toylin

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

chyw123

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

deadcandance

Unregistered / Unconfirmed

小人物

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

goldfinger

Unregistered / Unconfirmed

shephard

Unregistered / Unconfirmed

郭玉梁

Unregistered / Unconfirmed

小淘

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

liguang

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

jackyzhang

Unregistered / Unconfirmed

Similar threads