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

l
V
'
'
-
Begin
Check:=Check + ((1+B3c[t]) Shl 16);
Che¢k:=CheCk + (B2CÍt] Shl 20) *›(B1c[t] Shl 24) + (BOC[t] Shl 28);
-
End; (* If *)
A
End; (' CheckPro *)
(* --------------------------------------------------------------------- --*)
Procedure Resultado;
(* Calcula os resultados da equacao, da simulacao e o resultado teorico *)
Var
Sum¡res,í : Longint;
Begin
(* Resultado da simulacao *)
Res:=out[13,2]+(out[14,2] shl 4)+(out[15,2] shl 8)+(out[16,2] shl 12);
Res:=Res+(out[17,2] shl 16)+(out[18,2] shl 20)+(out[19,2] shl 24);
Resz=Res+(‹›ut[2o,21 shl 28);
Writeln(' Valor simulado da estrutura =',Res);
Writeln(' Comprimento da palavra resultado ',Num_bit(Res));
Show_Bít(Res);
(*Resultado teoríco*)
Sum:=0;
For I:=1 to Tam do
Sum:= Sum+A[í]*BÍi];
Writeln(' Resultado teorlco = ',Sum);
Writèln('Comprímento do resultado ',Num_bít(Sum));
Show_bít(Sum);
(* Resultado da equacao de otimízacao *I
Writeln(' Resultado da equacao ', Check);
Wr1teln('Comprlmento do resultado da equacao ',Num_bit(Check));
Show_bit(Check);
End; (* Resultado *)
(* -------------------------------------------------------------------- --*)
Procedure Checküut;
(* Confere a ocorrencia de "overflow" nos registros de saida das celulas *)
Var 1,J : Integer;
81