$ od -c -N 50000 [eris]<LispCore>SOURCES>LLBASIC!58
0000000 006 001 ( F I L E C R E A T E D "
0000020 3 0 - S e p - 8 6 2 3 : 1 5 :
0000040 5 9 " 006 004 { E R I S } < L I S
0000060 P C O R E > S O U R C E S > L L
0000100 B A S I C . ; 5 8 006 001 6 7 2 7
0000120 5 \r \r c h a n g
0000140 e s t o : ( F N S I N I
0000160 T A T O M S C O P Y A T O M )
0000200 \r \r p r e v i o u s
0000220 d a t e : " 2 4 - S e p - 8
0000240 6 1 8 : 0 0 : 2 6 " { E R I
0000260 S } < L I S P C O R E > S O U R
0000300 C E S > L L B A S I C . ; 5 7 )
0000320 \r \r \r ( * " \r C o p y r i g h
0000340 t ( c ) 1 9 8 1 , 1 9 8 2
0000360 , 1 9 8 3 , 1 9 8 4 , 1 9
0000400 8 5 , 1 9 8 6 b y X e r o
0000420 x C o r p o r a t i o n .
0000440 A l l r i g h t s r e s e r
0000460 v e d . \r " ) \r \r ( P R E T T Y
0000500 C O M P R I N T L L B A S I C
0000520 C O M S ) \r \r ( R P A Q Q 006 002
0000540 L L B A S I C C O M S 006 001 \r
0000560 ( ( F N S L I S T
0000600 P L I T A T O M F I X P S
0000620 T R I N G P S M A L L P N L
0000640 I S T P A R R A Y P A T O M
0000660 F L O A T P N U M B E R P
0000700 S T A C K P ) \r
0000720 ( D E C L A R E : D O N T C O
0000740 P Y ( E X P O R T ( M A C R
0000760 O S C H E C K \ S t a t s Z
0001000 e r o \ S t a t s A d d 1 I
0001020 P L U S 1 6 S M A L L P O S P
0001040 S E T X V A R \r
0001060
*
0001120 S E T Q . N O R E F I
0001140 E Q ) \r
0001160
0001200 ( T E M P L A T E S
0001220 S P R E A D A P P L Y * S P
0001240 R E A D A P P L Y S E T Q . N
0001260 O R E F ) \r
0001300
0001320 ( C O N S T A N
0001340 T S W o r d s P e r P a g e )
0001360 ) ) \r [ C O M S
0001400 ( * ; " a t o m s " ) \r
0001420 ( F N
0001440 S G E T T O P V A L S E T T
0001460 O P V A L F S E T V A L \ S
0001500 E T G L O B A L V A L . U F N
0001520 \ S E T F V A R . U F N G E T
0001540 P R O P L I S T \ A T O M C E
0001560 L L \r
0001600 S E T P R O P L I
0001620 S T ) \r
0001640 ( C O M S ( M A C R O S
0001660 \ P R O P C E L L ) \r
0001700 (
0001720 O P T I M I Z E R S \ A T O M
0001740 C E L L G E T P R O P L I S T
0001760 S E T P R O P L I S T ) ) \r
0002000 ( F N
0002020 S \ M K A T O M \ C R E A T
0002040 E . S Y M B O L \ M K A T O M
0002060 . F U L L \ I N I T A T O M P
0002100 A G E ) \r
0002120 ( F N S M A P A T O M S
0002140 A T O M H A S H # P R O B E S
0002160 ) \r
0002200 ( C O M S ( * ; " F o r
0002220 M A K E I N I T & T e l e R
0002240 a i d " ) \r
0002260 ( F N S I
0002300 N I T A T O M S C O P Y A T O
0002320 M U N C O P Y A T O M ) \r
0002340
0002360 ( D E C L A R E : D O N T
0002400 E V A L @ L O A D D O C O P Y
0002420 ( P ) ) ) \r
0002440 ( C O M S ( * ;
0002460 " S e e \ P N A M E L I M I T
0002500 c o m m e n t b e l o w " )
0002520 \r
0002540 ( V A R S ( \ P N A
0002560 M E L I M I T 2 5 5 ) ) \r
0002600
0002620 ( I N I T V A R S ( \ P N
0002640 A M E S . I N . B L O C K S ? )
0002660 ) ) \r
0002700 ( F N S \ D E F I N E D P
0002720 P U T D \ P U T D G E T D
0002740 P U T D E F N G E T D E F N )
0002760 \r (
0003000 V A R S ( C O M P I L E A T P
0003020 U T D F L G ) ) \r
0003040 ( I N I T V A R S
0003060 ( * P A C K A G E - F R O M -
0003100 I N D E X * ) ) \r
0003120 ( D E C L A R E :
0003140 D O N T C O P Y ( E X P O R
0003160 T ( R E C O R D S L I T A T
0003200 O M S Y M B O L V A L I N D
0003220 E X V C E L L D E F I N I T
0003240 I O N C E L L \r
0003260
*
0003320 F N H E A D E
0003340 R P N A M E C E L L P A C K
0003360 A G E I N D E X P N A M E B A
0003400 S E P N A M E I N D E X ) \r
0003420
*
0003460 ( M A C R O S \
0003500 D E F C E L L \ V A L C E L L
0003520 \ P N A M E C E L L ) \r
0003540
*
0003600 ( M A C R O S \ A T
0003620 O M V A L I N D E X \ A T O M
0003640 D E F I N D E X \ A T O M P N
0003660 A M E I N D E X \r
0003700
*
0003740 \ A T O M P R
0003760 O P I N D E X \ I N D E X A T
0004000 O M P N A M E \ I N D E X A T
0004020 O M V A L \r
0004040
*
0004100 \ I N D E X A T O M
0004120 D E F ) \r
0004140
0004160 ( G L
0004200 O B A L V A R S \ N x t P n B
0004220 y t e \ C u r P n P a g e \
0004240 N x t A t o m P a g e \ A t o
0004260 m F r L s t \r
0004300
*
0004340 \ O n e C h a r A
0004360 t o m B a s e \ P N A M E S .
0004400 I N . B L O C K S ? \ S C R A
0004420 T C H S T R I N G \r
0004440
*
0004500 C O M P I L
0004520 E A T P U T D F L G * P A C K
0004540 A G E - F R O M - I N D E X * )
0004560 \r
0004600
0004620 ( C O N S T A
0004640 N T S ( \ P N A M E L I M I T
0004660 2 5 5 ) \r
0004700
*
0004740 ( \ C h a r s P e r P
0004760 n P a g e 5 1 2 ) ) \r
0005000
*
0005040 ( * ; ; " \ P N A M
0005060 E L I M I T i s e x p o r t
0005100 e d b u t n e e d s t o
0005120 a l s o b e a V A R S o
0005140 n t h i s f i l e t o g
0005160 e t i t c o p i e d . N
0005200 o t e t h a t b o t h c o
0005220 m m a n d s m u s t b e e
0005240 d i t e d t o g e t h e r .
0005260 " \r
0005300
0005320 ) )
0005340 ) \r
0005360 ( D E C L A R E : E V A L @ C
0005400 O M P I L E D O N T C O P Y
0005420 ( M A C R O S C O M P U T E .
0005440 A T O M . H A S H A T O M . H
0005460 A S H . R E P R O B E ) \r
0005500
0005520 ( A D D V A R S ( D O N T
0005540 C O M P I L E F N S I N I T A
0005560 T O M S C O P Y A T O M U N
0005600 C O P Y A T O M G E T D E F N
0005620 P U T D E F N F S E T V A L
0005640 ] \r ( C O M S
0005660 ( * ; " f o r e x e c u t
0005700 i n g b o o t e x p r e s s
0005720 i o n s w h e n f i r s t
0005740 r u n " ) \r
0005760 ( F N S \ R E S E T S
0006000 Y S T E M S T A T E I N I T I
0006020 A L E V A L Q T S I M P L E P
0006040 R I N T ) \r
0006060 ( G L O B A L V A R S
0006100 R E S E T F O R M S B O O T F
0006120 I L E S ) ) \r (
0006140 C O M S ( * ; " s t a t s
0006160 " ) \r
0006200 ( F N S P A G E F A U L T S
0006220 \ S E T T O T A L T I M E \
0006240 S E R I A L N U M B E R ) ) \r
0006260 ( C O M S ( *
0006300 ; " F a s t f u n c t i o n
0006320 s f o r m o v i n g a n d
0006340 c l e a r i n g s t o r a g
0006360 e " ) \r
0006400 ( F N S \ B L T \ M O V
0006420 E B Y T E S \ C L E A R W O R
0006440 D S \ C L E A R B Y T E S \
0006460 C L E A R C E L L S ) \r
0006500 ( D E C L A
0006520 R E : E V A L @ C O M P I L E
0006540 D O N T C O P Y ( M A C R O
0006560 S . C L E A R N W O R D S . )
0006600 ) \r
0006620 ( C O M S ( * ; " O b s o
0006640 l e t e " ) \r
0006660 ( D E C L
0006700 A R E : E V A L @ C O M P I L
0006720 E D O N T C O P Y ( E X P O
0006740 R T ( M A C R O S \ M O V E
0006760 W O R D S ) ) ) \r
0007000 ( F N
0007020 S \ M O V E W O R D S \ Z E
0007040 R O B Y T E S \ Z E R O W O R
0007060 D S ) ) ) \r ( L
0007100 O C A L V A R S . T ) \r
0007120 [ D E C L A R E :
0007140 D O N T C O P Y ( * ; " F
0007160 o r M A K E I N I T & T e
0007200 l e R a i d " ) \r
0007220 ( A D D V A R S
0007240 ( I N I T V A L U E S ( \ A
0007260 t o m F r L s t 0 ) ) \r
0007300
0007320 ( I N I T P T R S ( \ O
0007340 n e C h a r A t o m B a s e N
0007360 I L ) \r
0007400
0007420 ( \ S C R A T C H S T R I N G
0007440 ) ) \r
0007460 ( I N E W C O
0007500 M S ( F N S F S E T V A L
0007520 S E T P R O P L I S T P U T D
0007540 E F N \ B L T \ A T O M C E
0007560 L L ) \r
0007600
0007620 ( F N S \ M K A T O M \ C
0007640 R E A T E . S Y M B O L \ I N
0007660 I T A T O M P A G E \ M O V E
0007700 B Y T E S ) \r
0007720
0007740 ( F N S C O P Y A T O
0007760 M I N I T A T O M S ) ) \r
0010000
0010020 ( E X P A N D M A C R O
0010040 F N S S M A L L P O S P C O
0010060 M P U T E . A T O M . H A S H
0010100 A T O M . H A S H . R E P R O B
0010120 E \ D E F C E L L \ V A L C
0010140 E L L \r
0010160
0010200 \ P N A M E C E L L \ P R
0010220 O P C E L L \ I N D E X A T O
0010240 M P N A M E ) \r
0010260 ( M
0010300 K I . S U B F N S ( \ P A R S
0010320 E . N U M B E R . N I L L )
0010340 \r
0010360 ( \
0010400 M K A T O M . F U L L . N I
0010420 L L ) \r
0010440
0010460 ( \ A T O M D E F I N D E X
0010500 . I . A T O M N U M B E R ) \r
0010520
0010540 ( \ A
0010560 T O M V A L I N D E X . I .
0010600 A T O M N U M B E R ) \r
0010620
0010640 ( \ A T O M P
0010660 R O P I N D E X . I . A T O
0010700 M N U M B E R ) \r
0010720
0010740 ( \ A T O M P N A M
0010760 E I N D E X . I . A T O M N
0011000 U M B E R ) \r
0011020
0011040 ( S E T Q . N O R E F
0011060 . S E T Q ) \r
0011100
0011120 ( S E T T O P V A L
0011140 . I . F S E T V A L ) ) \r
0011160
0011200 ( R D . S U B F N S (
0011220 \ P A R S E . N U M B E R .
0011240 N I L L ) \r
0011260
0011300 ( \ A T O M D E F I N D E
0011320 X . V A T O M N U M B E R )
0011340 \r
0011360 ( \
0011400 A T O M P R O P I N D E X .
0011420 V A T O M N U M B E R ) \r
0011440
0011460 ( \ A T O M
0011500 V A L I N D E X . V A T O M
0011520 N U M B E R ) \r
0011540
0011560 ( S E T Q . N O R E F
0011600 . S E T Q ) \r
0011620
0011640 ( \ I N D E X A T O
0011660 M P N A M E . V A T O M ) \r
0011700
0011720 ( \ I
0011740 N D E X A T O M V A L . V A
0011760 T O M ) \r
0012000
0012020 ( \ I N D E X A T O M D E F
0012040 . V A T O M ) \r
0012060
0012100 ( \ C R E A T E .
0012120 S Y M B O L . V N O S U C H
0012140 A T O M ) ) \r
0012160 ( R D
0012200 C O M S ( F N S U N C O P Y
0012220 A T O M \ M K A T O M G E T
0012240 T O P V A L G E T P R O P L I
0012260 S T S E T T O P V A L G E T
0012300 D E F N \r
0012320
0012340 \ A T O M C E
0012360 L L ) \r
0012400
0012420 ( F N S L I S T P ) \r
0012440
0012460 ( V A R S
0012500 ( C O P Y A T O M S T R ) ) ) \r
0012520
0012540 ( R D . S U B F N S
0012560 ( \ R P L P T R . V P U T
0012600 B A S E P T R ) ) \r
0012620
0012640 ( R D V A L S ( \ A t o m F r
0012660 L s t ] \r ( P R
0012700 O P F I L E T Y P E L L B A
0012720 S I C ) ) ) \r ( D E F I N E Q \r
0012740 \r ( 006 004 L I S T P 006 001 \r [ L
0012760 A M B D A ( X ) 006 003 006 001
0013000
*
0013040 006 003 (
0013060 * b v m : " 3 0 - J a n - 8
0013100 5 1 0 : 5 6 " ) 006 001 \r
0013120
*
0013200 006 003 ( * u s
0013220 u a l l y d o n e i n m i
0013240 c r o c o d e ) 006 001 \r (
0013260 A N D ( E Q ( N T Y P X X
0013300 ) \r \
0013320 L I S T P ) \r
0013340 ( C O N D \r
0013360 ( ( E Q C D R C O D I N G
0013400 0 ) \r
0013420 T ) \r
0013440 ( T
0013460
*
0013520 006 003 ( * C h e c k t h a t
0013540 i t i s n o t a l i s
0013560 t p a g e \r 006 001
0013600
*
0013660 006 003 h e a d e r .
0013700 T h i s i s m o s t l y
0013720 f o r b e n e f i t o f \r
0013740 006 001
0013760
*
0014020 006
0014040 003 t e l e r a i d ) 006 001 \r
0014060 ( N E Q
0014100 ( 006 002 f e t c h 006 001 ( P O I
0014120 N T E R W O R D I N P A G E )
0014140 006 002 o f 006 001 X ) \r
0014160 0
0014200 ) ) ) \r X ] )
0014220 \r \r ( 006 004 L I T A T O M 006 001 \r
0014240 [ L A M B D A ( X ) 006 003 006 001
0014260
*
0014340 006 003 ( * l m m " 1 0 - M A R
0014360 - 8 1 1 5 : 0 5 " ) 006 001 \r
0014400
*
0014460 006 003 ( *
0014500 c o m p i l e s o p e n t o
0014520 N T Y P X c h e c k ) 006 001 \r
0014540 ( E Q ( N T Y P X X
0014560 ) \r \ L I T A T
0014600 O M ] ) \r \r ( 006 004 F I X P 006 001 \r
0014620 [ L A M B D A ( X ) 006 003 006
0014640 001
0014660
*
0014720 006 003 ( * l m m " 1 0 - M A
0014740 R - 8 1 1 5 : 0 8 " ) 006 001 \r
0014760
*
0015040 006 003 ( *
0015060 c o m p i l e s o p e n t
0015100 o T Y P E P s ) 006 001 \r
0015120 ( \ T Y P E M A S K . U F N X
0015140 ( L R S H \ T T . F I X P
0015160 8 ] ) \r \r ( 006 004 S T R I N G P 006
0015200 001 \r [ L A M B D A ( X ) 006
0015220 003 006 001
0015240
*
0015300 006 003 ( * l m m " 1 0 -
0015320 M A R - 8 1 1 5 : 0 9 " ) 006 001
0015340 \r
0015360
*
0015420 006 003
0015440 ( * c o m p i l e s o p e n
0015460 t o T Y P E P ) 006 001 \r
0015500 ( S E L E C T C ( N T Y P X
0015520 X ) \r ( \ S T
0015540 R I N G P X ) \r
0015560 N I L ] ) \r \r ( 006 004 S M A L L
0015600 P 006 001 \r [ L A M B D A ( X
0015620 ) 006 003 006 001
0015640
*
0015700 006 003 ( * l m m " 1
0015720 0 - M A R - 8 1 1 5 : 1 0 " )
0015740 006 001 \r
0015760
*
0016040 006 003 ( * c o m p i l e s o p
0016060 e n t o T Y P E P ) 006 001 \r
0016100 ( S E L E C T C ( N T Y
0016120 P X X ) \r ( \
0016140 S M A L L P X ) \r
0016160 N I L ] ) \r \r ( 006 004 N L I S
0016200 T P 006 001 \r [ L A M B D A (
0016220 X ) 006 003 006 001
0016240
*
0016300 006 003 ( * l m m "
0016320 1 0 - M A R - 8 1 1 5 : 0 7 "
0016340 ) 006 001 \r
0016360
*
0016440 006 003 ( * c o m p i l e s o
0016460 p e n ) 006 001 \r ( N O T
0016500 ( 006 002 L I S T P 006 001 X ] ) \r \r
0016520 ( 006 004 A R R A Y P 006 001 \r [ L
0016540 A M B D A ( X ) 006 003 006 001
0016560
*
0016620 006 003 (
0016640 * l m m " 1 0 - M A R - 8 1
0016660 1 5 : 1 1 " ) 006 001 \r
0016700
*
0016760 006 003 ( * c o m
0017000 p i l e s o p e n t o T Y
0017020 P E P ) 006 001 \r ( S E L E
0017040 C T C ( N T Y P X X ) \r
0017060 ( \ A R R A Y P X
0017100 ) \r N I L ] ) \r
0017120 \r ( 006 004 A T O M 006 001 \r [ L A
0017140 M B D A ( X ) 006 003 006 001
0017160
*
0017220 006 003 ( *
0017240 l m m " 1 0 - M A R - 8 1
0017260 1 5 : 0 8 " ) 006 001 \r
0017300
*
0017360 006 003 ( * c o m p
0017400 i l e s o p e n ) 006 001 \r
0017420 ( \ M A C R O . M X ( 006 002 A
0017440 T O M 006 001 X ] ) \r \r ( 006 004 F L
0017460 O A T P 006 001 \r [ L A M B D A
0017500 ( X ) 006 003 006 001
0017520
*
0017560 006 003 ( * l m m
0017600 " 1 0 - M A R - 8 1 1 5 : 1
0017620 1 " ) 006 001 \r
0017640
*
0017720 006 003 ( * c o m p i l e s
0017740 o p e n t o T Y P E P ) 006
0017760 001 \r ( S E L E C T C (
0020000 N T Y P X X ) \r
0020020 ( \ F L O A T P X ) \r
0020040 N I L ] ) \r \r ( 006 004 N
0020060 U M B E R P 006 001 \r [ L A M B
0020100 D A ( X ) 006 003 006 001
0020120
*
0020160 006 003 ( * l
0020200 m m " 1 0 - M A R - 8 1 1 5
0020220 : 1 2 " ) 006 001 \r ( \ T Y
0020240 P E M A S K . U F N X ( L R
0020260 S H \ T T . N U M B E R P 8
0020300 ] ) \r \r ( 006 004 S T A C K P 006 001 \r
0020320 [ L A M B D A ( X ) 006 003 006
0020340 001
0020360
*
0020420 006 003 ( * l m m " 1 0 - M A
0020440 R - 8 1 1 5 : 1 3 " ) 006 001 \r
0020460 ( S E L E C T C ( N T Y
0020500 P X X ) \r ( \
0020520 S T A C K P X ) \r
0020540 N I L ] ) \r ) \r ( D E C L A
0020560 R E : D O N T C O P Y \r ( *
0020600 F O L L O W I N G D E F I N
0020620 I T I O N S E X P O R T E D )
0020640 \r \r \r ( D E C L A R E : E V A
0020660 L @ C O M P I L E \r \r [ P U T
0020700 P R O P S C H E C K M A C R
0020720 O ( A R G S ( C O N D [ (
0020740 A N D ( B O U N D P ( Q U O
0020760 T E C H E C K ) ) \r
0021000
*
0021040 C H E C K ) \r
0021060
0021100 ( C O
0021120 N S ( Q U O T E P R O G N )
0021140 \r
0021160
0021200 ( f o r I
0021220 i n A R G S c o l l e c t
0021240 \r
0021260
0021300 (
0021320 L I S T ( Q U O T E O R ) \r
0021340
*
0021420 I \r
0021440
*
0021500 ( L I S T
0021520 ( Q U O T E R A I D ) \r
0021540
*
0021620 ( K W O T E ( L
0021640 I S T ( Q U O T E C h e c k
0021660 - f a i l u r e : ) \r
0021700
*
0022000 I ] \r
0022020
0022040 ( T ( C O N S
0022060 C O M M E N T F L G A R G S ]
0022100 \r ( P U T P R O P S \ S t a t
0022120 s Z e r o B Y T E M A C R O
0022140 ( O P E N L A M B D A ( N ) \r
0022160
*
0022220 ( \ P U T B A S E
0022240 N 0 0 ) \r
0022260
0022300 ( \ P
0022320 U T B A S E N 1 0 ) ) ) \r
0022340 [ P U T P R O P S \ S t a t s
0022360 A d d 1 D M A C R O ( O P E
0022400 N L A M B D A ( A ) \r
0022420
0022440 (
0022460 P R O G ( ( L O ( I P L U S
0022500 1 6 ( \ G E T B A S E A 1
0022520 ) \r
0022540
*
0022600 1 ) ) ) \r
0022620
*
0022660 ( D E C L A R E ( L
0022700 O C A L V A R S L O ) ) \r
0022720
*
0022760 ( * I n c r e m
0023000 e n t d o u b l e w o r d
0023020 a t A b y 1 ) \r
0023040
*
0023100 ( \ P U T B A S E A
0023120 1 L O ) \r
0023140
0023160 (
0023200 C O N D ( ( E Q L O 0 ) \r
0023220
*
0023300 ( \ P U T B A S E A 0 ( A
0023320 D D 1 ( \ G E T B A S E A
0023340 0 ] \r [ P U T P R O P S I P L
0023360 U S 1 6 M A C R O ( ( X Y
0023400 ) \r
0023420 ( * K l
0023440 u d g e t o d o 1 6 - b i
0023460 t p l u s ) \r
0023500
0023520 ( \ L O L O C ( \ A D D B A
0023540 S E X Y ] \r [ P U T P R O P
0023560 S S M A L L P O S P M A C R
0023600 O ( O P E N L A M B D A ( X
0023620 ) \r
0023640
0023660 ( A N D ( S M A L L P
0023700 X ) \r
0023720
0023740 ( I G E Q X
0023760 0 ] \r [ P R O G N [ P U T P
0024000 R O P S S E T X V A R M A C
0024020 R O ( X ( B Q U O T E ( S
0024040 E T Q . N O R E F , ( C A D
0024060 A R X ) \r
0024100
*
0024140 , \r
0024160
*
0024220 ( C A D R
0024240 X ] \r ( P U T P R
0024260 O P S S E T X V A R D M A C
0024300 R O ( X ( O R ( A N D (
0024320 E Q ( C A A R X ) \r
0024340
*
0024400 ( Q U O
0024420 T E Q U O T E ) ) \r
0024440
*
0024500 ( L I T A T O M
0024520 ( C A D A R X ) ) ) \r
0024540
*
0024600 ( S H O U L D N T ) ) \r
0024620
*
0024660 ( G L O B A L V A R S \ V
0024700 A L S P A C E ) \r
0024720
0024740 ( L I S
0024760 T ( Q U O T E S E T Q . N O
0025000 R E F ) \r
0025020
0025040 ( C
0025060 A D A R X ) \r
0025100
*
0025140 ( C A D R X ] \r ( P U T P R
0025160 O P S S E T Q . N O R E F D
0025200 M A C R O ( ( V A R V A L )
0025220 \r
0025240 ( \
0025260 P U T B A S E P T R ( L O C F
0025300 ( f e t c h ( L I T A T O M
0025320 V A L U E ) \r
0025340
*
0025400 o
0025420 f \r
0025440
*
0025500 ( Q U O T E
0025520 V A R ) ) ) \r
0025540
0025560 0 V A L
0025600 ) ) ) \r ( P R O G N ( P U T P
0025620 R O P S I E Q M A C R O (
0025640 ( X Y ) \r
0025660
0025700 ( I E Q P X Y ) ) ) \r
0025720 ( P U T P R O P S
0025740 I E Q D M A C R O ( = .
0025760 E Q ) ) ) \r ) \r ( S E T T E M P
0026000 L A T E ( Q U O T E S P R E
0026020 A D A P P L Y * ) \r
0026040 ( Q U O T E ( F U N C T I O
0026060 N A L . . E V A L ) ) ) \r (
0026100 S E T T E M P L A T E ( Q U O
0026120 T E S P R E A D A P P L Y ) \r
0026140 ( Q U O T E ( F
0026160 U N C T I O N A L E V A L .
0026200 P P E ) ) ) \r ( S E T T E M P
0026220 L A T E ( Q U O T E S E T Q
0026240 . N O R E F ) \r (
0026260 Q U O T E ( S E T E V A L
0026300 . P P E ) ) ) \r ( D E C L A R
0026320 E : E V A L @ C O M P I L E
0026340 \r \r ( R P A Q Q 006 002 W o r d s
0026360 P e r P a g e 006 001 2 5 6 ) \r \r
0026400 ( C O N S T A N T S W o r d s
0026420 P e r P a g e ) \r ) \r \r \r ( *
0026440 E N D E X P O R T E D D E F
0026460 I N I T I O N S ) \r \r ) \r \r \r \r
0026500 006 004 ( * ; " a t o m s " ) 006
0026520 001 \r \r ( D E F I N E Q \r \r ( 006 004
0026540 G E T T O P V A L 006 001 \r [ L
0026560 A M B D A ( X ) 006 003 006 001
0026600
*
0026640 006 003 (
0026660 * e d i t e d : " 3 - A p
0026700 r - 8 5 1 6 : 3 8 " ) 006 001 \r
0026720 ( 006 002 f e t c h 006 001 ( 006
0026740 002 L I T A T O M 006 001 V A L U E
0026760 ) 006 002 o f 006 001 X ] ) \r \r ( 006
0027000 004 S E T T O P V A L 006 001 \r [
0027020 L A M B D A ( A T M V A L )
0027040 006 003 006 001
0027060
0027100 006 003
0027120 ( * e d i t e d : " 3 - A
0027140 p r - 8 5 1 9 : 3 7 " ) 006 001 \r
0027160 ( S E L E C T Q A T M
0027200 \r ( N I L ( A
0027220 N D V A L ( L I S P E R R O
0027240 R " A T T E M P T T O S E
0027260 T N I L O R T " V A L )
0027300 ) ) \r ( T ( O
0027320 R ( E Q V A L T ) \r
0027340 ( L I S
0027360 P E R R O R " A T T E M P T
0027400 T O S E T N I L O R T "
0027420 V A L ) ) ) \r
0027440 ( 006 002 r e p l a c e 006 001 ( 006 002
0027460 L I T A T O M 006 001 V A L U E )
0027500 006 002 o f 006 001 A T M 006 002 w i
0027520 t h 006 001 ( U N L E S S R D S Y
0027540 S V A L ( \ C O P Y V A L
0027560 ] ) \r \r ( 006 004 F S E T V A L 006 001
0027600 \r [ L A M B D A ( A T M
0027620 V A L ) 006 003 006 001
0027640
*
0027700 006 003 ( * e d i t e d : "
0027720 3 - A p r - 8 5 1 9 : 3 6 "
0027740 ) 006 001 \r
0027760
*
0030040 006 003 ( * S E T T O P V A L
0030060 W I T H O U T E R R O R C H
0030100 E C K S F O R \r 006 001
0030120
*
0030200 006 003 M A K E I
0030220 N I T O N L Y ) 006 001 \r
0030240 ( 006 002 r e p l a c e 006 001 ( 006 002
0030260 L I T A T O M 006 001 V A L U E )
0030300 006 002 o f 006 001 A T M 006 002 w i
0030320 t h 006 001 V A L ] ) \r \r ( 006 004 \
0030340 S E T G L O B A L V A L . U F N
0030360 006 001 \r [ L A M B D A ( V
0030400 A ) 006 003 006 001
0030420
*
0030460 006 003 ( * b v m : "
0030500 6 - J u n - 8 5 1 1 : 5 4 " )
0030520 006 001 \r ( 006 002 r e p l a c
0030540 e 006 001 ( V A L I N D E X V A
0030560 L U E ) 006 002 o f 006 001 A 006 002
0030600 w i t h 006 001 V ] ) \r \r ( 006 004 \
0030620 S E T F V A R . U F N 006 001 \r
0030640 [ L A M B D A ( V V C E L L
0030660 ) 006 003 006 001
0030700
0030720 006
0030740 003 ( * e d i t e d : " 3 -
0030760 A p r - 8 5 1 6 : 4 0 " ) 006 001
0031000 \r ( 006 002 r e p l a c e 006
0031020 001 ( V C E L L V A L U E )
0031040 006 002 o f 006 001 V C E L L 006 002 w
0031060 i t h 006 001 V ] ) \r \r ( 006 004 G E
0031100 T P R O P L I S T 006 001 \r [ L
0031120 A M B D A ( A T M ) 006 003 006 001
0031140
*
0031200 006 003 (
0031220 * e d i t e d : " 3 - A p
0031240 r - 8 5 1 6 : 4 0 " ) 006 001 \r
0031260 ( \ G E T B A S E P T R
0031300 ( \ P R O P C E L L A T M ) \r
0031320 0 ] ) \r \r
0031340 ( 006 004 \ A T O M C E L L 006 001 \r
0031360 [ L A M B D A ( X N ) 006 003
0031400 006 001
0031420
*
0031460 006 003 ( * l m m " 2 0 - M a r
0031500 - 8 6 1 6 : 3 0 " ) 006 001 \r
0031520 ( L E T [ ( L O C ( S E
0031540 L E C T C N \r
0031560 ( \ D E F
0031600 . H I ( \ A T O M D E F I N D
0031620 E X X ) ) \r
0031640 ( \ V A L .
0031660 H I ( \ A T O M V A L I N D E
0031700 X X ) ) \r
0031720 ( \ P L I S T
0031740 . H I ( \ A T O M P R O P I N
0031760 D E X X ) ) \r
0032000 ( \ P N A
0032020 M E . H I ( \ A T O M P N A M
0032040 E I N D E X X ) ) \r
0032060 ( S
0032100 H O U L D N T ] \r
0032120 ( \ A D D B A S E ( \ V A
0032140 G 2 N L O C ) \r
0032160 L O C ] ) \r
0032200 \r ( 006 004 S E T P R O P L I S T 006
0032220 001 \r [ L A M B D A ( A T M
0032240 L S T ) 006 003 006 001
0032260
*
0032320 006 003 ( * e d i t e d :
0032340 " 3 - A p r - 8 5 1 6 : 4 1
0032360 " ) 006 001 \r ( 006 002 r e p l
0032400 a c e 006 001 ( 006 002 L I T A T O M
0032420 006 001 P R O P L I S T ) 006 002 o
0032440 f 006 001 A T M 006 002 w i t h 006 001
0032460 L S T ] ) \r ) \r ( D E C L A R
0032500 E : E V A L @ C O M P I L E
0032520 \r \r [ P U T P R O P S \ P R O
0032540 P C E L L M A C R O ( ( A T
0032560 O M ) \r
0032600 (
0032620 \ A T O M C E L L A T O M (
0032640 C O N S T A N T \ P L I S T .
0032660 H I ] \r ) \r ( D E F O P T I M I
0032700 Z E R 006 002 \ A T O M C E L L 006
0032720 001 ( & R E S T X ) ( L E T
0032740 ( ( C E ( C O N S T A N T E
0032760 X P R E S S I O N P ( C A D R
0033000 X ) ) ) ) \r
0033020
0033040 ( C
0033060 O N D \r
0033100
0033120 ( C
0033140 E ( B Q U O T E ( ( O P C O
0033160 D E S A T O M C E L L . N ,
0033200 ( C A R C E ) ) \r
0033220
*
0033300 , \r
0033320
*
0033360 ( C A R
0033400 X ) ) ) ) \r
0033420
*
0033460 ( T ( Q U O T E I G N O R E
0033500 M A C R O ) ) ) ) ) \r \r ( D E F
0033520 O P T I M I Z E R 006 002 G E T P
0033540 R O P L I S T 006 001 ( X ) ( B
0033560 Q U O T E ( \ G E T B A S E P
0033600 T R ( \ P R O P C E L L ( \
0033620 , X ) ) \r
0033640
*
0033700 0 ) ) ) \r \r ( D E F O P T
0033720 I M I Z E R 006 002 S E T P R O P
0033740 L I S T 006 001 ( A T M L S T )
0033760 ( B Q U O T E ( \ R P L P T
0034000 R ( \ P R O P C E L L ( \ ,
0034020 A T M ) ) \r
0034040
*
0034100 0 \r
0034120
*
0034160 (
0034200 \ , L S T ) ) ) ) \r \r ( D E F
0034220 I N E Q \r \r ( 006 004 \ M K A T O M
0034240 006 001 \r [ L A M B D A ( B A
0034260 S E O F F S T L E N F A T
0034300 P N O N N U M E R I C P ) 006 003
0034320 006 001
0034340 006 003 ( * b v m : "
0034360 3 - A u g - 8 6 1 5 : 2 4 " )
0034400 006 001 \r ( P R O G ( [ F
0034420 A T C H A R S E E N P ( A N D
0034440 F A T P ( N O T ( N U L L
0034460 ( 006 002 f o r 006 001 I 006 002 f r
0034500 o m 006 001 O F F S T 006 002 t o 006
0034520 001 ( S U B 1 ( I P L U S O
0034540 F F S T L E N ) ) \r
0034560
*
0034620 006 002 s u
0034640 c h t h a t 006 001 ( I G R E A T
0034660 E R P ( \ G E T B A S E F A T
0034700 B A S E I ) \r
0034720
*
0035000 \ M A X T H
0035020 I N C H A R ] \r
0035040 H A S H H A S H E N T
0035060 A T M # P N B A S E F I R S
0035100 T C H A R F I R S T B Y T E
0035120 R E P R O B E ) \r
0035140
*
0035220 006 003 ( * B e c a u
0035240 s e F A T C H A R S E E N P
0035260 i s u s e d i n a n \r 006
0035300 001
0035320
*
0035360 006 003
0035400 E Q c h e c k l a t e r ,
0035420 i t m u s t b e N I L o
0035440 r T \r 006 001
0035460
*
0035540 006 003 o n l y , h e n c
0035560 e t h e ( N O T \r 006 001
0035600
*
0035660 006 003 ( N U L
0035700 L . . . ) ) ) 006 001 \r
0035720 ( C O N D \r
0035740 ( ( E Q L E N
0035760 0 )
0036000
0036020 006 003 ( * T h e
0036040 Z e r o - l e n g t h a t o
0036060 m h a s h a s h c o d e
0036100 \r 006 001
0036120
*
0036200 006 003 z e r o ) 006 001 \r
0036220 ( S E T Q H A
0036240 S H 0 ) \r
0036260 ( S E T Q F I R S T B
0036300 Y T E 2 5 5 ) \r
0036320 ( G O L P ) ) )
0036340 \r ( S E T Q
0036360 F I R S T C H A R ( U N L E
0036400 S S R D S Y S ( \ G E T B A S
0036420 E C H A R F A T P B A S E
0036440 O F F S T ) \r
0036460
0036500 ( N T H C H A R
0036520 C O D E B A S E O F F S T )
0036540 ) ) 006 003 ( * G r a b t h
0036560 e f i r s t c h a r a c t e
0036600 r o f t h e \r 006 001
0036620
*
0036700 006 003 a t o m )
0036720 006 001 \r [ U N
0036740 L E S S R D S Y S ( C O N D \r
0036760
0037000 [ ( A N D
0037020 ( E Q L E N 1 ) \r
0037040
0037060 ( I L E Q
0037100 F I R S T C H A R \ M A X T
0037120 H I N C H A R ) \r
0037140
0037160 \ O n e C h a
0037200 r A t o m B a s e )
0037220 006 003 ( * T h e o
0037240 n e - c h a r a c t e r a t o
0037260 m s l i v e i n \r 006 001
0037300
*
0037360 006 003 w e l
0037400 l k n o w n p l a c e s ,
0037420 n o n e e d t o h a s h )
0037440 006 001 \r
0037460 ( R
0037500 E T U R N ( C O N D \r
0037520
*
0037560 ( ( I G R E A T E R P F I
0037600 R S T C H A R ( C H A R C O D
0037620 E " 9 " ) ) \r
0037640
0037660 (
0037700 \ A D D B A S E \ O n e C h a
0037720 r A t o m B a s e ( I D I F F
0037740 E R E N C E F I R S T C H A R
0037760 1 0 ) ) ) \r
0040000
0040020 ( ( I
0040040 G E Q F I R S T C H A R ( C
0040060 H A R C O D E " 0 " ) ) \r
0040100
*
0040160 006 003 ( *
0040200 T h e s e o n e - c h a r a c
0040220 t e r a t o m s a r e \r 006
0040240 001
0040260
*
0040320 006 003
0040340 i n t e g e r s . S i g h ) 006
0040360 001 \r
0040400
0040420 ( I D I F F E
0040440 R E N C E F I R S T C H A R
0040460 ( C H A R C O D E " 0 " ) ) )
0040500 \r
0040520
0040540 ( T ( \ A D D B
0040560 A S E \ O n e C h a r A t o m
0040600 B a s e F I R S T C H A R ] \r
0040620
0040640 ( ( A N D
0040660 ( N O T N O N N U M E R I C P
0040700 ) \r
0040720
0040740 ( I L E Q F I R S T C H A
0040760 R ( C H A R C O D E " 9 " )
0041000 ) \r
0041020
0041040 ( S E T Q H A S H E N T
0041060 ( \ P A R S E . N U M B E R B
0041100 A S E O F F S T L E N F A
0041120 T P 1 0 \ O R I G R E A D T
0041140 A B L E ) ) ) \r
0041160
*
0041240 006 003 ( * \ P A R S E
0041260 . N U M B E R r e t u r n s
0041300 a n u m b e r o r \r 006 001
0041320
*
0041400 006 003 N I
0041420 L ) 006 001 \r
0041440
0041460 ( R E T U R N H A S H E N T ]
0041500
0041520 006 003 ( * C a l c u l a t e
0041540 f i r s t p r o b e ) 006 001 \r
0041560 ( S E T Q
0041600 F I R S T B Y T E ( L O G A N
0041620 D F I R S T C H A R 2 5 5 )
0041640 ) 006 003 (
0041660 * F i r s t b y t e i s
0041700 u s e d t o c o m p u t e
0041720 h a s h \r 006 001
0041740
*
0042020 006 003 a n d r e p r o
0042040 b e . U s e l o w e r o r
0042060 d e r b y t e o f \r 006 001
0042100
*
0042160 006 003 f i
0042200 r s t c h a r a c t e r , s
0042220 i n c e c h a n c e s a r e
0042240 \r 006 001
0042260
*
0042340 006 003 t h a t h a s t h e
0042360 m o s t i n f o r m a t i o n
0042400 ) 006 001 \r ( C
0042420 O M P U T E . A T O M . H A S H
0042440 B A S E O F F S T L E N
0042460 F I R S T B Y T E F A T P )
0042500 006 003 ( * B u i l d a h a
0042520 s h v a l u e f o r t h i
0042540 s a t o m \r 006 001
0042560
*
0042640 006 003 f r o m t h
0042660 e P N A M E ) 006 001 \r
0042700 L P
0042720
*
0042760 006 003 ( * T o p
0043000 o f t h e p r o b e - a n
0043020 d - c o m p a r e - P N A M E s
0043040 \r 006 001
0043060
*
0043140 006 003 l o o p . ) 006 001 \r
0043160 [ C O N D \r
0043200 ( ( N E Q 0
0043220 ( S E T Q H A S H E N T (
0043240 \ G E T B A S E \ A t o m H a
0043260 s h T a b l e H A S H ) ) ) \r
0043300
*
0043360 006 003 (
0043400 * H A S H E N T i s o n e
0043420 g r e a t e r t h a n t h
0043440 e \r 006 001
0043460
*
0043540 006 003 a t o m n u m b e r ,
0043560 s o t h a t a t o m z e
0043600 r o c a n b e \r 006 001
0043620
*
0043700 006 003 s t o r
0043720 e d . G o f r o m a t o m
0043740 n u m b e r t o p n a m e
0043760 , \r 006 001
0044000
*
0044060 006 003 c o m p a r e s t r i
0044100 n g s ) 006 001 \r
0044120 ( C O N D \r
0044140 ( ( U N
0044160 L E S S R D S Y S [ A N D (
0044200 E Q [ 006 002 f f e t c h 006 001 (
0044220 P N A M E B A S E P N A M E L
0044240 E N G T H ) \r
0044260
*
0044320 006 002 o f 006 001 ( S E T Q P
0044340 N B A S E ( 006 002 f f e t c h 006
0044360 001 ( P N A M E I N D E X P N
0044400 A M E B A S E ) \r
0044420
*
0044500 006 002 o f 006 001 ( S
0044520 E T Q A T M # ( S U B 1 H
0044540 A S H E N T ] \r
0044560
*
0044620 L E N ) \r
0044640
0044660 [ E Q F A T
0044700 C H A R S E E N P ( A N D (
0044720 P R O G 1 ( E Q 0 ( 006 002 f
0044740 f e t c h 006 001 ( P N A M E B A
0044760 S E \r
0045000
*
0045100 P N A M E F A T P A
0045120 D D I N G B Y T E \r
0045140
*
0045260 ) 006 002 o f 006 001 P N B A S E )
0045300 ) \r \r
0045320 006 003 ( * E x t r
0045340 a m e m o r y r e f e r e n
0045360 c e s t o g e t t h e F
0045400 A T P N A M E P b i t , s o
0045420 d o a q u i c k a n d
0045440 d i r t y \r 006 001
0045460 006 003 h e u r i s t i c ,
0045500 b a s e d o n t h e f a c
0045520 t t h a t t h e s e c o n
0045540 d b y t e o f a f a t p
0045560 n a m e i s a l w a y s \r
0045600 006 001 006 003 0 -
0045620 - w o u l d n ' t b e w o r
0045640 t h i t i f t h e f a t
0045660 b i t w e r e m o r e e a
0045700 s i l y a c c e s s i b l e )
0045720 006 001 \r \r
0045740
*
0046020 ) \r
0046040
*
0046120 ( 006 002 f f e t c h 006 001 ( 006 002
0046140 L I T A T O M 006 001 F A T P N A
0046160 M E P ) \r
0046200
*
0046260 006 002 o f 006 001 ( \ A D D B A
0046300 S E \ A T O M S P A C E A T
0046320 M # ] \r
0046340
0046360 ( C O N D \r
0046400
*
0046440 [ F A T C H A R S E E
0046460 N P 006 003 ( *
0046500 F A T C H A R S E E N P = T n
0046520 o w i m p l i e s t h a t
0046540 \r 006 001
0046560
*
0046640 006 003 b o t h t h e p r o b e
0046660 a n d t a r g e t a r e
0046700 f a t ) 006 001 \r
0046720
*
0046760 ( 006 002 f o r 006 001 B 1
0047000 006 002 f r o m 006 001 1 006 002 t o
0047020 006 001 L E N 006 002 a s 006 001 B 2
0047040 006 002 f r o m 006 001 O F F S T \r
0047060
*
0047140 006 002 a l w a y s 006 001
0047160 006 003 ( * L o o p t h r u
0047200 t h e c h a r a c t e r s i
0047220 n t h e \r 006 001
0047240
*
0047320 006 003 p u t a t i v e
0047340 a t o m a n d t h e e x
0047360 i s t i n g P N A M E , \r 006
0047400 001
0047420
*
0047460 006 003
0047500 t o s e e i f t h e y ' r
0047520 e t h e s a m e ) 006 001 \r
0047540
*
0047620 ( E Q ( \ G E T B A
0047640 S E F A T P N B A S E B 1 )
0047660 \r
0047700
*
0047740 ( \ G E
0047760 T B A S E F A T B A S E B 2
0050000 ] \r
0050020
0050040 [ F A T P
0050060 006
0050100 003 ( * T h e i n c o m i n g
0050120 s t r i n g i s f a t ,
0050140 b u t \r 006 001
0050160
*
0050240 006 003 t h e r e a r e
0050260 n o f a t c h a r a c t e r
0050300 s i n t h e \r 006 001
0050320
*
0050400 006 003 P N A M E
0050420 . ) 006 001 \r
0050440
*
0050500 ( 006 002 f o r 006 001 B 1 006 002
0050520 f r o m 006 001 1 006 002 t o 006 001
0050540 L E N 006 002 a s 006 001 B 2 006 002
0050560 f r o m 006 001 O F F S T \r
0050600
*
0050640 006 002 a
0050660 l w a y s 006 001 ( E Q ( \ G E
0050700 T B A S E T H I N P N B A S E
0050720 B 1 ) \r
0050740
*
0051020 ( \ G E T B A S E F A T B A S
0051040 E B 2 ] \r
0051060
0051100 ( T
0051120
0051140 006 003 ( * B o t h t h e
0051160 i n c o m i n g s t r i n g
0051200 o f c h a r s \r 006 001
0051220
*
0051300 006 003 a n d
0051320 t h e P N A M E a r e t h
0051340 i n . ) 006 001 \r
0051360
*
0051420 ( 006 002 f o r 006 001 B 1 006 002 f
0051440 r o m 006 001 1 006 002 t o 006 001 L
0051460 E N 006 002 a s 006 001 B 2 006 002 f
0051500 r o m 006 001 O F F S T \r
0051520
*
0051560 006 002 a l w a y
0051600 s 006 001 ( E Q ( \ G E T B A S
0051620 E T H I N P N B A S E B 1 )
0051640 \r
0051660
*
0051720 ( \ G E T B A
0051740 S E T H I N B A S E B 2 ] \r
0051760
0052000 ( E Q ( \ I
0052020 N D E X A T O M P N A M E ( S
0052040 E T Q A T M # ( S U B 1 H
0052060 A S H E N T ) ) ) \r
0052100
0052120 B A S E ) ) \r
0052140
0052160 ( R E T U R N ( \ A D D B A S
0052200 E \ A T O M S P A C E A T M
0052220 # ) ) ) \r
0052240 ( T
0052260
*
0052320 006 003 ( * D o e s n ' t m
0052340 a t c h , s o r e p r o b e
0052360 . \r 006 001
0052400
*
0052460 006 003 W a n t r e p r o b e
0052500 t o b e v a r i a b l e ,
0052520 \r 006 001
0052540
*
0052620 006 003 p r e f e r a b l y i n d
0052640 e p e n d e n t o f p r i m
0052660 a r y \r 006 001
0052700
*
0052760 006 003 p r o b e . ) 006 001 \r
0053000
0053020 [ S E T Q H A S H (
0053040 I P L U S 1 6 H A S H ( O R
0053060 R E P R O B E ( S E T Q R
0053100 E P R O B E ( A T O M . H A S
0053120 H . R E P R O B E H A S H \r
0053140
*
0053240 F I
0053260 R S T B Y T E ] \r
0053300 ( G O
0053320 L P ]
0053340
0053360 006 003 ( * N o t f
0053400 o u n d , m u s t m a k e
0053420 n e w a t o m ) 006 001 \r
0053440 ( R E T U R N ( U
0053460 N I N T E R R U P T A B L Y \r
0053500
0053520 ( L E T ( ( N E W A
0053540 T O M ( 006 002 \ C R E A T E . S
0053560 Y M B O L 006 001 B A S E O F F
0053600 S T L E N F A T P F A T C
0053620 H A R S E E N P ) ) ) \r
0053640
0053660 [ U N L E S S R D
0053700 S Y S ( \ P U T B A S E \ A
0053720 t o m H a s h T a b l e H A S
0053740 H ( A D D 1 ( \ A T O M P N
0053760 A M E I N D E X N E W A T O M
0054000 ] \r
0054020 N E W
0054040 A T O M ) ) ] ) \r \r ( 006 004 \ C R
0054060 E A T E . S Y M B O L 006 001 \r
0054100 [ L A M B D A ( B A S E O F
0054120 F S E T L E N F A T P F A
0054140 T C H A R S E E N P ) 006 003 006 001
0054160 006
0054200 003 ( * b v m : " 1 3 - J u n
0054220 - 8 6 1 7 : 2 5 " ) 006 001 \r
0054240 \r
0054260 006 003 ( * * C r e a t e
0054300 s a n e w s y m b o l w
0054320 h o s e p n a m e i s a s
0054340 i n d i c a t e d . \r 006 001
0054360 006 003 F A T P m
0054400 e a n s t h e p r e s e n t
0054420 e d s t r i n g i s f a t
0054440 , w h i l e F A T C H A R S
0054460 E E N P m e a n s t h a t
0054500 t h e r e \r 006 001
0054520 006 003 a c t u a l l y i s
0054540 a f a t c h a r i n t
0054560 h e r e ( o t h e r w i s e
0054600 w e w i l l s t o r e a
0054620 t h i n p n a m e ) - \r 006 001
0054640 006 003 M u s t
0054660 b e c a l l e d U N I N T
0054700 E R R U P T A B L Y a n d t
0054720 h e c a l l e r i s r e s
0054740 p o n s i b l e f o r i n t
0054760 e r n i n g t h e \r 006 001
0055000 006 003 s y m b o l
0055020 w h e r e v e r i t b e l
0055040 o n g s ) 006 001 \r \r ( L E
0055060 T ( [ P N B A S E ( \ A L L
0055100 O C B L O C K ( C O N D \r
0055120
*
0055160 ( F A T C H A R S E E N P
0055200 006 003 ( *
0055220 A l l o c a t e u s a b u
0055240 n c h o f w o r d - s i z e
0055260 d \r 006 001
0055300
*
0055360 006 003 c h a r s i n p n a
0055400 m e s p a c e ) 006 001 \r
0055420
*
0055460 ( F O L D H I ( A D
0055500 D 1 L E N ) \r
0055520
*
0055560 W O R D S P E R
0055600 C E L L ) ) \r
0055620
0055640 ( T
0055660
0055700 006 003 ( * A l l o c a t
0055720 i o n i s i n C E L L S )
0055740 006 001 \r
0055760
0056000 ( F O L D H I
0056020 ( A D D 1 L E N ) \r
0056040
*
0056100 B Y T E S P E R C
0056120 E L L ] \r P
0056140 B C P P A T M ) \r
0056160 ( C O N D \r
0056200 ( ( E V E N P ( S
0056220 E T Q A T M \ A t o m F r L
0056240 s t ) \r
0056260 \ M D S I n c r
0056300 e m e n t )
0056320
0056340 006 003 ( * M D S p a g e s
0056360 a r e a l l o c a t e d i n
0056400 t w o - p a g e \r 006 001
0056420
*
0056500 006 003 c h u n
0056520 k s n o w ) 006 001 \r
0056540 ( P R O G ( ( P
0056560 N ( F O L D L O A T M W O
0056600 R D S P E R P A G E ) ) ) \r
0056620
0056640 ( C O N D \r
0056660 ( ( I
0056700 G E Q P N ( I D I F F E R E
0056720 N C E \ L a s t A t o m P a g
0056740 e 1 ) ) \r
0056760 ( 006 002
0057000 \ M K A T O M . F U L L 006 001 ) )
0057020 ) \r
0057040 ( \ M A K E M D S E N
0057060 T R Y P N ( L O G O R \ T
0057100 T . N O R E F \ T T . A T O M
0057120 \ L I T A T O M ) ) \r
0057140
*
0057220 006 003 ( * M a
0057240 k e e n t r y i n M D S
0057260 t y p e t a b l e ) 006 001 \r
0057300
0057320 ( 006 002 \ I N I T A T O M P A G
0057340 E 006 001 P N )
0057360 006
0057400 003 ( * M a k e D e f ' n ,
0057420 T o p V a l , a n d P l i s
0057440 t p a g e s \r 006 001
0057460
*
0057540 006 003 e x i s t ,
0057560 a n d i n i t i a l i z e )
0057600 006 001 \r
0057620 ) ) \r
0057640 ( ( E Q A T M \ M a x A t
0057660 o m F r L s t )
0057700
0057720 006 003 ( * T h i s t e s t
0057740 i s f a s t ) 006 001 \r
0057760 ( \ M P . E R
0060000 R O R \ M P . A T O M S F U L
0060020 L " N o m o r e a t o m s
0060040 l e f t " ) ) ) \r
0060060 ( 006 002 r e p l a c e 006 001
0060100 ( P N A M E I N D E X P N A M
0060120 E B A S E ) 006 002 o f 006 001 A T
0060140 M 006 002 w i t h 006 001 P N B A S
0060160 E ) 006 003 ( * P N A M E s t
0060200 a r t s o n b y t e 1 a
0060220 l w a y s - \r 006 001
0060240
*
0060320 006 003 b y t e 0
0060340 i s t h e l e n g t h ) 006 001
0060360 \r ( C O N D \r
0060400 ( F A T
0060420 C H A R S E E N P ( 006 002 \ B L
0060440 T 006 001 ( \ A D D B A S E P N
0060460 B A S E 1 ) \r
0060500
0060520 ( \ A D D B A S
0060540 E B A S E O F F S E T ) \r
0060560
0060600 L
0060620 E N ) ) \r
0060640 [ F A T P ( 006 002 f o r 006 001
0060660 I 006 002 f r o m 006 001 O F F S E
0060700 T 006 002 a s 006 001 J 006 002 f r o
0060720 m 006 001 1 006 002 t o 006 001 L E N
0060740 006 002 d o 006 001 ( \ P U T B A S
0060760 E T H I N P N B A S E J (
0061000 \ G E T B A S E F A T B A S E
0061020 I \r
0061040
*
0061140 ] \r
0061160 ( T ( 006 002
0061200 \ M O V E B Y T E S 006 001 B A S
0061220 E O F F S E T P N B A S E
0061240 1 L E N ) ) ) \r
0061260 ( 006 002 r e p l a c e 006 001 (
0061300 P N A M E B A S E P N A M E L
0061320 E N G T H ) 006 002 o f 006 001 P N
0061340 B A S E 006 002 w i t h 006 001 L E
0061360 N ) \r ( C O N
0061400 D \r ( (
0061420 N O T \ I N . M A K E I N I T
0061440 )
0061460 006
0061500 003 ( * M a k e t h e p n a
0061520 m e b l o c k p e r m a n e
0061540 n t , \r 006 001
0061560
*
0061640 006 003 s i n c e t h e
0061660 r e p l a c e a b o v e d i
0061700 d n o t a d d r e f \r 006 001
0061720
*
0062000 006 003 i
0062020 t ) 006 001 \r
0062040 ( \ A D D R E F P N B A S
0062060 E ) ) ) \r ( S
0062100 E T Q \ A t o m F r L s t (
0062120 A D D 1 A T M ) ) \r
0062140 ( S E T Q A T M ( \
0062160 A D D B A S E \ A T O M S P A
0062200 C E A T M ) ) \r
0062220 ( C O N D \r
0062240 ( F A T C H A R S E E N
0062260 P ( 006 002 f r e p l a c e 006 001
0062300 ( 006 002 L I T A T O M 006 001 F A T
0062320 P N A M E P ) 006 002 o f 006 001 A
0062340 T M 006 002 w i t h 006 001 T ) ) )
0062360 \r A T M ] ) \r
0062400 \r ( 006 004 \ M K A T O M . F U L L
0062420 006 001 \r [ L A M B D A N I L
0062440 006 003 006 001
0062460
*
0062520 006 003 ( * b v m : "
0062540 7 - M a y - 8 6 1 2 : 2 5 " )
0062560 006 001 \r \r
0062600 006 003 ( * * C
0062620 a u s e a S T O R A G E F U
0062640 L L i n t e r r u p t o n
0062660 t h e f i r s t a t o m o
0062700 f t h e p e n u l t i m a t
0062720 e p a g e - - \r 006 001
0062740 006 003 t h a t s h o
0062760 u l d g i v e " e a r l y "
0063000 w a r n i n g . ) 006 001 \r \r
0063020 ( 006 002 D E C L A R E 006 001 (
0063040 G L O B A L V A R S \ S T O R
0063060 A G E F U L L \ I N T E R R U
0063100 P T S T A T E ) ) \r ( C
0063120 O N D \r ( ( N O T
0063140 \ S T O R A G E F U L L ) \r
0063160 ( S E T Q \ S T
0063200 O R A G E F U L L T ) \r
0063220 ( 006 002 r e p l a c e 006
0063240 001 S T O R A G E F U L L 006 002
0063260 o f 006 001 \ I N T E R R U P T S
0063300 T A T E 006 002 w i t h 006 001 T )
0063320 \r ( S E T Q \
0063340 P E N D I N G I N T E R R U P T
0063360 T ) ) ) \r N I L ] ) \r
0063400 \r ( 006 004 \ I N I T A T O M P A G
0063420 E 006 001 \r [ L A M B D A ( P
0063440 N ) 006 003 006 001
0063460
*
0063520 006 003 ( * b v m : "
0063540 1 8 - J a n - 8 5 1 6 : 0 2 "
0063560 ) 006 001 \r ( P R O G ( (
0063600 O F F S E T ( U N F O L D P
0063620 N W O R D S P E R P A G E ) )
0063640 \r V A L B
0063660 A S E ) \r \r
0063700 006 003 ( * P
0063720 N i s t h e p a g e n u
0063740 m b e r o f t h e f i r s
0063760 t a t o m . \r 006 001
0064000 006 003 O F F S E T i s
0064020 t h e f i r s t a t o m .
0064040 H a v e t o d o u b l e t
0064060 h a t t o g e t o f f s e
0064100 t s i n \ D E F S P A C E
0064120 e t c . \r 006 001
0064140 006 003 A t o m s , l i k e e
0064160 v e r y t h i n g , a r e a
0064200 l l o c a t e d i n d o u b
0064220 l e p a g e s , s o t h e
0064240 4 s p a c e s h a v e t
0064260 o \r 006 001 006
0064300 003 b e a l l o c a t e d i n
0064320 q u a d p a g e s ) 006 001 \r
0064340 \r
0064360 006 003 ( * * a s s u m
0064400 e s C C O D E P b i t i n
0064420 d e f i n i t i o n c e l l
0064440 i s d e f a u l t " O F F
0064460 " , s o i t ' s o k t
0064500 o \r 006 001 006
0064520 003 h a v e a l l d e f p a
0064540 g e s z e r o t o s t a r
0064560 t ) 006 001 \r \r
0064600 ( \ N E W 4 P A G E ( \ A D D
0064620 B A S E 2 \ P N P S P A C E
0064640 O F F S E T ) ) \r
0064660 ( \ N E W 4 P A G E ( \
0064700 A D D B A S E 2 \ D E F S P A
0064720 C E O F F S E T ) ) \r
0064740 ( \ N E W 4 P A G E
0064760 ( \ A D D B A S E 2 \ P L I
0065000 S T S P A C E O F F S E T ) )
0065020 \r ( \ N E W
0065040 4 P A G E ( S E T Q V A L B
0065060 A S E ( \ A D D B A S E 2 \
0065100 V A L S P A C E O F F S E T )
0065120 ) ) \r ( F R
0065140 P T Q ( I T I M E S C E L L
0065160 S P E R P A G E 4 )
0065200
0065220 006 003 ( * I n i t i a l i z e
0065240 v a l u e p a g e s t o v
0065260 a l u e \r 006 001
0065300
*
0065360 006 003 N O B I N D ) 006 001
0065400 \r
0065420 ( \ P U T B A S E P T R V
0065440 A L B A S E 0 ( E V Q ( Q
0065460 U O T E N O B I N D ) ) ) \r
0065500
0065520 ( S E T Q V A L B A S E ( \
0065540 A D D B A S E V A L B A S E
0065560 W O R D S P E R C E L L ] ) \r )
0065600 \r ( D E F I N E Q \r \r ( 006 004 M A
0065620 P A T O M S 006 001 \r [ L A M B
0065640 D A ( F N ) \r ( 006 002 D
0065660 E C L A R E 006 001 ( L O C A L V
0065700 A R S . T ) ) 006 003 006 001
0065720
0065740 006 003 (
0065760 * l m m " 1 3 - F E B - 8 3
0066000 1 3 : 3 3 " ) 006 001 \r (
0066020 P R O G ( ( A 0 ) ) \r
0066040 L P ( A P P L Y * F
0066060 N ( \ I N D E X A T O M P N A
0066100 M E A ) ) \r
0066120 ( C O N D \r
0066140 ( ( E Q ( S E T Q A
0066160 ( A D D 1 A ) ) \r
0066200 \ A t
0066220 o m F r L s t ) \r
0066240 ( R E T U R N ) )
0066260 ) \r ( G O
0066300 L P ] ) \r \r ( 006 004 A T O M H A S
0066320 H # P R O B E S 006 001 \r [ L A
0066340 M B D A ( S T R I N G ) 006 003 006
0066360 001
0066400
0066420 006 003 ( *
0066440 b v m : " 8 - J u l - 8 6
0066460 2 1 : 5 0 " ) 006 001 \r
0066500 \r
0066520 006 003 ( * * L o o k s u p
0066540 S T R I N G ( a s t r i n g
0066560 o r l i t a t o m ) i n
0066600 a t o m h a s h t a b l e .
0066620 \r 006 001 006 003 I
0066640 f f o u n d , r e t u r n s
0066660 n u m b e r o f p r o b e
0066700 s n e e d e d t o f i n d
0066720 i t , a m i n i m u m o
0066740 f o n e . \r 006 001
0066760 006 003 I f n o t f o u n
0067000 d , r e t u r n s N I L ) 006
0067020 001 \r \r ( P R O G ( D E
0067040 S I R E D A T O M # B A S E
0067060 O F F S T L E N F I R S T B
0067100 Y T E F I R S T C H A R H A
0067120 S H H A S H E N T P N B A S
0067140 E R E P R O B E F A T C H A
0067160 R S E E N P \r
0067200 F A T P ) \r
0067220 [ C O N D \r
0067240 ( ( 006 002
0067260 L I T A T O M 006 001 S T R I N G
0067300 ) \r
0067320 ( S E T Q B A S E ( 006 002 f f
0067340 e t c h 006 001 ( 006 002 L I T A T O
0067360 M 006 001 P N A M E B A S E ) 006
0067400 002 o f 006 001 S T R I N G ) ) \r
0067420 ( S E
0067440 T Q O F F S T 1 ) \r
0067460 ( S E T Q
0067500 L E N ( 006 002 f f e t c h 006 001
0067520 ( 006 002 L I T A T O M 006 001 P N A
0067540 M E L E N G T H ) 006 002 o f 006 001
0067560 S T R I N G ) ) \r
0067600 ( S E T Q F A
0067620 T P ( S E T Q F A T C H A R
0067640 S E E N P ( 006 002 f f e t c h 006
0067660 001 ( 006 002 L I T A T O M 006 001 F
0067700 A T P N A M E P ) 006 002 o f 006 001
0067720 S T R I N G ) ) ) \r
0067740 ( S E T Q D
0067760 E S I R E D A T O M # ( \ L O
0070000 L O C S T R I N G ) ) ) \r
0070020 ( T [ S
0070040 E T Q B A S E ( 006 002 f f e t
0070060 c h 006 001 ( 006 002 S T R I N G P 006
0070100 001 B A S E ) 006 002 o f 006 001 (
0070120 S E T Q S T R I N G ( M K S
0070140 T R I N G S T R I N G ] \r
0070160 ( S
0070200 E T Q O F F S T ( 006 002 f f e
0070220 t c h 006 001 ( 006 002 S T R I N G P
0070240 006 001 O F F S T ) 006 002 o f 006 001
0070260 S T R I N G ) ) \r
0070300 ( S E T Q
0070320 L E N ( 006 002 f f e t c h 006 001
0070340 ( 006 002 S T R I N G P 006 001 L E N
0070360 G T H ) 006 002 o f 006 001 S T R I
0070400 N G ) ) \r
0070420 [ C O N D \r
0070440 ( (
0070460 S E T Q F A T P ( 006 002 f f e
0070500 t c h 006 001 ( 006 002 S T R I N G P
0070520 006 001 F A T S T R I N G P ) 006
0070540 002 o f 006 001 S T R I N G ) ) \r
0070560
0070600 ( S E T Q F A T C H A R
0070620 S E E N P ( 006 002 f o r 006 001 C
0070640 006 002 i n f a t s t r i n g 006 001
0070660 S T R I N G 006 002 w h e n 006 001
0070700 ( I G R E A T E R P C \ M
0070720 A X T H I N C H A R ) \r
0070740
*
0071000 006 002 d o 006 001 ( R E
0071020 T U R N T ] \r
0071040 ( O R ( I L E
0071060 Q L E N \ P N A M E L I M I
0071100 T ) \r
0071120 ( R E T U R N ] \r
0071140 ( S E T Q
0071160 F I R S T C H A R ( \ G E T B
0071200 A S E C H A R F A T P B A S
0071220 E O F F S T ) ) \r
0071240 ( S E T Q F I R S T B
0071260 Y T E ( L O G A N D F I R S
0071300 T C H A R 2 5 5 ) ) \r
0071320 ( C O M P U T E . A
0071340 T O M . H A S H B A S E O F
0071360 F S T L E N F I R S T B Y T
0071400 E F A T P ) \r
0071420 ( R E T U R N ( 006 002 f o r
0071440 006 001 P R O B E S 006 002 f r o m
0071460 006 001 1 006 002 u n t i l 006 001 (
0071500 E Q 0 ( S E T Q H A S H E
0071520 N T ( \ G E T B A S E \ A t
0071540 o m H a s h T a b l e H A S H
0071560 ) ) ) \r
0071600 006 002 d o 006 001
0071620 ( C O N D \r
0071640
0071660 ( [ C O N D \r
0071700
0071720 ( D E S I R E D A
0071740 T O M # ( E Q D E S I R E D
0071760 A T O M # ( S U B 1 H A S H
0072000 E N T ) ) ) \r
0072020
0072040 ( T ( A N D ( E
0072060 Q [ 006 002 f e t c h 006 001 ( P N
0072100 A M E B A S E P N A M E L E N
0072120 G T H ) \r
0072140
*
0072200 006 002 o f 006 001 ( S E T Q
0072220 P N B A S E ( 006 002 f e t c h 006
0072240 001 ( P N A M E I N D E X P N
0072260 A M E B A S E ) \r
0072300
*
0072360 006 002 o f 006 001
0072400 ( S U B 1 H A S H E N T ] \r
0072420
*
0072460 L E N ) \r
0072500
*
0072540 [ E Q F A T C H
0072560 A R S E E N P ( 006 002 f f e t c
0072600 h 006 001 ( 006 002 L I T A T O M 006 001
0072620 F A T P N A M E P ) \r
0072640
*
0072720 006 002 o f 006 001 ( \
0072740 A D D B A S E \ A T O M S P A
0072760 C E ( S U B 1 H A S H E N T
0073000 ] \r
0073020
0073040 ( C O N D \r
0073060
*
0073120 [ F A T C H A
0073140 R S E E N P 006 003 ( *
0073160 F A T C H A R S E E N P = T
0073200 n o w i m p l i e s t h a t
0073220 \r 006 001
0073240
*
0073320 006 003 b o t h t h e p r o b
0073340 e a n d t a r g e t a r e
0073360 f a t ) 006 001 \r
0073400
*
0073440 ( 006 002 f o r 006
0073460 001 B 1 006 002 f r o m 006 001 1
0073500 006 002 t o 006 001 L E N 006 002 a s 006
0073520 001 B 2 006 002 f r o m 006 001 O F
0073540 F S T \r
0073560
*
0073620 006 002 a l w a y s
0073640 006 001 006 003 ( * L o o p t
0073660 h r u t h e c h a r a c t e
0073700 r s i n t h e \r 006 001
0073720
*
0074000 006 003 p u t a
0074020 t i v e a t o m a n d t h
0074040 e e x i s t i n g P N A M E
0074060 , \r 006 001
0074100
*
0074160 006 003 t o s e e i f t h
0074200 e y ' r e t h e s a m e ) 006
0074220 001 \r
0074240
*
0074300 ( E Q
0074320 ( \ G E T B A S E F A T P N B
0074340 A S E B 1 ) \r
0074360
*
0074440 ( \ G E T B A S E F
0074460 A T B A S E B 2 ] \r
0074500
*
0074540 [ F A T P
0074560 006 003 ( * T h
0074600 e i n c o m i n g s t r i n
0074620 g i s f a t , b u t \r 006
0074640 001
0074660
*
0074720 006 003
0074740 t h e r e a r e n o f a t
0074760 c h a r a c t e r s i n t
0075000 h e \r 006 001
0075020
*
0075100 006 003 P N A M E . ) 006 001 \r
0075120
*
0075160 (
0075200 006 002 f o r 006 001 B 1 006 002 f r o
0075220 m 006 001 1 006 002 t o 006 001 L E N
0075240 006 002 a s 006 001 B 2 006 002 f r o
0075260 m 006 001 O F F S T \r
0075300
*
0075340 006 002 a
0075360 l w a y s 006 001 ( E Q ( \ G E
0075400 T B A S E T H I N P N B A S E
0075420 B 1 ) \r
0075440
*
0075520 ( \ G E T B A S E F A T
0075540 B A S E B 2 ] \r
0075560
*
0075620 ( T
0075640 006 003 ( * B o t h
0075660 t h e i n c o m i n g s t r
0075700 i n g o f c h a r s \r 006 001
0075720
*
0076000 006 003 a
0076020 n d t h e P N A M E a r e
0076040 t h i n . ) 006 001 \r
0076060
*
0076120 ( 006 002 f o r 006 001
0076140 B 1 006 002 f r o m 006 001 1 006 002
0076160 t o 006 001 L E N 006 002 a s 006 001
0076200 B 2 006 002 f r o m 006 001 O F F S
0076220 T \r
0076240
*
0076300 006 002 a l w a y s 006 001 ( E Q
0076320 ( \ G E T B A S E T H I N P
0076340 N B A S E B 1 ) \r
0076360
*
0076440 ( \ G E T B A S E T H
0076460 I N B A S E B 2 ] \r
0076500
0076520 ( R E T U R N
0076540 P R O B E S ) ) )
0076560 006 003 ( * D o
0076600 e s n ' t m a t c h , s o
0076620 r e p r o b e . \r 006 001
0076640
*
0076720 006 003 W a n t r
0076740 e p r o b e t o b e v a r
0076760 i a b l e , \r 006 001
0077000
*
0077060 006 003 p r e f e r a
0077100 b l y i n d e p e n d e n t
0077120 o f p r i m a r y \r 006 001
0077140
*
0077220 006 003 p r o
0077240 b e . ) 006 001 \r
0077260 (
0077300 S E T Q H A S H ( I P L U S
0077320 1 6 H A S H ( O R R E P R
0077340 O B E ( S E T Q R E P R O B
0077360 E ( A T O M . H A S H . R E P
0077400 R O B E H A S H \r
0077420
*
0077520 F I R
0077540 S T B Y T E ] ) \r ) \r \r \r \r 006 004
0077560 ( * ; " F o r M A K E I N
0077600 I T & T e l e R a i d " ) 006
0077620 001 \r \r ( D E F I N E Q \r \r ( 006 004
0077640 I N I T A T O M S 006 001 \r [ L
0077660 A M B D A N I L 006 003 006 001
0077700
*
0077740 006 003 (
0077760 * b v m : " 3 0 - S e p - 8
0100000 6 2 2 : 5 9 " ) 006 001 006 003 006 001 \r
0100020
*
0100100 006 003 ( * ; ; \r 006 001
0100120
*
0100160 006 003 " c a l l e d o n
0100200 l y u n d e r M A K E I N I
0100220 T t o i n i t i a l i z e
0100240 t h e m a k i n g o f a t
0100260 o m s " ) 006 001 \r ( C R E
0100300 A T E P A G E S \ A t o m H a
0100320 s h T a b l e \ A t o m H T p
0100340 a g e s ) \r ( S E T Q
0100360 \ S C R A T C H S T R I N G (
0100400 A L L O C S T R I N G \ P N A
0100420 M E L I M I T ) ) 006 003 006 001 \r
0100440
*
0100520 006 003 ( * ; " \ S C R A T C H
0100540 S T R I N G c r e a t e d i
0100560 n r e m o t e s p a c e s
0100600 i m p l y t o m a k e r e
0100620 n a m i n g s i m p l e .
0100640 C o u l d s m a s h i t t
0100660 o N I L i n s i d e i n i
0100700 t . s y s o u t " ) 006 001 \r
0100720 ( L E T ( ( B A S E ( 006 002
0100740 f f e t c h 006 001 ( 006 002 S T R I
0100760 N G P 006 001 B A S E ) 006 002 o f
0101000 006 001 \ S C R A T C H S T R I N
0101020 G ) ) \r ( O
0101040 F F S T ( 006 002 f f e t c h 006 001
0101060 ( 006 002 S T R I N G P 006 001 O F
0101100 F S T ) 006 002 o f 006 001 \ S C R
0101120 A T C H S T R I N G ) ) ) 006 003 (
0101140 * ( C R E A T E P A G E S \
0101160 P N C H A R S S P A C E 1 ) )
0101200 006 001 \r ( 006 002 C
0101220 O P Y A T O M 006 001 N I L )
0101240
*
0101300 006 003 ( * ; " N I L
0101320 i s a t o m 0 " ) 006 001 \r
0101340 ( 006 002 C O P Y A T
0101360 O M 006 001 ( Q U O T E N O B I
0101400 N D ) )
0101420 006
0101440 003 ( * ; " a t o m 1 " ) 006
0101460 001 \r
0101500
*
0101540 006
0101560 003 ( * ; ; \r 006 001
0101600
0101620 006 003 " N o w m a k
0101640 e t h e s i n g l e c h a
0101660 r a c t e r a t o m s - -
0101700 a l l t h i n c h a r s e
0101720 x c e p t t h e d i g i t s
0101740 " ) 006 001 \r ( 006
0101760 002 f o r 006 001 C 006 002 f r o m 006
0102000 001 0 006 002 t o 006 001 2 5 5 006
0102020 002 w h e n 006 001 ( O R ( I L E
0102040 S S P C ( C H A R C O D E
0102060 0 ) ) \r
0102100
0102120 ( I G R E
0102140 A T E R P C ( C H A R C O D
0102160 E 9 ) ) ) 006 002 d o 006 001 ( \
0102200 P U T B A S E B Y T E B A S E
0102220 O F F S T C ) \r
0102240
*
0102340 ( 006 002 \ M K A T O M 006 001 B A S
0102360 E O F F S T 1 ) ) \r
0102400 ( S E T Q \ O n e C
0102420 h a r A t o m B a s e ( \ A D
0102440 D B A S E \ A T O M S P A C E
0102460 2 ) ) 006 003 ( * ;
0102500 " = ( C H A R A C T E R 0 )
0102520 - - f o r F C H A R A C T
0102540 E R " ) 006 001 \r
0102560 ( 006 002 C O P Y A T O M 006 001 ( F
0102600 U N C T I O N \ E V A L F O R
0102620 M ) )
0102640 006 003 ( * ; "
0102660 a t o m 2 5 6 - 1 0 + 2 =
0102700 2 4 8 " ) 006 001 \r
0102720 ( 006 002 C O P Y A T O M 006 001 (
0102740 F U N C T I O N \ G C . H A N
0102760 D L E O V E R F L O W ) )
0103000 006 003 ( * ;
0103020 " a t o m 2 4 9 " ) 006 001 \r
0103040 ( 006 002 C O P Y A T
0103060 O M 006 001 ( F U N C T I O N \
0103100 D T E S T . U F N ) )
0103120 006
0103140 003 ( * ; " a t o m 2 5 0 "
0103160 ) 006 001 \r ( 006 002
0103200 C O P Y A T O M 006 001 ( F U N C
0103220 T I O N \ O V E R F L O W M A
0103240 K E N U M B E R ) )
0103260 006 003 ( * ; " a t o
0103300 m 2 5 1 " ) 006 001 \r
0103320 ( 006 002 C O P Y A T O M 006 001
0103340 ( F U N C T I O N \ M A K E
0103360 N U M B E R ) )
0103400 006 003 ( *
0103420 ; " a t o m 2 5 2 " ) 006 001 \r
0103440 ( 006 002 C O P Y
0103460 A T O M 006 001 ( F U N C T I O N
0103500 \ S E T G L O B A L . U F N )
0103520 )
0103540 006 003 ( * ; " a t o m 2 5
0103560 3 " ) 006 001 \r (
0103600 006 002 C O P Y A T O M 006 001 ( F U
0103620 N C T I O N \ S E T F V A R .
0103640 U F N ) )
0103660 006 003 ( * ; " a
0103700 t o m 2 5 4 " ) 006 001 \r
0103720 ( 006 002 C O P Y A T O M
0103740 006 001 ( F U N C T I O N \ G C
0103760 M A P T A B L E ) )
0104000 006 003 (
0104020 * ; " a t o m 2 5 5 " ) 006
0104040 001 \r ( 006 002 C O
0104060 P Y A T O M 006 001 ( F U N C T I
0104100 O N \ I N T E R P R E T E R )
0104120 )
0104140 006 003 ( * ; " a t o m
0104160 2 5 6 " ) 006 001 \r
0104200 ( O R ( E Q ( \ A T O M D
0104220 E F I N D E X ( F U N C T I O
0104240 N \ I N T E R P R E T E R ) )
0104260 \r
0104300 2 5 6 ) \r
0104320 ( H E L P ( F U N C T
0104340 I O N \ I N T E R P R E T E R
0104360 ) \r
0104400 " n o t a t o m
0104420 4 0 0 Q " ] ) \r \r ( 006 004 C O P Y
0104440 A T O M 006 001 \r [ L A M B D A
0104460 ( X ) 006 003 006 001
0104500
*
0104540 006 003 ( * b v m
0104560 : " 3 0 - S e p - 8 6 2 3 :
0104600 0 1 " ) 006 001 006 003 006 001 \r
0104620
*
0104660 006 003 (
0104700 * ; ; " t h i s f u n c t
0104720 i o n i s o n l y f o r
0104740 t h e u s e o f M A K E I
0104760 N I T , w h i c h p a s s e
0105000 s i t a l o c a l a t o
0105020 m t o b e t r a n s l a t
0105040 e d i n t o a n a t o m
0105060 i n t h e r e m o t e s y
0105100 s o u t . " ) 006 001 \r [ A
0105120 L L O C A L ( L E T ( ( P K
0105140 G ( S Y M B O L - P A C K A G
0105160 E X ) ) ) 006 003 006 001
0105200 006 003 ( * ; \r 006 001
0105220
0105240 006 003 " S Y M B
0105260 O L - P A C K A G E a n d *
0105300 I N T E R L I S P - P A C K A G
0105320 E * b o t h N I L i n n
0105340 o n - p a c k a g e w o r l d
0105360 " ) 006 001 \r
0105400 ( 006 002 i f 006 001 (
0105420 N E Q P K G * I N T E R L I
0105440 S P - P A C K A G E * ) \r
0105460
0105500 006 002 t h e n 006 001 006 003 006 001
0105520
0105540 006 003 ( * ; " K
0105560 l u d g e t i m e . W e
0105600 d o n ' t y e t h a v e t
0105620 h e m a c h i n e r y t o
0105640 c r e a t e p a c k a g e s
0105660 i n t h e i n i t . s y s o
0105700 u t , s o a n y t h i n g
0105720 t h a t i s n ' t a n I n
0105740 t e r l i s p s y m b o l h
0105760 a s t o b e t u r n e d
0106000 i n t o a f l a t - s p a c
0106020 e s y m b o l w i t h a p
0106040 p r o p r i a t e p r e f i x
0106060 " ) 006 001 \r
0106100
0106120 ( 006 002 i f 006 001 ( E Q P K G
0106140 * K E Y W O R D - P A C K A G E
0106160 * ) \r
0106200
0106220 006 002 t h e n 006 001 ( S E T Q
0106240 X ( C O N C A T " : " X
0106260 ) ) \r
0106300
0106320 006 002 e l s e i f 006 001 ( F I N D
0106340 - E X A C T - S Y M B O L X
0106360 * I N T E R L I S P - P A C K A
0106400 G E * ) \r
0106420
0106440 006 002 t h e n 006 001 006 003 006
0106460 001 006
0106500 003 ( * ; ; " S y m b o l i
0106520 s h o m e d s o m e w h e r
0106540 e e l s e b u t i s a c
0106560 c e s s i b l e i n I n t e
0106600 r l i s p p a c k a g e .
0106620 T h e s e a r e s y m b o l
0106640 s t h a t a r e g o i n g
0106660 t o g e t m o v e d f r
0106700 o m I L t o C L w h e n
0106720 t h e s y s o u t s t a r
0106740 t s u p , s o n o t r a
0106760 n s l a t i o n n e e d e d .
0107000 T h i s i s a m e s s
0107020 y t e s t , w h i c h i s
0107040 w h y w e t e s t f o r
0107060 I n t e r l i s p a n d k
0107100 e y w o r d p a c k a g e s
0107120 f i r s t . " ) 006 001 \r
0107140
0107160 006 002 e l s e i f
0107200 006 001 ( E Q P K G * L I S P
0107220 - P A C K A G E * ) \r
0107240
0107260 006 002 t h e n
0107300 006 001 006 003 006 001
0107320 006 003 ( * ; ; \r 006 001
0107340
*
0107400 006 003 " S y m
0107420 b o l l i v e s i n C L
0107440 a n d n o t a v a i l a b l
0107460 e i n I L , s o a d d
0107500 p r e f i x " ) 006 001 \r
0107520
0107540 (
0107560 S E T Q X ( C O N C A T "
0107600 C L : " X ) ) \r
0107620
0107640 006 002 e l s e i f 006 001
0107660 ( S T R I N G - E Q U A L (
0107700 P A C K A G E - N A M E P K G
0107720 ) \r
0107740
0107760 " S Y
0110000 S T E M " ) \r
0110020
0110040 006 002 t h e n 006 001 006
0110060 003 006 001
0110100 006 003 ( * ; ; " S Y S T E M
0110120 = S I p a c k a g e .
0110140 A l l i n t e r n a l f o r
0110160 n o w . " ) 006 001 \r
0110200
0110220 ( S
0110240 E T Q X ( C O N C A T " S
0110260 I : : " X ) ) \r
0110300
0110320 006 002 e l s e 006 001 (
0110340 H E L P " C a n o n l y t
0110360 r a n s l a t e s y m b o l s
0110400 i n I L , C L , S I a
0110420 n d k e y w o r d s " X ] \r
0110440 ( L E T ( ( N ( L O
0110460 C A L ( N C H A R S X ) ) )
0110500 \r ( B A S E
0110520 ( 006 002 f f e t c h 006 001 ( 006 002
0110540 S T R I N G P 006 001 B A S E )
0110560 006 002 o f 006 001 \ S C R A T C H S
0110600 T R I N G ) ) \r
0110620 ( O F F S T ( 006 002 f f e t
0110640 c h 006 001 ( 006 002 S T R I N G P 006
0110660 001 O F F S T ) 006 002 o f 006 001
0110700 \ S C R A T C H S T R I N G ) )
0110720 ) 006 003 006 001 \r
0110740
*
0111000 006 003 ( * ; "
0111020 \ S C R A T C H S T R I N G i
0111040 s i n i t i a l i z e d i n
0111060 I N I T A T O M S " ) 006 001 \r
0111100 [ 006 002 f o r 006 001
0111120 I 006 002 f r o m 006 001 1 006 002
0111140 t o 006 001 N 006 002 d o 006 001 ( \
0111160 P U T B A S E B Y T E B A S E
0111200 ( L O C A L ( I P L U S O
0111220 F F S T I - 1 ) ) \r
0111240
*
0111300 ( L O C A L ( N T H C H A
0111320 R C O D E X I ] \r
0111340 ( \ A T O M D E F I N D
0111360 E X ( 006 002 \ M K A T O M 006 001
0111400 B A S E O F F S T N ] ) \r \r
0111420 ( 006 004 U N C O P Y A T O M 006 001 \r
0111440 [ L A M B D A ( N ) 006 003 006
0111460 001
0111500
*
0111540 006 003 ( * b v m : " 2 2 - J
0111560 a n - 8 5 1 1 : 3 7 " ) 006 001 \r
0111600
*
0111660 006 003 (
0111700 * t h i s i s u s e d o
0111720 n l y b y R D S Y S t o
0111740 t u r n \r 006 001
0111760
*
0112040 006 003 a t o m n u m b
0112060 e r s i n t o n a m e s ) 006
0112100 001 \r ( P R O G ( ( A D
0112120 D R ( \ G E T B A S E P T R
0112140 ( \ A D D B A S E 2 \ P N P S
0112160 P A C E N ) \r
0112200
0112220 0 ) ) \r [
0112240 S T R ( O R C O P Y A T O M
0112260 S T R ( S E T Q C O P Y A T
0112300 O M S T R ( L O C A L ( A L
0112320 L O C S T R I N G \ P N A M E
0112340 L I M I T ] \r
0112360 L E N ) \r
0112400 ( S E T Q L E N ( \ G E T
0112420 B A S E B Y T E A D D R 0 )
0112440 ) \r [ 006 002 f
0112460 o r 006 001 I 006 002 f r o m 006 001
0112500 1 006 002 t o 006 001 L E N 006 002 d
0112520 o 006 001 ( L O C A L ( R P L S
0112540 T R I N G C O P Y A T O M S T
0112560 R I ( F C H A R A C T E R
0112600 ( \ G E T B A S E B Y T E A D
0112620 D R I ] \r
0112640 ( R E T U R N ( L O C A L (
0112660 S U B A T O M C O P Y A T O M
0112700 S T R 1 L E N ] ) \r ) \r ( D
0112720 E C L A R E : D O N T E V A L
0112740 @ L O A D D O C O P Y \r ) \r
0112760 \r \r \r 006 004 ( * ; " S e e \
0113000 P N A M E L I M I T c o m m e
0113020 n t b e l o w " ) 006 001 \r \r \r (
0113040 R P A Q Q 006 002 \ P N A M E L I
0113060 M I T 006 001 2 5 5 ) \r \r ( R P A
0113100 Q ? 006 002 \ P N A M E S . I N .
0113120 B L O C K S ? 006 001 ) \r ( D E F
0113140 I N E Q \r \r ( 006 004 \ D E F I N E
0113160 D P 006 001 \r [ L A M B D A (
0113200 A ) 006 003 006 001
0113220
*
0113260 006 003 ( * e d i t e
0113300 d : " 3 - A p r - 8 5 1 9
0113320 : 4 5 " ) 006 001 \r ( A N D
0113340 ( 006 002 L I T A T O M 006 001 A )
0113360 \r ( 006 002 f e t
0113400 c h 006 001 ( 006 002 L I T A T O M 006
0113420 001 D E F P O I N T E R ) 006 002
0113440 o f 006 001 A ) \r
0113460 T ] ) \r \r ( 006 004 P U T D 006 001 \r
0113500 [ L A M B D A ( F N D E
0113520 F F L G ) 006 003 006 001
0113540
*
0113600 006 003 ( * b v m : " 7 - J
0113620 u l - 8 6 1 7 : 0 6 " ) 006 001 \r
0113640 ( P R O G 1 D E F [
0113660 C O N D \r
0113700 ( ( A N D ( N U
0113720 L L F L G ) \r
0113740
0113760 ( T Y P E P D E F ( Q U O T
0114000 E C O M P I L E D - C L O S U
0114020 R E ) ) \r
0114040 ( N E
0114060 Q ( 006 002 f e t c h 006 001 ( C O
0114100 M P I L E D - C L O S U R E F
0114120 R A M E N A M E ) 006 002 o f 006 001
0114140 D E F ) \r
0114160
0114200 F N ) )
0114220
0114240 006 003 ( * D e f i n i t i
0114260 o n b e i n g s t o r e d
0114300 h a s a \r 006 001
0114320
*
0114400 006 003 d i f f e r e n
0114420 t f r a m e n a m e , s o
0114440 f i x i t ) 006 001 \r
0114460 ( S
0114500 E T Q D E F ( \ R E N A M E
0114520 D F N D E F F N ] \r
0114540 ( 006 002 \ P U T D 006
0114560 001 F N D E F ] ) \r \r ( 006 004 \
0114600 P U T D 006 001 \r [ L A M B D A
0114620 ( F N D E F ) 006 003 006 001
0114640
*
0114700 006 003 ( * b v m
0114720 : " 8 - J u l - 8 6 1 6 :
0114740 3 4 " ) 006 001 \r ( L E T
0114760 ( ( D C E L L ( 006 002 f e t c h
0115000 006 001 ( 006 002 L I T A T O M 006 001
0115020 D E F I N I T I O N C E L L )
0115040 006 002 o f 006 001 F N ) ) ) \r
0115060 ( U N I N T E R R U
0115100 P T A B L Y \r
0115120 ( P R O G ( ( D V A L
0115140 D E F ) \r
0115160 C O D E B A
0115200 S E ) \r
0115220 ( C O N D \r
0115240
0115260 [ ( T Y P E P D V A L
0115300 ( Q U O T E C O M P I L E D -
0115320 C L O S U R E ) ) \r
0115340
0115360 ( S E T Q C O D E B A S E
0115400 ( 006 002 f e t c h 006 001 ( C O M P
0115420 I L E D - C L O S U R E F N H
0115440 E A D E R ) 006 002 o f 006 001 D V
0115460 A L ) ) \r
0115500 ( 006 002 r
0115520 e p l a c e 006 001 ( D E F I N I
0115540 T I O N C E L L P S E U D O C
0115560 O D E P ) 006 002 o f 006 001 D C E
0115600 L L 006 002 w i t h 006 001 N I L )
0115620 \r
0115640 ( C O N D \r
0115660
0115700 ( ( 006 002 f e t c
0115720 h 006 001 ( C O M P I L E D - C L
0115740 O S U R E E N V I R O N M E N
0115760 T ) 006 002 o f 006 001 D V A L ) \r
0116000
*
0116060 006 003 (
0116100 * F u l l c l o s u r e ,
0116120 h a v e t o s t o r e i t
0116140 a s \r 006 001
0116160
*
0116240 006 003 n o n - c c o d e p
0116260 ) 006 001 \r
0116300 (
0116320 006 002 r e p l a c e 006 001 C C O D
0116340 E P 006 002 o f 006 001 D C E L L
0116360 006 002 w i t h 006 001 N I L ) \r
0116400
0116420 ( G O C L O
0116440 S U R E ) ) \r
0116460
0116500 ( T
0116520
0116540 006 003 ( * S t r i p o
0116560 u t c o d e b a s e ) 006 001 \r
0116600
0116620 ( S E
0116640 T Q D V A L C O D E B A S E
0116660 ] \r
0116700 ( ( A N D ( 006
0116720 002 A R R A Y P 006 001 D V A L ) \r
0116740
0116760 ( E Q
0117000 ( 006 002 f e t c h 006 001 ( 006 002 A R
0117020 R A Y P 006 001 T Y P ) 006 002 o f
0117040 006 001 D V A L ) \r
0117060
0117100 \ S T . C O D
0117120 E ) )
0117140 006 003 ( * C o d e
0117160 a r r a y - - o n l y f r
0117200 o m t h e c o d e \r 006 001
0117220
*
0117300 006 003 r e
0117320 a d e r o r c o m p i l e r
0117340 ) 006 001 \r
0117360 ( S E T Q
0117400 C O D E B A S E ( S E T Q
0117420 D V A L ( 006 002 f e t c h 006 001
0117440 ( 006 002 A R R A Y P 006 001 B A S E
0117460 ) 006 002 o f 006 001 D V A L ) ) )
0117500 \r
0117520 ( 006 002 r e p l a
0117540 c e 006 001 ( D E F I N I T I O N
0117560 C E L L P S E U D O C O D E P
0117600 ) 006 002 o f 006 001 D C E L L 006
0117620 002 w i t h 006 001 N I L ) ) \r
0117640
0117660 ( ( A N D C O M P I L
0117700 E A T P U T D F L G ( 006 002 L I
0117720 S T P 006 001 D V A L ) ) \r
0117740
0117760 [ S E T Q D V A L (
0120000 S E T Q C O D E B A S E ( O
0120020 R ( \ M A K E P S E U D O C O
0120040 D E D V A L F N ) \r
0120060
*
0120140 ( G O E X P R ] \r
0120160
0120200 ( 006 002 r e p l a c e 006 001 (
0120220 D E F I N I T I O N C E L L P
0120240 S E U D O C O D E P ) 006 002 o f
0120260 006 001 D C E L L 006 002 w i t h 006
0120300 001 T ) ) \r
0120320 ( T (
0120340 G O E X P R ) ) ) \r
0120360 C O D E \r
0120400
0120420 ( 006 002 r e p l a c e 006 001 (
0120440 D E F I N I T I O N C E L L C
0120460 C O D E P ) 006 002 o f 006 001 D C
0120500 E L L 006 002 w i t h 006 001 T ) \r
0120520 C
0120540 L O S U R E \r
0120560 ( 006 002 r e p
0120600 l a c e 006 001 ( D E F I N I T I
0120620 O N C E L L A R G T Y P E )
0120640 006 002 o f 006 001 D C E L L 006 002 w
0120660 i t h 006 001 ( 006 002 f e t c h 006 001
0120700 ( F N H E A D E R A R G T Y
0120720 P E ) \r
0120740
*
0121020 006 002 o f 006 001
0121040 C O D E B A S E ) ) \r
0121060 (
0121100 006 002 r e p l a c e 006 001 ( D E F
0121120 I N I T I O N C E L L F A S T
0121140 P ) 006 002 o f 006 001 D C E L L
0121160 006 002 w i t h 006 001 ( E Q 0 (
0121200 006 002 f e t c h 006 001 ( F N H E A
0121220 D E R N T S I Z E ) \r
0121240
*
0121340 006 002 o f 006 001 C O D
0121360 E B A S E ) ) ) \r
0121400 ( 006 002 r
0121420 e p l a c e 006 001 ( D E F I N I
0121440 T I O N C E L L D E F P O I N
0121460 T E R ) 006 002 o f 006 001 D C E L
0121500 L 006 002 w i t h 006 001 D V A L )
0121520 \r
0121540 ( R E T U R N D E F )
0121560 \r
0121600 E X P R \r
0121620 ( 006 002 r e p l a
0121640 c e 006 001 ( D E F I N I T I O N
0121660 C E L L D E F C E L L F L A G
0121700 S ) 006 002 o f 006 001 D C E L L
0121720 006 002 w i t h 006 001 0 ) \r
0121740 (
0121760 006 002 r e p l a c e 006 001 ( D E F
0122000 I N I T I O N C E L L D E F P
0122020 O I N T E R ) 006 002 o f 006 001 D
0122040 C E L L 006 002 w i t h 006 001 D V
0122060 A L ) \r
0122100 ( R E T U R N D
0122120 E F ) ) ) ] ) \r \r ( 006 004 G E T D
0122140 006 001 \r [ L A M B D A ( A )
0122160 006 003 006 001
0122200
*
0122240 006 003 ( * b v m : "
0122260 7 - J u l - 8 6 1 6 : 4 6 " )
0122300 006 001 \r ( C O N D \r
0122320 ( ( 006 002 L I T A T O M 006
0122340 001 A ) \r ( L E
0122360 T ( ( A ( 006 002 f e t c h 006 001
0122400 ( 006 002 L I T A T O M 006 001 D E
0122420 F I N I T I O N C E L L ) 006 002
0122440 o f 006 001 A ) ) ) \r
0122460 ( C O N D \r
0122500 ( ( N
0122520 O T ( 006 002 f e t c h 006 001 ( D
0122540 E F I N I T I O N C E L L C C
0122560 O D E P ) 006 002 o f 006 001 A ) )
0122600 \r
0122620 ( 006 002 f e t c h 006 001 ( D E
0122640 F I N I T I O N C E L L D E F
0122660 P O I N T E R ) 006 002 o f 006 001
0122700 A ) ) \r
0122720 ( ( 006 002 f e t c h 006 001
0122740 ( D E F I N I T I O N C E L L
0122760 P S E U D O C O D E P ) 006 002 o
0123000 f 006 001 A ) \r
0123020 ( \ P S E U D O
0123040 C O D E . R E A L D E F ( 006 002
0123060 f e t c h 006 001 ( D E F I N I T
0123100 I O N C E L L D E F P O I N T
0123120 E R ) 006 002 o f 006 001 A ) ) ) \r
0123140
0123160 ( T ( 006 002 c r e a t e 006 001 C
0123200 O M P I L E D - C L O S U R E \r
0123220
0123240 F N H E A D
0123260 E R _ ( 006 002 f e t c h 006 001
0123300 ( D E F I N I T I O N C E L L
0123320 D E F P O I N T E R ) 006 002 o f
0123340 006 001 A ] ) \r \r ( 006 004 P U T D E
0123360 F N 006 001 \r [ L A M B D A (
0123400 F N C A S I Z E ) 006 003 006 001
0123420
*
0123460 006 003 ( * e d i t e
0123500 d : " 3 - A p r - 8 5 1 9
0123520 : 5 5 " ) 006 001 \r
0123540
*
0123620 006 003 ( * s p e c i a
0123640 l v e r s i o n o f P U T
0123660 D t h a t r u n s \r 006 001
0123700
*
0123760 006 003 o n
0124000 l y a t M A K E I N I T t
0124020 i m e ) 006 001 \r ( P R O G
0124040 ( ( D C E L L ( 006 002 f e t c
0124060 h 006 001 ( 006 002 L I T A T O M 006 001
0124100 D E F I N I T I O N C E L L )
0124120 006 002 o f 006 001 F N ) ) \r
0124140 [ B L O C K I N
0124160 F O ( P R O G N \r
0124200 \r
0124220 006 003 ( * R e s e r v e e n o
0124240 u g h s p a c e . F I L E C
0124260 O D E B L O C K l e a v e s
0124300 f i l e p o i n t i n g a t
0124320 f i r s t d a t a w o r d
0124340 , \r 006 001 006
0124360 003 s o B A S E i s s e t
0124400 t o t h a t b e l o w . B
0124420 L O C K I N F O i s u s e d
0124440 f o r s e t t i n g b l o
0124460 c k t r a i l e r . ) 006 001 \r \r
0124500
0124520 ( F I
0124540 L E C O D E B L O C K ( F O L
0124560 D H I S I Z E B Y T E S P E
0124600 R C E L L ) \r
0124620
0124640 ( 006 002 f e
0124660 t c h 006 001 ( C O D E A R R A Y
0124700 A L I G N E D ) 006 002 o f 006 001
0124720 C A ] \r
0124740 ( B A S E ( F I L E A R R A Y
0124760 B A S E ) ) ) \r
0125000 ( 006 002 r e p l a c e 006 001 (
0125020 D E F I N I T I O N C E L L D
0125040 E F P O I N T E R ) 006 002 o f 006
0125060 001 D C E L L 006 002 w i t h 006 001
0125100 B A S E ) \r
0125120 ( 006 002 r e p l a c e 006 001 ( D
0125140 E F I N I T I O N C E L L A R
0125160 G T Y P E ) 006 002 o f 006 001 D C
0125200 E L L 006 002 w i t h 006 001 ( 006 002
0125220 f e t c h 006 001 ( C O D E A R R
0125240 A Y A R G T Y P E ) 006 002 o f
0125260 006 001 C A ) ) \r
0125300 ( 006 002 r e p l a c e 006 001 (
0125320 D E F I N I T I O N C E L L F
0125340 A S T P ) 006 002 o f 006 001 D C E
0125360 L L 006 002 w i t h 006 001 ( E Q
0125400 ( 006 002 f e t c h 006 001 ( C O D E
0125420 A R R A Y N T S I Z E ) 006 002
0125440 o f 006 001 C A ) \r
0125460
*
0125540 0 ) ) \r
0125560 ( 006 002 r e p l a c e 006 001
0125600 ( D E F I N I T I O N C E L L
0125620 C C O D E P ) 006 002 o f 006 001 D
0125640 C E L L 006 002 w i t h 006 001 T )
0125660 \r ( 006 002 r e
0125700 p l a c e 006 001 ( D E F I N I T
0125720 I O N C E L L P S E U D O C O
0125740 D E P ) 006 002 o f 006 001 D C E L
0125760 L 006 002 w i t h 006 001 N I L ) \r
0126000 [ C O N D \r
0126020 ( ( F
0126040 M E M B F N L O C K E D F N
0126060 S ) \r
0126100 ( \ L O C K C E L L D C E L
0126120 L 1 ) \r
0126140 ( \ L O C K C E L L B A
0126160 S E ( F O L D H I ( I P L U
0126200 S ( 006 002 f e t c h 006 001 ( P O
0126220 I N T E R W O R D I N P A G E
0126240 ) 006 002 o f 006 001 B A S E ) \r
0126260
*
0126320 ( F O L
0126340 D H I S I Z E B Y T E S P E
0126360 R W O R D ) ) \r
0126400
0126420 W O R
0126440 D S P E R P A G E ] \r
0126460 [ C O N D \r
0126500 ( ( E Q F N
0126520 ( L O C A L ( F U N C T I O N
0126540 \ R E S E T S T A C K ) ) )
0126560 006 003 ( * s p e
0126600 c i a l k l u d g e t o r
0126620 e m e m b e r w h e r e \r 006
0126640 001
0126660
*
0126720 006 003
0126740 \ R E S E T S T A C K i s i
0126760 n t h e M A K E I N I T ) 006
0127000 001 \r
0127020 ( S E T Q R E S E T P T R (
0127040 F I L E A R R A Y B A S E ) ) \r
0127060 ( S
0127100 E T Q R E S E T P C ( 006 002 f
0127120 e t c h 006 001 ( C O D E A R R A
0127140 Y S T A R T P C ) 006 002 o f 006
0127160 001 C A ] \r
0127200 ( A O U T C A 0 S I Z E
0127220 O U T X ( Q U O T E C O D E
0127240 ) ) \r ( B O
0127260 U T Z E R O S ( M O D U P S
0127300 I Z E B Y T E S P E R C E L L
0127320 ) ) \r ( F I
0127340 L E B L O C K T R A I L E R B
0127360 L O C K I N F O ] ) \r \r ( 006 004 G
0127400 E T D E F N 006 001 \r [ L A M B
0127420 D A ( A ) 006 003 006 001
0127440
*
0127500 006 003 ( * l
0127520 m m " 2 0 - A U G - 8 1 1 2
0127540 : 1 7 " ) 006 001 \r ( 006 002 f
0127560 e t c h 006 001 ( 006 002 L I T A T O
0127600 M 006 001 D E F P O I N T E R )
0127620 006 002 o f 006 001 A ] ) \r ) \r \r ( R
0127640 P A Q Q 006 002 C O M P I L E A T
0127660 P U T D F L G 006 001 N I L ) \r \r
0127700 ( R P A Q ? 006 002 * P A C K A G
0127720 E - F R O M - I N D E X * 006 001
0127740 ) \r ( D E C L A R E : D O N T
0127760 C O P Y \r ( * F O L L O W I
0130000 N G D E F I N I T I O N S E
0130020 X P O R T E D ) \r \r \r [ D E C L
0130040 A R E : E V A L @ C O M P I L
0130060 E \r \r ( A C C E S S F N S 006
0130100 002 L I T A T O M 006 001 ( ( D E F
0130120 I N I T I O N C E L L ( \ D E
0130140 F C E L L D A T U M ) ) \r
0130160
0130200 ( P R O P C E L L ( \ P R
0130220 O P C E L L D A T U M ) ) \r
0130240
0130260 ( V C E L L ( \ V A L C
0130300 E L L D A T U M ) ) \r
0130320
0130340 ( P N A M E C E L L ( \ P N A
0130360 M E C E L L D A T U M ) ) ) \r
0130400 \r
0130420 006 003 ( * * V C E L
0130440 L c a n a l s o b e a c
0130460 c e s s e d d i r e c t l y
0130500 f r o m a v a l u e i n d
0130520 e x v i a t h e r e c o r
0130540 d \r 006 001 006
0130560 003 V A L I N D E X ( a s i n
0130600 \ S E T G L O B A L V A L . U
0130620 F N ) - \r 006 001
0130640 006 003 S i m i l a r l y , P
0130660 N A M E I N D E X a c c e s s
0130700 e s P N A M E C E L L f o r
0130720 u s e b y \ M K A T O M
0130740 a n d U N C O P Y A T O M ) 006
0130760 001 \r \r
0131000 ( 006 002 T Y P E ? 006 001
0131020 ( L I T A T O M D A T U M )
0131040 ) \r
0131060 ( B L O C K R E C O R
0131100 D P R O P C E L L ( ( N I L
0131120 B I T S 1 ) \r
0131140
*
0131200 ( G E N S Y M P F L A G
0131220 ) \r
0131240
0131260 ( F A T
0131300 P N A M E P F L A G ) \r
0131320
*
0131360 ( N I L B I T S
0131400 5 ) \r
0131420
0131440 ( P
0131460 R O P L I S T P O I N T E R )
0131500 ) ) ) \r \r ( S Y N O N Y M 006 002
0131520 S Y M B O L 006 001 ( L I T A T O
0131540 M ) ) \r \r ( A C C E S S F N S
0131560 006 002 V A L I N D E X 006 001 ( ( V
0131600 C E L L ( \ A D D B A S E 2
0131620 \ V A L S P A C E D A T U M )
0131640 ) ) ) \r \r ( B L O C K R E C O R
0131660 D 006 002 V C E L L 006 001 ( ( V A
0131700 L U E F U L L P O I N T E R )
0131720 ) ) \r \r ( B L O C K R E C O R D
0131740 006 002 D E F I N I T I O N C E L
0131760 L 006 001 ( ( C C O D E P F L A
0132000 G ) \r
0132020
0132040 ( F A S T P F L A G ) \r
0132060
0132100 ( A R G T Y
0132120 P E B I T S 2 ) \r
0132140
0132160 ( P S E U D O C
0132200 O D E P F L A G ) \r
0132220
0132240 ( N I L B I T
0132260 S 3 ) \r
0132300
0132320 ( D E F P O I N T E R P O
0132340 I N T E R ) ) \r
0132360
0132400 ( B L O C K R E C O R D
0132420 D E F I N I T I O N C E L L
0132440 ( ( D E F C E L L F L A G S B
0132460 Y T E ) \r
0132500
*
0132540 ( N
0132560 I L P O I N T E R ) ) ) ) \r \r
0132600 ( B L O C K R E C O R D 006 002 F
0132620 N H E A D E R 006 001 ( ( S T K M
0132640 I N W O R D ) \r
0132660
0132700 ( N A S I G N E D W O R D ) \r
0132720
0132740 ( P V S I G N E
0132760 D W O R D ) \r
0133000 ( S
0133020 T A R T P C W O R D ) \r
0133040
0133060 ( N I L F L A G ) \r
0133100
0133120 ( N I L F L A G )
0133140 \r
0133160 ( A R G T Y P E
0133200 B I T S 2 ) \r
0133220
0133240 ( N I L B I T S 3 ) \r
0133260
0133300 ( C L O S U R E P F L
0133320 A G ) \r
0133340 ( # F R A
0133360 M E N A M E X P O I N T E R )
0133400 \r
0133420 ( N T S I Z E
0133440 W O R D ) \r
0133460 ( N L
0133500 O C A L S B Y T E ) \r
0133520
0133540 ( F V A R O F F S E T B
0133560 Y T E ) ) \r
0133600 [ A C C
0133620 E S S F N S \r
0133640 F N
0133660 H E A D E R \r
0133700 ( (
0133720 L S T A R P ( I L E S S P (
0133740 006 002 f e t c h 006 001 ( F N H E A
0133760 D E R N A ) 006 002 o f 006 001 D
0134000 A T U M ) \r
0134020
0134040 0 ) )
0134060 \r
0134100 ( O V E R H E
0134120 A D W O R D S ( P R O G N 8
0134140 ) ) \r
0134160 ( A L I G
0134200 N E D ( I P L U S ( 006 002 f e
0134220 t c h 006 001 ( F N H E A D E R
0134240 N T S I Z E ) 006 002 o f 006 001 D
0134260 A T U M ) \r
0134300
0134320 ( 006
0134340 002 f e t c h 006 001 ( F N H E A D
0134360 E R O V E R H E A D W O R D S
0134400 ) 006 002 o f 006 001 T ) ) ) \r
0134420
0134440 ( F I X E D N I L
0134460 ( 006 002 r e p l a c e 006 001 ( F
0134500 N H E A D E R S T K M I N )
0134520 006 002 o f 006 001 D A T U M \r
0134540
*
0134600 006 002 w i t h 006 001 ( I P L
0134620 U S ( U N F O L D ( I P L U
0134640 S ( 006 002 f e t c h 006 001 ( F N
0134660 H E A D E R N A ) 006 002 o f 006
0134700 001 D A T U M ) \r
0134720
*
0135000 ( U N F O L
0135020 D ( A D D 1 ( 006 002 f e t c h
0135040 006 001 ( F N H E A D E R \r
0135060
*
0135200 P V ) \r
0135220
*
0135320 006 002 o f 006 001
0135340 D A T U M ) ) \r
0135360
*
0135460 C E L L S P E R Q U A D ) ) \r
0135500
*
0135560 W O R D S P E
0135600 R C E L L ) \r
0135620
*
0135660 1 2 3 2 ) )
0135700 ) \r
0135720 ( N P V A R
0135740 W O R D S ( U N F O L D ( A
0135760 D D 1 ( 006 002 f e t c h 006 001 (
0136000 F N H E A D E R P V ) 006 002 o
0136020 f 006 001 D A T U M ) ) \r
0136040
*
0136100 W O R D S P E R Q
0136120 U A D ) ) \r
0136140 ( F
0136160 R A M E N A M E ( 006 002 f e t c
0136200 h 006 001 ( F N H E A D E R # F
0136220 R A M E N A M E ) 006 002 o f 006 001
0136240 D A T U M ) \r
0136260
0136300 ( U N I N T E R R
0136320 U P T A B L Y \r
0136340
0136360 ( C H E C
0136400 K ( N E Q ( \ H I L O C D
0136420 A T U M ) \r
0136440
*
0136500 \ S T A C K H I ) ) \r
0136520
*
0136560 ( \ D E L R E F ( 006 002 f
0136600 e t c h 006 001 ( F N H E A D E R
0136620 # F R A M E N A M E ) 006 002 o
0136640 f 006 001 D A T U M ) ) \r
0136660
0136700 (
0136720 \ A D D R E F N E W V A L U E
0136740 ) \r
0136760
0137000 ( 006 002 r e p l a c e 006
0137020 001 ( F N H E A D E R # F R A
0137040 M E N A M E ) 006 002 o f 006 001 D
0137060 A T U M 006 002 w i t h 006 001 N E
0137100 W V A L U E ) ) ] ) \r \r ( B L O
0137120 C K R E C O R D 006 002 P N A M E
0137140 C E L L 006 001 ( ( P A C K A G E
0137160 I N D E X B Y T E ) \r
0137200
0137220 ( P N A M E B A S E X
0137240 P O I N T E R ) ) \r
0137260
0137300 ( B L O C K R E C O R D P N
0137320 A M E C E L L ( ( F U L L P N
0137340 A M E B A S E F U L L X P O I
0137360 N T E R ) \r
0137400
*
0137460 006 003 ( * \r 006 001
0137500
*
0137560 006 003 " R e p l a c i
0137600 n g t h i s s m a s h e s
0137620 P A C K A G E I N D E X t o
0137640 0 " ) 006 001 \r
0137660
*
0137720 ) ) \r
0137740 [
0137760 A C C E S S F N S P N A M E C
0140000 E L L ( ( P A C K A G E ( A
0140020 R E F * P A C K A G E - F R O
0140040 M - I N D E X * ( 006 002 F E T C
0140060 H 006 001 ( P N A M E C E L L \r
0140100
*
0140220 P A C K A G E I
0140240 N D E X \r
0140260
*
0140360 ) \r
0140400
*
0140520 006 002 O F 006 001 D A T U M
0140540 ) ) \r
0140560
*
0140620 ( 006 002 R E P L A C
0140640 E 006 001 ( P N A M E C E L L P
0140660 A C K A G E I N D E X ) 006 002 O
0140700 F 006 001 D A T U M \r
0140720
*
0141000 006 002 W I T H 006 001 ( 006 002 I F 006
0141020 001 ( N U L L N E W V A L U E
0141040 ) \r
0141060
*
0141140 006 002 T H E N 006 001 * U N I N
0141160 T E R N E D - P A C K A G E - I
0141200 N D E X * \r
0141220
*
0141300 006 002 E L S E 006 001 ( P A
0141320 C K A G E - I N D E X N E W V
0141340 A L U E ] ) \r \r ( A C C E S S F
0141360 N S 006 002 P A C K A G E I N D E
0141400 X 006 001 ( ( P A C K A G E ( A
0141420 R E F * P A C K A G E - F R O
0141440 M - I N D E X * D A T U M ) )
0141460 ) ) \r \r ( B L O C K R E C O R D
0141500 006 002 P N A M E B A S E 006 001 (
0141520