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