30 lines
No EOL
419 B
Text
Executable file
30 lines
No EOL
419 B
Text
Executable file
int L = N;
|
|
int O = @;
|
|
|
|
write(){
|
|
P(L);
|
|
tab[ilibre] = V;
|
|
ilibre++;
|
|
if(ilibre==N) iLibre = @;
|
|
|
|
V(O);
|
|
}
|
|
|
|
|
|
read(){
|
|
P(O);
|
|
V = tab[ioccupe];
|
|
ioccupe++;
|
|
if(ioccupe==N) ioccupe = @;
|
|
|
|
V(L);
|
|
}
|
|
|
|
// Problème d'indice en fonction de qui écrit en premier,
|
|
puis problème de si on fini de lire avant de finir d'écrire sur la bonne case
|
|
|
|
multREAD()
|
|
var j;
|
|
P(O);
|
|
P(COM3);
|
|
j = tabTransiOcc[j |