28 lines
448 B
Plaintext
28 lines
448 B
Plaintext
|
type
|
||
|
|
regpack = record
|
||
|
|
ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure get_time( var tt : timetype );
|
||
|
|
var
|
||
|
|
recpack: registers;
|
||
|
|
ahigh: byte;
|
||
|
|
|
||
|
|
begin
|
||
|
|
ahigh := $2c;
|
||
|
|
with recpack do
|
||
|
|
begin
|
||
|
|
ax := ahigh shl 8;
|
||
|
|
end;
|
||
|
|
intr( $21, recpack );
|
||
|
|
with recpack do
|
||
|
|
begin
|
||
|
|
tt.h := cx shr 8;
|
||
|
|
tt.m := cx mod 256;
|
||
|
|
tt.s := dx shr 8;
|
||
|
|
tt.l := dx mod 256;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|