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