DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »testdesc« 

TextFile

mode list.yes
rename testout.testout1
testout=set 30
scope user testout
o testout
testmon=pascal list.yes  survey.yes  heap.100 codesize.200
program testmon(input,output);
var i,j,res,number,buffer,device: integer;
name: alfa;
tail: array Æ1..10Å of integer;
M,A: array Æ1..8Å of integer;
test: boolean;
value 
device=10;
test=false;

procedure readname(var name: alfa);
var c: char;
i: integer;
value i=1;
begin
name:='            ';
repeat
  read(c);
until c<>' ';
repeat
  nameÆiÅ:=c;
  i:=i+1;
  read(c);
until eoln(input);
nameÆiÅ:=c;
if test then
  for i:=1 to 12 do write('*',nameÆiÅ);
end (*readname*);



begin
(*MAIN PROGRAM*)
  MÆ1Å:=0;
  read(number);
  readname(name);
  if number>16 then read(buffer);
  writeln('case ',number,'  name ',name);
  case number of
  4: res:=description(name);
  6: res:=initproc(name);
  8: res:=reserveproc(name);
  10: releaseproc(name);
  12: res:=include(name,device);
  14: res:=exclude(name,device);
  16: res:=sendmessage(name,M);
  18: res:=waitanswer(buffer,M);
(*
  20: res:=waitmessage(buffer,name,M);
*)
(*
  22: res:=sendanswer(buffer,res,A);
*)
  24: res:=waitevent(buffer);
  26: getevent(buffer);
  end
  otherwise write('wrong case label ',number);
  if number<>10 then writeln(res);
end.
;
testmon
8 clock
testmon
16 clock
mode list.no
▶EOF◀