DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFileVerbose
    Names: »alaosjob«

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

TextFileVerbose

job jg 8 200 time 11 0 area 10 size 100000
source=edit tsaosjob
m e
l./job/
d./finis/,d
l./"vers/
d
i$
version = "vers  6.05 /";
$
l./noofmod/
d
i/
noofmodules = 27;
/
l./testmode/
i/
first_loop : boolean:= true;
/
l./dc_addr/
r/7/1/
l1,r/7,5/1,1/
l1,r/7,5,4/1,1,1/
l1
i/
conn_state: connector_state:= stop_code;
/
l./process tssuper/
i/
process fesupervisor(
op: sempointer;
var input_sem, write_sem, que_up, que_down : ! ts_pointer;
var stream_sem, netc_sem, com_pool : ! sempointer);
external;
process streamer(
var inputsem, xmitter, receiver: ! ts_pointer;
retrans_max: integer;
op: sempointer);

external;

process fpadriver(
var sem: ! ts_pointer;
level, block: integer;
rec: boolean;
op: sempointer);
external;

process osif(
op_sem: sempointer;
var inputsem: ! ts_pointer;
var streamsem, lamsem: ! sempointer;
streamno,
streambufs,
ttybufs,
port: byte);
external;
process mirror(
op_sem : sempointer;
var in_sem : !ts_pointer;
var str_sem : !sempointer;
rec,
xmit : byte);
external;
/
l./process atconnector/
l./timsem/,d
l./var/
i/
var
activ: connector_state;
var
delay: integer;
/
l./procedure init_modul/
l./begin/
i/
n22= "fesupervisor";
n23= "streamer    ";
n24= "osif        ";
n25= "fpadriver   ";
n27= "str_mirror  ";
/
l./5:/
l./ath_sem/,d1
i/
sem(ath_sem_no).s, sem(lam_sem_no).s, sem(com_pool).w,
conn_state, index, dc_addr, ts_addr, 257, 7),
/
l./otherwise/
i/
22:  (* fesup *)
init_proc(index,n22,n22,
fesupervisor(opsem,
sem(fesup_sem_no),sem(fesup_write),sem(fesup_que_up),sem(fesup_que_down),
sem(stream_sem_no).s,sem(netc_sem_no).s, sem(com_pool).w ),
fesup_size, fesup_pri );

23:  (* streamer *)
init_proc(index,n23,n23,
streamer( sem(stream_sem_no), sem(stream_xmit),
sem(stream_rec), 3, opsem), stream_size, stream_pri);

24:  (* osif *)
init_proc(index,n24,n24,
osif(opsem, sem(osif_sem_no), sem(stream_sem_no).s,
sem(lam_sem_no).s, 3, 2, 3, 7),
osif_size, osif_pri);

25: (* fpareceiver *)
init_proc(index,n25, "fparec      ",
fpadriver( sem(stream_rec), 6, 2, true, opsem),
512, -1);

26:  (* fpaxmitter *)
init_proc(index,n25,"fpaxmit     ",
fpadriver(sem(stream_xmit),7,2,false,opsem),
512, -1);
 
27: (* str mirror *)
init_proc( index, n27, n27,
mirror( opsem, sem(mirror_sem_no),
sem(stream_sem_no).s, 10, 11),
512, 3);
/
l./m a i n   p r o/
l./noofparams:= 0;/
d1
i/
command:= "c";
noofparams:= 1;
case node_no of
1: params(1):= -3;
2,3: params(1):= -2;
otherwise
params(1):= -1;
end;
/
l./getinput;/
i/
if first_loop then
first_loop:= false else
/
l./"c"/
l./no<1/
i/
case moduleno of
-3 : (* FE config. *)
     begin
     netc_locals(1):= sem(fesup_sem_no).s;
  
init_modul ( 9);
init_modul (17);
init_modul (18);
init_modul (21);
init_modul (22);
init_modul (23);
init_modul (24);
init_modul (25);
init_modul (26);
     end;
-2 : (* NC config. *)
begin
netc_locals(1):= sem(nc_sem_no).s;
  
init_modul( 4);
init_modul( 9);
init_modul(13);
init_modul(17);
init_modul(18);
init_modul(21);
end;
-1 : (* TS config. *)
begin
netc_locals(1):= sem(tssup_sem_no).s;
 
init_modul( 1);
init_modul( 8);
init_modul(17);
init_modul(18);
init_modul(21);
end;
 0 : (* FE=TS config. *)
begin
netc_locals(1):= sem(fesup_sem_no).s;
netc_locals(2):= sem(tssup_sem_no).s;
  
init_modul( 8);
init_modul( 1);
init_modul(17);
init_modul(18);
init_modul(21);
init_modul(22);
init_modul(23);
init_modul(24);
init_modul(25);
init_modul(26);
end;
otherwise
/
l./* if noof/
i/
end (* case *)
/
l./"d":/
d./"f":/
i/
"f": (* fill *)
/
l./"n":/
d./"o":/
i/
"o": (* output *)
/
l./"p":/
d./end (* partial *);/
f
alaoslst= set 1 disc1
alaoslst= indent source mark lc
listc= cross alaoslst
o errors
head 1
message alaos program
pascal80 spacing.3000 codesize.3000 evaenv alarmenv paxenv source
o c
alaoslst=copy listc errors
scope user alaoslst
lookup pass6code
if ok.yes
(alaosbin= set 1 disc1
alaosbin= move pass6code
scope user alaosbin
finis output.no
)
convert errors
finis

«eof»