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