DataMuseum.dk

top - metrics - download

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

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »testjob« 

TextFile

job bbl 2 600 temp disc 7000 20 perm disc 50 3 time 11 0 area 20 size 90000 
mode list.yes
fil0=edit
i/
;<<<0
process monitor(var sem : semaphore);
var
r : reference;
begin
while true do
begin
wait(r,sem);
return(r);
end
end
.
;>>>0

;<<<1
process timer(var delay : semaphore; scale,pu,level : integer);
begin
end
.
;>>>1

;<<<2
process allocator(var sem1,sem2 : semaphore);
begin
end
.
;>>>2

;<<<3
process linker(var sem : semaphore);
var
r : reference;
begin
while true do
begin
wait(r,sem);
return(r);
end
end
.
;>>>3

;<<<4
process adam(pu,level : integer);
begin
end
.
;>>>4
/, f

fil00=edit fil0
d./;<<<0/, l./;>>>0/, s0,f
bmonitor = set 1
bmonitor=pascal80 fil00
scope user bmonitor

fil1=edit fil0
d./;<<<1/, l./;>>>1/, s0,f
btimer = set 1
btimer=pascal80 fil1
scope user btimer

fil2=edit fil0
d./;<<<2/, l./;>>>2/, s0,f
ballocator = set 1
ballocator=pascal80 fil2
scope user ballocator

fil3=edit fil0
d./;<<<3/, l./;>>>3/, s0,f
blinker = set 1
blinker=pascal80 fil3
scope user blinker


fil4=edit fil0
d./;<<<4/, l./;>>>4/, s0,f
badam = set 1
badam=pascal80 fil4
scope user badam

lookup bmonitor btimer ballocator blinker badam
finis
▶EOF◀