$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronStatementCompileImpl.Mesa!8
0000000 - - S a f f r o n S t a t e m
0000020 e n t C o m p i l e I m p l . m
0000040 e s a \r - - C o p y r i g h
0000060 t 323 1 9 8 7 b y X e r o
0000100 x C o r p o r a t i o n .
0000120 A l l r i g h t s r e s e r
0000140 v e d . \r - - G e n e r a t
0000160 e d b y R a u e n . p a a
0000200 t S e p t e m b e r 1 , 1
0000220 9 8 8 3 : 0 0 : 3 0 p m P
0000240 D T \r - - u s i n g T h
0000260 r e e C a s a b a F o u r [ 1
0000300 . 2 ] o f J u n e 1 , 1
0000320 9 8 7 6 : 0 0 : 0 0 p m P
0000340 D T \r \r D I R E C T O R Y \r \t S
0000360 a f f r o n P G D e f , \r \t S a
0000400 f f r o n A G 4 D e f , \r \t T h
0000420 r e e C 4 S u p p o r t , \r \t S
0000440 a f f r o n B a s e D e f , \r \t
0000460 S a f f r o n A T D e f ; \r \r S
0000500 a f f r o n S t a t e m e n t C
0000520 o m p i l e I m p l : C E D A
0000540 R P R O G R A M I M P O R T
0000560 S S a f f r o n P G D e f ,
0000600 T h r e e C 4 S u p p o r t ,
0000620 S a f f r o n B a s e D e f ,
0000640 S a f f r o n A T D e f E X P
0000660 O R T S S a f f r o n A G 4 D
0000700 e f = \r B E G I N \r O P E N
0000720 S a f f r o n P G D e f , S a
0000740 f f r o n A G 4 D e f , T h r
0000760 e e C 4 S u p p o r t , S a f
0001000 f r o n B a s e D e f , S a f
0001020 f r o n A T D e f ; \r S t a t e
0001040 m e n t L i s t e m p t y P r o
0001060 d C o m p i l e : \t P U B L I C
0001100 P R O C [ r e f : R E F A
0001120 N Y , c o n t e x t T r e e :
0001140 C o n t e x t T r e e N o d e
0001160 , p g : P r o g r a m G r a
0001200 p h N o d e , c s : C o m p
0001220 i l e r S t a t e N o d e ] R
0001240 E T U R N S [ t e m p 0 : C o
0001260 n t e x t T r e e N o d e , t
0001300 e m p 1 : P r o g r a m F r a
0001320 g m e n t N o d e , t e m p 2
0001340 : P r o g r a m G r a p h N o
0001360 d e ] = \r B E G I N \r t r e e
0001400 : \t S t a t e m e n t L i s t N
0001420 o d e _ N A R R O W [ r e f ]
0001440 ; \r B E G I N \r E N A B L E T
0001460 h r e e C 4 S u p p o r t . G e
0001500 t S o u r c e I n f o = > R
0001520 E S U M E [ t r e e . p o s i t
0001540 i o n , t r e e . l e n g t h
0001560 ] ; \r t e m p 2 _ F a k e D
0001600 a m a g e P r o g r a m G r a p
0001620 h [ p g ] ; \r t e m p 1 _ M
0001640 a k e P G N o O p [ ] ; \r t e m
0001660 p 0 _ F a k e D a m a g e C
0001700 o n t e x t T r e e [ c o n t e
0001720 x t T r e e ] ; \r E N D \r E N D
0001740 ; \r \r S t a t e m e n t L i s t
0001760 m o r e P r o d C o m p i l e :
0002000 \t P U B L I C P R O C [ r e f
0002020 : R E F A N Y , c o n t e
0002040 x t T r e e : C o n t e x t T
0002060 r e e N o d e , p g : P r o
0002100 g r a m G r a p h N o d e , c
0002120 s : C o m p i l e r S t a t e
0002140 N o d e ] R E T U R N S [ t e
0002160 m p 0 : C o n t e x t T r e e
0002200 N o d e , t e m p 1 : P r o
0002220 g r a m F r a g m e n t N o d e
0002240 , t e m p 2 : P r o g r a m
0002260 G r a p h N o d e ] = \r B E G
0002300 I N \r t r e e : \t S t a t e m e
0002320 n t L i s t N o d e _ N A R R
0002340 O W [ r e f ] ; \r B E G I N \r E
0002360 N A B L E T h r e e C 4 S u p
0002400 p o r t . G e t S o u r c e I n
0002420 f o = > R E S U M E [ t r e
0002440 e . p o s i t i o n , t r e e
0002460 . l e n g t h ] ; \r t r e e D a
0002500 t a : \t S t a t e m e n t L i s
0002520 t m o r e P r o d D a t a _
0002540 N A R R O W [ t r e e . d a t a
0002560 ] ; \r B E G I N \r p f 3 : \t P r
0002600 o g r a m F r a g m e n t N o d
0002620 e ; \r c o n t e x t T r e e 2 :
0002640 \t C o n t e x t T r e e N o d e
0002660 ; \r p f 2 : \t P r o g r a m F r
0002700 a g m e n t N o d e ; \r p g 2 :
0002720 \t P r o g r a m G r a p h N o d
0002740 e ; \r c o n t e x t T r e e 1 :
0002760 \t C o n t e x t T r e e N o d e
0003000 ; \r p f 1 : \t P r o g r a m F r
0003020 a g m e n t N o d e ; \r p g 1 :
0003040 \t P r o g r a m G r a p h N o d
0003060 e ; \r [ c o n t e x t T r e e 1
0003100 , p f 1 , p g 1 ] _ t r
0003120 e e D a t a . S t a t e m e n t
0003140 L i s t . p r o c s . C o m p i
0003160 l e [ t r e e D a t a . S t a t
0003200 e m e n t L i s t , c o n t e
0003220 x t T r e e , p g , c s ] ;
0003240 \r [ c o n t e x t T r e e 2 ,
0003260 p f 2 , p g 2 ] _ t r e e
0003300 D a t a . S t a t e m e n t . p
0003320 r o c s . C o m p i l e [ t r e
0003340 e D a t a . S t a t e m e n t ,
0003360 c o n t e x t T r e e 1 , p
0003400 g 1 , c s ] ; \r p f 3 _ C
0003420 o n c a t P r o g r a m F r a g
0003440 m e n t s [ p f 1 , p f 2 ] ;
0003460 \r t e m p 2 _ p g 2 ; \r t e
0003500 m p 1 _ p f 3 ; \r t e m p 0
0003520 _ c o n t e x t T r e e 2 ;
0003540 \r E N D ; \r E N D \r E N D ; \r \r
0003560 S t a t e m e n t i f t h e n P
0003600 r o d C o m p i l e : \t P U B L
0003620 I C P R O C [ r e f : R E F
0003640 A N Y , c o n t e x t T r e
0003660 e : C o n t e x t T r e e N o
0003700 d e , p g : P r o g r a m G
0003720 r a p h N o d e , c s : C o
0003740 m p i l e r S t a t e N o d e ]
0003760 R E T U R N S [ t e m p 0 :
0004000 C o n t e x t T r e e N o d e ,
0004020 t e m p 1 : P r o g r a m F
0004040 r a g m e n t N o d e , t e m
0004060 p 2 : P r o g r a m G r a p h
0004100 N o d e ] = \r B E G I N \r t r
0004120 e e : \t S t a t e m e n t N o d
0004140 e _ N A R R O W [ r e f ] ; \r
0004160 B E G I N \r E N A B L E T h r
0004200 e e C 4 S u p p o r t . G e t S
0004220 o u r c e I n f o = > R E S
0004240 U M E [ t r e e . p o s i t i o
0004260 n , t r e e . l e n g t h ] ;
0004300 \r t r e e D a t a : \t S t a t e
0004320 m e n t i f t h e n P r o d D a
0004340 t a _ N A R R O W [ t r e e
0004360 . d a t a ] ; \r B E G I N \r c o
0004400 d e : \t P r o g r a m F r a g m
0004420 e n t N o d e ; \r i f F a l s e
0004440 C o d e : \t P r o g r a m F r a
0004460 g m e n t N o d e ; \r c o n t e
0004500 x t T r e e 2 : \t C o n t e x t
0004520 T r e e N o d e ; \r i f T r u e
0004540 C o d e : \t P r o g r a m F r a
0004560 g m e n t N o d e ; \r p g 1 : \t
0004600 P r o g r a m G r a p h N o d e
0004620 ; \r t e s t V a l u e : \t V a l
0004640 u e N o d e ; \r c o n t e x t T
0004660 r e e 1 : \t C o n t e x t T r e
0004700 e N o d e ; \r b o o l e a n T y
0004720 p e : \t T y p e G r a p h N o d
0004740 e N o d e ; \r b o o l e a n T y
0004760 p e _ G e t I n t r i n s i
0005000 c B o o l e a n T y p e [ c s ]
0005020 ; \r [ t e s t V a l u e , c o
0005040 n t e x t T r e e 1 ] _ C o
0005060 m p i l e A n d T y p e C h e c
0005100 k E x p r e s s i o n [ t r e e
0005120 D a t a . E x p , c o n t e x
0005140 t T r e e , c s , b o o l e
0005160 a n T y p e ] ; \r [ c o n t e x
0005200 t T r e e 2 , i f T r u e C o
0005220 d e , p g 1 ] _ t r e e D
0005240 a t a . S t a t e m e n t . p r
0005260 o c s . C o m p i l e [ t r e e
0005300 D a t a . S t a t e m e n t ,
0005320 c o n t e x t T r e e 1 , p g
0005340 , c s ] ; \r i f F a l s e C o
0005360 d e _ M a k e P G N o O p [
0005400 ] ; \r c o d e _ M a k e P G
0005420 T e s t [ C o d e [ t e s t V a
0005440 l u e ] , i f T r u e C o d e
0005460 , i f F a l s e C o d e ] ; \r
0005500 t e m p 2 _ p g 1 ; \r t e m
0005520 p 1 _ c o d e ; \r t e m p 0
0005540 _ c o n t e x t T r e e 2 ;
0005560 \r E N D ; \r E N D \r E N D ; \r \r
0005600 S t a t e m e n t i f t h e n e
0005620 l s e P r o d C o m p i l e : \t
0005640 P U B L I C P R O C [ r e f :
0005660 R E F A N Y , c o n t e x
0005700 t T r e e : C o n t e x t T r
0005720 e e N o d e , p g : P r o g
0005740 r a m G r a p h N o d e , c s
0005760 : C o m p i l e r S t a t e N
0006000 o d e ] R E T U R N S [ t e m
0006020 p 0 : C o n t e x t T r e e N
0006040 o d e , t e m p 1 : P r o g
0006060 r a m F r a g m e n t N o d e ,
0006100 t e m p 2 : P r o g r a m G
0006120 r a p h N o d e ] = \r B E G I
0006140 N \r t r e e : \t S t a t e m e n
0006160 t N o d e _ N A R R O W [ r e
0006200 f ] ; \r B E G I N \r E N A B L E
0006220 T h r e e C 4 S u p p o r t .
0006240 G e t S o u r c e I n f o = >
0006260 R E S U M E [ t r e e . p o s
0006300 i t i o n , t r e e . l e n g
0006320 t h ] ; \r t r e e D a t a : \t S
0006340 t a t e m e n t i f t h e n e l
0006360 s e P r o d D a t a _ N A R
0006400 R O W [ t r e e . d a t a ] ; \r
0006420 B E G I N \r c o d e : \t P r o g
0006440 r a m F r a g m e n t N o d e ;
0006460 \r c o n t e x t T r e e 3 : \t C
0006500 o n t e x t T r e e N o d e ; \r
0006520 i f F a l s e C o d e : \t P r o
0006540 g r a m F r a g m e n t N o d e
0006560 ; \r p g 2 : \t P r o g r a m G r
0006600 a p h N o d e ; \r c o n t e x t
0006620 T r e e 2 : \t C o n t e x t T r
0006640 e e N o d e ; \r i f T r u e C o
0006660 d e : \t P r o g r a m F r a g m
0006700 e n t N o d e ; \r p g 1 : \t P r
0006720 o g r a m G r a p h N o d e ; \r
0006740 t e s t C o d e : \t P r o g r a
0006760 m F r a g m e n t N o d e ; \r t
0007000 e s t V a l u e : \t V a l u e N
0007020 o d e ; \r c o n t e x t T r e e
0007040 1 : \t C o n t e x t T r e e N o
0007060 d e ; \r b o o l e a n T y p e :
0007100 \t T y p e G r a p h N o d e N o
0007120 d e ; \r b o o l e a n T y p e
0007140 _ G e t I n t r i n s i c B o
0007160 o l e a n T y p e [ c s ] ; \r [
0007200 t e s t V a l u e , c o n t e
0007220 x t T r e e 1 ] _ C o m p i
0007240 l e A n d T y p e C h e c k E x
0007260 p r e s s i o n [ t r e e D a t
0007300 a . E x p , c o n t e x t T r
0007320 e e , c s , b o o l e a n T
0007340 y p e ] ; \r t e s t C o d e _
0007360 C o d e [ t e s t V a l u e ]
0007400 ; \r [ c o n t e x t T r e e 2 ,
0007420 i f T r u e C o d e , p g 1
0007440 ] _ t r e e D a t a . S t a
0007460 t e m e n t t h e n p a r t . p
0007500 r o c s . C o m p i l e [ t r e
0007520 e D a t a . S t a t e m e n t t
0007540 h e n p a r t , c o n t e x t
0007560 T r e e 1 , p g , c s ] ; \r
0007600 [ c o n t e x t T r e e 3 , i
0007620 f F a l s e C o d e , p g 2 ]
0007640 _ t r e e D a t a . S t a t
0007660 e m e n t e l s e p a r t . p r
0007700 o c s . C o m p i l e [ t r e e
0007720 D a t a . S t a t e m e n t e l
0007740 s e p a r t , c o n t e x t T
0007760 r e e 2 , p g 1 , c s ] ; \r
0010000 c o d e _ M a k e P G T e s
0010020 t [ t e s t C o d e , i f T r
0010040 u e C o d e , i f F a l s e C
0010060 o d e ] ; \r t e m p 2 _ p g
0010100 2 ; \r t e m p 1 _ c o d e ;
0010120 \r t e m p 0 _ c o n t e x t
0010140 T r e e 3 ; \r E N D ; \r E N D \r
0010160 E N D ; \r \r S t a t e m e n t s
0010200 e l e c t P r o d C o m p i l e
0010220 : \t P U B L I C P R O C [ r e
0010240 f : R E F A N Y , c o n t
0010260 e x t T r e e : C o n t e x t
0010300 T r e e N o d e , p g : P r
0010320 o g r a m G r a p h N o d e ,
0010340 c s : C o m p i l e r S t a t
0010360 e N o d e ] R E T U R N S [ t
0010400 e m p 0 : C o n t e x t T r e
0010420 e N o d e , t e m p 1 : P r
0010440 o g r a m F r a g m e n t N o d
0010460 e , t e m p 2 : P r o g r a
0010500 m G r a p h N o d e ] = \r B E
0010520 G I N \r t r e e : \t S t a t e m
0010540 e n t N o d e _ N A R R O W [
0010560 r e f ] ; \r B E G I N \r E N A B
0010600 L E T h r e e C 4 S u p p o r
0010620 t . G e t S o u r c e I n f o
0010640 = > R E S U M E [ t r e e . p
0010660 o s i t i o n , t r e e . l e
0010700 n g t h ] ; \r t r e e D a t a :
0010720 \t S t a t e m e n t s e l e c t
0010740 P r o d D a t a _ N A R R O
0010760 W [ t r e e . d a t a ] ; \r B E
0011000 G I N \r e r r : \t B O O L E A N
0011020 ; \r e r r _ E r r o r [ " C
0011040 o m p i l e f o r S t a t e
0011060 m e n t . s e l e c t n o t
0011100 i m p l e m e n t e d y e t .
0011120 " ] ; \r t e m p 2 _ F a k e
0011140 D a m a g e P r o g r a m G r a
0011160 p h [ p g ] ; \r t e m p 1 _
0011200 M a k e P G N o O p [ ] ; \r t e
0011220 m p 0 _ F a k e D a m a g e
0011240 C o n t e x t T r e e [ c o n t
0011260 e x t T r e e ] ; \r E N D ; \r E
0011300 N D \r E N D ; \r \r S t a t e m e
0011320 n t e x p P r o d C o m p i l e
0011340 : \t P U B L I C P R O C [ r e
0011360 f : R E F A N Y , c o n t
0011400 e x t T r e e : C o n t e x t
0011420 T r e e N o d e , p g : P r
0011440 o g r a m G r a p h N o d e ,
0011460 c s : C o m p i l e r S t a t
0011500 e N o d e ] R E T U R N S [ t
0011520 e m p 0 : C o n t e x t T r e
0011540 e N o d e , t e m p 1 : P r
0011560 o g r a m F r a g m e n t N o d
0011600 e , t e m p 2 : P r o g r a
0011620 m G r a p h N o d e ] = \r B E
0011640 G I N \r t r e e : \t S t a t e m
0011660 e n t N o d e _ N A R R O W [
0011700 r e f ] ; \r B E G I N \r E N A B
0011720 L E T h r e e C 4 S u p p o r
0011740 t . G e t S o u r c e I n f o
0011760 = > R E S U M E [ t r e e . p
0012000 o s i t i o n , t r e e . l e
0012020 n g t h ] ; \r t r e e D a t a :
0012040 \t S t a t e m e n t e x p P r o
0012060 d D a t a _ N A R R O W [ t
0012100 r e e . d a t a ] ; \r B E G I N
0012120 \r e r r : \t B O O L E A N ; \r e
0012140 r r _ E r r o r [ " C o m p
0012160 i l e f o r S t a t e m e n
0012200 t . e x p n o t i m p l e m
0012220 e n t e d y e t . " ] ; \r t e
0012240 m p 2 _ F a k e D a m a g e
0012260 P r o g r a m G r a p h [ p g ]
0012300 ; \r t e m p 1 _ M a k e P G
0012320 N o O p [ ] ; \r t e m p 0 _
0012340 F a k e D a m a g e C o n t e x
0012360 t T r e e [ c o n t e x t T r e
0012400 e ] ; \r E N D ; \r E N D \r E N D
0012420 ; \r \r S t a t e m e n t a s s i
0012440 g n P r o d C o m p i l e : \t P
0012460 U B L I C P R O C [ r e f :
0012500 R E F A N Y , c o n t e x t
0012520 T r e e : C o n t e x t T r e
0012540 e N o d e , p g : P r o g r
0012560 a m G r a p h N o d e , c s :
0012600 C o m p i l e r S t a t e N o
0012620 d e ] R E T U R N S [ t e m p
0012640 0 : C o n t e x t T r e e N o
0012660 d e , t e m p 1 : P r o g r
0012700 a m F r a g m e n t N o d e ,
0012720 t e m p 2 : P r o g r a m G r
0012740 a p h N o d e ] = \r B E G I N
0012760 \r t r e e : \t S t a t e m e n t
0013000 N o d e _ N A R R O W [ r e f
0013020 ] ; \r B E G I N \r E N A B L E
0013040 T h r e e C 4 S u p p o r t . G
0013060 e t S o u r c e I n f o = >
0013100 R E S U M E [ t r e e . p o s i
0013120 t i o n , t r e e . l e n g t
0013140 h ] ; \r t r e e D a t a : \t S t
0013160 a t e m e n t a s s i g n P r o
0013200 d D a t a _ N A R R O W [ t
0013220 r e e . d a t a ] ; \r B E G I N
0013240 \r c o d e : \t P r o g r a m F r
0013260 a g m e n t N o d e ; \r s t o r
0013300 e T O S : \t P r o g r a m F r a
0013320 g m e n t N o d e ; \r r h s V a
0013340 l u e : \t V a l u e N o d e ; \r
0013360 c o n t e x t T r e e 1 : \t C o
0013400 n t e x t T r e e N o d e ; \r l
0013420 v a l u e : \t P a r a m e t e r
0013440 i z e d F i e l d D e s c r i p
0013460 t o r N o d e ; \r t g n : \t T y
0013500 p e G r a p h N o d e N o d e ;
0013520 \r [ l v a l u e , t g n ] _
0013540 t r e e D a t a . E x p l h s
0013560 . p r o c s . C o m p i l e L V
0013600 a l u e [ t r e e D a t a . E x
0013620 p l h s , c o n t e x t T r e
0013640 e , c s ] ; \r [ r h s V a l u
0013660 e , c o n t e x t T r e e 1 ]
0013700 _ C o m p i l e A n d T y p
0013720 e C h e c k E x p r e s s i o n
0013740 [ t r e e D a t a . E x p r h s
0013760 , c o n t e x t T r e e , c
0014000 s , t g n ] ; \r I F P F D I
0014020 s L o c a l [ l v a l u e ] T
0014040 H E N { s t o r e T O S _
0014060 M a k e P G S t o r e L o c a l
0014100 [ l v a l u e ] ; \r } E L S E
0014120 { s t o r e T O S _ M a k
0014140 e P G S t o r e I n d i r e c t
0014160 [ l v a l u e ] ; \r } ; \r c o d
0014200 e _ C o n c a t P r o g r a
0014220 m F r a g m e n t s [ C o d e [
0014240 r h s V a l u e ] , s t o r e
0014260 T O S ] ; \r t e m p 2 _ F a
0014300 k e D a m a g e P r o g r a m G
0014320 r a p h [ p g ] ; \r t e m p 1
0014340 _ c o d e ; \r t e m p 0 _
0014360 c o n t e x t T r e e 1 ; \r E N
0014400 D ; \r E N D \r E N D ; \r \r S t a
0014420 t e m e n t m u l t i a s s i g
0014440 n P r o d C o m p i l e : \t P U
0014460 B L I C P R O C [ r e f : R
0014500 E F A N Y , c o n t e x t T
0014520 r e e : C o n t e x t T r e e
0014540 N o d e , p g : P r o g r a
0014560 m G r a p h N o d e , c s :
0014600 C o m p i l e r S t a t e N o d
0014620 e ] R E T U R N S [ t e m p 0
0014640 : C o n t e x t T r e e N o d
0014660 e , t e m p 1 : P r o g r a
0014700 m F r a g m e n t N o d e , t
0014720 e m p 2 : P r o g r a m G r a
0014740 p h N o d e ] = \r B E G I N \r
0014760 t r e e : \t S t a t e m e n t N
0015000 o d e _ N A R R O W [ r e f ]
0015020 ; \r B E G I N \r E N A B L E T
0015040 h r e e C 4 S u p p o r t . G e
0015060 t S o u r c e I n f o = > R
0015100 E S U M E [ t r e e . p o s i t
0015120 i o n , t r e e . l e n g t h
0015140 ] ; \r t r e e D a t a : \t S t a
0015160 t e m e n t m u l t i a s s i g
0015200 n P r o d D a t a _ N A R R
0015220 O W [ t r e e . d a t a ] ; \r B
0015240 E G I N \r e r r : \t B O O L E A
0015260 N ; \r e r r _ E r r o r [ "
0015300 C o m p i l e f o r S t a t
0015320 e m e n t . m u l t i a s s i g
0015340 n n o t i m p l e m e n t e
0015360 d y e t . " ] ; \r t e m p 2
0015400 _ F a k e D a m a g e P r o g
0015420 r a m G r a p h [ p g ] ; \r t e
0015440 m p 1 _ M a k e P G N o O p
0015460 [ ] ; \r t e m p 0 _ F a k e
0015500 D a m a g e C o n t e x t T r e
0015520 e [ c o n t e x t T r e e ] ; \r
0015540 E N D ; \r E N D \r E N D ; \r \r S
0015560 t a t e m e n t b l o c k P r o
0015600 d C o m p i l e : \t P U B L I C
0015620 P R O C [ r e f : R E F A
0015640 N Y , c o n t e x t T r e e :
0015660 C o n t e x t T r e e N o d e
0015700 , p g : P r o g r a m G r a
0015720 p h N o d e , c s : C o m p
0015740 i l e r S t a t e N o d e ] R
0015760 E T U R N S [ t e m p 0 : C o
0016000 n t e x t T r e e N o d e , t
0016020 e m p 1 : P r o g r a m F r a
0016040 g m e n t N o d e , t e m p 2
0016060 : P r o g r a m G r a p h N o
0016100 d e ] = \r B E G I N \r t r e e
0016120 : \t S t a t e m e n t N o d e _
0016140 N A R R O W [ r e f ] ; \r B E
0016160 G I N \r E N A B L E T h r e e
0016200 C 4 S u p p o r t . G e t S o u
0016220 r c e I n f o = > R E S U M
0016240 E [ t r e e . p o s i t i o n ,
0016260 t r e e . l e n g t h ] ; \r t
0016300 r e e D a t a : \t S t a t e m e
0016320 n t b l o c k P r o d D a t a
0016340 _ N A R R O W [ t r e e . d a
0016360 t a ] ; \r [ t e m p 0 , t e m
0016400 p 1 , t e m p 2 ] _ t r e
0016420 e D a t a . B l o c k . p r o c
0016440 s . C o m p i l e [ t r e e D a
0016460 t a . B l o c k , c o n t e x
0016500 t T r e e , p g , c s ] ; \r
0016520 E N D \r E N D ; \r \r S t a t e m
0016540 e n t l o o p c o n t r o l P r
0016560 o d C o m p i l e : \t P U B L I
0016600 C P R O C [ r e f : R E F
0016620 A N Y , c o n t e x t T r e e
0016640 : C o n t e x t T r e e N o d
0016660 e , p g : P r o g r a m G r
0016700 a p h N o d e , c s : C o m
0016720 p i l e r S t a t e N o d e ]
0016740 R E T U R N S [ t e m p 0 : C
0016760 o n t e x t T r e e N o d e ,
0017000 t e m p 1 : P r o g r a m F r
0017020 a g m e n t N o d e , t e m p
0017040 2 : P r o g r a m G r a p h N
0017060 o d e ] = \r B E G I N \r t r e
0017100 e : \t S t a t e m e n t N o d e
0017120 _ N A R R O W [ r e f ] ; \r B
0017140 E G I N \r E N A B L E T h r e
0017160 e C 4 S u p p o r t . G e t S o
0017200 u r c e I n f o = > R E S U
0017220 M E [ t r e e . p o s i t i o n
0017240 , t r e e . l e n g t h ] ; \r
0017260 t r e e D a t a : \t S t a t e m
0017300 e n t l o o p c o n t r o l P r
0017320 o d D a t a _ N A R R O W [
0017340 t r e e . d a t a ] ; \r B E G I
0017360 N \r e r r : \t B O O L E A N ; \r
0017400 e r r _ E r r o r [ " C o m
0017420 p i l e f o r S t a t e m e
0017440 n t . l o o p c o n t r o l n
0017460 o t i m p l e m e n t e d y
0017500 e t . " ] ; \r t e m p 2 _ F
0017520 a k e D a m a g e P r o g r a m
0017540 G r a p h [ p g ] ; \r t e m p 1
0017560 _ M a k e P G N o O p [ ] ;
0017600 \r t e m p 0 _ F a k e D a m
0017620 a g e C o n t e x t T r e e [ c
0017640 o n t e x t T r e e ] ; \r E N D
0017660 ; \r E N D \r E N D ; \r \r S t a t
0017700 e m e n t e x i t P r o d C o m
0017720 p i l e : \t P U B L I C P R O
0017740 C [ r e f : R E F A N Y ,
0017760 c o n t e x t T r e e : C o n
0020000 t e x t T r e e N o d e , p g
0020020 : P r o g r a m G r a p h N o
0020040 d e , c s : C o m p i l e r
0020060 S t a t e N o d e ] R E T U R
0020100 N S [ t e m p 0 : C o n t e x
0020120 t T r e e N o d e , t e m p 1
0020140 : P r o g r a m F r a g m e n
0020160 t N o d e , t e m p 2 : P r
0020200 o g r a m G r a p h N o d e ]
0020220 = \r B E G I N \r t r e e : \t S t
0020240 a t e m e n t N o d e _ N A R
0020260 R O W [ r e f ] ; \r B E G I N \r
0020300 E N A B L E T h r e e C 4 S u
0020320 p p o r t . G e t S o u r c e I
0020340 n f o = > R E S U M E [ t r
0020360 e e . p o s i t i o n , t r e
0020400 e . l e n g t h ] ; \r B E G I N
0020420 \r e r r : \t B O O L E A N ; \r e
0020440 r r _ E r r o r [ " C o m p
0020460 i l e f o r S t a t e m e n
0020500 t . e x i t n o t i m p l e
0020520 m e n t e d y e t . " ] ; \r t
0020540 e m p 2 _ F a k e D a m a g
0020560 e P r o g r a m G r a p h [ p g
0020600 ] ; \r t e m p 1 _ M a k e P
0020620 G N o O p [ ] ; \r t e m p 0 _
0020640 F a k e D a m a g e C o n t e
0020660 x t T r e e [ c o n t e x t T r
0020700 e e ] ; \r E N D ; \r E N D \r E N
0020720 D ; \r \r S t a t e m e n t l o o
0020740 p P r o d C o m p i l e : \t P U
0020760 B L I C P R O C [ r e f : R
0021000 E F A N Y , c o n t e x t T
0021020 r e e : C o n t e x t T r e e
0021040 N o d e , p g : P r o g r a
0021060 m G r a p h N o d e , c s :
0021100 C o m p i l e r S t a t e N o d
0021120 e ] R E T U R N S [ t e m p 0
0021140 : C o n t e x t T r e e N o d
0021160 e , t e m p 1 : P r o g r a
0021200 m F r a g m e n t N o d e , t
0021220 e m p 2 : P r o g r a m G r a
0021240 p h N o d e ] = \r B E G I N \r
0021260 t r e e : \t S t a t e m e n t N
0021300 o d e _ N A R R O W [ r e f ]
0021320 ; \r B E G I N \r E N A B L E T
0021340 h r e e C 4 S u p p o r t . G e
0021360 t S o u r c e I n f o = > R
0021400 E S U M E [ t r e e . p o s i t
0021420 i o n , t r e e . l e n g t h
0021440 ] ; \r B E G I N \r e r r : \t B O
0021460 O L E A N ; \r e r r _ E r r
0021500 o r [ " C o m p i l e f o r
0021520 S t a t e m e n t . l o o p n
0021540 o t i m p l e m e n t e d y
0021560 e t . " ] ; \r t e m p 2 _ F
0021600 a k e D a m a g e P r o g r a m
0021620 G r a p h [ p g ] ; \r t e m p 1
0021640 _ M a k e P G N o O p [ ] ;
0021660 \r t e m p 0 _ F a k e D a m
0021700 a g e C o n t e x t T r e e [ c
0021720 o n t e x t T r e e ] ; \r E N D
0021740 ; \r E N D \r E N D ; \r \r S t a t
0021760 e m e n t g o t o P r o d C o m
0022000 p i l e : \t P U B L I C P R O
0022020 C [ r e f : R E F A N Y ,
0022040 c o n t e x t T r e e : C o n
0022060 t e x t T r e e N o d e , p g
0022100 : P r o g r a m G r a p h N o
0022120 d e , c s : C o m p i l e r
0022140 S t a t e N o d e ] R E T U R
0022160 N S [ t e m p 0 : C o n t e x
0022200 t T r e e N o d e , t e m p 1
0022220 : P r o g r a m F r a g m e n
0022240 t N o d e , t e m p 2 : P r
0022260 o g r a m G r a p h N o d e ]
0022300 = \r B E G I N \r t r e e : \t S t
0022320 a t e m e n t N o d e _ N A R
0022340 R O W [ r e f ] ; \r B E G I N \r
0022360 E N A B L E T h r e e C 4 S u
0022400 p p o r t . G e t S o u r c e I
0022420 n f o = > R E S U M E [ t r
0022440 e e . p o s i t i o n , t r e
0022460 e . l e n g t h ] ; \r t r e e D
0022500 a t a : \t S t a t e m e n t g o
0022520 t o P r o d D a t a _ N A R
0022540 R O W [ t r e e . d a t a ] ; \r
0022560 B E G I N \r e r r : \t B O O L E
0022600 A N ; \r e r r _ E r r o r [
0022620 " C o m p i l e f o r S t a
0022640 t e m e n t . g o t o n o t
0022660 i m p l e m e n t e d y e t .
0022700 " ] ; \r t e m p 2 _ F a k e
0022720 D a m a g e P r o g r a m G r a
0022740 p h [ p g ] ; \r t e m p 1 _
0022760 M a k e P G N o O p [ ] ; \r t e
0023000 m p 0 _ F a k e D a m a g e
0023020 C o n t e x t T r e e [ c o n t
0023040 e x t T r e e ] ; \r E N D ; \r E
0023060 N D \r E N D ; \r \r S t a t e m e
0023100 n t r e t u r n P r o d C o m p
0023120 i l e : \t P U B L I C P R O C
0023140 [ r e f : R E F A N Y , c
0023160 o n t e x t T r e e : C o n t
0023200 e x t T r e e N o d e , p g :
0023220 P r o g r a m G r a p h N o d
0023240 e , c s : C o m p i l e r S
0023260 t a t e N o d e ] R E T U R N
0023300 S [ t e m p 0 : C o n t e x t
0023320 T r e e N o d e , t e m p 1 :
0023340 P r o g r a m F r a g m e n t
0023360 N o d e , t e m p 2 : P r o
0023400 g r a m G r a p h N o d e ] =
0023420 \r B E G I N \r t r e e : \t S t a
0023440 t e m e n t N o d e _ N A R R
0023460 O W [ r e f ] ; \r B E G I N \r E
0023500 N A B L E T h r e e C 4 S u p
0023520 p o r t . G e t S o u r c e I n
0023540 f o = > R E S U M E [ t r e
0023560 e . p o s i t i o n , t r e e
0023600 . l e n g t h ] ; \r t r e e D a
0023620 t a : \t S t a t e m e n t r e t
0023640 u r n P r o d D a t a _ N A
0023660 R R O W [ t r e e . d a t a ] ;
0023700 \r B E G I N \r e r r : \t B O O L
0023720 E A N ; \r e r r _ E r r o r
0023740 [ " C o m p i l e f o r S t
0023760 a t e m e n t . r e t u r n n
0024000 o t i m p l e m e n t e d y
0024020 e t . " ] ; \r t e m p 2 _ F
0024040 a k e D a m a g e P r o g r a m
0024060 G r a p h [ p g ] ; \r t e m p 1
0024100 _ M a k e P G N o O p [ ] ;
0024120 \r t e m p 0 _ F a k e D a m
0024140 a g e C o n t e x t T r e e [ c
0024160 o n t e x t T r e e ] ; \r E N D
0024200 ; \r E N D \r E N D ; \r \r S t a t
0024220 e m e n t t r a n s f e r P r o
0024240 d C o m p i l e : \t P U B L I C
0024260 P R O C [ r e f : R E F A
0024300 N Y , c o n t e x t T r e e :
0024320 C o n t e x t T r e e N o d e
0024340 , p g : P r o g r a m G r a
0024360 p h N o d e , c s : C o m p
0024400 i l e r S t a t e N o d e ] R
0024420 E T U R N S [ t e m p 0 : C o
0024440 n t e x t T r e e N o d e , t
0024460 e m p 1 : P r o g r a m F r a
0024500 g m e n t N o d e , t e m p 2
0024520 : P r o g r a m G r a p h N o
0024540 d e ] = \r B E G I N \r t r e e
0024560 : \t S t a t e m e n t N o d e _
0024600 N A R R O W [ r e f ] ; \r B E
0024620 G I N \r E N A B L E T h r e e
0024640 C 4 S u p p o r t . G e t S o u
0024660 r c e I n f o = > R E S U M
0024700 E [ t r e e . p o s i t i o n ,
0024720 t r e e . l e n g t h ] ; \r t
0024740 r e e D a t a : \t S t a t e m e
0024760 n t t r a n s f e r P r o d D a
0025000 t a _ N A R R O W [ t r e e
0025020 . d a t a ] ; \r B E G I N \r e r
0025040 r : \t B O O L E A N ; \r e r r
0025060 _ E r r o r [ " C o m p i l e
0025100 f o r S t a t e m e n t . t
0025120 r a n s f e r n o t i m p l
0025140 e m e n t e d y e t . " ] ; \r
0025160 t e m p 2 _ F a k e D a m a
0025200 g e P r o g r a m G r a p h [ p
0025220 g ] ; \r t e m p 1 _ M a k e
0025240 P G N o O p [ ] ; \r t e m p 0
0025260 _ F a k e D a m a g e C o n t
0025300 e x t T r e e [ c o n t e x t T
0025320 r e e ] ; \r E N D ; \r E N D \r E
0025340 N D ; \r \r S t a t e m e n t f r
0025360 e e P r o d C o m p i l e : \t P
0025400 U B L I C P R O C [ r e f :
0025420 R E F A N Y , c o n t e x t
0025440 T r e e : C o n t e x t T r e
0025460 e N o d e , p g : P r o g r
0025500 a m G r a p h N o d e , c s :
0025520 C o m p i l e r S t a t e N o
0025540 d e ] R E T U R N S [ t e m p
0025560 0 : C o n t e x t T r e e N o
0025600 d e , t e m p 1 : P r o g r
0025620 a m F r a g m e n t N o d e ,
0025640 t e m p 2 : P r o g r a m G r
0025660 a p h N o d e ] = \r B E G I N
0025700 \r t r e e : \t S t a t e m e n t
0025720 N o d e _ N A R R O W [ r e f
0025740 ] ; \r B E G I N \r E N A B L E
0025760 T h r e e C 4 S u p p o r t . G
0026000 e t S o u r c e I n f o = >
0026020 R E S U M E [ t r e e . p o s i
0026040 t i o n , t r e e . l e n g t
0026060 h ] ; \r t r e e D a t a : \t S t
0026100 a t e m e n t f r e e P r o d D
0026120 a t a _ N A R R O W [ t r e
0026140 e . d a t a ] ; \r B E G I N \r e
0026160 r r : \t B O O L E A N ; \r e r r
0026200 _ E r r o r [ " C o m p i l
0026220 e f o r S t a t e m e n t .
0026240 f r e e n o t i m p l e m e
0026260 n t e d y e t . " ] ; \r t e m
0026300 p 2 _ F a k e D a m a g e P
0026320 r o g r a m G r a p h [ p g ] ;
0026340 \r t e m p 1 _ M a k e P G N
0026360 o O p [ ] ; \r t e m p 0 _ F
0026400 a k e D a m a g e C o n t e x t
0026420 T r e e [ c o n t e x t T r e e
0026440 ] ; \r E N D ; \r E N D \r E N D ;
0026460 \r \r S t a t e m e n t w a i t P
0026500 r o d C o m p i l e : \t P U B L
0026520 I C P R O C [ r e f : R E F
0026540 A N Y , c o n t e x t T r e
0026560 e : C o n t e x t T r e e N o
0026600 d e , p g : P r o g r a m G
0026620 r a p h N o d e , c s : C o
0026640 m p i l e r S t a t e N o d e ]
0026660 R E T U R N S [ t e m p 0 :
0026700 C o n t e x t T r e e N o d e ,
0026720 t e m p 1 : P r o g r a m F
0026740 r a g m e n t N o d e , t e m
0026760 p 2 : P r o g r a m G r a p h
0027000 N o d e ] = \r B E G I N \r t r
0027020 e e : \t S t a t e m e n t N o d
0027040 e _ N A R R O W [ r e f ] ; \r
0027060 B E G I N \r E N A B L E T h r
0027100 e e C 4 S u p p o r t . G e t S
0027120 o u r c e I n f o = > R E S
0027140 U M E [ t r e e . p o s i t i o
0027160 n , t r e e . l e n g t h ] ;
0027200 \r t r e e D a t a : \t S t a t e
0027220 m e n t w a i t P r o d D a t a
0027240 _ N A R R O W [ t r e e . d
0027260 a t a ] ; \r B E G I N \r e r r :
0027300 \t B O O L E A N ; \r e r r _
0027320 E r r o r [ " C o m p i l e f
0027340 o r S t a t e m e n t . w a i
0027360 t n o t i m p l e m e n t e
0027400 d y e t . " ] ; \r t e m p 2
0027420 _ F a k e D a m a g e P r o g
0027440 r a m G r a p h [ p g ] ; \r t e
0027460 m p 1 _ M a k e P G N o O p
0027500 [ ] ; \r t e m p 0 _ F a k e
0027520 D a m a g e C o n t e x t T r e
0027540 e [ c o n t e x t T r e e ] ; \r
0027560 E N D ; \r E N D \r E N D ; \r \r S
0027600 t a t e m e n t e r r o r P r o
0027620 d C o m p i l e : \t P U B L I C
0027640 P R O C [ r e f : R E F A
0027660 N Y , c o n t e x t T r e e :
0027700 C o n t e x t T r e e N o d e
0027720 , p g : P r o g r a m G r a
0027740 p h N o d e , c s : C o m p
0027760 i l e r S t a t e N o d e ] R
0030000 E T U R N S [ t e m p 0 : C o
0030020 n t e x t T r e e N o d e , t
0030040 e m p 1 : P r o g r a m F r a
0030060 g m e n t N o d e , t e m p 2
0030100 : P r o g r a m G r a p h N o
0030120 d e ] = \r B E G I N \r t r e e
0030140 : \t S t a t e m e n t N o d e _
0030160 N A R R O W [ r e f ] ; \r B E
0030200 G I N \r E N A B L E T h r e e
0030220 C 4 S u p p o r t . G e t S o u
0030240 r c e I n f o = > R E S U M
0030260 E [ t r e e . p o s i t i o n ,
0030300 t r e e . l e n g t h ] ; \r B
0030320 E G I N \r e r r : \t B O O L E A
0030340 N ; \r e r r _ E r r o r [ "
0030360 C o m p i l e f o r S t a t
0030400 e m e n t . e r r o r n o t
0030420 i m p l e m e n t e d y e t .
0030440 " ] ; \r t e m p 2 _ F a k e
0030460 D a m a g e P r o g r a m G r a
0030500 p h [ p g ] ; \r t e m p 1 _
0030520 M a k e P G N o O p [ ] ; \r t e
0030540 m p 0 _ F a k e D a m a g e
0030560 C o n t e x t T r e e [ c o n t
0030600 e x t T r e e ] ; \r E N D ; \r E
0030620 N D \r E N D ; \r \r S t a t e m e
0030640 n t s t o p P r o d C o m p i l
0030660 e : \t P U B L I C P R O C [ r
0030700 e f : R E F A N Y , c o n
0030720 t e x t T r e e : C o n t e x
0030740 t T r e e N o d e , p g : P
0030760 r o g r a m G r a p h N o d e ,
0031000 c s : C o m p i l e r S t a
0031020 t e N o d e ] R E T U R N S [
0031040 t e m p 0 : C o n t e x t T r
0031060 e e N o d e , t e m p 1 : P
0031100 r o g r a m F r a g m e n t N o
0031120 d e , t e m p 2 : P r o g r
0031140 a m G r a p h N o d e ] = \r B
0031160 E G I N \r t r e e : \t S t a t e
0031200 m e n t N o d e _ N A R R O W
0031220 [ r e f ] ; \r B E G I N \r E N A
0031240 B L E T h r e e C 4 S u p p o
0031260 r t . G e t S o u r c e I n f o
0031300 = > R E S U M E [ t r e e .
0031320 p o s i t i o n , t r e e . l
0031340 e n g t h ] ; \r B E G I N \r e r
0031360 r : \t B O O L E A N ; \r e r r
0031400 _ E r r o r [ " C o m p i l e
0031420 f o r S t a t e m e n t . s
0031440 t o p n o t i m p l e m e n
0031460 t e d y e t . " ] ; \r t e m p
0031500 2 _ F a k e D a m a g e P r
0031520 o g r a m G r a p h [ p g ] ; \r
0031540 t e m p 1 _ M a k e P G N o
0031560 O p [ ] ; \r t e m p 0 _ F a
0031600 k e D a m a g e C o n t e x t T
0031620 r e e [ c o n t e x t T r e e ]
0031640 ; \r E N D ; \r E N D \r E N D ; \r
0031660 \r S t a t e m e n t n u l l P r
0031700 o d C o m p i l e : \t P U B L I
0031720 C P R O C [ r e f : R E F
0031740 A N Y , c o n t e x t T r e e
0031760 : C o n t e x t T r e e N o d
0032000 e , p g : P r o g r a m G r
0032020 a p h N o d e , c s : C o m
0032040 p i l e r S t a t e N o d e ]
0032060 R E T U R N S [ t e m p 0 : C
0032100 o n t e x t T r e e N o d e ,
0032120 t e m p 1 : P r o g r a m F r
0032140 a g m e n t N o d e , t e m p
0032160 2 : P r o g r a m G r a p h N
0032200 o d e ] = \r B E G I N \r t r e
0032220 e : \t S t a t e m e n t N o d e
0032240 _ N A R R O W [ r e f ] ; \r B
0032260 E G I N \r E N A B L E T h r e
0032300 e C 4 S u p p o r t . G e t S o
0032320 u r c e I n f o = > R E S U
0032340 M E [ t r e e . p o s i t i o n
0032360 , t r e e . l e n g t h ] ; \r
0032400 t e m p 2 _ F a k e D a m a
0032420 g e P r o g r a m G r a p h [ p
0032440 g ] ; \r t e m p 1 _ M a k e
0032460 P G N o O p [ ] ; \r t e m p 0
0032500 _ F a k e D a m a g e C o n t
0032520 e x t T r e e [ c o n t e x t T
0032540 r e e ] ; \r E N D \r E N D ; \r \r
0032560 S t a t e m e n t r e s u m e P
0032600 r o d C o m p i l e : \t P U B L
0032620 I C P R O C [ r e f : R E F
0032640 A N Y , c o n t e x t T r e
0032660 e : C o n t e x t T r e e N o
0032700 d e , p g : P r o g r a m G
0032720 r a p h N o d e , c s : C o
0032740 m p i l e r S t a t e N o d e ]
0032760 R E T U R N S [ t e m p 0 :
0033000 C o n t e x t T r e e N o d e ,
0033020 t e m p 1 : P r o g r a m F
0033040 r a g m e n t N o d e , t e m
0033060 p 2 : P r o g r a m G r a p h
0033100 N o d e ] = \r B E G I N \r t r
0033120 e e : \t S t a t e m e n t N o d
0033140 e _ N A R R O W [ r e f ] ; \r
0033160 B E G I N \r E N A B L E T h r
0033200 e e C 4 S u p p o r t . G e t S
0033220 o u r c e I n f o = > R E S
0033240 U M E [ t r e e . p o s i t i o
0033260 n , t r e e . l e n g t h ] ;
0033300 \r t r e e D a t a : \t S t a t e
0033320 m e n t r e s u m e P r o d D a
0033340 t a _ N A R R O W [ t r e e
0033360 . d a t a ] ; \r B E G I N \r e r
0033400 r : \t B O O L E A N ; \r e r r
0033420 _ E r r o r [ " C o m p i l e
0033440 f o r S t a t e m e n t . r
0033460 e s u m e n o t i m p l e m
0033500 e n t e d y e t . " ] ; \r t e
0033520 m p 2 _ F a k e D a m a g e
0033540 P r o g r a m G r a p h [ p g ]
0033560 ; \r t e m p 1 _ M a k e P G
0033600 N o O p [ ] ; \r t e m p 0 _
0033620 F a k e D a m a g e C o n t e x
0033640 t T r e e [ c o n t e x t T r e
0033660 e ] ; \r E N D ; \r E N D \r E N D
0033700 ; \r \r S t a t e m e n t r e j e
0033720 c t P r o d C o m p i l e : \t P
0033740 U B L I C P R O C [ r e f :
0033760 R E F A N Y , c o n t e x t
0034000 T r e e : C o n t e x t T r e
0034020 e N o d e , p g : P r o g r
0034040 a m G r a p h N o d e , c s :
0034060 C o m p i l e r S t a t e N o
0034100 d e ] R E T U R N S [ t e m p
0034120 0 : C o n t e x t T r e e N o
0034140 d e , t e m p 1 : P r o g r
0034160 a m F r a g m e n t N o d e ,
0034200 t e m p 2 : P r o g r a m G r
0034220 a p h N o d e ] = \r B E G I N
0034240 \r t r e e : \t S t a t e m e n t
0034260 N o d e _ N A R R O W [ r e f
0034300 ] ; \r B E G I N \r E N A B L E
0034320 T h r e e C 4 S u p p o r t . G
0034340 e t S o u r c e I n f o = >
0034360 R E S U M E [ t r e e . p o s i
0034400 t i o n , t r e e . l e n g t
0034420 h ] ; \r t e m p 2 _ F a k e
0034440 D a m a g e P r o g r a m G r a
0034460 p h [ p g ] ; \r t e m p 1 _
0034500 M a k e P G N o O p [ ] ; \r t e
0034520 m p 0 _ F a k e D a m a g e
0034540 C o n t e x t T r e e [ c o n t
0034560 e x t T r e e ] ; \r E N D \r E N
0034600 D ; \r \r S t a t e m e n t c o n
0034620 t i n u e P r o d C o m p i l e
0034640 : \t P U B L I C P R O C [ r e
0034660 f : R E F A N Y , c o n t
0034700 e x t T r e e : C o n t e x t
0034720 T r e e N o d e , p g : P r
0034740 o g r a m G r a p h N o d e ,
0034760 c s : C o m p i l e r S t a t
0035000 e N o d e ] R E T U R N S [ t
0035020 e m p 0 : C o n t e x t T r e
0035040 e N o d e , t e m p 1 : P r
0035060 o g r a m F r a g m e n t N o d
0035100 e , t e m p 2 : P r o g r a
0035120 m G r a p h N o d e ] = \r B E
0035140 G I N \r t r e e : \t S t a t e m
0035160 e n t N o d e _ N A R R O W [
0035200 r e f ] ; \r B E G I N \r E N A B
0035220 L E T h r e e C 4 S u p p o r
0035240 t . G e t S o u r c e I n f o
0035260 = > R E S U M E [ t r e e . p
0035300 o s i t i o n , t r e e . l e
0035320 n g t h ] ; \r B E G I N \r e r r
0035340 : \t B O O L E A N ; \r e r r _
0035360 E r r o r [ " C o m p i l e
0035400 f o r S t a t e m e n t . c o
0035420 n t i n u e n o t i m p l e
0035440 m e n t e d y e t . " ] ; \r t
0035460 e m p 2 _ F a k e D a m a g
0035500 e P r o g r a m G r a p h [ p g
0035520 ] ; \r t e m p 1 _ M a k e P
0035540 G N o O p [ ] ; \r t e m p 0 _
0035560 F a k e D a m a g e C o n t e
0035600 x t T r e e [ c o n t e x t T r
0035620 e e ] ; \r E N D ; \r E N D \r E N
0035640 D ; \r \r S t a t e m e n t r e t
0035660 r y P r o d C o m p i l e : \t P
0035700 U B L I C P R O C [ r e f :
0035720 R E F A N Y , c o n t e x t
0035740 T r e e : C o n t e x t T r e
0035760 e N o d e , p g : P r o g r
0036000 a m G r a p h N o d e , c s :
0036020 C o m p i l e r S t a t e N o
0036040 d e ] R E T U R N S [ t e m p
0036060 0 : C o n t e x t T r e e N o
0036100 d e , t e m p 1 : P r o g r
0036120 a m F r a g m e n t N o d e ,
0036140 t e m p 2 : P r o g r a m G r
0036160 a p h N o d e ] = \r B E G I N
0036200 \r t r e e : \t S t a t e m e n t
0036220 N o d e _ N A R R O W [ r e f
0036240 ] ; \r B E G I N \r E N A B L E
0036260 T h r e e C 4 S u p p o r t . G
0036300 e t S o u r c e I n f o = >
0036320 R E S U M E [ t r e e . p o s i
0036340 t i o n , t r e e . l e n g t
0036360 h ] ; \r B E G I N \r e r r : \t B
0036400 O O L E A N ; \r e r r _ E r
0036420 r o r [ " C o m p i l e f o r
0036440 S t a t e m e n t . r e t r y
0036460 n o t i m p l e m e n t e d
0036500 y e t . " ] ; \r t e m p 2 _
0036520 F a k e D a m a g e P r o g r
0036540 a m G r a p h [ p g ] ; \r t e m
0036560 p 1 _ M a k e P G N o O p [
0036600 ] ; \r t e m p 0 _ F a k e D
0036620 a m a g e C o n t e x t T r e e
0036640 [ c o n t e x t T r e e ] ; \r E
0036660 N D ; \r E N D \r E N D ; \r \r S t
0036700 a t e m e n t g e t s t a t e P
0036720 r o d C o m p i l e : \t P U B L
0036740 I C P R O C [ r e f : R E F
0036760 A N Y , c o n t e x t T r e
0037000 e : C o n t e x t T r e e N o
0037020 d e , p g : P r o g r a m G
0037040 r a p h N o d e , c s : C o
0037060 m p i l e r S t a t e N o d e ]
0037100 R E T U R N S [ t e m p 0 :
0037120 C o n t e x t T r e e N o d e ,
0037140 t e m p 1 : P r o g r a m F
0037160 r a g m e n t N o d e , t e m
0037200 p 2 : P r o g r a m G r a p h
0037220 N o d e ] = \r B E G I N \r t r
0037240 e e : \t S t a t e m e n t N o d
0037260 e _ N A R R O W [ r e f ] ; \r
0037300 B E G I N \r E N A B L E T h r
0037320 e e C 4 S u p p o r t . G e t S
0037340 o u r c e I n f o = > R E S
0037360 U M E [ t r e e . p o s i t i o
0037400 n , t r e e . l e n g t h ] ;
0037420 \r t r e e D a t a : \t S t a t e
0037440 m e n t g e t s t a t e P r o d
0037460 D a t a _ N A R R O W [ t r
0037500 e e . d a t a ] ; \r B E G I N \r
0037520 e r r : \t B O O L E A N ; \r e r
0037540 r _ E r r o r [ " C o m p i
0037560 l e f o r S t a t e m e n t
0037600 . g e t s t a t e n o t i m
0037620 p l e m e n t e d y e t . " ]
0037640 ; \r t e m p 2 _ F a k e D a
0037660 m a g e P r o g r a m G r a p h
0037700 [ p g ] ; \r t e m p 1 _ M a
0037720 k e P G N o O p [ ] ; \r t e m p
0037740 0 _ F a k e D a m a g e C o
0037760 n t e x t T r e e [ c o n t e x
0040000 t T r e e ] ; \r E N D ; \r E N D
0040020 \r E N D ; \r \r S t a t e m e n t
0040040 s e t s t a t e P r o d C o m p
0040060 i l e : \t P U B L I C P R O C
0040100 [ r e f : R E F A N Y , c
0040120 o n t e x t T r e e : C o n t
0040140 e x t T r e e N o d e , p g :
0040160 P r o g r a m G r a p h N o d
0040200 e , c s : C o m p i l e r S
0040220 t a t e N o d e ] R E T U R N
0040240 S [ t e m p 0 : C o n t e x t
0040260 T r e e N o d e , t e m p 1 :
0040300 P r o g r a m F r a g m e n t
0040320 N o d e , t e m p 2 : P r o
0040340 g r a m G r a p h N o d e ] =
0040360 \r B E G I N \r t r e e : \t S t a
0040400 t e m e n t N o d e _ N A R R
0040420 O W [ r e f ] ; \r B E G I N \r E
0040440 N A B L E T h r e e C 4 S u p
0040460 p o r t . G e t S o u r c e I n
0040500 f o = > R E S U M E [ t r e
0040520 e . p o s i t i o n , t r e e
0040540 . l e n g t h ] ; \r t r e e D a
0040560 t a : \t S t a t e m e n t s e t
0040600 s t a t e P r o d D a t a _
0040620 N A R R O W [ t r e e . d a t a
0040640 ] ; \r B E G I N \r e r r : \t B O
0040660 O L E A N ; \r e r r _ E r r
0040700 o r [ " C o m p i l e f o r
0040720 S t a t e m e n t . s e t s t a
0040740 t e n o t i m p l e m e n t
0040760 e d y e t . " ] ; \r t e m p 2
0041000 _ F a k e D a m a g e P r o
0041020 g r a m G r a p h [ p g ] ; \r t
0041040 e m p 1 _ M a k e P G N o O
0041060 p [ ] ; \r t e m p 0 _ F a k
0041100 e D a m a g e C o n t e x t T r
0041120 e e [ c o n t e x t T r e e ] ;
0041140 \r E N D ; \r E N D \r E N D ; \r \r
0041160 E N D . . \r
0041166