universidade federal de santa catarina programa de póe-graduação ...

V
If I < 32 Then Masc := Msc shr 1; (*Deslocamento a direita 1 bit*)
End; (* For *)
Writeln;
End; (* Show_Bit *)
-
(â _______________________________________________________________________ __~)
Procedure Ver_0ut(Numce1l:Longint);
(* Mostra os conteudos dos registradores da ce1ula[Numcel1] *)
Var
'
I : Longint;
Begin
Wríteln('Ce1ula numero = ',Numcel1);
For I := 1 to 4 do
Write1n(Out[Numcell,I]);
End; (* Ver_Dut *)
(* ---------------------------------------------------------------------- ~~*)
Function Num_B1t(X:Longint):Integer;
(* Calcula o comprimento da palavra X, desprezando os bits de valor zero
posicionados a esquerda, por exemplo, X = 00010110 tera Num-bit = 5 *)
Var
I,Cont,Masc : Longint;
Begin
Masc := 1;
Cont := 0;
For I := 1 to 32 do
Begin
If (X And Masc) = Masc Then Cont := I;
If (I < 32 ) Then Masc := Masc shl 1;
End;
Num_Bit := Cont;
End; (* Num_Bit-*)
(r ________________________________________________________________________a)
Procedure C(Num_cell,I1,I2,I3,I4,I5 : Longint);
(' Simula o processamento de cada celula
Distribuicao das celulas na estrutura e o respectivo numero das celulas:
76