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