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