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