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