$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronBlockCompileImpl.Mesa!10 0000000 - - S a f f r o n B l o c k C 0000020 o m p i l e I m p l . m e s a \r 0000040 - - C o p y r i g h t 323 0000060 1 9 8 7 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 - - G e n e r a t e d b 0000160 y R a u e n . p a a t S e 0000200 p t e m b e r 1 , 1 9 8 8 0000220 3 : 0 0 : 2 0 p m P D T \r 0000240 - - u s i n g T h r e e C 0000260 a s a b a F o u r [ 1 . 2 ] 0000300 o f J u n e 1 , 1 9 8 7 0000320 6 : 0 0 : 0 0 p m P D T \r \r 0000340 D I R E C T O R Y \r \t S a f f r 0000360 o n P G D e f , \r \t S a f f r o 0000400 n A G 9 D e f , \r \t S a f f r o 0000420 n A G 4 D e f , \r \t T h r e e C 0000440 4 S u p p o r t , \r \t S a f f r 0000460 o n B a s e D e f , \r \t S a f f 0000500 r o n A T D e f ; \r \r S a f f r 0000520 o n B l o c k C o m p i l e I m 0000540 p l : C E D A R P R O G R A 0000560 M I M P O R T S S a f f r o 0000600 n P G D e f , T h r e e C 4 S 0000620 u p p o r t , S a f f r o n B 0000640 a s e D e f E X P O R T S S 0000660 a f f r o n A G 9 D e f , S a 0000700 f f r o n A G 4 D e f = \r B E 0000720 G I N \r O P E N S a f f r o n 0000740 P G D e f , S a f f r o n A G 0000760 9 D e f , S a f f r o n A G 4 0001000 D e f , T h r e e C 4 S u p p 0001020 o r t , S a f f r o n B a s e 0001040 D e f , S a f f r o n A T D e 0001060 f ; \r B l o c k P r o d I n t e 0001100 r n a l C o m p i l e B l o c k 0001120 : \t P U B L I C P R O C [ r e 0001140 f : R E F A N Y , l o c a 0001160 l C o n t e x t : L o c a l C 0001200 o n t e x t N o d e , f l : 0001220 F i e l d L i s t N o d e , p 0001240 g : P r o g r a m G r a p h N 0001260 o d e , c s : C o m p i l e 0001300 r S t a t e N o d e ] R E T U 0001320 R N S [ t e m p 0 : C o n t e 0001340 x t T r e e N o d e , t e m p 0001360 1 : P r o g r a m F r a g m e 0001400 n t N o d e , t e m p 2 : P 0001420 r o g r a m G r a p h N o d e ] 0001440 = \r B E G I N \r t r e e : \t B 0001460 l o c k N o d e _ N A R R O W 0001500 [ r e f ] ; \r B E G I N \r E N A 0001520 B L E T h r e e C 4 S u p p o 0001540 r t . G e t S o u r c e I n f o 0001560 = > R E S U M E [ t r e e . 0001600 p o s i t i o n , t r e e . l 0001620 e n g t h ] ; \r t r e e D a t a 0001640 : \t B l o c k P r o d D a t a 0001660 _ N A R R O W [ t r e e . d a 0001700 t a ] ; \r B E G I N \r l c 1 : \t 0001720 L o c a l C o n t e x t N o d e 0001740 ; \r l c 1 _ F a k e D a m a 0001760 g e C o n t e x t [ l o c a l C 0002000 o n t e x t ] ; \r [ t e m p 0 , 0002020 t e m p 1 , t e m p 2 ] _ 0002040 t r e e D a t a . S c o p e . 0002060 p r o c s . C o m p i l e S c o 0002100 p e [ t r e e D a t a . S c o p 0002120 e , l c 1 , f l , p g , 0002140 c s ] ; \r E N D ; \r E N D \r E N 0002160 D ; \r \r B l o c k P r o d C o m 0002200 p i l e : \t P U B L I C P R O 0002220 C [ r e f : R E F A N Y , 0002240 p a r e n t T r e e : C o n t 0002260 e x t T r e e N o d e , p g : 0002300 P r o g r a m G r a p h N o d 0002320 e , c s : C o m p i l e r S 0002340 t a t e N o d e ] R E T U R N 0002360 S [ t e m p 0 : C o n t e x t 0002400 T r e e N o d e , t e m p 1 : 0002420 P r o g r a m F r a g m e n t 0002440 N o d e , t e m p 2 : P r o 0002460 g r a m G r a p h N o d e ] = 0002500 \r B E G I N \r t r e e : \t B l o 0002520 c k N o d e _ N A R R O W [ r 0002540 e f ] ; \r B E G I N \r E N A B L 0002560 E T h r e e C 4 S u p p o r t 0002600 . G e t S o u r c e I n f o = 0002620 > R E S U M E [ t r e e . p o 0002640 s i t i o n , t r e e . l e n 0002660 g t h ] ; \r t r e e D a t a : \t 0002700 B l o c k P r o d D a t a _ 0002720 N A R R O W [ t r e e . d a t a 0002740 ] ; \r B E G I N \r n e w T r e e 0002760 : \t C o n t e x t T r e e N o d 0003000 e ; \r c h i l d T r e e : \t C o 0003020 n t e x t T r e e N o d e ; \r c 0003040 o d e : \t P r o g r a m F r a g 0003060 m e n t N o d e ; \r p g 1 : \t P 0003100 r o g r a m G r a p h N o d e ; 0003120 \r f l : \t F i e l d L i s t N o 0003140 d e ; \r l c 1 : \t L o c a l C o 0003160 n t e x t N o d e ; \r l c 1 _ 0003200 C r e a t e E m p t y C o n t 0003220 e x t [ R i b [ p a r e n t T r 0003240 e e ] , F a l s e [ ] ] ; \r f 0003260 l _ C r e a t e E m p t y F 0003300 i e l d L i s t [ ] ; \r [ c h i 0003320 l d T r e e , c o d e , p g 0003340 1 ] _ t r e e . p r o c s . 0003360 I n t e r n a l C o m p i l e B 0003400 l o c k [ t r e e , l c 1 , 0003420 f l , p g , c s ] ; \r n e w 0003440 T r e e _ A d d S u b C o n 0003460 t e x t T r e e [ p a r e n t T 0003500 r e e , c h i l d T r e e ] ; 0003520 \r t e m p 2 _ p g 1 ; \r t e 0003540 m p 1 _ c o d e ; \r t e m p 0003560 0 _ n e w T r e e ; \r E N D 0003600 ; \r E N D \r E N D ; \r \r B l o c 0003620 k P r o d C o m p i l e F r a m 0003640 e B l o c k : \t P U B L I C P 0003660 R O C [ r e f : R E F A N Y 0003700 , t r a n s f e r T y p e : 0003720 T y p e G r a p h N o d e N o d 0003740 e , p a r e n t T r e e : C 0003760 o n t e x t T r e e N o d e , 0004000 p g : P r o g r a m G r a p h 0004020 N o d e , c s : C o m p i l 0004040 e r S t a t e N o d e ] R E T 0004060 U R N S [ t e m p 0 : C o n t 0004100 e x t T r e e N o d e , t e m 0004120 p 1 : P r o g r a m F r a g m 0004140 e n t N o d e , t e m p 2 : 0004160 P r o g r a m G r a p h N o d e 0004200 ] = \r B E G I N \r t r e e : \t 0004220 B l o c k N o d e _ N A R R O 0004240 W [ r e f ] ; \r B E G I N \r E N 0004260 A B L E T h r e e C 4 S u p p 0004300 o r t . G e t S o u r c e I n f 0004320 o = > R E S U M E [ t r e e 0004340 . p o s i t i o n , t r e e . 0004360 l e n g t h ] ; \r t r e e D a t 0004400 a : \t B l o c k P r o d D a t a 0004420 _ N A R R O W [ t r e e . d 0004440 a t a ] ; \r B E G I N \r n e w T 0004460 r e e : \t C o n t e x t T r e e 0004500 N o d e ; \r c h i l d T r e e : 0004520 \t C o n t e x t T r e e N o d e 0004540 ; \r c o d e : \t P r o g r a m F 0004560 r a g m e n t N o d e ; \r p g 1 0004600 : \t P r o g r a m G r a p h N o 0004620 d e ; \r f l : \t F i e l d L i s 0004640 t N o d e ; \r l c 1 : \t L o c a 0004660 l C o n t e x t N o d e ; \r l c 0004700 1 _ C r e a t e E m p t y C 0004720 o n t e x t [ R i b [ p a r e n 0004740 t T r e e ] , T r u e [ ] ] ; 0004760 \r f l _ C r e a t e E m p t 0005000 y F i e l d L i s t [ ] ; \r [ c 0005020 h i l d T r e e , c o d e , 0005040 p g 1 ] _ t r e e . p r o c 0005060 s . I n t e r n a l C o m p i l 0005100 e B l o c k [ t r e e , l c 1 0005120 , f l , p g , c s ] ; \r n 0005140 e w T r e e _ A d d S u b C 0005160 o n t e x t T r e e [ p a r e n 0005200 t T r e e , c h i l d T r e e 0005220 ] ; \r t e m p 2 _ p g 1 ; \r 0005240 t e m p 1 _ c o d e ; \r t e 0005260 m p 0 _ n e w T r e e ; \r E 0005300 N D ; \r E N D \r E N D ; \r \r S c 0005320 o p e P r o d C o m p i l e S c 0005340 o p e : \t P U B L I C P R O C 0005360 [ r e f : R E F A N Y , l 0005400 o c a l C o n t e x t : L o c 0005420 a l C o n t e x t N o d e , f 0005440 l : F i e l d L i s t N o d e 0005460 , p g : P r o g r a m G r a 0005500 p h N o d e , c s : C o m p 0005520 i l e r S t a t e N o d e ] R 0005540 E T U R N S [ t e m p 0 : C o 0005560 n t e x t T r e e N o d e , t 0005600 e m p 1 : P r o g r a m F r a 0005620 g m e n t N o d e , t e m p 2 0005640 : P r o g r a m G r a p h N o 0005660 d e ] = \r B E G I N \r t r e e 0005700 : \t S c o p e N o d e _ N A R 0005720 R O W [ r e f ] ; \r B E G I N \r 0005740 E N A B L E T h r e e C 4 S u 0005760 p p o r t . G e t S o u r c e I 0006000 n f o = > R E S U M E [ t r 0006020 e e . p o s i t i o n , t r e 0006040 e . l e n g t h ] ; \r t r e e D 0006060 a t a : \t S c o p e P r o d D a 0006100 t a _ N A R R O W [ t r e e 0006120 . d a t a ] ; \r B E G I N \r p f 0006140 3 : \t P r o g r a m F r a g m e 0006160 n t N o d e ; \r c o n t e x t T 0006200 r e e 3 : \t C o n t e x t T r e 0006220 e N o d e ; \r p f 2 : \t P r o g 0006240 r a m F r a g m e n t N o d e ; 0006260 \r p g 2 : \t P r o g r a m G r a 0006300 p h N o d e ; \r c o n t e x t T 0006320 r e e 2 : \t C o n t e x t T r e 0006340 e N o d e ; \r p f 1 : \t P r o g 0006360 r a m F r a g m e n t N o d e ; 0006400 \r p g 1 : \t P r o g r a m G r a 0006420 p h N o d e ; \r c o n t e x t T 0006440 r e e 1 : \t C o n t e x t T r e 0006460 e N o d e ; \r r i b : \t C o n t 0006500 e x t R i b N o d e ; \r l o c a 0006520 l C o n t e x t 3 : \t L o c a l 0006540 C o n t e x t N o d e ; \r b l o 0006560 c k T G N : \t T y p e G r a p h 0006600 N o d e N o d e ; \r f i e l d L 0006620 i s t 4 : \t F i e l d L i s t N 0006640 o d e ; \r l o c a l C o n t e x 0006660 t 2 : \t L o c a l C o n t e x t 0006700 N o d e ; \r d e p e n d e n c y 0006720 G r a p h : \t D e p e n d e n c 0006740 y G r a p h N o d e ; \r f i e l 0006760 d L i s t 3 : \t F i e l d L i s 0007000 t N o d e ; \r f i e l d L i s t 0007020 2 : \t F i e l d L i s t N o d e 0007040 ; \r f i e l d L i s t 1 : \t F i 0007060 e l d L i s t N o d e ; \r l o c 0007100 a l C o n t e x t 1 : \t L o c a 0007120 l C o n t e x t N o d e ; \r [ f 0007140 i e l d L i s t 1 , l o c a l 0007160 C o n t e x t 1 ] _ t r e e 0007200 D a t a . O p t D e c L i s t . 0007220 p r o c s . A d d D e c l a r a 0007240 t i o n s T o F i e l d L i s t 0007260 [ t r e e D a t a . O p t D e c 0007300 L i s t , f l , l o c a l C 0007320 o n t e x t , c s ] ; \r f i e 0007340 l d L i s t 2 _ L o o k u p 0007360 I d e n t i f i e r T G N s [ f 0007400 i e l d L i s t 1 , l o c a l 0007420 C o n t e x t 1 ] ; \r f i e l d 0007440 L i s t 3 _ D i s c e r n S 0007460 p e c i a n a t e d T G N s [ f 0007500 i e l d L i s t 2 , l o c a l 0007520 C o n t e x t 1 ] ; \r d e p e n 0007540 d e n c y G r a p h _ B u i 0007560 l d D e p e n d e n c y G r a p 0007600 h [ f i e l d L i s t 3 , l o 0007620 c a l C o n t e x t 1 ] ; \r [ f 0007640 i e l d L i s t 4 , l o c a l 0007660 C o n t e x t 2 ] _ A n a l 0007700 y z e D e p e n d e n c i e s [ 0007720 d e p e n d e n c y G r a p h , 0007740 f i e l d L i s t 3 , l o c 0007760 a l C o n t e x t 1 , c s ] ; 0010000 \r [ l o c a l C o n t e x t 3 , 0010020 b l o c k T G N ] _ C r e 0010040 a t e B l o c k T G N [ l o c a 0010060 l C o n t e x t 2 , F r e e z 0010100 e F i e l d L i s t [ f i e l d 0010120 L i s t 4 ] ] ; \r r i b _ F 0010140 r e e z e L o c a l C o n t e x 0010160 t [ l o c a l C o n t e x t 3 , 0010200 b l o c k T G N ] ; \r c o n t 0010220 e x t T r e e 1 _ E m p t y 0010240 C o n t e x t T r e e [ r i b ] 0010260 ; \r [ c o n t e x t T r e e 2 , 0010300 p f 1 , p g 1 ] _ t r e 0010320 e D a t a . O p t D e c L i s t 0010340 . p r o c s . C o m p i l e [ t 0010360 r e e D a t a . O p t D e c L i 0010400 s t , c o n t e x t T r e e 1 0010420 , p g , c s ] ; \r [ c o n t 0010440 e x t T r e e 3 , p f 2 , p 0010460 g 2 ] _ t r e e D a t a . S 0010500 t a t e m e n t L i s t . p r o 0010520 c s . C o m p i l e [ t r e e D 0010540 a t a . S t a t e m e n t L i s 0010560 t , c o n t e x t T r e e 2 , 0010600 p g 1 , c s ] ; \r p f 3 _ 0010620 C o n c a t P r o g r a m F r 0010640 a g m e n t s [ p f 1 , p f 2 0010660 ] ; \r t e m p 2 _ p g 2 ; \r 0010700 t e m p 1 _ p f 3 ; \r t e m 0010720 p 0 _ c o n t e x t T r e e 0010740 3 ; \r E N D ; \r E N D \r E N D ; 0010760 \r \r D e f B o d y P r o d M a k 0011000 e C o n t e x t T r e e : \t P U 0011020 B L I C P R O C [ r e f : R 0011040 E F A N Y , c o n t e x t R 0011060 i b : C o n t e x t R i b N o 0011100 d e , p a i n t R e c o r d s 0011120 : B O O L E A N , c s : C 0011140 o m p i l e r S t a t e N o d e 0011160 ] R E T U R N S [ t e m p 0 : 0011200 C o n t e x t T r e e N o d e 0011220 ] = \r B E G I N \r t r e e : \t 0011240 D e f B o d y N o d e _ N A R 0011260 R O W [ r e f ] ; \r B E G I N \r 0011300 E N A B L E T h r e e C 4 S u 0011320 p p o r t . G e t S o u r c e I 0011340 n f o = > R E S U M E [ t r 0011360 e e . p o s i t i o n , t r e 0011400 e . l e n g t h ] ; \r t r e e D 0011420 a t a : \t D e f B o d y P r o d 0011440 D a t a _ N A R R O W [ t r 0011460 e e . d a t a ] ; \r B E G I N \r 0011500 c o n t e x t T r e e 2 : \t C o 0011520 n t e x t T r e e N o d e ; \r p 0011540 f 1 : \t P r o g r a m F r a g m 0011560 e n t N o d e ; \r p g 1 : \t P r 0011600 o g r a m G r a p h N o d e ; \r 0011620 p g : \t P r o g r a m G r a p h 0011640 N o d e ; \r c o n t e x t T r e 0011660 e 1 : \t C o n t e x t T r e e N 0011700 o d e ; \r r i b : \t C o n t e x 0011720 t R i b N o d e ; \r l o c a l C 0011740 o n t e x t 3 : \t L o c a l C o 0011760 n t e x t N o d e ; \r i n t e r 0012000 f a c e T G N : \t T y p e G r a 0012020 p h N o d e N o d e ; \r f i e l 0012040 d L i s t 4 : \t F i e l d L i s 0012060 t N o d e ; \r l o c a l C o n t 0012100 e x t 2 : \t L o c a l C o n t e 0012120 x t N o d e ; \r d e p e n d e n 0012140 c y G r a p h : \t D e p e n d e 0012160 n c y G r a p h N o d e ; \r f i 0012200 e l d L i s t 3 : \t F i e l d L 0012220 i s t N o d e ; \r f i e l d L i 0012240 s t 2 : \t F i e l d L i s t N o 0012260 d e ; \r f i e l d L i s t 1 : \t 0012300 F i e l d L i s t N o d e ; \r l 0012320 o c a l C o n t e x t 1 : \t L o 0012340 c a l C o n t e x t N o d e ; \r 0012360 l o c a l C o n t e x t : \t L o 0012400 c a l C o n t e x t N o d e ; \r 0012420 l o c a l C o n t e x t _ C 0012440 r e a t e E m p t y C o n t e x 0012460 t [ c o n t e x t R i b , T r 0012500 u e [ ] ] ; \r [ f i e l d L i s 0012520 t 1 , l o c a l C o n t e x t 0012540 1 ] _ t r e e D a t a . D e 0012560 c L i s t . p r o c s . A d d D 0012600 e c l a r a t i o n s T o F i e 0012620 l d L i s t [ t r e e D a t a . 0012640 D e c L i s t , C r e a t e E 0012660 m p t y F i e l d L i s t [ ] , 0012700 l o c a l C o n t e x t , c 0012720 s ] ; \r f i e l d L i s t 2 _ 0012740 L o o k u p I d e n t i f i e 0012760 r T G N s [ f i e l d L i s t 1 0013000 , l o c a l C o n t e x t 1 ] 0013020 ; \r f i e l d L i s t 3 _ D 0013040 i s c e r n S p e c i a n a t e 0013060 d T G N s [ f i e l d L i s t 2 0013100 , l o c a l C o n t e x t 1 ] 0013120 ; \r d e p e n d e n c y G r a p 0013140 h _ B u i l d D e p e n d e 0013160 n c y G r a p h [ f i e l d L i 0013200 s t 3 , l o c a l C o n t e x 0013220 t 1 ] ; \r [ f i e l d L i s t 4 0013240 , l o c a l C o n t e x t 2 ] 0013260 _ A n a l y z e D e p e n d 0013300 e n c i e s [ d e p e n d e n c 0013320 y G r a p h , f i e l d L i s 0013340 t 3 , l o c a l C o n t e x t 0013360 1 , c s ] ; \r [ l o c a l C o 0013400 n t e x t 3 , i n t e r f a c 0013420 e T G N ] _ C r e a t e I n 0013440 t e r f a c e C o n t e n t s T 0013460 G N [ l o c a l C o n t e x t 2 0013500 , F r e e z e F i e l d L i s 0013520 t [ f i e l d L i s t 4 ] ] ; \r 0013540 r i b _ F r e e z e L o c a 0013560 l C o n t e x t [ l o c a l C o 0013600 n t e x t 3 , i n t e r f a c 0013620 e T G N ] ; \r c o n t e x t T r 0013640 e e 1 _ E m p t y C o n t e 0013660 x t T r e e [ r i b ] ; \r p g 0013700 _ C r e a t e E m p t y P r o 0013720 g r a m G r a p h [ ] ; \r [ c o 0013740 n t e x t T r e e 2 , p f 1 , 0013760 p g 1 ] _ t r e e D a t a 0014000 . D e c L i s t . p r o c s . C 0014020 o m p i l e [ t r e e D a t a . 0014040 D e c L i s t , c o n t e x t 0014060 T r e e 1 , p g , c s ] ; \r 0014100 t e m p 0 _ c o n t e x t T 0014120 r e e 2 ; \r E N D ; \r E N D \r E 0014140 N D ; \r \r E N D . . \r 0014153