$ od -c -N 50000 [eris]<LispCore>PROLOG>KOTO>FPKG>PUTIL.DCOM!2
0000000 ( F I L E C R E A T E D " 1 6
0000020 - O c t - 8 5 1 1 : 0 9 : 5 2
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 > P R O L O G > P U T I L . ;
0000120 9 ) \r " 1 5 - O c t - 8 5 2
0000140 0 : 2 3 : 1 6 " r e c o m p i
0000160 l e d c h a n g e s : n o t
0000200 h i n g i n " I N T E R L I
0000220 S P - D 1 5 - O c t - 8 5 .
0000240 . . " d a t e d \r " 1 5 - O
0000260 c t - 8 5 2 0 : 4 2 : 5 5 " )
0000300 \r ( F I L E C R E A T E D " 1
0000320 6 - O c t - 8 5 1 1 : 0 9 : 3
0000340 5 " { E R I S } < L I S P C O
0000360 R E > P R O L O G > P U T I L .
0000400 ; 9 8 4 2 0 c h a n g e s
0000420 t o : ( V A R S P U T I L C
0000440 O M S ) \r p r e v i o u s d
0000460 a t e : " 8 - A u g - 8 5
0000500 1 2 : 0 0 : 5 7 " { E R I S }
0000520 < L I S P C O R E > P R O L O G
0000540 > P U T I L . ; 7 ) \r \ D O G C
0000560 1 D 1 \r N I L \0 031 \0 \0 \0 \0 g
0000600 \0 \0 \t \0 \0 223 \b \0 \0 277 \b \0 \0 \b \0 \0
0000620 \b \0 \0 g \0 \0 020 \0 ( 2 3 Q \ G C
0000640 M A P U N S C A N 2 0 Q \ G
0000660 C M A P S C A N 1 5 Q \ G C
0000700 S C A N S T A C K 1 1 Q \ G
0000720 C S C A N P R O L O G 5 \ D
0000740 E F I N E D P ) \r ( 2 6 Q m a
0000760 p 2 \ G C S C A N P R O L O
0001000 G ) \r ( ) \r D O N . T E S T . S
0001020 E T U P D 1 \r N I L \0 \0 \0
0001040 \0 \0 \b \0 \0 \b \0 \0 \b \0 \0 l 024 \t \0 \0
0001060 g \0 \0 ` \0 \0 \n \0 \0 \b \0 \0 o \0 \0 \0
0001100 020 \0 ( 3 1 Q P R O L O G . I N
0001120 I T . R E G I S T E R S . F I R
0001140 S T 2 6 Q F I L L . P C . T
0001160 A B L E 1 5 Q P R O L O G .
0001200 G E N . E M U L A T O R 1 0 Q
0001220 I N S P E C T . T A B L E S
0001240 5 L O C K . T A B L E S 2
0001260 C R E A T E . T A B L E S ) \r (
0001300 2 3 Q P R O L O G . P U F N .
0001320 T A B L E 2 0 Q P R O L O G
0001340 ) \r ( 3 5 Q " E m u l a t o
0001360 r c r e a t e d , t a b l e
0001400 f i l l e d , r e g i s t e
0001420 r s i n i t i a l i z e d . "
0001440 ) \r D U M M Y . F O R . C O M P
0001460 I L E R D 1 \r N I L \0 005 \0 \0
0001500 \0 \0 g \0 \0 020 \0 N I L \r ( 2 S T
0001520 A R T ) \r ( ) \r M a k e U C o d
0001540 e B a s e A d d r D 1 \r ( L
0001560 ( 0 L I S P B A S E ) ) \0 \v
0001600 \0 \0 \0 001 @ 323 n 377 \0 345 @ 322 344 020 \0 N
0001620 I L \r N I L \r ( ) \r M a k e U C
0001640 o d e R e a l B a s e A d d r
0001660 D 1 \r ( I 0 L I S P B A S E
0001700 ) \0 031 001 \0 \0 001 @ 322 341 @ 323 343 330 r
0001720 @ 323 277 021 001 \0 H 343 H 341 344 n 377 377 345 020
0001740 \0 N I L \r N I L \r ( ) \r P R O L
0001760 O G . I N I T . M E M O R Y D
0002000 1 \r N I L \0 \b \0 \0 \0 \0 \b \0 \0 \b
0002020 \0 \0 020 \0 ( 5 L O C K . T A B L
0002040 E S 2 C R E A T E . T A B L
0002060 E S ) \r N I L \r ( ) \r P R O L O
0002100 G . I N I T . M E M O R Y . F I
0002120 R S T D 1 \r ( F 1 Q P . m
0002140 e m b o t F 2 Q P . m e m
0002160 t o p F 3 Q P . A B a s e
0002200 ) \0 / 001 003 \0 \0 n 234 234 021 020 \0 Q 322
0002220 341 Q 323 343 n \0 330 330 X 343 H l 377 345 341
0002240 321 022 c 004 \t \0 \0 7 n 236 236 S \t \0 \0 7
0002260 n N N j 7 020 \0 ( 4 6 Q M a k e
0002300 U C o d e B a s e A d d r 3 6
0002320 Q M a k e U C o d e B a s e A
0002340 d d r ) \r N I L \r ( ) \r F I L L
0002360 . P C . T A B L E D 1 \r ( P
0002400 2 0 Q L E N P 1 7 Q B 3
0002420 P 1 6 Q B 2 P 1 5 Q
0002440 B 1 P 1 4 Q B P 3 P
0002460 R O L O G . O P . N U M P 2
0002500 O P C O D E D E F P 1 C
0002520 O D E L O C P 0 C A I
0002540 1 T A B L E I 0 D E F )
0002560 001 - 021 \0 \0 002 @ d 005 006 263 027 d 004 l
0002600 004 360 227 \t \0 \0 005 006 265 \n @ o \0 \0 \0 \n
0002620 \0 \0 021 261 \v A d 005 006 262 024 \t \0 \0 n 001
0002640 \0 360 230 A \t \0 \0 g \0 \0 360 244 A \t \0 \0
0002660 277 H 006 \0 \0 311 \0 H 006 \0 \0 310 003 l 006 330
0002700 302 341 H 006 \0 \0 311 \0 H 006 \0 \0 310 003 l \a
0002720 330 302 344 Y 021 P 020 H I d k 324 271 275 \ 006
0002740 \0 \0 311 \0 L 006 \0 \0 310 003 M 330 302 _ 030 \t
0002760 \0 \0 Z 002 002 001 _ j 361 264 033 H I d k
0003000 324 271 _ 016 277 ^ 006 \0 \0 311 \0 N 006 \0 \0 310
0003020 003 O 016 330 302 _ 032 277 O k 361 264 035 H I
0003040 d k 324 271 _ 022 277 _ 020 006 \0 \0 311 \0 O 020
0003060 006 \0 \0 310 003 O 022 330 302 _ 034 277 O l 002
0003100 361 264 035 H I d k 324 271 _ 026 277 _ 024 006 \0
0003120 \0 311 \0 O 024 006 \0 \0 310 003 O 026 330 302 _ 036
0003140 277 J d 002 001 ` \0 \0 001 360 262 ( 277 I ` \0
0003160 \0 002 \t \0 \0 324 271 H 006 \0 \0 311 \0 H 006 \0
0003200 \0 310 003 I 330 302 273 A K I k 330 Y k 330 *
0003220 277 J 002 001 g \0 \0 360 242 261 377 > 023 A H h
0003240 032 032 020 \0 ( 3 7 5 Q L E N G T H
0003260 1 7 2 Q \ F I N D O P 7 0
0003300 Q \ I L L E G A L . A R G 5
0003320 7 Q A R R A Y T Y P 4 6 Q
0003340 A R R A Y S I Z E 3 2 Q E R
0003360 R O R 1 6 Q G E T D ) \r ( 4
0003400 3 7 Q - X - 4 1 1 Q A R R
0003420 A Y P 4 0 3 Q A R R A Y P
0003440 3 7 1 Q P R O L O G . T A R G
0003460 E T . O P 3 6 0 Q P R O L O
0003500 G . T A R G E T . O P 3 4 0 Q
0003520 A R R A Y P 3 3 1 Q A R R
0003540 A Y P 2 7 3 Q A R R A Y P
0003560 2 6 4 Q A R R A Y P 2 2 7 Q
0003600 A R R A Y P 2 2 1 Q A R R
0003620 A Y P 1 6 0 Q A R R A Y P
0003640 1 5 2 Q A R R A Y P 1 2 4 Q
0003660 A R R A Y P 1 1 6 Q A R R
0003700 A Y P 1 0 3 Q A R R A Y P
0003720 7 5 Q A R R A Y P 6 2 Q S
0003740 M A L L P O S P ) \r ( 2 7 Q
0003760 " n o t c o m p i l e d c o
0004000 d e " ) \r L O C K . T A B L E S
0004020 D 1 \r N I L \0 " \0 \0 \0 \0 ` \0
0004040 \0 006 \0 \0 311 \0 k \n \0 \0 ` \0 \0 006 \0 \0
0004060 311 \0 k \n \0 \0 ` \0 \0 l 002 \n \0 \0 020 \0
0004100 ( 3 7 Q \ L O C K P A G E S
0004120 2 7 Q \ L O C K P A G E S 1
0004140 3 Q \ L O C K P A G E S ) \r (
0004160 3 2 Q Q P . A B a s e 2 1 Q
0004200 A R R A Y P 1 6 Q P R O L
0004220 O G . E N A B L E . P U F N . T
0004240 A B L E 5 A R R A Y P 2
0004260 P R O L O G . P U F N . T A B L
0004300 E ) \r ( ) \r C R E A T E . T A B
0004320 L E S D 1 \r N I L \0 P \0 \0 \0
0004340 \0 n 001 \0 g \0 \0 j d l 200 \r 005 \0 \0 027
0004360 \0 \0 n 001 \0 g \0 \0 k j l 200 \r 005 \0 \0
0004400 027 \0 \0 o \0 \0 \0 i \n \0 \0 ` \0 \0 251 n
0004420 \0 \t \0 \0 027 \0 \0 277 o \0 \0 \0 i \n \0
0004440 \0 277 i \t \0 \0 ` \0 \0 027 \0 \0 \b \0 \0 020
0004460 \0 ( 1 1 5 Q P R O L O G . I N
0004500 I T . M E M O R Y . F I R S T
0004520 1 0 4 Q T E R P R I 7 7 Q
0004540 P R I N 1 6 3 Q \ A L L O C
0004560 P A G E B L O C K 5 1 Q P R
0004600 I N 1 3 6 Q A R R A Y 1 5
0004620 Q A R R A Y ) \r ( 1 1 2 Q Q
0004640 P . A B a s e 1 0 7 Q Q P .
0004660 m e m b o t 6 6 Q Q P . m e
0004700 m b o t 5 4 Q Q P . m e m b
0004720 o t 4 1 Q P R O L O G . E N
0004740 A B L E . P U F N . T A B L E
0004760 2 6 Q W O R D 2 0 Q P R O
0005000 L O G . P U F N . T A B L E 5
0005020 W O R D ) \r ( 7 3 Q " d o
0005040 n e . " 4 5 Q " G r a b b i
0005060 n g 4 m b o f v m e m -
0005100 t h i s w i l l t a k e
0005120 a w h i l e . . . " ) \r P R
0005140 O L O G . S I N G L E S T E P
0005160 D 1 \r N I L \0 020 \0 \0 \0 \0 o \0 \0
0005200 \0 i \n \0 \0 \b \0 \0 \b \0 \0 020 \0 ( 1 5
0005220 Q T E R P R I 1 2 Q \ G E
0005240 T K E Y 7 P R I N 1 ) \r N I
0005260 L \r ( 3 " S i n g l e s t
0005300 e p ( t y p e k e y t o
0005320 c o n t i n u e ) > > " ) \r
0005340 ( P R E T T Y C O M P R I N T
0005360 P U T I L C O M S ) \r ( R P A Q
0005400 Q P U T I L C O M S ( ( D E
0005420 C L A R E : D O N T E V A L @
0005440 L O A D D O C O P Y ( F I L
0005460 E S O P C O D E M E N U O P
0005500 C O D E H I S T ) ) ( F N S
0005520 \ D O G C 1 ) ( F N S \r D O
0005540 N . T E S T . S E T U P D U M
0005560 M Y . F O R . C O M P I L E R
0005600 M a k e U C o d e B a s e A d d
0005620 r M a k e U C o d e R e a l B
0005640 a s e A d d r P R O L O G . I
0005660 N I T . M E M O R Y \r P R O L
0005700 O G . I N I T . M E M O R Y . F
0005720 I R S T ) ( F N S F I L L .
0005740 P C . T A B L E ) ( F N S L
0005760 O C K . T A B L E S C R E A T
0006000 E . T A B L E S ) ( F N S P
0006020 R O L O G . S I N G L E S T E P
0006040 ) \r ( M A C R O S P R O L O
0006060 G . D U M M Y . G O E S P R O
0006100 L O G . G E T N E X T L I S P B
0006120 Y T E C O D E P R O L O G O P
0006140 ) ( I N I T V A R S ( Q P .
0006160 m e m b o t ) ) ( C O N S T A
0006200 N T S \r Q P . A R e g . p a g
0006220 e s Q P . p a g e s ) ( V A
0006240 R S P R O L O G . T A R G E T
0006260 . O P ) ( P R O P A R G N A
0006300 M E S P R O L O G O P ) ( D
0006320 E C L A R E : D O N T E V A L
0006340 @ L O A D \r D O E V A L @ C O
0006360 M P I L E D O N T C O P Y C
0006400 O M P I L E R V A R S ( A D D
0006420 V A R S ( N L A M A ) ( N L
0006440 A M L ) ( L A M A ) ) ) ) ) \r
0006460 ( F I L E S L O A D O P C O D
0006500 E M E N U O P C O D E H I S T
0006520 ) \r ( P U T P R O P S P R O L
0006540 O G . D U M M Y . G O E S M A
0006560 C R O ( A R G S ( L E T (
0006600 ( N ( C A R A R G S ) ) )
0006620 ( B Q U O T E ( S E L E C T Q
0006640 ( D U M M Y . F O R . C O M P
0006660 I L E R ) ( \r S T A R T ( G
0006700 O S T A R T ) ) , @ ( f o
0006720 r X f r o m 0 t o N
0006740 c o l l e c t ( B Q U O T E
0006760 ( , ( P R O L O G . G E N . O
0007000 P # X ) ( G O , ( P R O
0007020 L O G . G E N . O P # X ) \r )
0007040 ) ) ) ( , ( P R O L O G . G
0007060 E N . O P # 2 5 5 ) ( G O
0007100 , ( P R O L O G . G E N . O P
0007120 # 2 5 5 ) ) ) ( F I N I S H
0007140 E D ( G O F I N I S H E D )
0007160 ) N I L ) ) ) ) ) \r ( P U T P
0007200 R O P S P R O L O G . G E T N
0007220 E X T L I S P B Y T E C O D E
0007240 M A C R O ( N I L ( C O D E
0007260 L T C A ( P R O G 1 C O D
0007300 E L O C ( a d d C O D E L O
0007320 C 1 ) ) ) ) ) \r ( P U T P R O
0007340 P S P R O L O G O P D M A C
0007360 R O ( A R G S ( L E T ( (
0007400 O P # ( C A R A R G S ) )
0007420 ( P C I N C R ( C A D R A R
0007440 G S ) ) ( A C T I O N ( C D
0007460 D R A R G S ) ) ) ( \r B Q U
0007500 O T E ( ( O P C O D E S P O
0007520 P D I S P ) ( P R O G N ( (
0007540 O P C O D E S , @ ( M K L I
0007560 S T P R O L O G . T A R G E T
0007600 . O P ) , O P # ) ) , @
0007620 A C T I O N , @ ( i f \r P
0007640 C I N C R t h e n ( L I S T
0007660 P C I N C R ) ) ) ) ) ) ) ) \r
0007700 ( R P A Q ? Q P . m e m b o t
0007720 ) \r ( R P A Q Q Q P . A R e g
0007740 . p a g e s 2 ) \r ( R P A Q Q
0007760 Q P . p a g e s 8 1 9 2 ) \r
0010000 ( C O N S T A N T S Q P . A R
0010020 e g . p a g e s Q P . p a g e
0010040 s ) \r ( R P A Q Q P R O L O G
0010060 . T A R G E T . O P ( R A I D
0010100 S I C ) ) \r ( P U T P R O P S
0010120 P R O L O G O P A R G N A M
0010140 E S ( O P # P C I N C R .
0010160 A C T I O N ) ) \r ( P U T P R
0010200 O P S P U T I L C O P Y R I
0010220 G H T ( " X e r o x C o r p
0010240 o r a t i o n " 1 9 8 5 ) ) \r
0010260 N I L \r
0010264