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