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