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 ;