background image

Appendix C. Segments of Code

82

if ( i > 67 and i < 1 3 2 ) t h e n

if ( i n l i n e ( i ) = ’1 ’) t h e n

B _ i n (131 - i ) <= ’1 ’;

e l s e

B _ i n (131 - i ) <= ’0 ’;

end if ;

end if ;

end l o o p ;

if ( r e s e t _ d o n e = ’0 ’) t h e n

r e s e t _ i n

<= ’1 ’;

r e s e t _ d o n e := ’1 ’;

e l s e

r e s e t _ i n

<= ’0 ’;

end if ;

w a i t for 50 ns ;

c l k _ g _ i n

<= ’1 ’;

w a i t for 50 ns ;

r e s e t _ i n

<= ’0 ’;

c l k _ g _ i n

<= ’0 ’;

w a i t for 50 ns ;

c l k _ g _ i n

<= ’1 ’;

w a i t for 50 ns ;

c l k _ g _ i n

<= ’0 ’;

w a i t for 50 ns ;

c l k _ g _ i n

<= ’1 ’;

w a i t for 50 ns ;

c l k _ g _ i n

<= ’0 ’;

if ( O _ U _ o u t (1)= ’1 ’) t h e n

t m p 2 (2) := ’1 ’;

e l s e

t m p 2 (2) := ’0 ’;

end if ;

if ( O _ U _ o u t (0)= ’1 ’) t h e n

t m p 3 (2) := ’1 ’;

e l s e

t m p 3 (2) := ’0 ’;

end if ;

t m p 1 := t o _ b i t v e c t o r ( R _ o u t );

w r i t e ( outline , t m p 1 );

w r i t e ( outline , " U ="& t m p 2 ( 2 ) & " O ="& t m p 3 ( 2 ) ) ;

w r i t e l i n e ( outfile , o u t l i n e );

end p r o c e s s ;

end ;