$ od -c -N 50000 [eris]<LispCore>SOURCES>LLNEW.DCOM!14
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 ( f i l e c r
0000100 e a t e d " 1 7 - O c t - 8 6
0000120 1 2 : 4 5 : 5 7 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > l l n e w . \ ; 1 3 ) \r
0000220 " 1 4 - O c t - 8 6 2 1 : 0 6
0000240 : 0 5 " | r e c o m p i l e d
0000260 | | c h a n g e s : | m a k
0000300 e i n i t l a s t | i n | "
0000320 X e r o x L i s p 1 4 - O c
0000340 t - 8 6 . . . " | d a t e d
0000360 | \r " 1 4 - O c t - 8 6 2 2
0000400 : 2 4 : 4 7 " ) \r ( f i l e c r
0000420 e a t e d " 1 7 - O c t - 8 6
0000440 1 2 : 4 5 : 0 3 " { e r i s
0000460 } < l i s p c o r e > s o u r c
0000500 e s > l l n e w . \ ; 1 3 5 6
0000520 8 6 8 | c h a n g e s | | t
0000540 o : | ( f n s \r m a k e i n
0000560 i t l a s t ) ( v a r s l l
0000600 n e w c o m s ) | p r e v i o
0000620 u s | | d a t e : | " 8 -
0000640 S e p - 8 6 1 4 : 4 0 : 0 1 "
0000660 \r { e r i s } < l i s p c o r
0000700 e > s o u r c e s > l l n e w .
0000720 \ ; 1 1 ) \r \ \ a d d b a s e
0000740 d 1 \r ( l ( 1 d 0 x ) )
0000760 \0 216 004 \0 \0 002 @ 322 @ 323 021 " 003 A 004
0001000 d l 002 360 231 277 A 310 \0 272 A 310 001 260 032 d
0001020 k 360 262 0 277 j A 361 221 h 200 i 223 j 272 A
0001040 205 n 377 377 272 A 323 273 I d n 377 377 K 331 361
0001060 262 ; 277 H k 324 270 I n 377 377 K 331 331 k 331
0001100 260 - l 003 360 227 A \t \0 \0 b 002 260 263 A d
0001120 303 \0 \0 235 277 A o \0 \0 \0 i \v \0 \0 b 002
0001140 260 237 l \n \n \0 \0 b 002 260 226 K 324 271 J n
0001160 177 377 361 231 H n 377 377 J 331 331 k 331 202 H J
0001200 324 I 321 020 \0 ( 1 1 1 \ \ l i s p
0001220 e r r o r 1 0 2 \ \ l i s p
0001240 e r r o r 8 2 \ \ f i x p .
0001260 f r o m . f l o a t p ) \r ( 9 1
0001300 b i g n u m ) \r ( 9 8 " A
0001320 R G N O T F I X P " ) \r \ \
0001340 g e t b a s e d 1 \r ( l ( 1
0001360 d 0 x ) ) \0 \a \0 \0 \0 002 @
0001400 A 320 310 \0 020 \0 n i l \r n i l \r ( )
0001420 \r \ \ p u t b a s e d 1 \r ( l
0001440 ( 2 v 1 d 0 x ) )
0001460 \0 ! 002 \0 \0 003 @ A 320 B d 005 001 233 277 j
0001500 B 361 221 h 200 i 221 B 203 B \t \0 \0 021 002 001
0001520 H I 315 \0 I 020 \0 ( 2 2 \ \ i l l
0001540 e g a l . a r g ) \r n i l \r ( )
0001560 \r \ \ p u t b a s e . u f n d
0001600 1 \r ( l ( 2 d 1 v 0
0001620 x ) ) \0 ! 002 \0 \0 003 @ B 320 A d 005
0001640 001 233 277 j A 361 221 h 200 i 221 A 203 A \t \0
0001660 \0 021 002 001 H I 315 \0 I 020 \0 ( 2 2 \
0001700 \ i l l e g a l . a r g ) \r n i
0001720 l \r ( ) \r \ \ p u t b a s e p t
0001740 r . u f n d 1 \r ( l ( 2 d
0001760 1 v 0 x ) ) \0 021 \0 \0 \0
0002000 003 @ B 320 A 322 315 \0 @ B 320 A 323 315 001 A
0002020 020 \0 n i l \r n i l \r ( ) \r \ \ p
0002040 u t b i t s . u f n d 1 \r ( l
0002060 ( 2 n . f d 1 v 0 x
0002100 ) ) \0 R 005 \0 \0 003 A d 005 001 233 277 j
0002120 A 361 221 h 200 i 221 A 203 A \t \0 \0 B l 017
0002140 345 k 330 B l 377 345 342 342 342 342 021 # 004 l 020
0002160 J I 330 331 \ k I \n \0 \0 k 331 [ @ B 343
0002200 320 d 310 \0 K L \n \0 \0 n 377 377 346 345 H K
0002220 345 L \n \0 \0 344 315 \0 H 020 \0 ( 7 5 l
0002240 l s h 6 3 l l s h 4 8 l
0002260 l s h 1 9 \ \ i l l e g a l
0002300 . a r g ) \r n i l \r ( ) \r \ \ g
0002320 e t b a s e b y t e d 1 \r ( l
0002340 ( 1 n 0 p t r ) ) \0 031
0002360 \0 \0 \0 002 A k 345 j 360 227 @ A 342 320 310 \0
0002400 343 020 @ A 342 320 310 \0 l 377 345 020 \0 n i l
0002420 \r n i l \r ( ) \r \ \ p u t b a s
0002440 e b y t e d 1 \r ( l ( 2 b
0002460 y t e 1 d i s p 0 p t r
0002500 ) ) \0 N 001 \0 \0 003 B d 005 001 262 024 277
0002520 j B 361 221 h 200 i 227 n 001 \0 B 361 221 B 203
0002540 B \t \0 \0 b 004 @ A 006 \0 \0 b 002 342 320 A
0002560 k 345 j 360 262 024 @ A 342 320 310 \0 021 001 \0 B
0002600 341 H l 377 345 330 022 211 @ A 342 320 310 \0 343 341
0002620 B 330 315 \0 B 020 \0 ( 2 6 \ \ i l l
0002640 e g a l . a r g ) \r ( 3 3 s m
0002660 a l l p ) \r ( ) \r \ \ g e t b a
0002700 s e p t r d 1 \r ( l ( 1 d
0002720 0 x ) ) \0 020 \0 \0 \0 002 @ A 320
0002740 310 \0 l 377 345 @ A 320 310 001 321 020 \0 n i l
0002760 \r n i l \r ( ) \r \ \ p u t b a s
0003000 e p t r d 1 \r ( l ( 2 v
0003020 1 d 0 x ) ) \0 021 \0 \0 \0 003
0003040 @ A 320 B 322 315 \0 @ A 320 B 323 315 001 B 020
0003060 \0 n i l \r n i l \r ( ) \r \ \ h i
0003100 l o c d 1 \r ( l ( 0 x ) )
0003120 \0 004 \0 \0 \0 001 @ 322 020 \0 n i l \r n
0003140 i l \r ( ) \r \ \ l o l o c d 1
0003160 \r ( l ( 0 x ) ) \0 004 \0 \0 \0
0003200 001 @ 323 020 \0 n i l \r n i l \r ( ) \r
0003220 \ \ v a g 2 d 1 \r ( l ( 1
0003240 l 0 h ) ) \0 2 \0 \0 \0 002 @ d
0003260 005 001 262 024 277 j @ 361 221 h 200 i 227 n 001 \0
0003300 @ 361 221 @ 203 @ \t \0 \0 A d 005 001 233 277 j
0003320 A 361 221 h 200 i 221 A 203 A \t \0 \0 321 020 \0
0003340 ( 4 6 \ \ i l l e g a l . a r
0003360 g 2 6 \ \ i l l e g a l . a
0003400 r g ) \r n i l \r ( ) \r e q d 1
0003420 \r ( l ( 1 y 0 x ) ) \0
0003440 005 \0 \0 \0 002 @ A 360 020 \0 n i l \r n i
0003460 l \r ( ) \r e q l d 1 \r ( l (
0003500 1 y 0 x ) ) \0 n 001 \0 \0 002
0003520 @ A 360 265 i @ 021 001 \0 H d 3 233 277 A
0003540 3 264 Z @ A 331 j 360 020 303 \0 \0 233 A 303
0003560 \0 \0 264 J @ A \n \0 \0 020 H d 303 \0 \0 262
0003600 036 277 A 303 \0 \0 264 6 @ \t \0 \0 A \t \0 \0
0003620 : 264 + @ \t \0 \0 A \t \0 \0 : 020 303 \0 \0
0003640 264 034 A 303 \0 \0 264 026 @ \t \0 \0 A \t \0 \0
0003660 : 264 \v @ \t \0 \0 A \t \0 \0 : 020 \0 ( 1
0003700 0 6 c o m p l e x - i m a g p
0003720 a r t 1 0 2 c o m p l e x -
0003740 i m a g p a r t 9 5 c o m p
0003760 l e x - r e a l p a r t 9 1
0004000 c o m p l e x - r e a l p a r t
0004020 7 4 r a t i o - d e n o m i
0004040 n a t o r 7 0 r a t i o - d
0004060 e n o m i n a t o r 6 3 r a
0004100 t i o - n u m e r a t o r 5 9
0004120 r a t i o - n u m e r a t o r
0004140 4 0 f e q p ) \r ( 8 5 c o
0004160 m p l e x 7 9 c o m p l e x
0004200 5 3 r a t i o 4 6 r a t
0004220 i o 3 3 f l o a t p 2 8
0004240 f l o a t p ) \r ( ) \r \ \ r p l
0004260 p t r d 1 \r ( l ( 2 v a l
0004300 1 o f f s e t 0 o b j )
0004320 p 0 \ \ i n t e r r u p t
0004340 a b l e ) \0 034 001 \0 \0 003 021 020 \0 B
0004360 025 \0 @ A 320 b \0 311 \0 025 001 @ k B 322 307
0004400 @ B 323 315 001 B 020 \0 n i l \r n i l \r
0004420 ( ) \r \ \ r p l p t r . u f n
0004440 d 1 \r ( l ( 2 o f f s e t
0004460 1 v a l 0 o b j ) p 0
0004500 \ \ i n t e r r u p t a b l e
0004520 ) \0 034 001 \0 \0 003 021 020 \0 A 025 \0 @ B
0004540 320 b \0 311 \0 025 001 @ k A 322 307 @ A 323 315
0004560 001 A 020 \0 n i l \r n i l \r ( ) \r l
0004600 o c d 1 \r ( l ( 0 x ) )
0004620 \0 \a \0 \0 \0 001 @ 322 @ 323 032 020 \0 n i l
0004640 \r n i l \r ( ) \r v a g d 1 \r (
0004660 l ( 0 l o c ) ) \0 034 \0 \0 \0
0004700 001 @ d 003 235 001 @ 002 3 265 \a @ 002 001 j
0004720 330 321 020 \t \0 \0 @ \t \0 \0 321 020 \0 ( 2 4
0004740 \ \ l o n u m 2 0 \ \ h i
0004760 n u m ) \r n i l \r ( ) \r \ \ n e
0005000 w 4 p a g e d 1 \r ( l ( 0
0005020 p t r ) ) \0 033 \0 \0 \0 001 @ \t \0 \0
0005040 n 001 \0 320 \t \0 \0 n 001 \0 320 \t \0 \0 n 001
0005060 \0 320 \t \0 \0 020 \0 ( 2 4 \ \ n e w
0005100 p a g e 1 7 \ \ n e w p a g
0005120 e 1 0 \ \ n e w p a g e 3
0005140 \ \ n e w p a g e ) \r n i l \r
0005160 ( ) \r c o n s d 1 \r ( l ( 1
0005200 y 0 x ) ) \0 005 \0 \0 \0 002 @
0005220 A 032 020 \0 n i l \r n i l \r ( ) \r \
0005240 \ c o n s . u f n d 1 \r ( l
0005260 ( 1 y 0 x ) p 0 \ \
0005300 i n t e r r u p t a b l e ) 001
0005320 \v \n \0 \0 002 021 p 006 @ 025 \0 A 025 \0 ` \0
0005340 \0 l \n 320 Z 310 001 k 320 323 271 J I 315 001 277
0005360 I j 360 230 J d 310 \0 k 330 315 \0 277 ` \0 \0
0005400 262 032 ` \0 \0 k 361 264 \v ` \0 \0 k 331 027 \0
0005420 \0 206 027 \0 \0 277 \b \0 \0 277 A 004 l 005 360 262
0005440 Q A 322 A 323 n 377 \0 345 321 [ 312 \0 \a j 361
0005460 262 @ K @ A 323 l 377 345 342 l 200 330 021 003 \t
0005500 O 016 d 312 \0 207 320 274 O 016 L 312 \0 \a 317 \0
0005520 207 277 O 016 d 312 \0 \a m 377 324 317 \0 \a 277 L
0005540 O 020 316 \0 277 L O 022 317 \0 \a 277 L 022 260 k
0005560 \b \0 \0 [ @ A 243 l 200 260 / K d 312 \0 207
0005600 320 275 K M 312 \0 \a 317 \0 207 277 K d 312 \0 \a
0005620 m 377 324 317 \0 \a 277 M A 316 \0 277 M j 317 \0
0005640 \a 277 M 323 l 377 345 342 021 003 \t O 016 d 312 \0
0005660 207 320 276 O 016 N 312 \0 \a 317 \0 207 277 O 016 d
0005700 312 \0 \a m 377 324 317 \0 \a 277 N O 020 316 \0 277
0005720 N O 022 317 \0 \a 277 N 022 [ d 025 001 K 020 \0
0005740 ( 1 5 7 \ \ n e x t c o n s p
0005760 a g e 6 7 \ \ d o r e c l a
0006000 i m ) \r ( 6 3 \ \ r e c l a i
0006020 m . c o u n t d o w n 5 9 \
0006040 \ r e c l a i m . c o u n t d o
0006060 w n 5 4 \ \ r e c l a i m .
0006100 c o u n t d o w n 4 7 \ \ r
0006120 e c l a i m . c o u n t d o w n
0006140 4 2 \ \ r e c l a i m . c o
0006160 u n t d o w n 1 1 \ \ l i s
0006200 t p d t d ) \r ( ) \r c a r d 1
0006220 \r ( l ( 0 x ) ) \0 004 \0 \0 \0
0006240 001 @ 001 020 \0 n i l \r n i l \r ( ) \r
0006260 \ \ c a r . u f n d 1 \r ( n a
0006300 m e c a r l ( 0 x ) )
0006320 \0 P \0 \0 \0 001 @ d 003 233 d 312 \0 \a j 360
0006340 221 311 \0 311 \0 020 241 h 020 ` \0 \0 d i 360 227
0006360 277 @ l 004 \n \0 \0 020 d 226 d g \0 \0 360 262
0006400 025 277 @ d i 360 221 i 020 004 l 004 360 263 332 o
0006420 \0 \0 \0 020 277 @ d i 360 263 356 d 005 \a 263 324
0006440 o \0 \0 \0 020 \0 ( 3 2 \ \ l i s p
0006460 e r r o r ) \r ( 3 9 c d r 2
0006500 1 c a r / c d r e r r ) \r (
0006520 7 7 " { c a r o f n o n -
0006540 l i s t } " 6 0 " { c a r
0006560 o f n o n - l i s t } " ) \r c
0006600 d r d 1 \r ( l ( 0 x ) )
0006620 \0 004 \0 \0 \0 001 @ 002 020 \0 n i l \r n i
0006640 l \r ( ) \r \ \ c d r . u f n d
0006660 1 \r ( n a m e c d r l ( 0
0006700 x ) ) \0 y 001 \0 \0 001 @ d 003 262 @
0006720 312 \0 \a 021 001 \0 H d l 200 360 221 h 020 l 200
0006740 361 237 @ 322 @ 323 n 377 \0 345 321 H l 200 331 340
0006760 320 020 H j 360 230 @ 311 \0 b \0 023 277 260 316 @
0007000 322 @ 323 n 377 \0 345 321 H 340 320 311 \0 020 264 317
0007020 ` \0 \0 d i 360 245 d g \0 \0 360 227 277 @ l
0007040 004 \n \0 \0 020 263 023 @ 004 l 004 360 225 @ 301 002
0007060 311 \0 020 o \0 \0 \0 020 @ d 005 \a 263 343 o \0
0007100 \0 \0 020 \0 ( 8 8 \ \ l i s p e r
0007120 r o r ) \r ( 7 9 c d r 7 1
0007140 c a r / c d r e r r ) \r ( 1 1
0007160 8 " { c d r o f n o n - l
0007200 i s t } " 1 0 7 " { c d r
0007220 o f n o n - l i s t } " ) \r r
0007240 p l a c a d 1 \r ( l ( 1 y
0007260 0 x ) ) \0 005 \0 \0 \0 002 @ A 030
0007300 020 \0 n i l \r n i l \r ( ) \r \ \ r
0007320 p l a c a . u f n d 1 \r ( l
0007340 ( 1 y 0 x ) p 2 \ \
0007360 i n t e r r u p t a b l e p
0007400 0 \ \ i n t e r r u p t a b l
0007420 e ) \0 @ 003 \0 \0 002 @ 003 263 025 @ 265 \f
0007440 A d 262 5 l \a \n \0 \0 020 l 004 \n \0 \0 020
0007460 021 001 @ 001 025 001 A 025 \0 @ d 312 \0 \a j
0007500 360 221 311 \0 271 021 020 002 I k A 322 l 377 345 307
0007520 277 I A 323 315 001 @ 020 \0 ( 2 1 \ \ l
0007540 i s p e r r o r 1 5 \ \ l i
0007560 s p e r r o r ) \r n i l \r ( ) \r
0007600 r p l a c d d 1 \r ( l ( 1
0007620 y 0 x ) ) \0 005 \0 \0 \0 002 @ A
0007640 031 020 \0 n i l \r n i l \r ( ) \r \ \
0007660 r p l a c d . u f n d 1 \r ( l
0007700 ( 1 y 0 x ) p 0 \
0007720 \ i n t e r r u p t a b l e )
0007740 001 1 \t \0 \0 002 @ 003 263 027 @ 265 016 A d 242
0007760 261 001 % l \a \n \0 \0 020 l 004 \n \0 \0 020 021
0010000 ` 005 @ 002 025 001 A 025 \0 @ 312 \0 \a Y d j
0010020 360 262 033 277 @ 311 \0 Z 322 J 323 n 377 \0 345 321
0010040 J 312 \0 \a 340 320 A 316 \0 261 \0 353 l 177 361 221
0010060 h 200 i 262 024 @ 322 @ 323 n 377 \0 345 321 I 340
0010100 320 A 316 \0 261 \0 320 A 245 @ l 200 261 \0 305 @
0010120 322 @ 323 n 377 \0 345 321 Z A 322 A 323 n 377 \0
0010140 345 321 360 234 @ A 323 l 377 345 342 l 200 330 261 \0
0010160 243 J 312 \0 \a j 361 262 2 @ J d 312 \0 207 320
0010200 273 J K 312 \0 \a 317 \0 207 277 J d 312 \0 \a m
0010220 377 324 317 \0 \a 277 K A 316 \0 277 K j 317 \0 \a
0010240 277 K 323 l 377 345 342 260 j @ \b \0 \0 Z @ 311
0010260 \0 J d 312 \0 207 320 274 J L 312 \0 \a 317 \0 207
0010300 277 J d 312 \0 \a m 377 324 317 \0 \a 277 L A 316
0010320 \0 277 L j 317 \0 \a 277 L 323 l 377 345 342 021 003
0010340 \b N d 312 \0 207 320 275 N M 312 \0 \a 317 \0 207
0010360 277 N d 312 \0 \a m 377 324 317 \0 \a 277 M O 016
0010400 316 \0 277 M O 020 317 \0 \a 277 M 022 316 \0 277 @
0010420 j 317 \0 \a @ 020 \0 ( 1 9 8 \ \ n e
0010440 x t c o n s p a g e 2 3 \ \
0010460 l i s p e r r o r 1 7 \ \ l
0010500 i s p e r r o r ) \r n i l \r ( )
0010520 \r d o c o l l e c t d 1 \r ( l
0010540 ( 1 l s t 0 i t e m ) )
0010560 \0 026 \0 \0 \0 002 A 003 265 \n @ h 032 d d
0010600 031 277 020 d @ A 002 032 031 277 002 020 \0 n i l
0010620 \r n i l \r ( ) \r \ \ r p l c o n
0010640 s d 1 \r ( l ( 1 i t e m
0010660 0 l s t ) p 0 \ \ i n t
0010700 e r r u p t a b l e ) \0 267 006 \0
0010720 \0 002 @ 003 242 261 \0 251 021 ` 005 @ 322 @ 323 n
0010740 377 \0 345 321 \ 312 \0 \a j 360 222 261 \0 217 @ 312
0010760 \0 \a l 177 361 264 003 202 261 \0 203 A 025 \0 277 @
0011000 002 025 001 277 L d 312 \0 207 320 271 L I 312 \0 \a
0011020 317 \0 207 277 L d 312 \0 \a m 377 324 317 \0 \a 277
0011040 I A 316 \0 277 I l 200 317 \0 \a 277 I 275 ` \0
0011060 \0 l \n 320 [ 310 001 k 320 323 272 K J 315 001 277
0011100 J j 360 230 K d 310 \0 k 330 315 \0 277 ` \0 \0
0011120 262 032 ` \0 \0 k 361 264 \v ` \0 \0 k 331 027 \0
0011140 \0 206 027 \0 \0 277 \b \0 \0 277 @ M 323 l 377 345
0011160 342 l 200 330 317 \0 \a 277 M 200 h 022 265 \v A h
0011200 032 b 002 @ A 031 A 020 \0 ( 1 5 0 \ \
0011220 d o r e c l a i m ) \r ( 1 4 6
0011240 \ \ r e c l a i m . c o u n t d
0011260 o w n 1 4 2 \ \ r e c l a i
0011300 m . c o u n t d o w n 1 3 7
0011320 \ \ r e c l a i m . c o u n t d
0011340 o w n 1 3 0 \ \ r e c l a i
0011360 m . c o u n t d o w n 1 2 5
0011400 \ \ r e c l a i m . c o u n t d
0011420 o w n 9 4 \ \ l i s t p d t
0011440 d ) \r ( ) \r e n d c o l l e c t
0011460 d 1 \r ( l ( 1 y 0 x )
0011500 ) \0 \f \0 \0 \0 002 @ 265 004 A 020 002 @ A
0011520 031 277 020 \0 n i l \r n i l \r ( ) \r \
0011540 \ i n i t c o n s p a g e d 1
0011560 \r ( l ( 1 l i n k 0 b a
0011600 s e ) ) \0 9 002 \0 \0 002 @ l 376 317 \0
0011620 207 277 l 376 021 021 001 H j 360 263 026 @ H 320 Y
0011640 h 316 \0 277 I H l 002 331 X 317 \0 \a 277 260 351
0011660 @ l 177 317 \0 \a 277 @ A 322 341 A 323 343 330 315
0011700 001 @ 020 \0 n i l \r n i l \r ( ) \r \
0011720 \ n e x t c o n s p a g e d 1
0011740 \r n i l \0 X 003 \0 \0 \0 ` \0 \0 310 \r
0011760 021 ! 002 H d j 360 262 % 277 ` \0 \0 310 016 \t
0012000 \0 \0 Y d n 001 \0 320 \t \0 \0 \n \0 \0 277 `
0012020 \0 \0 I 322 341 I 323 343 330 315 \r 210 Z 343 J l
0012040 377 345 341 321 Y 277 I 312 \0 \a k 361 221 I 020 `
0012060 \0 \0 I 310 001 X 315 \r 277 I n 377 377 315 001 277
0012100 260 263 \0 ( 3 4 \ \ i n i t c o n
0012120 s p a g e 3 1 \ \ i n i t c
0012140 o n s p a g e 2 2 \ \ a l l
0012160 o c m d s p a g e ) \r ( 7 0 \
0012200 \ l i s t p d t d 3 8 \ \ l
0012220 i s t p d t d 1 7 \ \ l i s
0012240 t p d t d 2 \ \ l i s t p d
0012260 t d ) \r ( ) \r \ \ r e s t l i s
0012300 t . u f n d 1 \r ( l ( 2 f
0012320 i r s t n 1 l a s t n 0
0012340 t a i l ) ) \0 M 006 \0 \0 003 @ 223 \b
0012360 \0 \0 277 f 021 Q 005 k H 321 312 001 360 j 360 241
0012400 h 200 i 224 H l 002 331 204 k H 321 310 \b 271 k
0012420 I 321 310 001 272 k J l 002 331 321 273 B A 275 274
0012440 L M 363 263 024 K M 340 320 311 \0 @ 032 b \0 277
0012460 M m 377 324 275 260 353 @ 020 \0 ( 4 \ \ g
0012500 c . h a n d l e o v e r f l o w
0012520 ) \r n i l \r ( ) \r \ \ f i n d k
0012540 e y . u f n d 1 \r ( l ( 1
0012560 a r g n 0 k e y ) ) \0 R 006
0012600 \0 \0 002 f 021 ! 002 k H 321 312 001 360 j 360 241
0012620 h 200 i 224 H l 002 331 204 k H 321 310 \b 271 k
0012640 I 321 310 001 272 I J 331 342 k 331 A k J A k
0012660 331 340 324 321 021 003 005 L K 363 263 030 M 311 \0 @
0012700 360 223 L k 330 020 L l 002 324 274 M l 004 320 275
0012720 260 347 h 020 \0 n i l \r n i l \r ( ) \r
0012740 c h e c k c o n s p a g e s d
0012760 1 \r n i l \0 = 002 \0 \0 \0 021 020 \0 `
0013000 \0 \0 310 \r X 343 H l 377 345 341 321 022 021 021 001
0013020 H 265 \r 023 g \0 \0 g \0 \0 \n \0 \0 020 004 l
0013040 005 360 246 H \t \0 \0 277 260 350 H 310 001 Y 343 I
0013060 l 377 345 341 321 X 260 333 \0 ( 4 2 h e l
0013100 p 3 2 \ \ m a p m d s ) \r (
0013120 2 9 \ \ c h e c k c o n s p a
0013140 g e 2 6 l i s t p 5 \ \
0013160 l i s t p d t d ) \r ( ) \r \ \ c
0013200 h e c k c o n s p a g e d 1 \r
0013220 ( l ( 0 p n ) ) \0 Y 003 \0 \0
0013240 001 021 020 \0 @ X 343 H l 377 345 341 321 022 021 !
0013260 002 H 312 \0 \a 272 H 312 \0 207 Y k 345 j 360 247
0013300 o \0 \0 \0 \t \0 \0 277 J j 361 262 ! I j 360
0013320 253 H I 320 312 \0 \a Y k 345 j 360 247 o \0 \0
0013340 \0 \t \0 \0 277 J m 377 324 Z 260 337 I j 360 246
0013360 o \0 \0 \0 \t \0 \0 h 020 \0 ( 8 5 r a
0013400 i d 6 6 r a i d 3 7 r a
0013420 i d ) \r n i l \r ( 8 2 ( e q
0013440 n x t 0 ) 6 3 ( a n d
0013460 ( n e q n x t 0 ) ( e v e
0013500 n p ( s e t q n x t ( | f
0013520 e t c h | ( l i s t p c d r
0013540 c o d e ) | o f | ( \ \ a d
0013560 d b a s e p t r n x t ) ) )
0013600 w o r d s p e r c e l l ) ) \r
0013620 3 4 ( e v e n p ( s e t q
0013640 n x t ( | f e t c h | ( c
0013660 o n s p a g e n e x t c e l l
0013700 ) | o f | p t r ) ) w o r
0013720 d s p e r c e l l ) ) \r ( r p a
0013740 q q l l n e w c o m s ( ( c
0013760 o m s ( * \ ; " l o w l
0014000 e v e l m e m o r y a c c e
0014020 s s " ) ( f n s \ \ a d d b
0014040 a s e \ \ g e t b a s e \ \
0014060 p u t b a s e \r \ \ p u t b a
0014100 s e . u f n \ \ p u t b a s e
0014120 p t r . u f n \ \ p u t b i t
0014140 s . u f n \ \ g e t b a s e b
0014160 y t e \ \ p u t b a s e b y t
0014200 e \ \ g e t b a s e p t r \
0014220 \ p u t b a s e p t r \r \ \ h
0014240 i l o c \ \ l o l o c \ \ v
0014260 a g 2 e q e q l \ \ r p l
0014300 p t r \ \ r p l p t r . u f n
0014320 ) ( p r o p b y t e m a c r
0014340 o e q l ) ( f n s l o c
0014360 v a g ) ( f n s \r c r e a t
0014400 e p a g e s \ \ n e w 4 p a g
0014420 e ) ( d e c l a r e \ : d o
0014440 n t c o p y ( e x p o r t (
0014460 r e c o r d s p o i n t e r
0014500 w o r d ) ( m a c r o s p t
0014520 r g t p \r . c o e r c e . t o
0014540 . s m a l l p o s p . . c o e
0014560 r c e . t o . b y t e . ) ) (
0014600 a d d v a r s ( i n e w c o m
0014620 s ( f n s \ \ g e t b a s e
0014640 b y t e \ \ p u t b a s e b y
0014660 t e \r c r e a t e p a g e s
0014700 \ \ n e w 4 p a g e ) ) ( r d
0014720 c o m s ( f n s \ \ c a r .
0014740 u f n \ \ c d r . u f n ) (
0014760 f n s \ \ c o p y \ \ u n c
0015000 o p y ) ( f n s \ \ g e t b
0015020 a s e b y t e \r \ \ p u t b a
0015040 s e b y t e ) ) ( i n i t p t
0015060 r s ( \ \ l i s t p d t d ) )
0015100 ( m k i . s u b f n s ( \ \
0015120 a d d b a s e . i . a d d b
0015140 a s e ) ( \ \ g e t b a s e
0015160 . i . g e t b a s e ) ( \r \
0015200 \ p u t b a s e . i . p u t
0015220 b a s e ) ( \ \ g e t b a s e
0015240 p t r . i . g e t b a s e p
0015260 t r ) ( \ \ p u t b a s e p t
0015300 r . i . p u t b a s e p t r
0015320 ) ( \ \ h i l o c . i . h
0015340 i l o c ) \r ( \ \ l o l o c
0015360 . i . l o l o c ) ( \ \ v a
0015400 g 2 . i . v a g 2 ) ( . c
0015420 o e r c e . t o . s m a l l p o
0015440 s p . . p r o g 1 ) ( . c
0015460 o e r c e . t o . b y t e . .
0015500 p r o g 1 ) ( \r l o c k e d
0015520 p a g e p . m k i . l o c k
0015540 e d p a g e p ) ( \ \ r p l p
0015560 t r . i . p u t b a s e p t
0015600 r ) ( c o n s . i . \ \ c
0015620 o n s . u f n ) ) ( r d . s u
0015640 b f n s ( \ \ a d d b a s e \r
0015660 . v a d d b a s e ) ( \ \
0015700 g e t b a s e . v g e t b a
0015720 s e ) ( \ \ p u t b a s e .
0015740 v p u t b a s e ) ( \ \ g e
0015760 t b a s e p t r . v g e t b
0016000 a s e p t r ) ( \ \ p u t b a
0016020 s e p t r \r . v p u t b a s
0016040 e p t r ) ( \ \ h i l o c .
0016060 v h i l o c ) ( \ \ l o l o
0016100 c . v l o l o c ) ( \ \ v
0016120 a g 2 . v v a g 2 ) ( . c
0016140 o e r c e . t o . s m a l l p o
0016160 s p . . p r o g 1 ) \r ( .
0016200 c o e r c e . t o . b y t e .
0016220 . p r o g 1 ) ( c o n s .
0016240 v c o n s ) ( c r e a t e c
0016260 e l l . v c r e a t e c e l
0016300 l ) ( c o p y s t r i n g .
0016320 v c o p y s t r i n g ) ( \r
0016340 p t r g t p . i g r e a t e
0016360 r p ) ( \ \ r p l p t r .
0016400 v p u t b a s e p t r ) ( c a
0016420 r . v \ \ c a r . u f n )
0016440 ( c d r . v \ \ c d r . u f
0016460 n ) ( c a r / c d r e r r .
0016500 t ) ) ) \r e v a l @ c o m p
0016520 i l e ( a d d v a r s ( d o
0016540 n t c o m p i l e f n s c r e
0016560 a t e p a g e s ) ) ) ) ( c o
0016600 m s ( * \ ; " c o n s c
0016620 e l l s " ) ( f n s c o n s
0016640 \ \ c o n s . u f n \r c a r
0016660 \ \ c a r . u f n c d r \
0016700 \ c d r . u f n r p l a c a
0016720 \ \ r p l a c a . u f n r p l
0016740 a c d \ \ r p l a c d . u f n
0016760 d o c o l l e c t \ \ r p l
0017000 c o n s e n d c o l l e c t
0017020 \r \ \ i n i t c o n s p a g e
0017040 \ \ n e x t c o n s p a g e )
0017060 ( f n s \ \ r e s t l i s t .
0017100 u f n \ \ f i n d k e y . u f
0017120 n ) ( i n i t v a r s ( c a
0017140 r / c d r e r r ( q u o t e
0017160 c d r ) ) ) \r ( d e c l a r e
0017200 \ : d o n t c o p y ( g l o
0017220 b a l v a r s c a r / c d r e
0017240 r r ) ( e x p o r t ( r e c
0017260 o r d s l i s t p c o n s p
0017300 a g e ) ( c o n s t a n t s
0017320 * \r c o n s c o n s t a n t s
0017340 ) ) ( m a c r o s . m a k e
0017360 c o n s c e l l . ) ( * \ ;
0017400 " f o r M A K E I N I T " )
0017420 ( a d d v a r s ( i n e w c
0017440 o m s ( f n s \ \ c o n s .
0017460 u f n \r \ \ i n i t c o n s p
0017500 a g e \ \ n e x t c o n s p a
0017520 g e ) ) ( e x p a n d m a c r
0017540 o f n s . m a k e c o n s c e
0017560 l l . ) ) ) ( c o m s ( *
0017600 \ ; " t e s t i n g o u t
0017620 C O N S e s " ) ( \r f n s c
0017640 h e c k c o n s p a g e s \ \
0017660 c h e c k c o n s p a g e ) (
0017700 d e c l a r e \ : d o n t c o
0017720 p y ( m a c r o s ! c h e c
0017740 k ) ) ) ) ( c o m s ( * \
0017760 ; \r " o t h e r r a n d o m
0020000 s t u f f f o r m a k e i
0020020 n i t " ) ( f n s m a k e i
0020040 n i t f i r s t m a k e i n i
0020060 t l a s t \ \ c o p y \ \ u
0020100 n c o p y ) ( d e c l a r e \
0020120 : \r d o n t c o p y ( e x p
0020140 o r t ( m a c r o s l o c a
0020160 l a l l o c a l ) ) ( a d d
0020200 v a r s ( m k i . s u b f n s
0020220 ( c h e c k . * ) ( r a
0020240 i d . h e l p ) ( \r u n i
0020260 n t e r r u p t a b l y . p
0020300 r o g n ) ( | \ \ S t a t s A
0020320 d d 1 | . * ) ( e v q .
0020340 i . \ \ c o p y ) ( c o p y
0020360 . i . \ \ c o p y ) ) ( r
0020400 d . s u b f n s ( c h e c k
0020420 . * \r ) ( r a i d . h e
0020440 l p ) ( u n i n t e r r u p t
0020460 a b l y . p r o g n ) ( |
0020500 \ \ S t a t s A d d 1 | . *
0020520 ) ( e v q . v \ \ c o p y
0020540 ) ( c o p y . v \ \ c o p
0020560 y ) ( 1 s t . \r v \ \ u n
0020600 c o p y ) ) ) ( a d d v a r s
0020620 ( i n e w c o m s ( f n s
0020640 m a k e i n i t f i r s t \ \
0020660 c o p y m a k e i n i t l a s
0020700 t ) ) ) e v a l @ c o m p i l
0020720 e ( a d d v a r s ( \r d o n
0020740 t c o m p i l e f n s m a k e
0020760 i n i t f i r s t \ \ c o p y
0021000 m a k e i n i t l a s t \ \
0021020 u n c o p y ) ) ) ) ( l o c a
0021040 l v a r s . t ) ) ) \r ( p u
0021060 t p r o p s e q l b y t e m
0021100 a c r o c o m p . e q ) \r ( r
0021120 p a q ? c a r / c d r e r r
0021140 ( q u o t e c d r ) ) \r ( p u
0021160 t p r o p s l l n e w c o p
0021200 y r i g h t ( " X e r o x C
0021220 o r p o r a t i o n " 1 9 8 1
0021240 1 9 8 2 1 9 8 3 1 9 8 4
0021260 1 9 8 5 1 9 8 6 ) ) \r n i l \r
0021300