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