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