DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFileVerbose
    Names: »fetsaosjob«

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

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  5.02 /";
$
l./noofmod/
d
i/
noofmodules = 27;
/
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./procedure init_modul/
l./begin/
i/
n22= "fesupervisor";
n23= "streamer    ";
n24= "osif        ";
n25= "fpadriver   ";
n27= "str_mirror  ";
/
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, 2, 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(tap1_sem_no),
sem(stream_sem_no).s, 10, 11),
512, 3);
/
l./m a i n   p r o/
l./tssup_sem/
r/ts/fe/
l1
r/nc/tssup/
l./"alarm/
r/alarm/fets /
l./"alarm/
r/alarm/fets /
l./"c"/
l./no<1/
i/
if moduleno=0 then
begin
init_modul(8);
init_modul(1);
init_modul(17);
init_modul(22);
init_modul(23);
init_modul(24);
init_modul(25);
init_modul(26);
end
else
/
f
fetsaoslst= set 1 disc1
fetsaoslst= indent source mark lc
listc= cross fetsaoslst
o errors
head 1
message fetsaos program
pascal80 spacing.3000 codesize.3000 evaenv alarmenv10 paxenv fetsaosenv source
o c
fetsaoslst=copy listc errors
scope user fetsaoslst
lookup pass6code
if ok.yes
(fetsaosbin= set 1 disc1
fetsaosbin= move pass6code
scope user fetsaosbin
finis output.no
)
convert errors
finis

«eof»