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