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