$ od -c -N 50000 [eris]<LispCore>withdrawn>Library>BUSCOLOR.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - F e b - 8 6 0 0 : 1 1 : 3 8
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 > L I B R A R Y > B U S C O L
0000120 O R . ; 7 ) \r " 1 5 - F e b -
0000140 8 6 1 5 : 5 0 : 4 5 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 \ B U S C O L O R . U P D A T
0000220 E D A E M O N i n " X e r o
0000240 x L i s p 1 5 - F e b - 8 6
0000260 . . . " d a t e d \r " 1 5
0000300 - F e b - 8 6 1 6 : 0 3 : 5 2
0000320 " ) \r ( F I L E C R E A T E D
0000340 " 1 6 - F e b - 8 6 0 0 : 1 1
0000360 : 1 3 " { E R I S } < L I S P
0000400 C O R E > L I B R A R Y > B U S
0000420 C O L O R . ; 7 1 3 2 5 1 c
0000440 h a n g e s t o : ( F N S
0000460 \r \ B U S C O L O R . U P D A T
0000500 E D A E M O N ) ( V A R S \
0000520 B U S C O L O R . L O C K E D F
0000540 N S B U S C O L O R C O M S )
0000560 p r e v i o u s d a t e :
0000600 " 1 0 - F e b - 8 6 1 2 : 3 1
0000620 : 5 5 " \r { E R I S } < L I S
0000640 P C O R E > L I B R A R Y > B U
0000660 S C O L O R . ; 4 ) \r \ B U S C
0000700 O L O R . I N I T D 1 \r ( F
0000720 0 \ B U S C O L O R . L O C K
0000740 E D F N S F 1 \ B U S C O
0000760 L O R . L O C K E D V A R S )
0001000 \0 033 \0 002 \0 \0 P 206 d 001 \t \0 \0 277 002 003
0001020 265 370 Q 206 d 001 \t \0 \0 277 002 003 265 370 h 020
0001040 \0 ( 2 2 Q \ L O C K V A R 6
0001060 \ L O C K F N ) \r N I L \r ( )
0001100 \r \ B U S C O L O R . S T A R T
0001120 C O L O R D 1 \r ( P 4 P A
0001140 G E P 1 W S O P S P 0
0001160 D I S P L A Y S T A T E I
0001200 0 F D E V ) \0 322 005 \0 \0 001 021 0
0001220 002 \b \0 \0 g \0 \0 360 264 003 202 261 \0 271 @ 006
0001240 \0 \0 311 ( 270 @ 006 \0 \0 311 F 271 H g \0 \0
0001260 030 277 I 001 272 j J 017 016 277 I 002 002 002 002 002
0001300 001 g \0 \0 \n \0 \0 277 I 002 002 002 002 002 002 001
0001320 g \0 \0 \n \0 \0 277 ` \0 \0 006 \0 \0 311 \0 027
0001340 \0 \0 277 g \0 \0 301 \f ` \0 \0 ` \0 \0 \t \0
0001360 \0 320 316 \0 277 ` \0 \0 322 341 ` \0 \0 323 343 330
0001400 027 \0 \0 277 ` \0 \0 322 341 ` \0 \0 323 343 330 027
0001420 \0 \0 277 ` \0 \0 \t \0 \0 027 \0 \0 277 ` \0 \0
0001440 ` \0 \0 \n \0 \0 277 l d 027 \0 \0 277 j 027 \0
0001460 \0 277 l \n 027 \0 \0 277 ` \0 \0 ` \0 \0 021 002
0001500 004 L d K 363 236 023 g \0 \0 \t \0 \0 277 H g
0001520 \0 \0 030 h 020 \t \0 \0 277 L k 324 \ 260 345 \0
0001540 ( 3 1 1 Q \ B U S C O L O R .
0001560 M A K E D I R T Y P A G E 2 7
0001600 6 Q \ I N S T A L L . P E R I
0001620 O D I C . I N T E R R U P T 2
0001640 2 7 Q \ L O C K P A G E S 2
0001660 1 2 Q \ B U S C O L O R . B I
0001700 T M A P P A G E S 1 4 2 Q \
0001720 B U S C O L O R . B I T M A P W
0001740 O R D S 1 0 7 Q M O V D 7
0001760 0 Q M O V D 5 M A C H I N
0002000 E T Y P E ) \r ( 3 0 3 Q O N
0002020 2 7 3 Q \ B U S C O L O R . U
0002040 P D A T E D A E M O N 2 5 7 Q
0002060 C o l o r S c r e e n B i t M
0002100 a p B a s e P a g e 2 5 4 Q
0002120 C o l o r S c r e e n B i t M a
0002140 p E n d P a g e 2 5 0 Q \ P
0002160 E R I O D I C . I N T E R R U P
0002200 T . F R E Q U E N C Y 2 4 2 Q
0002220 \ B U S C O L O R . L A S T M
0002240 O V E D P A G E 2 3 5 Q \ B
0002260 U S C O L O R . M O V E L I M I
0002300 T 2 2 4 Q C o l o r S c r e
0002320 e n B i t M a p P a g e s 2 2
0002340 1 Q C o l o r S c r e e n B i
0002360 t M a p B a s e 2 1 5 Q C o
0002400 l o r S c r e e n B i t M a p P
0002420 a g e s 2 0 7 Q C o l o r S
0002440 c r e e n B i t M a p 2 0 3 Q
0002460 C o l o r S c r e e n B i t M
0002500 a p B a s e P a g e 1 7 5 Q
0002520 C o l o r S c r e e n B i t M a
0002540 p B a s e 1 7 0 Q C o l o r
0002560 S c r e e n B i t M a p B a s e
0002600 1 6 4 Q C o l o r S c r e e
0002620 n B i t M a p E n d P a g e 1
0002640 5 6 Q C o l o r S c r e e n B
0002660 i t M a p E n d 1 5 1 Q C o
0002700 l o r S c r e e n B i t M a p E
0002720 n d 1 3 7 Q C o l o r S c r
0002740 e e n B i t M a p 1 3 4 Q C
0002760 o l o r S c r e e n B i t M a p
0003000 B a s e 1 2 7 Q C o l o r S
0003020 c r e e n B i t M a p E n d 1
0003040 2 3 Q C o l o r S c r e e n B
0003060 i t M a p B a s e 1 1 6 Q B
0003100 I T M A P 1 1 3 Q C o l o r
0003120 S c r e e n B i t M a p 1 0 4
0003140 Q \ S O F T C U R S O R P I L
0003160 O T B I T B L T 6 5 Q \ B U
0003200 S C O L O R . S E N D P A G E
0003220 4 1 Q S T A R T C O L O R 3
0003240 2 Q F D E V 2 3 Q F D E V
0003260 1 0 Q D A N D E L I O N ) \r
0003300 ( ) \r \ B U S C O L O R . S T O
0003320 P C O L O R D 1 \r ( P 2 P
0003340 A G E P 0 D I S P L A Y S
0003360 T A T E I 0 F D E V ) \0
0003400 @ 003 \0 \0 001 021 020 \0 @ 006 \0 \0 311 ( X d
0003420 g \0 \0 030 g \0 \0 \t \0 \0 ` \0 \0 ` \0 \0
0003440 021 002 002 J d I 363 262 023 023 ` \0 \0 ` \0 \0
0003460 \n \0 \0 H g \0 \0 030 h 020 \t \0 \0 277 J k
0003500 324 Z 260 342 \0 ( 6 7 Q \ B U S C O
0003520 L O R . M A K E D I R T Y P A G
0003540 E 5 5 Q \ U N L O C K P A G
0003560 E S 2 4 Q \ R E M O V E . P
0003600 E R I O D I C . I N T E R R U P
0003620 T ) \r ( 6 1 Q O F F 5 2 Q
0003640 C o l o r S c r e e n B i t M a
0003660 p P a g e s 4 7 Q C o l o r
0003700 S c r e e n B i t M a p B a s e
0003720 3 2 Q C o l o r S c r e e n
0003740 B i t M a p B a s e P a g e 2
0003760 7 Q C o l o r S c r e e n B i
0004000 t M a p E n d P a g e 2 1 Q
0004020 \ B U S C O L O R . U P D A T E
0004040 D A E M O N 1 5 Q S T O P C
0004060 O L O R 6 F D E V ) \r ( ) \r
0004100 \ R E M O V E . P E R I O D I C
0004120 . I N T E R R U P T D 1 \r ( L
0004140 ( 0 I N T E R R U P T ) )
0004160 \0 \n \0 \0 \0 001 ` \0 \0 h 027 \0 \0 277 020 \0
0004200 N I L \r ( 6 \ P E R I O D I C
0004220 . I N T E R R U P T 2 \ P E
0004240 R I O D I C . I N T E R R U P T
0004260 ) \r ( ) \r \ I N S T A L L . P E
0004300 R I O D I C . I N T E R R U P T
0004320 D 1 \r ( L ( 0 I N T E R R
0004340 U P T ) ) \0 \n \0 \0 \0 001 ` \0 \0 @
0004360 027 \0 \0 277 020 \0 N I L \r ( 6 \ P E
0004400 R I O D I C . I N T E R R U P T
0004420 2 \ P E R I O D I C . I N T
0004440 E R R U P T ) \r ( ) \r \ B U S C
0004460 O L O R . B I T M A P P A G E S
0004500 D 1 \r ( L ( 0 B I T M A P
0004520 ) ) \0 023 \0 \0 \0 001 @ 006 \0 \0 310 002 @
0004540 006 \0 \0 310 003 332 l 377 330 343 020 \0 N I L \r
0004560 ( 1 1 Q B I T M A P 3 B I
0004600 T M A P ) \r ( ) \r \ B U S C O L
0004620 O R . B I T M A P W O R D S D
0004640 1 \r ( L ( 0 B M ) ) \0 017 \0
0004660 \0 \0 001 @ 006 \0 \0 310 002 @ 006 \0 \0 310 003 332
0004700 020 \0 N I L \r ( 1 1 Q B I T M A
0004720 P 3 B I T M A P ) \r ( ) \r \
0004740 B U S C O L O R . D I R T Y P A
0004760 G E P D 1 \r ( I 0 V P A G
0005000 E ) \0 \f \0 \0 \0 001 @ q n 020 \0 345 j
0005020 360 h 360 020 \0 N I L \r N I L \r ( ) \r
0005040 \ B U S C O L O R . M A K E C L
0005060 E A N P A G E D 1 \r ( I 0
0005100 V P A G E ) \0 \r \0 \0 \0 001 @ d r
0005120 @ q o \0 \0 \0 345 s 020 \0 N I L \r N I
0005140 L \r ( 1 0 Q - 1 0 0 0 1 Q )
0005160 \r \ B U S C O L O R . M A K E D
0005200 I R T Y P A G E D 1 \r ( I 0
0005220 V P A G E ) \0 \f \0 \0 \0 001 @ d
0005240 r @ q n 020 \0 344 s 020 \0 N I L \r N I
0005260 L \r ( ) \r \ B U S C O L O R . U
0005300 P D A T E D A E M O N D 1 \r (
0005320 P 4 A B S C U R R P A G E
0005340 P 3 C U R R P A G E P 2
0005360 P A G E S M O V E D P 0
0005400 \ I N T E R R U P T A B L E F
0005420 5 \ I N T E R R U P T A B L
0005440 E ) \0 \ 005 001 \0 \0 U 264 Y 021 001 g
0005460 \0 \0 \t \0 \0 021 0 004 ` \0 \0 273 j 272 K k
0005500 330 [ ` \0 \0 360 263 / ` \0 \0 K 330 \ q n
0005520 020 \0 345 j 360 263 351 L Y 343 I l 377 345 341 321
0005540 K \n \0 \0 277 L \t \0 \0 277 J k 330 Z ` \0
0005560 \0 360 262 314 202 m 377 273 K 027 \0 \0 023 g \0 \0
0005600 \t \0 \0 020 \0 ( 1 3 1 Q \ I N S T
0005620 A L L . P E R I O D I C . I N T
0005640 E R R U P T 7 7 Q \ B U S C
0005660 O L O R . M A K E C L E A N P A
0005700 G E 7 2 Q \ B U S C O L O R
0005720 . S E N D P A G E 1 3 Q \ R
0005740 E M O V E . P E R I O D I C . I
0005760 N T E R R U P T ) \r ( 1 2 6 Q
0006000 \ B U S C O L O R . U P D A T E
0006020 D A E M O N 1 2 2 Q \ B U S
0006040 C O L O R . L A S T M O V E D P
0006060 A G E 1 0 7 Q \ B U S C O L
0006100 O R . M O V E L I M I T 4 1 Q
0006120 C o l o r S c r e e n B i t M
0006140 a p B a s e P a g e 3 3 Q C
0006160 o l o r S c r e e n B i t M a p
0006200 P a g e s 2 1 Q \ B U S C O
0006220 L O R . L A S T M O V E D P A G
0006240 E 1 0 Q \ B U S C O L O R .
0006260 U P D A T E D A E M O N ) \r ( )
0006300 \r \ B U S C O L O R . E V E N T
0006320 F N D 1 \r ( P 1 P A G E
0006340 I 1 E V E N T I 0 D E
0006360 V I C E ) \0 233 002 \0 \0 002 @ 006 \0 \0
0006400 311 ( 001 g \0 \0 360 264 003 202 261 \0 201 A g \0
0006420 \0 360 255 A g \0 \0 360 247 A d g \0 \0 360 227
0006440 277 g \0 \0 \t \0 \0 020 g \0 \0 360 262 " g \0
0006460 \0 \t \0 \0 ` \0 \0 ` \0 \0 021 002 001 I d H
0006500 363 221 h 020 \t \0 \0 277 I k 324 Y 260 362 A g
0006520 \0 \0 360 263 357 A g \0 \0 360 263 350 A d g \0
0006540 \0 360 263 340 g \0 \0 360 246 A g \0 \0 360 264 035
0006560 \b \0 \0 \t \0 \0 ` \0 \0 ` \0 \0 021 002 001 I
0006600 d H 363 227 023 g \0 \0 \t \0 \0 020 \t \0 \0 277
0006620 I k 324 Y 260 354 \0 ( 2 2 2 Q \ B U
0006640 S C O L O R . M A K E D I R T Y
0006660 P A G E 2 1 6 Q \ I N S T A
0006700 L L . P E R I O D I C . I N T E
0006720 R R U P T 1 7 1 Q S C R E E
0006740 N C O L O R M A P 1 6 6 Q S
0006760 C R E E N C O L O R M A P 1 1
0007000 2 Q \ B U S C O L O R . M A K
0007020 E D I R T Y P A G E 6 7 Q \
0007040 R E M O V E . P E R I O D I C .
0007060 I N T E R R U P T 5 2 Q C O
0007100 L O R D I S P L A Y ) \r ( 2 1 3
0007120 Q \ B U S C O L O R . U P D A
0007140 T E D A E M O N 1 7 7 Q C o
0007160 l o r S c r e e n B i t M a p B
0007200 a s e P a g e 1 7 4 Q C o l
0007220 o r S c r e e n B i t M a p E n
0007240 d P a g e 1 6 0 Q A F T E R
0007260 D O S A V E V M 1 5 2 Q A F
0007300 T E R S A V E V M 1 4 4 Q A
0007320 F T E R M A K E S Y S 1 3 4 Q
0007340 A F T E R S Y S O U T 1 2 5
0007360 Q A F T E R L O G O U T 7 5
0007400 Q C o l o r S c r e e n B i t
0007420 M a p B a s e P a g e 7 2 Q
0007440 C o l o r S c r e e n B i t M a
0007460 p E n d P a g e 6 4 Q \ B U
0007500 S C O L O R . U P D A T E D A E
0007520 M O N 5 6 Q B E F O R E S A
0007540 V E V M 4 7 Q O F F 4 1 Q
0007560 B E F O R E M A K E S Y S 3
0007600 2 Q B E F O R E S Y S O U T
0007620 2 4 Q B E F O R E L O G O U T
0007640 1 1 Q O N 3 F D E V ) \r
0007660 ( ) \r ( P R E T T Y C O M P R I
0007700 N T B U S C O L O R C O M S )
0007720 \r ( R P A Q Q B U S C O L O R
0007740 C O M S ( ( * B U S C O L O
0007760 R - - U p d a t e d a e m
0010000 o n f o r t h e B U S M A
0010020 S T E R c o l o r c a r d s
0010040 - - B y K e l l y R o a
0010060 c h a n d \r H e r b J e l
0010100 l i n e k . * ) ( F N S \
0010120 B U S C O L O R . I N I T ) (
0010140 F N S \ B U S C O L O R . S T
0010160 A R T C O L O R \ B U S C O L
0010200 O R . S T O P C O L O R ) ( F
0010220 N S \r \ R E M O V E . P E R I
0010240 O D I C . I N T E R R U P T \
0010260 I N S T A L L . P E R I O D I C
0010300 . I N T E R R U P T ) ( P (
0010320 M O V D ? ( F U N C T I O N
0010340 N I L L ) ( F U N C T I O N
0010360 \r \ B U S C O L O R . S E N D P
0010400 A G E ) ) ) ( F N S \ B U S
0010420 C O L O R . B I T M A P P A G E
0010440 S \ B U S C O L O R . B I T M
0010460 A P W O R D S \ B U S C O L O
0010500 R . D I R T Y P A G E P \r \ B
0010520 U S C O L O R . M A K E C L E A
0010540 N P A G E \ B U S C O L O R .
0010560 M A K E D I R T Y P A G E \ B
0010600 U S C O L O R . U P D A T E D A
0010620 E M O N \ B U S C O L O R . E
0010640 V E N T F N ) ( M A C R O S
0010660 \r \ B U S C O L O R . D I R T Y
0010700 P A G E P ) ( C O N S T A N T
0010720 S \ V M A P . N O T D I R T Y
0010740 ) ( P R O P A R G N A M E S
0010760 \ B U S B L T O U T B Y T E S
0011000 ) ( F I L E S B U S M A S T
0011020 E R \r C O L O R ) ( D E C L
0011040 A R E : D O E V A L @ L O A D
0011060 D O N T E V A L @ C O M P I L
0011100 E D O N T C O P Y ( F I L E
0011120 S ( L O A D F R O M ) L L F
0011140 A U L T B U S M A S T E R ) )
0011160 ( V A R S \r \ B U S C O L O
0011200 R . L O C K E D F N S \ B U S
0011220 C O L O R . L O C K E D V A R S
0011240 ) ( D E C L A R E : D O N T
0011260 E V A L @ L O A D D O N T E V
0011300 A L @ C O M P I L E D O C O P
0011320 Y ( P ( \r \ B U S C O L O R
0011340 . I N I T ) ) ) ) ) \r ( M O V D
0011360 ? ( F U N C T I O N N I L L
0011400 ) ( F U N C T I O N \ B U S
0011420 C O L O R . S E N D P A G E ) )
0011440 \r ( P U T P R O P S \ B U S C
0011460 O L O R . D I R T Y P A G E P
0011500 D M A C R O ( ( V P A G E )
0011520 ( f e t c h ( V M E M F L A G
0011540 S D I R T Y ) o f ( \ R E
0011560 A D F L A G S V P A G E ) ) )
0011600 ) \r ( R P A Q Q \ V M A P . N
0011620 O T D I R T Y - 4 0 9 7 ) \r (
0011640 C O N S T A N T S \ V M A P .
0011660 N O T D I R T Y ) \r ( P U T P R
0011700 O P S \ B U S B L T O U T B Y
0011720 T E S A R G N A M E S ( V M
0011740 A D D R B U S A D D R H I B
0011760 U S A D D R L O N W O R D S )
0012000 ) \r ( F I L E S L O A D B U S
0012020 M A S T E R C O L O R ) \r ( R
0012040 P A Q Q \ B U S C O L O R . L
0012060 O C K E D F N S ( \ B U S C O
0012100 L O R . U P D A T E D A E M O N
0012120 \ R E M O V E . P E R I O D I
0012140 C . I N T E R R U P T \ B U S
0012160 C O L O R . S E N D P A G E \r
0012200 \ B U S C O L O R . M A K E C L
0012220 E A N P A G E \ I N S T A L L
0012240 . P E R I O D I C . I N T E R R
0012260 U P T P C B U S . W R I T E
0012300 P C B U S . W R I T E H L ) ) \r
0012320 ( R P A Q Q \ B U S C O L O R
0012340 . L O C K E D V A R S ( C o l
0012360 o r S c r e e n B i t M a p P a
0012400 g e s C o l o r S c r e e n B
0012420 i t M a p B a s e P a g e \ B
0012440 U S C O L O R . M O V E L I M I
0012460 T \r \ B U S C O L O R . L A S
0012500 T M O V E D P A G E ) ) \r ( \ B
0012520 U S C O L O R . I N I T ) \r ( P
0012540 U T P R O P S B U S C O L O R
0012560 C O P Y R I G H T ( " X e r
0012600 o x C o r p o r a t i o n "
0012620 1 9 8 5 1 9 8 6 ) ) \r N I L \r
0012640