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