DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »duvchjob«

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

TextFile

job hj 2 200 time 11 0 area 10 size 100000
( message dummy vch
source = copy 25.1
duvchlst = set 1 disc1
duvchlst = indent source mark lc
listc = cross duvchlst
o errors
message  pascal
pascal80 alarmenv source
o c
lookup pass6code
if ok.yes
  duvchbin = move pass6code
duvchlst = copy listc errors
scope user duvchlst
convert errors
finis
)

\f


process vc_handler ( 
  opsem : sempointer;
  var dca, tsa : macroaddr;
  var sem : !ts_pointer_vector
 );

(*---------------------------------------------------------------------*)
(*
    this is a dummy vc-handler, all messages are refused.

  ---------------------------------------------------------------------*)

const
 version= "dummy 0.00 /";
 
 refuse_code = #h12;
 main = vch_sem_no;

type

 flawshape = packed record
  head : alarmlabel;
  data : alarmlabel
 end;

var

 msg : reference;

 console : zone;






\f



procedure refuse ( var m: reference;  cause: result_range );

(*      send mess back with opcode 1.2     *)

const
 leng = 2*label_size+2;

begin
 lock m as buf: flawshape do
 with buf do
 begin
  data:= head;
  data.op_code:= m^.u4;
  with head do
  begin
   no_of_by:= leng;
   rec:= send;
   send.macro:= tsa;
   send.micro:= vch_mic_addr;
   result:= cause;
  end;
 end;

 m^.u3:= vca_route;
 m^.u4:= refuse_code;
 signal ( m, sem(tssup_sem_no).s^);

end;

\f


(*---------------------- main program -------------------------*)

begin

 testopen ( console, own.incname, opsem);
 testout  ( console, version, al_env_version);

 repeat
  wait ( msg, sem(main).w^);
  
  testout ( console, " opcode =   ", msg^.u4);
 
  refuse ( msg, not_found)

 until false

end .

▶EOF◀