|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »nlavgt«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »nlavgt«
>np
>nf
; Vagt pseudo kode
PROCESS vagt( VAR main, dbms, tty, timer, net: SEMAPHORE;
rt_prio, db_prio: INTEGER );
BEGIN
initialize;
create_channel;
log_on( user_id );
define_views;
REPEAT
WAIT( message, main );
CASE message_origin OF
timer:
BEGIN
SELECT at_no, op_code, data
FROM serv_view
WHERE time >= timer_clock
;
SIGNAL( service_message, net )
END;
tty:
BEGIN
decode( mml_command, sequel );
SIGNAL( sequel, dbms )
END;
net:
BEGIN
decode( net_message, sequel );
SIGNAL( sequel, dbms )
END;
dbms:
display;
OTHERWISE
END
UNTIL log_off
END. <* process vagt *>
>fi
▶EOF◀