$ od -c -N 50000 [Indigo]<Loops>RELEASE>4-JUL-84>LOOPSRULESC.DCOM!1
0000000 ( F I L E C R E A T E D " 2 1
0000020 - F e b - 8 4 1 7 : 5 3 : 5 9
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > L O O P S R U
0000120 L E S C . ; 6 ) \r " 2 6 - J a
0000140 n - 8 4 0 1 : 3 7 : 0 0 " r
0000160 e c o m p i l e d e x p r s :
0000200 C o m p i l e G e t T e r m
0000220 C o m p i l e P a r e n E x p r
0000240 C o m p i l e R u l e L i s t
0000260 F o r T e m p l a t e i n
0000300 \r L O O P S . S Y S O U T d a
0000320 t e d " 2 0 - F e b - 8 4 1
0000340 7 : 4 9 : 2 1 " ) \r ( F I L E C
0000360 R E A T E D " 2 1 - F e b - 8
0000400 4 1 7 : 5 3 : 2 6 " { I N D
0000420 I G O } < L O O P S > S O U R C
0000440 E S > L O O P S R U L E S C . ;
0000460 6 5 3 5 8 1 c h a n g e s
0000500 t o : ( F N S \r C o m p i l
0000520 e G e t T e r m C o m p i l e
0000540 P a r e n E x p r C o m p i l
0000560 e R u l e L i s t F o r T e m
0000600 p l a t e C o n t a i n s I t
0000620 e m ) ( V A R S L O O P S R
0000640 U L E S C C O M S \r A S S U M
0000660 E L I S P F L G ) p r e v i o
0000700 u s d a t e : " 1 7 - F e b
0000720 - 8 4 1 8 : 1 7 : 3 8 " { I
0000740 N D I G O } < L O O P S > S O U
0000760 R C E S > L O O P S R U L E S C
0001000 . ; 4 ) \r A u d i t R e c o r d
0001020 C o d e G e n D 1 \r ( P 1 2
0001040 Q a s s n V a r P 5 m e
0001060 t a V a l P 4 c o d e P
0001100 3 a l l S p e c i f i c a t
0001120 i o n s P 2 s e t S t a t
0001140 e m e n t s P 1 a u d i t
0001160 V a r s P 0 a u d i t T e
0001200 m p l a t e ) \0 263 \v \0 \0 \0 o \0
0001220 \0 \0 021 a 006 ` \0 \0 ` \0 \0 \n \0 \0 [ d
0001240 214 d 001 ^ 001 I 034 244 N 001 I 032 271 002 003 265
0001260 362 021 0 \t I 260 m d 001 021 001 \n O 024 K \n
0001300 \0 \0 002 \t \0 \0 275 g \0 \0 g \0 \0 O 024 d
0001320 262 033 d i 360 263 026 d 005 001 245 d 005 002 241 005
0001340 003 265 \n g \0 \0 O 024 h 032 032 M 004 ` \0 \0
0001360 360 250 M d 004 ` \0 \0 360 234 277 g \0 \0 ` \0
0001400 \0 \t \0 \0 h 032 032 h 032 032 032 032 022 _ 016 277
0001420 O 020 265 \t O 016 h 032 _ 022 202 O 016 & _ 020
0001440 277 002 003 265 224 O 022 022 Z ` \0 \0 \t \0 \0 g
0001460 \0 \0 H \v \0 \0 \ J g \0 \0 L \v \0 \0 020
0001500 \0 ( 2 6 0 Q L S U B S T 2 4
0001520 7 Q S U B S T 2 4 0 Q C l
0001540 a s s N a m e 1 6 5 Q U I D
0001560 6 7 Q C o m p i l e G e t T
0001600 e r m 6 3 Q A S S O C 1 7
0001620 Q \ A P P E N D 2 ) \r ( 2 5 4
0001640 Q ^ s e t S t a t e m e n t s
0001660 2 4 3 Q ^ a u d i t C l a s
0001700 s N a m e 2 3 5 Q r s A u d
0001720 i t C l a s s 1 6 2 Q r u l
0001740 e O b j e c t 1 5 7 Q G e t
0001760 O b j F r o m U I D 1 5 1 Q
0002000 004 003 c l a s s T Y P E # 1 4 1
0002020 Q 004 003 i n s t a n c e T Y P E
0002040 # 1 2 7 Q Q U O T E 7 6 Q
0002060 ^ a u d i t R e c o r d 7 3
0002100 Q P u t V a l u e 1 4 Q a
0002120 u d i t S p e c i f i c a t i o
0002140 n 1 1 Q r u l e A u d i t S
0002160 p e c i f i c a t i o n ) \r ( 3
0002200 ( P R O G N ( * M a k e
0002220 a n a u d i t r e c o r d
0002240 f o r t h i s r u l e a n
0002260 d s e t i t s a u d i t
0002300 v a l u e s . ) ( S E T Q ^
0002320 a u d i t R e c o r d ( _ (
0002340 $ ^ a u d i t C l a s s N a m
0002360 e ) N e w T e m p ) ) ^ s e
0002400 t S t a t e m e n t s ) ) \r B r
0002420 e a k L H S C o d e G e n D 1
0002440 \r ( P 7 v a r P 3 c o
0002460 d e P 2 r u l e C o d e
0002500 P 1 t r a c e C o d e P
0002520 0 v a r C o d e ) \0 332 \b \0 \0
0002540 \0 021 @ 003 ` \0 \0 262 B g \0 \0 021 0 006 `
0002560 \0 \0 260 0 d 001 021 001 \a o \0 \0 \0 O 016 \t
0002600 \0 \0 o \0 \0 \0 \n \0 \0 O 016 \t \0 \0 h 032
0002620 032 032 022 \ 003 232 M 265 003 202 261 \0 227 L ^ ]
0002640 277 002 003 265 321 N 022 032 270 g \0 \0 g \0 \0 `
0002660 \0 \0 \t \0 \0 h 032 032 g \0 \0 h 032 032 032 Z
0002700 g \0 \0 ` \0 \0 d 262 034 d i 360 263 027 d 005
0002720 001 245 d 005 002 241 005 003 265 \v g \0 \0 ` \0 \0
0002740 h 032 032 ` \0 \0 d 262 034 d i 360 263 027 d 005
0002760 001 245 d 005 002 241 005 003 265 \v g \0 \0 ` \0 \0
0003000 h 032 032 ` \0 \0 h 032 032 032 032 Y g \0 \0 h
0003020 032 h 032 [ H 265 027 J 265 017 g \0 \0 o \0 \0
0003040 \0 I K 032 032 032 020 K 032 273 260 360 K 032 273 260
0003060 350 \t \0 \0 ] L 031 261 377 i \0 ( 3 2 2 Q
0003100 L A S T 1 2 3 Q U I D 5
0003120 4 Q C o m p i l e G e t T e r
0003140 m 4 7 Q C O N C A T 4 0 Q
0003160 U n P a r s e T e r m ) \r ( 2
0003200 7 3 Q P R O G N 2 5 5 Q R
0003220 E 2 4 4 Q r u l e N u m b e
0003240 r 2 3 6 Q r u l e L a b e l
0003260 2 3 3 Q Q U O T E 2 0 4 Q
0003300 r u l e L a b e l 1 7 6 Q
0003320 r s N a m e 1 7 3 Q Q U O T
0003340 E 1 4 4 Q r s N a m e 1 4
0003360 1 Q T r a c e L H S 1 3 1 Q
0003400 P r i n t 1 2 0 Q r u l e
0003420 O b j e c t 1 1 5 Q G e t O
0003440 b j F r o m U I D 1 1 2 Q _
0003460 2 0 Q d e b u g V a r s 1
0003500 2 Q W R I T E T T Y 5 d e
0003520 b u g V a r s ) \r ( 2 7 7 Q (
0003540 * R u l e B r e a k i n g
0003560 a n d T r a c i n g C o d e
0003600 ) 4 4 Q " = " 3 3 Q "
0003620 " ) \r B r e a k R H S C o d e G
0003640 e n D 1 \r ( P 7 v a r P
0003660 3 c o d e P 2 r u l e
0003700 C o d e P 1 t r a c e C o
0003720 d e P 0 v a r C o d e )
0003740 \0 343 \b \0 \0 \0 021 @ 003 ` \0 \0 262 B g \0
0003760 \0 021 0 006 ` \0 \0 260 0 d 001 021 001 \a o \0
0004000 \0 \0 O 016 \t \0 \0 o \0 \0 \0 \n \0 \0 O 016
0004020 \t \0 \0 h 032 032 032 022 \ 003 232 M 265 003 202 261
0004040 \0 240 L ^ ] 277 002 003 265 321 N 022 032 270 ` \0
0004060 \0 g \0 \0 360 262 031 g \0 \0 g \0 \0 ` \0 \0
0004100 \t \0 \0 h 032 032 g \0 \0 h 032 032 032 272 g \0
0004120 \0 ` \0 \0 d 262 034 d i 360 263 027 d 005 001 245
0004140 d 005 002 241 005 003 265 \v g \0 \0 ` \0 \0 h 032
0004160 032 ` \0 \0 d 262 034 d i 360 263 027 d 005 001 245
0004200 d 005 002 241 005 003 265 \v g \0 \0 ` \0 \0 h 032
0004220 032 ` \0 \0 h 032 032 032 032 Y g \0 \0 h 032 h
0004240 032 [ H 265 027 J 265 017 g \0 \0 o \0 \0 \0 I
0004260 K 032 032 032 020 K 032 273 260 360 K 032 273 260 350 \t
0004300 \0 \0 ] L 031 261 377 ` \0 ( 3 3 3 Q L
0004320 A S T 1 3 4 Q U I D 5 4 Q
0004340 C o m p i l e G e t T e r m
0004360 4 7 Q C O N C A T 4 0 Q U
0004400 n P a r s e T e r m ) \r ( 3 0 4
0004420 Q P R O G N 2 6 6 Q R E
0004440 2 5 5 Q r u l e N u m b e r
0004460 2 4 7 Q r u l e L a b e l 2
0004500 4 4 Q Q U O T E 2 1 5 Q r
0004520 u l e L a b e l 2 0 7 Q r s
0004540 N a m e 2 0 4 Q Q U O T E
0004560 1 5 5 Q r s N a m e 1 5 2 Q
0004600 T r a c e R H S 1 4 2 Q P
0004620 r i n t 1 3 1 Q r u l e O b
0004640 j e c t 1 2 6 Q G e t O b j
0004660 F r o m U I D 1 2 3 Q _ 1
0004700 1 5 Q B 1 1 2 Q r s B r e
0004720 a k F l g 2 0 Q d e b u g V
0004740 a r s 1 2 Q W R I T E T T Y
0004760 5 d e b u g V a r s ) \r ( 3
0005000 1 0 Q ( * R u l e B r e a
0005020 k i n g a n d T r a c i n g
0005040 C o d e ) 4 4 Q " = " 3
0005060 3 Q " " ) \r C h e c k V a r
0005100 i a b l e N a m e C o n f l i c
0005120 t D 1 \r ( P 3 v l 1 P
0005140 2 v l 2 P 1 b a d V a r
0005160 s P 0 v a r L i s t s )
0005200 \0 = 004 \0 \0 \0 o \0 \0 \0 021 1 003 H 260 /
0005220 d 001 273 H 260 % d 001 272 I 263 036 K J 360 263
0005240 031 K - J - \n \0 \0 Y 235 i 027 \0 \0 277 o
0005260 \0 \0 \0 I \n \0 \0 277 002 003 265 334 002 003 265 322
0005300 h 020 \0 ( 6 0 Q F l u s h R u l
0005320 e 4 1 Q I N T E R S E C T I
0005340 O N ) \r ( 4 7 Q p a r s e E r
0005360 r o r F l g ) \r ( 5 4 Q " V a
0005400 r i a b l e n a m e c o n f
0005420 l i c t f o r " 3 ( w s
0005440 C l a s s V a r s w s V a r s
0005460 t a s k V a r s t e m p V a
0005500 r s l i s p V a r s ) ) \r C o
0005520 m p i l e A s s n S t m n t D
0005540 1 \r ( P 1 a s s n V a l P
0005560 0 a s s n V a r ) \0 " 002 \0
0005600 \0 \0 021 001 ` \0 \0 001 ` \0 \0 002 027 \0 \0
0005620 277 X ` \0 \0 002 027 \0 \0 \b \0 \0 Y H I \n
0005640 \0 \0 020 \0 ( 3 7 Q C o m p i l e
0005660 P u t T e r m 3 1 Q C o m p
0005700 i l e E x p r ) \r ( 2 6 Q r u
0005720 l e S e t T o k e n s 2 2 Q
0005740 r u l e S e t T o k e n s 1 5
0005760 Q r u l e S e t T o k e n s
0006000 1 1 Q r u l e S e t T o k e n
0006020 s 5 r u l e S e t T o k e n
0006040 s ) \r N I L \r C o m p i l e C o
0006060 m m e n t D 1 \r ( P 2 c o
0006100 m m e n t C o d e P 1 d o
0006120 n e F l g P 0 t o k e n )
0006140 \0 U 003 \0 \0 \0 021 0 002 ` \0 \0 002 027 \0
0006160 \0 ` \0 \0 001 ` \0 \0 002 027 \0 \0 277 X d g
0006200 \0 \0 360 224 277 \b \0 \0 214 g \0 \0 360 226 i 271
0006220 g \0 \0 270 203 H J 032 272 I 262 327 J \t \0 \0
0006240 Z ` \0 \0 d g \0 \0 360 245 d g \0 \0 360 230
0006260 277 h J h h 032 032 032 020 J 020 \0 ( 7 0 Q
0006300 D R E V E R S E 4 0 Q C o
0006320 m p i l e C o m m e n t ) \r ( 1
0006340 0 6 Q C Y C L E 1 1 0 0 Q
0006360 D O 1 7 4 Q c o n t r o l T
0006400 y p e 5 3 Q * 4 4 Q % )
0006420 3 2 Q % ( 2 4 Q r u l e
0006440 S e t T o k e n s 2 0 Q r u
0006460 l e S e t T o k e n s 1 4 Q
0006500 r u l e S e t T o k e n s 1 1
0006520 Q r u l e S e t T o k e n s
0006540 5 r u l e S e t T o k e n s )
0006560 \r N I L \r C o m p i l e C o m p
0006600 o s i t e G e t T e r m D 1 \r
0006620 ( I 0 t e r m ) 001 236 001 \0 \0
0006640 001 @ 001 d g \0 \0 360 262 024 g \0 \0 @ 002 001
0006660 \t \0 \0 @ 002 002 001 h 032 032 032 020 d g \0 \0
0006700 360 224 @ 002 002 001 020 d g \0 \0 360 262 030 277 g
0006720 \0 \0 @ 002 001 \t \0 \0 @ 002 002 001 \t \0 \0 h
0006740 032 032 032 020 d g \0 \0 360 246 d g \0 \0 360 262
0006760 K g \0 \0 @ 002 001 \t \0 \0 @ d 001 g \0 \0
0007000 360 262 & 002 002 001 021 001 \0 H d 262 032 d i 360
0007020 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0
0007040 \0 H h 032 032 022 215 001 g \0 \0 360 264 \t @ 002
0007060 002 001 \t \0 \0 h 032 032 032 020 d g \0 \0 360 246
0007100 d g \0 \0 360 262 K g \0 \0 @ 002 001 \t \0 \0
0007120 @ d 001 g \0 \0 360 262 & 002 002 001 021 001 \0 H
0007140 d 262 032 d i 360 263 025 d 005 001 245 d 005 002 241
0007160 005 003 265 \t g \0 \0 H h 032 032 022 215 001 g \0
0007200 \0 360 264 \t @ 002 002 001 \t \0 \0 h 032 032 032 020
0007220 d g \0 \0 360 262 9 g \0 \0 @ 002 001 \t \0 \0
0007240 002 001 021 001 \0 H d 262 032 d i 360 263 025 d 005
0007260 001 245 d 005 002 241 005 003 265 \t g \0 \0 H h 032
0007300 032 022 @ 002 002 001 \t \0 \0 h 032 032 032 020 d g
0007320 \0 \0 360 262 $ g \0 \0 o \0 \0 \0 g \0 \0 @
0007340 002 001 \t \0 \0 @ 002 002 001 \t \0 \0 g \0 \0 h
0007360 032 032 032 032 032 032 020 d g \0 \0 360 262 ! g \0
0007400 \0 g \0 \0 @ 002 001 \t \0 \0 @ 002 002 001 \t \0
0007420 \0 g \0 \0 h 032 032 032 032 h 032 032 020 d g \0
0007440 \0 360 245 d g \0 \0 360 224 @ \t \0 \0 020 g \0
0007460 \0 360 221 @ 020 o \0 \0 \0 @ \n \0 \0 020 \0 (
0007500 6 3 3 Q F l u s h R u l e 6
0007520 1 3 Q C o m p i l e P r o p G
0007540 e t T e r m 5 5 7 Q C o m p
0007560 i l e G e t T e r m 5 5 0 Q
0007600 C o m p i l e G e t T e r m 5
0007620 1 2 Q C o m p i l e G e t T e
0007640 r m 5 0 3 Q C o m p i l e G
0007660 e t T e r m 4 4 7 Q C o m p
0007700 i l e G e t T e r m 3 7 6 Q
0007720 C o m p i l e G e t T e r m 3
0007740 5 1 Q C o m p i l e G e t T e
0007760 r m 2 5 6 Q C o m p i l e G
0010000 e t T e r m 2 2 3 Q C o m p
0010020 i l e G e t T e r m 1 3 0 Q
0010040 C o m p i l e G e t T e r m 7
0010060 5 Q C o m p i l e G e t T e r
0010100 m 6 6 Q C o m p i l e G e t
0010120 T e r m 2 1 Q C o m p i l e
0010140 G e t T e r m ) \r ( 6 1 7 Q $
0010160 6 0 5 Q : , ! 5 7 7 Q :
0010200 , 5 6 2 Q ^ r s 5 4 2 Q
0010220 L I S T 5 3 7 Q R u l e S e
0010240 t T r a n s f e r 5 3 1 Q .
0010260 . * 5 1 5 Q ^ r s 4 7 5 Q
0010300 N e w 4 6 6 Q _ 4 6 0 Q
0010320 . , 4 3 3 Q Q U O T E 3
0010340 7 0 Q R u n R S 3 6 2 Q .
0010360 . 3 3 7 Q : : ! 3 2 5 Q
0010400 Q U O T E 2 6 4 Q : : 2 5
0010420 0 Q G e t C l a s s V a l u e
0010440 2 4 2 Q : : ! 2 3 4 Q :
0010460 : 2 1 1 Q : ! 1 7 7 Q Q
0010500 U O T E 1 3 6 Q : 1 2 2 Q
0010520 G e t V a l u e 1 1 4 Q :
0010540 ! 1 0 6 Q : 6 0 Q D o M
0010560 e t h o d 5 1 Q . ! 3 6 Q
0010600 \ 1 3 Q _ 5 % . ) \r (
0010620 6 2 7 Q " B a d T e r m "
0010640 4 7 2 Q ( $ T a s k ) ) \r
0010660 C o m p i l e C o m p o s i t e
0010700 P u t T e r m D 1 \r ( I 1
0010720 a s s n V a l I 0 t e r m
0010740 ) 001 225 001 \0 \0 002 @ d 001 g \0 \0 360 235
0010760 277 g \0 \0 @ 002 002 001 A h 032 032 032 020 001 o
0011000 \0 \0 \0 034 242 261 \0 253 ` \0 \0 262 Z ` \0 \0
0011020 262 U i 027 \0 \0 g \0 \0 @ 002 001 \t \0 \0 @
0011040 d 001 g \0 \0 360 262 & 002 002 001 021 001 \0 H d
0011060 262 032 d i 360 263 025 d 005 001 245 d 005 002 241 005
0011100 003 265 \t g \0 \0 H h 032 032 022 215 001 g \0 \0
0011120 360 264 \t @ 002 002 001 \t \0 \0 A g \0 \0 h 032
0011140 032 032 032 032 020 g \0 \0 @ 002 001 \t \0 \0 @ d
0011160 001 g \0 \0 360 262 & 002 002 001 021 001 \0 H d 262
0011200 032 d i 360 263 025 d 005 001 245 d 005 002 241 005 003
0011220 265 \t g \0 \0 H h 032 032 022 215 001 g \0 \0 360
0011240 264 \t @ 002 002 001 \t \0 \0 A h 032 032 032 032 020
0011260 @ d 001 o \0 \0 \0 034 242 261 \0 254 277 ` \0 \0
0011300 262 Z ` \0 \0 262 U i 027 \0 \0 g \0 \0 @ 002
0011320 001 \t \0 \0 @ d 001 g \0 \0 360 262 & 002 002 001
0011340 021 001 \0 H d 262 032 d i 360 263 025 d 005 001 245
0011360 d 005 002 241 005 003 265 \t g \0 \0 H h 032 032 022
0011400 215 001 g \0 \0 360 264 \t @ 002 002 001 \t \0 \0 A
0011420 g \0 \0 h 032 032 032 032 032 020 g \0 \0 @ 002 001
0011440 \t \0 \0 @ d 001 g \0 \0 360 262 & 002 002 001 021
0011460 001 \0 H d 262 032 d i 360 263 025 d 005 001 245 d
0011500 005 002 241 005 003 265 \t g \0 \0 H h 032 032 022 215
0011520 001 g \0 \0 360 264 \t @ 002 002 001 \t \0 \0 A h
0011540 032 032 032 032 020 001 o \0 \0 \0 034 225 @ A \n \0
0011560 \0 020 o \0 \0 \0 @ \n \0 \0 h 020 \0 ( 6 2
0011600 1 Q F l u s h R u l e 6 1 0
0011620 Q C o m p i l e P r o p P u t
0011640 T e r m 5 6 5 Q C o m p i l
0011660 e G e t T e r m 4 7 2 Q C o
0011700 m p i l e G e t T e r m 4 4 6
0011720 Q C o m p i l e G e t T e r m
0011740 3 5 3 Q C o m p i l e G e t
0011760 T e r m 3 0 0 Q C o m p i l
0012000 e G e t T e r m 2 0 5 Q C o
0012020 m p i l e G e t T e r m 1 6 1
0012040 Q C o m p i l e G e t T e r m
0012060 6 6 Q C o m p i l e G e t T
0012100 e r m ) \r ( 5 5 3 Q : : ! 5
0012120 4 1 Q Q U O T E 5 0 0 Q :
0012140 : 4 6 4 Q P u t C l a s s V
0012160 a l u e 4 5 2 Q ^ a u d i t
0012200 R e c o r d 4 3 4 Q : ! 4
0012220 2 2 Q Q U O T E 3 6 1 Q :
0012240 3 4 5 Q P u t C l a s s A u
0012260 d i t R e c 3 4 2 Q r u l e
0012300 N e e d s A u d i t F l g 3 3
0012320 4 Q r u l e R H S F l g 3 2
0012340 7 Q r u l e A u d i t F l g
0012360 2 6 6 Q : ! 2 5 4 Q Q U O
0012400 T E 2 1 3 Q : 1 7 7 Q P
0012420 u t V a l u e 1 6 5 Q ^ a u
0012440 d i t R e c o r d 1 4 7 Q :
0012460 ! 1 3 5 Q Q U O T E 7 4 Q
0012500 : 6 0 Q P u t A u d i t R
0012520 e c 5 5 Q r u l e N e e d s
0012540 A u d i t F l g 4 7 Q r u l
0012560 e R H S F l g 4 2 Q r u l e
0012600 A u d i t F l g 1 3 Q S E T
0012620 Q 5 \ ) \r ( 6 1 5 Q " B a
0012640 d T e r m o n l e f t i
0012660 n A s s i g n m e n t S t a
0012700 t e m e n t : " 6 0 1 Q ( :
0012720 , : , ! ) 3 1 6 Q ( : :
0012740 : : ! ) 3 2 Q ( : : ! ) )
0012760 \r C o m p i l e E x p r D 1 \r
0013000 N I L \0 h \0 \0 \0 \0 ` \0 \0 223 \b \0
0013020 \0 020 ` \0 \0 d 002 001 g \0 \0 360 233 d 001 g
0013040 \0 \0 360 244 277 \b \0 \0 020 002 001 g \0 \0 360 223
0013060 \b \0 \0 020 ` \0 \0 d 002 001 g \0 \0 360 224 277
0013100 \b \0 \0 020 001 g \0 \0 360 223 \b \0 \0 020 ` \0
0013120 \0 001 g \0 \0 360 251 ` \0 \0 001 o \0 \0 \0 034
0013140 233 o \0 \0 \0 ` \0 \0 001 \n \0 \0 020 \b \0 \0
0013160 020 \0 ( 1 4 5 Q C o m p i l e O
0013200 p P r e c e d e n c e E x p r
0013220 1 4 1 Q F l u s h R u l e 1
0013240 0 2 Q C o m p i l e Q u o t e
0013260 d C o n s t a n t 7 0 Q C o
0013300 m p i l e P o p S t m n t 5 0
0013320 Q C o m p i l e P u s h S t m
0013340 n t 3 5 Q C o m p i l e A s
0013360 s n S t m n t 6 S k i p R u
0013400 l e ) \r ( 1 3 5 Q r u l e S e
0013420 t T o k e n s 1 1 7 Q r u l
0013440 e S e t T o k e n s 1 1 2 Q
0013460 ; 1 0 6 Q r u l e S e t T o
0013500 k e n s 7 5 Q ' 6 2 Q _
0013520 - 5 4 Q r u l e S e t T o k
0013540 e n s 4 3 Q _ + 2 7 Q %
0013560 ( 2 0 Q _ 1 2 Q r u l e
0013600 S e t T o k e n s 2 p a r s
0013620 e E r r o r F l g ) \r ( 1 3 2 Q
0013640 " U n e x p e c t e d " 1
0013660 2 4 Q ( T H E N T h e n t
0013700 h e n - > ) ) \r C o m p i l e
0013720 G e t T e r m D 1 \r ( I 0
0013740 t e r m F 0 P P D e f a u
0013760 l t F 1 A S S U M E L I S
0014000 P F L G ) 001 \n \0 002 \0 001 @ d d 005
0014020 001 245 d 005 002 241 005 003 265 003 202 261 \0 351 005 \a
0014040 222 261 \0 342 @ d 004 l 004 360 242 261 \0 332 d `
0014060 \0 \0 034 262 * 277 g \0 \0 g \0 \0 @ d 262 032
0014100 d i 360 263 025 d 005 001 245 d 005 002 241 005 003 265
0014120 \t g \0 \0 @ h 032 032 h 032 032 032 020 o \0 \0
0014140 \0 034 222 @ - 020 @ \t \0 \0 250 o \0 \0 \0 @
0014160 \n \0 \0 020 @ d ` \0 \0 034 262 * 277 g \0 \0
0014200 g \0 \0 @ d 262 032 d i 360 263 025 d 005 001 245
0014220 d 005 002 241 005 003 265 \t g \0 \0 @ h 032 032 h
0014240 032 032 032 020 ` \0 \0 034 263 [ @ d o \0 \0 \0
0014260 034 263 S d o \0 \0 \0 034 263 K d ` \0 \0 034
0014300 263 D d g \0 \0 033 263 = 277 Q 263 8 P \t \0
0014320 \0 277 P \t \0 \0 277 o \0 \0 \0 P \n \0 \0 277
0014340 ` \0 \0 P \n \0 \0 277 @ P \n \0 \0 277 ` \0
0014360 \0 P \n \0 \0 277 o \0 \0 \0 P \n \0 \0 277 P
0014400 \t \0 \0 @ 020 003 250 o \0 \0 \0 @ \n \0 \0 020
0014420 @ \t \0 \0 020 \0 ( 4 0 7 Q C o m p
0014440 i l e C o m p o s i t e G e t T
0014460 e r m 4 0 2 Q F l u s h R u
0014500 l e 3 6 6 Q T E R P R I 3
0014520 6 1 Q P R I N 1 3 5 0 Q C
0014540 H A N G E F O N T 3 4 0 Q P
0014560 R I N 1 3 3 2 Q C H A N G E
0014600 F O N T 3 2 2 Q P R I N 1
0014620 3 1 1 Q T E R P R I 3 0 4 Q
0014640 T E R P R I 1 4 6 Q F l u
0014660 s h R u l e 1 3 5 Q L e t t
0014700 e r P ) \r ( 3 4 4 Q D E F A U
0014720 L T F O N T 3 2 6 Q B O L D
0014740 F O N T 2 7 1 Q C L I S P W
0014760 O R D 2 6 2 Q r s A r g s
0015000 2 3 2 Q t e m p V a r s 2 1
0015020 6 Q Q U O T E 1 6 6 Q s e
0015040 l f 1 6 3 Q G e t V a l u e
0015060 1 5 4 Q w s V a r s 1 0 7
0015100 Q Q U O T E 5 7 Q ^ t a s
0015120 k 5 4 Q G e t V a l u e 4
0015140 5 Q t a s k V a r s ) \r ( 3
0015160 7 6 Q " U n r e c o g n i z e
0015200 d T e r m : " 3 5 5 Q "
0015220 i s a L i s p v a r i a b
0015240 l e . " 3 1 6 Q " * * * A
0015260 s s u m i n g t h a t " 2
0015300 5 3 Q ( s e l f r u l e A p
0015320 p l i e d ) 2 4 3 Q ( N I L
0015340 T ) 1 4 2 Q " U n r e c o
0015360 g n i z e d t e r m : " 1 2
0015400 4 Q ( r u l e N u m b e r r
0015420 u l e L a b e l r u l e O b j
0015440 e c t ) ) \r C o m p i l e L H S
0015460 D 1 \r ( P 0 e x p r C o d
0015500 e I 2 s p e c i a l F l g
0015520 I 1 n e w F l g I 0
0015540 a u g m e n t e d F l g ) \0 244
0015560 004 \0 \0 003 021 020 \0 h 027 \0 \0 @ 263 M 021 0
0015600 003 ` \0 \0 263 B ` \0 \0 d 001 g \0 \0 360 262
0015620 034 277 o \0 \0 \0 o \0 \0 \0 o \0 \0 \0 \v \0
0015640 \0 277 i 027 \0 \0 263 ` \0 \0 001 o \0 \0 \0
0015660 034 263 025 \b \0 \0 273 J 265 \t K h 032 Z 271 260
0015700 302 K & 272 260 275 I 022 270 B 263 5 ` \0 \0 230
0015720 \b \0 \0 \b \0 \0 H 032 207 ` \0 \0 225 \b \0 \0
0015740 H 032 270 ` \0 \0 g \0 \0 360 225 \b \0 \0 H 032
0015760 270 ` \0 \0 g \0 \0 360 225 \b \0 \0 H 032 270 `
0016000 \0 \0 221 h 020 H \t \0 \0 k \n \0 \0 222 H 001
0016020 020 g \0 \0 H 032 020 \0 ( 2 3 0 Q E Q
0016040 P 2 2 4 Q F L E N G T H 2
0016060 0 7 Q B r e a k L H S C o d e
0016100 G e n 1 7 1 Q T r a c e L H
0016120 S C o d e G e n 1 5 3 Q O S
0016140 T e s t C o d e 1 4 1 Q O S
0016160 S e t C o d e 1 3 6 Q O S T
0016200 e s t C o d e 1 0 1 Q C o m
0016220 p i l e E x p r 5 4 Q F l u
0016240 s h R u l e ) \r ( 2 3 7 Q A N
0016260 D 2 1 5 Q p a r s e E r r o
0016300 r F l g 2 0 2 Q B T 1 7 7
0016320 Q r u l e B r e a k F l g 1
0016340 6 4 Q T T 1 6 1 Q r u l e
0016360 T r a c e F l g 1 4 7 Q o n
0016400 e S h o t F l g 1 3 2 Q o n
0016420 e S h o t B a n g F l g 6 6 Q
0016440 r u l e S e t T o k e n s 6
0016460 1 Q p a r s e E r r o r F l g
0016500 3 1 Q ; 2 4 Q r u l e S
0016520 e t T o k e n s 1 7 Q p a r
0016540 s e E r r o r F l g 6 r u l
0016560 e R H S F l g ) \r ( 7 3 Q ( T
0016600 H E N T h e n t h e n - >
0016620 ) 5 1 Q " i n r u l e "
0016640 4 5 Q " T H E N " 4 1 Q "
0016660 M i s s i n g " ) \r C o m p i l
0016700 e O p P r e c e d e n c e E x p
0016720 r D 1 \r ( P 7 a r g S t a
0016740 c k P 6 o p r S t a c k
0016760 P 5 t e r m P 4 p r e
0017000 v T y p e P 3 n e x t T o
0017020 k e n P 2 o p e r a t o r
0017040 s P 1 s p e c O p r s P
0017060 0 e n d T o k e n s ) \0 334
0017100 \b \0 \0 \0 o \0 \0 \0 o \0 \0 \0 o \0 \0 \0
0017120 021 S \a g \0 \0 h 032 ^ 277 ` \0 \0 001 273 `
0017140 \0 \0 222 261 \0 270 K H 034 251 K d o \0 \0 \0
0017160 034 262 035 277 ` \0 \0 222 261 \0 243 N 002 001 251 O
0017200 016 d 002 001 242 261 \0 230 277 \b \0 \0 260 347 J 034
0017220 263 X L g \0 \0 360 263 335 ` \0 \0 d 001 g \0
0017240 \0 360 262 023 277 \b \0 \0 ] O 016 032 _ 016 277 g
0017260 \0 \0 \ 260 246 001 g \0 \0 360 237 \b \0 \0 ] O
0017300 016 032 _ 016 277 g \0 \0 \ 260 220 ` \0 \0 001 `
0017320 \0 \0 002 027 \0 \0 277 \t \0 \0 ] O 016 032 _ 016
0017340 277 g \0 \0 \ 261 377 t K I 034 226 L g \0 \0
0017360 360 263 203 g \0 \0 274 N 001 \t \0 \0 K \t \0 \0
0017400 375 361 262 023 ` \0 \0 001 ` \0 \0 002 027 \0 \0 277
0017420 N 032 261 377 F \b \0 \0 261 377 A O 016 001 020 \0
0017440 ( 3 2 3 Q E x p r C o d e G e
0017460 n 2 7 3 Q G P r e c e d e n
0017500 c e 2 6 7 Q F P r e c e d e
0017520 n c e 2 2 5 Q C o m p i l e
0017540 G e t T e r m 1 7 1 Q C o m
0017560 p i l e P a r e n E x p r 1 4
0017600 3 Q C o m p i l e Q u o t e d
0017620 C o n s t a n t 1 0 7 Q E x
0017640 p r C o d e G e n ) \r ( 3 1 2 Q
0017660 r u l e S e t T o k e n s 3
0017700 0 6 Q r u l e S e t T o k e n
0017720 s 3 0 2 Q r u l e S e t T o
0017740 k e n s 2 6 1 Q o p e r a t
0017760 o r 2 5 3 Q o p e r a n d
0020000 2 3 7 Q o p e r a n d 2 2 1
0020020 Q r u l e S e t T o k e n s
0020040 2 1 5 Q r u l e S e t T o k e
0020060 n s 2 1 1 Q r u l e S e t T
0020100 o k e n s 2 0 3 Q o p e r a
0020120 n d 1 6 4 Q % ( 1 5 5 Q
0020140 o p e r a n d 1 3 4 Q ' 1
0020160 2 7 Q r u l e S e t T o k e n
0020200 s 1 2 1 Q o p e r a n d 6
0020220 2 Q p a r s e E r r o r F l g
0020240 3 5 Q p a r s e E r r o r F
0020260 l g 3 0 Q r u l e S e t T o
0020300 k e n s 2 1 Q e n d E x p r
0020320 ) \r ( 5 3 Q ( T H E N T h e
0020340 n t h e n - > ) 1 3 Q (
0020360 % [ % ] + - + + - -
0020400 - 1 - * / < > < = >
0020420 = = = = ~ ~ = < < _
0020440 e n d E x p r ) 7 ( - 1 -
0020460 ~ % [ ) 3 ( ; - > ) )
0020500 \r C o m p i l e P a r e n E x p
0020520 r D 1 \r ( P 3 a r g s P
0020540 2 s e l e c t o r P 1
0020560 o b j e c t P 0 f n N a m
0020600 e F 7 P P D e f a u l t )
0020620 001 022 \a 001 \0 \0 021 @ 003 ` \0 \0 002 027 \0
0020640 \0 d 001 ` \0 \0 002 027 \0 \0 277 X d o \0 \0
0020660 \0 034 262 035 \b \0 \0 271 H g \0 \0 360 223 \b \0
0020700 \0 213 ` \0 \0 001 ` \0 \0 002 027 \0 \0 277 272 021
0020720 0 006 ` \0 \0 265 032 L 022 [ ` \0 \0 d 001 g
0020740 \0 \0 360 263 0 277 o \0 \0 \0 \t \0 \0 260 * 001
0020760 g \0 \0 360 263 343 ` \0 \0 001 g \0 \0 360 263 331
0021000 \b \0 \0 276 M 265 \t N h 032 ] 274 260 306 N &
0021020 275 260 301 002 027 \0 \0 277 H d g \0 \0 360 234 277
0021040 g \0 \0 I J h K 032 032 032 032 020 o \0 \0 \0
0021060 034 231 g \0 \0 I J K 032 032 032 020 H d o \0
0021100 \0 \0 034 262 036 277 g \0 \0 o \0 \0 \0 g \0 \0
0021120 K 032 g \0 \0 g \0 \0 h 032 032 h 032 032 032 032
0021140 020 \t \0 \0 263 @ H d g \0 \0 033 263 9 277 W
0021160 016 \t \0 \0 277 W 016 \t \0 \0 277 o \0 \0 \0 W
0021200 016 \n \0 \0 277 ` \0 \0 W 016 \n \0 \0 277 H W
0021220 016 \n \0 \0 277 ` \0 \0 W 016 \n \0 \0 277 W 016
0021240 \t \0 \0 277 H K 032 020 \0 ( 4 1 3 Q T
0021260 E R P R I 4 0 5 Q C H A N G
0021300 E F O N T 3 7 4 Q P R I N 1
0021320 3 6 5 Q C H A N G E F O N T
0021340 3 5 4 Q P R I N 1 3 4 2 Q
0021360 T E R P R I 3 3 4 Q T E R
0021400 P R I 3 1 4 Q F N T Y P 1
0021420 5 3 Q C o m p i l e E x p r
0021440 1 2 5 Q F l u s h R u l e 5
0021460 1 Q C o m p i l e E x p r 3
0021500 7 Q C o m p i l e E x p r ) \r
0021520 ( 4 0 0 Q D E F A U L T F O N
0021540 T 3 6 0 Q B O L D F O N T
0021560 3 2 3 Q C L I S P W O R D 3
0021600 0 0 Q Q U I T 2 7 5 Q G O
0021620 2 7 0 Q R u l e S e t S t o
0021640 p 2 6 1 Q P R O G N 2 3 5
0021660 Q _ 2 1 3 Q D o M e t h o
0021700 d 2 0 5 Q _ ! 1 7 7 Q r
0021720 u l e S e t T o k e n s 1 4 5
0021740 Q ; 1 4 1 Q r u l e S e t
0021760 T o k e n s 1 3 3 Q % ) 1
0022000 1 2 Q % ) 1 0 5 Q r u l e
0022020 S e t T o k e n s 7 5 Q r u
0022040 l e S e t T o k e n s 6 5 Q
0022060 r u l e S e t T o k e n s 6 1
0022100 Q r u l e S e t T o k e n s
0022120 5 5 Q r u l e S e t T o k e n
0022140 s 4 4 Q _ ! 2 2 Q r u l
0022160 e S e t T o k e n s 1 6 Q r
0022200 u l e S e t T o k e n s 1 1 Q
0022220 r u l e S e t T o k e n s 5
0022240 r u l e S e t T o k e n s ) \r
0022260 ( 3 4 7 Q " * * * W a r n
0022300 i n g U n r e c o g n i z e d
0022320 L I S P f n " 2 6 5 Q
0022340 ( * ^ v a l u e s e t b y
0022360 R u l e S e t S t o p ) 2 5
0022400 2 Q ( S T O P S t o p s t
0022420 o p ) 2 3 0 Q ( _ ! _ S
0022440 E N D S e n d s e n d ) 1
0022460 2 2 Q " M i s s i n g r i g
0022500 h t p a r e n t h e s i s "
0022520 3 1 Q ( _ ! _ S E N D S
0022540 e n d s e n d ) ) \r C o m p i
0022560 l e P o p S t m n t D 1 \r ( P
0022600 1 s t a c k V a r P 0
0022620 a s s n V a r ) \0 ) 002 \0 \0 \0 021
0022640 001 ` \0 \0 001 ` \0 \0 002 027 \0 \0 277 X `
0022660 \0 \0 002 027 \0 \0 d 001 ` \0 \0 002 027 \0 \0 277
0022700 Y H I \n \0 \0 020 \0 ( 4 6 Q C o m
0022720 p i l e P o p T e r m s ) \r ( 3
0022740 7 Q r u l e S e t T o k e n s
0022760 3 3 Q r u l e S e t T o k e
0023000 n s 2 6 Q r u l e S e t T o
0023020 k e n s 2 2 Q r u l e S e t
0023040 T o k e n s 1 5 Q r u l e S
0023060 e t T o k e n s 1 1 Q r u l
0023100 e S e t T o k e n s 5 r u l
0023120 e S e t T o k e n s ) \r N I L \r
0023140 C o m p i l e P o p T e r m s
0023160 D 1 \r ( P 3 p u t I t e m C
0023200 o d e P 2 p u t S t a c k
0023220 C o d e P 1 g e t S t a c
0023240 k C o d e P 0 p o p T e m
0023260 p l a t e I 1 s t a c k V
0023300 a r I 0 a s s n V a r )
0023320 \0 H 004 \0 \0 002 o \0 \0 \0 021 1 003 A \t \0
0023340 \0 Y A g \0 \0 \n \0 \0 Z @ g \0 \0 \n \0
0023360 \0 [ I g \0 \0 H \v \0 \0 X J g \0 \0 H
0023400 \v \0 \0 K g \0 \0 H \v \0 \0 @ g \0 \0 H
0023420 \v \0 \0 A g \0 \0 H \v \0 \0 H 020 \0 ( 1
0023440 0 4 Q D S U B S T 7 4 Q D
0023460 S U B S T 6 4 Q D S U B S T
0023500 5 4 Q D S U B S T 4 3 Q
0023520 S U B S T 3 2 Q C o m p i l
0023540 e P u t T e r m 2 2 Q C o m
0023560 p i l e P u t T e r m 1 2 Q
0023600 C o m p i l e G e t T e r m ) \r
0023620 ( 1 0 0 Q ^ s t a c k V a r
0023640 7 0 Q ^ a s s n V a r 6 0 Q
0023660 ^ p u t I t e m C o d e 5 0
0023700 Q ^ p u t S t a c k C o d e
0023720 3 7 Q ^ g e t S t a c k C o d
0023740 e 2 7 Q ^ i t e m 1 7 Q
0023760 ^ s t a c k ) \r ( 3 ( P R O G
0024000 ( ^ i t e m ^ s t a c k )
0024020 ( * P o p S t a t e m e n t
0024040 . ^ a s s n V a r _ - ^ s
0024060 t a c k V a r ) ( S E T Q ^
0024100 s t a c k ^ g e t S t a c k C
0024120 o d e ) ( S E T Q ^ i t e m
0024140 ( C A R ^ s t a c k ) ) (
0024160 S E T Q ^ s t a c k ( C D R
0024200 ^ s t a c k ) ) ^ p u t S t
0024220 a c k C o d e ^ p u t I t e m
0024240 C o d e ( R E T U R N ^ i t
0024260 e m ) ) ) \r C o m p i l e P r o
0024300 p G e t T e r m D 1 \r ( P 0
0024320 t e r m 1 I 0 t e r m )
0024340 001 $ 003 \0 \0 001 @ d 002 001 003 242 261 \0 232
0024360 277 021 0 002 @ 002 001 X d 001 o \0 \0 \0 034 264
0024400 003 202 261 001 \a d 001 o \0 \0 \0 034 223 g \0 \0
0024420 202 g \0 \0 H 002 001 \t \0 \0 H d 001 o \0 \0
0024440 \0 034 262 " 002 002 001 Y d 262 ! d i 360 263 034
0024460 d 005 001 245 d 005 002 241 005 003 265 020 g \0 \0 I
0024500 h 032 032 205 002 002 001 \t \0 \0 @ d 001 g \0 \0
0024520 360 262 " 002 002 001 Z d 262 ) d i 360 263 $ d
0024540 005 001 245 d 005 002 241 005 003 265 030 g \0 \0 J h
0024560 032 032 215 001 g \0 \0 360 264 \t @ 002 002 001 \t \0
0024600 \0 h 032 032 032 032 020 002 001 ` \0 \0 034 250 @ 002
0024620 001 o \0 \0 \0 034 230 o \0 \0 \0 @ \n \0 \0 020
0024640 g \0 \0 g \0 \0 @ 002 001 021 001 001 I d 262 032
0024660 d i 360 263 025 d 005 001 245 d 005 002 241 005 003 265
0024700 \t g \0 \0 I h 032 032 022 @ d 001 g \0 \0 360
0024720 262 & 002 002 001 021 001 001 I d 262 032 d i 360 263
0024740 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0 \0
0024760 I h 032 032 022 215 001 g \0 \0 360 264 \t @ 002 002
0025000 001 \t \0 \0 h 032 032 032 032 020 \0 ( 4 3 4 Q
0025020 C o m p i l e G e t T e r m
0025040 2 6 7 Q F l u s h R u l e 2
0025060 3 1 Q C o m p i l e G e t T e
0025100 r m 1 4 2 Q C o m p i l e G
0025120 e t T e r m 6 2 Q C o m p i
0025140 l e G e t T e r m ) \r ( 4 2 2 Q
0025160 : , ! 4 1 0 Q Q U O T E
0025200 3 4 7 Q : , 3 3 4 Q Q U O
0025220 T E 2 7 6 Q s e l f 2 7 3
0025240 Q G e t V a l u e 2 4 4 Q
0025260 r u l e V a r s 2 1 7 Q : ,
0025300 ! 2 0 6 Q Q U O T E 1 5 0
0025320 Q : , 1 2 7 Q Q U O T E
0025340 5 4 Q G e t V a l u e 5 0 Q
0025360 G e t C l a s s V a l u e ) \r
0025400 ( 2 6 3 Q " I l l e g a l t
0025420 o f e t c h p r o p e r t y
0025440 o f t h i s v a r : "
0025460 2 5 5 Q ( r u l e N u m b e r
0025500 r u l e L a b e l r u l e O
0025520 b j e c t ) 7 1 Q ( : : :
0025540 ) 4 3 Q ( : : : : ! ) 2
0025560 6 Q ( : : ! : : : : ! )
0025600 ) \r C o m p i l e P r o p P u t
0025620 T e r m D 1 \r ( P 0 t e r
0025640 m 1 I 1 a s s n V a l I
0025660 0 t e r m ) 001 . 003 \0 \0 002 @
0025700 d 002 001 003 242 261 \0 253 277 021 0 002 @ 002 001 X
0025720 d 001 o \0 \0 \0 034 242 261 \0 217 d 001 o \0 \0
0025740 \0 034 223 g \0 \0 202 g \0 \0 H 002 001 \t \0 \0
0025760 H d 001 o \0 \0 \0 034 262 " 002 002 001 Y d 262
0026000 ) d i 360 263 $ d 005 001 245 d 005 002 241 005 003
0026020 265 030 g \0 \0 I h 032 032 215 001 g \0 \0 360 264
0026040 \t H 002 002 001 \t \0 \0 A @ d 001 g \0 \0 360
0026060 262 " 002 002 001 Z d 262 ) d i 360 263 $ d 005
0026100 001 245 d 005 002 241 005 003 265 030 g \0 \0 J h 032
0026120 032 215 001 g \0 \0 360 264 \t @ 002 002 001 \t \0 \0
0026140 h 032 032 032 032 032 020 o \0 \0 \0 @ \n \0 \0 020
0026160 002 001 ` \0 \0 034 230 o \0 \0 \0 @ \n \0 \0 020
0026200 g \0 \0 g \0 \0 @ 002 001 021 001 001 I d 262 032
0026220 d i 360 263 025 d 005 001 245 d 005 002 241 005 003 265
0026240 \t g \0 \0 I h 032 032 022 A @ d 001 g \0 \0
0026260 360 262 & 002 002 001 021 001 001 I d 262 032 d i 360
0026300 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0
0026320 \0 I h 032 032 022 215 001 g \0 \0 360 264 \t @ 002
0026340 002 001 \t \0 \0 h 032 032 032 032 032 020 \0 ( 4 4
0026360 5 Q C o m p i l e G e t T e r
0026400 m 2 7 7 Q F l u s h R u l e
0026420 2 5 7 Q F l u s h R u l e
0026440 2 4 0 Q C o m p i l e G e t T
0026460 e r m 1 5 0 Q C o m p i l e
0026500 G e t T e r m 6 0 Q C o m p
0026520 i l e G e t T e r m ) \r ( 4 3 3
0026540 Q : , ! 4 2 1 Q Q U O T E
0026560 3 6 0 Q : , 3 4 4 Q Q U
0026600 O T E 3 0 6 Q s e l f 3 0
0026620 3 Q P u t V a l u e 2 6 5 Q
0026640 r u l e V a r s 2 2 6 Q :
0026660 , ! 2 1 5 Q Q U O T E 1 5
0026700 7 Q : , 1 3 6 Q : ! 1 2
0026720 5 Q Q U O T E 5 2 Q P u t
0026740 V a l u e 4 6 Q P u t C l a
0026760 s s V a l u e ) \r ( 2 7 3 Q "
0027000 I l l e g a l t o s t o r e
0027020 p r o p e r t y o f R u l
0027040 e V a r : " 2 5 3 Q " I n v
0027060 a l i d p r o p e r t y a c
0027100 c e s s t e r m " 6 7 Q (
0027120 : : : ) 4 1 Q ( : : : :
0027140 ! ) 2 6 Q ( : : ! : :
0027160 : : ! ) ) \r C o m p i l e P u s
0027200 h S t m n t D 1 \r ( P 1 s
0027220 t a c k V a r P 0 a s s n
0027240 V a l ) \0 " 002 \0 \0 \0 021 001 ` \0
0027260 \0 001 ` \0 \0 002 027 \0 \0 277 Y ` \0 \0 002 027
0027300 \0 \0 \b \0 \0 X I H \n \0 \0 020 \0 ( 3 7
0027320 Q C o m p i l e P u s h T e r
0027340 m 3 1 Q C o m p i l e E x p
0027360 r ) \r ( 2 6 Q r u l e S e t T
0027400 o k e n s 2 2 Q r u l e S e
0027420 t T o k e n s 1 5 Q r u l e
0027440 S e t T o k e n s 1 1 Q r u
0027460 l e S e t T o k e n s 5 r u
0027500 l e S e t T o k e n s ) \r N I L
0027520 \r C o m p i l e P u s h T e r m
0027540 D 1 \r ( P 3 p u t I t e m
0027560 C o d e P 2 p u t S t a c
0027600 k C o d e P 1 g e t S t a
0027620 c k C o d e P 0 p u s h T
0027640 e m p l a t e I 1 a s s n
0027660 V a l I 0 s t a c k V a r
0027700 ) \0 0 004 \0 \0 002 o \0 \0 \0 021 1 003 @
0027720 \t \0 \0 Y @ g \0 \0 \n \0 \0 Z I g \0 \0
0027740 H \v \0 \0 X J g \0 \0 H \v \0 \0 A g \0
0027760 \0 H \v \0 \0 H 020 \0 ( 5 4 Q D S U
0030000 B S T 4 4 Q D S U B S T 3
0030020 3 Q S U B S T 2 2 Q C o m
0030040 p i l e P u t T e r m 1 2 Q
0030060 C o m p i l e G e t T e r m ) \r
0030100 ( 5 0 Q ^ a s s n V a l 4 0
0030120 Q ^ p u t S t a c k C o d e
0030140 2 7 Q ^ g e t S t a c k C o d
0030160 e 1 7 Q ^ s t a c k ) \r ( 3
0030200 ( P R O G ( ^ s t a c k ^
0030220 i t e m ) ( * P u s h S t
0030240 a t e m e n t . ) ( S E T Q
0030260 ^ i t e m ^ a s s n V a l )
0030300 ( S E T Q ^ s t a c k ( C O
0030320 N S ^ i t e m ^ g e t S t a
0030340 c k C o d e ) ) ^ p u t S t a
0030360 c k C o d e ( R E T U R N ^
0030400 i t e m ) ) ) \r C o m p i l e P
0030420 u t T e r m D 1 \r ( I 1 a
0030440 s s n V a l I 0 t e r m )
0030460 001 022 \0 \0 \0 002 @ d d 005 001 245 d 005 002
0030500 241 005 003 231 277 o \0 \0 \0 @ \n \0 \0 020 004 l
0030520 004 360 242 261 \0 343 @ ` \0 \0 034 247 @ d ` \0
0030540 \0 034 232 277 g \0 \0 @ A h 032 032 032 020 ` \0
0030560 \0 034 262 + g \0 \0 g \0 \0 @ d 262 032 d i
0030600 360 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g
0030620 \0 \0 @ h 032 032 A h 032 032 032 032 020 @ o \0
0030640 \0 \0 034 250 @ d o \0 \0 \0 034 231 277 o \0 \0
0030660 \0 @ \n \0 \0 020 \t \0 \0 250 o \0 \0 \0 @ \n
0030700 \0 \0 020 @ ` \0 \0 034 250 o \0 \0 \0 @ \n \0
0030720 \0 020 ` \0 \0 262 8 ` \0 \0 262 3 i 027 \0 \0
0030740 g \0 \0 g \0 \0 @ d 262 032 d i 360 263 025 d
0030760 005 001 245 d 005 002 241 005 003 265 \t g \0 \0 @ h
0031000 032 032 A g \0 \0 h 032 032 032 032 032 020 g \0 \0
0031020 g \0 \0 @ d 262 032 d i 360 263 025 d 005 001 245
0031040 d 005 002 241 005 003 265 \t g \0 \0 @ h 032 032 A
0031060 h 032 032 032 032 020 @ 003 265 \v o \0 \0 \0 @ \n
0031100 \0 \0 020 A \n \0 \0 020 \0 ( 4 1 7 Q C
0031120 o m p i l e C o m p o s i t e P
0031140 u t T e r m 4 1 2 Q F l u s
0031160 h R u l e 2 3 1 Q F l u s h
0031200 R u l e 2 1 2 Q F l u s h R
0031220 u l e 2 0 1 Q L e t t e r P
0031240 1 7 5 Q F l u s h R u l e
0031260 2 5 Q F l u s h R u l e ) \r (
0031300 3 6 3 Q Q U O T E 3 3 3 Q
0031320 s e l f 3 3 0 Q P u t V a l
0031340 u e 3 1 6 Q ^ a u d i t R e
0031360 c o r d 3 0 6 Q Q U O T E
0031400 2 5 6 Q s e l f 2 5 3 Q P
0031420 u t A u d i t R e c 2 5 0 Q
0031440 r u l e N e e d s A u d i t F l
0031460 g 2 4 2 Q r u l e R H S F l
0031500 g 2 3 5 Q r u l e A u d i t
0031520 F l g 2 1 7 Q w s V a r s
0031540 1 3 2 Q Q U O T E 1 0 2 Q
0031560 ^ t a s k 7 7 Q P u t V a l
0031600 u e 7 1 Q t a s k V a r s
0031620 5 7 Q S E T Q 5 1 Q r s A
0031640 r g s 4 2 Q t e m p V a r s
0031660 ) \r ( 4 0 6 Q " B a d T e r
0031700 m o n l e f t i n A s s
0031720 i g n m e n t S t a t e m e n
0031740 t " 2 2 5 Q " U n r e c o g
0031760 n i z e d I V : " 2 0 6 Q
0032000 " U n e x p e c t e d " 1 7
0032020 1 Q " U n e x p e c t e d c
0032040 o n s t a n t o n l e f t
0032060 i n A s s i g n m e n t S t
0032100 a t e m e n t : " 1 6 2 Q (
0032120 s e l f r u l e A p p l i e d
0032140 ) 1 5 2 Q ( r u l e N u m b
0032160 e r r u l e L a b e l r u l
0032200 e O b j e c t ) 2 1 Q " U n
0032220 e x p e c t e d N u m b e r
0032240 o n l e f t i n A s s i g
0032260 n m e n t S t a t e m e n t :
0032300 " ) \r C o m p i l e Q u o t e d
0032320 C o n s t a n t D 1 \r ( P 3
0032340 d o n e F l g P 2 q T o
0032360 k e n s P 1 t o k e n P
0032400 0 q E n d T o k e n s ) \0
0032420 234 \a \0 \0 \0 o \0 \0 \0 021 1 003 ` \0 \0 002
0032440 027 \0 \0 d 001 ` \0 \0 002 027 \0 \0 277 Y d g
0032460 \0 \0 360 263 ! d 264 i d d i 360 263 c 277 d
0032500 d 005 001 245 d 005 002 241 005 003 265 U g \0 \0 I
0032520 h 032 032 020 021 0 006 ` \0 \0 001 ` \0 \0 002 027
0032540 \0 \0 277 Y d H 034 262 9 277 L 022 272 I g \0
0032560 \0 360 237 o \0 \0 \0 o \0 \0 \0 o \0 \0 \0 \v
0032600 \0 \0 277 J d 262 032 d i 360 263 025 d 005 001 245
0032620 d 005 002 241 005 003 265 \t g \0 \0 J h 032 032 020
0032640 276 M 265 \t N h 032 ] 274 260 256 N & 275 260 251
0032660 \0 ( 1 5 4 Q F l u s h R u l e
0032700 ) \r ( 2 0 5 Q Q U O T E 1 3
0032720 3 Q ; 1 1 4 Q r u l e S e
0032740 t T o k e n s 1 1 0 Q r u l
0032760 e S e t T o k e n s 1 0 4 Q
0033000 r u l e S e t T o k e n s 7 1
0033020 Q Q U O T E 3 4 Q % ( 2
0033040 6 Q r u l e S e t T o k e n s
0033060 2 2 Q r u l e S e t T o k e
0033100 n s 1 5 Q r u l e S e t T o
0033120 k e n s 1 1 Q r u l e S e t
0033140 T o k e n s ) \r ( 1 5 1 Q " i
0033160 n q u o t e d c o n s t a n
0033200 t " 1 4 5 Q " s e m i c o l
0033220 o n " 1 4 1 Q " U n e x p e
0033240 c t e d " 3 ( % ) ; ) ) \r
0033260 C o m p i l e R H S D 1 \r ( P
0033300 1 e x p r C o d e P 0
0033320 t o k e n ) \0 220 005 \0 \0 \0 021 001
0033340 i 027 \0 \0 ` \0 \0 001 o \0 \0 \0 034 227 ` \0
0033360 \0 002 027 \0 \0 277 021 0 004 ` \0 \0 263 037 ` \0
0033400 \0 001 g \0 \0 360 263 025 \b \0 \0 274 K 265 \t L
0033420 h 032 [ 272 260 345 L & 273 260 340 J 022 Y ` \0
0033440 \0 231 ` \0 \0 245 \b \0 \0 I 032 271 ` \0 \0 225
0033460 \b \0 \0 I 032 271 ` \0 \0 225 \b \0 \0 I 032 271
0033500 ` \0 \0 226 \b \0 \0 I 032 Y 200 I \t \0 \0 k
0033520 \n \0 \0 227 g \0 \0 g \0 \0 I 214 g \0 \0 g
0033540 \0 \0 g \0 \0 I 032 h 032 032 032 020 \0 ( 1 6
0033560 5 Q E Q P 1 6 1 Q F L E N
0033600 G T H 1 5 1 Q A u d i t R e
0033620 c o r d C o d e G e n 1 3 7 Q
0033640 B r e a k R H S C o d e G e n
0033660 1 2 5 Q T r a c e R H S C o
0033700 d e G e n 1 1 3 Q O S S e t
0033720 C o d e 5 5 Q C o m p i l e
0033740 E x p r ) \r ( 2 0 7 Q P R O G
0033760 N 2 0 4 Q ^ v a l u e 2 0
0034000 1 Q S E T Q 1 7 4 Q ^ v a
0034020 l u e 1 7 1 Q S E T Q 1 4
0034040 5 Q r u l e N e e d s A u d i
0034060 t F l g 1 3 3 Q r u l e B r
0034100 e a k F l g 1 2 1 Q r u l e
0034120 T r a c e F l g 1 0 7 Q o n
0034140 e S h o t B a n g F l g 1 0 3
0034160 Q o n e S h o t F l g 4 7 Q
0034200 ; 4 3 Q r u l e S e t T o
0034220 k e n s 3 6 Q p a r s e E r
0034240 r o r F l g 2 7 Q r u l e S
0034260 e t T o k e n s 2 3 Q r u l
0034300 e S e t T o k e n s 1 1 Q r
0034320 u l e S e t T o k e n s 6 r
0034340 u l e R H S F l g ) \r ( 1 6 Q
0034360 ( T H E N T h e n t h e n
0034400 - > ) ) \r C o m p i l e R u l e
0034420 D 1 \r ( P 1 r u l e O l d
0034440 S o u r c e P 0 r u l e C
0034460 o d e I 1 r u l e S e t S
0034500 o u r c e I 0 s e l f )
0034520 \0 ' 002 \0 \0 002 021 001 ` \0 \0 k 330 027 \0
0034540 \0 k \t \0 \0 ` \0 \0 \t \0 \0 ` \0 \0 ` \0
0034560 \0 \n \0 \0 001 027 \0 \0 \b \0 \0 020 \0 ( 4 4
0034600 Q C o m p i l e R u l e 1 3
0034620 5 Q N T H 2 4 Q P R I N 1
0034640 1 6 Q S P A C E S ) \r ( 4 1
0034660 Q r u l e O b j e c t 3 2 Q
0034700 r u l e N u m b e r 2 7 Q
0034720 r s R u l e O b j e c t s 2 1
0034740 Q r u l e N u m b e r 1 2 Q
0034760 r u l e N u m b e r 5 r u
0035000 l e N u m b e r ) \r ( ) \r C o m
0035020 p i l e R u l e 1 D 1 \r ( P
0035040 3 r u l e C o d e P 2 r
0035060 u l e F o r m P 1 f i r s
0035100 t L a s t F l g P 0 r u l
0035120 e B n d r y I 0 s p e c i
0035140 a l F l g F 4 f i r s t R
0035160 u l e s F 5 l a s t R u l
0035200 e s ) 001 315 004 002 \0 001 o \0 \0 \0 021 1
0035220 003 \b \0 \0 ` \0 \0 d 001 o \0 \0 \0 034 231 002
0035240 027 \0 \0 277 g \0 \0 260 025 001 o \0 \0 \0 034 262
0035260 , ` \0 \0 002 027 \0 \0 277 g \0 \0 Z d g \0
0035300 \0 360 237 ` \0 \0 247 ` \0 \0 243 ` \0 \0 223 g
0035320 \0 \0 272 I 262 026 g \0 \0 260 024 o \0 \0 \0 H
0035340 \n \0 \0 262 326 g \0 \0 260 324 ` \0 \0 d g \0
0035360 \0 360 254 d g \0 \0 360 246 d g \0 \0 360 262 K
0035400 277 J d g \0 \0 360 237 277 h d @ \v \0 \0 \b
0035420 \0 \0 h 032 032 261 001 \b g \0 \0 360 231 i \b \0
0035440 \0 h 032 032 261 \0 371 J g \0 \0 360 262 023 g \0
0035460 \0 h @ \v \0 \0 \b \0 \0 h 032 032 261 \0 341 o
0035500 \0 \0 \0 \t \0 \0 261 \0 327 d g \0 \0 360 254 d
0035520 g \0 \0 360 246 d g \0 \0 360 262 R 277 J d g
0035540 \0 \0 360 262 030 277 g \0 \0 h d @ \v \0 \0 \b
0035560 \0 \0 h 032 032 h 032 032 261 \0 245 g \0 \0 360 225
0035600 \b \0 \0 261 \0 232 J g \0 \0 360 262 030 g \0 \0
0035620 g \0 \0 h @ \v \0 \0 \b \0 \0 h 032 032 h 032
0035640 032 260 | o \0 \0 \0 \t \0 \0 260 s d g \0 \0
0035660 360 246 d g \0 \0 360 262 [ 277 J d g \0 \0 360
0035700 262 035 277 ` \0 \0 g \0 \0 h d @ \v \0 \0 \b
0035720 \0 \0 h 032 032 h 032 032 h 032 032 260 B g \0 \0
0035740 360 232 ` \0 \0 \b \0 \0 h 032 032 260 2 J g \0
0035760 \0 360 262 030 g \0 \0 g \0 \0 h @ \v \0 \0 \b
0036000 \0 \0 h 032 032 h 032 032 260 025 o \0 \0 \0 \t \0
0036020 \0 212 277 o \0 \0 \0 ` \0 \0 \n \0 \0 [ ` \0
0036040 \0 001 g \0 \0 360 227 ` \0 \0 002 027 \0 \0 277 I
0036060 d g \0 \0 360 233 277 T K h 032 \n \0 \0 c \b
0036100 277 215 g \0 \0 360 232 U K h 032 \n \0 \0 c \n
0036120 h 020 K h 032 020 \0 ( 7 0 3 Q \ N C
0036140 O N C 2 6 6 3 Q \ N C O N C
0036160 2 6 2 2 Q F l u s h R u l e
0036200 6 0 6 Q F l u s h R u l e
0036220 5 6 7 Q C o m p i l e R H S
0036240 5 6 4 Q C o m p i l e L H S
0036260 5 3 5 Q C o m p i l e R H S
0036300 5 0 7 Q C o m p i l e R H S
0036320 5 0 4 Q C o m p i l e L H S
0036340 4 3 7 Q F l u s h R u l e 4
0036360 2 0 Q C o m p i l e R H S 4
0036400 1 5 Q C o m p i l e L H S 3
0036420 7 0 Q C o m p i l e R H S 3
0036440 4 7 Q C o m p i l e R H S 3
0036460 4 4 Q C o m p i l e L H S 2
0036500 7 3 Q F l u s h R u l e 2 5
0036520 6 Q C o m p i l e R H S 2 5
0036540 3 Q C o m p i l e L H S 2 2
0036560 6 Q C o m p i l e R H S 2 0
0036600 7 Q C o m p i l e R H S 2 0
0036620 4 Q C o m p i l e L H S 1 3
0036640 0 Q S c a n F o r 1 1 Q G
0036660 e t R u l e M e t a D e c l s )
0036700 \r ( 6 7 2 Q L 6 5 1 Q F
0036720 6 4 3 Q r u l e S e t T o k e
0036740 n s 6 3 7 Q r u l e S e t T
0036760 o k e n s 6 3 2 Q ; 6 2 6
0037000 Q r u l e S e t T o k e n s
0037020 6 1 7 Q c o n t r o l T y p e
0037040 5 5 7 Q A u g m e n t e d
0037060 5 5 4 Q C O N D 5 4 6 Q A
0037100 u g m e n t e d O n l y T h e n
0037120 5 3 2 Q r u l e N u m b e r
0037140 5 2 5 Q O n l y T h e n 4
0037160 7 6 Q C O N D 4 7 3 Q r u
0037200 l e N u m b e r 4 6 4 Q I f
0037220 T h e n 4 5 3 Q W H I L E N
0037240 E X T 4 4 5 Q D O N E X T
0037260 4 1 0 Q A u g m e n t e d 4
0037300 0 5 Q C O N D 3 7 7 Q A u
0037320 g m e n t e d O n l y T h e n
0037340 3 6 3 Q O n l y T h e n 3 3
0037360 6 Q C O N D 3 2 7 Q I f T
0037400 h e n 3 1 6 Q F O R A L L
0037420 3 1 0 Q W H I L E A L L 3 0
0037440 2 Q D O A L L 2 4 6 Q A u
0037460 g m e n t e d 2 4 0 Q A u g
0037500 m e n t e d O n l y T h e n 2
0037520 2 0 Q O n l y T h e n 1 7 3
0037540 Q I f T h e n 1 6 2 Q F O
0037560 R 1 1 5 4 Q W H I L E 1 1
0037600 4 6 Q D O 1 1 4 2 Q c o n
0037620 t r o l T y p e 1 3 5 Q I f
0037640 T h e n 1 1 6 Q D O A L L
0037660 1 0 7 Q A u g m e n t e d O n
0037700 l y T h e n 1 0 3 Q o n e S
0037720 h o t F l g 7 7 Q r u l e T
0037740 r a c e F l g 7 3 Q r u l e
0037760 B r e a k F l g 6 6 Q O n l
0040000 y T h e n 6 1 Q O n l y T h
0040020 e n 5 5 Q r u l e S e t T o
0040040 k e n s 5 1 Q r u l e S e t
0040060 T o k e n s 3 4 Q I f T h e
0040100 n 3 0 Q r u l e S e t T o k
0040120 e n s 1 4 Q r u l e S e t T
0040140 o k e n s ) \r ( 6 1 4 Q " U
0040160 n r e c o g n i z e d c o n t
0040200 r o l T y p e : " 6 0 3 Q
0040220 " U n r e c o g n i z e d R u
0040240 l e S y n t a x " 4 3 4 Q
0040260 " U n r e c o g n i z e d R u
0040300 l e S y n t a x " 2 7 0 Q
0040320 " U n r e c o g n i z e d R u
0040340 l e S y n t a x " 1 2 4 Q
0040360 ( T H E N T h e n t h e n
0040400 - > ) 4 3 Q ( T H E N T h
0040420 e n t h e n - > ) 2 2 Q
0040440 ( I F I f i f ) 3 ( ; )
0040460 ) \r C o m p i l e R u l e L i s
0040500 t D 1 \r ( P 7 A S S U M E
0040520 L I S P F L G P 5 l a s t
0040540 R u l e s P 4 f i r s t R
0040560 u l e s P 3 p r o g V a r
0040600 s P 2 r u l e s P 1
0040620 w h i l e T e m p l a t e P
0040640 0 c o d e T e m p l a t e I
0040660 1 r u l e S e t S o u r c e
0040700 I 0 s e l f ) 001 026 \b \0 \0
0040720 002 021 p 006 ` \0 \0 263 023 o \0 \0 \0 o \0 \0
0040740 \0 o \0 \0 \0 \v \0 \0 h 020 j 027 \0 \0 h 276
0040760 ` \0 \0 ` \0 \0 361 263 8 ` \0 \0 262 3 ` \0
0041000 \0 263 . ` \0 \0 d 001 g \0 \0 360 244 001 254 `
0041020 \0 \0 001 ` \0 \0 002 027 \0 \0 277 200 h 263 323 N
0041040 h 027 \0 \0 277 @ A \n \0 \0 \n \0 \0 260 302 N
0041060 Z ` \0 \0 262 025 ` \0 \0 g \0 \0 360 232 d o
0041100 \0 \0 \0 h 032 \n \0 \0 272 \b \0 \0 X \b \0 \0
0041120 [ d g \0 \0 H \v \0 \0 X ` \0 \0 o \0 \0
0041140 \0 034 262 V ` \0 \0 265 025 o \0 \0 \0 ` \0 \0
0041160 o \0 \0 \0 \v \0 \0 277 i 027 \0 \0 g \0 \0 h
0041200 032 \n \0 \0 027 \0 \0 277 i 021 001 \a h g \0 \0
0041220 g \0 \0 \v \0 \0 Y 023 ` \0 \0 d g \0 \0 360
0041240 245 d g \0 \0 360 226 277 H I \n \0 \0 210 277 I
0041260 g \0 \0 H \v \0 \0 270 J g \0 \0 H \v \0 \0
0041300 X L 230 L g \0 \0 H \v \0 \0 270 M 230 M g
0041320 \0 \0 H \v \0 \0 270 @ g \0 \0 ` \0 \0 \v \0
0041340 \0 \b \0 \0 H 020 \0 ( 4 2 2 Q C h e
0041360 c k V a r i a b l e N a m e C o
0041400 n f l i c t 4 1 7 Q P u t V
0041420 a l u e 4 0 4 Q L S U B S T
0041440 3 7 1 Q L S U B S T 3 5 6
0041460 Q L S U B S T 3 4 5 Q D S
0041500 U B S T 3 3 3 Q F o r T e m
0041520 p l a t e 3 0 4 Q C o m p i
0041540 l e L H S 2 6 2 Q \ N C O N
0041560 C 2 2 4 5 Q F l u s h R u l
0041600 e 2 0 7 Q S U B S T 1 7 6
0041620 Q G e t P r o g V a r s 1 7
0041640 2 Q G e t R u l e S e t T e m
0041660 p l a t e 1 6 6 Q \ N C O N
0041700 C 2 1 3 3 Q \ N C O N C 2
0041720 1 3 0 Q C o m p i l e R u l e
0041740 O r L a b e l 2 6 Q F l u s
0041760 h R u l e ) \r ( 4 1 4 Q t a s
0042000 k V a r s 4 1 1 Q t a s k V
0042020 a r s 4 0 0 Q ^ l a s t R u
0042040 l e s 3 6 5 Q ^ f i r s t R
0042060 u l e s 3 5 2 Q ^ r u l e s
0042100 3 4 1 Q ^ w h i l e C o n d
0042120 i t i o n 3 2 3 Q F O R A L
0042140 L 3 1 5 Q F O R 1 3 1 1 Q
0042160 c o n t r o l T y p e 3 0 1
0042200 Q S p e c i a l 2 7 6 Q N
0042220 e w 2 6 5 Q r u l e S e t T
0042240 o k e n s 2 5 5 Q - > 2 5
0042260 2 Q r s W h i l e C o n d i t
0042300 i o n 2 3 6 Q c o n t r o l
0042320 T y p e 2 2 5 Q r s W h i l
0042340 e C o n d i t i o n 2 1 3 Q
0042360 c o n t r o l T y p e 2 0 3 Q
0042400 ^ p r o g V a r s 1 5 2 Q
0042420 W H I L E 1 1 4 7 Q c o n t
0042440 r o l T y p e 1 4 2 Q r s R
0042460 u l e A p p l i e d F l g 1 2
0042500 2 Q p a r s e E r r o r F l g
0042520 1 1 0 Q r u l e S e t T o k
0042540 e n s 1 0 4 Q r u l e S e t
0042560 T o k e n s 1 0 0 Q r u l e
0042600 S e t T o k e n s 7 1 Q ;
0042620 6 4 Q r u l e S e t T o k e n
0042640 s 5 7 Q p a r s e E r r o r
0042660 F l g 5 2 Q r u l e S e t T
0042700 o k e n s 4 4 Q r s N u m R
0042720 u l e s 4 1 Q r u l e N u m
0042740 b e r 3 4 Q r u l e N u m b
0042760 e r 5 w s C l a s s ) \r (
0043000 2 4 2 Q " . A s s u m i n g
0043020 T . " 2 3 3 Q " N o W h
0043040 i l e C o n d i t i o n s p
0043060 e c i f i e d f o r " 2 1
0043100 7 Q ( W H I L E 1 W H I L E
0043120 A L L W H I L E N E X T F O
0043140 R 1 F O R A L L ) 1 6 1 Q
0043160 ( T ( * H e r e i f n o
0043200 r u l e s w e r e e x e c
0043220 u t e d . ) ( S E T Q ^ r u
0043240 l e A p p l i e d N I L ) )
0043260 2 3 Q " s e t y e t . "
0043300 1 7 Q " w o r k S p a c e
0043320 " 1 3 Q " N o " ) \r C o
0043340 m p i l e R u l e O r L a b e l
0043360 D 1 \r ( I 1 r u l e S e t
0043400 S o u r c e I 0 s e l f )
0043420 \0 1 \0 \0 \0 002 h 027 \0 \0 ` \0 \0 002 001
0043440 g \0 \0 360 262 032 ` \0 \0 001 ` \0 \0 002 027 \0
0043460 \0 277 027 \0 \0 277 ` \0 \0 002 027 \0 \0 277 \b \0
0043500 \0 @ A \n \0 \0 020 \0 ( 5 6 Q C o m
0043520 p i l e R u l e 5 1 Q F l u
0043540 s h C o m m e n t ? ) \r ( 4 5 Q
0043560 r u l e S e t T o k e n s 4
0043600 1 Q r u l e S e t T o k e n s
0043620 3 5 Q r u l e L a b e l 3
0043640 1 Q r u l e S e t T o k e n s
0043660 2 5 Q r u l e S e t T o k e
0043700 n s 2 1 Q r u l e S e t T o
0043720 k e n s 1 3 Q : 6 r u l
0043740 e S e t T o k e n s 3 r u l
0043760 e L a b e l ) \r N I L \r C o n t
0044000 a i n s I t e m D 1 \r ( I 1
0044020 e x p r I 0 i t e m )
0044040 \0 026 \0 \0 \0 002 A 003 243 @ A 360 020 @ A 001
0044060 \n \0 \0 265 371 A 002 b 002 260 356 \0 ( 1 4 Q
0044100 C o n t a i n s I t e m ) \r N
0044120 I L \r ( ) \r E x p r C o d e G e
0044140 n D 1 \r ( P 4 a r g 2 P
0044160 3 a r g 1 P 2 o p e r
0044200 a t o r P 1 u n a r y O p
0044220 r s P 0 n o P o p s F
0044240 5 a r g S t a c k F 6 o
0044260 p r S t a c k F 7 n e x t
0044300 T o k e n F 1 0 Q r e d u
0044320 c e d A r g F 1 1 Q p r e
0044340 v T y p e ) 001 246 005 005 \0 \0 o \0 \0
0044360 \0 o \0 \0 \0 021 2 004 V 001 V 002 c \f 277 Z
0044400 d d I 034 255 d H 034 263 025 277 U 001 U 002 c
0044420 \n 277 \ 277 U 001 U 002 c \n 277 273 J d g \0
0044440 \0 360 262 ' 277 W 016 g \0 \0 360 262 024 ` \0 \0
0044460 002 027 \0 \0 001 c 016 277 g \0 \0 c 022 h 020 o
0044500 \0 \0 \0 \t \0 \0 261 001 C g \0 \0 360 231 o \0
0044520 \0 \0 \t \0 \0 261 001 4 J d g \0 \0 360 234 277
0044540 g \0 \0 K L h 032 032 032 261 001 g \0 \0 360
0044560 233 g \0 \0 K L h 032 032 032 261 001 017 J d g
0044600 \0 \0 360 232 277 g \0 \0 K h 032 032 261 \0 375 g
0044620 \0 \0 360 233 g \0 \0 K L h 032 032 032 261 \0 354
0044640 J d g \0 \0 360 234 277 g \0 \0 K L h 032 032
0044660 032 261 \0 330 g \0 \0 360 233 g \0 \0 K L h 032
0044700 032 032 261 \0 307 J d g \0 \0 360 234 277 g \0 \0
0044720 K L h 032 032 032 261 \0 263 g \0 \0 360 233 g \0
0044740 \0 K L h 032 032 032 261 \0 242 J d g \0 \0 360
0044760 234 277 g \0 \0 K L h 032 032 032 261 \0 216 g \0
0045000 \0 360 232 g \0 \0 K L h 032 032 032 260 } J d
0045020 g \0 \0 360 233 277 g \0 \0 K L h 032 032 032 260
0045040 j g \0 \0 360 232 g \0 \0 K L h 032 032 032 260
0045060 Z J d g \0 \0 360 233 277 g \0 \0 K L h 032
0045100 032 032 260 G g \0 \0 360 232 g \0 \0 K L h 032
0045120 032 032 260 7 J d g \0 \0 360 233 277 g \0 \0 K
0045140 L h 032 032 032 260 $ g \0 \0 360 230 g \0 \0 K
0045160 h 032 032 260 026 J g \0 \0 360 225 K L \n \0 \0
0045200 207 o \0 \0 \0 J \n \0 \0 c 020 d U 032 c \n
0045220 h 020 \0 ( 6 3 3 Q F l u s h R u
0045240 l e 6 2 2 Q C o m p i l e P
0045260 u t T e r m 1 4 7 Q F l u s
0045300 h R u l e 1 3 0 Q F l u s h
0045320 R u l e ) \r ( 6 1 3 Q _ 6 0
0045340 1 Q N O T 5 7 4 Q ~ 5 6
0045360 1 Q F M E M B 5 5 3 Q < <
0045400 5 3 6 Q N E Q 5 3 1 Q ~
0045420 = 5 1 6 Q E Q U A L S 5 1
0045440 0 Q = = 4 7 3 Q E Q 4 6
0045460 6 Q = 4 5 3 Q G E Q 4 4
0045500 5 Q > = 4 3 0 Q G R E A T
0045520 E R P 4 2 3 Q > 4 0 7 Q
0045540 L E Q 4 0 1 Q < = 3 6 3 Q
0045560 L E S S P 3 5 6 Q < 3 4
0045600 2 Q Q U O T I E N T 3 3 4 Q
0045620 / 3 1 6 Q T I M E S 3 1
0045640 1 Q * 2 7 5 Q M I N U S M
0045660 I N U S 2 6 7 Q - - 2 5 1
0045700 Q P L U S P L U S 2 4 4 Q
0045720 + + 2 3 2 Q M I N U S 2 2
0045740 4 Q - 1 - 2 0 6 Q D I F F
0045760 E R E N C E 2 0 1 Q - 1 6
0046000 5 Q P L U S 1 5 7 Q + 1
0046020 3 6 Q % ] 1 1 5 Q o p e r
0046040 a n d 1 0 6 Q r u l e S e t
0046060 T o k e n s 1 0 2 Q r u l e
0046100 S e t T o k e n s 7 4 Q % ]
0046120 6 3 Q % [ ) \r ( 6 2 7 Q "
0046140 U n r e c o g n i z e d o p e
0046160 r a t o r " 1 4 4 Q " B r
0046200 a c k e t e r r o r i n e
0046220 x p r e s s i o n " 1 2 5 Q
0046240 " B r a c k e t e r r o r i
0046260 n e x p r e s s i o n " 7
0046300 ( - 1 - ~ ) 3 ( % [ % ]
0046320 ) ) \r F P r e c e d e n c e D
0046340 1 \r ( I 0 o p e r a t o r )
0046360 \0 243 \0 \0 \0 001 @ d g \0 \0 360 222 m 377
0046400 020 g \0 \0 360 222 l 006 020 @ d g \0 \0 360 222
0046420 l 003 020 g \0 \0 360 263 371 @ d g \0 \0 360 263
0046440 361 g \0 \0 360 263 353 @ d g \0 \0 360 263 343 d
0046460 g \0 \0 360 222 l 005 020 d g \0 \0 360 263 370 g
0046500 \0 \0 360 221 k 020 @ d g \0 \0 360 263 370 g \0
0046520 \0 360 263 362 @ d g \0 \0 360 263 352 g \0 \0 360
0046540 263 344 @ d g \0 \0 360 263 334 g \0 \0 360 263 326
0046560 @ d g \0 \0 360 263 316 d g \0 \0 360 222 l 002
0046600 020 d g \0 \0 360 263 257 g \0 \0 360 222 m 376 020
0046620 o \0 \0 \0 @ \n \0 \0 020 \0 ( 2 4 0 Q
0046640 F l u s h R u l e ) \r ( 2 2 3 Q
0046660 e n d E x p r 2 1 5 Q ~
0046700 2 0 4 Q _ 1 7 5 Q < < 1
0046720 6 5 Q ~ = 1 5 7 Q = = 1
0046740 4 7 Q = 1 4 1 Q > = 1 3
0046760 1 Q > 1 2 3 Q < = 1 1 2
0047000 Q < 1 0 4 Q / 7 3 Q *
0047020 6 4 Q - - 5 4 Q + + 4
0047040 6 Q - 1 - 3 6 Q - 2 6 Q
0047060 + 1 4 Q % ] 4 % [ ) \r
0047100 ( 2 3 4 Q " U n r e c o g n i
0047120 z e d o p e r a t o r " ) \r F
0047140 o r T e m p l a t e D 1 \r ( P
0047160 0 w t I 1 w h i l e T
0047200 e m p l a t e I 0 c o d e
0047220 T e m p l a t e ) \0 I 001 \0 \0 002
0047240 g \0 \0 g \0 \0 g \0 \0 A \n \0 \0 255 A g
0047260 \0 \0 g \0 \0 h 032 032 \n \0 \0 200 A h 032 032
0047300 032 021 001 \0 ` \0 \0 g \0 \0 360 231 g \0 \0 g
0047320 \0 \0 h 032 032 202 g \0 \0 g \0 \0 H \v \0 \0
0047340 g \0 \0 @ \v \0 \0 020 \0 ( 1 0 6 Q D
0047360 S U B S T 7 7 Q S U B S T
0047400 3 2 Q \ A P P E N D 2 1 4 Q
0047420 C o n t a i n s I t e m ) \r (
0047440 1 0 2 Q ^ f o r L o o p 7 3
0047460 Q r u l e S e t 7 0 Q ^ r
0047500 u l e s 6 1 Q ^ r u l e s
0047520 5 6 Q C O N D 5 1 Q F O R
0047540 1 4 6 Q c o n t r o l T y p
0047560 e 2 4 Q r u l e S e t 2 1
0047600 Q D O 1 0 Q r u l e S e t
0047620 5 ^ v a l u e 2 S E T Q
0047640 ) \r ( ) \r G P r e c e d e n c e
0047660 D 1 \r ( I 0 o p e r a t o
0047700 r ) \0 241 \0 \0 \0 001 @ d g \0 \0 360 222
0047720 l 006 020 g \0 \0 360 222 m 377 020 @ d g \0 \0
0047740 360 222 l 002 020 g \0 \0 360 263 371 @ d g \0 \0
0047760 360 263 361 g \0 \0 360 263 353 @ d g \0 \0 360 263
0050000 343 d g \0 \0 360 222 l 004 020 d g \0 \0 360 263
0050020 370 g \0 \0 360 221 k 020 @ d g \0 \0 360 263 370
0050040 g \0 \0 360 263 362 @ d g \0 \0 360 263 352 g \0
0050060 \0 360 263 344 @ d g \0 \0 360 263 334 g \0 \0 360
0050100 263 326 @ d g \0 \0 360 263 316 g \0 \0 360 263 224
0050120 @ d g \0 \0 360 263 261 g \0 \0 360 222 m 376 020
0050140 o \0 \0 \0 @ \n \0 \0 020 \0 ( 2 3 6 Q
0050160 F l u s h R u l e ) \r ( 2 2 1 Q
0050200 e n d E x p r 2 1 3 Q ~
0050220 2 0 3 Q _ 1 7 5 Q ~ = 1
0050240 6 5 Q < < 1 5 7 Q = = 1
0050260 4 7 Q = 1 4 1 Q > = 1 3
0050300 1 Q > 1 2 3 Q < = 1 1 2
0050320 Q < 1 0 4 Q / 7 3 Q *
0050340 6 4 Q - - 5 4 Q + + 4
0050360 6 Q - 1 - 3 6 Q - 2 6 Q
0050400 + 1 4 Q % ] 4 % [ ) \r
0050420 ( 2 3 2 Q " U n r e c o g n i
0050440 z e d o p e r a t o r " ) \r G
0050460 e t R u l e S t r i n g s D 1
0050500 \r ( P 2 r u l e S t r i n g
0050520 s P 1 s t o p P o s P
0050540 0 s t a r t P o s I 0 s
0050560 o u r c e R u l e s ) \0 0 006 \0
0050600 \0 001 021 0 002 j Y 021 0 005 I k 330 270 g \0
0050620 \0 @ H \v \0 \0 Y 262 030 @ H I \v \0 \0 275
0050640 L 265 \t M h 032 \ 273 260 342 M & 274 260 335 K
0050660 020 \0 ( 3 4 Q S U B S T R I N G
0050700 2 3 Q S T R P O S ) \r ( 1 6
0050720 Q ; ) \r N I L \r O S S e t C o
0050740 d e D 1 \r N I L \0 ! \0 \0 \0 \0
0050760 ` \0 \0 237 g \0 \0 g \0 \0 ` \0 \0 i h 032
0051000 032 032 032 020 g \0 \0 ` \0 \0 i h 032 032 032 020
0051020 \0 N I L \r ( 3 1 Q o n e S h o
0051040 t F l g 2 6 Q S E T Q 1 4
0051060 Q o n e S h o t F l g 1 1 Q
0051100 ^ t a s k 6 _ @ 2 r s
0051120 T a s k F l g ) \r N I L \r O S T
0051140 e s t C o d e D 1 \r N I L \0
0051160 $ \0 \0 \0 \0 ` \0 \0 262 026 g \0 \0 g \0 \0
0051200 g \0 \0 ` \0 \0 h 032 032 032 h 032 032 020 g \0
0051220 \0 ` \0 \0 h 032 032 020 \0 N I L \r ( 3 6
0051240 Q o n e S h o t F l g 3 3 Q
0051260 N O T 2 0 Q o n e S h o t
0051300 F l g 1 5 Q ^ t a s k 1 2
0051320 Q @ 7 N O T 2 r s T a
0051340 s k F l g ) \r N I L \r T r a c e
0051360 L H S C o d e G e n D 1 \r ( P
0051400 7 v a r P 3 c o d e
0051420 P 2 r u l e C o d e P 1
0051440 t r a c e C o d e P 0 v
0051460 a r C o d e ) \0 324 \b \0 \0 \0 021 @
0051500 003 ` \0 \0 262 B g \0 \0 021 0 006 ` \0 \0 260
0051520 0 d 001 021 001 \a o \0 \0 \0 O 016 \t \0 \0 o
0051540 \0 \0 \0 \n \0 \0 O 016 \t \0 \0 h 032 032 032 022
0051560 \ 003 232 M 265 003 202 261 \0 221 L ^ ] 277 002 003
0051600 265 321 N 022 032 270 g \0 \0 g \0 \0 ` \0 \0 \t
0051620 \0 \0 h 032 032 g \0 \0 h 032 032 032 Z g \0 \0
0051640 ` \0 \0 d 262 034 d i 360 263 027 d 005 001 245 d
0051660 005 002 241 005 003 265 \v g \0 \0 ` \0 \0 h 032 032
0051700 ` \0 \0 d 262 034 d i 360 263 027 d 005 001 245 d
0051720 005 002 241 005 003 265 \v g \0 \0 ` \0 \0 h 032 032
0051740 ` \0 \0 h 032 032 032 032 Y h [ H 265 027 J 265
0051760 017 g \0 \0 o \0 \0 \0 I K 032 032 032 020 K 032
0052000 273 260 360 K 032 273 260 350 \t \0 \0 ] L 031 261 377
0052020 o \0 ( 3 1 4 Q L A S T 1 2 3
0052040 Q U I D 5 4 Q C o m p i l
0052060 e G e t T e r m 4 7 Q C O N
0052100 C A T 4 0 Q U n P a r s e T
0052120 e r m ) \r ( 2 6 5 Q P R O G N
0052140 2 4 4 Q r u l e N u m b e r
0052160 2 3 6 Q r u l e L a b e l
0052200 2 3 3 Q Q U O T E 2 0 4 Q
0052220 r u l e L a b e l 1 7 6 Q r
0052240 s N a m e 1 7 3 Q Q U O T E
0052260 1 4 4 Q r s N a m e 1 4 1
0052300 Q T r a c e L H S 1 3 1 Q
0052320 P r i n t 1 2 0 Q r u l e O
0052340 b j e c t 1 1 5 Q G e t O b
0052360 j F r o m U I D 1 1 2 Q _
0052400 2 0 Q d e b u g V a r s 1 2
0052420 Q W R I T E T T Y 5 d e b
0052440 u g V a r s ) \r ( 2 7 1 Q ( *
0052460 R u l e T r a c i n g C o
0052500 d e ) 4 4 Q " = " 3 3 Q
0052520 " " ) \r T r a c e R H S C o d
0052540 e G e n D 1 \r ( P 7 v a r
0052560 P 3 c o d e P 2 r u
0052600 l e C o d e P 1 t r a c e
0052620 C o d e P 0 v a r C o d e
0052640 ) \0 324 \b \0 \0 \0 021 @ 003 ` \0 \0 262 B
0052660 g \0 \0 021 0 006 ` \0 \0 260 0 d 001 021 001 \a
0052700 o \0 \0 \0 O 016 \t \0 \0 o \0 \0 \0 \n \0 \0
0052720 O 016 \t \0 \0 h 032 032 032 022 \ 003 232 M 265 003
0052740 202 261 \0 221 L ^ ] 277 002 003 265 321 N 022 032 270
0052760 g \0 \0 g \0 \0 ` \0 \0 \t \0 \0 h 032 032 g
0053000 \0 \0 h 032 032 032 Z g \0 \0 ` \0 \0 d 262 034
0053020 d i 360 263 027 d 005 001 245 d 005 002 241 005 003 265
0053040 \v g \0 \0 ` \0 \0 h 032 032 ` \0 \0 d 262 034
0053060 d i 360 263 027 d 005 001 245 d 005 002 241 005 003 265
0053100 \v g \0 \0 ` \0 \0 h 032 032 ` \0 \0 h 032 032
0053120 032 032 Y h [ H 265 027 J 265 017 g \0 \0 o \0
0053140 \0 \0 I K 032 032 032 020 K 032 273 260 360 K 032 273
0053160 260 350 \t \0 \0 ] L 031 261 377 o \0 ( 3 1 4
0053200 Q L A S T 1 2 3 Q U I D
0053220 5 4 Q C o m p i l e G e t T e
0053240 r m 4 7 Q C O N C A T 4 0
0053260 Q U n P a r s e T e r m ) \r (
0053300 2 6 5 Q P R O G N 2 4 4 Q
0053320 r u l e N u m b e r 2 3 6 Q
0053340 r u l e L a b e l 2 3 3 Q Q
0053360 U O T E 2 0 4 Q r u l e L a
0053400 b e l 1 7 6 Q r s N a m e
0053420 1 7 3 Q Q U O T E 1 4 4 Q
0053440 r s N a m e 1 4 1 Q T r a c
0053460 e R H S 1 3 1 Q P r i n t
0053500 1 2 0 Q r u l e O b j e c t
0053520 1 1 5 Q G e t O b j F r o m U
0053540 I D 1 1 2 Q _ 2 0 Q d e
0053560 b u g V a r s 1 2 Q W R I T
0053600 E T T Y 5 d e b u g V a r s
0053620 ) \r ( 2 7 1 Q ( * R u l e
0053640 T r a c i n g C o d e ) 4 4
0053660 Q " = " 3 3 Q " " ) \r (
0053700 P R E T T Y C O M P R I N T L
0053720 O O P S R U L E S C C O M S ) \r
0053740 ( R P A Q Q L O O P S R U L E
0053760 S C C O M S ( ( * C o p y r
0054000 i g h t ( c ) 1 9 8 2 b y
0054020 X e r o x C o r p o r a t i
0054040 o n ) ( * W r i t t e n i
0054060 n A u g u s t 1 9 8 2 b y
0054100 M a r k \r S t e f i k , A
0054120 l a n B e l l , a n d D a
0054140 n n y B o b r o w ) ( * F
0054160 n s f o r c o m p i l i n g
0054200 L O O P S R u l e S e t s .
0054220 ) ( F N S * R U L E C O M
0054240 P I L E F N S ) ( \r V A R S
0054260 ( A S S U M E L I S P F L G ) )
0054300 ) ) \r ( R P A Q Q R U L E C O
0054320 M P I L E F N S ( A u d i t R
0054340 e c o r d C o d e G e n B r e
0054360 a k L H S C o d e G e n B r e
0054400 a k R H S C o d e G e n C h e
0054420 c k V a r i a b l e N a m e C o
0054440 n f l i c t \r C o m p i l e A
0054460 s s n S t m n t C o m p i l e
0054500 C o m m e n t C o m p i l e C
0054520 o m p o s i t e G e t T e r m
0054540 C o m p i l e C o m p o s i t e
0054560 P u t T e r m C o m p i l e E
0054600 x p r \r C o m p i l e G e t T
0054620 e r m C o m p i l e L H S C
0054640 o m p i l e O p P r e c e d e n
0054660 c e E x p r C o m p i l e P a
0054700 r e n E x p r C o m p i l e P
0054720 o p S t m n t C o m p i l e P
0054740 o p T e r m s \r C o m p i l e
0054760 P r o p G e t T e r m C o m p
0055000 i l e P r o p P u t T e r m C
0055020 o m p i l e P u s h S t m n t
0055040 C o m p i l e P u s h T e r m
0055060 C o m p i l e P u t T e r m \r
0055100 C o m p i l e Q u o t e d C o n
0055120 s t a n t C o m p i l e R H S
0055140 C o m p i l e R u l e C o m
0055160 p i l e R u l e 1 C o m p i l
0055200 e R u l e L i s t C o m p i l
0055220 e R u l e O r L a b e l \r C o
0055240 n t a i n s I t e m E x p r C
0055260 o d e G e n F P r e c e d e n
0055300 c e F o r T e m p l a t e G
0055320 P r e c e d e n c e G e t R u
0055340 l e S t r i n g s O S S e t C
0055360 o d e O S T e s t C o d e \r
0055400 T r a c e L H S C o d e G e n
0055420 T r a c e R H S C o d e G e n )
0055440 ) \r ( R P A Q Q A S S U M E L
0055460 I S P F L G N I L ) \r N I L \r
0055500