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

X X X
X X X +
X X X +
X X X +
+4- + + 'I'
1 2 3
4 5 6 13
7 8 9 14
10 11 12 15
20 19 18 17 16
77
X => Celula tipo I (1 - 12)
+ => celula tipo I1(í3 -20)
Obs : as celulas tipo III, as quais sao responsaveis pela realizacao
da operacao complemento 2 da palavra B sera realizada previamente pela
rotina “Ajuste".
*)
Var
Auxs,Auxm,Lm,Hm : Longlnt;
Begin
If Num_cell > 12 Then (* Significa que a celula eh do tipo II *)
Begin
Auxs := I1 + I2 + 13 + 14 + Is;
Out[Num_ce1l,2] (Auxs And $F); (* Bits L *)
-0ut[Num_ce11,1] (Auxs And $F0) Shr (* Bits H *)
0ut[Num_cell;3] 0;
(* Nao utilizado *)
0ut[Num_cell,4] 0;'
(* Nao utilizado *I
(* Verificando resultado : *)
If Auxs (Out[Num_Çell,2]+(Out[Num_Cell,1] Shl 4)) Then
Writeln(' Erro na celula : ',Num_Çe1l);
End Í* If *)
Else (* Se A celula eh do tipo I ( Num_Çel1