$ od -c -N 50000 [eris]<LispCore>SOURCES>LLBASIC.DCOM!54
0000000 ( F I L E C R E A T E D " 7
0000020 - O c t - 8 6 1 6 : 5 9 : 4 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > L L B A S I
0000120 C . ; 6 0 ) \r " 1 - O c t -
0000140 8 6 2 0 : 2 3 : 1 5 " " C O
0000160 M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 1 - O
0000220 c t - 8 6 . . . " d a t e d
0000240 " 1 - O c t - 8 6 2 1 : 2
0000260 4 : 4 4 " ) \r ( F I L E C R E A
0000300 T E D " 6 - O c t - 8 6 2
0000320 1 : 5 7 : 4 3 " { E R I S } <
0000340 L I S P C O R E > S O U R C E S
0000360 > L L B A S I C . ; 6 0 6 7 2
0000400 3 9 c h a n g e s t o : (
0000420 V A R S \r L L B A S I C C O M
0000440 S ) ( F U N C T I O N S A T
0000460 O M ) p r e v i o u s d a t
0000500 e : " 4 - O c t - 8 6 1 7
0000520 : 0 0 : 4 8 " { E R I S } < L
0000540 I S P C O R E > S O U R C E S >
0000560 L L B A S I C . ; 5 9 ) \r ( R P
0000600 A Q Q L L B A S I C C O M S
0000620 ( ( F N S L I S T P L I T A
0000640 T O M F I X P S T R I N G P
0000660 S M A L L P N L I S T P A
0000700 R R A Y P F L O A T P N U M
0000720 B E R P S T A C K P ) ( \r F
0000740 U N C T I O N S A T O M ) (
0000760 D E C L A R E : D O N T C O P
0001000 Y ( E X P O R T ( M A C R O
0001020 S C H E C K \ S t a t s Z e
0001040 r o \ S t a t s A d d 1 I P
0001060 L U S 1 6 S M A L L P O S P
0001100 \r S E T X V A R S E T Q . N O
0001120 R E F I E Q ) ( T E M P L A
0001140 T E S S P R E A D A P P L Y *
0001160 S P R E A D A P P L Y S E T
0001200 Q . N O R E F ) ( C O N S T A
0001220 N T S W o r d s P e r P a g e
0001240 ) ) ) ( \r C O M S ( * ;
0001260 " a t o m s " ) ( F N S G E
0001300 T T O P V A L S E T T O P V A
0001320 L F S E T V A L \ S E T G L
0001340 O B A L V A L . U F N \ S E T
0001360 F V A R . U F N G E T P R O P
0001400 L I S T \r \ A T O M C E L L
0001420 S E T P R O P L I S T ) ( C O
0001440 M S ( M A C R O S \ P R O P
0001460 C E L L ) ( O P T I M I Z E R
0001500 S \ A T O M C E L L G E T P
0001520 R O P L I S T S E T P R O P L
0001540 I S T ) ) ( F N S \r \ M K A
0001560 T O M \ C R E A T E . S Y M B
0001600 O L \ M K A T O M . F U L L
0001620 \ I N I T A T O M P A G E ) (
0001640 F N S M A P A T O M S A T O
0001660 M H A S H # P R O B E S ) ( C
0001700 O M S ( * ; \r " F o r M
0001720 A K E I N I T & T e l e R a
0001740 i d " ) ( F N S I N I T A T
0001760 O M S C O P Y A T O M U N C
0002000 O P Y A T O M ) ) ( C O M S
0002020 ( * ; \r " S e e \ P N A M
0002040 E L I M I T c o m m e n t b
0002060 e l o w " ) ( V A R S ( \ P
0002100 N A M E L I M I T 2 5 5 ) )
0002120 ( I N I T V A R S ( \ P N A M
0002140 E S . I N . B L O C K S ? ) ) )
0002160 ( F N S \r \ D E F I N E D P
0002200 P U T D \ P U T D G E T D
0002220 P U T D E F N G E T D E F N
0002240 ) ( V A R S ( C O M P I L E
0002260 A T P U T D F L G ) ) ( I N I
0002300 T V A R S ( * P A C K A G E -
0002320 F R O M - I N D E X * ) ) \r (
0002340 D E C L A R E : D O N T C O P
0002360 Y ( E X P O R T ( R E C O R
0002400 D S L I T A T O M S Y M B O
0002420 L V A L I N D E X V C E L L
0002440 D E F I N I T I O N C E L L
0002460 F N H E A D E R P N A M E C E
0002500 L L \r P A C K A G E I N D E X
0002520 P N A M E B A S E P N A M E
0002540 I N D E X ) ( M A C R O S \
0002560 D E F C E L L \ V A L C E L L
0002600 \ P N A M E C E L L ) ( M A
0002620 C R O S \ A T O M V A L I N D
0002640 E X \r \ A T O M D E F I N D E
0002660 X \ A T O M P N A M E I N D E
0002700 X \ A T O M P R O P I N D E X
0002720 \ I N D E X A T O M P N A M E
0002740 \ I N D E X A T O M V A L \
0002760 I N D E X A T O M D E F ) ( G
0003000 L O B A L V A R S \r \ N x t P
0003020 n B y t e \ C u r P n P a g e
0003040 \ N x t A t o m P a g e \ A
0003060 t o m F r L s t \ O n e C h a
0003100 r A t o m B a s e \ P N A M E
0003120 S . I N . B L O C K S ? \ S C
0003140 R A T C H S T R I N G \r C O M
0003160 P I L E A T P U T D F L G * P
0003200 A C K A G E - F R O M - I N D E
0003220 X * ) ( C O N S T A N T S (
0003240 \ P N A M E L I M I T 2 5 5 )
0003260 ( \ C h a r s P e r P n P a g
0003300 e 5 1 2 ) ) ( * ; ; \r "
0003320 \ P N A M E L I M I T i s e
0003340 x p o r t e d b u t n e e d
0003360 s t o a l s o b e a V
0003400 A R S o n t h i s f i l e
0003420 t o g e t i t c o p i e
0003440 d . N o t e t h a t b o
0003460 t h c o m m a n d s m u s t
0003500 b e e d i t e d t o g e t
0003520 h e r . " \r ) ) ) ( D E C
0003540 L A R E : E V A L @ C O M P I
0003560 L E D O N T C O P Y ( M A C
0003600 R O S C O M P U T E . A T O M
0003620 . H A S H A T O M . H A S H .
0003640 R E P R O B E ) ( A D D V A R
0003660 S ( \r D O N T C O M P I L E F
0003700 N S I N I T A T O M S C O P
0003720 Y A T O M U N C O P Y A T O M
0003740 G E T D E F N P U T D E F N
0003760 F S E T V A L ) ) ) ) ( C O
0004000 M S ( * ; \r " f o r e x
0004020 e c u t i n g b o o t e x p
0004040 r e s s i o n s w h e n f i
0004060 r s t r u n " ) ( F N S \
0004100 R E S E T S Y S T E M S T A T E
0004120 I N I T I A L E V A L Q T S
0004140 I M P L E P R I N T ) ( \r G L
0004160 O B A L V A R S R E S E T F O
0004200 R M S B O O T F I L E S ) )
0004220 ( C O M S ( * ; " s t a t
0004240 s " ) ( F N S P A G E F A U
0004260 L T S \ S E T T O T A L T I M
0004300 E \ S E R I A L N U M B E R )
0004320 ) ( \r C O M S ( * ; " F
0004340 a s t f u n c t i o n s f o
0004360 r m o v i n g a n d c l e
0004400 a r i n g s t o r a g e " )
0004420 ( F N S \ B L T \ M O V E B
0004440 Y T E S \ C L E A R W O R D S
0004460 \r \ C L E A R B Y T E S \ C
0004500 L E A R C E L L S ) ( D E C L
0004520 A R E : E V A L @ C O M P I L
0004540 E D O N T C O P Y ( M A C R
0004560 O S . C L E A R N W O R D S .
0004600 ) ) ( C O M S ( * ; " O
0004620 b s o l e t e " \r ) ( D E C L
0004640 A R E : E V A L @ C O M P I L
0004660 E D O N T C O P Y ( E X P O
0004700 R T ( M A C R O S \ M O V E
0004720 W O R D S ) ) ) ( F N S \ M
0004740 O V E W O R D S \ Z E R O B Y
0004760 T E S \ Z E R O W O R D S ) \r
0005000 ) ) ( L O C A L V A R S .
0005020 T ) ( D E C L A R E : D O N
0005040 T C O P Y ( * ; " F o r
0005060 M A K E I N I T & T e l e R
0005100 a i d " ) ( A D D V A R S (
0005120 I N I T V A L U E S ( \ A t o
0005140 m F r L s t \r 0 ) ) ( I N I
0005160 T P T R S ( \ O n e C h a r A
0005200 t o m B a s e N I L ) ( \ S
0005220 C R A T C H S T R I N G ) ) (
0005240 I N E W C O M S ( F N S F S
0005260 E T V A L S E T P R O P L I S
0005300 T P U T D E F N \r \ B L T
0005320 \ A T O M C E L L ) ( F N S
0005340 \ M K A T O M \ C R E A T E .
0005360 S Y M B O L \ I N I T A T O M
0005400 P A G E \ M O V E B Y T E S )
0005420 ( F N S C O P Y A T O M I
0005440 N I T A T O M S ) ) ( \r E X P
0005460 A N D M A C R O F N S S M A L
0005500 L P O S P C O M P U T E . A T
0005520 O M . H A S H A T O M . H A S
0005540 H . R E P R O B E \ D E F C E
0005560 L L \ V A L C E L L \ P N A
0005600 M E C E L L \ P R O P C E L L
0005620 \r \ I N D E X A T O M P N A M
0005640 E ) ( M K I . S U B F N S (
0005660 \ P A R S E . N U M B E R .
0005700 N I L L ) ( \ M K A T O M . F
0005720 U L L . N I L L ) ( \ A T
0005740 O M D E F I N D E X . \r I .
0005760 A T O M N U M B E R ) ( \ A T
0006000 O M V A L I N D E X . I . A
0006020 T O M N U M B E R ) ( \ A T O
0006040 M P R O P I N D E X . I . A
0006060 T O M N U M B E R ) ( \ A T O
0006100 M P N A M E I N D E X . \r I
0006120 . A T O M N U M B E R ) ( S E
0006140 T Q . N O R E F . S E T Q )
0006160 ( S E T T O P V A L . I .
0006200 F S E T V A L ) ) ( R D . S U
0006220 B F N S ( \ P A R S E . N U M
0006240 B E R . N I L L ) ( \r \ A
0006260 T O M D E F I N D E X . V A
0006300 T O M N U M B E R ) ( \ A T O
0006320 M P R O P I N D E X . V A T
0006340 O M N U M B E R ) ( \ A T O M
0006360 V A L I N D E X . V A T O M
0006400 N U M B E R ) ( S E T Q . N O
0006420 R E F \r . S E T Q ) ( \ I
0006440 N D E X A T O M P N A M E .
0006460 V A T O M ) ( \ I N D E X A T
0006500 O M V A L . V A T O M ) (
0006520 \ I N D E X A T O M D E F .
0006540 V A T O M ) ( \ C R E A T E .
0006560 S Y M B O L . \r V N O S U C
0006600 H A T O M ) ) ( R D C O M S
0006620 ( F N S U N C O P Y A T O M
0006640 \ M K A T O M G E T T O P V A
0006660 L G E T P R O P L I S T S E
0006700 T T O P V A L G E T D E F N
0006720 \ A T O M C E L L ) ( F N S
0006740 \r L I S T P ) ( V A R S ( C
0006760 O P Y A T O M S T R ) ) ) ( R
0007000 D . S U B F N S ( \ R P L P T
0007020 R . V P U T B A S E P T R )
0007040 ) ( R D V A L S ( \ A t o m
0007060 F r L s t ) ) ) ) ( P R O P
0007100 \r F I L E T Y P E L L B A S I
0007120 C ) ) ) \r L I S T P D 1 \r ( L
0007140 ( 0 X ) ) \0 025 \0 \0 \0 001 @ 004
0007160 l 005 360 264 016 @ 323 l 377 345 j 360 h 360 264 003
0007200 @ 020 \0 N I L \r N I L \r ( ) \r L I
0007220 T A T O M D 1 \r ( L ( 0 X
0007240 ) ) \0 \a \0 \0 \0 001 @ 004 l 004 360 020 \0
0007260 N I L \r N I L \r ( ) \r F I X P
0007300 D 1 \r ( L ( 0 X ) ) \0 005 \0
0007320 \0 \0 001 @ 3 020 \0 N I L \r N I L \r
0007340 ( ) \r S T R I N G P D 1 \r ( L
0007360 ( 0 X ) ) \0 \n \0 \0 \0 001 @ 004
0007400 l \a 360 264 003 @ 020 \0 N I L \r N I L \r
0007420 ( ) \r S M A L L P D 1 \r ( L
0007440 ( 0 X ) ) \0 \t \0 \0 \0 001 @ 004 k
0007460 360 264 003 @ 020 \0 N I L \r N I L \r ( )
0007500 \r N L I S T P D 1 \r ( L ( 0
0007520 X ) ) \0 \b \0 \0 \0 001 @ 003 221 h 020
0007540 i 020 \0 N I L \r N I L \r ( ) \r A R
0007560 R A Y P D 1 \r ( L ( 0 X )
0007600 ) \0 \n \0 \0 \0 001 @ 004 l 006 360 264 003 @
0007620 020 \0 N I L \r N I L \r ( ) \r F L O
0007640 A T P D 1 \r ( L ( 0 X ) )
0007660 \0 \n \0 \0 \0 001 @ 004 l 003 360 264 003 @ 020
0007700 \0 N I L \r N I L \r ( ) \r N U M B
0007720 E R P D 1 \r ( L ( 0 X ) )
0007740 \0 005 \0 \0 \0 001 @ 3 020 020 \0 N I L \r
0007760 N I L \r ( ) \r S T A C K P D 1
0010000 \r ( L ( 0 X ) ) \0 \n \0 \0 \0
0010020 001 @ 004 l \b 360 264 003 @ 020 \0 N I L \r N
0010040 I L \r ( ) \r A T O M D 1 \r ( L
0010060 ( 0 X ) ) \0 \r \0 \0 \0 001 @ h
0010100 360 265 \b @ 3 \b 264 003 i 020 \0 N I L \r N
0010120 I L \r ( ) \r d e f s u b s t - A
0010140 T O M D 1 \r ( L ( 2 $ $ C
0010160 T X 1 $ $ E N V 0 $ $ W
0010200 H O L E ) ) \0 \r 001 \0 \0 003 @ 002 021
0010220 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r N I
0010240 L \r ( 1 0 Q ( C L : L A M B
0010260 D A ( X ) ( C L : B L O C K
0010300 A T O M ( O R ( N U L L
0010320 X ) ( A N D ( \ T Y P E M A
0010340 S K . U F N X 1 0 Q ) T )
0010360 ) ) ) ) \r ( P U T P R O P ( Q
0010400 U O T E A T O M ) ( Q U O T
0010420 E C O M P I L E R : O P T I M
0010440 I Z E R - L I S T ) ( U N I O
0010460 N ( G E T P R O P ( Q U O T
0010500 E A T O M ) ( Q U O T E \r
0010520 C O M P I L E R : O P T I M I Z
0010540 E R - L I S T ) ) ( L I S T
0010560 ( Q U O T E d e f s u b s t -
0010600 A T O M ) ) ) ) \r G E T T O P V
0010620 A L D 1 \r ( L ( 0 X ) )
0010640 \0 \a \0 \0 \0 001 @ 301 \f 311 \0 020 \0 N I L
0010660 \r N I L \r ( ) \r S E T T O P V A
0010700 L D 1 \r ( L ( 1 V A L 0
0010720 A T M ) ) \0 % \0 \0 \0 002 @ 265 \f
0010740 A d 262 026 l 006 \n \0 \0 020 i 360 233 A i 360
0010760 265 \b A l 006 \n \0 \0 020 @ 301 \f A 024 \0 A
0011000 020 \0 ( 3 2 Q \ L I S P E R R O
0011020 R 1 3 Q \ L I S P E R R O R
0011040 ) \r N I L \r ( ) \r \ S E T G L O
0011060 B A L V A L . U F N D 1 \r ( L
0011100 ( 1 A 0 V ) ) \0 \r \0 \0
0011120 \0 002 ` \0 \0 A 320 A 320 @ 024 \0 @ 020 \0 N
0011140 I L \r ( 2 \ V A L S P A C E )
0011160 \r ( ) \r \ S E T F V A R . U F N
0011200 D 1 \r ( L ( 1 V C E L L
0011220 0 V ) ) \0 \a \0 \0 \0 002 A @ 024 \0
0011240 @ 020 \0 N I L \r N I L \r ( ) \r G E
0011260 T P R O P L I S T D 1 \r ( L
0011300 ( 0 A T M ) ) \0 \a \0 \0 \0 001 @
0011320 301 002 311 \0 020 \0 N I L \r N I L \r ( )
0011340 \r \ A T O M C E L L D 1 \r ( L
0011360 ( 1 N 0 X ) ) \0 = 001 \0
0011400 \0 002 A d l \n 360 227 277 @ 006 \0 \0 323 260 '
0011420 l \f 360 226 @ 006 \0 \0 323 260 034 A d l 002 360
0011440 226 277 @ 006 \0 \0 323 214 l \b 360 225 @ 006 \0 \0
0011460 323 202 \b \0 \0 021 001 \0 A H 321 H 320 020 \0 (
0011500 6 2 Q S H O U L D N T ) \r ( 5
0011520 5 Q L I T A T O M 4 3 Q L
0011540 I T A T O M 2 5 Q L I T A T
0011560 O M 1 2 Q L I T A T O M ) \r
0011600 ( ) \r S E T P R O P L I S T D
0011620 1 \r ( L ( 1 L S T 0 A T
0011640 M ) ) \0 \t \0 \0 \0 002 @ 301 002 A 024 \0
0011660 A 020 \0 N I L \r N I L \r ( ) \r ( P
0011700 U T P R O P S \ P R O P C E L
0011720 L M A C R O ( ( A T O M )
0011740 ( \ A T O M C E L L A T O M
0011760 ( C O N S T A N T \ P L I S T
0012000 . H I ) ) ) ) \r o p t i m i z e
0012020 - \ A T O M C E L L D 1 \r ( L
0012040 ( 2 $ $ C T X 1 $ $ E N
0012060 V 0 $ $ W H O L E ) ) \0 %
0012100 002 \0 \0 003 @ 002 021 021 001 H 002 001 \t \0 \0 Y
0012120 262 024 g \0 \0 g \0 \0 I 001 h 032 032 032 H 001
0012140 h 032 032 020 g \0 \0 020 \0 ( 1 2 Q C O
0012160 N S T A N T E X P R E S S I O N
0012200 P ) \r ( 4 2 Q I G N O R E M A
0012220 C R O 2 3 Q A T O M C E L L
0012240 . N 2 0 Q O P C O D E S ) \r
0012260 ( ) \r ( P U T P R O P ( Q U O
0012300 T E \ A T O M C E L L ) ( Q
0012320 U O T E C O M P I L E R : O P
0012340 T I M I Z E R - L I S T ) ( U
0012360 N I O N ( G E T P R O P ( Q
0012400 U O T E \ A T O M C E L L )
0012420 ( Q U O T E \r C O M P I L E R
0012440 : O P T I M I Z E R - L I S T )
0012460 ) ( L I S T ( Q U O T E o
0012500 p t i m i z e - \ A T O M C E L
0012520 L ) ) ) ) \r o p t i m i z e - G
0012540 E T P R O P L I S T D 1 \r ( L
0012560 ( 2 $ $ C T X 1 $ $ E N
0012600 V 0 $ $ W H O L E ) ) \0 030
0012620 001 \0 \0 003 @ 002 001 021 001 \0 g \0 \0 g \0 \0
0012640 H h 032 032 o \0 \0 \0 032 032 020 \0 N I L \r
0012660 ( 1 3 Q \ P R O P C E L L 1
0012700 0 Q \ G E T B A S E P T R ) \r
0012720 ( 2 3 Q ( 0 ) ) \r ( P U T P
0012740 R O P ( Q U O T E G E T P R
0012760 O P L I S T ) ( Q U O T E C
0013000 O M P I L E R : O P T I M I Z E
0013020 R - L I S T ) ( U N I O N (
0013040 G E T P R O P ( Q U O T E G
0013060 E T P R O P L I S T ) ( \r Q U
0013100 O T E C O M P I L E R : O P T
0013120 I M I Z E R - L I S T ) ) ( L
0013140 I S T ( Q U O T E o p t i m
0013160 i z e - G E T P R O P L I S T )
0013200 ) ) ) \r o p t i m i z e - S E T
0013220 P R O P L I S T D 1 \r ( L (
0013240 2 $ $ C T X 1 $ $ E N V
0013260 0 $ $ W H O L E ) ) \0 037 003 \0
0013300 \0 003 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0
0013320 \0 g \0 \0 I h 032 032 j J h 032 032 032 032 020
0013340 \0 N I L \r ( 2 1 Q \ P R O P C
0013360 E L L 1 6 Q \ R P L P T R )
0013400 \r ( ) \r ( P U T P R O P ( Q U
0013420 O T E S E T P R O P L I S T )
0013440 ( Q U O T E C O M P I L E R
0013460 : O P T I M I Z E R - L I S T )
0013500 ( U N I O N ( G E T P R O P
0013520 ( Q U O T E S E T P R O P L
0013540 I S T ) ( \r Q U O T E C O M
0013560 P I L E R : O P T I M I Z E R -
0013600 L I S T ) ) ( L I S T ( Q U
0013620 O T E o p t i m i z e - S E T
0013640 P R O P L I S T ) ) ) ) \r \ M K
0013660 A T O M D 1 \r ( L ( 4 N O
0013700 N N U M E R I C P 3 F A T P
0013720 2 L E N 1 O F F S T 0
0013740 B A S E ) P 2 5 Q \ I N
0013760 T E R R U P T A B L E F 2 6
0014000 Q \ O R I G R E A D T A B L E
0014020 ) 002 003 026 001 \0 005 C 264 * A B 330 k 331
0014040 A 021 002 001 I H 363 263 026 @ I 320 310 \0 l 377
0014060 361 224 I 265 \v i 206 I k 324 Y 260 352 h 022 241
0014100 h 200 i 021 261 \v B j 360 227 j 271 l 377 276 261
0014120 \0 205 C 225 @ A 320 310 \0 202 @ A 302 275 B k
0014140 360 262 3 M l 377 361 221 h 200 i 262 ) ` \0 \0
0014160 262 $ M l 9 361 230 ` \0 \0 M l \n 331 320 020
0014200 l 0 M 361 221 h 200 i 224 M l 0 331 020 ` \0
0014220 \0 M 320 020 D 221 h 200 i 262 037 M l 9 361 221
0014240 h 200 i 262 025 @ A B C l \n W , \r 006 \0
0014260 \0 Z 265 003 202 261 001 d M l 377 345 ^ 341 271 A
0014300 B 330 k 331 A k 330 _ 022 277 _ 020 277 O 022 O
0014320 020 363 262 ^ ` \0 \0 I 320 310 \0 Z j 360 222 261
0014340 001 032 J k 331 [ _ 024 277 l \b O 024 323 321 O
0014360 024 323 320 311 \0 \ 312 \0 \a B 360 242 261 \0 350 H
0014400 L 312 \0 207 j 360 264 020 ` \0 \0 K 320 301 002 312
0014420 \0 j 360 h 360 360 242 261 \0 314 H 262 b B k
0014440 A 021 003 016 O 032 O 030 363 262 4 i 022 261 \0 260
0014460 I d n 017 377 345 340 340 320 323 d l 377 345 341 320
0014500 323 C 231 @ O 022 320 310 \0 l 377 345 203 @ O 022
0014520 302 320 323 271 O 022 k 324 _ 022 261 377 u L O 032
0014540 320 310 \0 @ O 034 320 310 \0 360 242 h 260 300 O 032
0014560 k 324 _ 032 277 O 034 k 324 _ 034 277 260 250 C 262
0014600 2 B k A 021 003 021 O O 036 363 263 ! L O
0014620 302 @ O " 320 310 \0 360 242 h 260 023 O k
0014640 324 _ 277 O " k 324 _ " 277 260 334 i 022 260
0014660 . B k A 021 003 024 O & O $ 363 263 037 L O
0014700 & 302 @ O ( 302 360 242 h 260 023 O & k 324 _
0014720 & 277 O ( k 324 _ ( 277 260 336 i 022 225 ` \0
0014740 \0 K 320 020 I O 016 265 \f N I 346 k 344 l ?
0014760 345 _ 016 320 323 271 261 376 336 021 020 025 @ A B C
0015000 H \r 005 \0 \0 _ 026 277 ` \0 \0 I 320 O 026 006
0015020 \0 \0 323 k 330 315 \0 O 026 020 \0 ( 7 5 4 Q
0015040 \ C R E A T E . S Y M B O L
0015060 2 3 0 Q \ P A R S E . N U M B
0015100 E R ) \r ( 7 7 1 Q L I T A T O
0015120 M 7 6 2 Q \ A t o m H a s h
0015140 T a b l e 7 1 0 Q \ A T O M
0015160 S P A C E 3 6 2 Q \ A T O M
0015200 S P A C E 2 7 6 Q \ A t o m
0015220 H a s h T a b l e 1 7 0 Q \
0015240 O n e C h a r A t o m B a s e
0015260 1 4 1 Q \ O n e C h a r A t o
0015300 m B a s e 1 2 7 Q \ O n e C
0015320 h a r A t o m B a s e ) \r ( ) \r
0015340 \ C R E A T E . S Y M B O L D
0015360 1 \r ( L ( 4 F A T C H A R S
0015400 E E N P 3 F A T P 2 L E
0015420 N 1 O F F S E T 0 B A S
0015440 E ) P 4 \ I N T E R R U P
0015460 T A B L E ) \0 304 \b \0 \0 005 D 224 B
0015500 l 002 330 204 B l 004 330 342 342 \t \0 \0 021 1 003
0015520 ` \0 \0 Y d n 001 377 345 j 360 262 036 343 272 l
0015540 376 J 361 221 h 200 i 223 \b \0 \0 277 J n 210 004
0015560 \n \0 \0 277 J \t \0 \0 215 n 377 377 360 231 l 026
0015600 o \0 \0 \0 \n \0 \0 277 l \b I 323 321 I 323 320
0015620 273 021 020 004 K k H 322 l 377 345 307 277 K H 323
0015640 315 001 023 D 231 H k 320 @ A 320 B 304 260 2 C
0015660 262 & B A k 021 003 \a O 016 M 363 263 030 H O
0015700 016 @ N 320 310 \0 307 277 N k 324 276 O 016 k 324
0015720 _ 016 260 350 023 211 @ A H k B \r 005 \0 \0 277
0015740 H B 317 \0 \a H 025 \0 277 I k 330 027 \0 \0 `
0015760 \0 \0 I 320 Y D 226 d 301 002 k 317 \0 I 020
0016000 \0 ( 2 4 1 Q \ M O V E B Y T E
0016020 S 1 1 1 Q \ M P . E R R O R
0016040 7 2 Q \ I N I T A T O M P A
0016060 G E 6 5 Q \ M A K E M D S E
0016100 N T R Y 5 5 Q \ M K A T O M
0016120 . F U L L 1 7 Q \ A L L O C
0016140 B L O C K ) \r ( 2 6 4 Q \ A T
0016160 O M S P A C E 2 6 1 Q \ A t
0016200 o m F r L s t 2 5 Q \ A t o
0016220 m F r L s t ) \r ( 1 0 6 Q "
0016240 N o m o r e a t o m s l e
0016260 f t " ) \r \ M K A T O M . F U L
0016300 L D 1 \r N I L \0 035 \0 \0 \0 \0 `
0016320 \0 \0 221 h 200 i 264 024 i 027 \0 \0 277 ` \0 \0
0016340 k 317 \0 ` 277 i 027 \0 \0 h 020 \0 N I L \r
0016360 ( 3 1 Q \ P E N D I N G I N T
0016400 E R R U P T 2 0 Q \ I N T E
0016420 R R U P T S T A T E 1 4 Q \
0016440 S T O R A G E F U L L 2 \ S
0016460 T O R A G E F U L L ) \r ( ) \r \
0016500 I N I T A T O M P A G E D 1 \r
0016520 ( L ( 0 P N ) ) \0 H 002 \0 \0
0016540 001 @ 341 021 021 001 ` \0 \0 H 320 H 320 \t \0 \0
0016560 ` \0 \0 H 320 H 320 \t \0 \0 ` \0 \0 H 320 H
0016600 320 \t \0 \0 ` \0 \0 H 320 H 320 Y \t \0 \0 n
0016620 002 \0 d j 361 264 022 I g \0 \0 316 \0 277 I l
0016640 002 320 271 k 331 260 355 020 \0 ( 5 5 Q \ N
0016660 E W 4 P A G E 4 2 Q \ N E W
0016700 4 P A G E 3 0 Q \ N E W 4 P
0016720 A G E 1 6 Q \ N E W 4 P A G
0016740 E ) \r ( 7 1 Q N O B I N D 4
0016760 5 Q \ V A L S P A C E 3 3 Q
0017000 \ P L I S T S P A C E 2 1 Q
0017020 \ D E F S P A C E 7 \ P N
0017040 P S P A C E ) \r ( ) \r M A P A T
0017060 O M S D 1 \r ( L ( 0 F N )
0017100 ) \0 031 001 \0 \0 001 j 021 001 \0 j H 321 k
0017120 @ 017 016 277 H k 330 X ` \0 \0 360 262 360 h 020
0017140 \0 N I L \r ( 2 2 Q \ A t o m F
0017160 r L s t ) \r ( ) \r A T O M H A S
0017200 H # P R O B E S D 1 \r ( L (
0017220 0 S T R I N G ) ) 001 364 023 \0 \0
0017240 001 021 360 016 @ d 004 l 004 360 262 / 301 \b 311 \0
0017260 271 k 272 @ 301 \b 311 \0 312 \0 \a 273 @ 301 002 312
0017300 \0 j 360 h 360 _ 022 _ 024 277 @ 323 270 O 024
0017320 262 s I J 320 310 \0 260 o \t \0 \0 b \0 311 \0
0017340 271 @ 310 003 272 @ 310 002 273 @ 312 \0 C j 360 221
0017360 h 200 i _ 024 262 B @ 021 1 022 O 036 310 003 k
0017400 331 _ " 277 O 036 311 \0 _ $ 277 O " O 036 310
0017420 002 330 _ 277 O " k 330 _ " O 361 263 024
0017440 O $ O " 320 310 \0 l 377 361 221 h 200 i 263 347
0017460 i 200 h 022 _ 022 277 K l 377 361 221 h 200 i 263
0017500 217 h 020 I J 302 d l 377 345 \ d 341 275 J K
0017520 330 k 331 J k 330 _ 030 277 _ 026 277 O 030 O 026
0017540 363 263 / M d n 017 377 345 340 340 320 323 d l 377
0017560 345 341 320 323 O 024 231 I O 030 320 310 \0 l 377 345
0017600 203 I O 030 302 320 323 275 O 030 k 324 _ 030 260 320
0017620 k _ 032 277 ` \0 \0 M 320 310 \0 ^ j 360 263 243
0017640 H 265 K N k 331 _ 034 277 l \b O 034 323 321 O
0017660 034 323 320 311 \0 _ 016 312 \0 \a K 360 242 261 \0 276
0017700 O 022 ` \0 \0 N k 331 320 301 002 312 \0 j 360
0017720 h 360 360 242 261 \0 247 O 022 262 < K k J 021 003
0017740 021 O O 036 363 233 i 022 261 \0 216 N k 331 360
0017760 261 \0 207 O 016 O 320 310 \0 I O " 320 310 \0
0020000 360 242 h 260 345 O k 324 _ 277 O " k 324
0020020 _ " 277 260 316 O 024 262 3 K k J 021 003 021 O
0020040 O 036 363 263 " O 016 O 302 I O " 320 310
0020060 \0 360 242 h 260 023 O k 324 _ 277 O " k
0020100 324 _ " 277 260 333 i 022 260 / K k J 021 003 021
0020120 O O 036 363 263 O 016 O 302 I O " 302
0020140 360 242 h 260 023 O k 324 _ 277 O " k 324
0020160 _ " 277 260 335 i 022 222 O 032 020 M O 020 265 \f
0020200 L M 346 k 344 l ? 345 _ 020 320 323 275 O 032 k
0020220 324 261 377 \0 \0 ( 7 2 Q M K S T R I
0020240 N G ) \r ( 4 4 3 Q \ A T O M S
0020260 P A C E 3 6 5 Q \ A t o m H
0020300 a s h T a b l e ) \r ( ) \r ( R P
0020320 A Q Q \ P N A M E L I M I T
0020340 2 5 5 ) \r ( R P A Q ? \ P N A
0020360 M E S . I N . B L O C K S ? ) \r
0020400 \ D E F I N E D P D 1 \r ( L
0020420 ( 0 A ) ) \0 021 \0 \0 \0 001 @ 004 l
0020440 004 360 264 \n @ 301 \n 311 \0 264 003 i 020 \0 N I
0020460 L \r N I L \r ( ) \r P U T D D 1
0020500 \r ( L ( 2 F L G 1 D E F
0020520 0 F N ) ) \0 % \0 \0 \0 003 A B
0020540 263 033 d 303 \0 \0 262 025 A 006 \0 \0 311 \0 311 004
0020560 @ 360 247 A @ \n \0 \0 b 002 277 @ A \n \0 \0
0020600 277 020 \0 ( 4 1 Q \ P U T D 3 1
0020620 Q \ R E N A M E D F N ) \r ( 1
0020640 5 Q C O M P I L E D - C L O S
0020660 U R E 7 C O M P I L E D - C
0020700 L O S U R E ) \r ( ) \r \ P U T D
0020720 D 1 \r ( L ( 1 D E F 0
0020740 F N ) P 3 \ I N T E R R U
0020760 P T A B L E ) \0 231 004 \0 \0 002 @ 301
0021000 \n 021 ! 002 021 020 003 A Y d 303 \0 \0 262 " 277
0021020 I 006 \0 \0 311 \0 272 H j 317 \0 @ 277 I 006 \0
0021040 \0 311 002 226 H j 317 \0 \0 260 O J Y 260 C 005
0021060 006 262 034 I 006 \0 \0 312 \0 C l 004 360 236 I 006
0021100 \0 \0 311 \0 Y 272 H j 317 \0 @ 260 % ` \0 \0
0021120 231 I 003 226 I @ \n \0 \0 265 016 H j 317 \0 \a
0021140 277 H I 024 \0 A 020 Z 271 H k 317 \0 @ 277 k
0021160 277 H k 317 \0 \0 277 k 277 H J 312 004 ! 317 \0
0021200 ! 277 H J 310 006 j 360 221 k 200 j 317 \0 020 277
0021220 H I 024 \0 A 020 \0 ( 1 3 2 Q \ M A
0021240 K E P S E U D O C O D E ) \r ( 1
0021260 2 1 Q C O M P I L E A T P U T
0021300 D F L G 1 0 3 Q A R R A Y P
0021320 7 0 Q A R R A Y P 4 2 Q
0021340 C O M P I L E D - C L O S U R E
0021360 2 5 Q C O M P I L E D - C L
0021400 O S U R E 1 6 Q C O M P I L
0021420 E D - C L O S U R E ) \r ( ) \r G
0021440 E T D D 1 \r ( L ( 0 A ) )
0021460 \0 8 002 \0 \0 001 @ 004 l 004 360 264 1 @ 301
0021500 \n 021 021 001 H 312 \0 \0 j 360 241 h 200 i 223 H
0021520 311 \0 020 H 312 \0 @ j 360 246 H 311 \0 \t \0 \0
0021540 020 l \r 037 H 311 \0 271 d I 024 \0 277 020 \0 (
0021560 5 0 Q \ P S E U D O C O D E .
0021600 R E A L D E F ) \r N I L \r ( ) \r
0021620 ( R P A Q Q C O M P I L E A T
0021640 P U T D F L G N I L ) \r ( R P
0021660 A Q ? * P A C K A G E - F R O
0021700 M - I N D E X * ) \r \ R E S E T
0021720 S Y S T E M S T A T E D 1 \r N
0021740 I L \0 \t \0 \0 \0 \0 i \t \0 \0 \b \0 \0
0021760 020 \0 ( 6 \ R E S E T T E R M I
0022000 N A L 3 \ K E Y B O A R D O
0022020 N ) \r N I L \r ( ) \r I N I T I A
0022040 L E V A L Q T D 1 \r N I L \0
0022060 ` 003 \0 \0 \0 \b \0 \0 ` \0 \0 021 ! 002 H 262
0022100 S o \0 \0 \0 \t \0 \0 277 H 001 I 032 271 H 002
0022120 X 265 371 I 001 \t \0 \0 Z 003 262 * I 001 \t \0
0022140 \0 277 l \r \t \0 \0 277 J 001 I 001 J 002 Z \n
0022160 \0 \0 277 \t \0 \0 277 J 003 265 360 I 001 g \0 \0
0022200 \n \0 \0 277 I 002 Y 264 004 260 312 027 \0 \0 277 \b
0022220 \0 \0 i 020 \0 ( 1 3 4 Q I N T E R
0022240 P R E T . R E M . C M 1 1 5 Q
0022260 S E T T O P V A L 1 0 0 Q
0022300 E V A L 7 4 Q S E T T O P V
0022320 A L 6 1 Q D S P B O U T 5
0022340 3 Q S I M P L E P R I N T 4
0022360 2 Q G E T T O P V A L 2 2 Q
0022400 S I M P L E P R I N T 2 \
0022420 S E T I O P O I N T E R S ) \r (
0022440 1 3 0 Q B O O T F I L E S 1
0022460 1 2 Q N O B I N D 5 B O O
0022500 T F I L E S ) \r ( 1 7 Q " e
0022520 v a l u a t i n g i n i t i a
0022540 l e x p r e s s i o n s : \r "
0022560 ) \r S I M P L E P R I N T D 1
0022600 \r ( L ( 1 N 0 X ) ) \0
0022620 230 002 \0 \0 002 @ d 004 l 004 360 250 277 @ d 005
0022640 \a 262 277 @ \t \0 \0 k 021 002 001 I H 363 221
0022660 h 020 @ I \n \0 \0 \t \0 \0 277 I k 324 Y 260
0022700 356 003 264 _ A j 360 233 o \0 \0 \0 h b 002 277
0022720 b \0 260 304 l ( \t \0 \0 @ 001 A 005 001 233 j
0022740 A 361 221 h 200 i 223 A k 331 201 l 003 b 002 \n
0022760 \0 \0 277 A j 360 225 o \0 \0 \0 260 " @ 002 b
0023000 \0 265 \b o \0 \0 \0 260 026 003 263 030 o \0 \0 \0
0023020 \t \0 \0 277 @ \t \0 \0 277 o \0 \0 \0 \t \0 \0
0023040 h 020 o \0 \0 \0 \t \0 \0 277 260 257 \0 ( 2 2
0023060 3 Q S I M P L E P R I N T 2
0023100 1 2 Q S I M P L E P R I N T
0023120 2 0 2 Q S I M P L E P R I N T
0023140 1 7 5 Q S I M P L E P R I N
0023160 T 1 3 4 Q S I M P L E P R I
0023200 N T 1 0 3 Q D S P B O U T
0023220 4 4 Q D S P B O U T 4 1 Q
0023240 N T H C H A R C O D E 2 2 Q
0023260 N C H A R S ) \r N I L \r ( 2 2
0023300 0 Q " " 2 0 7 Q " ) "
0023320 1 7 2 Q " . " 1 6 1 Q
0023340 " ) " 1 4 5 Q " - - ) "
0023360 6 6 Q " & " ) \r P A G E F A U
0023400 L T S D 1 \r N I L \0 \n \0 \0 \0
0023420 \0 ` \0 \0 l 006 \n \0 \0 020 \0 ( 7 \ G
0023440 E T B A S E F I X P ) \r ( 2 \
0023460 M I S C S T A T S ) \r ( ) \r \ S
0023500 E T T O T A L T I M E D 1 \r N
0023520 I L \0 023 \0 \0 \0 \0 ` \0 \0 l 002 320 `
0023540 \0 \0 j \n \0 \0 \t \0 \0 366 020 \0 ( 1 7 Q
0023560 C L O C K D I F F E R E N C E
0023600 1 4 Q \ G E T B A S E F I X
0023620 P ) \r ( 1 0 Q \ M I S C S T A
0023640 T S 2 \ M I S C S T A T S )
0023660 \r ( ) \r \ S E R I A L N U M B E
0023700 R D 1 \r N I L \0 \a \0 \0 \0 \0 `
0023720 \0 \0 310 020 020 \0 N I L \r ( 2 \ I n
0023740 t e r f a c e P a g e ) \r ( ) \r
0023760 \ B L T D 1 \r ( L ( 2 N W
0024000 O R D S 1 S B A S E 0 D
0024020 B A S E ) ) \0 ? 002 \0 \0 003 B n @
0024040 \0 363 262 031 @ n @ \0 320 A n @ \0 320 B n
0024060 @ \0 325 304 @ A n @ \0 304 020 j B k 331 021
0024100 002 001 H I 363 263 024 @ I 320 A I 320 310 \0 315
0024120 \0 277 I m 377 324 271 260 353 @ 020 \0 N I L \r
0024140 N I L \r ( ) \r \ M O V E B Y T E
0024160 S D 1 \r ( L ( 4 N B Y T E
0024200 S 3 D B Y T E 2 D B A S
0024220 E 1 S B Y T E 0 S B A S
0024240 E ) ) \0 j 005 \0 \0 005 D j 361 264 L @
0024260 A 342 320 B C 342 320 021 2 004 A k 345 Z C k
0024300 345 [ 360 262 7 J k 360 262 030 I k H k 302 307
0024320 277 I k 320 271 H k 320 270 D m 377 324 b \b 277
0024340 I H D 342 \ 304 277 D k 345 k 360 264 \r I L
0024360 320 j H L 320 j 302 307 h 020 D d j 361 264 373
0024400 I K d k 324 273 H J d k 324 272 302 307 277 k
0024420 331 260 352 \0 N I L \r N I L \r ( ) \r \
0024440 C L E A R W O R D S D 1 \r ( L
0024460 ( 1 N W O R D S 0 B A S
0024500 E ) ) \0 L \0 \0 \0 002 @ A n 177 377 361
0024520 221 h 200 i 263 % @ n 177 377 320 j 315 \0 277 @
0024540 d k 320 n 177 377 304 277 @ n 200 \0 320 b \0 277
0024560 A n 200 \0 331 b 002 260 325 A j 361 262 030 @ A
0024600 k 331 320 j 315 \0 277 A k 360 250 @ d k 320 A
0024620 k 331 304 277 020 \0 N I L \r N I L \r ( )
0024640 \r \ C L E A R B Y T E S D 1 \r
0024660 ( L ( 2 N B Y T E S 1 O
0024700 F F S T 0 B A S E ) ) \0 A
0024720 \0 \0 \0 003 B j 361 264 < A k 345 j 360 221 h
0024740 200 i 262 024 @ A j 307 277 A k 324 b 002 277 B
0024760 m 377 324 b 004 277 @ A 342 320 b \0 B k 345 j
0025000 360 221 h 200 i 226 @ B k 331 j 307 277 @ B 342
0025020 \n \0 \0 020 \0 ( 7 6 Q \ C L E A R
0025040 W O R D S ) \r N I L \r ( ) \r \ C
0025060 L E A R C E L L S D 1 \r ( L
0025100 ( 1 N C E L L S 0 B A S E
0025120 ) ) \0 K \0 \0 \0 002 n ? 377 A 361 263 &
0025140 @ n 177 377 320 j 315 \0 277 @ d k 320 n 177 377
0025160 304 277 @ n 200 \0 320 b \0 277 A n @ \0 331 b
0025200 002 277 260 327 A j 361 264 033 A 340 b 002 @ A k
0025220 331 320 j 315 \0 A k 360 247 @ d k 320 A k 331
0025240 304 h 020 \0 N I L \r N I L \r ( ) \r \
0025260 M O V E W O R D S D 1 \r ( L
0025300 ( 4 N W O R D S 3 D O F F
0025320 S E T 2 D B A S E 1 S O
0025340 F F S E T 0 S B A S E ) )
0025360 \0 \n \0 \0 \0 005 B C 320 @ A 320 D 304 020 \0
0025400 N I L \r N I L \r ( ) \r \ Z E R O
0025420 B Y T E S D 1 \r ( L ( 2 L
0025440 A S T 1 F I R S T 0 B A
0025460 S E ) ) \0 \f \0 \0 \0 003 @ A B A 331
0025500 k 330 \v \0 \0 020 \0 ( 1 1 Q \ C L E
0025520 A R B Y T E S ) \r N I L \r ( ) \r
0025540 \ Z E R O W O R D S D 1 \r ( L
0025560 ( 1 E N D B A S E 0 B A
0025600 S E ) ) \0 K 001 \0 \0 002 A 322 @ 322 361
0025620 221 h 200 i 263 " @ n 377 377 @ 323 331 \n \0 \0
0025640 277 @ 322 n 377 377 321 j 315 \0 277 @ 322 k 330 j
0025660 321 b \0 277 260 327 A 323 @ 323 331 021 001 \0 j H
0025700 361 221 h 200 i 264 017 @ j 315 \0 277 @ k 320 H
0025720 \n \0 \0 h 020 \0 ( 1 0 7 Q \ C L E
0025740 A R W O R D S 2 4 Q \ C L E
0025760 A R W O R D S ) \r N I L \r ( ) \r
0026000 ( P U T P R O P S L L B A S I
0026020 C F I L E T Y P E C O M P I
0026040 L E - F I L E ) \r ( P U T P R O
0026060 P S L L B A S I C C O P Y R
0026100 I G H T ( " X e r o x C o r
0026120 p o r a t i o n " 1 9 8 1 1
0026140 9 8 2 1 9 8 3 1 9 8 4 1 9
0026160 8 5 1 9 8 6 ) ) \r N I L \r
0026176