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