$ od -c -N 50000 [phylum]<Tamarin>Herring>DT>ASM!1
0000000 006 001 ( F I L E C R E A T E D "
0000020 2 1 - J u n - 8 6 1 4 : 5 3 :
0000040 2 4 " 006 004 { E R I S } < T A M
0000060 A R I N > W O R K > D T > A S M
0000100 . ; 2 8 006 001 3 4 2 2 7 2 Q \r \r
0000120 c h a n g e s t o
0000140 : ( V A R S A S M C O M S
0000160 ) \r \t \t ( F N S A S M .
0000200 E A T C O D E A S M . E A T C
0000220 O D E . D O L A B E L ) \r \r
0000240 p r e v i o u s d a t
0000260 e : " 1 3 - J u n - 8 6 1 2
0000300 : 2 7 : 1 7 " { E R I S } < T
0000320 A M A R I N > W O R K > D T > A
0000340 S M . ; 2 7 ) \r \r \r ( * C o p
0000360 y r i g h t ( c ) 1 9 8 5 ,
0000400 1 9 8 6 b y X e r o x C
0000420 o r p o r a t i o n . A l l
0000440 r i g h t s r e s e r v e d .
0000460 ) \r \r ( P R E T T Y C O M P R I
0000500 N T A S M C O M S ) \r \r ( R P
0000520 A Q Q 006 002 A S M C O M S 006 001
0000540 [ ( * s e e a s s o c i a t
0000560 e d d o c D 2 T . t e d i t
0000600 a n d A s m I n t e r n a l
0000620 . t e d i t ) \r \t \t ( F I L
0000640 E S T A M G E T M A C H I N E
0000660 ) \r \t \t ( * h a s T A M
0000700 . G E T M A C H I N E ) \r \t \t
0000720 ( L O C A L V A R S . T )
0000740 \r \t \t ( C O M S ( * *
0000760 g l o b a l s ) \r \t \t \t ( * \
0001000 A S M . O U T P U T L I S T I N
0001020 G g e t s t h e " o u t p
0001040 u t l i s t i n g " w h e n
0001060 d o n e - - \ A S M . P V
0001100 A R M A P \r \t \t \t g e t
0001120 s a m a p : n o n - n a m
0001140 e - t a b l e v a r i a b l e
0001160 s - > s l o t n u m b e r
0001200 s - - \ A S M . S T A T S
0001220 g e t s a \r \t \t \t l i
0001240 s t < f n n a m e , # i v
0001260 a r s , # p v a r s , # f v
0001300 a r s , m a x s t k > ) \r \t
0001320 \t \t ( G L O B A L V A R S \ A
0001340 S M . O U T P U T L I S T I N G
0001360 \ A S M . P V A R M A P \ A
0001400 S M . S T A T S ) \r \t \t \t ( *
0001420 h a s h a r r a y s f o r
0001440 p r o c e s s i n g l a b e l
0001460 s ) \r \t \t \t ( G L O B A L V A R
0001500 S \ A S M . L S E E N ? \ A
0001520 S M . L 2 S T A C K \ A S M .
0001540 L 2 P C ) \r \t \t \t ( I N I T V A
0001560 R S \ A S M . L S E E N ? \
0001600 A S M . L 2 S T A C K \ A S M
0001620 . L 2 P C ) ) \r \t \t ( C O M
0001640 S ( * * t o p l e v e l
0001660 f l o w o f c o n t r o l
0001700 ) \r \t \t \t ( F N S A S M A S
0001720 M . 1 ) ) \r \t \t ( C O M S
0001740 ( * * i n p u t h e a d e
0001760 r a n d n a m e t a b l e
0002000 s ) \r \t \t \t ( F N S A S M . E
0002020 A T H D R + N T S A S M . E A
0002040 T F N D E C L A S M . E A T D
0002060 F N H E A D E R D E C L A S M
0002100 . E A T V A R D E C L S ) \r \t \t
0002120 \t ( F N S A S M . A L L O C V
0002140 A R S . D A S M . C K D I R V
0002160 S . D ) \r \t \t \t ( F N S A S M
0002200 . A L L O C V A R S . T A S M
0002220 . C K D I R V S . T ) \r \t \t \t (
0002240 F N S A S M . N A . D ) \r \t \t
0002260 \t ( F N S A S M . C K V A R N
0002300 A M E ) ) \r \t \t ( C O M S
0002320 ( * * c o d e p a s s 1
0002340 - - I L - > O L T - -
0002360 d o a l l m a c r o - a
0002400 n d g e n e r i c - e x p a
0002420 n s i o n t h a t \r \t \t \t
0002440 c a n b e d o n e o n
0002460 f i r s t p a s s - - t
0002500 h e n r e p e a t u n t i l
0002520 s t a c k m o d e l l i n g
0002540 i s f i n i s h e d \r \t \t
0002560 \t i f p o s s i b l e )
0002600 \r \t \t \t ( F N S A S M . E N T
0002620 R Y V E C T O R ) \r \t \t \t ( F N
0002640 S A S M . C O D E P A S S 1
0002660 A S M . C O D E P A S S 1 . I N
0002700 N E R A S M . E A T C O D E
0002720 A S M . E A T C O D E . D O L A
0002740 B E L ) \r \t \t \t ( F N S A S M
0002760 . S T K . I N S T R A S M . S
0003000 T K G E N C L E V A D J A S M
0003020 . S T K A P P L Y F N . L E V A
0003040 D J . D ) \r \t \t \t ( F N S A S
0003060 M . S T K . P A S S L A B E L
0003100 A S M . S T K . J U M P T O L A
0003120 B E L ) \r \t \t \t ( F N S A S M
0003140 . S T K M A X A S M . S T K A
0003160 D D ) \r \t \t \t ( F N S A S M .
0003200 S T K B I N D . D A S M . S T
0003220 K U N B I N D . D A S M . S T
0003240 K O K ? . D ) \r \t \t \t ( F N S
0003260 A S M . S T K S E T . T A S M
0003300 . S T K O K ? . T ) ) \r \t \t
0003320 ( C O M S ( * * c o d e
0003340 p a s s 2 - - o n O L T
0003360 - - d o v a r i a b l e -
0003400 r e f e r e n c e g e n e r i
0003420 c s < o n T a m a r i n t
0003440 h e \r \t \t \t c h o i c e
0003460 o f o p c o d e s m a y
0003500 d e p e n d o n s t a c k -
0003520 m a x ? > - - d e t e r m i
0003540 n e l e n g t h o f \r \t \t
0003560 \t e v e r y t h i n g i
0003600 n c l u d i n g j u m p g e
0003620 n e r i c s - - a l s o u
0003640 s e s A S M . V A R G E N C 2
0003660 B L \r \t \t \t A S M . J U
0003700 M P G E N C 2 B L ) \r \t \t \t ( F
0003720 N S A S M . C O D E P A S S 2
0003740 A S M . A L L C O D E L E N G
0003760 T H S A S M . R E D O J G L E
0004000 N G T H S ) ) \r \t \t ( C O M
0004020 S ( * * e m i t h e a d
0004040 e r a n d n a m e t a b l
0004060 e s ) \r \t \t \t ( F N S A S M .
0004100 M A K E C O D E A R R A Y A S
0004120 M . E M I T H D R + N T S ) \r \t
0004140 \t \t ( F N S A S M . E M I T H
0004160 D R + N T S . D ) \r \t \t \t ( F N
0004200 S A S M . E M I T H D R + N T
0004220 S . T ) \r \t \t \t ( F N S A S M
0004240 . E M I T A N N T A S M . E M
0004260 I T P A R T O F A N N T ) \r \t \t
0004300 \t ( F N S A S M . P U T B ) )
0004320 \r \t \t ( C O M S ( * *
0004340 c o d e p a s s 3 - - o
0004360 n O L T e m i t t i n g t
0004400 o C O D E A R R A Y - - f
0004420 i n a l s y n t a x c h e c
0004440 k i n g a n d \r \t \t \t
0004460 e m i t b y t e c o d e ) \r
0004500 \t \t \t ( F N S A S M . E M I T
0004520 C O D E A S M . E M I T I N S
0004540 T R ) \r \t \t \t ( F N S A S M .
0004560 E M I T V A N I L L A I N S T R
0004600 A S M . E M I T B I N D . D
0004620 A S M . E M I T U N B I N D . T
0004640 A S M . E M I T X B I T S . N
0004660 . F D \r \t \t \t A S M
0004700 . E M I T T Y P E P A S M . E
0004720 M I T X V A R A S M . E M I T
0004740 J U M P . D A S M . E M I T J
0004760 U M P . T ) \r \t \t \t ( F N S A
0005000 S M . E M I T B A S M . E M I
0005020 T B S A S M . E M I T B L A
0005040 S M . E M I T A T O M I N D E X
0005060 A S M . E M I T P C O N S T )
0005100 \r \t \t \t ( F N S A S M . V A R
0005120 G E N C 2 B L A S M . X P D V
0005140 A R G E N C ) \r \t \t \t ( F N S
0005160 A S M . J U M P G E N C 2 B L
0005200 A S M . X P D J U M P G E N C
0005220 A S M . X P D J U M P G E N C .
0005240 D A S M . X P D J U M P G E N
0005260 C . T \r \t \t \t A S M
0005300 . X P D J U M P G E N C . X 1
0005320 A S M . X P D J U M P G E N C .
0005340 X 2 ) ) \r \t \t ( C O M S (
0005360 * * e r r o r h a n d l i
0005400 n g a n d t h e " o u t p
0005420 u t l i s t i n g " - - s
0005440 e e A s m I n t e r n a l . t
0005460 e d i t ) \r \t \t \t ( F N S A S
0005500 M . P H A S E M A R K A S M .
0005520 E R R ) \r \t \t \t ( F N S A S M
0005540 . L I S T A S M . S M A S H L
0005560 I S T ) \r \t \t \t ( F N S A S M
0005600 . T O P I C A S M . S M A S H
0005620 T O P I C ) \r \t \t \t ( * * s
0005640 p e c i f i c e r r o r m e
0005660 s s a g e s t h a t c a n
0005700 b e g e n e r a t e d f o m
0005720 m o r e t h a n o n e p
0005740 l a c e o n \r \t \t \t d
0005760 i f f e r e n t p a s s e s
0006000 o n t h e s a m e i n s t
0006020 r u c t i o n ) \r \t \t \t ( F N S
0006040 A S M . E R R . N I L L A B E
0006060 L A S M . E R R . L A B E L R
0006100 E P E A T E D A S M . E R R .
0006120 L A B E L U N D E F ) \r \t \t \t (
0006140 F N S A S M . E R R . N O T L
0006160 I T A T O M A S M . E R R . N
0006200 O O P C O D E ) \r \t \t \t ( F N S
0006220 A S M . E R R . N I L F O R M
0006240 A T A S M . E R R . F N X F O
0006260 R M A T A S M . E R R . B I N
0006300 D F O R M A T \r \t \t \t
0006320 A S M . E R R . J U M P F O R
0006340 M A T ) \r \t \t \t ( F N S A S M
0006360 . E R R . S T A C K S T Y L E
0006400 A S M . E R R . U N K N O W N S
0006420 T A C K A S M . E R R . A M B
0006440 I G S T A C K ) ) \r \t \t ( C
0006460 O M S ( * * m i s c ) \r \t
0006500 \t \t ( F N S A S M . V A R L K
0006520 U P A S M . G E T O P C O D E
0006540 A S M . O L T A F T E R C O D
0006560 E : A S M . C K O P N A R G S
0006600 \r \t \t \t A S M . C K
0006620 V A R A L L O C S T Y L E ) \r \t
0006640 \t \t ( F N S A S M . O P K A R
0006660 G R A N G E A S M . M A K E O
0006700 P K B Y T E ) \r \t \t \t ( F N S
0006720 A S M . R A N G E ? A S M . P
0006740 O S I N L I S T A S M . C E I
0006760 L ) \r \t \t \t ( F N S A S M . P
0007000 V A R M A P A S M . H E L P )
0007020 \r \t \t \t ( F N S A S M . N E X
0007040 T L A B E L ) ) \r \t \t ( D E
0007060 C L A R E : D O N T E V A L @
0007100 L O A D D O E V A L @ C O M P
0007120 I L E D O N T C O P Y C O M
0007140 P I L E R V A R S ( A D D V A
0007160 R S ( N L A M A ) \r \t \t \t \t \t
0007200 \t \t \t \t \t \t ( N L A M L ) \r \t \t
0007220 \t \t \t \t \t \t \t \t \t ( L A M A A
0007240 S M . E R R ] \r ) \r \r \r \r 006 004 (
0007260 * s e e a s s o c i a t e d
0007300 d o c D 2 T . t e d i t a
0007320 n d A s m I n t e r n a l . t
0007340 e d i t ) 006 001 \r \r ( F I L E S L
0007360 O A D T A M G E T M A C H I N
0007400 E ) \r \r \r \r 006 004 ( * h a s T
0007420 A M . G E T M A C H I N E ) 006 001
0007440 \r \r ( D E C L A R E : D O E V
0007460 A L @ C O M P I L E D O N T C
0007500 O P Y \r \r ( L O C A L V A R S
0007520 . T ) \r ) \r \f 006 004 ( * * g
0007540 l o b a l s ) 006 001 \r \r \r \r \r 006 004
0007560 ( * \ A S M . O U T P U T L I
0007600 S T I N G g e t s t h e "
0007620 o u t p u t l i s t i n g "
0007640 w h e n d o n e - - \ A S
0007660 M . P V A R M A P g e t s a
0007700 m a p : \r n o n - n a m e -
0007720 t a b l e v a r i a b l e s
0007740 - > s l o t n u m b e r s
0007760 - - \ A S M . S T A T S g e
0010000 t s a l i s t < f n n a
0010020 m e , # i v a r s , # p v a
0010040 r s , \r # f v a r s , m a x
0010060 s t k > ) 006 001 \r \r ( D E C L A
0010100 R E : D O E V A L @ C O M P I
0010120 L E D O N T C O P Y \r \r ( G L
0010140 O B A L V A R S \ A S M . O U
0010160 T P U T L I S T I N G \ A S M
0010200 . P V A R M A P \ A S M . S T
0010220 A T S ) \r ) \r \r \r \r 006 004 ( * h
0010240 a s h a r r a y s f o r p
0010260 r o c e s s i n g l a b e l s
0010300 ) 006 001 \r \r ( D E C L A R E : D
0010320 O E V A L @ C O M P I L E D O
0010340 N T C O P Y \r \r ( G L O B A L V
0010360 A R S \ A S M . L S E E N ?
0010400 \ A S M . L 2 S T A C K \ A S
0010420 M . L 2 P C ) \r ) \r \r ( R P A Q
0010440 ? 006 002 \ A S M . L S E E N ? 006
0010460 001 N I L ) \r \r ( R P A Q ? 006
0010500 002 \ A S M . L 2 S T A C K 006 001
0010520 N I L ) \r \r ( R P A Q ? 006 002 \
0010540 A S M . L 2 P C 006 001 N I L ) \r
0010560 \f 006 004 ( * * t o p l e v e
0010600 l f l o w o f c o n t r o
0010620 l ) 006 001 \r \r ( D E F I N E Q \r \r
0010640 ( 006 004 A S M 006 001 \r [ L A M B
0010660 D A ( I N P U T L I S T M A
0010700 C H I N E O P T I O N S E R
0010720 R F I L E )
0010740 006 003 ( * j m h "
0010760 3 1 - M a y - 8 6 1 1 : 2 3 "
0011000 ) 006 001 \r \r 006
0011020 003 ( * * r e t u r n s ( n
0011040 E r r s . o b j e c t C o d
0011060 e T h i n g y ) - - r e t u
0011100 r n s o u t p u t L i s t i
0011120 n \ A S M . O U T P U T L I S
0011140 T I N G a n y w a y - - r
0011160 e t u r n s 006 001 \r \t 006 003 n
0011200 o n - n a m e - t a b l e v a
0011220 r i a b l e m a p i n \ A
0011240 S M . P V A R M A P a n d s
0011260 t a t s i n \ A S M . S T A
0011300 T S ) 006 001 \r \r \r \r
0011320 006 003 ( * * M A C H I N
0011340 E i s s o m e t h i n g t
0011360 h a t T A M . G E T M A C H I
0011400 N E c a n d e c o d e , t
0011420 o u s e i n s e t t i n g
0011440 u p o u r m a c h i n e -
0011460 s t y l e s p e c v a r s ) 006
0011500 001 \r \r \r \r 006
0011520 003 ( * * O P T I O N S a r
0011540 e l i s t o f o r o n e
0011560 o f - - D = l i s t e
0011600 r r o r m e s s a g e s e v
0011620 e n i f d u p l i c a t e d
0011640 , a n d t a g w i t h p
0011660 h a s e m a r k ) 006 001 \r \r \r \r
0011700 006 003 ( * *
0011720 i f E R R F I L E i s N I
0011740 L , e r r o r m e s s a g e
0011760 s a r e p r i n t e d t o
0012000 T a n d A S M . H E L P
0012020 c a l l s H E L P . e l s e
0012040 e r r o r m e s s a g e s
0012060 a r e p r i n t e d t o 006 001
0012100 \r \t 006 003 E R R F I L E , A
0012120 S M . H E L P p r i n t s i
0012140 t s a r g u m e n t s t h e
0012160 r e , a n d A S M . H E L P
0012200 c a l l s E R R O R ! ) 006 001
0012220 \r \r \r \r 006 003
0012240 ( * * A S M j u s t i n
0012260 i t i a l i z e s g l o b a l
0012300 v a r s , d e c l a r e s s
0012320 p e c v a r s , a n d m a k
0012340 e s u p t h e r e t u r n
0012360 v a l u e - - A S M . 1
0012400 a c t u a l l y c a l l s t
0012420 h e 006 001 \r \t 006 003 p h a s e
0012440 s ) 006 001 \r \r \r ( 006 002 i f
0012460 006 001 ( 006 001 N L I S T P 006 001 O
0012500 P T I O N S ) \r \t 006 002 t h e n 006
0012520 001 ( 006 001 S E T Q 006 001 O P T I
0012540 O N S ( 006 001 L I S T 006 001 O P
0012560 T I O N S ) ) ) \r ( 006 002
0012600 D E C L A R E 006 001 ( 006 001 G L O
0012620 B A L V A R S 006 001 \ A S M . O
0012640 U T P U T L I S T I N G \ A S
0012660 M . P V A R M A P \ A S M . S
0012700 T A T S ) ) \r
0012720
*
0013000 006 003 ( * i n i t i a l
0013020 i z e g l o b a l c a t c h
0013040 e r s - o f - d e b u g - i n f
0013060 o ) 006 001 \r ( 006 001 S E T Q
0013100 006 001 \ A S M . O U T P U T L I
0013120 S T I N G ( 006 001 Q U O T E 006 001
0013140 ? ? ) ) \r ( 006 001 S E T
0013160 Q 006 001 \ A S M . P V A R M A P
0013200 ( 006 001 Q U O T E 006 001 ? ? ) )
0013220 \r ( 006 001 S E T Q 006 001 \
0013240 A S M . S T A T S ( 006 001 Q U O
0013260 T E 006 001 ? ? ) ) \r ( 006
0013300 002 D E C L A R E 006 001 ( 006 001 G L
0013320 O B A L V A R S 006 001 \ A S M .
0013340 L S E E N ? \ A S M . L 2 S T
0013360 A C K \ A S M . L 2 P C ) ) \r
0013400
*
0013460 006 003 (
0013500 * i n i t i a l i z e g l o
0013520 b a l a r r a y s ) 006 001 \r
0013540 [ 006 002 i f 006 001 ( 006 001 O R 006
0013560 001 ( 006 001 N U L L 006 001 \ A S M
0013600 . L S E E N ? ) \r \t \t ( 006 001 N U
0013620 L L 006 001 \ A S M . L 2 S T A C
0013640 K ) \r \t \t ( 006 001 N U L L 006 001 \
0013660 A S M . L 2 P C ) ) \r \t 006 002 t h
0013700 e n 006 001 ( L E T ( ( N ( 006
0013720 001 I Q U O T I E N T 006 001 ( 006 001
0013740 L E N G T H 006 001 I N P U T L I
0013760 S T ) \r \t \t \t \t 1 0 )
0014000 ) ) \r \t \t ( 006 001 S E T Q
0014020 006 001 \ A S M . L S E E N ? (
0014040 006 001 H A S H A R R A Y 006 001 N )
0014060 ) \r \t \t ( 006 001 S E T Q 006
0014100 001 \ A S M . L 2 S T A C K (
0014120 006 001 H A S H A R R A Y 006 001 N )
0014140 ) \r \t \t ( 006 001 S E T Q 006
0014160 001 \ A S M . L 2 P C ( 006 001 H
0014200 A S H A R R A Y 006 001 N ] \r
0014220 ( 006 001 C L R H A S H 006 001 \
0014240 A S M . L 2 P C ) \r ( L
0014260 E T ( T A M . O U T P U T S T
0014300 Y L E T A M . L I N K I N F O
0014320 T A M . F N H D R S T Y L E
0014340 T A M . N T S T Y L E T A M .
0014360 V A R A L L O C S T Y L E T A
0014400 M . 1 S T V A R S L O T \r \t \t
0014420 \t T A M . S T A C K S T Y L
0014440 E T A M . M A X S T A C K T
0014460 A M . V A R X S T Y L E T A M
0014500 . A L P H A S T Y L E T A M .
0014520 O P K S T Y L E \r \t \t \t T
0014540 A M . J U M P S T Y L E T A M
0014560 . A S M F N P R O P S T A M .
0014600 O P C O D E P R O P S T A M .
0014620 L A M B D A E V S T A M . N L
0014640 A M B D A E V S \r \t \t \t T
0014660 A M . L A M B D A * E V T A M
0014700 . N L A M B D A * E V )
0014720 006 003 ( * w h a t M A C H
0014740 I N E i s t h i s ? ) 006 001 \r
0014760 ( 006 002 D E C L
0015000 A R E 006 001 ( 006 001 S P E C V A R
0015020 S 006 001 T A M . O U T P U T S T
0015040 Y L E T A M . L I N K I N F O
0015060 T A M . F N H D R S T Y L E
0015100 T A M . N T S T Y L E \r \t \t \t
0015120 \t T A M . V A R A L L O C S T Y
0015140 L E T A M . 1 S T V A R S L O
0015160 T T A M . S T A C K S T Y L E
0015200 T A M . M A X S T A C K \r \t
0015220 \t \t \t T A M . V A R X S T Y L E
0015240 T A M . A L P H A S T Y L E
0015260 T A M . O P K S T Y L E T A M
0015300 . J U M P S T Y L E \r \t \t \t \t
0015320 T A M . A S M F N P R O P S T
0015340 A M . O P C O D E P R O P S T
0015360 A M . L A M B D A E V S T A M
0015400 . N L A M B D A E V S \r \t \t \t
0015420 \t T A M . L A M B D A * E V T
0015440 A M . N L A M B D A * E V ) ) \r
0015460 ( 006 001 T A M .
0015500 G E T M A C H I N E 006 001 M A C
0015520 H I N E ) \r (
0015540 L E T ( ( O L T ( 006 001 C O N
0015560 S 006 001 ) ) \r \t L J
0015600 L C O D E A R R A Y L I N K
0015620 I N F O O W N E N T R Y V E C
0015640 T O R ? ) \r \r
0015660 006 003 ( * t h e t o p - l e
0015700 v e l v a r i a b l e s t h
0015720 e d a t a f l o w s t h r
0015740 o u g h - - L J L i s L
0015760 a b e l a n d J u m p L i s t ,
0016000 f o r j u m p - l e n g t h
0016020 r e s o l u t i o n ; 006 001 \r \t
0016040 006 003 i s a l i s t o f
0016060 L a b e l o r < T a i l o
0016100 f O L T S t a r t i n g w i
0016120 t h J u m p G e n e r i c ,
0016140 P C , l e n g t h > ) 006 001 \r \r
0016160 \r \t ( 006 002 D E C L A
0016200 R E 006 001 ( 006 001 S P E C V A R S
0016220 006 001 O L T L J L C O D E A
0016240 R R A Y L I N K I N F O O W
0016260 N E N T R Y V E C T O R ? ) ) \r
0016300 \t ( L E T ( ( E R
0016320 R S Y M B O L ( 006 001 Q U O T E
0016340 006 001 ! * * * * ) ) \r \t \t
0016360 ( T O T A L N E R R S 0 ) \r
0016400 \t \t ( E R R S O K ? T
0016420 ) \r \t \t T O P I C E R R
0016440 S ? L A S T E R R P H A S E
0016460 E R R P H A S E E R R P H A S
0016500 E M A R K E R R T O P I C ) \r
0016520
*
0016600 006 003 (
0016620 * e r r o r h a n d l i n g
0016640 ) 006 001 \r \t
0016660 ( 006 002 D E C L A R E 006 001 ( 006 001
0016700 S P E C V A R S 006 001 E R R F I
0016720 L E E R R S Y M B O L T O T
0016740 A L N E R R S E R R S O K ?
0016760 T O P I C E R R S ? \r \t \t \t \t
0017000 \t L A S T E R R P H A S E
0017020 E R R P H A S E E R R P H A S
0017040 E M A R K E R R T O P I C ) )
0017060 \r \t ( L E
0017100 T [ ( D E B U G ? ( 006 001 I N
0017120 T E R S E C T I O N 006 001 O P T
0017140 I O N S ( 006 001 Q U O T E 006 001
0017160 ( D D E B U G ] \r
0017200
*
0017260 006 003 ( * d e b u
0017300 g c o n t r o l ) 006 001 \r \t \t
0017320 ( 006 002 D E C L A R
0017340 E 006 001 ( 006 001 S P E C V A R S 006
0017360 001 D E B U G ? ) ) \r \t \t
0017400 ( L E T ( I V A R S
0017420 P V A R S F V A R S N T V
0017440 A R S L T V A R S ) \r
0017460
*
0017540 006 003 ( * t r
0017560 a c k i n g o f v a r s b
0017600 y l i s t s o f 006 001 \r \t \t
0017620 \t \t \t \t \t 006 003 ( n a m
0017640 e . s l o t # ) ) 006 001 \r \t \t
0017660 \t ( 006 002 D E C L A R E
0017700 006 001 ( 006 001 S P E C V A R S 006 001
0017720 I V A R S P V A R S F V A
0017740 R S N T V A R S L T V A R S
0017760 ) ) \r \t \t \t ( L E T
0020000 ( F N T Y P E F N N A M E T
0020020 H E A R G L I S T S T K M I N
0020040 P V S T A R T P C N T S I
0020060 Z E N L O C A L S \r \t \t \t \t
0020100 \t F V A R O F F S E T L T
0020120 S I Z E ( M A X S T K 0 ) \r
0020140 \t \t \t \t \t M A X P C I N I
0020160 T T O S ) 006 003 ( * f
0020200 u n c t i o n - h e a d e r l
0020220 i k e s t u f f ) 006 001 \r \t \t \t
0020240 ( 006 002 D E C
0020260 L A R E 006 001 ( 006 001 S P E C V A
0020300 R S 006 001 F N T Y P E F N N A
0020320 M E T H E A R G L I S T S T
0020340 K M I N P V S T A R T P C
0020360 \r \t \t \t \t \t \t \t N T S I Z E
0020400 N L O C A L S F V A R O F F S
0020420 E T L T S I Z E M A X S T K
0020440 \r \t \t \t \t \t \t \t M A X P C
0020460 I N I T T O S ) ) \r \r
0020500 006 003 ( * * a c t u
0020520 a l l y d o t h i n g s ) 006
0020540 001 \r \r \r \t \t \t
0020560 ( 006 002 A S M . 1 006 001 I N P U
0020600 T L I S T ) \r \r
0020620 006 003 ( * * n o w r e t
0020640 u r n r e s u l t s . . . )
0020660 006 001 \r \r \r \t \t \t
0020700 ( 006 001 S E T Q 006 001 \ A S M
0020720 . O U T P U T L I S T I N G (
0020740 006 001 C A R 006 001 O L T ) ) \r \t \t
0020760 \t ( 006 001 S E
0021000 T Q 006 001 \ A S M . P V A R M A
0021020 P ( 006 002 A S M . P V A R M A P
0021040 006 001 ) ) \r \t \t \t
0021060 ( 006 001 S E T Q 006 001 \ A S M
0021100 . S T A T S ( 006 001 L I S T 006 001
0021120 F N N A M E ( 006 001 L E N G T
0021140 H 006 001 I V A R S ) \r \t \t \t \t \t
0021160 \t \t ( 006 001 L E N G T H
0021200 006 001 P V A R S ) \r \t \t \t \t \t \t
0021220 \t ( 006 001 L E N G T H 006
0021240 001 F V A R S ) \r \t \t \t \t \t \t \t
0021260 M A X S T K ) ) \r \t \t
0021300 \t ( 006 001 C O
0021320 N S 006 001 T O T A L N E R R S
0021340 ( 006 002 i f 006 001 T A M . L I N K
0021360 I N F O \r \t \t \t \t \t \t \t 006 002 t
0021400 h e n 006 001 ( 006 001 C O N S 006 001
0021420 C O D E A R R A Y L I N K I N
0021440 F O ) \r \t \t \t \t \t \t
0021460 006 002 e l s e 006 001 C O D E A R
0021500 R A Y ] ) \r \r ( 006 004 A S M . 1 006
0021520 001 \r [ L A M B D A ( I L )
0021540 006 003 006 001
0021560
*
0021640 006 003 ( * j m h \r
0021660
*
0021760 " 3 0 - M a r - 8 6
0022000 1 0 : 4 0 " ) 006 001 \r
0022020 \r
0022040 006 003 ( * * a c t u a
0022060 l t o p - l e v e l f l o w
0022100 o f c o n t r o l ) 006 001 \r \r
0022120 ( 006 002 D E C L A R E 006 001
0022140 ( S P E C V A R S I L ) ) \r
0022160 ( 006 002 A S M . P H A S E
0022200 M A R K 006 001 ( Q U O T E a t
0022220 B e g i n n i n g ) ) \r
0022240 ( 006 002 i f 006 001 ( N L I S T P
0022260 I L ) \r 006 002 t h
0022300 e n 006 001 ( 006 002 A S M . E R R 006
0022320 001 " n o i n p u t " ) \r
0022340 006 002 e l s e 006 001 \r
0022360 006 003 ( *
0022400 * f i r s t p h a s e - -
0022420 I L - > O L T + s p e
0022440 c v a r s - - \r
0022460 d o c o d e p a r
0022500 t r e p e a t e d l y u n t
0022520 i l s t a c k m o d e l l i
0022540 n g f i n i s h e d ) 006 001 \r \r
0022560 ( S E T Q
0022600 E R R S O K ? T ) \r
0022620 ( 006 002 A S M . E A
0022640 T H D R + N T S 006 001 ) \r
0022660 ( L C O N C O L
0022700 T ( 006 002 A S M . C O D E P A S
0022720 S 1 006 001 ( A P P E N D ( 006 002
0022740 A S M . E N T R Y V E C T O R 006
0022760 001 ) \r
0023000
0023020 I
0023040 L ) ) ) \r
0023060 \r 006
0023100 003 ( * * s e c o n d p h a
0023120 s e - - w i t h i n O L T
0023140 - - f i n i s h m a c r o
0023160 - \r a n
0023200 d g e n e r i c - e x p a n
0023220 s i o n - - d e t e r m i n
0023240 e l e n g t h s o f i n s
0023260 t r u c t i o n s ) 006 001 \r \r
0023300 ( 006 002 A S M .
0023320 C O D E P A S S 2 006 001 ) \r
0023340 \r
0023360 006 003 ( * * t h
0023400 i r d = l a s t p h a s e
0023420 - - O L T + s p e c v a
0023440 r s - > C O D E A R R A Y
0023460 - - \r s
0023500 y n t a x c h e c k i n g w
0023520 i t h i n o p c o d e s ) 006 001
0023540 \r \r ( 006 002
0023560 A S M . M A K E C O D E A R R A
0023600 Y 006 001 ) \r
0023620 ( 006 002 A S M . E M I T H D R + N
0023640 T S 006 001 ) \r
0023660 ( 006 002 A S M . E M I T C O D E
0023700 006 001 ) ) \r ( 006 002 A S M .
0023720 P H A S E M A R K 006 001 ( Q U O
0023740 T E a t E n d ] ) \r ) \r \f 006 004
0023760 ( * * i n p u t h e a d e
0024000 r a n d n a m e t a b l e
0024020 s ) 006 001 \r \r ( D E F I N E Q \r \r
0024040 ( 006 004 A S M . E A T H D R + N T
0024060 S 006 001 \r [ L A M B D A N I
0024100 L \r ( 006 002 D E C L A R E
0024120 006 001 ( 006 001 U S E D F R E E 006 001
0024140 I L O W N E N T R Y V E C T
0024160 O R ? ) \r \t ( 006 001
0024200 U S E D F R E E 006 001 T A M . F
0024220 N H D R S T Y L E T A M . V A
0024240 R A L L O C S T Y L E ) ) \r
0024260
*
0024340 006 003 ( *
0024360 j m h " 1 3 - J u n - 8 6 1
0024400 0 : 1 3 " ) 006 001 \r ( 006 002
0024420 A S M . P H A S E M A R K 006 001
0024440 " i n p u t h d r + n t s
0024460 " 0 ) \r ( 006 002 A S M .
0024500 E A T F N D E C L 006 001 ) \r
0024520 ( 006 002 A S M . E A T D F N H E
0024540 A D E R D E C L 006 001 ) \r
0024560 ( 006 002 A S M . E A T V A R D E C
0024600 L S 006 001 ) \r ( 006 002 i f 006
0024620 001 ( 006 001 A N D 006 001 ( 006 001 L I
0024640 S T P 006 001 I L ) \r \t \t ( 006 001
0024660 E Q 006 001 ( 006 001 C A R 006 001 I L
0024700 ) \r \t \t ( 006 001 Q U
0024720 O T E 006 001 L O C A L : ) ) ) \r
0024740 \t 006 002 t h e n 006 001 ( 006 002 A S M
0024760 . L I S T 006 001 ( 006 002 p o p 006 001
0025000 I L ) ) \r \t ( 006
0025020 002 A S M . E A T V A R D E C L S
0025040 006 001 T ) ) \r ( 006 002 i f
0025060 006 001 ( 006 001 A N D 006 001 ( 006 001 L
0025100 I S T P 006 001 I L ) \r \t \t ( 006
0025120 001 E Q 006 001 ( 006 001 C A R 006 001 I
0025140 L ) \r \t \t ( 006 001 Q
0025160 U O T E 006 001 C O D E : ) ) ) \r
0025200 \t 006 002 t h e n 006 001 ( 006 002 A S M
0025220 . L I S T 006 001 ( 006 002 p o p 006 001
0025240 I L ) ) \r \t ( 006
0025260 002 i f 006 001 ( 006 001 A N D 006 001 (
0025300 006 001 L I S T P 006 001 I L ) \r \t \t
0025320 \t ( 006 001 E Q 006 001 ( 006 001
0025340 C A R 006 001 I L ) \r \t \t \t \t
0025360 ( 006 001 Q U O T E 006 001 O W N E N
0025400 T R Y V E C T O R : ) ) ) \r \t \t
0025420 006 002 t h e n 006 001 ( 006 001 S
0025440 E T Q 006 001 O W N E N T R Y V E
0025460 C T O R ? T ) \r \t \t \t ( 006
0025500 002 A S M . L I S T 006 001 ( 006 002 p
0025520 o p 006 001 I L ) ) ) \r
0025540 006 002 e l s e 006 001 ( 006 002 A S M
0025560 . L I S T 006 001 ( 006 001 Q U O T E
0025600 006 001 C O D E : ) ) \r \t
0025620 ( 006 002 A S M . E R R 006 001 " C
0025640 O D E : s u p p l i e d " ) )
0025660 \r ( 006 002 A S M . P H A S
0025700 E M A R K 006 001 " a f t e r h
0025720 d r + n t s " 9 9 ) \r
0025740 ( 006 001 S E L E C T Q 006 001 T A M
0025760 . V A R A L L O C S T Y L E \r \t
0026000 ( D ( 006 002 A S M
0026020 . A L L O C V A R S . D 006 001 ) )
0026040 \r \t ( 006 002 A S M .
0026060 A L L O C V A R S . T 006 001 ) ) \r
0026100 ( 006 001 S E L E C T Q 006 001
0026120 T A M . F N H D R S T Y L E \r
0026140 \t ( D ( 006 002 A S
0026160 M . C K D I R V S . D 006 001 ) ) \r
0026200 \t ( 006 002 A S M . C
0026220 K D I R V S . T 006 001 ] ) \r \r ( 006
0026240 004 A S M . E A T F N D E C L 006 001
0026260 \r [ L A M B D A N I L 006 003
0026300 006 001
0026320
*
0026360 006 003 ( *
0026400 j m h \r
0026420
*
0026520 " 2 6 - F e b - 8 6 1 7 : 1
0026540 5 " ) 006 001 \r ( 006 002 D E C
0026560 L A R E 006 001 ( U S E D F R E E
0026600 I L F N T Y P E F N N A M
0026620 E T H E A R G L I S T I V A
0026640 R S ) ) \r [ 006 002 i f 006 001
0026660 [ N O T ( A N D ( L I S T
0026700 P I L ) \r
0026720 ( L I S
0026740 T P ( C A R I L ) ) \r
0026760
0027000 ( M E M B ( C A A R I
0027020 L ) \r
0027040 (
0027060 Q U O T E ( L A M B D A : N
0027100 L A M B D A : ] \r
0027120 006 002 t h e n 006 001 ( 006 002 A S M
0027140 . E R R 006 001 " n o f n d e
0027160 c l " ) \r 006 002 e l s
0027200 e 006 001 ( L E T ( ( I ( 006 002
0027220 A S M . L I S T 006 001 ( 006 002 p o
0027240 p 006 001 I L ) ) ) \r
0027260 N
0027300 O S P R E A D ? ) \r
0027320 ( 006
0027340 002 i f 006 001 [ O R ( N E Q 3
0027360 ( L E N G T H I ) ) \r
0027400
0027420 [ N O
0027440 T ( L I T A T O M ( S E T Q
0027460 F N N A M E ( C A D R I ]
0027500 \r
0027520
0027540 ( M E M B F N N A M E ( Q
0027560 U O T E ( N I L T ) ) ) \r
0027600
0027620 (
0027640 N O T ( O R ( L I S T P (
0027660 S E T Q T H E A R G L I S T
0027700 ( C A D D R I ) ) ) \r
0027720
*
0027760 ( L I T A T O M T H
0030000 E A R G L I S T ] \r
0030020
0030040 006 002 t h e n 006 001 ( 006 002 A S
0030060 M . E R R 006 001 " f n d e c l
0030100 i l l - f o r m e d " ) \r
0030120
0030140 006 002 e l s e 006 001 ( S E
0030160 T Q N O S P R E A D ? \r
0030200
0030220 ( 006 002
0030240 i f 006 001 ( 006 002 A S M . C K V A
0030260 R N A M E 006 001 T H E A R G L I
0030300 S T ) \r
0030320
0030340 006 002 t h e n 006 001
0030360 T \r
0030400
0030420 006 002 e l s e i f 006 001
0030440 ( A N D T H E A R G L I S T
0030460 ( N L I S T P T H E A R G L I
0030500 S T ) ) \r
0030520
0030540 006 002 t h e n 006
0030560 001 ( 006 002 A S M . E R R 006 001 "
0030600 n o s p r e a d a r g l i s t
0030620 i l l - f o r m e d " T H E
0030640 A R G L I S T ) \r
0030660
*
0030720 ( S E T Q T H E A R G L
0030740 I S T ( Q U O T E b a d $ a
0030760 r g ) ) \r
0031000
0031020 T
0031040 \r
0031060
0031100 006 002 e l s e 006 001 [ S E T
0031120 Q T H E A R G L I S T \r
0031140
*
0031200 ( 006 002 f o r 006
0031220 001 V 006 002 i n 006 001 T H E A R
0031240 G L I S T \r
0031260
*
0031320 006 002 c o l l e c t 006 001
0031340 ( O R ( 006 002 A S M . C K V A
0031360 R N A M E 006 001 V ) \r
0031400
*
0031460 ( P R O G N
0031500 ( 006 002 A S M . E R R 006 001 \r
0031520
*
0031620 " v a r
0031640 n a m e i l l - f o r m e d "
0031660 V ) \r
0031700
*
0031760 ( Q U O T E
0032000 b a d $ a r g ] \r
0032020
*
0032060 N I L ) ) \r
0032100
0032120 ( S E T Q F N T Y P E
0032140 ( 006 002 i f 006 001 ( E Q ( C A
0032160 R I ) \r
0032200
*
0032240 ( Q U O T E
0032260 L A M B D A : ) ) \r
0032300
*
0032340 006 002 t h e n 006 001
0032360 ( 006 002 i f 006 001 N O S P R E A
0032400 D ? \r
0032420
*
0032460 006 002 t
0032500 h e n 006 001 ( Q U O T E L A M
0032520 B D A * ) \r
0032540
*
0032600 006 002
0032620 e l s e 006 001 ( Q U O T E L A
0032640 M B D A ) ) \r
0032660
*
0032720 006 002 e l s e 006 001 ( 006 002 i f
0032740 006 001 N O S P R E A D ? \r
0032760
*
0033040 006 002 t h e n 006 001 ( Q
0033060 U O T E N L A M B D A * ) \r
0033100
*
0033160 006 002 e l s e 006 001 ( Q
0033200 U O T E N L A M B D A ] \r
0033220 ( 006 002 i f 006 001 ( N U L L
0033240 F N N A M E ) \r
0033260 006 002 t h e n 006 001 ( S E T Q F
0033300 N N A M E ( Q U O T E b a d
0033320 $ f n $ n a m e ) ) \r
0033340 ( S E T Q F
0033360 N T Y P E ( Q U O T E L A M
0033400 B D A ) ) \r
0033420 ( S E T Q T H E A R G
0033440 L I S T ( 006 002 i f 006 001 [ M E
0033460 M B F N T Y P E ( Q U O T E
0033500 ( L A M B D A N L A M B D A
0033520 ] \r
0033540
0033560 006 002 t h e n 006 001 ( L
0033600 I S T ( Q U O T E b a d $ a
0033620 r g ) ) \r
0033640
0033660 006 002 e l s e 006 001 (
0033700 Q U O T E b a d $ a r g ] ) \r
0033720 \r ( 006 004 A S M . E A T D F N H E
0033740 A D E R D E C L 006 001 \r [ L A
0033760 M B D A N I L 006 003 006 001
0034000
*
0034060 006 003 ( * j m h \r
0034100
*
0034200 " 9 - N
0034220 o v - 8 5 1 3 : 1 3 " ) 006 001 \r
0034240 ( 006 002 D E C L A R E 006 001
0034260 ( U S E D F R E E I L S T
0034300 K M I N P V S T A R T P C
0034320 N T S I Z E N L O C A L S F
0034340 V A R O F F S E T ) ) \r
0034360 ( 006 002 i f 006 001 ( A N D ( L I
0034400 S T P I L ) \r
0034420 ( L I S T P
0034440 ( C A R I L ) ) \r
0034460 ( E Q (
0034500 C A A R I L ) \r
0034520 ( Q
0034540 U O T E D F N H E A D E R : )
0034560 ) ) \r 006 002 t h e
0034600 n 006 001 ( L E T * ( ( I ( 006 002
0034620 A S M . L I S T 006 001 ( 006 002 p o
0034640 p 006 001 I L ) ) ) \r
0034660
0034700 ( L ( C D R I ) ) ) \r
0034720
0034740 ( 006 002 w h i l e 006 001 ( L I S T
0034760 P L ) 006 002 b i n d 006 001 V
0035000 A X \r
0035020 006 002 d o 006 001
0035040 ( S E T Q V ( 006 002 p o p 006 001
0035060 L ) ) \r
0035100
0035120 ( S E T Q A ( 006 002 p o p 006 001
0035140 L ) ) \r
0035160
0035200 ( 006 002 i f 006 001 ( A N D A (
0035220 N O T ( N U M B E R P A ) )
0035240 ) \r
0035260
0035300 006 002 t h e n 006 001 ( 006 002 A S M
0035320 . E R R 006 001 " n o n - n u m
0035340 a r g " A ) \r
0035360
0035400 006 002 e l s e 006 001 ( S
0035420 E T ( S E L E C T Q V \r
0035440
*
0035500 ( S T
0035520 K M I N : ( Q U O T E S T K
0035540 M I N ) ) \r
0035560
*
0035620 ( P V : ( Q U O T E
0035640 P V ) ) \r
0035660
*
0035720 ( S T A R T P C : (
0035740 Q U O T E S T A R T P C ) ) \r
0035760
*
0036020 (
0036040 N T S I Z E : ( Q U O T E N
0036060 T S I Z E ) ) \r
0036100
*
0036140 ( N L O C A L S :
0036160 ( Q U O T E N L O C A L S )
0036200 ) \r
0036220
*
0036260 ( F V A R O F F S E T : ( Q
0036300 U O T E F V A R O F F S E T )
0036320 ) \r
0036340
*
0036400 ( P R O G N ( 006 002 A S M . E
0036420 R R 006 001 " b a d k e y w o r
0036440 d " V ) \r
0036460
*
0036520 ( Q U O
0036540 T E X ) ) ) \r
0036560
*
0036620 A ] ) \r \r ( 006 004 A S M . E
0036640 A T V A R D E C L S 006 001 \r [
0036660 L A M B D A ( L O C A L ? ) \r
0036700 ( 006 002 D E C L A R E 006 001
0036720 ( U S E D F R E E I L F N
0036740 T Y P E T H E A R G L I S T
0036760 I V A R S P V A R S F V A R
0037000 S N T V A R S L T V A R S )
0037020 \r ( U S E
0037040 D F R E E T A M . V A R A L L
0037060 O C S T Y L E ) ) 006 003 006 001
0037100
0037120 006 003 ( *
0037140 j m h \r
0037160
*
0037260 " 1 3 - M a r - 8 6 1 7 : 4
0037300 0 " ) 006 001 \r
0037320 \r 006
0037340 003 ( * * l o o p p r o c e
0037360 s s i n g v a r d e c l s )
0037400 006 001 \r \r ( 006 002 w h i l e
0037420 006 001 [ A N D ( L I S T P I
0037440 L ) \r
0037460 ( N O T ( M E M
0037500 B ( C A R I L ) \r
0037520
0037540 ( 006 002 i f 006
0037560 001 L O C A L ? \r
0037600
0037620 006 002 t h
0037640 e n 006 001 ( Q U O T E ( C O D
0037660 E : ) ) \r
0037700
0037720 006 002 e l s e 006 001 (
0037740 Q U O T E ( L O C A L : C O
0037760 D E : ] 006 002 b i n d 006 001 I
0040000 V A R T Y P E \r 006
0040020 002 d o 006 001 \r
0040040 \r 006
0040060 003 ( * * I _ d e c l -
0040100 - V A R T Y P E _ v a r T
0040120 y p e / N I L ) 006 001 \r \r
0040140 ( S E T Q I ( 006 002 A S
0040160 M . L I S T 006 001 ( 006 002 p o p 006
0040200 001 I L ) ) ) \r (
0040220 S E T Q V A R T Y P E ( 006 002
0040240 i f 006 001 ( N L I S T P I ) \r
0040260
0040300 006 002 t h e n 006
0040320 001 ( 006 002 A S M . E R R 006 001 "
0040340 b a d p s e u d o l a b e l
0040360 i n d e c l s e c t i o n "
0040400 ) \r
0040420
0040440 N I L \r
0040460 006 002 e l
0040500 s e i f 006 001 ( E Q ( C A R
0040520 I ) \r
0040540
0040560 ( Q U O T E
0040600 * ) ) \r
0040620 006 002 t
0040640 h e n 006 001
0040660
0040700 006
0040720 003 ( * c o m m e n t ) 006 001 \r
0040740
0040760 N I
0041000 L \r
0041020 006 002 e l s e i
0041040 f 006 001 ( 006 002 A S M . C K V A R
0041060 A L L O C S T Y L E 006 001 ( S E
0041100 L E C T Q ( C A R I ) \r
0041120
*
0041200 ( ( I
0041220 V A R S : I V A R : ) \r
0041240
*
0041340 ( Q U O T E I V A R ) ) \r
0041360
*
0041440 (
0041460 ( P V A R S : P V A R : ) \r
0041500
*
0041600 ( Q U O T E P V A R )
0041620 ) \r
0041640
*
0041720 ( ( V A R S : V A R : ) \r
0041740
*
0042040 ( Q U O T E P V A R )
0042060 ) \r
0042100
*
0042160 ( ( F V A R S : F V A R : )
0042200 \r
0042220
*
0042300 ( Q U O T E F V A
0042320 R ) ) \r
0042340
*
0042420 N I L ) ) \r
0042440
0042460 006 002 e l s e 006 001 ( 006 002 A S M .
0042500 E R R 006 001 " n o t a v a r
0042520 d e c l " ) \r
0042540
0042560 N I L ) ) \r
0042600 \r
0042620 006 003 ( * * l o o p
0042640 o v e r v a r s V i n
0042660 d e c l - - V _ N I L t o
0042700 t e r m i n a t e p r o c e
0042720 s s i n g o f V ) 006 001 \r \r
0042740 ( 006 002 i f 006 001 V A
0042760 R T Y P E \r
0043000 006 002 t h e n 006 001 \r
0043020 ( 006 002 f o r 006 001 V
0043040 006 002 i n 006 001 ( C D R I ) \r
0043060 006 002 d
0043100 o 006 001 ( 006 002 i f 006 001 ( N O T
0043120 ( S E T Q V ( 006 002 A S M .
0043140 C K V A R N A M E 006 001 V ) ) )
0043160 \r
0043200 006 002 t h e n
0043220 006 001
0043240
0043260 006 003 ( *
0043300 d i s a l l o w i l l f o r
0043320 m e d \r
0043340
*
0043440 v a r n a m e s ) 006 001 \r
0043460
0043500 ( 006 002 A S
0043520 M . E R R 006 001 " b a d v a r
0043540 n a m e " V ) ) \r
0043560 ( 006
0043600 002 i f 006 001 ( A N D V ( O R
0043620 ( 006 002 A S M . V A R L K U P 006
0043640 001 V I V A R S ) \r
0043660
*
0043720 ( 006 002 A S M . V A R L K U P
0043740 006 001 V P V A R S ) \r
0043760
*
0044020 ( 006 002 A S M . V A R L K U
0044040 P 006 001 V F V A R S ) ) ) \r
0044060
0044100 006 002 t h e n 006 001
0044120
*
0044160 006 003 ( * d
0044200 i s a l l o w \r
0044220
*
0044320 r e d e c l a r i n g
0044340 V ) 006 001 \r
0044360
0044400 ( 006 002 A S M . E R R 006 001
0044420 " v a r r e d e c l a r e d "
0044440 V ) \r
0044460
0044500 ( S E T Q V N I L ) ) \r
0044520
0044540 ( 006 002 i f 006 001 V \r
0044560
0044600 006 002 t h e n 006 001
0044620
*
0044660 006 003 ( * d i
0044700 s a l l o w m i s c \r
0044720
*
0045020 o t h e r t h
0045040 i n g s ) 006 001 \r
0045060
0045100 ( S E L E C T Q V
0045120 A R T Y P E \r
0045140
0045160 ( I V A R
0045200
*
0045240 006 003 ( * v a r a l l o c s
0045260 t y l e = D \r
0045300
*
0045400 - - i v a r m u s
0045420 t b e i n \r
0045440
*
0045540 a r g l i s t ) 006 001 \r
0045560
*
0045620 ( 006 002 i f 006 001 (
0045640 N O T ( S E L E C T Q F N T
0045660 Y P E \r
0045700
*
0045740 ( [ L
0045760 A M B D A N L A M B D A ] \r
0046000
*
0046060 ( M
0046100 E M B V T H E A R G L I S T
0046120 ) ) \r
0046140
*
0046200 ( E Q
0046220 V T H E A R G L I S T ) ) ) \r
0046240
*
0046300 006 002 t h
0046320 e n 006 001 ( 006 002 A S M . E R R 006
0046340 001 " I V A R n o t i n a
0046360 r g l i s t " V ) \r
0046400
*
0046440 ( S E
0046460 T Q V N I L ) ) ) \r
0046500
0046520 ( P
0046540 V A R ( S E L E C T Q T A M
0046560 . V A R A L L O C S T Y L E \r
0046600
*
0046640 ( D
0046660
0046700 006 003 ( * D
0046720 - m a c h i n e p v a r s \r
0046740
*
0047040 c a n ' t
0047060 b e i n a r g l i s t ,
0047100 \r
0047120
*
0047200 e x c e
0047220 p t f o r L A M B D A * ) 006
0047240 001 \r
0047260
*
0047320 ( 006 002 i f 006 001 ( S E L E C T
0047340 Q F N T Y P E \r
0047360
*
0047440 ( [ L A M B D A N L A
0047460 M B D A ] \r
0047500
*
0047560 ( M E M B V T
0047600 H E A R G L I S T ) ) \r
0047620
*
0047700 ( N L A M B D A *
0047720 ( E Q V T H E A R G L I S
0047740 T ) ) \r
0047760
*
0050020 (
0050040 P R O G 1 N I L ) ) \r
0050060
*
0050120 006
0050140 002 t h e n 006 001 ( 006 002 A S M . E
0050160 R R 006 001 " h a s t o b e
0050200 I V A R " V ) \r
0050220
*
0050300 ( S E T Q V N I L ) ) )
0050320 \r
0050340
0050360 N I L
0050400 ) ) \r
0050420
0050440 ( F V A R
0050460
0050500 006 003
0050520 ( * f v a r s c a n ' t b
0050540 e i n \r
0050560
*
0050660 a r g l i s t ) 006 001 \r
0050700
*
0050740 ( 006 002 i f 006 001 ( S E L
0050760 E C T Q F N T Y P E \r
0051000
*
0051060 ( [ L A M B D A N L A M B D A
0051100 ] \r
0051120
*
0051160 ( M E M
0051200 B V T H E A R G L I S T ) )
0051220 \r
0051240
*
0051300 ( E Q V T H E A R
0051320 G L I S T ) ) \r
0051340
*
0051400 006 002 t h e n 006 001 ( 006 002
0051420 A S M . E R R 006 001 " h a s t
0051440 o b e I V A R " V ) \r
0051460
*
0051540 ( S E T Q V N I L ) ) ) \r
0051560
*
0051620 ( 006 002 A S M . H E L P 006 001 "
0051640 b a d V A R T Y P E 1 " V
0051660 A R T Y P E ) ) ) \r
0051700 ( 006
0051720 002 i f 006 001 V \r
0051740
0051760 006 002 t h e n 006 001
0052000
*
0052040 006 003 ( * d e c l a r e
0052060 V b y t y p e , \r
0052100
*
0052200 l o c a l n e s s
0052220 - - n o s l o t \r
0052240
*
0052340 a l l o c a t e
0052360 d ) 006 001 \r
0052400
0052420 ( L E T ( ( V A N D S
0052440 ( C O N S V N I L ) ) ) \r
0052460
*
0052520 ( S E L E C T Q V A R T Y
0052540 P E \r
0052560
0052600 ( I V A R
0052620 ( 006 002 p u s h 006 001 I V A R S
0052640 V A N D S ) ) \r
0052660
0052700 (
0052720 P V A R ( 006 002 p u s h 006 001 P
0052740 V A R S V A N D S ) ) \r
0052760
*
0053020 ( F V A R ( 006 002 p u s
0053040 h 006 001 F V A R S V A N D S )
0053060 ) \r
0053100
0053120 ( 006 002 A S M .
0053140 H E L P 006 001 " b a d v a r T
0053160 y p e " V A R T Y P E ) ) \r
0053200
*
0053240 ( 006 002 i f 006 001 ( N O T L
0053260 O C A L ? ) \r
0053300
0053320 006 002
0053340 t h e n 006 001 ( S E T Q N T V
0053360 A R S ( N C O N C 1 N T V A
0053400 R S V A N D S ) ) \r
0053420
*
0053460 006 002 e l s e i f 006 001 ( L I T A
0053500 T O M ( 006 002 i f 006 001 ( N L I
0053520 S T P V ) \r
0053540
*
0053620 006 002 t h e n 006 001 V \r
0053640
*
0053720 006 002 e l s e
0053740 006 001 ( C A R V ) ) ) \r
0053760
*
0054020 006 002 t h e n 006 001 ( S E
0054040 T Q L T V A R S ( N C O N C
0054060 1 L T V A R S V A N D S ] )
0054100 \r ) \r ( D E F I N E Q \r \r ( 006 004
0054120 A S M . A L L O C V A R S . D 006
0054140 001 \r [ L A M B D A N I L \r
0054160 ( 006 002 D E C L A R E 006 001
0054200 ( U S E D F R E E F N T Y P
0054220 E T H E A R G L I S T ) \r
0054240 ( U S E D F R
0054260 E E I V A R S P V A R S F
0054300 V A R S N T V A R S L T V A
0054320 R S ) ) 006 003 006 001
0054340 006 003 ( * j m
0054360 h \r
0054400
*
0054460 " 1
0054500 3 - M a r - 8 6 1 3 : 0 9 " )
0054520 006 001 \r \r
0054540 006 003 ( *
0054560 * c h e c k a l l i v a
0054600 r s a r e d e c l a r e d
0054620 - - \r n
0054640 o t e D - m a c h i n e a l
0054660 l o w s L A M B D A * a r g
0054700 l i s t t o b e d e c l a
0054720 r e d p v a r ) 006 001 \r \r
0054740 ( S E L E C T Q F N T Y P E
0054760 \r ( L A M B D A
0055000 * ( 006 002 i f 006 001 ( N O T (
0055020 O R ( 006 002 A S M . V A R L K U
0055040 P 006 001 T H E A R G L I S T I
0055060 V A R S ) \r
0055100
0055120 ( 006 002 A S M . V
0055140 A R L K U P 006 001 T H E A R G L
0055160 I S T P V A R S ) ) ) \r
0055200
0055220 006 002 t h e n 006 001 ( 006 002 A S
0055240 M . E R R 006 001 " a r g l i s t
0055260 v a r n o t d e c l a r e
0055300 d " T H E A R G L I S T ) ) )
0055320 \r ( N L A M B D
0055340 A * ( 006 002 i f 006 001 ( N O T
0055360 ( 006 002 A S M . V A R L K U P 006 001
0055400 T H E A R G L I S T I V A R
0055420 S ) ) \r
0055440 006 002 t h e n
0055460 006 001 ( 006 002 A S M . E R R 006 001
0055500 " a r g l i s t v a r n o t
0055520 d e c l a r e d " T H E A R
0055540 G L I S T ) ) ) \r
0055560 ( 006 002 i f 006 001 [ N O T ( 006
0055600 002 f o r 006 001 V 006 002 i n 006 001
0055620 T H E A R G L I S T 006 002 t h e
0055640 r e i s 006 001 ( N O T ( 006 002 A
0055660 S M . V A R L K U P 006 001 V I
0055700 V A R S T ] \r
0055720 006 002 t h e n 006 001 ( 006 002
0055740 A S M . E R R 006 001 " a r g l i
0055760 s t v a r n o t d e c l a
0056000 r e d " V ) ) ) \r
0056020 \r
0056040 006 003 ( * * s m a s h
0056060 s l o t n r s i n t o t h
0056100 e V A N D S ' s - - \r
0056120 t h e e n t
0056140 r i e s o f L T / N T V A R
0056160 S a r e t h e r e f o r e
0056200 a f f e c t e d t o o ) 006 001 \r
0056220 \r
0056240 006 003 ( * *
0056260 i v a r s g e t t h e i r
0056300 B X s l o t - n r s ) 006 001 \r \r
0056320 ( S E L E C T Q F N T
0056340 Y P E \r ( [ L A
0056360 M B D A N L A M B D A ] \r
0056400 ( 006 002 f
0056420 o r 006 001 V A N D S 006 002 i n 006
0056440 001 I V A R S 006 002 d o 006 001 (
0056460 R P L A C D V A N D S ( 006 002
0056500 A S M . P O S I N L I S T 006 001
0056520 ( C A R V A N D S ) \r
0056540
*
0056640 T H E A R G L I S T ) ) ) ) \r
0056660 ( 006 002 i f 006 001
0056700 I V A R S \r
0056720 006 002 t h e n 006 001 ( R P L A
0056740 C D ( C A R I V A R S ) \r
0056760
0057000 0 ) ) ) \r
0057020 \r
0057040 006 003 ( * *
0057060 p v a r s b e f o r e f v a
0057100 r s i n t h e v a r s e
0057120 c t i o n o f t h e f r a
0057140 m e p r o p e r ) 006 001 \r \r
0057160 ( L E T ( ( S L O T N R
0057200 0 ) ) \r [ 006 002
0057220 f o r 006 001 V A N D S 006 002 i n
0057240 006 001 P V A R S 006 002 d o 006 001
0057260 ( R P L A C D V A N D S ( P
0057300 R O G 1 S L O T N R ( 006 002 a
0057320 d d 006 001 S L O T N R 1 ] \r
0057340 ( 006 002 f o r 006 001
0057360 V A N D S 006 002 i n 006 001 F V
0057400 A R S 006 002 d o 006 001 ( R P L A
0057420 C D V A N D S ( P R O G 1
0057440 S L O T N R ( 006 002 a d d 006 001
0057460 S L O T N R 1 ] ) \r \r ( 006 004 A
0057500 S M . C K D I R V S . D 006 001 \r
0057520 [ L A M B D A N I L \r
0057540 ( 006 002 D E C L A R E 006 001 ( U
0057560 S E D F R E E I V A R S P V
0057600 A R S F V A R S N T V A R S
0057620 L T V A R S ) \r
0057640 ( U S E D F R E E P V
0057660 S T K M I N S T A R T P C
0057700 N T S I Z E N L O C A L S F
0057720 V A R O F F S E T L T S I Z E
0057740 ) ) 006 003 006 001 \r
0057760
*
0060060 006 003 ( * j m h \r
0060100
*
0060200 " 1 3 - M a r - 8
0060220 6 1 6 : 3 7 " ) 006 001 \r
0060240 \r
0060260 006 003 ( * * c o m p
0060300 u t e f u n c t i o n - h e a
0060320 d e r l i k e n u m b e r s
0060340 f o r D m a c h i n e -
0060360 - \r c h
0060400 e c k D F N H E A D E R i f
0060420 a n y ) 006 001 \r \r ( L E
0060440 T ( ( N R S L O T S ( I P L
0060460 U S ( L E N G T H P V A R S
0060500 ) \r
0060520 ( L E N
0060540 G T H F V A R S ) ) ) \r
0060560 ( O L D P V P V
0060600 ) \r ( O L D
0060620 S T K M I N S T K M I N ) \r
0060640 ( O L D S T A
0060660 R T P C S T A R T P C ) \r
0060700 ( O L D N T S I
0060720 Z E N T S I Z E ) \r
0060740 ( O L D N L O C A L S
0060760 N L O C A L S ) \r
0061000 ( O L D F V A R O F F S
0061020 E T F V A R O F F S E T ) ) \r
0061040 \r
0061060 006 003 ( * *
0061100 P V ) 006 001 \r \r
0061120 ( S E T Q P V ( S U B 1 (
0061140 F O L D H I N R S L O T S C
0061160 E L L S P E R Q U A D ) ) ) \r
0061200 ( 006 002 i f 006 001
0061220 ( A N D O L D P V ( I G R E
0061240 A T E R P O L D P V P V ) )
0061260 \r 006 002
0061300 t h e n 006 001 ( 006 002 A S M . E R
0061320 R 006 001 " P V : s a i d " O
0061340 L D P V " v s " P V ) ) \r
0061360 \r
0061400 006 003 ( * * S
0061420 T K M I N ) 006 001 \r \r
0061440 [ S E T Q S T K M I N
0061460 ( I P L U S 5 6 Q ( I T I M
0061500 E S 2 ( I P L U S 1 ( 006
0061520 002 A S M . N A . D 006 001 ) \r
0061540
*
0061600 (
0061620 I T I M E S 2 P V ] \r
0061640 ( 006 002 i f 006 001 ( A
0061660 N D O L D S T K M I N ( I G
0061700 R E A T E R P O L D S T K M I
0061720 N S T K M I N ) ) \r
0061740 006 002 t h e n 006 001
0061760 ( 006 002 A S M . E R R 006 001 " S
0062000 T K M I N : s a i d " O L D
0062020 S T K M I N " v s " S T K M
0062040 I N ) ) \r
0062060 \r 006 003
0062100 ( * * N T S I Z E ) 006 001 \r \r
0062120 [ S E T Q N
0062140 T S I Z E ( L E T ( ( N (
0062160 L E N G T H N T V A R S ) ) )
0062200 \r
0062220 ( 006 002 i
0062240 f 006 001 ( E Q 0 N ) \r
0062260
0062300 006 002 t h
0062320 e n 006 001 0 \r
0062340
0062360 006 002 e l s e 006 001 ( U N
0062400 F O L D ( F O L D H I ( A D
0062420 D 1 N ) \r
0062440
*
0062500 W O R D S
0062520 P E R Q U A D ) \r
0062540
*
0062600 W O R D S P E R Q U
0062620 A D ] \r ( 006 002
0062640 i f 006 001 ( A N D O L D N T S
0062660 I Z E ( N E Q O L D N T S I
0062700 Z E N T S I Z E ) ) \r
0062720 006 002 t h e n 006
0062740 001 ( 006 002 A S M . E R R 006 001 "
0062760 N T S I Z E : s a i d " O L
0063000 D N T S I Z E " v s " N T S
0063020 I Z E ) ) \r
0063040 \r 006
0063060 003 ( * * N L O C A L S ) 006 001
0063100 \r \r ( S E T Q
0063120 N L O C A L S ( L E N G T H
0063140 P V A R S ) ) \r
0063160 ( 006 002 i f 006 001 ( A N D O
0063200 L D N L O C A L S ( I G R E A
0063220 T E R P O L D N L O C A L S
0063240 N L O C A L S ) ) \r
0063260 006 002 t h e n 006 001
0063300 ( 006 002 A S M . E R R 006 001 " N L
0063320 O C A L S : s a i d " O L D
0063340 N L O C A L S " v s " N L O
0063360 C A L S ) ) \r
0063400 \r
0063420 006 003 ( * * F V A R O F F S E
0063440 T ) 006 001 \r \r [
0063460 S E T Q F V A R O F F S E T
0063500 ( 006 002 i f 006 001 ( N U L L ( I
0063520 N T E R S E C T I O N F V A R
0063540 S N T V A R S ) ) \r
0063560
0063600 006 002 t h e n 006
0063620 001 0 \r
0063640
0063660 006 002 e l s e 006 001 ( I P L U S
0063700 ( 006 002 f e t c h 006 001 ( C O D E
0063720 A R R A Y O V E R H E A D W O
0063740 R D S ) 006 002 o f 006 001 T ) \r
0063760
*
0064020 ( L E N G
0064040 T H ( I N T E R S E C T I O N
0064060 P V A R S N T V A R S ) ) \r
0064100
*
0064140 ( L E N
0064160 G T H ( I N T E R S E C T I O
0064200 N I V A R S N T V A R S ] \r
0064220 ( 006 002 i f 006 001
0064240 ( A N D O L D F V A R O F F
0064260 S E T ( N E Q O L D F V A R
0064300 O F F S E T F V A R O F F S E
0064320 T ) ) \r
0064340 006 002 t h e n 006 001 ( 006 002 A S M
0064360 . E R R 006 001 " F V A R O F F S
0064400 E T : s a i d " O L D F V A
0064420 R O F F S E T " v s " F V A
0064440 R O F F S E T ) ) \r
0064460 \r
0064500 006 003 ( * * S T A R T P
0064520 C , i n c l L T S I Z E ) 006
0064540 001 \r \r [ S E T
0064560 Q L T S I Z E ( L E T ( (
0064600 N ( L E N G T H L T V A R S
0064620 ) ) ) \r
0064640 (
0064660 006 002 i f 006 001 ( E Q 0 N ) \r
0064700
0064720 006
0064740 002 t h e n 006 001 0 \r
0064760
0065000 006 002 e l s e 006 001
0065020 ( U N F O L D ( F O L D H I
0065040 ( A D D 1 N ) \r
0065060
*
0065120 2 )
0065140 \r
0065160
0065200 2 ]
0065220
0065240 006 003 ( *
0065260 2 = ( W O R D S P E R Q U
0065300 A D \r
0065320
*
0065400 /
0065420 2 ) ) 006 001 \r
0065440 ( S E T Q S T A R T P C ( U
0065460 N F O L D ( I P L U S ( 006 002
0065500 f e t c h 006 001 ( C O D E A R R
0065520 A Y O V E R H E A D W O R D S
0065540 ) 006 002 o f 006 001 T ) \r
0065560
*
0065620 ( 006 002 i f 006 001 ( E Q 0
0065640 N T S I Z E ) \r
0065660
*
0065720 006 002 t h e n 006 001 W O R D S
0065740 P E R Q U A D \r
0065760
*
0066020 006 002 e l s e 006 001 ( I T I M E S
0066040 2 N T S I Z E ) ) \r
0066060
*
0066120 ( I T I M E S 2 L T S I
0066140 Z E ) ) \r
0066160
0066200 B Y T E S P E R W O R D )
0066220 ) \r ( P R O G
0066240 1 N I L \r
0066260 \r
0066300 006 003 ( * * d o n ' t t e s
0066320 t S T A R T P C a g a i n s
0066340 t O L D S T A R T P C b e c
0066360 a u s e i n c a s e o f
0066400 L A M B D A * s \r
0066420 w h i c h d i d n
0066440 ' t r e f e r t o t h e i
0066460 r a r g s a t a l l , t
0066500 h a t i s t h o s e w h o
0066520 s e i v a r i s a \r
0066540 d u m m y
0066560 g e n e r a t e d b y D D I
0066600 S A S M , w e g e n e r a t
0066620 e n o L o c a l T a b l e ,
0066640 b u t t h e c o m p i l e
0066660 r \r d
0066700 o e s ! ) 006 001 \r ] ) \r ) \r ( D E
0066720 F I N E Q \r \r ( 006 004 A S M . A L
0066740 L O C V A R S . T 006 001 \r [ L
0066760 A M B D A N I L \r ( 006
0067000 002 D E C L A R E 006 001 ( 006 001 U S
0067020 E D F R E E 006 001 F N T Y P E
0067040 T H E A R G L I S T I N I T T
0067060 O S ) \r \t ( 006 001 U
0067100 S E D F R E E 006 001 I V A R S
0067120 P V A R S F V A R S N T V A
0067140 R S L T V A R S ) \r \t
0067160 ( 006 001 U S E D F R E E 006 001
0067200 T A M . 1 S T V A R S L O T )
0067220 )
0067240 006 003 ( * j m h " 1 2 -
0067260 J u n - 8 6 1 6 : 4 3 " ) 006 001
0067300 \r \r 006 003 ( *
0067320 * l e a v e s I N I T T O
0067340 S p o i n t i n g t o l a
0067360 s t v a r s l o t u s e d
0067400 ) 006 001 \r \r \r \r
0067420 006 003 ( * * s m a s h e s
0067440 s l o t n r s i n V A N D
0067460 S ' s - - s o e n t r i e
0067500 s o f N T / L T V A R S a
0067520 r e a f f e c t e d t o o )
0067540 006 001 \r \r \r ( 006 002 i f 006 001
0067560 ( 006 001 I G R E A T E R P 006 001
0067600 ( 006 001 L E N G T H 006 001 T H E A
0067620 R G L I S T ) \r \t \t
0067640 7 ) \r \t 006 002 t h e n 006 001 ( 006
0067660 002 A S M . E R R 006 001 " t o o
0067700 m a n y a r g u m e n t s " )
0067720 ) \r [ 006 001 S E L E C T Q
0067740 006 001 F N T Y P E \r \t
0067760 [ [ L A M B D A N L A M B
0070000 D A ] \r \t \t ( 006 002 f o r 006 001
0070020 V A N D S 006 002 i n 006 001 P V A
0070040 R S 006 002 b i n d 006 001 S L O T
0070060 N R 006 002 d o 006 001 ( 006 002 i f 006
0070100 001 ( 006 001 S E T Q 006 001 S L O T
0070120 N R ( 006 002 A S M . P O S I N L
0070140 I S T 006 001 \r \t \t \t \t \t \t \t \t
0070160 ( 006 001 C A R 006 001 V A N
0070200 D S ) \r \t \t \t \t \t \t \t \t
0070220 T H E A R G L I S T ) ) \r \t
0070240 \t \t \t \t \t \t \t 006 002 t h e n 006 001
0070260 ( 006 001 R P L A C D 006 001 V A N D
0070300 S \r \t \t \t \t \t \t \t \t \t \t ( 006 001
0070320 P L U S 006 001 \r \t \t \t \t \t \t \t \t
0070340 \t \t T A M . 1 S T V A R S
0070360 L O T \r \t \t \t \t \t \t \t \t \t \t \t
0070400 S L O T N R ] \r \t
0070420 ( 006 002 f o r 006 001 V A N D S
0070440 006 002 i n 006 001 P V A R S 006 002 d
0070460 o 006 001 ( 006 002 i f 006 001 ( 006 001 E
0070500 Q 006 001 ( 006 001 C A R 006 001 V A N
0070520 D S ) \r \t \t \t \t \t \t \t T H E A R
0070540 G L I S T ) \r \t \t \t \t \t \t 006 002 t
0070560 h e n 006 001 ( 006 001 R P L A C D 006
0070600 001 V A N D S T A M . 1 S T V
0070620 A R S L O T ] \r \r
0070640 006 003 ( * * p v a r s
0070660 t h e n f v a r s , s t a r
0070700 t i n g i n r e l v a r
0070720 s l o t 8 ) 006 001 \r \r \r
0070740 ( L E T ( ( S L O T N R ( 006
0070760 001 P L U S 006 001 T A M . 1 S T V
0071000 A R S L O T 8 ) ) ) \r
0071020 ( 006 002 f o r 006 001 V A
0071040 N D S 006 002 i n 006 001 P V A R S
0071060 006 002 w h e n 006 001 ( 006 001 N U L
0071100 L 006 001 ( 006 001 C D R 006 001 V A N
0071120 D S ) ) \r \t 006 002 d o 006 001
0071140 ( 006 001 R P L A C D 006 001 V A N
0071160 D S S L O T N R ) \r \t \t ( 006
0071200 002 a d d 006 001 S L O T N R 1 )
0071220 ) \r ( 006 002 f o
0071240 r 006 001 V A N D S 006 002 i n 006 001
0071260 F V A R S \r \t 006 002 d o
0071300 006 001 ( 006 001 R P L A C D 006 001 V
0071320 A N D S S L O T N R ) \r \t \t
0071340 ( 006 002 a d d 006 001 S L O T N R
0071360 1 ) ) \r ( 006 001
0071400 S E T Q 006 001 I N I T T O S (
0071420 006 001 S U B 1 006 001 S L O T N R ]
0071440 ) \r \r ( 006 004 A S M . C K D I R V
0071460 S . T 006 001 \r [ L A M B D A
0071500 N I L \r ( 006 002 D E C L A
0071520 R E 006 001 ( 006 001 U S E D F R E E
0071540 006 001 T A M . N T S T Y L E ) \r
0071560 \t ( 006 001 U S E D F
0071600 R E E 006 001 I V A R S P V A R
0071620 S F V A R S N T V A R S L
0071640 T V A R S ) \r \t (
0071660 006 001 U S E D F R E E 006 001 S T A
0071700 R T P C N T S I Z E N L O C
0071720 A L S F V A R O F F S E T L
0071740 T S I Z E ) ) \r
0071760
*
0072040 006 003 ( * j m h " 1
0072060 2 - J u n - 8 6 1 6 : 4 6 " )
0072100 006 001 \r \r 006 003
0072120 ( * * c o m p u t e f u n
0072140 c t i o n - h e a d e r l i k
0072160 e n u m b e r s f o r T
0072200 m a c h i n e ) 006 001 \r \r \r
0072220 ( L E T [ ( F N H D R C E L
0072240 L S ( 006 001 P L U S 006 001 ( 006 002
0072260 f e t c h 006 001 ( T F N H D R
0072300 O V E R H E A D C E L L S ) 006
0072320 002 o f 006 001 T ) \r \t \t \t
0072340 ( 006 001 P R O G 1 006 001 8
0072360
0072400 006 003 ( * f o r e n t r
0072420 y v e c t o r ) 006 001 ] \r \r
0072440 006 003 ( * * N
0072460 T S I Z E ) 006 001 \r \r \r
0072500 ( 006 002 i f 006 001 ( 006 001 N
0072520 E Q 006 001 T A M . N T S T Y L E
0072540 ( 006 001 Q U O T E 006 001 D ) ) \r
0072560 \t 006 002 t h e n 006 001 (
0072600 006 002 A S M . H E L P 006 001 " d o
0072620 n ' t k n o w n a m e t a b
0072640 l e s t y l e " T A M . N T
0072660 S T Y L E ) ) \r
0072700 [ 006 001 S E T Q 006 001 N T S I Z
0072720 E ( L E T ( ( N ( 006 001 L E
0072740 N G T H 006 001 N T V A R S ) ) )
0072760 \r \t \t \t ( 006 002 i f 006 001
0073000 ( 006 001 E Q 006 001 0 N ) \r \t \t
0073020 \t \t 006 002 t h e n 006 001 0 \r \t \t
0073040 \t 006 002 e l s e 006 001
0073060 ( U N F O L D ( F O L D H I
0073100 ( 006 001 A D D 1 006 001 N ) \r \t \t
0073120 \t \t \t \t W O R D S P
0073140 E R Q U A D ) \r \t \t \t \t \t
0073160 W O R D S P E R Q U A D ]
0073200 \r \r 006 003 ( *
0073220 * N L O C A L S ) 006 001 \r \r \r
0073240 ( 006 001 S E T Q
0073260 006 001 N L O C A L S ( 006 001 L E
0073300 N G T H 006 001 P V A R S ) ) \r \r
0073320 006 003 ( * *
0073340 F V A R O F F S E T ) 006 001 \r \r
0073360 \r [ 006 001 S E T
0073400 Q 006 001 F V A R O F F S E T (
0073420 006 002 i f 006 001 ( 006 001 N U L L 006 001
0073440 ( 006 001 I N T E R S E C T I O N
0073460 006 001 F V A R S N T V A R S )
0073500 ) \r \t \t \t \t 006 002 t h e n 006 001 0
0073520 \r \t \t \t 006 002 e l s e
0073540 006 001 ( 006 001 I P L U S 006 001 ( U
0073560 N F O L D F N H D R C E L L S
0073600 W O R D S P E R C E L L ) \r \t
0073620 \t \t \t \t ( 006 001 L E N
0073640 G T H 006 001 ( 006 001 I N T E R S E
0073660 C T I O N 006 001 P V A R S N T
0073700 V A R S ) ) \r \t \t \t \t \t
0073720 ( 006 001 L E N G T H 006 001 ( 006
0073740 001 I N T E R S E C T I O N 006 001
0073760 I V A R S N T V A R S ] \r \r
0074000 006 003 ( * *
0074020 S T A R T P C , i n c l L T
0074040 S I Z E ) 006 001 \r \r \r
0074060 [ 006 001 S E T Q 006 001 L T S
0074100 I Z E ( L E T ( ( N ( 006 001
0074120 L E N G T H 006 001 L T V A R S )
0074140 ) ) \r \t \t \t ( 006 002 i f
0074160 006 001 ( 006 001 E Q 006 001 0 N ) \r
0074200 \t \t \t \t 006 002 t h e n 006 001 0 \r
0074220 \t \t \t 006 002 e l s e
0074240 006 001 ( U N F O L D ( F O L D
0074260 H I ( 006 001 A D D 1 006 001 N ) \r
0074300 \t \t \t \t \t \t 2 ) \r \t
0074320 \t \t \t \t 2 ]
0074340 006 003 ( * 2
0074360 = ( W O R D S P E R Q U A D
0074400 / 2 ) ) 006 001 \r
0074420 ( 006 001 S E T Q 006 001 S T A R T
0074440 P C ( C E I L ( U N F O L D
0074460 ( 006 001 I P L U S 006 001 ( U N F
0074500 O L D F N H D R C E L L S W
0074520 O R D S P E R C E L L ) \r \t \t \t
0074540 \t \t \t ( 006 002 i f 006 001 ( 006 001 E Q
0074560 006 001 0 N T S I Z E ) \r \t \t \t
0074600 \t \t \t 006 002 t h e n 006 001
0074620 W O R D S P E R Q U A D \r \t \t \t
0074640 \t \t \t 006 002 e l s e 006 001 ( 006
0074660 001 I T I M E S 006 001 2 N T S I
0074700 Z E ) ) \r \t \t \t \t \t \t ( 006 001 I T
0074720 I M E S 006 001 2 L T S I Z E )
0074740 ) \r \t \t \t \t B Y T
0074760 E S P E R W O R D ) \r \t \t \t
0075000 B Y T E S P E R C E L
0075020 L ] ) \r ) \r ( D E F I N E Q \r \r
0075040 ( 006 004 A S M . N A . D 006 001 \r
0075060 [ L A M B D A N I L \r
0075100 ( 006 002 D E C L A R E 006 001 ( 006 001
0075120 U S E D F R E E 006 001 F N T Y P
0075140 E I V A R S ) ) \r ( 006
0075160 002 i f 006 001 ( 006 001 E Q 006 001 F N
0075200 T Y P E ( 006 001 Q U O T E 006 001
0075220 L A M B D A * ) ) \r \t 006 002 t h e
0075240 n 006 001 - 1 \r 006 002 e
0075260 l s e 006 001 ( 006 001 L E N G T H 006
0075300 001 I V A R S ] ) \r ) \r ( D E F
0075320 I N E Q \r \r ( 006 004 A S M . C K V
0075340 A R N A M E 006 001 \r [ L A M B
0075360 D A ( V A R N A M E ) 006 003 006 001
0075400
*
0075460 006 003 ( * j m h \r
0075500
*
0075600 " 2 6 - F e b
0075620 - 8 6 1 2 : 3 0 " ) 006 001 \r
0075640 \r
0075660 006 003 ( * * r e
0075700 t u r n s v a r n a m e i f
0075720 o k , e l s e N I L ) 006 001
0075740 \r \r ( L E T ( ( V V
0075760 A R N A M E ) ) \r
0076000 ( 006 002 i f 006 001 ( L I S T P
0076020 V ) \r
0076040 006 002 t h e n 006 001 ( S E T Q
0076060 V ( 006 002 i f 006 001 ( A N D (
0076100 E Q 2 ( L E N G T H V ) )
0076120 \r
0076140
0076160 ( N U M
0076200 B E R P ( C A D R V ) ) ) \r
0076220
*
0076260 006 002 t h e n 006 001 ( C A R
0076300 V ) \r
0076320
0076340 006 002 e l s e 006 001 N I L )
0076360 ) ) \r ( 006 002 i
0076400 f 006 001 ( O R [ A N D ( L I
0076420 T A T O M V ) \r
0076440
0076460 ( N O T ( F M E M B V
0076500 ( Q U O T E ( N I L T ] \r
0076520
0076540 ( S T R I N G P V )
0076560 ) \r 006
0076600 002 t h e n 006 001 V A R N A M E \r
0076620 006 002 e l s
0076640 e 006 001 N I L ] ) \r ) \r \f 006 004 (
0076660 * * c o d e p a s s 1
0076700 - - I L - > O L T - -
0076720 d o a l l m a c r o - a n
0076740 d g e n e r i c - e x p a n
0076760 s i o n t h a t c a n b e
0077000 d o n e o n \r f i r s t
0077020 p a s s - - t h e n r e p
0077040 e a t u n t i l s t a c k
0077060 m o d e l l i n g i s f i n
0077100 i s h e d i f p o s s i b l
0077120 e ) 006 001 \r \r ( D E F I N E Q \r \r
0077140 ( 006 004 A S M . E N T R Y V E C T
0077160 O R 006 001 \r [ L A M B D A N
0077200 I L
0077220
*
0077260 006 003 ( * j m h " 3 1 - M
0077300 a y - 8 6 1 1 : 2 5 " ) 006 001 \r
0077320 \r 006 003 ( *
0077340 * r e t u r n t h e a p p
0077360 r o p r i a t e e n t r y v
0077400 e c t o r f o r t h i s m
0077420 a c h i n e , f u n c t i o n
0077440 - t y p e , a n d n r - o f
0077460 - a r g s - e x p e c t e d ) 006
0077500 001 \r \r \r ( 006 002 D E C L A
0077520 R E 006 001 ( 006 001 U S E D F R E E
0077540 006 001 F N T Y P E T H E A R G
0077560 L I S T O W N E N T R Y V E C
0077600 T O R ? ) \r \t ( 006
0077620 001 U S E D F R E E 006 001 T A M .
0077640 L A M B D A E V S T A M . N L
0077660 A M B D A E V S T A M . L A M
0077700 B D A * E V T A M . N L A M B
0077720 D A * E V ) ) \r ( 006 002 i
0077740 f 006 001 O W N E N T R Y V E C T
0077760 O R ? \r \t 006 002 t h e n 006 001 N I
0100000 L \r 006 002 e l s e 006 001
0100020 ( 006 001 S E L E C T Q 006 001 F N
0100040 T Y P E \r \t \t \t [ L A M B D A
0100060 ( 006 001 C A R 006 001 ( 006 001 N T H 006
0100100 001 T A M . L A M B D A E V S
0100120 ( 006 001 A D D 1 006 001 ( 006 001 L E N
0100140 G T H 006 001 T H E A R G L I S T
0100160 ] \r \t \t \t [ N L A M B D A ( 006
0100200 001 C A R 006 001 ( 006 001 N T H 006 001
0100220 T A M . N L A M B D A E V S (
0100240 006 001 A D D 1 006 001 ( 006 001 L E N G
0100260 T H 006 001 T H E A R G L I S T ]
0100300 \r \t \t \t ( L A M B D A * T A M
0100320 . L A M B D A * E V ) \r \t \t \t (
0100340 N L A M B D A * T A M . N L A
0100360 M B D A * E V ) \r \t \t \t ( 006 002 A
0100400 S M . H E L P 006 001 " b a d f
0100420 n T y p e " F N T Y P E ] ) \r
0100440 ) \r ( D E F I N E Q \r \r ( 006 004 A
0100460 S M . C O D E P A S S 1 006 001 \r
0100500 [ L A M B D A ( I L ) 006 003 006
0100520 001
0100540
*
0100600 006 003
0100620 ( * j m h \r
0100640
*
0100740 " 3 0 - M a r - 8 6 1 0
0100760 : 3 9 " ) 006 001 \r
0101000 \r
0101020 006 003 ( * * c o d e p a s
0101040 s 1 - - I L f o r i n
0101060 s t r s - > O L T f o r
0101100 i n s t r s - - \r
0101120 d o a l l m a c
0101140 r o - a n d g e n e r i c -
0101160 e x p a n s i o n t h a t
0101200 c a n b e d o n e o n f
0101220 i r s t p a s s - - \r
0101240 r e p e a t
0101260 w i t h e r r o r m e s s a
0101300 g e s s u p p r e s s e d <
0101320 a c c u m u l a t i n g s t a
0101340 c k i n f o r m a t i o n i
0101360 n \r \
0101400 A S M . L 2 S T A C K > u n t
0101420 i l s t a c k m o d e l l i
0101440 n g i s c o m p l e t e o
0101460 r A P P L Y F N c a n ' t
0101500 b e \r
0101520 s t a c k m o d e l l e d - -
0101540 i f t h e r e a r e e r
0101560 r o r s , w i l l n e e d
0101600 t o d o a f i n a l t i
0101620 m e t o g e t \r
0101640 e r r o r m e s
0101660 s a g e s p r i n t e d t o
0101700 t e r m i n a l ) 006 001 \r \r
0101720 ( 006 002 D E C L A R E 006 001 (
0101740 G L O B A L V A R S \ A S M .
0101760 L 2 S T A C K ) \r
0102000 ( U S E D F R E E E R
0102020 R S O K ? T O T A L N E R R S
0102040 T A M . M A X S T A C K M A
0102060 X S T K ) ) \r ( L E T
0102100 ( ( T O T A L N E R R S B A S E
0102120 T O T A L N E R R S ) \r
0102140 O L T S T A C K
0102160 S T K P R O G R E S S ? S T
0102200 K F A I L U R E ? N F M L (
0102220 P A S S 1 0 0 ) \r
0102240 ( M A X P A S S 1 1 9
0102260 ) ) \r ( 006 002 D
0102300 E C L A R E 006 001 ( S P E C V A
0102320 R S O L T S T A C K S T K
0102340 P R O G R E S S ? S T K F A I
0102360 L U R E ? N F M L ) ) \r
0102400 \r
0102420 006 003 ( * * s t a
0102440 c k m o d e l l i n g - -
0102460 S T A C K i s a l i s t
0102500 o f p o s s i b l e s t a c
0102520 k v a l u e s , w h i c h
0102540 \r d e p
0102560 e n d s o n m a c h i n e
0102600 t y p e - - S T K P R O G R
0102620 E S S ? i s s e t t r u e
0102640 w h e n e v e r a n o t h e
0102660 r s t a c k \r
0102700 p o s i t i o n a t
0102720 a l a b e l b e c o m e s
0102740 k n o w n - - N F M L i
0102760 s a n u m e r i c c o u n
0103000 t e r f o r m a k i n g \r
0103020 l a b e
0103040 l s f r o m , s o t h e y
0103060 ' l l b e t h e s a m e
0103100 o n e v e r y p a s s ) 006 001
0103120 \r \r
0103140 006 003 ( * *
0103160 w e d o s t a c k m o d
0103200 e l l i n g b y - - d o
0103220 l e f t - > r i g h t p a s s
0103240 r e p e a t e d l y , w i t
0103260 h \r e
0103300 r r o r m e s s a g e s d i
0103320 s a b l e d , a s t h o u g
0103340 h f r o m s c r a t c h e
0103360 x c e p t t h a t s t a c k
0103400 \r i n
0103420 f o r m a t i o n a c c u m u
0103440 l a t e s i n \ A S M . L 2
0103460 S T A C K , u n t i l s t a
0103500 c k i n f o r m a t i o n s
0103520 t o p s \r
0103540 a c c u m u l a t i n g o
0103560 r A P P L Y F N - h a n d l i
0103600 n g s e t s S T K F A I L U
0103620 R E ? - - \r
0103640 t h e n i f t h e r e
0103660 w e r e e r r o r s d o
0103700 i t o n c e a g a i n w i
0103720 t h e r r o r m e s s a g e
0103740 s e n a b l e d - - \r
0103760 t h e e r r
0104000 o r s m a y g o a w a y
0104020 n o w t h a t s t a c k m
0104040 o d e l l i n g i s c o m p
0104060 l e t e d - - \r
0104100 i n e i t h e r c
0104120 a s e w e u s e t h e r
0104140 e s u l t s o f t h e l a
0104160 s t p a s s ) 006 001 \r \r
0104200 ( C L R H A S H \ A
0104220 S M . L 2 S T A C K ) \r
0104240 ( S E T Q E R R S O
0104260 K ? N I L ) \r
0104300 ( 006 002 r e p e a t u n t i l 006
0104320 001 ( O R S T K F A I L U R E
0104340 ? ( N O T S T K P R O G R E
0104360 S S ? ) \r
0104400 (
0104420 I G E Q P A S S M A X P A S
0104440 S ) ) 006 002 d o 006 001 ( S E T Q
0104460 T O T A L N E R R S T O T A
0104500 L N E R R S B A S E ) \r
0104520
*
0104560 ( 006
0104600 002 A S M . C O D E P A S S 1 . I
0104620 N N E R 006 001 I L P A S S ) \r
0104640
*
0104720 ( 006 002 a d d 006 001 P A S S
0104740 1 ) ) \r ( S E
0104760 T Q E R R S O K ? T ) \r
0105000 ( 006 002 i f 006 001 (
0105020 O R S T K F A I L U R E ? (
0105040 I G R E A T E R P T O T A L N
0105060 E R R S T O T A L N E R R S B
0105100 A S E ) \r
0105120 ( I G E Q P A S S
0105140 M A X P A S S ) ) \r
0105160 006 002 t h e n 006 001
0105200 ( S E T Q T O T A L N E R R
0105220 S T O T A L N E R R S B A S E
0105240 ) \r
0105260 ( 006 002 A S M . C O D E P
0105300 A S S 1 . I N N E R 006 001 I L
0105320 P A S S ) \r
0105340 ( 006 002 i f 006 001
0105360 S T K F A I L U R E ? \r
0105400
0105420 006 002 t h e n 006 001 ( 006 002 A S
0105440 M . E R R 006 001 " s t a c k m
0105460 o d e l l i n g a b o r t e d
0105500 " ) \r
0105520 006 002 e l s e i f 006
0105540 001 S T K P R O G R E S S ? \r
0105560
0105600 006 002 t h e n 006 001 ( 006
0105620 002 A S M . E R R 006 001 " s t a c
0105640 k m o d e l l i n g d i d n
0105660 ' t t e r m i n a t e a t
0105700 p a s s " P A S S ) ) ) \r
0105720 ( 006 002 i f 006 001 (
0105740 A N D T A M . M A X S T A C K
0105760 ( I G R E A T E R P M A X S
0106000 T K T A M . M A X S T A C K )
0106020 ) \r 006
0106040 002 t h e n 006 001 ( 006 002 A S M . E
0106060 R R 006 001 " m a x s t a c k "
0106100 M A X S T K " v s " T A M
0106120 . M A X S T A C K ) ) \r
0106140 ( C A R O L T ] ) \r
0106160 \r ( 006 004 A S M . C O D E P A S S
0106200 1 . I N N E R 006 001 \r [ L A M
0106220 B D A ( I L P A S S ) 006 003 006
0106240 001
0106260
*
0106320 006 003 ( * j m h \r
0106340
*
0106440 " 4 - M a
0106460 r - 8 6 1 9 : 0 4 " ) 006 001 \r
0106500 \r
0106520 006 003 ( * * d
0106540 o o n e p a s s f o r A
0106560 S M . C O D E P A S S 1 - - \r
0106600 w h i c
0106620 h h a s s e t E R R S O K
0106640 ? p r o p e r l y ) 006 001 \r \r
0106660 ( 006 002 D E C L A R E 006 001
0106700 ( G L O B A L V A R S \ A S M
0106720 . L S E E N ? ) \r
0106740 ( U S E D F R E E T A
0106760 M . S T A C K S T Y L E I N I
0107000 T T O S O L T N F M L S T
0107020 A C K S T K P R O G R E S S ?
0107040 ) ) \r ( 006 002 A S M . P H
0107060 A S E M A R K 006 001 " e a t c
0107100 o d e " P A S S ) \r (
0107120 S E T Q O L T ( C O N S ) )
0107140 \r ( S E T Q N F M L
0107160 0 ) \r ( C L R H A S H
0107200 \ A S M . L S E E N ? ) \r
0107220 ( S E T Q S T A C K ( S E
0107240 L E C T Q T A M . S T A C K S
0107260 T Y L E \r
0107300 ( D ( L I S
0107320 T ( L I S T 0 ) ) ) \r
0107340
0107360 ( L I S T I N I T T O S ) )
0107400 ) \r ( S E T Q S T K P
0107420 R O G R E S S ? N I L ) \r
0107440 ( 006 002 A S M . E A T C O D E
0107460 006 001 I L ) \r ( 006 002 i f
0107500 006 001 [ O R ( N L I S T P (
0107520 C D R O L T ) ) \r
0107540 ( N O T (
0107560 E Q U A L ( C A A D R O L T
0107600 ) \r
0107620 ( Q
0107640 U O T E ( - X - ] \r
0107660 006 002 t h e n 006 001
0107700
*
0107760 006 003 ( * f o r c e
0110000 t e r m i n a t i n g \r
0110020
*
0110120 - X - ) 006 001 \r
0110140 ( 006
0110160 002 A S M . E A T C O D E 006 001 (
0110200 Q U O T E ( ( - X - ] ) \r \r (
0110220 006 004 A S M . E A T C O D E 006 001 \r
0110240 [ L A M B D A ( I L )
0110260
*
0110320 006 003 (
0110340 * j m h " 2 1 - J u n - 8 6
0110360 1 2 : 3 6 " ) 006 001 \r \r
0110400 006 003 ( * * t h i
0110420 s p r o c e s s e s s o m e
0110440 i n s t r u c t i o n s I L
0110460 o n t o t h e s p e c v a
0110500 r o u t p u t s t r e a m
0110520 O L T ) 006 001 \r \r \r \r
0110540 006 003 ( * * a n A s
0110560 m F n h a s o n e a r g u
0110600 m e n t , a n i n s t r u c
0110620 t i o n , w h i c h h a s
0110640 b e e n A S M . L I S T e d
0110660 A S A C O M M E N T O N L
0110700 Y < s o e r r o r m e s s
0110720 a g e s c a n 006 001 \r \t 006
0110740 003 b e h u n g o n i t >
0110760 - - t h e A s m F n c a n
0111000 < 1 > r e t u r n a l i
0111020 s t o f i n s t r u c t i o
0111040 n s t o b e A S M . L I S
0111060 T e d a n d A S M . S T K M
0111100 O D E L e d a n d / o r < 2
0111120 > 006 001 \r \t 006 003 i t s e l f
0111140 c a l l A S M . E A T C O D
0111160 E o n a l i s t o f i
0111200 n s t r u c t i o n s , s o
0111220 t h a t t h e i r A s m F n
0111240 s g e t e x p a n d e d a
0111260 s w e l l ) 006 001 \r \r \r
0111300 ( 006 002 D E C L A R E 006 001 ( 006 001
0111320 G L O B A L V A R S 006 001 \ A S
0111340 M . L S E E N ? ) \r \t
0111360 ( 006 001 U S E D F R E E 006 001
0111400 T A M . A S M F N P R O P S ) )
0111420 \r ( 006 002 f o r 006 001 I
0111440 006 002 i n 006 001 I L 006 002 b i n d
0111460 006 001 A S M F N 006 002 d o 006 001
0111500 ( 006 002 i f 006 001 ( 006 001 N L I S T
0111520 P 006 001 I ) \r \t \t \t \t \t 006
0111540 002 t h e n 006 001
0111560 006 003 ( * l a b e l ) 006 001
0111600 \r \t \t \t \t \t \t ( 006 002 A S M .
0111620 E A T C O D E . D O L A B E L 006
0111640 001 I ) \r \t \t \t \t \t 006 002 e l s
0111660 e i f 006 001 ( 006 001 E Q 006 001 ( 006
0111700 001 Q U O T E 006 001 * ) \r \t \t \t \t
0111720 \t \t \t ( 006 001 C A R 006 001 I ) ) \r
0111740 \t \t \t \t \t 006 002 t h e n 006 001
0111760 006 003 ( *
0112000 c o m m e n t ) 006 001 \r \t \t \t \t
0112020 \t \t ( 006 002 A S M . L I S T 006
0112040 001 I ) \r \t \t \t \t \t 006 002 e l s
0112060 e i f 006 001 ( 006 002 f o r 006 001 P
0112100 R O P N A M E 006 002 i n 006 001 T
0112120 A M . A S M F N P R O P S \r \t \t
0112140 \t \t \t \t 006 002 t h e r e
0112160 i s 006 001 ( 006 001 S E T Q 006 001 A
0112200 S M F N ( 006 001 G E T P R O P 006
0112220 001 ( 006 001 C A R 006 001 I ) \r \t \t
0112240 \t \t \t \t \t \t \t \t \t P R O P N A M
0112260 E ) ) ) \r \t \t \t \t \t 006 002 t
0112300 h e n 006 001
0112320 006 003 ( * m a c r o o r v
0112340 a n i l l a g e n e r i c ) 006
0112360 001 \r \t \t \t \t \t \t ( 006 002 A S M
0112400 . L I S T 006 001 ( 006 001 C O N S 006
0112420 001 ( 006 001 Q U O T E 006 001 * ) \r
0112440 \t \t \t \t \t \t \t \t I )
0112460 ) \r \t \t \t \t \t \t ( 006 002 f o r
0112500 006 001 J 006 002 i n 006 001 ( 006 001 A
0112520 P P L Y * 006 001 A S M F N I )
0112540 \r \t \t \t \t \t \t 006 002 d o
0112560 006 001 ( 006 002 i f 006 001 ( 006 001 N L
0112600 I S T P 006 001 J ) \r \t \t \t \t \t \t
0112620 \t 006 002 t h e n 006 001
0112640 ( 006 002 A S M . E A T C O D E . D
0112660 O L A B E L 006 001 J ) \r \t \t \t \t
0112700 \t \t \t 006 002 e l s e 006 001
0112720 ( 006 002 A S M . S T K . I N S T R
0112740 006 001 J ) ) ) \r \t \t \t \t \t 006 002
0112760 e l s e 006 001
0113000 006 003 ( * v a n i l l a
0113020 i n s t r ) 006 001 \r \t \t \t \t \t \t
0113040 ( 006 002 A S M . S T K . I N S T R
0113060 006 001 I ] ) \r \r ( 006 004 A S M . E
0113100 A T C O D E . D O L A B E L 006 001
0113120 \r [ L A M B D A ( I )
0113140
*
0113200 006 003
0113220 ( * j m h " 2 1 - J u n - 8
0113240 6 1 2 : 3 5 " ) 006 001 \r
0113260 ( 006 002 A S M . L I S T 006 001 I )
0113300 \r ( 006 002 i f 006 001 ( 006 001
0113320 N U L L 006 001 I ) \r \t 006 002 t h e
0113340 n 006 001 ( 006 002 A S M . E R R . N
0113360 I L L A B E L 006 001 ) \r
0113400 006 002 e l s e i f 006 001 ( 006 001 G
0113420 E T H A S H 006 001 I \ A S M .
0113440 L S E E N ? ) \r \t 006 002 t h e n 006
0113460 001 ( 006 002 A S M . E R R . L A B
0113500 E L R E P E A T E D 006 001 ) \r
0113520 006 002 e l s e 006 001 ( 006 001
0113540 P U T H A S H 006 001 I T \ A
0113560 S M . L S E E N ? ) \r \t
0113600 ( 006 002 A S M . S T K . P A S S
0113620 L A B E L 006 001 I ] ) \r ) \r ( D
0113640 E F I N E Q \r \r ( 006 004 A S M . S
0113660 T K . I N S T R 006 001 \r [ L A
0113700 M B D A ( I ) \r ( 006 002
0113720 D E C L A R E 006 001 ( 006 001 G L O
0113740 B A L V A R S 006 001 \ A S M . L
0113760 2 S T A C K ) \r \t
0114000 ( 006 001 U S E D F R E E 006 001 S T
0114020 A C K N F M L T A M . S T A
0114040 C K S T Y L E ) )
0114060 006 003 ( * j m h " 2 1 - M a y
0114100 - 8 6 1 3 : 3 1 " ) 006 001 \r
0114120 ( 006 002 i f 006 001 ( 006 001 O R 006
0114140 001 ( 006 001 N L I S T P 006 001 I )
0114160 \r \t \t ( 006 001 E Q 006 001 ( 006 001 Q U
0114200 O T E 006 001 * ) \r \t \t
0114220 ( 006 001 C A R 006 001 I ) ) ) \r \t
0114240 006 002 t h e n 006 001 ( 006 002 A S M .
0114260 H E L P 006 001 " n o n - i n s t
0114300 r " I ) \r 006 002 e l
0114320 s e i f 006 001 ( 006 001 N O T 006 001
0114340 ( 006 001 L I T A T O M 006 001 ( 006 001
0114360 C A R 006 001 I ) ) ) \r \t 006 002 t h
0114400 e n 006 001 ( 006 002 A S M . L I S T
0114420 006 001 I ) \r \t ( 006
0114440 002 A S M . E R R . N O T L I T A
0114460 T O M 006 001 ) \r 006 002 e
0114500 l s e 006 001 ( 006 002 A S M . L I S
0114520 T 006 001 I ) \r \t ( L E
0114540 T [ ( L E V A D J ( L E T
0114560 ( O P C O D E X ) \r \t \t \t
0114600 ( 006 002 i f 006 001 ( 006
0114620 002 A S M . S T K G E N C L E V A
0114640 D J 006 001 ( 006 001 C A R 006 001 I )
0114660 ) \r \t \t \t \t 006 002 e l s e i f
0114700 006 001 ( 006 001 E Q 006 001 ( 006 001 C A
0114720 R 006 001 I ) \r \t \t \t \t \t \t ( 006
0114740 001 Q U O T E 006 001 A P P L Y F N
0114760 ) ) \r \t \t \t \t 006 002 t h e
0115000 n 006 001 ( 006 002 A S M . S T K A P
0115020 P L Y F N . L E V A D J . D 006 001
0115040 ) \r \t \t \t \t 006 002 e l s e i f
0115060 006 001 ( 006 001 S E T Q 006 001 O P C
0115100 O D E ( 006 002 A S M . G E T O P
0115120 C O D E 006 001 ( 006 001 C A R 006 001
0115140 I ) ) ) \r \t \t \t \t 006 002 t
0115160 h e n 006 001 ( 006 002 i f 006 001 ( 006
0115200 001 L I S T P 006 001 ( 006 001 S E T Q
0115220 006 001 X ( 006 002 f e t c h 006 001
0115240 ( O P C O D E L E V A D J ) \r
0115260 \t \t \t \t \t \t \t \t 006
0115300 002 o f 006 001 O P C O D E ) ) ) \r
0115320 \t \t \t \t \t 006 002 t h
0115340 e n 006 001 ( 006 001 C A R 006 001 X )
0115360 \r \t \t \t \t \t 006 002 e l s
0115400 e i f 006 001 X \r \t \t \t \t \t
0115420 006 002 e l s e 006 001 ( 006 001 C A
0115440 R 006 001 I ) ) \r \t \t \t \t 006 002
0115460 e l s e 006 001 ( 006 002 A S M . E R
0115500 R . N O O P C O D E 006 001 ) \r \t \t
0115520 \t \t \t 0 ] \r \t
0115540 ( 006 001 S E L E C T Q 006 001 L
0115560 E V A D J \r \t \t \t ( 006
0115600 001 R E T U R N 006 001 ( 006 001 S E T
0115620 Q 006 001 S T A C K N I L ) ) \r
0115640 \t \t \t ( J U M P ( 006
0115660 002 A S M . S T K . J U M P T O L
0115700 A B E L 006 001 I ) \r \t \t \t \t
0115720 ( 006 001 S E T Q 006 001 S T A C K
0115740 N I L ) ) \r \t \t \t (
0115760 C J U M P ( 006 002 A S M . S T K
0116000 A D D 006 001 - 1 ) \r \t \t \t \t
0116020 ( 006 002 A S M . S T K . J U M
0116040 P T O L A B E L 006 001 I ) ) \r \t
0116060 \t \t ( N C J U M P (
0116100 006 002 A S M . S T K . J U M P T O
0116120 L A B E L 006 001 I ) \r \t \t \t \t
0116140 ( 006 002 A S M . S T K A D
0116160 D 006 001 - 1 ) ) \r \t \t \t
0116200 ( F N X ( 006 002 i f 006 001 ( 006
0116220 001 A N D 006 001 ( 006 001 E Q 006 001 3
0116240 ( 006 001 L E N G T H 006 001 I ) )
0116260 \r \t \t \t \t \t ( 006 002
0116300 A S M . R A N G E ? 006 001 ( 006 001
0116320 C A D R 006 001 I ) \r \t \t \t \t \t \t
0116340 \t 0 2 5 5 ) ) \r \t \t
0116360 \t \t 006 002 t h e n 006 001
0116400 ( 006 002 A S M . S T K A D D 006 001
0116420 ( 006 001 I D I F F E R E N C E 006
0116440 001 1 ( 006 001 C A D R 006 001 I )
0116460 ) ) \r \t \t \t \t 006 002 e l s
0116500 e 006 001 ( 006 002 A S M . E R R . F
0116520 N X F O R M A T 006 001 ) ) ) \r \t \t
0116540 \t ( S U B R C A L L
0116560 ( 006 002 i f 006 001 ( 006 001 A N D 006 001
0116600 ( 006 001 E Q 006 001 3 ( 006 001 L E
0116620 N G T H 006 001 I ) ) \r \t \t \t \t \t
0116640 \t ( 006 002 A S M . R A N G
0116660 E ? 006 001 ( 006 001 C A D R 006 001 I
0116700 ) \r \t \t \t \t \t \t \t \t 0 2 5
0116720 5 ) ) \r \t \t \t \t \t 006 002 t h
0116740 e n 006 001 ( 006 002 A S M . S T K A
0116760 D D 006 001 ( 006 001 I D I F F E R E
0117000 N C E 006 001 1 ( 006 001 C A D D R
0117020 006 001 I ) ) ) \r \t \t \t \t \t 006 002
0117040 e l s e 006 001 ( 006 002 A S M . E R
0117060 R . N I L F O R M A T 006 001 2 )
0117100 ) ) \r \t \t \t ( B I N D
0117120 ( 006 002 A S M . S T K B I N D .
0117140 D 006 001 I ) ) \r \t \t \t
0117160 ( U N B I N D ( 006 002 A S M . S
0117200 T K U N B I N D . D 006 001 I 1
0117220 ) ) \r \t \t \t ( D U N B
0117240 I N D ( 006 002 A S M . S T K U N
0117260 B I N D . D 006 001 I 0 ) ) \r \t
0117300 \t \t [ T U N B I N D
0117320 ( 006 001 S E L E C T Q 006 001 T A M
0117340 . S T A C K S T Y L E \r \t \t \t \t
0117360 \t \t ( D ( 006 002 A S M . E R R
0117400 . S T A C K S T Y L E 006 001 ) ) \r
0117420 \t \t \t \t \t \t ( 006 002 i f 006 001 (
0117440 006 001 E Q 006 001 2 ( 006 001 L E N G
0117460 T H 006 001 I ) ) \r \t \t \t \t \t \t
0117500 006 002 t h e n 006 001 ( 006 002
0117520 A S M . S T K S E T . T 006 001 (
0117540 006 001 C A D R 006 001 I ) \r \t \t \t \t
0117560 \t \t \t \t \t ( 006 001 S E L E
0117600 C T Q 006 001 ( 006 001 C A R 006 001 I
0117620 ) \r \t \t \t \t \t \t \t \t \t \t
0117640 ( U N B I N D 1 ) \r \t \t
0117660 \t \t \t \t \t \t \t \t (
0117700 D U N B I N D \r \t \t \t \t \t \t \t \t
0117720 \t \t \t 0 ) \r \t \t \t \t \t \t \t \t \t
0117740 \t ( 006 002 A S M . E
0117760 R R 006 001 \r \t \t \t \t \t \t \t \t \t \t \t
0120000 \r \t \t \t \t \t \t \t \t
0120020 " b a d l e v a d j - T U N B
0120040 I N D o p c o d e " \r \t \t \t \t
0120060 \t \t \t \t \t \t \t I ) ) ) \r \t \t \t
0120100 \t \t \t 006 002 e l s e 006 001 (
0120120 006 002 A S M . E R R . J U M P F O
0120140 R M A T 006 001 ] \r \t \t \t
0120160 ( P O P ( 006 002 i f 006 001 ( 006 001
0120200 A N D 006 001 ( 006 001 E Q 006 001 2
0120220 ( 006 001 L E N G T H 006 001 I ) ) \r
0120240 \t \t \t \t \t ( 006 002 A
0120260 S M . R A N G E ? 006 001 ( 006 001 C
0120300 A D R 006 001 I ) \r \t \t \t \t \t \t \t
0120320 0 2 5 5 ) ) \r \t \t \t
0120340 \t 006 002 t h e n 006 001
0120360 ( 006 002 A S M . S T K A D D 006 001
0120400 ( 006 001 I M I N U S 006 001 ( 006 001 C
0120420 A D R 006 001 I ) ) ) \r \t \t \t \t
0120440 006 002 e l s e 006 001 ( 006 002 A
0120460 S M . E R R . N I L F O R M A T
0120500 006 001 1 ) ) ) \r \t \t \t
0120520 ( - X - N I L ) \r \t \t \t
0120540 ( 006 002 i f 006 001 ( 006 001 N U M
0120560 B E R P 006 001 L E V A D J ) \r \t
0120600 \t \t \t 006 002 t h e n 006 001 ( 006 002
0120620 A S M . S T K A D D 006 001 L E V
0120640 A D J ) \r \t \t \t 006
0120660 002 e l s e 006 001 ( 006 002 A S M . E
0120700 R R 006 001 " u n k n o w n L E
0120720 V A D J " L E V A D J ) ) ) \r
0120740 \t ( 006 002 A S
0120760 M . S T K M A X 006 001 ] ) \r \r ( 006
0121000 004 A S M . S T K G E N C L E V A
0121020 D J 006 001 \r [ L A M B D A (
0121040 O P )
0121060
*
0121120 006 003 ( * j m h " 9 - N
0121140 o v - 8 5 1 4 : 2 0 " ) 006 001 \r
0121160 \r 006 003 ( *
0121200 * r e t u r n s t h e L E
0121220 V A D J f o r t h e g e n
0121240 e r i c O P i f O P i s
0121260 t h e k i n d o f t h i
0121300 n g t h a t g e t s e x p
0121320 a n d e d o n l y i n p h
0121340 a s e 2 < i e 006 001 \r \t
0121360 006 003 v a r i a b l e - r e f e r
0121400 e n c e g e n e r i c o r
0121420 j u m p g e n e r i c > - -
0121440 e l s e r e t u r n s N I
0121460 L ) 006 001 \r \r \r ( 006 001 S E
0121500 L E C T Q 006 001 O P \r \t
0121520 ( ( I V A R P V A R F
0121540 V A R V A R ) \r \t \t 1 ) \r \t
0121560 ( ( I V A R _ P
0121600 V A R _ F V A R _ V A R _ )
0121620 \r \t \t 0 ) \r \t (
0121640 ( I V A R _ ^ \r \t \t P V A
0121660 R _ ^ \r \t \t F V A R _ ^ \r
0121700 \t \t V A R _ ^ ) \r \t \t -
0121720 1 ) \r \t ( J U M P
0121740 ( 006 001 Q U O T E 006 001 J U M P
0121760 ) ) \r \t ( ( F J U
0122000 M P T J U M P ) \r \t \t ( 006 001
0122020 Q U O T E 006 001 C J U M P ) ) \r
0122040 \t ( ( N F J U M P
0122060 N T J U M P ) \r \t \t ( 006 001 Q
0122100 U O T E 006 001 N C J U M P ) ) \r
0122120 \t N I L ] ) \r \r (
0122140 006 004 A S M . S T K A P P L Y F N
0122160 . L E V A D J . D 006 001 \r [ L
0122200 A M B D A N I L 006 003 006 001
0122220
*
0122300 006 003 ( * j m h
0122320 \r
0122340
*
0122420 " 4 -
0122440 M a r - 8 6 1 9 : 0 5 " ) 006 001
0122460 \r \r
0122500 006 003 ( * *
0122520 f i g u r e o u t t h e
0122540 s t a c k e f f e c t f o r
0122560 t h i s A P P L Y F N , i
0122600 f i t s n u m b e r o f
0122620 \r a r g
0122640 u m e n t s i s s u p p l i
0122660 e d w i t h a S I C - l i
0122700 k e f o r m - - \r
0122720 e l s e g u e s
0122740 s s t a c k e f f e c t -
0122760 1 , e r r o r , a n d a b
0123000 o r t s t a c k m o d e l l
0123020 i n g - - 377 002 H 377 \0 d e t e c
0123040 t i o n \r
0123060 o f t h e S I C - l i k
0123100 e f o r m i s p r e t t y
0123120 a d - h o c ) 006 001 \r \r
0123140 ( 006 002 D E C L A R E 006 001 ( U S
0123160 E D F R E E T A M . S T A C K
0123200 S T Y L E O L T S T K F A I
0123220 L U R E ? ) ) \r ( S E L
0123240 E C T Q T A M . S T A C K S T
0123260 Y L E \r ( D (
0123300 L E T ( ( O L T A I L ( N L
0123320 E F T ( C A R O L T ) \r
0123340
0123360 5 )
0123400 ) ) \r
0123420 ( 006 002 i f 006 001 [ N O T
0123440 ( A N D ( E Q 5 ( L E N G
0123460 T H O L T A I L ) ) \r
0123500
0123520 ( E
0123540 Q U A L ( C A R ( C A D D R
0123560 O L T A I L ) ) \r
0123600
*
0123640 ( Q U O T E ( * f o r
0123660 T 2 D : C H E C K A P P L Y *
0123700 ) ) ) \r
0123720
0123740 ( E Q U A L ( C A
0123760 R ( C A D D D R O L T A I L
0124000 ) ) \r
0124020
0124040 ( Q U O
0124060 T E ( C H E C K A P P L Y * ]
0124100 \r
0124120 006 002 t h e n 006 001 ( S
0124140 E T Q O L T A I L ( C D D R
0124160 O L T A I L ) ) ) \r
0124200 ( 006 002 i f
0124220 006 001 [ A N D ( M E M B ( C
0124240 A R ( C A R ( C A R O L T
0124260 A I L ) ) ) \r
0124300
0124320 ( Q U O T E
0124340 ( ' 0 ' 1 S I C ) ) ) \r
0124360
0124400 ( M E M
0124420 B ( C A R ( C A R ( C A D
0124440 R O L T A I L ) ) ) \r
0124460
0124500 (
0124520 Q U O T E ( I V A R P V A R
0124540 F V A R G V A R A C O N S
0124560 T C O P Y . N ] \r
0124600 006 002
0124620 t h e n 006 001 ( I D I F F E R E
0124640 N C E - 1 ( S E L E C T Q
0124660 ( C A R ( C A A R O L T A I
0124700 L ) ) \r
0124720
*
0124760 ( ' 0 0 ) \r
0125000
*
0125040 ( ' 1
0125060 1 ) \r
0125100
*
0125140 ( S I C ( C A D R
0125160 ( C A A R O L T A I L ) ) ) \r
0125200
*
0125260 ( S H O U L D N T ) ) ) \r
0125300
0125320 006 002 e l s e 006 001 ( S E T Q S
0125340 T K F A I L U R E ? T ) \r
0125360
0125400 ( 006 002 A S M . E R R
0125420 006 001 " c a n t f i g u r e
0125440 s t a c k e f f e c t o f
0125460 A P P L Y F N " ) \r
0125500
0125520 - 1 ) ) ) \r
0125540 ( 006 002 A S M . E R R . S T A C K
0125560 S T Y L E 006 001 ] ) \r ) \r ( D E F
0125600 I N E Q \r \r ( 006 004 A S M . S T K
0125620 . P A S S L A B E L 006 001 \r [
0125640 L A M B D A ( L A B E L ) 006 003
0125660 006 001
0125700
0125720 006 003
0125740 ( * j m h " 1 - A p r - 8
0125760 6 1 5 : 3 3 " ) 006 001 \r
0126000 \r
0126020 006 003 ( * * a t t r i b u t
0126040 e a n y n e w s t a c k
0126060 i n f o f r o m p r e v i o
0126100 u s i n s t r t o t h e
0126120 l a b e l - - \r 006 001
0126140 006 003 r e b u i l d S
0126160 T A C K f r o m t h e l a
0126200 b e l ' s s t a c k i n f o
0126220 ) 006 001 \r \r
0126240 006 003 ( * *
0126260 a n \ A S M . L 2 S T A C K
0126300 e n t r y h a s t h e s a
0126320 m e f o r m a t a s S T A
0126340 C K : a l i s t o f \r 006
0126360 001 006 003 p o s
0126400 s i b l e - s t a c k s ) 006 001 \r
0126420 \r ( 006 002 D E C L A R E 006
0126440 001 ( G L O B A L V A R S \ A
0126460 S M . L 2 S T A C K ) \r
0126500 ( U S E D F R E E
0126520 S T A C K S T K P R O G R E
0126540 S S ? ) ) \r ( 006 002 i f 006
0126560 001 ( N U L L L A B E L ) \r
0126600 006 002 t h e n 006 001
0126620 ( 006 002 A S M . H E L P 006 001 " N
0126640 I L l a b e l " ) \r
0126660 006 002 e l s e 006 001 ( L E T (
0126700 ( L A B E L S T A C K ( G E T
0126720 H A S H L A B E L \ A S M .
0126740 L 2 S T A C K ) ) ) \r
0126760 ( 006 002 i f
0127000 006 001 ( L D I F F E R E N C E
0127020 S T A C K L A B E L S T A C K
0127040 ) \r
0127060 006 002 t h e n 006 001 (
0127100 S E T Q S T K P R O G R E S S
0127120 ? T ) ) \r
0127140 ( 006 002 i f 006 001 ( O
0127160 R ( L D I F F E R E N C E S
0127200 T A C K L A B E L S T A C K )
0127220 \r
0127240 ( L D I F F E
0127260 R E N C E L A B E L S T A C K
0127300 S T A C K ) ) \r
0127320 006 002 t
0127340 h e n 006 001 ( S E T Q S T A C
0127360 K ( U N I O N S T A C K L
0127400 A B E L S T A C K ) ) \r
0127420
0127440 ( P U T H A S H L A
0127460 B E L ( C O P Y A L L S T A
0127500 C K ) \r
0127520
0127540 \ A S M . L 2 S T A C K
0127560 ] ) \r \r ( 006 004 A S M . S T K . J
0127600 U M P T O L A B E L 006 001 \r [
0127620 L A M B D A ( I N S T R ) 006 003
0127640 006 001
0127660
*
0127720 006 003 ( * j m h
0127740 \r
0127760
*
0130040 " 2 7
0130060 - F e b - 8 6 1 1 : 5 5 " ) 006
0130100 001 \r \r
0130120 006 003 ( *
0130140 * h a n d l e j u m p - t o
0130160 - - c h e c k s y n t a x
0130200 o f j u m p i n s t r ,
0130220 a t t r i b u t e S T A C K
0130240 t o \r
0130260 l a b e l - - n o t e i f
0130300 t h i s i s n e w i n f
0130320 o r m a t i o n ) 006 001 \r \r
0130340 ( 006 002 D E C L A R E 006 001 ( G
0130360 L O B A L V A R S \ A S M . L
0130400 2 S T A C K ) \r
0130420 ( U S E D F R E E S T A
0130440 C K S T K P R O G R E S S ? )
0130460 ) \r ( 006 002 i f 006 001 [ N
0130500 O T ( A N D ( L I S T P I
0130520 N S T R ) \r
0130540 ( E Q
0130560 2 ( L E N G T H I N S T R )
0130600 ) \r
0130620 ( N L I S T P
0130640 ( C A D R I N S T R ] \r
0130660 006 002 t h e n 006 001 ( 006
0130700 002 A S M . E R R . J U M P F O R
0130720 M A T 006 001 ) \r 006 002 e
0130740 l s e 006 001 ( L E T * ( ( L A B
0130760 E L ( C A D R I N S T R ) )
0131000 \r
0131020 ( L A B E L S T K
0131040 ( G E T H A S H L A B E L \
0131060 A S M . L 2 S T A C K ) ) ) \r
0131100 (
0131120 006 002 i f 006 001 ( L D I F F E R E
0131140 N C E S T A C K L A B E L S
0131160 T K ) \r
0131200 006 002 t h e n 006 001
0131220 ( S E T Q S T K P R O G R E
0131240 S S ? T ) \r
0131260
0131300 ( P U T H A S H L A B E L
0131320 ( C O P Y A L L ( U N I O N
0131340 L A B E L S T K S T A C K ) )
0131360 \r
0131400
0131420 \ A S M . L 2 S T A C K ] )
0131440 \r ) \r ( D E F I N E Q \r \r ( 006 004
0131460 A S M . S T K M A X 006 001 \r [
0131500 L A M B D A N I L 006 003 006 001
0131520
*
0131600 006 003 ( * j m h
0131620 \r
0131640
*
0131720 " 4
0131740 - M a r - 8 6 1 9 : 0 5 " ) 006
0131760 001 \r \r
0132000 006 003 ( *
0132020 * u p d a t e M A X S T K
0132040 i f S T A C K w a r r a n t
0132060 s i t ) 006 001 \r \r ( 006 002
0132100 D E C L A R E 006 001 ( U S E D F
0132120 R E E T A M . S T A C K S T Y
0132140 L E M A X S T K S T A C K )
0132160 ) \r ( 006 002 f o r 006 001 S
0132200 006 002 i n 006 001 S T A C K 006 002
0132220 w h e n 006 001 S 006 002 b i n d 006
0132240 001 S D E P T H 006 002 d o 006 001
0132260 ( S E T Q S D E P T H ( S E
0132300 L E C T Q T A M . S T A C K S
0132320 T Y L E \r
0132340
*
0132440 ( D ( C A R S ) ) \r
0132460
*
0132560 S
0132600 ) ) \r
0132620
*
0132700 ( 006 002 i f 006 001 ( I G R E A T E
0132720 R P S D E P T H M A X S T K
0132740 ) \r
0132760
*
0133040 006 002 t h e n 006 001 ( S E T
0133060 Q M A X S T K S D E P T H ]
0133100 ) \r \r ( 006 004 A S M . S T K A D D
0133120 006 001 \r [ L A M B D A ( D E
0133140 L T A ) 006 003 006 001
0133160
*
0133240 006 003 ( * j m h \r
0133260
*
0133360 " 2 7 - M a r - 8
0133400 6 1 5 : 4 4 " ) 006 001 \r
0133420 \r
0133440 006 003 ( * * a p p l
0133460 y s t r a i g h t f o r w a r
0133500 d n u m e r i c a d d i t i
0133520 o n t o s t a c k p o s i
0133540 t i o n ) 006 001 \r \r ( 006 002
0133560 D E C L A R E 006 001 ( U S E D F
0133600 R E E T A M . S T A C K S T Y
0133620 L E S T A C K ) ) \r (
0133640 006 002 f o r 006 001 S T A I L 006 002
0133660 o n 006 001 S T A C K 006 002 b i n
0133700 d 006 001 S \r 006 002 d
0133720 o 006 001 ( 006 002 i f 006 001 ( S E T
0133740 Q S ( C A R S T A I L ) )
0133760 \r 006
0134000 002 t h e n 006 001 ( R P L A C A
0134020 S T A I L ( S E L E C T Q T
0134040 A M . S T A C K S T Y L E \r
0134060
*
0134120 ( D ( A N D ( 006 002 A S
0134140 M . S T K O K ? . D 006 001 S (
0134160 Q U O T E < b e f o r e > ) )
0134200 \r
0134220
0134240 ( 006
0134260 002 a d d 006 001 ( C A R S ) \r
0134300
*
0134360 D E L T A ) \r
0134400
*
0134440 ( 006 002 A S M . S T K O
0134460 K ? . D 006 001 S ( Q U O T E
0134500 < a f t e r > ) ) ) ) \r
0134520
*
0134560 ( A N D ( 006 002 A S M . S T K
0134600 O K ? . T 006 001 S ( Q U O T E
0134620 < b e f o r e > ) ) \r
0134640
*
0134700 ( 006 002 a d d 006 001 S
0134720 D E L T A ) \r
0134740
*
0135000 ( 006 002 A S M . S T K O K ? .
0135020 T 006 001 S ( Q U O T E < a f
0135040 t e r > ] ) \r ) \r ( D E F I N E
0135060 Q \r \r ( 006 004 A S M . S T K B I N
0135100 D . D 006 001 \r [ L A M B D A
0135120 ( I ) 006 003 006 001
0135140
*
0135220 006 003 ( * j m h \r
0135240
*
0135340 " 4 - M a r - 8 6
0135360 1 9 : 0 5 " ) 006 001 \r (
0135400 006 002 D E C L A R E 006 001 ( U S E
0135420 D F R E E T A M . S T A C K S
0135440 T Y L E S T A C K ) ) \r
0135460 ( S E L E C T Q T A M . S T
0135500 A C K S T Y L E \r
0135520 ( D ( 006 002 i f 006 001 [ A N D
0135540 ( E Q 3 ( L E N G T H I
0135560 ) ) \r
0135600 ( O R (
0135620 N U L L ( C A D R I ) ) \r
0135640
0135660 ( L I S T
0135700 P ( C A D R I ] \r
0135720 006 002 t h e n
0135740 006 001 \r
0135760 [ 006 002 f o r 006 001 S T A I L
0136000 006 002 o n 006 001 S T A C K 006 002
0136020 b i n d 006 001 S \r
0136040 006 002 d o 006
0136060 001 ( 006 002 i f 006 001 ( S E T Q
0136100 S ( C A R S T A I L ) ) \r
0136120
0136140 006 002 t h
0136160 e n 006 001 ( R P L A C A S T A
0136200 I L ( A N D ( 006 002 A S M . S
0136220 T K O K ? . D 006 001 S ( Q U O
0136240 T E < b e f o r e > ) ) \r
0136260
*
0136340 [ 006 002 a d d 006 001
0136360 ( C A R S ) \r
0136400
*
0136460 ( A D D 1 ( I
0136500 M I N U S ( L E N G T H ( C
0136520 A D R I ] \r
0136540
*
0136620 ( 006 002 A S M . S T K O K ? . D 006
0136640 001 S ( Q U O T E < a f t e
0136660 r A d j u s t > ) ) \r
0136700
*
0136760 ( 006 002 p u s h 006 001 S
0137000 ( C A R S ] \r
0137020 006 002 e l s e 006 001 ( 006
0137040 002 A S M . E R R . B I N D F O R
0137060 M A T 006 001 ) ) ) \r
0137100 ( 006 002 A S M . E R R . S T A C
0137120 K S T Y L E 006 001 ] ) \r \r ( 006 004 A
0137140 S M . S T K U N B I N D . D 006 001
0137160 \r [ L A M B D A ( I N E
0137200 X T R A ) \r ( 006 002 D E C
0137220 L A R E 006 001 ( U S E D F R E E
0137240 T A M . S T A C K S T Y L E
0137260 S T A C K ) ) 006 003 006 001
0137300
0137320 006 003 ( * j m h \r
0137340
*
0137440 " 4 - M a r - 8 6
0137460 1 9 : 0 6 " ) 006 001 \r (
0137500 S E L E C T Q T A M . S T A C
0137520 K S T Y L E \r (
0137540 D [ 006 002 i f 006 001 ( N E Q 1
0137560 ( L E N G T H I ) ) \r
0137600 006 002 t h
0137620 e n 006 001 ( 006 002 A S M . E R R .
0137640 N I L F O R M A T 006 001 0 ) \r
0137660 006 002 e l
0137700 s e i f 006 001 [ O R ( N U L L
0137720 S T A C K ) \r
0137740
0137760 ( 006 002 f o r 006 001 S 006
0140000 002 i n 006 001 S T A C K 006 002 t h
0140020 e r e i s 006 001 ( N U L L S )
0140040 ) \r
0140060 ( 006
0140100 002 f o r 006 001 S 006 002 i n 006 001
0140120 ( C D R S T A C K ) 006 002 t h
0140140 e r e i s 006 001 ( N E Q ( L E
0140160 N G T H S ) \r
0140200
*
0140300 ( L E N G T H ( C A R
0140320 S T A C K ] \r
0140340 006 002 t h e n 006 001 (
0140360 006 002 A S M . E R R 006 001 " s t a
0140400 c k a m b i g u o u s w r t
0140420 b i n d i n g m a r k s " )
0140440 \r
0140460 ( S E T Q S T A C
0140500 K N I L ) \r
0140520 006 002 e l s e 006 001 ( 006 002
0140540 f o r 006 001 S T A I L 006 002 o n
0140560 006 001 S T A C K 006 002 b i n d 006
0140600 001 S \r
0140620 006 002 d
0140640 o 006 001 ( 006 002 i f 006 001 ( S E T
0140660 Q S ( C A R S T A I L ) )
0140700 \r
0140720
0140740 006 002 t h e n 006 001 ( R
0140760 P L A C A S T A I L \r
0141000
*
0141060 ( A N D ( 006 002 A S M . S T K O
0141100 K ? . D 006 001 S ( Q U O T E
0141120 < b e f o r e > ) ) \r
0141140
*
0141220 ( 006 002 i f 006 001 ( I G E
0141240 Q 1 ( L E N G T H S ) ) \r
0141260
*
0141340 006 002 t
0141360 h e n 006 001 ( 006 002 A S M . E R R
0141400 006 001 " n o b i n d i n g m
0141420 a r k " \r
0141440
*
0141520