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

d
78
If (AuxM+I3+I4+I5) (Out[Num_Çel1,2]+ (Out[Num_Ce11,1] Shl 4)) Then
Wr1te1n('Erro na celula : ',Num_Çe11);
End; (* Else *)
End; (* C *)
‹* ------------------------------------------ --___________________________!
›
Procedure Ajuste;
(* Ajusta os vetores de entrada:
Partícionando as palavras de entrada Am e Bm,
'incluindo os atrasos necessarios entre as subpalavras Wi e
Complementando em 1 (Quando Am for negativo) a palavra Bm
*›
Var
1, Buc : Longlnt;
_
Begin
For 1 := 1 to (Tam-3) Do (* Complemento em 1 *)
Begin
If Ali] < 0 Then
Begin
Buc z= N‹›t(B[11); (* c‹›mp1ément‹› de 1 *)
Boclil
B3c[í]
B2c[1]
Bc[i]
B1c[í]
`End; (* If ')
:= $F;
:= Buc And $F;
z= (Buc And $Fo) sm» 4;
= 1; (' Bs(Am) *)
= (Buc and $F00) Shr 8;~
(* Particionamento e inclusao de atrasos *)
B1[í] := (B[i] And $FO0) Shr 8;
B2[í+11 = (B[1] And $F0) Shr 4;
B3[i+21 = (Blil And SF);
A4Í1] := Ali] And $F;
A3[i+11 = (A[í] And $F0) Shr 4;
A2lí+21 = (A[i] And $F0O) Shr 8;
A1[I+3] = (Alil And $F000) Shr 12;
End (* For *)
End; (* Ajusta *)
(* ---------------------------------------------------------------------- --*)