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