DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »testenv«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »testenv« 

TextFile

testenv;
 
(*******************************************************
*
* function: the testenvironment is used by a pascal80-
*           process to supply testoutput to the operator
*           console.
*
* externals: testopen, testout.
*
* programmed may 1980 by wib and stb.
*
*******************************************************)
\f

 
type
 
buffertype= record
first, last, next: integer;
name: alfa;
data: array (1..80) of char;
end;
 
zone= record
testoutpool: pool 1 of buffertype;
testoutsem: semaphore;
opsem: ^semaphore
end;
 
procedure testopen(
(* testopen is used to open testmode for a module *)
var z: zone; 
modulename: alfa;
ps: ^semaphore
);
external;
 
procedure testout(
(* testout is used to send a message to the operatormodule *)
var z: zone;
text: alfa;
i: integer
);
external;
 
.
▶EOF◀