DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦80900d603⟧ »giprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦80900d603⟧ »giprocfile« 
            └─⟦this⟧ 

TextFile

;       parent_mes_tx         * page 1   27 09 77, 11.39;  

;  parent_mes
;  **********

if listing.yes
char 10 12 10

parentmes=set 1 disc

parentmes = algol
external integer procedure parent_mes(mes);  
___________________________________________

integer array mes;  
begin
  comment send the message in mes to
  the parent, ie. the operating-system 
  executing the program;  

  integer i, 
  _       parent_addr, 
  _       mode_kind;  

  real    array parent_name(1:2);  

  integer array sh_des(1:12);  

  zone    parent(1, 1, stderror);  

  parent_addr:= system(8, mode_kind, parent_name);  
  i          := 1;  
  open(parent, mode_kind, string(parent_name(increase(i))), 0);  

  get_share(parent, sh_des, 1);  
  for i:= 4 step 1 until 11 do
  sh_des(i):= mes(i-4);  
  set_share(parent, sh_des, 1);  

  i:= monitor(16)send_message_to:(parent, 1, sh_des);  
  if i=0 then system(9, 0, <:<10>bufclaim:>);  
  if mes(0) extract 5 = 0 then
  i:= monitor(18)wait_answer_from:(parent, 1, mes);  
  parent_mes:= i;  
end;  
end;  

if warning.yes
(mode 0.yes
message parent_mes not ok
lookup parent_mes)
▶EOF◀