$ od -c -N 50000 [_CD6_]<autolayout>SCTests>CreateCoreForSCLibImpl.mesa!2 0000000 \r - - C r e a t e C o r e F o 0000020 r S C L i b I m p l . m e s a \r 0000040 \t - - C o p y r i g h t 323 0000060 1 9 8 8 b y X e r o x C o 0000100 r p o r a t i o n . A l l 0000120 r i g h t s r e s e r v e d . 0000140 \r \t - - B r y a n P r e a s 0000160 M a y 4 , 1 9 8 8 3 : 3 0000200 3 : 0 3 p m P D T \r \r D I R 0000220 E C T O R Y \r \t C D , C o r e 0000240 , C o r e C l a s s e s , C 0000260 o r e D i r e c t o r y , P W 0000300 C o r e , R T T e s t U t i l 0000320 ; \r C r e a t e C o r e F o r S 0000340 C L i b I m p l : C E D A R 0000360 P R O G R A M \r \t I M P O R T S 0000400 C o r e D i r e c t o r y , 0000420 P W C o r e , R T T e s t U t 0000440 i l \r \t E X P O R T S R T T e 0000460 s t U t i l = B E G I N \r \t 0000500 O P E N C o r e , C o r e C 0000520 l a s s e s , C o r e D i r e 0000540 c t o r y , P W C o r e , R 0000560 T T e s t U t i l ; \r \r \r C r e 0000600 a t e C o r e F o r F E E D : 0000620 P U B L I C P R O C [ l i b 0000640 D e s i g n : C D . D e s i g 0000660 n , c o r e L i b r a r y : 0000700 L i b r a r y ] R E T U R N S 0000720 [ C e l l T y p e ] = B E 0000740 G I N \r \t - - C r e a t e 0000760 a C o r e C e l l T y p e \r 0001000 \t \r \t p u b W i r e s : W i r 0001020 e _ C r e a t e W i r e [ L 0001040 I S T [ " F 1 " , " V d d " , 0001060 " G n d " ] ] ; \r \t p r i v a 0001100 t e W i r e s : W i r e _ 0001120 N I L ; \r \t i n t e r n W i r e 0001140 s : W i r e _ U n i o n W 0001160 i r e [ p u b W i r e s , p r 0001200 i v a t e W i r e s ] ; \r \t F E 0001220 E D C e l l T y p e : C e l l 0001240 T y p e _ C r e a t e R e c 0001260 o r d C e l l [ " F E E D " , 0001300 p u b W i r e s , i n t e r n 0001320 W i r e s , N I L ] ; \r \t [ ] 0001340 _ I n s e r t [ c o r e L i 0001360 b r a r y , " F E E D " , F 0001400 E E D C e l l T y p e , T R U 0001420 E ] ; \r \t S e t G e t [ F E E D 0001440 C e l l T y p e , l i b D e s 0001460 i g n ] ; \r \t R E T U R N [ F 0001500 E E D C e l l T y p e ] ; \r \t E 0001520 N D ; \r \r C r e a t e C o r e F 0001540 o r v d d : P U B L I C P R 0001560 O C [ l i b D e s i g n : C 0001600 D . D e s i g n , c o r e L i 0001620 b r a r y : L i b r a r y ] 0001640 R E T U R N S [ C e l l T y p 0001660 e ] = B E G I N \r \t - - 0001700 C r e a t e a C o r e C e 0001720 l l T y p e \r \t \r \t p u b W i r 0001740 e s : W i r e _ C r e a t 0001760 e W i r e [ L I S T [ " v d d " 0002000 , " V d d " , " G n d " ] ] 0002020 ; \r \t p r i v a t e W i r e s : 0002040 W i r e _ N I L ; \r \t i n 0002060 t e r n W i r e s : W i r e 0002100 _ U n i o n W i r e [ p u b W 0002120 i r e s , p r i v a t e W i r 0002140 e s ] ; \r \t v d d C e l l T y p 0002160 e : C e l l T y p e _ C r 0002200 e a t e R e c o r d C e l l [ " 0002220 v d d " , p u b W i r e s , 0002240 i n t e r n W i r e s , N I L 0002260 ] ; \r \t [ ] _ I n s e r t [ 0002300 c o r e L i b r a r y , " v d 0002320 d " , v d d C e l l T y p e , 0002340 T R U E ] ; \r \t S e t G e t [ 0002360 v d d C e l l T y p e , l i b 0002400 D e s i g n ] ; \r \t R E T U R N 0002420 [ v d d C e l l T y p e ] ; \r 0002440 \t E N D ; \r \r C r e a t e C o r 0002460 e F o r g n d : P U B L I C 0002500 P R O C [ l i b D e s i g n : 0002520 C D . D e s i g n , c o r e 0002540 L i b r a r y : L i b r a r y 0002560 ] R E T U R N S [ C e l l T 0002600 y p e ] = B E G I N \r \t - - 0002620 C r e a t e a C o r e 0002640 C e l l T y p e \r \t \r \t p u b W 0002660 i r e s : W i r e _ C r e 0002700 a t e W i r e [ L I S T [ " g n 0002720 d " , " V d d " , " G n d " 0002740 ] ] ; \r \t p r i v a t e W i r e 0002760 s : W i r e _ N I L ; \r \t 0003000 i n t e r n W i r e s : W i r 0003020 e _ U n i o n W i r e [ p u 0003040 b W i r e s , p r i v a t e W 0003060 i r e s ] ; \r \t g n d C e l l T 0003100 y p e : C e l l T y p e _ 0003120 C r e a t e R e c o r d C e l l 0003140 [ " g n d " , p u b W i r e s 0003160 , i n t e r n W i r e s , N 0003200 I L ] ; \r \t [ ] _ I n s e r 0003220 t [ c o r e L i b r a r y , " 0003240 g n d " , g n d C e l l T y p 0003260 e , T R U E ] ; \r \t S e t G e 0003300 t [ g n d C e l l T y p e , l 0003320 i b D e s i g n ] ; \r \t R E T U 0003340 R N [ g n d C e l l T y p e ] 0003360 ; \r \t E N D ; \r \r C r e a t e C 0003400 o r e F o r G 1 1 : P U B L I 0003420 C P R O C [ l i b D e s i g 0003440 n : C D . D e s i g n , c o 0003460 r e L i b r a r y : L i b r a 0003500 r y ] R E T U R N S [ C e l 0003520 l T y p e ] = B E G I N \r \t 0003540 - - C r e a t e a C o r 0003560 e C e l l T y p e \r \t \r \t p u 0003600 b W i r e s : W i r e _ C 0003620 r e a t e W i r e [ L I S T [ " 0003640 I 1 " , " O 1 " , " F 1 " , 0003660 " V d d " , " G n d " ] ] ; 0003700 \r \t p r i v a t e W i r e s : 0003720 W i r e _ N I L ; \r \t i n t 0003740 e r n W i r e s : W i r e _ 0003760 U n i o n W i r e [ p u b W i 0004000 r e s , p r i v a t e W i r e 0004020 s ] ; \r \t G 1 1 C e l l T y p e 0004040 : C e l l T y p e _ C r e 0004060 a t e R e c o r d C e l l [ " G 0004100 1 1 " , p u b W i r e s , i 0004120 n t e r n W i r e s , N I L ] 0004140 ; \r \t [ ] _ I n s e r t [ c 0004160 o r e L i b r a r y , " G 1 1 0004200 " , G 1 1 C e l l T y p e , 0004220 T R U E ] ; \r \t S e t G e t [ G 0004240 1 1 C e l l T y p e , l i b D 0004260 e s i g n ] ; \r \t R E T U R N 0004300 [ G 1 1 C e l l T y p e ] ; \r \t 0004320 E N D ; \r \r C r e a t e C o r e 0004340 F o r G 2 1 : P U B L I C P 0004360 R O C [ l i b D e s i g n : 0004400 C D . D e s i g n , c o r e L 0004420 i b r a r y : L i b r a r y ] 0004440 R E T U R N S [ C e l l T y 0004460 p e ] = B E G I N \r \t - - 0004500 C r e a t e a C o r e C 0004520 e l l T y p e \r \t \r \t p u b W i 0004540 r e s : W i r e _ C r e a 0004560 t e W i r e [ L I S T [ " I 1 " 0004600 , " I 2 " , " O 1 " , " F 0004620 2 " , " F 3 " , " V d d " , 0004640 " G n d " ] ] ; \r \t p r i v a 0004660 t e W i r e s : W i r e _ 0004700 N I L ; \r \t i n t e r n W i r e 0004720 s : W i r e _ U n i o n W 0004740 i r e [ p u b W i r e s , p r 0004760 i v a t e W i r e s ] ; \r \t G 2 0005000 1 C e l l T y p e : C e l l T 0005020 y p e _ C r e a t e R e c o 0005040 r d C e l l [ " G 2 1 " , p u 0005060 b W i r e s , i n t e r n W i 0005100 r e s , N I L ] ; \r \t [ ] _ 0005120 I n s e r t [ c o r e L i b r 0005140 a r y , " G 2 1 " , G 2 1 C 0005160 e l l T y p e , T R U E ] ; \r 0005200 \t S e t G e t [ G 2 1 C e l l T 0005220 y p e , l i b D e s i g n ] ; 0005240 \r \t R E T U R N [ G 2 1 C e l 0005260 l T y p e ] ; \r \t E N D ; \r \r C 0005300 r e a t e C o r e F o r G 3 1 : 0005320 P U B L I C P R O C [ l i 0005340 b D e s i g n : C D . D e s i 0005360 g n , c o r e L i b r a r y : 0005400 L i b r a r y ] R E T U R N 0005420 S [ C e l l T y p e ] = B 0005440 E G I N \r \t - - C r e a t e 0005460 a C o r e C e l l T y p e 0005500 \r \t \r \t p u b W i r e s : W i 0005520 r e _ C r e a t e W i r e [ 0005540 L I S T [ " I 1 " , " I 2 " , 0005560 " I 3 " , " O 1 " , " F 2 0005600 " , " V d d " , " G n d " ] 0005620 ] ; \r \t p r i v a t e W i r e s 0005640 : W i r e _ N I L ; \r \t i 0005660 n t e r n W i r e s : W i r e 0005700 _ U n i o n W i r e [ p u b 0005720 W i r e s , p r i v a t e W i 0005740 r e s ] ; \r \t G 3 1 C e l l T y 0005760 p e : C e l l T y p e _ C 0006000 r e a t e R e c o r d C e l l [ 0006020 " G 3 1 " , p u b W i r e s , 0006040 i n t e r n W i r e s , N I 0006060 L ] ; \r \t [ ] _ I n s e r t 0006100 [ c o r e L i b r a r y , " G 0006120 3 1 " , G 3 1 C e l l T y p e 0006140 , T R U E ] ; \r \t S e t G e t 0006160 [ G 3 1 C e l l T y p e , l i 0006200 b D e s i g n ] ; \r \t R E T U R 0006220 N [ G 3 1 C e l l T y p e ] ; 0006240 \r \t E N D ; \r \r C r e a t e C o 0006260 r e F o r G 4 1 : P U B L I C 0006300 P R O C [ l i b D e s i g n 0006320 : C D . D e s i g n , c o r 0006340 e L i b r a r y : L i b r a r 0006360 y ] R E T U R N S [ C e l l 0006400 T y p e ] = B E G I N \r \t - 0006420 - C r e a t e a C o r e 0006440 C e l l T y p e \r \t \r \t p u b 0006460 W i r e s : W i r e _ C r 0006500 e a t e W i r e [ L I S T [ " I 0006520 1 " , " I 2 " , " I 3 " , 0006540 " I 4 " , " O 1 " , " F 2 " 0006560 , " V d d " , " G n d " ] ] 0006600 ; \r \t p r i v a t e W i r e s : 0006620 W i r e _ N I L ; \r \t i n 0006640 t e r n W i r e s : W i r e 0006660 _ U n i o n W i r e [ p u b W 0006700 i r e s , p r i v a t e W i r 0006720 e s ] ; \r \t G 4 1 C e l l T y p 0006740 e : C e l l T y p e _ C r 0006760 e a t e R e c o r d C e l l [ " 0007000 G 4 1 " , p u b W i r e s , 0007020 i n t e r n W i r e s , N I L 0007040 ] ; \r \t [ ] _ I n s e r t [ 0007060 c o r e L i b r a r y , " G 4 0007100 1 " , G 4 1 C e l l T y p e , 0007120 T R U E ] ; \r \t S e t G e t [ 0007140 G 4 1 C e l l T y p e , l i b 0007160 D e s i g n ] ; \r \t R E T U R N 0007200 [ G 4 1 C e l l T y p e ] ; \r 0007220 \t E N D ; \r \r C r e a t e C o r 0007240 e F o r G 6 1 : P U B L I C 0007260 P R O C [ l i b D e s i g n : 0007300 C D . D e s i g n , c o r e 0007320 L i b r a r y : L i b r a r y 0007340 ] R E T U R N S [ C e l l T 0007360 y p e ] = B E G I N \r \t - - 0007400 C r e a t e a C o r e 0007420 C e l l T y p e \r \t \r \t p u b W 0007440 i r e s : W i r e _ C r e 0007460 a t e W i r e [ L I S T [ " I 1 0007500 " , " I 2 " , " I 3 " , " 0007520 I 4 " , " I 5 " , " I 6 " , 0007540 " O 1 " , " F 1 " , " F 2 0007560 " , " V d d " , " G n d " ] 0007600 ] ; \r \t p r i v a t e W i r e s 0007620 : W i r e _ N I L ; \r \t i 0007640 n t e r n W i r e s : W i r e 0007660 _ U n i o n W i r e [ p u b 0007700 W i r e s , p r i v a t e W i 0007720 r e s ] ; \r \t G 6 1 C e l l T y 0007740 p e : C e l l T y p e _ C 0007760 r e a t e R e c o r d C e l l [ 0010000 " G 6 1 " , p u b W i r e s , 0010020 i n t e r n W i r e s , N I 0010040 L ] ; \r \t [ ] _ I n s e r t 0010060 [ c o r e L i b r a r y , " G 0010100 6 1 " , G 6 1 C e l l T y p e 0010120 , T R U E ] ; \r \t S e t G e t 0010140 [ G 6 1 C e l l T y p e , l i 0010160 b D e s i g n ] ; \r \t R E T U R 0010200 N [ G 6 1 C e l l T y p e ] ; 0010220 \r \t E N D ; \r \r C r e a t e C o 0010240 r e F o r G 8 1 : P U B L I C 0010260 P R O C [ l i b D e s i g n 0010300 : C D . D e s i g n , c o r 0010320 e L i b r a r y : L i b r a r 0010340 y ] R E T U R N S [ C e l l 0010360 T y p e ] = B E G I N \r \t - 0010400 - C r e a t e a C o r e 0010420 C e l l T y p e \r \t \r \t p u b 0010440 W i r e s : W i r e _ C r 0010460 e a t e W i r e [ L I S T [ " I 0010500 1 " , " I 2 " , " I 3 " , 0010520 " I 4 " , " I 5 " , " I 6 " 0010540 , " I 7 " , " I 8 " , " O 0010560 1 " , " F 1 " , " F 2 " , 0010600 " F 3 " , " F 4 " , " V d d 0010620 " , " G n d " ] ] ; \r \t p r i 0010640 v a t e W i r e s : W i r e 0010660 _ N I L ; \r \t i n t e r n W i 0010700 r e s : W i r e _ U n i o 0010720 n W i r e [ p u b W i r e s , 0010740 p r i v a t e W i r e s ] ; \r \t 0010760 G 8 1 C e l l T y p e : C e l 0011000 l T y p e _ C r e a t e R e 0011020 c o r d C e l l [ " G 8 1 " , 0011040 p u b W i r e s , i n t e r n 0011060 W i r e s , N I L ] ; \r \t [ ] 0011100 _ I n s e r t [ c o r e L i 0011120 b r a r y , " G 8 1 " , G 8 0011140 1 C e l l T y p e , T R U E ] 0011160 ; \r \t S e t G e t [ G 8 1 C e l 0011200 l T y p e , l i b D e s i g n 0011220 ] ; \r \t R E T U R N [ G 8 1 C 0011240 e l l T y p e ] ; \r \t E N D ; \r 0011260 \r C r e a t e C o r e F o r G 1 0011300 2 : P U B L I C P R O C [ 0011320 l i b D e s i g n : C D . D e 0011340 s i g n , c o r e L i b r a r 0011360 y : L i b r a r y ] R E T U 0011400 R N S [ C e l l T y p e ] = 0011420 B E G I N \r \t - - C r e a 0011440 t e a C o r e C e l l T y 0011460 p e \r \t \r \t p u b W i r e s : 0011500 W i r e _ C r e a t e W i r 0011520 e [ L I S T [ " I 1 " , " O 1 0011540 " , " O 2 " , " F 1 " , " 0011560 F 2 " , " V d d " , " G n d 0011600 " ] ] ; \r \t p r i v a t e W i r 0011620 e s : W i r e _ N I L ; \r 0011640 \t i n t e r n W i r e s : W i 0011660 r e _ U n i o n W i r e [ p 0011700 u b W i r e s , p r i v a t e 0011720 W i r e s ] ; \r \t G 1 2 C e l l 0011740 T y p e : C e l l T y p e _ 0011760 C r e a t e R e c o r d C e l 0012000 l [ " G 1 2 " , p u b W i r e 0012020 s , i n t e r n W i r e s , 0012040 N I L ] ; \r \t [ ] _ I n s e 0012060 r t [ c o r e L i b r a r y , 0012100 " G 1 2 " , G 1 2 C e l l T y 0012120 p e , T R U E ] ; \r \t S e t G 0012140 e t [ G 1 2 C e l l T y p e , 0012160 l i b D e s i g n ] ; \r \t R E T 0012200 U R N [ G 1 2 C e l l T y p e 0012220 ] ; \r \t E N D ; \r \r C r e a t e 0012240 C o r e F o r F 2 2 : P U B L 0012260 I C P R O C [ l i b D e s i 0012300 g n : C D . D e s i g n , c 0012320 o r e L i b r a r y : L i b r 0012340 a r y ] R E T U R N S [ C e 0012360 l l T y p e ] = B E G I N \r 0012400 \t - - C r e a t e a C o 0012420 r e C e l l T y p e \r \t \r \t p 0012440 u b W i r e s : W i r e _ 0012460 C r e a t e W i r e [ L I S T [ 0012500 " I 1 " , " I 2 " , " O 1 " 0012520 , " O 2 " , " F 1 " , " F 0012540 2 " , " F 3 " , " F 4 " , 0012560 " F 5 " , " F 6 " , " V d d 0012600 " , " G n d " ] ] ; \r \t p r i 0012620 v a t e W i r e s : W i r e 0012640 _ N I L ; \r \t i n t e r n W i 0012660 r e s : W i r e _ U n i o 0012700 n W i r e [ p u b W i r e s , 0012720 p r i v a t e W i r e s ] ; \r \t 0012740 F 2 2 C e l l T y p e : C e l 0012760 l T y p e _ C r e a t e R e 0013000 c o r d C e l l [ " F 2 2 " , 0013020 p u b W i r e s , i n t e r n 0013040 W i r e s , N I L ] ; \r \t [ ] 0013060 _ I n s e r t [ c o r e L i 0013100 b r a r y , " F 2 2 " , F 2 0013120 2 C e l l T y p e , T R U E ] 0013140 ; \r \t S e t G e t [ F 2 2 C e l 0013160 l T y p e , l i b D e s i g n 0013200 ] ; \r \t R E T U R N [ F 2 2 C 0013220 e l l T y p e ] ; \r \t E N D ; \r 0013240 \r C r e a t e C o r e F o r F 3 0013260 2 : P U B L I C P R O C [ 0013300 l i b D e s i g n : C D . D e 0013320 s i g n , c o r e L i b r a r 0013340 y : L i b r a r y ] R E T U 0013360 R N S [ C e l l T y p e ] = 0013400 B E G I N \r \t - - C r e a 0013420 t e a C o r e C e l l T y 0013440 p e \r \t \r \t p u b W i r e s : 0013460 W i r e _ C r e a t e W i r 0013500 e [ L I S T [ " I 1 " , " I 2 0013520 " , " I 3 " , " O 1 " , " 0013540 O 2 " , " F 1 " , " F 2 " , 0013560 " F 3 " , " F 4 " , " F 5 0013600 " , " F 6 " , " F 7 " , " 0013620 V d d " , " G n d " ] ] ; \r \t 0013640 p r i v a t e W i r e s : W i 0013660 r e _ N I L ; \r \t i n t e r 0013700 n W i r e s : W i r e _ U 0013720 n i o n W i r e [ p u b W i r e 0013740 s , p r i v a t e W i r e s ] 0013760 ; \r \t F 3 2 C e l l T y p e : 0014000 C e l l T y p e _ C r e a t 0014020 e R e c o r d C e l l [ " F 3 2 0014040 " , p u b W i r e s , i n t 0014060 e r n W i r e s , N I L ] ; \r 0014100 \t [ ] _ I n s e r t [ c o r 0014120 e L i b r a r y , " F 3 2 " , 0014140 F 3 2 C e l l T y p e , T R 0014160 U E ] ; \r \t S e t G e t [ F 3 2 0014200 C e l l T y p e , l i b D e s 0014220 i g n ] ; \r \t R E T U R N [ F 0014240 3 2 C e l l T y p e ] ; \r \t E N 0014260 D ; \r \r C r e a t e C o r e F o 0014300 r F 4 2 : P U B L I C P R O 0014320 C [ l i b D e s i g n : C D 0014340 . D e s i g n , c o r e L i b 0014360 r a r y : L i b r a r y ] R 0014400 E T U R N S [ C e l l T y p e 0014420 ] = B E G I N \r \t - - C 0014440 r e a t e a C o r e C e l 0014460 l T y p e \r \t \r \t p u b W i r e 0014500 s : W i r e _ C r e a t e 0014520 W i r e [ L I S T [ " I 1 " , 0014540 " I 2 " , " I 3 " , " I 4 " 0014560 , " O 1 " , " O 2 " , " F 0014600 1 " , " F 2 " , " F 3 " , 0014620 " F 4 " , " F 5 " , " F 6 " 0014640 , " F 7 " , " V d d " , " 0014660 G n d " ] ] ; \r \t p r i v a t e 0014700 W i r e s : W i r e _ N I 0014720 L ; \r \t i n t e r n W i r e s : 0014740 W i r e _ U n i o n W i r 0014760 e [ p u b W i r e s , p r i v 0015000 a t e W i r e s ] ; \r \t F 4 2 C 0015020 e l l T y p e : C e l l T y p 0015040 e _ C r e a t e R e c o r d 0015060 C e l l [ " F 4 2 " , p u b W 0015100 i r e s , i n t e r n W i r e 0015120 s , N I L ] ; \r \t [ ] _ I 0015140 n s e r t [ c o r e L i b r a r 0015160 y , " F 4 2 " , F 4 2 C e l 0015200 l T y p e , T R U E ] ; \r \t S 0015220 e t G e t [ F 4 2 C e l l T y p 0015240 e , l i b D e s i g n ] ; \r \t 0015260 R E T U R N [ F 4 2 C e l l T 0015300 y p e ] ; \r \t E N D ; \r \r C r e 0015320 a t e C o r e F o r I 1 : P U 0015340 B L I C P R O C [ l i b D e 0015360 s i g n : C D . D e s i g n , 0015400 c o r e L i b r a r y : L i 0015420 b r a r y ] R E T U R N S [ 0015440 C e l l T y p e ] = B E G I 0015460 N \r \t - - C r e a t e a 0015500 C o r e C e l l T y p e \r \t \r 0015520 \t p u b W i r e s : W i r e 0015540 _ C r e a t e W i r e [ L I S 0015560 T [ " I 1 " , " O 1 " , " V 0015600 d d " , " G n d " ] ] ; \r \t p 0015620 r i v a t e W i r e s : W i r 0015640 e _ N I L ; \r \t i n t e r n 0015660 W i r e s : W i r e _ U n 0015700 i o n W i r e [ p u b W i r e s 0015720 , p r i v a t e W i r e s ] ; 0015740 \r \t I 1 C e l l T y p e : C e 0015760 l l T y p e _ C r e a t e R 0016000 e c o r d C e l l [ " I 1 " , 0016020 p u b W i r e s , i n t e r n 0016040 W i r e s , N I L ] ; \r \t [ ] 0016060 _ I n s e r t [ c o r e L i 0016100 b r a r y , " I 1 " , I 1 C 0016120 e l l T y p e , T R U E ] ; \r 0016140 \t S e t G e t [ I 1 C e l l T y 0016160 p e , l i b D e s i g n ] ; \r 0016200 \t R E T U R N [ I 1 C e l l T 0016220 y p e ] ; \r \t E N D ; \r \r C r e 0016240 a t e C o r e F o r I 2 : P U 0016260 B L I C P R O C [ l i b D e 0016300 s i g n : C D . D e s i g n , 0016320 c o r e L i b r a r y : L i 0016340 b r a r y ] R E T U R N S [ 0016360 C e l l T y p e ] = B E G I 0016400 N \r \t - - C r e a t e a 0016420 C o r e C e l l T y p e \r \t \r 0016440 \t p u b W i r e s : W i r e 0016460 _ C r e a t e W i r e [ L I S 0016500 T [ " I 1 " , " O 1 " , " O 0016520 2 " , " V d d " , " G n d " 0016540 ] ] ; \r \t p r i v a t e W i r e 0016560 s : W i r e _ N I L ; \r \t 0016600 i n t e r n W i r e s : W i r 0016620 e _ U n i o n W i r e [ p u 0016640 b W i r e s , p r i v a t e W 0016660 i r e s ] ; \r \t I 2 C e l l T y 0016700 p e : C e l l T y p e _ C 0016720 r e a t e R e c o r d C e l l [ 0016740 " I 2 " , p u b W i r e s , 0016760 i n t e r n W i r e s , N I L 0017000 ] ; \r \t [ ] _ I n s e r t [ 0017020 c o r e L i b r a r y , " I 2 0017040 " , I 2 C e l l T y p e , T 0017060 R U E ] ; \r \t S e t G e t [ I 2 0017100 C e l l T y p e , l i b D e s 0017120 i g n ] ; \r \t R E T U R N [ I 0017140 2 C e l l T y p e ] ; \r \t E N D 0017160 ; \r \r C r e a t e C o r e F o r 0017200 O 1 : P U B L I C P R O C 0017220 [ l i b D e s i g n : C D . D 0017240 e s i g n , c o r e L i b r a 0017260 r y : L i b r a r y ] R E T 0017300 U R N S [ C e l l T y p e ] 0017320 = B E G I N \r \t - - C r e 0017340 a t e a C o r e C e l l T 0017360 y p e \r \t \r \t p u b W i r e s : 0017400 W i r e _ C r e a t e W i 0017420 r e [ L I S T [ " I 1 " , " O 0017440 1 " , " V d d " , " G n d " 0017460 ] ] ; \r \t p r i v a t e W i r e 0017500 s : W i r e _ N I L ; \r \t 0017520 i n t e r n W i r e s : W i r 0017540 e _ U n i o n W i r e [ p u 0017560 b W i r e s , p r i v a t e W 0017600 i r e s ] ; \r \t O 1 C e l l T y 0017620 p e : C e l l T y p e _ C 0017640 r e a t e R e c o r d C e l l [ 0017660 " O 1 " , p u b W i r e s , 0017700 i n t e r n W i r e s , N I L 0017720 ] ; \r \t [ ] _ I n s e r t [ 0017740 c o r e L i b r a r y , " O 1 0017760 " , O 1 C e l l T y p e , T 0020000 R U E ] ; \r \t S e t G e t [ O 1 0020020 C e l l T y p e , l i b D e s 0020040 i g n ] ; \r \t R E T U R N [ O 0020060 1 C e l l T y p e ] ; \r \t E N D 0020100 ; \r \r C r e a t e C o r e F o r 0020120 O 2 : P U B L I C P R O C 0020140 [ l i b D e s i g n : C D . D 0020160 e s i g n , c o r e L i b r a 0020200 r y : L i b r a r y ] R E T 0020220 U R N S [ C e l l T y p e ] 0020240 = B E G I N \r \t - - C r e 0020260 a t e a C o r e C e l l T 0020300 y p e \r \t \r \t p u b W i r e s : 0020320 W i r e _ C r e a t e W i 0020340 r e [ L I S T [ " I 1 " , " I 0020360 2 " , " O 1 " , " V d d " , 0020400 " G n d " ] ] ; \r \t p r i v a 0020420 t e W i r e s : W i r e _ 0020440 N I L ; \r \t i n t e r n W i r e 0020460 s : W i r e _ U n i o n W 0020500 i r e [ p u b W i r e s , p r 0020520 i v a t e W i r e s ] ; \r \t O 2 0020540 C e l l T y p e : C e l l T y 0020560 p e _ C r e a t e R e c o r 0020600 d C e l l [ " O 2 " , p u b W 0020620 i r e s , i n t e r n W i r e 0020640 s , N I L ] ; \r \t [ ] _ I 0020660 n s e r t [ c o r e L i b r a r 0020700 y , " O 2 " , O 2 C e l l T 0020720 y p e , T R U E ] ; \r \t S e t 0020740 G e t [ O 2 C e l l T y p e , 0020760 l i b D e s i g n ] ; \r \t R E T 0021000 U R N [ O 2 C e l l T y p e ] 0021020 ; \r \t E N D ; \r \r C r e a t e C 0021040 o r e F o r B 2 1 : P U B L I 0021060 C P R O C [ l i b D e s i g 0021100 n : C D . D e s i g n , c o 0021120 r e L i b r a r y : L i b r a 0021140 r y ] R E T U R N S [ C e l 0021160 l T y p e ] = B E G I N \r \t 0021200 - - C r e a t e a C o r 0021220 e C e l l T y p e \r \t \r \t p u 0021240 b W i r e s : W i r e _ C 0021260 r e a t e W i r e [ L I S T [ " 0021300 I 1 " , " I 2 " , " O 1 " , 0021320 " B 1 " , " V d d " , " G 0021340 n d " ] ] ; \r \t p r i v a t e W 0021360 i r e s : W i r e _ N I L 0021400 ; \r \t i n t e r n W i r e s : 0021420 W i r e _ U n i o n W i r e 0021440 [ p u b W i r e s , p r i v a 0021460 t e W i r e s ] ; \r \t B 2 1 C e 0021500 l l T y p e : C e l l T y p e 0021520 _ C r e a t e R e c o r d C 0021540 e l l [ " B 2 1 " , p u b W i 0021560 r e s , i n t e r n W i r e s 0021600 , N I L ] ; \r \t [ ] _ I n 0021620 s e r t [ c o r e L i b r a r y 0021640 , " B 2 1 " , B 2 1 C e l l 0021660 T y p e , T R U E ] ; \r \t S e 0021700 t G e t [ B 2 1 C e l l T y p e 0021720 , l i b D e s i g n ] ; \r \t R 0021740 E T U R N [ B 2 1 C e l l T y 0021760 p e ] ; \r \t E N D ; \r \r \t \r \t E 0022000 N D . \r 0022004