Stimmen - 0, Durchschnittliche Bewertung: 0
(
)
)
|
Dieses Gerät hat auch andere Anweisungen:
Software - MPE/iX 6.0 Operating System (646.69 kb)
Software - MPE/iX 6.0 Operating System (1.23 mb)
Software - MPE/iX 6.0 Operating System (118.4 kb)
Software - MPE/iX 6.0 Operating System (7.43 mb)
Software - MPE/iX 6.0 Operating System (776.42 kb)
Anleitung Zusammenfassung
end;
{
DATA_REC
is
a
record
type
which
corresponds
to
the
record
written
by
the
MON
program.
}
data_rec
=
record
dataline
:
packed
array
[1..28]
of
char;
sequence
:
int;
time
:
timer;
end;
var
fle
:
text;
i,lth,addr,parm
:
int;
file_num_0,file_num,file_num_1
:
int;
logfile,file_name,file_name_1
:
packed
array
[1..10]
of
char;
buff,buff1
:
packed
array
[1..80]
of
char;
error
:
int;
procedure
dateline;
intrinsic;
function
fopen:int;
intrinsic;
procedure
fwrite;intrinsic;
procedure
quit;
intrinsic;
procedure
fcheck;intrinsic;
procedure
getprivmode;intrinsic;
procedure
fintexit;intrinsic;
procedure
fintstate;intrinsic;
procedure
getusermode;intrinsic;
procedure
iowait;intrinsic;
procedure
iodontwait;intrinsic;
procedure
fread;intrinsic;
procedure
fcontrol;intrinsic;
function
clock
:
timer;
external;
{
INTERRUPT
HANDLER
ROUTINE
When
an
interrupt
occurs
on
the
message
file
(filenum),
we
get
the
time
of
the
interrupt
using
the
CLOCK
intrinsic.
The
time
the
record
was
written
into
the
message
file
is
written
as
part
of
the
record
in
the
message
file.
We
extract
that
time
as
well
and
write
both
times
into
our
log
file.
}
procedure
inthandler(filenum:int);
var
timestamp
:
timer;
buffer
:
data_rec;
begin
{
Get
time
of
interrupt.
D-10
Sample
Programs:
Softw
are
Interrupts
...Dieses Handbuch ist für folgende Modelle:
Software - MPE/iX 6.5 Operating System (249.34 kb)
Software - MPE/iX 7.0 Operating System (249.34 kb)
Software - MPE/iX 7.5 Operating System (249.34 kb)