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