$ od -c -N 50000 [eris]<LispCore>PROLOG>HERB>OPCODES.DCOM!21
0000000 ( F I L E C R E A T E D " 4
0000020 - J u n - 8 5 2 2 : 1 4 : 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 > O P
0000120 C O D E S . % ; 2 4 ) \r " 1 9
0000140 - M a r - 8 5 1 4 : 3 4 : 1 7
0000160 " r e c o m p i l e d c h a
0000200 n g e s : P r o l o g N a m e
0000220 T o U R e g s P r o l o g N a
0000240 m e T o H i U R e g P r o l o
0000260 g N a m e T o L o U R e g \r P
0000300 R O L O G . A R O U N D E X I T
0000320 F N M A K E O P \ R D P R O
0000340 L O G P T R . U F N \ P O P D
0000360 I S P . U F N \ R D P R O L O
0000400 G T A G . U F N \ W R T P T R
0000420 & T A G . U F N \r \ W R T P T
0000440 R & 0 T A G . U F N i n " I
0000460 N T E R L I S P - D 1 6 - A p
0000500 r - 8 5 . . . " d a t e d
0000520 " 1 6 - A p r - 8 5 1 3 : 0 2
0000540 : 1 5 " ) \r ( F I L E C R E A T
0000560 E D " 4 - J u n - 8 5 2 2
0000600 : 1 3 : 4 7 " { E R I S } < L
0000620 I S P C O R E > P R O L O G > H
0000640 E R B > O P C O D E S . % ; 2 4
0000660 1 6 1 5 8 c h a n g e s t
0000700 o : ( V A R S \r R E G I S T
0000720 E R . A S S I G N M E N T S O
0000740 P C O D E S C O M S ) ( F N S
0000760 M A K E O P \ R D P R O L O
0001000 G P T R . U F N \ W R T P T R
0001020 & 0 T A G . U F N \ W R T P T
0001040 R & T A G . U F N \r \ R D P R
0001060 O L O G T A G . U F N \ P O P
0001100 D I S P . U F N P r o l o g N
0001120 a m e T o U R e g s P r o l o
0001140 g N a m e T o H i U R e g P r
0001160 o l o g N a m e T o L o U R e g
0001200 \r P R O L O G . A R O U N D E
0001220 X I T F N ) p r e v i o u s
0001240 d a t e : " 3 1 - M a y - 8 5
0001260 1 5 : 2 7 : 1 0 " { E R I S
0001300 } < L I S P C O R E > P R O L O
0001320 G > H E R B > O P C O D E S . %
0001340 ; 2 3 ) \r P R O L O G . G E N .
0001360 O P # D 1 \r ( I 0 O P # )
0001400 \0 \n \0 \0 \0 001 o \0 \0 \0 @ \n \0 \0 020
0001420 \0 ( 7 P A C K * ) \r N I L \r (
0001440 3 " O P " ) \r P R O L O G .
0001460 I N C R . P D 1 \r N I L \0 020
0001500 001 \0 \0 \0 n 356 355 4 021 001 \0 n 356 355 H k
0001520 320 7 020 \0 N I L \r N I L \r ( ) \r R
0001540 e a d P r o l o g P t r D 1 \r
0001560 ( I 0 R e g i s t e r N a m
0001600 e ) \0 \a \0 \0 001 001 @ \t \0 \0 4 020 \0
0001620 ( 3 P r o l o g N a m e T o U
0001640 R e g s ) \r N I L \r ( ) \r R e a
0001660 d P r o l o g T a g D 1 \r ( I
0001700 0 R e g i s t e r N a m e )
0001720 \0 \a \0 \0 001 001 @ \t \0 \0 5 020 \0 ( 3
0001740 P r o l o g N a m e T o U R e
0001760 g s ) \r N I L \r ( ) \r W r i t e
0002000 P r o l o g P t r A n d 0 T a g
0002020 D 1 \r ( I 1 P t r V a l
0002040 I 0 R e g i s t e r N a m e
0002060 ) \0 \v \0 \0 001 002 @ \t \0 \0 A \t \0 \0
0002100 7 020 \0 ( 7 E V A L 3 P r o
0002120 l o g N a m e T o U R e g s ) \r
0002140 N I L \r ( ) \r W r i t e P r o l
0002160 o g T a g A n d P t r D 1 \r (
0002200 I 2 P t r V a l I 1 T
0002220 a g V a l I 0 R e g i s t
0002240 e r N a m e ) \0 017 \0 \0 001 003 @ \t
0002260 \0 \0 A \t \0 \0 B \t \0 \0 6 020 \0 ( 1 3
0002300 Q E V A L 7 E V A L 3
0002320 P r o l o g N a m e T o U R e g
0002340 s ) \r N I L \r ( ) \r P r o l o g
0002360 N a m e T o U R e g s D 1 \r (
0002400 P 0 R E G I 0 N A M E
0002420 F 1 R E G I S T E R . A S
0002440 S I G N M E N T S ) \0 037 001 001 \0
0002460 001 @ Q \n \0 \0 021 001 \0 H 265 \f o \0 \0 \0
0002500 @ \n \0 \0 277 H 002 001 341 H 002 002 001 344 020 \0
0002520 ( 2 2 Q H E L P 4 F A S S
0002540 O C ) \r N I L \r ( 1 6 Q " U
0002560 n k n o w n P r o l o g r e
0002600 g i s t e r " ) \r P r o l o g N
0002620 a m e T o H i U R e g D 1 \r (
0002640 P 0 R E G I 0 N A M E
0002660 F 1 R E G I S T E R . A S
0002700 S I G N M E N T S ) \0 032 001 001 \0
0002720 001 @ Q \n \0 \0 021 001 \0 H 265 \f o \0 \0 \0
0002740 @ \n \0 \0 277 H 002 002 001 020 \0 ( 2 2 Q
0002760 H E L P 4 F A S S O C ) \r N
0003000 I L \r ( 1 6 Q " U n k n o w
0003020 n P r o l o g r e g i s t e
0003040 r " ) \r P r o l o g N a m e T o
0003060 L o U R e g D 1 \r ( P 0 R
0003100 E G I 0 N A M E F 1
0003120 R E G I S T E R . A S S I G N M
0003140 E N T S ) \0 031 001 001 \0 001 @ Q \n \0
0003160 \0 021 001 \0 H 265 \f o \0 \0 \0 @ \n \0 \0 277
0003200 H 002 001 020 \0 ( 2 2 Q H E L P 4
0003220 F A S S O C ) \r N I L \r ( 1
0003240 6 Q " U n k n o w n P r o l
0003260 o g r e g i s t e r " ) \r P R
0003300 O L O G . A R O U N D E X I T F
0003320 N D 1 \r ( I 0 E V E N T )
0003340 \0 210 \0 \0 \0 001 ` \0 \0 264 003 202 261 \0 200
0003360 @ g \0 \0 360 256 @ g \0 \0 360 250 @ d g \0
0003400 \0 360 262 034 277 ` \0 \0 006 \0 \0 311 \0 k \n \0
0003420 \0 ` \0 \0 006 \0 \0 311 \0 k \n \0 \0 020 g \0
0003440 \0 360 263 025 @ g \0 \0 360 254 @ g \0 \0 360 246
0003460 @ g \0 \0 360 264 8 ` \0 \0 006 \0 \0 311 \0 k
0003500 \n \0 \0 ` \0 \0 006 \0 \0 311 \0 k \n \0 \0 n
0003520 k k ` \0 \0 006 \0 \0 311 \0 \t \0 \0 7 n l
0003540 l ` \0 \0 006 \0 \0 311 \0 \t \0 \0 7 020 \0 (
0003560 2 0 4 Q M a k e U C o d e R e
0003600 a l B a s e A d d r 1 6 5 Q
0003620 M a k e U C o d e R e a l B a s
0003640 e A d d r 1 4 7 Q \ L O C K
0003660 P A G E S 1 3 3 Q \ L O C K
0003700 P A G E S 6 5 Q \ U N L O C
0003720 K P A G E S 5 1 Q \ U N L O
0003740 C K P A G E S ) \r ( 1 7 7 Q A
0003760 R R A Y P 1 7 4 Q P R O L O
0004000 G . E N A B L E . P U F N . T A
0004020 B L E 1 6 0 Q A R R A Y P
0004040 1 5 5 Q P R O L O G . P U F N
0004060 . T A B L E 1 4 1 Q A R R A
0004100 Y P 1 3 6 Q P R O L O G . E
0004120 N A B L E . P U F N . T A B L E
0004140 1 2 5 Q A R R A Y P 1 2 2
0004160 Q P R O L O G . P U F N . T A
0004200 B L E 1 1 4 Q A F T E R S A
0004220 V E V M 1 0 6 Q A F T E R S
0004240 Y S O U T 1 0 0 Q A F T E R
0004260 M A K E S Y S 7 1 Q A F T E
0004300 R L O G O U T 5 7 Q A R R A
0004320 Y P 5 4 Q P R O L O G . E N
0004340 A B L E . P U F N . T A B L E
0004360 4 3 Q A R R A Y P 4 0 Q P
0004400 R O L O G . P U F N . T A B L E
0004420 3 1 Q B E F O R E S Y S O U
0004440 T 2 2 Q B E F O R E M A K E
0004460 S Y S 1 4 Q B E F O R E L O
0004500 G O U T 2 Q P . m e m b o t
0004520 ) \r ( ) \r M A K E O P D 1 \r (
0004540 P 0 I t s O p c o d e I
0004560 1 U F N F N I 0 I n s t
0004600 r u c t i o n N a m e ) \0 4 002
0004620 \0 \0 002 @ \t \0 \0 021 021 001 H 001 A H 002 002
0004640 001 Y j 360 263 037 I 005 003 265 025 k k 330 H 002
0004660 002 002 002 001 331 H 002 002 001 \f \0 \0 h 020 \t \0
0004700 \0 262 352 j 260 350 \0 ( 5 5 Q \ F Z E
0004720 R O P 5 0 Q \ S E T U F N E
0004740 N T R Y 3 \ F I N D O P ) \r
0004760 N I L \r ( ) \r \ R D P R O L O G
0005000 P T R . U F N D 1 \r ( I 1
0005020 B I 0 A ) \0 \a \0 \0 \0 002 @
0005040 A \n \0 \0 020 \0 ( 4 H E L P ) \r N
0005060 I L \r ( ) \r \ P O P D I S P . U
0005100 F N D 1 \r ( I 1 B I 0
0005120 A ) \0 \a \0 \0 \0 002 @ A \n \0 \0 020
0005140 \0 ( 4 H E L P ) \r N I L \r ( )
0005160 \r \ R D P R O L O G T A G . U F
0005200 N D 1 \r ( I 1 B I 0
0005220 A ) \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0
0005240 ( 4 H E L P ) \r N I L \r ( ) \r
0005260 \ W R T P T R & T A G . U F N
0005300 D 1 \r ( I 1 B I 0 A )
0005320 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4
0005340 H E L P ) \r N I L \r ( ) \r \ W
0005360 R T P T R & 0 T A G . U F N D
0005400 1 \r ( I 1 B I 0 A )
0005420 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4
0005440 H E L P ) \r N I L \r ( ) \r ( P R
0005460 E T T Y C O M P R I N T O P C
0005500 O D E S C O M S ) \r ( R P A Q Q
0005520 O P C O D E S C O M S ( ( F
0005540 N S P R O L O G . G E N . O P
0005560 # P R O L O G . I N C R . P
0005600 R e a d P r o l o g P t r R e
0005620 a d P r o l o g T a g \r W r i
0005640 t e P r o l o g P t r A n d 0 T
0005660 a g W r i t e P r o l o g T a
0005700 g A n d P t r ) ( V A R S R
0005720 E G I S T E R . A S S I G N M E
0005740 N T S ) ( V A R S N E W \ O
0005760 P C O D E S ) ( P R O P \r D
0006000 O P V A L P O P D I S P ) (
0006020 R E C O R D S R E G I S T E R
0006040 D E F ) ( F N S P r o l o g
0006060 N a m e T o U R e g s P r o l
0006100 o g N a m e T o H i U R e g P
0006120 r o l o g N a m e T o L o U R e
0006140 g ) ( \r M A C R O S P R O L
0006160 O G . I N C R . P R e a d P r
0006200 o l o g P t r R e a d P r o l
0006220 o g T a g W r i t e P r o l o
0006240 g P t r A n d 0 T a g W r i t
0006260 e P r o l o g T a g A n d P t r
0006300 \r W r i t e P r o l o g 1 6
0006320 R e a d P r o l o g 1 6 ) ( M
0006340 A C R O S P r o l o g O p c o
0006360 d e ) ( A D D V A R S ( A R
0006400 O U N D E X I T F N S P R O L
0006420 O G . A R O U N D E X I T F N )
0006440 ) ( F N S \r P R O L O G . A
0006460 R O U N D E X I T F N ) ( F N
0006500 S M A K E O P ) ( F N S \
0006520 R D P R O L O G P T R . U F N
0006540 \ P O P D I S P . U F N \ R D
0006560 P R O L O G T A G . U F N \ W
0006600 R T P T R & T A G . U F N \r \
0006620 W R T P T R & 0 T A G . U F N )
0006640 ( P ( S E T Q \ O P C O D
0006660 E S N E W \ O P C O D E S )
0006700 ( S E T Q \ O P C O D E A R R
0006720 A Y N I L ) ) ( D E C L A R
0006740 E : D O N T E V A L @ L O A D
0006760 \r D O E V A L @ C O M P I L E
0007000 D O N T C O P Y C O M P I L
0007020 E R V A R S ( A D D V A R S
0007040 ( N L A M A ) ( N L A M L W
0007060 r i t e P r o l o g T a g A n d
0007100 P t r \r W r i t e P r o l o g
0007120 P t r A n d 0 T a g R e a d P
0007140 r o l o g T a g R e a d P r o
0007160 l o g P t r ) ( L A M A ) ) )
0007200 ) ) \r ( R P A Q Q R E G I S T
0007220 E R . A S S I G N M E N T S (
0007240 ( P 2 3 8 2 3 7 ) ( C P
0007260 2 3 6 2 3 5 ) ( C 2 3 4
0007300 2 3 3 ) ( R 2 3 2 2 3 1 )
0007320 ( S 2 2 9 2 2 7 ) ( H
0007340 2 2 3 2 2 1 ) \r ( H B 2 2
0007360 0 2 1 9 ) ( T R 2 1 8 2
0007400 1 7 ) ( E 2 1 1 2 0 6 )
0007420 ( B 2 0 5 2 0 4 ) ( B 0
0007440 1 9 3 1 8 9 ) ( T 0 1 8 8
0007460 1 8 6 ) ( T 1 1 7 7 1 5
0007500 9 ) ( N 1 5 5 1 5 5 ) (
0007520 \r I 1 1 0 1 1 0 ) ( * *
0007540 S p e c i a l r e g i s t e
0007560 r s ) ( A 1 2 1 2 0 ) (
0007600 A 2 2 8 2 2 ) ( A 3 6 1
0007620 1 5 4 ) ( A 4 1 8 1 7 )
0007640 ( W 5 4 5 4 ) ( D e b u
0007660 g 6 0 6 0 \r ) ( L M B a s
0007700 e 1 0 8 1 0 8 ) ( P U f n
0007720 T a b l e B a s e 1 0 7 1 0
0007740 7 ) ( L i s p E m u C o d e B
0007760 a s e 9 5 9 4 ) ( V M l i
0010000 m 1 5 6 1 5 6 ) ( A 0 B a
0010020 s e 1 5 8 1 5 8 ) ( \r A 1
0010040 B a s e 1 5 7 1 5 7 ) ( P
0010060 F C o n t 7 8 7 8 ) ( S t
0010100 e p 6 2 6 2 ) ( * * (
0010120 A B a s e 1 4 7 1 4 7 ) )
0010140 ( T r a s h a b l e 5 5 5 5
0010160 ) ( Z e r o 9 7 9 7 ) ) )
0010200 \r ( R P A Q Q N E W \ O P C O
0010220 D E S ( ( 0 - X - 0 ) (
0010240 1 C A R 0 T 0 N I L
0010260 \ C A R . U F N ) ( 2 C D R
0010300 0 T 0 N I L \ C D R .
0010320 U F N ) ( 3 L I S T P 0
0010340 T 0 N I L \r L I S T P )
0010360 ( 4 N T Y P X 0 T 0 N
0010400 I L N T Y P X ) ( 5 T Y P
0010420 E P 1 T Y P E P 0 ) ( 6
0010440 D T E S T 2 A T O M 0
0010460 N I L \ D T E S T F A I L )
0010500 ( 7 C D D R 0 T 0 \r N
0010520 I L C D D R ) ( 8 F N 0
0010540 2 F N 1 ) ( 9 F N 1 2
0010560 F N 0 ) ( 1 0 F N 2 2
0010600 F N - 1 ) ( 1 1 F N 3
0010620 2 F N - 2 ) ( 1 2 F N 4
0010640 2 F N - 3 ) ( 1 3 F N
0010660 X 3 \r F N X F N X ) ( 1
0010700 4 A P P L Y F N 0 T - 1
0010720 ) ( 1 5 C H E C K A P P L Y
0010740 * 0 T 0 N I L \ C H E
0010760 C K A P P L Y * ) ( 1 6 R E
0011000 T U R N 0 T 0 N I L \
0011020 H A R D R E T U R N ) \r ( 1 7
0011040 B I N D 2 ) ( 1 8 U N B
0011060 I N D 0 ) ( 1 9 D U N B I
0011100 N D 0 ) ( 2 0 R P L P T R
0011120 . N 1 T - 1 N I L \ R
0011140 P L P T R . U F N ) ( 2 1 G
0011160 C R E F 1 T 0 N I L \r
0011200 \ H T F I N D ) ( 2 2 A S S
0011220 O C 0 T - 1 N I L A S
0011240 S O C ) ( 2 3 G V A R _ 2
0011260 A T O M 0 N I L \ S E T
0011300 G L O B A L V A L . U F N ) (
0011320 2 4 R P L A C A 0 T - 1
0011340 N I L \r \ R P L A C A . U F
0011360 N ) ( 2 5 R P L A C D 0
0011400 T - 1 N I L \ R P L A C D
0011420 . U F N ) ( 2 6 C O N S 0
0011440 T - 1 N I L \ C O N S .
0011460 U F N ) ( 2 7 G E T P 0
0011500 T - 1 N I L \r G E T P R O
0011520 P ) ( 2 8 F M E M B 0 T
0011540 - 1 N I L F M E M B ) (
0011560 2 9 G E T H A S H 0 T -
0011600 1 N I L G E T H A S H ) (
0011620 3 0 P U T H A S H 0 T -
0011640 2 N I L P U T H A S H ) (
0011660 \r 3 1 C R E A T E C E L L 0
0011700 T 0 N I L \ C R E A T E
0011720 C E L L ) ( 3 2 B I N 0
0011740 T 0 N I L \ B I N ) ( 3
0011760 3 B O U T 0 T - 1 N I
0012000 L \ B O U T ) ( 3 4 P O P
0012020 D I S P 0 \r T 0 N I L )
0012040 ( 3 5 L I S T 1 0 T 0
0012060 N I L C O N S ) ( 3 6 D
0012100 O C O L L E C T 0 T - 1
0012120 N I L D O C O L L E C T ) (
0012140 3 7 E N D C O L L E C T 0
0012160 T - 1 N I L \r E N D C O L
0012200 L E C T ) ( 3 8 R P L C O N
0012220 S 0 T - 1 N I L \ R P
0012240 L C O N S ) ( 3 9 L I S T G
0012260 E T 0 T - 1 N I L L I
0012300 S T G E T ) ( 4 0 E L T 0
0012320 T - 1 N I L E L T ) (
0012340 \r 4 1 N T H C H C 0 T -
0012360 1 N I L N T H C H A R C O D
0012400 E ) ( 4 2 S E T A 0 T
0012420 - 2 N I L S E T A ) ( 4 3
0012440 R P L C H A R C O D E 0 T
0012460 - 2 N I L R P L C H A R C
0012500 O D E ) ( \r 4 4 E V A L 0
0012520 T 0 N I L \ E V A L )
0012540 ( 4 5 E V A L V 0 T 0
0012560 N I L \ E V A L V 1 ) ( 4 6
0012600 u n u s e d ) ( 4 7 S T K
0012620 S C A N 0 T 0 N I L \
0012640 S T K S C A N ) ( 4 8 \r B U
0012660 S B L T 1 ( W O R D S O U T
0012700 B Y T E S O U T B Y T E S O
0012720 U T S W A P P E D N Y B B L E
0012740 S O U T W O R D S I N B Y T
0012760 E S I N B Y T E S I N S W A P
0013000 P E D N Y B B L E S I N S W A
0013020 P P E D \r ) - 3 N I L \ B
0013040 U S B L T . U F N ) ( 4 9 M
0013060 I S C 8 1 ( I B L T 1 I B
0013100 L T 2 ) - 7 N I L \ M I S
0013120 C 8 . U F N ) ( 5 0 U B F L
0013140 O A T 3 1 ( P O L Y 3 X 3
0013160 4 X 4 1 3 3 \r 3 3 1 1 4
0013200 4 4 4 1 ) ( - 2 1 ) N I
0013220 L \ U N B O X F L O A T 3 )
0013240 ( 5 2 R D P R O L O G P T R
0013260 0 T 0 ) ( 5 3 R D P R O
0013300 L O G T A G 0 T 0 ) ( 5
0013320 4 W R T P T R & T A G 0 T
0013340 \r - 2 ) ( 5 5 W R T P T R
0013360 & 0 T A G 0 T - 1 ) ( 5
0013400 9 D R A W L I N E 0 T -
0013420 8 N I L \ D R A W L I N E .
0013440 U F N ) ( 6 0 S T O R E . N
0013460 1 T 0 N I L \ S T O R
0013500 E . N . U F N \r ) ( 6 1 C O
0013520 P Y . N 1 T 1 N I L \
0013540 C O P Y . N . U F N ) ( 6 2
0013560 R A I D 0 T 0 N I L R
0013600 A I D ) ( 6 3 \ R E T U R N
0013620 0 T 0 N I L \ R E T U
0013640 R N ) ( 6 4 I V A R 0 \r
0013660 I V A R 1 7 0 ) ( 7 1 I
0013700 V A R X 1 I V A R 1 ) (
0013720 7 2 P V A R 0 P V A R 1
0013740 7 8 ) ( 7 9 P V A R X 1
0013760 P V A R 1 ) ( 8 0 F V A
0014000 R 0 F V A R 1 8 6 ) (
0014020 8 7 \r F V A R X 1 F V A R
0014040 1 ) ( 8 8 P V A R _ 0
0014060 P V A R 0 9 4 ) ( 9 5 P
0014100 V A R X _ 1 P V A R 0 )
0014120 ( 9 6 G V A R 2 A T O M
0014140 1 ) ( 9 7 A R G 0 0 T
0014160 0 N I L \r \ A R G 0 ) ( 9
0014200 8 I V A R X _ 1 I V A R
0014220 0 ) ( 9 9 F V A R X _ 1
0014240 F V A R 0 ) ( 1 0 0 C O P
0014260 Y 0 T 1 ) ( 1 0 1 M Y
0014300 A R G C O U N T 0 T 1 N
0014320 I L \r \ M Y A R G C O U N T )
0014340 ( 1 0 2 M Y A L I N K 0
0014360 T 1 ) ( 1 0 3 A C O N S T
0014400 2 A T O M 1 ) ( 1 0 4
0014420 ' N I L 0 T 1 ) ( 1 0 5
0014440 ' T 0 T 1 ) ( 1 0 6
0014460 ' 0 0 T 1 ) \r ( 1 0 7
0014500 ' 1 0 T 1 ) ( 1 0 8 S
0014520 I C 1 S I C 1 ) ( 1 0 9
0014540 S N I C 1 S N I C 1 )
0014560 ( 1 1 0 S I C X 2 S I C X
0014600 1 ) ( 1 1 1 G C O N S T
0014620 3 G C O N S T 1 ) ( 1 1 2
0014640 \r A T O M N U M B E R 2 A
0014660 T O M 1 ) ( 1 1 3 R E A D
0014700 F L A G S 0 T 0 N I L
0014720 \ R E A D F L A G S ) ( 1 1 4
0014740 R E A D R P 0 T 0 N I
0014760 L \ R E A D R P ) ( 1 1 5
0015000 W R I T E M A P \r 0 T - 2
0015020 N I L \ W R I T E M A P )
0015040 ( 1 1 6 R E A D P R I N T E R
0015060 P O R T 0 T 1 N I L \
0015100 R E A D P R I N T E R P O R T .
0015120 U F N ) ( 1 1 7 W R I T E P
0015140 R I N T E R P O R T 0 T \r
0015160 0 N I L \ W R I T E P R I N
0015200 T E R P O R T . U F N ) ( 1 1
0015220 8 P I L O T B I T B L T 0
0015240 T - 1 N I L \ P I L O T B
0015260 I T B L T ) ( 1 1 9 R C L K
0015300 0 T 0 N I L \ R C L K
0015320 S U B R ) \r ( 1 2 0 M I S C
0015340 1 1 T 0 N I L \ M I S
0015360 C 1 . U F N ) ( 1 2 1 M I S
0015400 C 2 1 T - 1 N I L \ M
0015420 I S C 2 . U F N ) ( 1 2 2 R
0015440 E C L A I M C E L L 0 T 0
0015460 N I L \r \ G C R E C L A I M
0015500 C E L L ) ( 1 2 3 G C S C A
0015520 N 1 0 T 0 N I L \ G C
0015540 S C A N 1 ) ( 1 2 4 G C S C
0015560 A N 2 0 T 0 N I L \ G
0015600 C S C A N 2 ) ( 1 2 5 S U B
0015620 R C A L L 2 ) ( \r 1 2 6 C
0015640 O N T E X T S W I T C H 0 T
0015660 0 N I L \ C O N T E X T S
0015700 W I T C H ) ( 1 2 7 A U D I
0015720 O 0 T 0 N I L N I L L
0015740 ) ( 1 2 8 J U M P 0 J U
0015760 M P J U M P 1 4 3 ) ( 1 4
0016000 4 \r F J U M P 0 J U M P
0016020 C J U M P 1 5 9 ) ( 1 6 0
0016040 T J U M P 0 J U M P C J U
0016060 M P 1 7 5 ) ( 1 7 6 J U M
0016100 P X 1 J U M P X J U M P )
0016120 ( 1 7 7 J U M P X X 2 J
0016140 U M P X X \r J U M P ) ( 1 7
0016160 8 F J U M P X 1 J U M P X
0016200 C J U M P ) ( 1 7 9 T J U
0016220 M P X 1 J U M P X C J U M
0016240 P ) ( 1 8 0 N F J U M P X
0016260 1 J U M P X N C J U M P )
0016300 ( 1 8 1 N T J U M P X \r 1
0016320 J U M P X N C J U M P ) ( 1
0016340 8 2 j e q ) ( 1 8 3 j l i
0016360 s t p ) ( 1 8 4 P V A R _ ^
0016400 0 P V A R - 1 1 9 0 )
0016420 ( 1 9 1 P O P 0 T - 1 )
0016440 ( 1 9 2 w a s . g e t b a s
0016460 e ) ( \r 1 9 3 w a s . g e t
0016500 b a s e p t r ) ( 1 9 4 G E
0016520 T B A S E B Y T E 0 T - 1
0016540 N I L \ G E T B A S E B Y T
0016560 E ) ( 1 9 5 w a s . s c a n
0016600 b a s e ) ( 1 9 6 B L T 0
0016620 T - 2 N I L \r \ B L T )
0016640 ( 1 9 7 w a s . p u t b a s
0016660 e ) ( 1 9 8 w a s . p u t b
0016700 a s e p t r ) ( 1 9 9 P U T
0016720 B A S E B Y T E 0 T - 2
0016740 N I L \ P U T B A S E B Y T E
0016760 ) ( 2 0 0 G E T B A S E . N
0017000 \r 1 T 0 ) ( 2 0 1 G E
0017020 T B A S E P T R . N 1 T 0
0017040 ) ( 2 0 2 G E T B I T S . N
0017060 . F D 2 T 0 ) ( 2 0 3
0017100 G E T B A S E F I X P . N 1
0017120 T 0 N I L \ G E T B A S E
0017140 F I X P ) ( \r 2 0 4 P U T B
0017160 A S E F I X P . N 1 T - 1
0017200 N I L \ P U T B A S E F I X
0017220 P . U F N ) ( 2 0 5 P U T B
0017240 A S E . N 1 T - 1 N I L
0017260 \ P U T B A S E . U F N ) (
0017300 2 0 6 \r P U T B A S E P T R .
0017320 N 1 T - 1 N I L \ P U
0017340 T B A S E P T R . U F N ) ( 2
0017360 0 7 P U T B I T S . N . F D
0017400 2 T - 1 N I L \ P U T B
0017420 I T S . U F N ) ( 2 0 8 A D
0017440 D B A S E 0 T \r - 1 N I
0017460 L \ A D D B A S E ) ( 2 0 9
0017500 V A G 2 0 T - 1 N I L
0017520 \ V A G 2 ) ( 2 1 0 H I L
0017540 O C 0 T 0 ) ( 2 1 1 L
0017560 O L O C 0 T 0 ) ( 2 1 2
0017600 P L U S 2 0 T - 1 N I
0017620 L \r \ S L O W P L U S 2 ) (
0017640 2 1 3 D I F F E R E N C E 0
0017660 T - 1 N I L \ S L O W D
0017700 I F F E R E N C E ) ( 2 1 4
0017720 T I M E S 2 0 T - 1 N I
0017740 L \ S L O W T I M E S 2 ) (
0017760 2 1 5 \r Q U O T I E N T 0
0020000 T - 1 N I L \ S L O W Q U
0020020 O T I E N T ) ( 2 1 6 I P L
0020040 U S 2 0 T - 1 N I L \
0020060 S L O W I P L U S 2 ) ( 2 1 7
0020100 I D I F F E R E N C E 0 T
0020120 - 1 N I L \r \ S L O W I D
0020140 I F F E R E N C E ) ( 2 1 8
0020160 I T I M E S 2 0 T - 1 N
0020200 I L \ S L O W I T I M E S 2 )
0020220 ( 2 1 9 I Q U O T I E N T
0020240 0 T - 1 N I L \ S L O W
0020260 I Q U O T I E N T ) ( 2 2 0 \r
0020300 I R E M A I N D E R 0 T
0020320 - 1 N I L I R E M A I N D E
0020340 R ) ( 2 2 1 I P L U S . N
0020360 1 T 0 N I L \ S L O W I
0020400 P L U S 2 ) ( 2 2 2 I D I F
0020420 F E R E N C E . N 1 T 0
0020440 N I L \r \ S L O W I D I F F E
0020460 R E N C E ) ( 2 2 3 I B L T
0020500 1 0 T - 7 N I L \ I B
0020520 L T 1 . U F N ) ( 2 2 4 L L
0020540 S H 1 0 T 0 N I L \ S
0020560 L O W L L S H 1 ) ( 2 2 5 L
0020600 L S H 8 0 T 0 \r N I L
0020620 \ S L O W L L S H 8 ) ( 2 2 6
0020640 L R S H 1 0 T 0 N I L
0020660 \ S L O W L R S H 1 ) ( 2 2
0020700 7 L R S H 8 0 T 0 N I
0020720 L \ S L O W L R S H 8 ) ( 2
0020740 2 8 L O G O R 2 0 T - 1
0020760 \r N I L \ S L O W L O G O R
0021000 2 ) ( 2 2 9 L O G A N D 2
0021020 0 T - 1 N I L \ S L O W
0021040 L O G A N D 2 ) ( 2 3 0 L O
0021060 G X O R 2 0 T - 1 N I L
0021100 \ S L O W L O G X O R 2 ) (
0021120 2 3 1 \r u n u s e d ) ( 2 3
0021140 2 F P L U S 2 0 T - 1
0021160 N I L \ S L O W F P L U S 2 )
0021200 ( 2 3 3 F D I F F E R E N C
0021220 E 0 T - 1 N I L \ S L
0021240 O W F D I F F E R E N C E ) (
0021260 2 3 4 F T I M E S 2 \r 0 T
0021300 - 1 N I L \ S L O W F T I
0021320 M E S 2 ) ( 2 3 5 F Q U O T
0021340 I E N T 0 T - 1 N I L
0021360 \ S L O W F Q U O T I E N T )
0021400 ( 2 3 6 U B F L O A T 2 1
0021420 ( U F A D D U F S U B \r U F
0021440 I S U B U F M U L T U F D I
0021460 V U F G R E A T U F M A X
0021500 U F M I N ) ( - 1 1 ) N I
0021520 L \ U N B O X F L O A T 2 )
0021540 ( 2 3 7 U B F L O A T 1 1
0021560 ( B O X U N B O X U F A B S
0021600 \r U F N E G A T E ) ( 0 1
0021620 ) N I L \ U N B O X F L O A
0021640 T 1 ) ( 2 3 8 u n u s e d )
0021660 ( 2 3 9 u n u s e d ) ( 2
0021700 4 0 E Q 0 T - 1 ) ( 2
0021720 4 1 I G R E A T E R P 0 T
0021740 - 1 N I L \r \ S L O W I G
0021760 R E A T E R P ) ( 2 4 2 F G
0022000 R E A T E R P 0 T - 1 N
0022020 I L \ S L O W F G R E A T E R
0022040 P ) ( 2 4 3 G R E A T E R P
0022060 0 T - 1 N I L G R E A
0022100 T E R P ) ( 2 4 4 \r E Q U A
0022120 L 0 T - 1 N I L E Q U
0022140 A L ) ( 2 4 5 M A K E N U M
0022160 B E R 0 T - 1 N I L \
0022200 M A K E N U M B E R ) ( 2 4 6
0022220 B O X I P L U S 0 T - 1
0022240 N I L \ B O X I P L U S )
0022260 ( \r 2 4 7 B O X I D I F F E R
0022300 E N C E 0 T - 1 N I L
0022320 \ B O X I D I F F E R E N C E )
0022340 ( 2 4 8 F L O A T B L T 0
0022360 T - 4 N I L \ F L O A T
0022400 B L T ) ( 2 4 9 F F T S T E
0022420 P 0 T - 1 \r N I L \ F
0022440 F T S T E P ) ( 2 5 0 M I S
0022460 C 3 1 ( E X P M A G F L
0022500 O A T C O M P ) - 2 N I L
0022520 \ M I S C 3 . U F N ) ( 2 5
0022540 1 M I S C 4 1 ( T I M E S
0022560 P E R M P L U S D I F F \r
0022600 S E P ) - 3 N I L \ M I
0022620 S C 4 . U F N ) ( 2 5 2 I E
0022640 Q P 0 T - 1 N I L I E
0022660 Q P ) ( 2 5 3 S W A P 0
0022700 T 0 ) ( 2 5 4 N O P 0
0022720 T 0 ) ( 2 5 5 U P C T R A
0022740 C E 0 T \r 0 N I L N I
0022760 L L ) ) ) \r ( P U T P R O P S
0023000 P O P D I S P D O P V A L (
0023020 1 P O P D I S P ) ) \r ( R E C
0023040 O R D R E G I S T E R D E F
0023060 ( N A M E A L O A H I ) ) \r
0023100 ( P U T P R O P S P R O L O G
0023120 . I N C R . P M A C R O ( Q
0023140 U O T E ( L E T ( ( O L D P
0023160 C ( R e a d P r o l o g P t r
0023200 P ) ) ) ( W r i t e P r o l
0023220 o g P t r A n d 0 T a g P (
0023240 \r \ A D D B A S E O L D P C
0023260 1 ) ) ) ) ) \r ( P U T P R O P S
0023300 R e a d P r o l o g P t r M
0023320 A C R O ( A R G S ( L E T *
0023340 ( ( R e g i s t e r N a m e
0023360 ( C A R A R G S ) ) ( R E G
0023400 D E F ( P r o l o g N a m e T
0023420 o U R e g s \r R e g i s t e r
0023440 N a m e ) ) ) ( B Q U O T E
0023460 ( ( O P C O D E S R D P R O L
0023500 O G P T R ) , R E G D E F )
0023520 ) ) ) ) \r ( P U T P R O P S R
0023540 e a d P r o l o g T a g M A C
0023560 R O ( A R G S ( L E T * (
0023600 ( R e g i s t e r N a m e ( C
0023620 A R A R G S ) ) ( R E G D E
0023640 F ( P r o l o g N a m e T o U
0023660 R e g s \r R e g i s t e r N a
0023700 m e ) ) ) ( B Q U O T E ( (
0023720 O P C O D E S R D P R O L O G
0023740 T A G ) , R E G D E F ) ) )
0023760 ) ) \r ( P U T P R O P S W r i
0024000 t e P r o l o g P t r A n d 0 T
0024020 a g M A C R O ( A R G S (
0024040 L E T * ( ( R e g i s t e r N
0024060 a m e ( C A R A R G S ) )
0024100 ( P t r V a l ( C A D R A R
0024120 G S ) ) ( \r R E G D E F ( P
0024140 r o l o g N a m e T o U R e g s
0024160 R e g i s t e r N a m e ) ) )
0024200 ( B Q U O T E ( ( O P C O D
0024220 E S W R T P T R & 0 T A G )
0024240 , R E G D E F , P t r V a
0024260 l ) ) ) ) ) \r ( P U T P R O P S
0024300 W r i t e P r o l o g T a g A
0024320 n d P t r M A C R O ( A R G
0024340 S ( L E T * ( ( R e g i s t
0024360 e r N a m e ( C A R A R G S
0024400 ) ) ( T a g V a l ( C A D R
0024420 A R G S ) ) ( \r P t r V a l
0024440 ( C A D D R A R G S ) ) (
0024460 R E G D E F ( P r o l o g N a
0024500 m e T o U R e g s R e g i s t
0024520 e r N a m e ) ) ) ( B Q U O T
0024540 E ( ( O P C O D E S W R T P
0024560 T R & T A G ) , R E G D E F
0024600 \r , T a g V a l , P t r
0024620 V a l ) ) ) ) ) \r ( P U T P R O
0024640 P S W r i t e P r o l o g 1 6
0024660 M A C R O ( A R G S ( *
0024700 * w r i t e 1 6 b i t s
0024720 i n t o a P r o l o g r e
0024740 g i s t e r . S i m u l a t e
0024760 d b y w r i t i n g 2 4 \r
0025000 b i t s i n t w o c h u
0025020 n k s - t h e s e c o n d
0025040 c h u n k o v e r w r i t e
0025060 s t h e f i r s t . H A C
0025100 K ! ) ( L E T * ( ( R e g i
0025120 s t e r N a m e ( C A R A R
0025140 G S ) ) ( \r P t r V a l ( C
0025160 A D R A R G S ) ) ( R E G D
0025200 E F ( P r o l o g N a m e T o
0025220 L o U R e g R e g i s t e r N
0025240 a m e ) ) ) ( B Q U O T E (
0025260 ( O P C O D E S W R T P T R &
0025300 0 T A G ) , ( \r L O G O R
0025320 ( L L S H R E G D E F 8 )
0025340 R E G D E F ) , P t r V a l
0025360 ) ) ) ) ) \r ( P U T P R O P S
0025400 R e a d P r o l o g 1 6 M A C
0025420 R O ( A R G S ( * * r e
0025440 a d 1 6 b i t s f r o m
0025460 a P r o l o g r e g i s t e
0025500 r . W e d o t h i s b y
0025520 r e a d i n g \r f r o m a
0025540 z e r o r e g i s t e r i
0025560 n t o h i a n d t h e r
0025600 e g i s t e r w e w a n t
0025620 i n t o l o . H A C K ! )
0025640 ( L E T * ( ( R e g i s t e r
0025660 N a m e ( C A R A R G S ) )
0025700 \r ( R E G D E F ( P r o l o
0025720 g N a m e T o L o U R e g R e
0025740 g i s t e r N a m e ) ) ( Z E
0025760 R O R E G D E F ( P r o l o g
0026000 N a m e T o L o U R e g ( Q U
0026020 O T E Z e r o ) ) ) ) ( B Q
0026040 U O T E ( ( \r O P C O D E S
0026060 R D P R O L O G P T R ) , (
0026100 L O G O R ( L L S H Z E R O
0026120 R E G D E F 8 ) R E G D E F
0026140 ) ) ) ) ) ) \r ( P U T P R O P S
0026160 P r o l o g O p c o d e M A
0026200 C R O ( A R G S ( L E T (
0026220 ( N ( C A R A R G S ) ) )
0026240 ( L I S T ( M K A T O M ( C
0026260 O N C A T " P r o l o g O p "
0026300 N ) ) ) ) ) ) \r ( A D D T O V
0026320 A R A R O U N D E X I T F N S
0026340 P R O L O G . A R O U N D E X
0026360 I T F N ) \r ( S E T Q \ O P C
0026400 O D E S N E W \ O P C O D E S
0026420 ) \r ( S E T Q \ O P C O D E A
0026440 R R A Y N I L ) \r ( P U T P R
0026460 O P S O P C O D E S C O P Y
0026500 R I G H T ( " X e r o x C o
0026520 r p o r a t i o n " 1 9 8 5 )
0026540 ) \r N I L \r
0026546