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