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