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