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