$ od -c -N 50000 [eris]<LispCore>PROLOG>KOTO>FPKG>OPCODES.DCOM!3
0000000 ( F I L E C R E A T E D " 1 6
0000020 - O c t - 8 5 1 5 : 4 8 : 3 4
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 > O P C O D E S
0000120 . ; 9 ) \r " 1 5 - O c t - 8 5
0000140 2 0 : 2 3 : 1 6 " r e c o m
0000160 p i l e d c h a n g e s : \
0000200 W R I T E - T O P - H A L F \
0000220 R E A D - T O P - H A L F \ W
0000240 R I T E - B O T T O M - H A L F
0000260 \r \ R E A D - B O T T O M - H
0000300 A L F P R O L O G . S A V E .
0000320 R E G I S T E R S P R O L O G
0000340 . R E S T O R E . R E G I S T E
0000360 R S \ M A K E - R E G I S T E
0000400 R - F I L E \r P R O L O G . A
0000420 R O U N D E X I T F N i n "
0000440 I N T E R L I S P - D 1 5 - O
0000460 c t - 8 5 . . . " d a t e d
0000500 " 1 5 - O c t - 8 5 2 0 : 4
0000520 2 : 5 5 " ) \r ( F I L E C R E A
0000540 T E D " 1 6 - O c t - 8 5 1
0000560 5 : 4 8 : 0 6 " { E R I S } <
0000600 L I S P C O R E > P R O L O G >
0000620 O P C O D E S . ; 9 1 2 6 3 5
0000640 c h a n g e s t o : ( F N
0000660 S \r P R O L O G . S A V E . R
0000700 E G I S T E R S P R O L O G .
0000720 R E S T O R E . R E G I S T E R
0000740 S P R O L O G . A R O U N D E
0000760 X I T F N \ W R I T E - T O P
0001000 - H A L F \ R E A D - T O P -
0001020 H A L F \r \ W R I T E - B O T
0001040 T O M - H A L F \ R E A D - B
0001060 O T T O M - H A L F \ M A K E
0001100 - R E G I S T E R - F I L E )
0001120 ( V A R S O P C O D E S C O M
0001140 S ) ( P R O P S ( P O P D I
0001160 S P D O P V A L ) ) \r p r e
0001200 v i o u s d a t e : " 1 6 -
0001220 O c t - 8 5 1 1 : 1 6 : 0 8 "
0001240 { E R I S } < L I S P C O R E
0001260 > P R O L O G > O P C O D E S .
0001300 ; 5 ) \r P R O L O G . G E N . O
0001320 P # D 1 \r ( I 0 O P # )
0001340 \0 \n \0 \0 \0 001 o \0 \0 \0 @ \n \0 \0 020 \0
0001360 ( 7 P A C K * ) \r N I L \r (
0001400 3 " O P " ) \r P R O L O G . I
0001420 N C R . P D 1 \r N I L \0 020 001
0001440 \0 \0 \0 n 356 355 4 021 001 \0 n 356 355 H k 320
0001460 7 020 \0 N I L \r N I L \r ( ) \r R e
0001500 a d P r o l o g P t r D 1 \r (
0001520 I 0 R e g i s t e r N a m e
0001540 ) \0 \a \0 \0 001 001 @ \t \0 \0 4 020 \0 (
0001560 3 P r o l o g N a m e T o U R
0001600 e g s ) \r N I L \r ( ) \r R e a d
0001620 P r o l o g T a g D 1 \r ( I
0001640 0 R e g i s t e r N a m e )
0001660 \0 \a \0 \0 001 001 @ \t \0 \0 5 020 \0 ( 3
0001700 P r o l o g N a m e T o U R e g
0001720 s ) \r N I L \r ( ) \r W r i t e P
0001740 r o l o g P t r A n d 0 T a g
0001760 D 1 \r ( I 1 P t r V a l I
0002000 0 R e g i s t e r N a m e )
0002020 \0 \v \0 \0 001 002 @ \t \0 \0 A \t \0 \0 7
0002040 020 \0 ( 7 E V A L 3 P r o l
0002060 o g N a m e T o U R e g s ) \r N
0002100 I L \r ( ) \r W r i t e P r o l o
0002120 g T a g A n d P t r D 1 \r ( I
0002140 2 P t r V a l I 1 T a
0002160 g V a l I 0 R e g i s t e
0002200 r N a m e ) \0 017 \0 \0 001 003 @ \t \0
0002220 \0 A \t \0 \0 B \t \0 \0 6 020 \0 ( 1 3 Q
0002240 E V A L 7 E V A L 3 P
0002260 r o l o g N a m e T o U R e g s
0002300 ) \r N I L \r ( ) \r \ W R I T E -
0002320 T O P - H A L F D 1 \r ( L (
0002340 1 V A L U E 0 R E G I S T
0002360 E R ) ) \0 017 001 \0 \0 002 @ 002 002 001 021
0002400 001 \0 H 341 H 344 A 7 020 \0 N I L \r N I
0002420 L \r ( ) \r \ R E A D - T O P - H
0002440 A L F D 1 \r ( L ( 0 R E G
0002460 I S T E R ) ) \0 016 001 \0 \0 001 @ 002
0002500 002 001 021 001 \0 H 341 H 344 4 020 \0 N I L \r
0002520 N I L \r ( ) \r \ W R I T E - B O
0002540 T T O M - H A L F D 1 \r ( L
0002560 ( 1 V A L U E 0 R E G I S
0002600 T E R ) ) \0 016 001 \0 \0 002 @ 002 001 021
0002620 001 \0 H 341 H 344 A 7 020 \0 N I L \r N I
0002640 L \r ( ) \r \ R E A D - B O T T O
0002660 M - H A L F D 1 \r ( I 0 R
0002700 E G I S T E R ) \0 027 002 \0 \0 001 @
0002720 002 001 g \0 \0 ` \0 \0 026 002 002 001 021 002 001 I
0002740 341 H 344 4 020 \0 N I L \r ( 1 0 Q R
0002760 E G I S T E R . A S S I G N M E
0003000 N T S 5 Z e r o ) \r ( ) \r P
0003020 R O L O G . S A V E . R E G I S
0003040 T E R S D 1 \r ( P 2 R E G
0003060 I S T E R P 1 R E G # )
0003100 \0 O 004 \0 \0 \0 ` \0 \0 j 021 " 003 H 003 265
0003120 004 h 020 001 Z 001 [ g \0 \0 360 263 0 K g \0
0003140 \0 360 263 ) K g \0 \0 360 263 " ` \0 \0 I l
0003160 002 332 320 J \t \0 \0 315 \0 277 ` \0 \0 I l 002
0003200 332 k 330 320 J \t \0 \0 315 \0 277 H 002 270 I k
0003220 324 271 260 273 \0 ( 1 0 1 Q \ R E A D
0003240 - B O T T O M - H A L F 6 0 Q
0003260 \ R E A D - T O P - H A L F )
0003300 \r ( 6 6 Q \ R E G I S T E R -
0003320 F I L E 4 7 Q \ R E G I S T
0003340 E R - F I L E 4 1 Q Z e r o
0003360 3 2 Q T r a s h a b l e 2
0003400 3 Q * 2 R E G I S T E R .
0003420 A S S I G N M E N T S ) \r ( ) \r
0003440 P R O L O G . R E S T O R E . R
0003460 E G I S T E R S D 1 \r ( P 2
0003500 R E G I S T E R P 1 R E
0003520 G # ) \0 O 004 \0 \0 \0 ` \0 \0 j 021 "
0003540 003 H 003 265 004 h 020 001 Z 001 [ g \0 \0 360 263
0003560 0 K g \0 \0 360 263 ) K g \0 \0 360 263 " J
0003600 ` \0 \0 I l 002 332 320 310 \0 \n \0 \0 277 J `
0003620 \0 \0 I l 002 332 k 330 320 310 \0 \n \0 \0 277 H
0003640 002 270 I k 324 271 260 273 \0 ( 1 0 3 Q \
0003660 W R I T E - B O T T O M - H A L
0003700 F 6 2 Q \ W R I T E - T O P
0003720 - H A L F ) \r ( 6 7 Q \ R E G
0003740 I S T E R - F I L E 5 0 Q \
0003760 R E G I S T E R - F I L E 4 1
0004000 Q Z e r o 3 2 Q T r a s h
0004020 a b l e 2 3 Q * 2 R E G
0004040 I S T E R . A S S I G N M E N T
0004060 S ) \r ( ) \r P r o l o g N a m e
0004100 T o U R e g s D 1 \r ( P 0
0004120 R E G I 0 N A M E F 1
0004140 R E G I S T E R . A S S I G N
0004160 M E N T S ) \0 037 001 001 \0 001 @ Q \n
0004200 \0 \0 021 001 \0 H 265 \f o \0 \0 \0 @ \n \0 \0
0004220 277 H 002 001 341 H 002 002 001 344 020 \0 ( 2 2 Q
0004240 H E L P 4 F A S S O C ) \r
0004260 N I L \r ( 1 6 Q " U n k n o
0004300 w n P r o l o g r e g i s t
0004320 e r " ) \r P r o l o g N a m e T
0004340 o H i U R e g D 1 \r ( P 0
0004360 R E G I 0 N A M E F 1
0004400 R E G I S T E R . A S S I G N
0004420 M E N T S ) \0 032 001 001 \0 001 @ Q \n
0004440 \0 \0 021 001 \0 H 265 \f o \0 \0 \0 @ \n \0 \0
0004460 277 H 002 002 001 020 \0 ( 2 2 Q H E L P
0004500 4 F A S S O C ) \r N I L \r (
0004520 1 6 Q " U n k n o w n P r
0004540 o l o g r e g i s t e r " ) \r
0004560 P r o l o g N a m e T o L o U R
0004600 e g D 1 \r ( P 0 R E G I
0004620 0 N A M E F 1 R E G I
0004640 S T E R . A S S I G N M E N T S
0004660 ) \0 031 001 001 \0 001 @ Q \n \0 \0 021 001 \0
0004700 H 265 \f o \0 \0 \0 @ \n \0 \0 277 H 002 001 020
0004720 \0 ( 2 2 Q H E L P 4 F A S
0004740 S O C ) \r N I L \r ( 1 6 Q "
0004760 U n k n o w n P r o l o g r
0005000 e g i s t e r " ) \r M A K E O P
0005020 D 1 \r ( P 0 I t s O p c o
0005040 d e I 1 U F N F N I 0
0005060 I n s t r u c t i o n N a m e
0005100 ) \0 4 002 \0 \0 002 @ \t \0 \0 021 021 001 H
0005120 001 A H 002 002 001 Y j 360 263 037 I 005 003 265 025
0005140 k k 330 H 002 002 002 002 001 331 H 002 002 001 \f \0
0005160 \0 h 020 \t \0 \0 262 352 j 260 350 \0 ( 5 5 Q
0005200 \ F Z E R O P 5 0 Q \ S E
0005220 T U F N E N T R Y 3 \ F I N
0005240 D O P ) \r N I L \r ( ) \r \ R D P
0005260 R O L O G P T R . U F N D 1 \r
0005300 ( I 1 B I 0 A ) \0 \a
0005320 \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 H E
0005340 L P ) \r N I L \r ( ) \r \ P O P D
0005360 I S P . U F N D 1 \r ( I 1
0005400 B I 0 A ) \0 \a \0 \0 \0 002 @
0005420 A \n \0 \0 020 \0 ( 4 H E L P ) \r N
0005440 I L \r ( ) \r \ R D P R O L O G T
0005460 A G . U F N D 1 \r ( I 1 B
0005500 I 0 A ) \0 \a \0 \0 \0 002 @ A
0005520 \n \0 \0 020 \0 ( 4 H E L P ) \r N I
0005540 L \r ( ) \r \ W R T P T R & T A G
0005560 . U F N D 1 \r ( I 1 B I
0005600 0 A ) \0 \a \0 \0 \0 002 @ A \n \0
0005620 \0 020 \0 ( 4 H E L P ) \r N I L \r
0005640 ( ) \r \ W R T P T R & 0 T A G .
0005660 U F N D 1 \r ( I 1 B I
0005700 0 A ) \0 \a \0 \0 \0 002 @ A \n \0 \0
0005720 020 \0 ( 4 H E L P ) \r N I L \r (
0005740 ) \r \ M A K E - R E G I S T E R
0005760 - F I L E D 1 \r N I L \0 \v \0
0006000 \0 \0 \0 ` \0 \0 \t \0 \0 \t \0 \0 020 \0 ( 1
0006020 0 Q \ A L L O C B L O C K 5
0006040 L E N G T H ) \r ( 2 R E G I
0006060 S T E R . A S S I G N M E N T S
0006100 ) \r ( ) \r P R O L O G . A R O U
0006120 N D E X I T F N D 1 \r ( I 0
0006140 E V E N T ) \0 216 \0 \0 \0 001 ` \0
0006160 \0 264 003 202 261 \0 206 @ g \0 \0 360 256 @ g \0
0006200 \0 360 250 @ d g \0 \0 360 262 037 277 \b \0 \0 `
0006220 \0 \0 006 \0 \0 311 \0 k \n \0 \0 ` \0 \0 006 \0
0006240 \0 311 \0 k \n \0 \0 020 g \0 \0 360 263 025 @ g
0006260 \0 \0 360 254 @ g \0 \0 360 246 @ g \0 \0 360 264
0006300 ; \b \0 \0 ` \0 \0 006 \0 \0 311 \0 k \n \0 \0
0006320 ` \0 \0 006 \0 \0 311 \0 k \n \0 \0 n k k `
0006340 \0 \0 006 \0 \0 311 \0 \t \0 \0 7 n l l ` \0
0006360 \0 006 \0 \0 311 \0 \t \0 \0 7 020 \0 ( 2 1 2
0006400 Q M a k e U C o d e R e a l B
0006420 a s e A d d r 1 7 3 Q M a k
0006440 e U C o d e R e a l B a s e A d
0006460 d r 1 5 5 Q \ L O C K P A G
0006500 E S 1 4 1 Q \ L O C K P A G
0006520 E S 1 2 5 Q P R O L O G . R
0006540 E S T O R E . R E G I S T E R S
0006560 7 0 Q \ U N L O C K P A G E
0006600 S 5 4 Q \ U N L O C K P A G
0006620 E S 4 0 Q P R O L O G . S A
0006640 V E . R E G I S T E R S ) \r ( 2
0006660 0 5 Q A R R A Y P 2 0 2 Q
0006700 P R O L O G . E N A B L E . P U
0006720 F N . T A B L E 1 6 6 Q A R
0006740 R A Y P 1 6 3 Q P R O L O G
0006760 . P U F N . T A B L E 1 4 7 Q
0007000 A R R A Y P 1 4 4 Q P R O
0007020 L O G . E N A B L E . P U F N .
0007040 T A B L E 1 3 3 Q A R R A Y
0007060 P 1 3 0 Q P R O L O G . P U
0007100 F N . T A B L E 1 1 7 Q A F
0007120 T E R S A V E V M 1 1 1 Q A
0007140 F T E R S Y S O U T 1 0 3 Q
0007160 A F T E R M A K E S Y S 7 4 Q
0007200 A F T E R L O G O U T 6 2 Q
0007220 A R R A Y P 5 7 Q P R O L
0007240 O G . E N A B L E . P U F N . T
0007260 A B L E 4 6 Q A R R A Y P
0007300 4 3 Q P R O L O G . P U F N .
0007320 T A B L E 3 1 Q B E F O R E
0007340 S Y S O U T 2 2 Q B E F O R
0007360 E M A K E S Y S 1 4 Q B E F
0007400 O R E L O G O U T 2 Q P . m
0007420 e m b o t ) \r ( ) \r ( P R E T T
0007440 Y C O M P R I N T O P C O D E
0007460 S C O M S ) \r ( R P A Q Q O P
0007500 C O D E S C O M S ( ( F N S
0007520 P R O L O G . G E N . O P # P
0007540 R O L O G . I N C R . P R e a
0007560 d P r o l o g P t r R e a d P
0007600 r o l o g T a g \r W r i t e P
0007620 r o l o g P t r A n d 0 T a g
0007640 W r i t e P r o l o g T a g A n
0007660 d P t r ) ( F N S \ W R I T
0007700 E - T O P - H A L F \ R E A D
0007720 - T O P - H A L F \ W R I T E
0007740 - B O T T O M - H A L F \r \ R
0007760 E A D - B O T T O M - H A L F
0010000 P R O L O G . S A V E . R E G I
0010020 S T E R S P R O L O G . R E S
0010040 T O R E . R E G I S T E R S )
0010060 ( V A R S R E G I S T E R . A
0010100 S S I G N M E N T S ) ( R E C
0010120 O R D S \r R E G I S T E R D E
0010140 F ) ( F N S P r o l o g N a
0010160 m e T o U R e g s P r o l o g
0010200 N a m e T o H i U R e g P r o
0010220 l o g N a m e T o L o U R e g )
0010240 ( M A C R O S P R O L O G .
0010260 I N C R . P \r R e a d P r o l
0010300 o g P t r R e a d P r o l o g
0010320 T a g W r i t e P r o l o g P
0010340 t r A n d 0 T a g W r i t e P
0010360 r o l o g T a g A n d P t r W
0010400 r i t e P r o l o g 1 6 R e a
0010420 d P r o l o g 1 6 ) ( \r M A C
0010440 R O S P r o l o g O p c o d e
0010460 ) ( F N S M A K E O P ) (
0010500 F N S \ R D P R O L O G P T R
0010520 . U F N \ P O P D I S P . U F
0010540 N \ R D P R O L O G T A G . U
0010560 F N \ W R T P T R & T A G . U
0010600 F N \r \ W R T P T R & 0 T A G
0010620 . U F N ) ( P R O P D O P V
0010640 A L P O P D I S P ) ( F N S
0010660 \ M A K E - R E G I S T E R -
0010700 F I L E ) ( D E C L A R E :
0010720 D O N T E V A L @ L O A D D O
0010740 C O P Y ( * ) ( \r V A R S
0010760 ( \ R E G I S T E R - F I L E
0011000 ( \ M A K E - R E G I S T E R -
0011020 F I L E ) ) ) ) ( F N S P R
0011040 O L O G . A R O U N D E X I T F
0011060 N ) ( D E C L A R E : D O N
0011100 T E V A L @ L O A D D O C O P
0011120 Y \r ( * ) ( A D D V A R S
0011140 ( A R O U N D E X I T F N S P
0011160 R O L O G . A R O U N D E X I T
0011200 F N ) ) ) ( D E C L A R E :
0011220 D O N T E V A L @ L O A D D O
0011240 E V A L @ C O M P I L E D O N
0011260 T C O P Y \r C O M P I L E R V
0011300 A R S ( A D D V A R S ( N L
0011320 A M A ) ( N L A M L W r i t
0011340 e P r o l o g T a g A n d P t r
0011360 W r i t e P r o l o g P t r A
0011400 n d 0 T a g R e a d P r o l o
0011420 g T a g \r R e a d P r o l o g
0011440 P t r ) ( L A M A ) ) ) ) ) \r
0011460 ( R P A Q Q R E G I S T E R .
0011500 A S S I G N M E N T S ( ( P
0011520 2 8 2 2 ) ( C P 6 1 1 5
0011540 4 ) ( C 2 3 4 2 3 3 ) (
0011560 R 2 3 2 2 3 1 ) ( S 2 2
0011600 9 2 2 7 ) ( H 2 2 3 2 2
0011620 1 ) ( H B \r 2 2 0 2 1 9 )
0011640 ( T R 2 1 8 2 1 7 ) ( E
0011660 2 1 1 2 0 6 ) ( B 2 0 5
0011700 2 0 4 ) ( B 0 1 9 3 1 8
0011720 9 ) ( T 0 1 8 8 1 8 6 )
0011740 ( T 1 1 7 7 1 5 9 ) ( N
0011760 1 5 5 1 5 5 ) ( I \r 1 1 0
0012000 1 1 0 ) ( * * S p e c i
0012020 a l r e g i s t e r s ) ( A
0012040 1 2 1 2 0 ) ( A 2 2 3 8
0012060 2 3 7 ) ( A 3 2 3 6 2 3
0012100 5 ) ( A 4 1 8 1 7 ) ( W
0012120 5 4 5 4 ) ( D e b u g 6
0012140 0 \r 6 0 ) ( L M B a s e 1
0012160 0 8 1 0 8 ) ( P U f n T a b
0012200 l e B a s e 1 0 7 1 0 7 )
0012220 ( L i s p E m u C o d e B a s e
0012240 9 5 9 4 ) ( V M l i m 1
0012260 5 6 1 5 6 ) ( A 0 B a s e
0012300 1 5 8 1 5 8 ) \r ( A 1 B a s
0012320 e 1 5 7 1 5 7 ) ( P F C o
0012340 n t 7 8 7 8 ) ( S t e p
0012360 6 2 6 2 ) ( * * ( A B a
0012400 s e 1 4 7 1 4 7 ) ) ( T r
0012420 a s h a b l e 5 5 5 5 ) (
0012440 Z e r o 9 7 9 7 ) ) ) \r ( R
0012460 E C O R D R E G I S T E R D E
0012500 F ( N A M E A L O A H I )
0012520 ) \r ( P U T P R O P S P R O L
0012540 O G . I N C R . P M A C R O
0012560 ( Q U O T E ( L E T ( ( O L
0012600 D P C ( R e a d P r o l o g P
0012620 t r P ) ) ) ( W r i t e P r
0012640 o l o g P t r A n d 0 T a g P
0012660 ( \r \ A D D B A S E O L D P
0012700 C 1 ) ) ) ) ) \r ( P U T P R O
0012720 P S R e a d P r o l o g P t r
0012740 M A C R O ( A R G S ( L E
0012760 T * ( ( R e g i s t e r N a m
0013000 e ( C A R A R G S ) ) ( R
0013020 E G D E F ( P r o l o g N a m
0013040 e T o U R e g s \r R e g i s t
0013060 e r N a m e ) ) ) ( B Q U O T
0013100 E ( ( O P C O D E S R D P R
0013120 O L O G P T R ) , R E G D E
0013140 F ) ) ) ) ) \r ( P U T P R O P S
0013160 R e a d P r o l o g T a g M
0013200 A C R O ( A R G S ( L E T *
0013220 ( ( R e g i s t e r N a m e
0013240 ( C A R A R G S ) ) ( R E G
0013260 D E F ( P r o l o g N a m e T
0013300 o U R e g s \r R e g i s t e r
0013320 N a m e ) ) ) ( B Q U O T E
0013340 ( ( O P C O D E S R D P R O L
0013360 O G T A G ) , R E G D E F )
0013400 ) ) ) ) \r ( P U T P R O P S W
0013420 r i t e P r o l o g P t r A n d
0013440 0 T a g M A C R O ( A R G S
0013460 ( L E T * ( ( R e g i s t e
0013500 r N a m e ( C A R A R G S )
0013520 ) ( P t r V a l ( C A D R
0013540 A R G S ) ) ( \r R E G D E F
0013560 ( P r o l o g N a m e T o U R e
0013600 g s R e g i s t e r N a m e )
0013620 ) ) ( B Q U O T E ( ( O P C
0013640 O D E S W R T P T R & 0 T A G
0013660 ) , R E G D E F , P t r
0013700 V a l ) ) ) ) ) \r ( P U T P R O
0013720 P S W r i t e P r o l o g T a
0013740 g A n d P t r M A C R O ( A
0013760 R G S ( L E T * ( ( R e g i
0014000 s t e r N a m e ( C A R A R
0014020 G S ) ) ( T a g V a l ( C A
0014040 D R A R G S ) ) ( \r P t r V
0014060 a l ( C A D D R A R G S ) )
0014100 ( R E G D E F ( P r o l o g
0014120 N a m e T o U R e g s R e g i
0014140 s t e r N a m e ) ) ) ( B Q U
0014160 O T E ( ( O P C O D E S W R
0014200 T P T R & T A G ) , R E G D
0014220 E F \r , T a g V a l , P
0014240 t r V a l ) ) ) ) ) \r ( P U T P
0014260 R O P S W r i t e P r o l o g
0014300 1 6 M A C R O ( A R G S (
0014320 * * w r i t e 1 6 b i t
0014340 s i n t o a P r o l o g
0014360 r e g i s t e r . S i m u l a
0014400 t e d b y w r i t i n g 2
0014420 4 \r b i t s i n t w o c
0014440 h u n k s - t h e s e c o
0014460 n d c h u n k o v e r w r i
0014500 t e s t h e f i r s t . H
0014520 A C K ! ) ( L E T * ( ( R e
0014540 g i s t e r N a m e ( C A R
0014560 A R G S ) ) ( \r P t r V a l
0014600 ( C A D R A R G S ) ) ( R E
0014620 G D E F ( P r o l o g N a m e
0014640 T o L o U R e g R e g i s t e
0014660 r N a m e ) ) ) ( B Q U O T E
0014700 ( ( O P C O D E S W R T P T
0014720 R & 0 T A G ) , ( \r L O G O
0014740 R ( L L S H R E G D E F 8
0014760 ) R E G D E F ) , P t r V
0015000 a l ) ) ) ) ) \r ( P U T P R O P
0015020 S R e a d P r o l o g 1 6 M
0015040 A C R O ( A R G S ( * *
0015060 r e a d 1 6 b i t s f r o
0015100 m a P r o l o g r e g i s
0015120 t e r . W e d o t h i s
0015140 b y r e a d i n g \r f r o m
0015160 a z e r o r e g i s t e r
0015200 i n t o h i a n d t h e
0015220 r e g i s t e r w e w a n
0015240 t i n t o l o . H A C K !
0015260 ) ( L E T * ( ( R e g i s t
0015300 e r N a m e ( C A R A R G S
0015320 ) ) \r ( R E G D E F ( P r o
0015340 l o g N a m e T o L o U R e g
0015360 R e g i s t e r N a m e ) ) (
0015400 Z E R O R E G D E F ( P r o l
0015420 o g N a m e T o L o U R e g (
0015440 Q U O T E Z e r o ) ) ) ) (
0015460 B Q U O T E ( ( \r O P C O D E
0015500 S R D P R O L O G P T R ) ,
0015520 ( L O G O R ( L L S H Z E
0015540 R O R E G D E F 8 ) R E G D
0015560 E F ) ) ) ) ) ) \r ( P U T P R O
0015600 P S P r o l o g O p c o d e
0015620 M A C R O ( A R G S ( L E T
0015640 ( ( N ( C A R A R G S ) )
0015660 ) ( L I S T ( M K A T O M
0015700 ( C O N C A T " P r o l o g O
0015720 p " N ) ) ) ) ) ) \r ( P U T P
0015740 R O P S P O P D I S P D O P
0015760 V A L ( 1 P O P D I S P ) )
0016000 \r ( R P A Q \ R E G I S T E R
0016020 - F I L E ( \ M A K E - R E G
0016040 I S T E R - F I L E ) ) \r ( A D
0016060 D T O V A R A R O U N D E X I
0016100 T F N S P R O L O G . A R O U
0016120 N D E X I T F N ) \r ( P U T P R
0016140 O P S O P C O D E S C O P Y
0016160 R I G H T ( " X e r o x C o
0016200 r p o r a t i o n " 1 9 8 5 )
0016220 ) \r N I L \r
0016226