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