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