怎样在Pascal中使用汇编代码
答案:1 悬赏:80 手机版
解决时间 2021-04-04 21:03
- 提问者网友：战魂
- 2021-04-03 23:07
怎样在Pascal中使用汇编代码
最佳答案
- 五星知识达人网友：天凉才是好个秋
- 2021-04-04 00:05
你不妨考虑一下用这种方法：
var
reg :registers;
{
SET SYSTEM DATE
RETURN: AL($00FF=FAIL, ELSE SUCCESS)
}
function setdate_ok(y,m,d:word):boolean;
begin
with reg do
begin
ah:=$2b; { FUNCTION CODE }
cx:=y; { YEAR }
dh:=m; { MONTH }
dl:=d; { DAY }
intr($21,reg); { INT 21h }
setdate_ok:=al<>$00ff; { RETURN TRUE, OR FALSE }
end;
end;
var
reg :registers;
{
SET SYSTEM DATE
RETURN: AL($00FF=FAIL, ELSE SUCCESS)
}
function setdate_ok(y,m,d:word):boolean;
begin
with reg do
begin
ah:=$2b; { FUNCTION CODE }
cx:=y; { YEAR }
dh:=m; { MONTH }
dl:=d; { DAY }
intr($21,reg); { INT 21h }
setdate_ok:=al<>$00ff; { RETURN TRUE, OR FALSE }
end;
end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯