Можно. Попробуйте следующий код:
|
|
Procedure
settime(hour, min, sec, hundreths : byte);
assembler; asm
mov ch, hour
mov cl, min
mov dh, sec
mov dl, hundreths
mov ah, $2d
int $21
end;
Procedure setdate(Year : word;
Month, Day : byte); assembler; asm
mov cx, year
mov dh, month
mov dl, day
mov ah, $2b
int $21
end; | |