48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
|
{* WARNING WARNING WARNING WARNING WARNING WARNING WARNING
|
|||
|
|
|
|||
|
|
Do not try to use the MsDos function call unless you are
|
|||
|
|
very familiar with the operating system and have technical
|
|||
|
|
information available to you!
|
|||
|
|
|
|||
|
|
The following program uses the MsDos command in Turbo to
|
|||
|
|
retrieve the system date. This is achieved via DOS function
|
|||
|
|
call 42 (or 2A hex). The function call is placed in the AH
|
|||
|
|
register according to the technical reference manual.
|
|||
|
|
|
|||
|
|
Type in the following code. The only output is the date
|
|||
|
|
at the top of your screen.*}
|
|||
|
|
|
|||
|
|
program GetDate;
|
|||
|
|
type
|
|||
|
|
DateStr = string[10];
|
|||
|
|
|
|||
|
|
function Date: DateStr;
|
|||
|
|
type
|
|||
|
|
regpack = record
|
|||
|
|
ax,bx,cx,dx,bp,si,ds,es,flags: integer;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
recpack: regpack; {record for MsDos call}
|
|||
|
|
month,day: string[2];
|
|||
|
|
year: string[4];
|
|||
|
|
dx,cx: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
with recpack do
|
|||
|
|
begin
|
|||
|
|
ax := $2a shl 8;
|
|||
|
|
end;
|
|||
|
|
MsDos(recpack); { call function }
|
|||
|
|
with recpack do
|
|||
|
|
begin
|
|||
|
|
str(cx,year); {convert to string}
|
|||
|
|
str(dx mod 256,day); { " }
|
|||
|
|
str(dx shr 8,month); { " }
|
|||
|
|
end;
|
|||
|
|
date := month+'/'+day+'/'+year;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
writeln(date);
|
|||
|
|
end.
|