47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
{* WARNING WARNING WARNING WARNING WARNING WARNING WARNING
|
||
In order to use the Intr procedure in Turbo Pascal you
|
||
must be familiar with interrupts and have access to a
|
||
technical reference manual.
|
||
|
||
The following program uses the Intr function in Turbo to
|
||
get the time. Registers have to be set correctly according
|
||
to the DOS technical reference manual before the function
|
||
is called.
|
||
|
||
The program simply returns the time in a string at the top
|
||
of the screen.*}
|
||
|
||
program TimeInterrupt;
|
||
type
|
||
TimeString = string[8];
|
||
|
||
function time: TimeString;
|
||
type
|
||
regpack = record
|
||
ax,bx,cx,dx,bp,di,si,ds,es,flags: integer;
|
||
end;
|
||
|
||
var
|
||
recpack: regpack; {assign record}
|
||
ah,al,ch,cl,dh: byte;
|
||
hour,min,sec: string[2];
|
||
|
||
begin
|
||
ah := $2c; {initialize correct registers}
|
||
with recpack do
|
||
begin
|
||
ax := ah shl 8 + al;
|
||
end;
|
||
intr($21,recpack); {call interrupt}
|
||
with recpack do
|
||
begin
|
||
str(cx shr 8,hour); {convert to string}
|
||
str(cx mod 256,min); { " }
|
||
str(dx shr 8,sec); { " }
|
||
end;
|
||
time := hour+':'+min+':'+sec;
|
||
end;
|
||
|
||
begin
|
||
writeln(time);
|
||
end. |