$ od -c -N 50000 [phylum]<CTamarin>IOP>Lisp>TMS34010!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 8 - A p r - 8
0000140 7 1 2 : 2 4 : 2 1 " 006 004 { E
0000160 R I S } < T A M A R I N > I O P
0000200 > T M S 3 4 0 1 0 . ; 2 3 006 001
0000220 1 6 0 2 1 \r \r c
0000240 h a n g e s t o % : ( F N
0000260 S M a k e P r o g F i l l S
0000300 c r e e n I n i t T M S 3 4 0
0000320 1 0 ) \r \r p r e v i
0000340 o u s d a t e % : " 2 7 - F
0000360 e b - 8 7 1 8 : 3 5 : 2 5 "
0000400 { E R I S } < T A M A R I N > I
0000420 O P > T M S 3 4 0 1 0 . ; 2 0 )
0000440 \r \r \r ( * " \r C o p y r i g h
0000460 t ( c ) 1 9 8 7 , 1 9 0 0
0000500 b y X e r o x C o r p o r
0000520 a t i o n . A l l r i g h
0000540 t s r e s e r v e d . \r " ) \r
0000560 \r ( P R E T T Y C O M P R I N T
0000600 T M S 3 4 0 1 0 C O M S ) \r \r
0000620 ( R P A Q Q 006 002 T M S 3 4 0 1
0000640 0 C O M S 006 001 \r
0000660 ( ( F N S D o w n L o a d P r
0000700 o g D o w n L o a d M e m F
0000720 i l l S c r e e n I n i t S w
0000740 a p A r r a y I n i t T M S 3
0000760 4 0 1 0 M a k e M o v e I M
0001000 a k e P r o g \r
0001020 P r i n t C T L R e
0001040 g s P r i n t M e m o r y R
0001060 e a d C T L R e g S e t M e m
0001100 o r y S w a p W o r d W r i
0001120 t e C T L R e g L o a d T e s
0001140 t P a t t e r n \r
0001160 L o a d T e s t P
0001200 r o g L o a d P a t t e r n
0001220 S t o p T M S ) \r
0001240 ( C O M M A N D S " D O I T
0001260 " ) ) ) \r ( D E F I N E Q \r \r (
0001300 006 004 D o w n L o a d P r o g 006 001
0001320 \r [ L A M B D A ( p r o g
0001340 l i s t ) 006 006 006 001
0001360
*
0001420 006 006 ( * ; " E d i t e d
0001440 2 7 - F e b - 8 7 1 6 : 3 6
0001460 b y r t k " ) 006 001 \r
0001500 ( L E T ( ( A d d r H ( R S
0001520 H P r o g S t a r t A d d r
0001540 1 6 ) ) \r (
0001560 A d d r L ( L O G A N D P r
0001600 o g S t a r t A d d r 6 5 5 3
0001620 5 ) ) ) \r ( 006
0001640 002 W r i t e C T L R e g 006 001 '
0001660 H S T C T L 3 8 9 1 2 )
0001700
0001720 006 006 ( * ; " H
0001740 L T " ) 006 001 \r
0001760 [ 006 002 D o w n L o a d M e m 006 001
0002000 ( C O N S A d d r H ( C O
0002020 N S A d d r L ( A P P E N D
0002040 p r o g l i s t ( L I S T
0002060 4 9 2 8 0 A d d r L A d d r
0002100 H ] \r ( 006 002 W
0002120 r i t e C T L R e g 006 001 ' H S
0002140 T C T L 5 5 2 9 6 )
0002160
0002200 006 006 ( * ; " F l u s
0002220 h C a c h e " ) 006 001 \r
0002240 ( 006 002 W r i t e C T L
0002260 R e g 006 001 ' H S T A D R H 6
0002300 5 5 3 5 )
0002320 006 006 (
0002340 * ; " L o a d I R Q v e
0002360 c t o r " ) 006 001 \r
0002400 ( 006 002 W r i t e C T L R e g
0002420 006 001 ' H S T A D R L 6 5 2 4
0002440 8 )
0002460 006 006 ( * ;
0002500 " @ F F F F F E E 0 " ) 006
0002520 001 \r ( 006 002 W r
0002540 i t e C T L R e g 006 001 ' H S T
0002560 D A T A A d d r L ) \r
0002600 ( 006 002 W r i t e C T L
0002620 R e g 006 001 ' H S T D A T A A
0002640 d d r H ) \r (
0002660 006 002 W r i t e C T L R e g 006 001
0002700 ' H S T C T L 5 6 0 6 4 )
0002720
0002740 006 006 ( * ; " S
0002760 e t N M I " ) 006 001 \r
0003000 ( 006 002 W r i t e C T L
0003020 R e g 006 001 ' H S T C T L 6 1
0003040 4 4 ) )
0003060 006 006 (
0003100 * ; " G o " ) 006 001 \r
0003120 ] ) \r \r ( 006 004 D o w n L o a d M
0003140 e m 006 001 \r [ L A M B D A (
0003160 m e m l i s t ) 006 006 006 001
0003200
*
0003240 006 006 ( * e d i t e
0003260 d % : " 2 3 - F e b - 8 7 1
0003300 2 : 2 9 " ) 006 001 \r
0003320 \r 006 006
0003340 ( * * m e m l i s t % : (
0003360 a d d r h a d d r l d a t a
0003400 | . . . . . | \r 006 001
0003420 006 006 d a t a ) ) 006 001 \r
0003440 \r ( 006 002 W r i t e C T L
0003460 R e g 006 001 ' H S T A D R H (
0003500 C A R m e m l i s t ) ) \r
0003520 ( 006 002 W r i t e C T L R e g
0003540 006 001 ' H S T A D R L ( C A D
0003560 R m e m l i s t ) ) \r
0003600 ( 006 002 f o r 006 001 i 006 002 i n 006
0003620 001 ( C D D R m e m l i s t )
0003640 006 002 d o 006 001 ( 006 002 W r i t e
0003660 C T L R e g 006 001 ' H S T D A T
0003700 A i ] ) \r \r ( 006 004 F i l l S c
0003720 r e e n 006 001 \r [ L A M B D A
0003740 N I L 006 006 006 001
0003760
*
0004020 006 006 ( * ; "
0004040 E d i t e d 2 7 - F e b - 8 7
0004060 1 7 : 5 7 b y r t k " ) 006
0004100 001 \r ( L E T ( ( a d d
0004120 r ( 006 002 f e t c h 006 001 ( B I
0004140 T M A P B I T M A P B A S E )
0004160 006 002 o f 006 001 ( S C R E E N B
0004200 I T M A P ) ) ) \r
0004220 ( s c r e e n a d d r B
0004240 l i t A d d r ) ) \r
0004260 ( 006 002 f o r 006 001 j 006 002
0004300 f r o m 006 001 0 006 002 t o 006 001
0004320 6 4 0 006 002 d o 006 001 ( 006 002 W r
0004340 i t e C T L R e g 006 001 ' H S T
0004360 A D R H ( R S H s c r e e n
0004400 a d d r 1 6 ) ) \r
0004420
0004440 ( 006 002 W r
0004460 i t e C T L R e g 006 001 ' H S T
0004500 A D R L ( L O G A N D s c r
0004520 e e n a d d r 6 5 5 3 5 ) ) \r
0004540
*
0004600 [ 006 002 f o r 006 001 k 006 002 f r
0004620 o m 006 001 0 006 002 t o 006 001 6 0
0004640 \r
0004660
0004700 006 002 d o 006 001 ( 006 002 W
0004720 r i t e C T L R e g 006 001 ' H S
0004740 T D A T A ( 006 002 S w a p W o r
0004760 d 006 001 ( L O G X O R 6 5 5 3
0005000 5 ( \ G E T B A S E a d d r
0005020 k \r
0005040
*
0005140 ]
0005160 \r
0005200
0005220 [ S E T Q a d d r ( \ A
0005240 D D B A S E a d d r ( 006 002 f
0005260 e t c h 006 001 ( B I T M A P B
0005300 I T M A P R A S T E R W I D T H
0005320 ) \r
0005340
*
0005420 006 002 o f 006 001 ( S C R E E N B I
0005440 T M A P ] \r
0005460
0005500 ( S E T Q s c r
0005520 e e n a d d r ( P L U S s c
0005540 r e e n a d d r D i s p l a y
0005560 P i t c h ] ) \r \r ( 006 004 I n i t
0005600 S w a p A r r a y 006 001 \r [ L
0005620 A M B D A N I L 006 006 006 001
0005640
*
0005700 006 006 (
0005720 * ; " E d i t e d 2 7 - F
0005740 e b - 8 7 1 7 : 5 6 b y r
0005760 t k " ) 006 001 \r ( L E T
0006000 ( ( a ( A R R A Y 2 5 6 '
0006020 F I X P 0 0 ) ) ) \r
0006040 [ 006 002 f o r 006 001 i
0006060 006 002 f r o m 006 001 0 006 002 t o 006
0006100 001 2 5 5 006 002 d o 006 001 ( S E
0006120 T A a i ( L O G O R ( L
0006140 L S H ( L O G A N D 1 ( L
0006160 R S H i 7 ) ) \r
0006200
*
0006260 0 ) \r
0006300
*
0006340 ( L L S H ( L O
0006360 G A N D 1 ( L R S H i 6
0006400 ) ) \r
0006420
*
0006460 1 ) \r
0006500
*
0006560 ( L L S H ( L O G A N D 1
0006600 ( L R S H i 5 ) ) \r
0006620
*
0006700 2 ) \r
0006720
*
0006760 ( L L S H (
0007000 L O G A N D 1 ( L R S H i
0007020 4 ) ) \r
0007040
*
0007100 3 ) \r
0007120
*
0007200 ( L L S H ( L O G A N D
0007220 1 ( L R S H i 3 ) ) \r
0007240
*
0007320 4 ) \r
0007340
*
0007400 ( L L S H
0007420 ( L O G A N D 1 ( L R S H
0007440 i 2 ) ) \r
0007460
*
0007520 5
0007540 ) \r
0007560
*
0007620 ( L L S H ( L O G A N
0007640 D 1 ( L R S H i 1 ) ) \r
0007660
*
0007740 6 ) \r
0007760
*
0010020 ( L L
0010040 S H ( L O G A N D 1 ( L R
0010060 S H i 0 ) ) \r
0010100
*
0010160 7 ] \r a ] )
0010200 \r \r ( 006 004 I n i t T M S 3 4 0 1
0010220 0 006 001 \r [ L A M B D A N I
0010240 L 006 006 006 001
0010260
*
0010320 006 006 ( * ; " E d i
0010340 t e d 2 7 - F e b - 8 7 1 7
0010360 : 5 7 b y r t k " ) 006 001 \r
0010400 ( S E T Q t m s d e u g
0010420 N I L ) \r ( S E T Q
0010440 D i s p l a y A d d r 0 ) \r
0010460 ( S E T Q B l i t A d d
0010500 r ( L L S H 2 8 0 0 0 8 )
0010520 )
0010540 006 006 ( *
0010560 S E T Q D i s p l a y P i t
0010600 c h 2 0 4 8 ) 006 001 \r (
0010620 S E T Q D i s p l a y P i t c
0010640 h 1 0 2 4 ) \r ( S E T
0010660 Q T M S 3 4 0 1 0 A d d r 1
0010700 6 3 8 4 ) \r ( S E T Q
0010720 H S T I R Q ( P L U S T M S
0010740 3 4 0 1 0 A d d r 0 ) ) \r
0010760 ( S E T Q H S T R E S E T
0011000 ( P L U S T M S 3 4 0 1 0 A
0011020 d d r 2 ) ) \r ( S E T
0011040 Q H S T L I R Q ( P L U S
0011060 T M S 3 4 0 1 0 A d d r 4 ) )
0011100 \r ( S E T Q H S T A D
0011120 R L ( P L U S T M S 3 4 0 1
0011140 0 A d d r 8 ) ) \r ( S
0011160 E T Q H S T A D R H ( P L U
0011200 S T M S 3 4 0 1 0 A d d r 1
0011220 0 ) ) \r ( S E T Q H S
0011240 T D A T A ( P L U S T M S 3
0011260 4 0 1 0 A d d r 1 2 ) ) \r
0011300 ( S E T Q H S T C T L (
0011320 P L U S T M S 3 4 0 1 0 A d d
0011340 r 1 4 ) ) \r ( S E T Q
0011360 H S T I N I T 3 8 9 1 2 ) \r
0011400 ( S E T Q X P A T \r
0011420 ' ( 0 0 1 6 3 8 0
0011440 8 1 9 6 8 1 9 6 9 2 5 2 8
0011460 7 7 2 8 5 8 0 8 5 8 0 8 7
0011500 7 2 9 2 5 2 8 1 9 6 8 1 9
0011520 6 1 6 3 8 0 0 0 ) ) \r
0011540 ( S E T Q P H P A T \r
0011560 ' ( 3 2 3 2 3 2 3 2
0011600 3 1 0 4 2 1 0 2 4 2 4 8 8
0011620 8 2 4 8 6 8 2 9 2 2 0 1 9
0011640 4 9 2 1 6 3 8 4 1 6 3 8 4
0011660 1 6 3 8 4 1 6 3 8 4 0 0 )
0011700 ) \r ( S E T Q P r o g
0011720 S t a r t A d d r 2 1 4 7 4 5
0011740 0 8 8 0 ) \r ( S E T Q
0011760 P X L P R O G ( 006 002 M a k e P
0012000 r o g 006 001 2 0 ) ) \r [
0012020 S E T Q T M S 3 4 0 1 0 P R O
0012040 P L I S T ` ( C O N T R O L
0012060 ( 1 7 6 3 2 7 6 8 ) \r
0012100
0012120 C
0012140 O N V D P \r
0012160
0012200 ( 3 2 0 0 )
0012220 \r
0012240
0012260 C O N V S P \r
0012300
0012320 ( 1
0012340 3 0 0 ) \r
0012360
0012400 D P Y A D R \r
0012420
*
0012460 ( 4 8 0 0 ) \r
0012500
0012520 D P
0012540 Y C T L \r
0012560
0012600 ( 1 2 8 4 5 0
0012620 6 4 4 5 0 7 2 ) \r
0012640
0012660 D P Y
0012700 I N T \r
0012720
0012740 ( 1 6 0 0 ) \r
0012760
*
0013020 D P Y S T R T \r
0013040
0013060 ( 1 4
0013100 4 % , D i s p l a y A d d r
0013120 ) \r
0013140
0013160 D P Y T A P \r
0013200
0013220 (
0013240 4 3 2 0 ) \r
0013260
0013300 H C O U N T
0013320 \r
0013340
0013360 ( 4 4 8 0 ) \r
0013400
0013420 H
0013440 E B L N K \r
0013460
0013500 ( 1 6 1 1 )
0013520 \r
0013540
0013560 H E S Y N C \r
0013600
0013620 ( 0
0013640 1 0 ) \r
0013660
0013700 H S B L N K \r
0013720
*
0013760 ( 3 2 6 4 ) \r
0014000
0014020 H S T
0014040 A D R H \r
0014060
0014100 ( 2 2 4 0 ) \r
0014120
*
0014160 H S T A D R L \r
0014200
0014220 ( 2
0014240 0 8 0 ) \r
0014260
0014300 H S T C T L H
0014320 \r
0014340
0014360 ( 2 5 6 % , H S T I
0014400 N I T ) \r
0014420
0014440 H S T C T L L \r
0014460
*
0014520 ( 2 4 0 % , H S T I N
0014540 I T ) \r
0014560
0014600 H S T D A T A \r
0014620
*
0014660 ( 1 9 2 0 ) \r
0014700
0014720 H S T
0014740 I R Q \r
0014760
0015000 ( x 0 ) \r
0015020
*
0015060 H S T R E S E T \r
0015100
0015120 ( x 0
0015140 ) \r
0015160
0015200 H S T L I R Q \r
0015220
*
0015260 ( x 0 ) \r
0015300
0015320 H T O T A L \r
0015340
*
0015400 ( 4 8 7 0 ) \r
0015420
0015440 I N
0015460 T E N B \r
0015500
0015520 ( 2 7 2 0 ) \r
0015540
*
0015600 I N T P E N D \r
0015620
0015640 ( 2
0015660 8 8 0 ) \r
0015700
0015720 P M A S K \r
0015740
*
0016000 ( 3 5 2 0 ) \r
0016020
0016040 P S I
0016060 Z E \r
0016100
0016120 ( 3 3 6 1 ) \r
0016140
*
0016200 R E F C N T \r
0016220
0016240 ( 4 9 6
0016260 0 ) \r
0016300
0016320 V C O U N T \r
0016340
*
0016400 ( 4 6 4 0 ) \r
0016420
0016440 V E B L N
0016460 K \r
0016500
0016520 ( 8 0 3 7 ) \r
0016540
*
0016600 V E S Y N C \r
0016620
0016640 ( 6 4 2 0
0016660 ) \r
0016700
0016720 V S B L N K \r
0016740
0016760 (
0017000 9 6 3 6 2 ) \r
0017020
0017040 V T O T A
0017060 L \r
0017100
0017120 ( 1 1 2 3 6 8 ] \r
0017140 ( S E T Q S w a p A r r
0017160 a y ( 006 002 I n i t S w a p A r
0017200 r a y 006 001 ) ) \r ( S E T
0017220 Q i T M S 3 4 0 1 0 P R O P
0017240 L I S T ) \r ( 006 002 W r i
0017260 t e C T L R e g 006 001 ' H S T R
0017300 E S E T 1 ) \r ( 006 002 W
0017320 r i t e C T L R e g 006 001 ' H S
0017340 T R E S E T 0 ) \r ( 006
0017360 002 W r i t e C T L R e g 006 001 '
0017400 H S T C T L H S T I N I T ) \r
0017420 ( 006 002 w h i l e 006 001 i
0017440 006 002 d o 006 001 ( 006 002 W r i t e
0017460 C T L R e g 006 001 ( C A R i )
0017500 \r
0017520 ( C A D A D R
0017540 i ) ) \r
0017560 ( S E T Q i ( C D D
0017600 R i ) ) ) \r ( 006 002 W r
0017620 i t e C T L R e g 006 001 ' H S T
0017640 C T L H S T I N I T ] ) \r \r (
0017660 006 004 M a k e M o v e I 006 001 \r
0017700 [ L A M B D A ( r e g v a l
0017720 u e ) 006 006 006 001
0017740
0017760 006
0020000 006 ( * ; " E d i t e d 2 7
0020020 - F e b - 8 7 1 5 : 2 4 b y
0020040 r t k " ) 006 001 \r ( L I
0020060 S T ( L O G O R 2 5 4 4 r
0020100 e g ) \r ( L
0020120 O G A N D v a l u e 6 5 5 3
0020140 5 ) \r ( L R
0020160 S H v a l u e 1 6 ] ) \r \r (
0020200 006 004 M a k e P r o g 006 001 \r [
0020220 L A M B D A ( s i z e h e i
0020240 g h t ) 006 006 006 001
0020260
0020300 006 006
0020320 ( * ; " E d i t e d 2 7 -
0020340 F e b - 8 7 1 8 : 2 7 b y
0020360 r t k " ) 006 001 \r ( 006 002 i
0020400 f 006 001 ( N O T h e i g h t )
0020420 \r 006 002 t h e n 006
0020440 001 ( S E T Q h e i g h t 6
0020460 5 0 ) ) \r ( 006 002 i f 006 001
0020500 ( N O T s i z e ) \r
0020520 006 002 t h e n 006 001 ( S E
0020540 T Q s i z e 8 2 0 ) ) \r
0020560 ( A P P E N D ( 006 002 M a k
0020600 e M o v e I 006 001 0 B l i t A
0020620 d d r ) \r
0020640 ( 006 002 M a k e M o v e I 006 001 1
0020660 D i s p l a y P i t c h ) \r
0020700 ( 006 002 M a k
0020720 e M o v e I 006 001 2 ( P L U S
0020740 1 0 0 ( T I M E S 1 0 0
0020760 D i s p l a y P i t c h ) ) ) \r
0021000 ( 006 002 M a
0021020 k e M o v e I 006 001 2 1 0 ) \r
0021040 ( 006 002 M a
0021060 k e M o v e I 006 001 3 D i s p
0021100 l a y P i t c h ) \r
0021120 ( 006 002 M a k e M o v e
0021140 I 006 001 7 ( L O G O R ( L L
0021160 S H h e i g h t 1 6 ) \r
0021200
0021220 s i z
0021240 e ) ) \r (
0021260 006 002 M a k e M o v e I 006 001 8
0021300 0 ) \r ( 006
0021320 002 M a k e M o v e I 006 001 9 6
0021340 5 5 3 5 ) \r
0021360 ( L I S T 3 8 4 0 ) \r
0021400 ( 006 002 M a k e M
0021420 o v e I 006 001 0 ( P L U S (
0021440 P L U S ( L L S H 2 8 0 0 0
0021460 8 ) \r
0021500
0021520 1 0 0 ) \r
0021540
0021560 ( T I M E
0021600 S 1 0 0 D i s p l a y P i t
0021620 c h ) ) ) \r
0021640 ( 006 002 M a k e M o v e I 006 001
0021660 1 D i s p l a y P i t c h ) \r
0021700 ( 006 002 M a
0021720 k e M o v e I 006 001 2 1 0 ) \r
0021740 ( 006 002 M a
0021760 k e M o v e I 006 001 3 D i s p
0022000 l a y P i t c h ) \r
0022020 ( 006 002 M a k e M o v e
0022040 I 006 001 7 ( L O G O R ( L L
0022060 S H h e i g h t 1 6 ) \r
0022100
0022120 s i z
0022140 e ) ) \r (
0022160 006 002 M a k e M o v e I 006 001 8
0022200 0 ) \r ( 006
0022220 002 M a k e M o v e I 006 001 9 6
0022240 5 5 3 5 ) \r
0022260 ( L I S T 3 8 4 0 ) \r
0022300 ( 006 002 M a k e M
0022320 o v e I 006 001 0 ( P L U S (
0022340 P L U S ( L L S H 2 8 0 0 0
0022360 8 ) \r
0022400
0022420 2 0 0 ) \r
0022440
0022460 ( T I M E
0022500 S 2 0 0 D i s p l a y P i t
0022520 c h ) ) ) \r
0022540 ( 006 002 M a k e M o v e I 006 001
0022560 1 D i s p l a y P i t c h ) \r
0022600 ( 006 002 M a
0022620 k e M o v e I 006 001 2 1 0 ) \r
0022640 ( 006 002 M a
0022660 k e M o v e I 006 001 3 D i s p
0022700 l a y P i t c h ) \r
0022720 ( 006 002 M a k e M o v e
0022740 I 006 001 7 ( L O G O R ( L L
0022760 S H h e i g h t 1 6 ) \r
0023000
0023020 s i z
0023040 e ) ) \r (
0023060 006 002 M a k e M o v e I 006 001 8
0023100 0 ) \r ( 006
0023120 002 M a k e M o v e I 006 001 9 6
0023140 5 5 3 5 ) \r
0023160 ( L I S T 3 8 4 0 ) \r
0023200 ( 006 002 M a k e M
0023220 o v e I 006 001 0 ( P L U S (
0023240 P L U S ( L L S H 2 8 0 0 0
0023260 8 ) \r
0023300
0023320 3 0 0 ) \r
0023340
0023360 ( T I M E
0023400 S 3 0 0 D i s p l a y P i t
0023420 c h ) ) ) \r
0023440 ( 006 002 M a k e M o v e I 006 001
0023460 1 D i s p l a y P i t c h ) \r
0023500 ( 006 002 M a
0023520 k e M o v e I 006 001 2 1 0 ) \r
0023540 ( 006 002 M a
0023560 k e M o v e I 006 001 3 D i s p
0023600 l a y P i t c h ) \r
0023620 ( 006 002 M a k e M o v e
0023640 I 006 001 7 ( L O G O R ( L L
0023660 S H h e i g h t 1 6 ) \r
0023700
0023720 s i z
0023740 e ) ) \r (
0023760 006 002 M a k e M o v e I 006 001 8
0024000 0 ) \r ( 006
0024020 002 M a k e M o v e I 006 001 9 6
0024040 5 5 3 5 ) \r
0024060 ( L I S T 3 8 4 0 ) \r
0024100 ( 006 002 M a k e M
0024120 o v e I 006 001 0 ( P L U S (
0024140 P L U S ( L L S H 2 8 0 0 0
0024160 8 ) \r
0024200
0024220 4 0 0 ) \r
0024240
0024260 ( T I M E
0024300 S 4 0 0 D i s p l a y P i t
0024320 c h ) ) ) \r
0024340 ( 006 002 M a k e M o v e I 006 001
0024360 1 D i s p l a y P i t c h ) \r
0024400 ( 006 002 M a
0024420 k e M o v e I 006 001 2 1 0 ) \r
0024440 ( 006 002 M a
0024460 k e M o v e I 006 001 3 D i s p
0024500 l a y P i t c h ) \r
0024520 ( 006 002 M a k e M o v e
0024540 I 006 001 7 ( L O G O R ( L L
0024560 S H h e i g h t 1 6 ) \r
0024600
0024620 s i z
0024640 e ) ) \r (
0024660 006 002 M a k e M o v e I 006 001 8
0024700 0 ) \r ( 006
0024720 002 M a k e M o v e I 006 001 9 6
0024740 5 5 3 5 ) \r
0024760 ( L I S T 3 8 4 0 ) \r
0025000 ( 006 002 M a k e M
0025020 o v e I 006 001 0 ( P L U S (
0025040 P L U S ( L L S H 2 8 0 0 0
0025060 8 ) \r
0025100
0025120 6 0 0 ) \r
0025140
0025160 ( T I M E
0025200 S 4 0 0 D i s p l a y P i t
0025220 c h ) ) ) \r
0025240 ( 006 002 M a k e M o v e I 006 001
0025260 1 D i s p l a y P i t c h ) \r
0025300 ( 006 002 M a
0025320 k e M o v e I 006 001 2 1 0 ) \r
0025340 ( 006 002 M a
0025360 k e M o v e I 006 001 3 D i s p
0025400 l a y P i t c h ) \r
0025420 ( 006 002 M a k e M o v e
0025440 I 006 001 7 ( L O G O R ( L L
0025460 S H h e i g h t 1 6 ) \r
0025500
0025520 s i z
0025540 e ) ) \r (
0025560 006 002 M a k e M o v e I 006 001 8
0025600 0 ) \r ( 006
0025620 002 M a k e M o v e I 006 001 9 6
0025640 5 5 3 5 ) \r
0025660 ( L I S T 3 8 4 0 ) \r
0025700 \r
0025720 006 006 ( * ; ; " ( ( M a k
0025740 e M o v e I 0 0 ) ( M a k
0025760 e M o v e I 1 D i s p l a y
0026000 P i t c h ) ( M a k e M o v e
0026020 I 2 1 0 ) ( M a k e M o v
0026040 e I 3 D i s p l a y P i t c
0026060 h ) ( M a k e M o v e I 7
0026100 ( L O G O R ( L L S H h e i
0026120 g h t 1 6 ) s i z e ) ) (
0026140 M a k e M o v e I 8 0 ) (
0026160 M a k e M o v e I 9 0 ) (
0026200 L I S T 4 0 3 2 ) ( M a k e
0026220 M o v e I 0 0 ) ( M a k e
0026240 M o v e I 1 D i s p l a y P
0026260 i t c h ) ( M a k e M o v e I
0026300 2 1 0 ) ( M a k e M o v e
0026320 I 3 D i s p l a y P i t c h
0026340 ) ( M a k e M o v e I 7 (
0026360 L O G O R ( L L S H h e i g
0026400 h t 1 6 ) s i z e ) ) ( M
0026420 a k e M o v e I 8 0 ) ( M
0026440 a k e M o v e I 9 6 5 5 3 5
0026460 ) ( L I S T 4 0 3 2 ) ) " )
0026500 006 001 \r \r ]
0026520 ) \r \r ( 006 004 P r i n t C T L R e
0026540 g s 006 001 \r [ L A M B D A N
0026560 I L 006 006 006 001
0026600
*
0026640 006 006 ( * ; " E d
0026660 i t e d 2 5 - F e b - 8 7 1
0026700 8 : 2 1 b y r t k " ) 006 001 \r
0026720 ( 006 002 f o r 006 001 i 006
0026740 002 i n 006 001 T M S 3 4 0 1 0 P R
0026760 O P L I S T 006 002 d o 006 001 ( 006
0027000 002 i f 006 001 ( N O T ( L I S T
0027020 P i ) ) \r
0027040
0027060 006 002 t h
0027100 e n 006 001 ( P R I N T O U T T
0027120 i " = " ( 006 002 R e a d
0027140 C T L R e g 006 001 i ) \r
0027160
*
0027220 T ]
0027240 ) \r \r ( 006 004 P r i n t M e m o r
0027260 y 006 001 \r [ L A M B D A ( a
0027300 d d r l e n ) 006 006 006 001
0027320
*
0027360 006 006 ( * ; " E d i
0027400 t e d 3 1 - D e c - 0 0 1 6
0027420 : 1 6 b y r t k " ) 006 001 \r
0027440 ( 006 002 W r i t e C T L R e
0027460 g 006 001 ' H S T A D R H ( R S
0027500 H a d d r 1 6 ) ) \r
0027520 ( 006 002 W r i t e C T L R e g 006 001
0027540 ' H S T A D R L ( L O G A N
0027560 D a d d r 6 5 5 3 5 ) ) \r
0027600 ( 006 002 f o r 006 001 j 006 002
0027620 f r o m 006 001 0 006 002 t o 006 001
0027640 l e n 006 002 d o 006 001 ( P R I N
0027660 T O U T T ( P L U S a d d
0027700 r j ) \r
0027720
0027740 " : " \r
0027760
*
0030020 ( 006 002 R e a d C T L R e g 006 001
0030040 ' H S T D A T A ) \r
0030060
0030100 T ] )
0030120 \r \r ( 006 004 R e a d C T L R e g 006
0030140 001 \r [ L A M B D A ( r e g
0030160 ) 006 006 006 001
0030200
*
0030240 006 006 ( * ; " E d i t e
0030260 d 2 5 - F e b - 8 7 1 8 : 1
0030300 9 b y r t k " ) 006 001 \r
0030320 ( 006 002 i f 006 001 ( N O T t m
0030340 s d e u g ) \r 006
0030360 002 t h e n 006 001 ( S E L E C T Q
0030400 r e g \r
0030420 ( H S T I R Q ( I
0030440 O R e a d 1 6 H S T I R Q ) )
0030460 \r
0030500 ( H S T R E S E T ( I O R
0030520 e a d 1 6 H S T R E S E T ) )
0030540 \r
0030560 ( H S T L I R Q ( I O R e
0030600 a d 1 6 H S T L I R Q ) ) \r
0030620
0030640 ( H S T A D R L ( I O R e a d
0030660 1 6 H S T A D R L ) ) \r
0030700 ( H
0030720 S T A D R H ( I O R e a d 1 6
0030740 H S T A D R H ) ) \r
0030760 ( H S T
0031000 D A T A ( I O R e a d 1 6 H
0031020 S T D A T A ) ) \r
0031040 ( H S T C T
0031060 L ( I O R e a d 1 6 H S T C
0031100 T L ) ) \r
0031120 ( P R O G N I L \r
0031140
0031160 ( I O W r i t e 1
0031200 6 H S T A D R L ( C A R (
0031220 L I S T G E T T M S 3 4 0 1 0
0031240 P R O P L I S T r e g ) ) ) \r
0031260
0031300 ( I O W r i t e 1
0031320 6 H S T A D R H 4 9 1 5 2 )
0031340 \r
0031360 ( R E T U R N
0031400 ( I O R e a d 1 6 H S T D A T
0031420 A ] ) \r \r ( 006 004 S e t M e m o r
0031440 y 006 001 \r [ L A M B D A ( a
0031460 d d r l e n v a l u e ) 006 006
0031500 006 001
0031520
0031540 006 006 ( * ; " E d i
0031560 t e d 2 7 - F e b - 8 7 1 2
0031600 : 3 5 b y r t k " ) 006 001 \r
0031620 ( 006 002 W r i t e C T L R e
0031640 g 006 001 ' H S T A D R H ( R S
0031660 H a d d r 1 6 ) ) \r
0031700 ( 006 002 W r i t e C T L R e g 006 001
0031720 ' H S T A D R L ( L O G A N
0031740 D a d d r 6 5 5 3 5 ) ) \r
0031760 ( 006 002 f o r 006 001 j 006 002
0032000 f r o m 006 001 0 006 002 t o 006 001
0032020 l e n 006 002 d o 006 001
0032040
0032060 006 006 ( *
0032100 W r i t e C T L R e g ( Q U
0032120 O T E H S T D A T A ) \r 006 001
0032140
*
0032220 006 006 ( P
0032240 L U S j 1 6 ) ) 006 001 \r
0032260
0032300 ( 006 002 i f 006 001
0032320 v a l u e \r
0032340
0032360 006 002 t h e n 006 001
0032400 ( 006 002 W r i t e C T L R e g 006 001
0032420 ' H S T D A T A v a l u e )
0032440 \r
0032460 006
0032500 002 e l s e 006 001 ( 006 002 W r i t e
0032520 C T L R e g 006 001 ' H S T D A T
0032540 A 4 3 6 9 0 ] ) \r \r ( 006 004 S w
0032560 a p W o r d 006 001 \r [ L A M B
0032600 D A ( w o r d ) 006 006 006 001
0032620
*
0032660 006 006 ( * ;
0032700 " E d i t e d 2 7 - F e b -
0032720 8 7 1 8 : 0 0 b y r t k "
0032740 ) 006 001 \r ( L O G O R (
0032760 E L T S w a p A r r a y ( L
0033000 R S H w o r d 8 ) ) \r
0033020 ( L L S H ( E
0033040 L T S w a p A r r a y ( L O
0033060 G A N D w o r d 2 5 5 ) ) \r
0033100
0033120 8 ] ) \r \r ( 006 004 W r i t e C T
0033140 L R e g 006 001 \r [ L A M B D A
0033160 ( r e g v a l u e ) 006 006 006 001
0033200
*
0033240 006 006 ( * ; "
0033260 E d i t e d 2 5 - F e b - 8 7
0033300 1 6 : 4 4 b y r t k " ) 006
0033320 001 \r ( 006 002 i f 006 001 ( N
0033340 O T t m s d e u g ) \r
0033360 006 002 t h e n 006 001 ( S E
0033400 L E C T Q r e g \r
0033420 ( H S T A
0033440 D R L ( I O W r i t e 1 6 H
0033460 S T A D R L v a l u e ) ) \r
0033500
0033520 ( H S T I R Q ( I O W r i t e
0033540 1 6 H S T I R Q v a l u e )
0033560 ) \r
0033600 ( H S T R E S E T ( I O
0033620 W r i t e 1 6 H S T R E S E T
0033640 v a l u e ) ) \r
0033660 ( H S T L I
0033700 R Q ( I O W r i t e 1 6 H S
0033720 T L I R Q v a l u e ) ) \r
0033740 (
0033760 H S T A D R H ( I O W r i t e
0034000 1 6 H S T A D R H v a l u e
0034020 ) ) \r
0034040 ( H S T D A T A ( I O
0034060 W r i t e 1 6 H S T D A T A
0034100 v a l u e ) ) \r
0034120 ( H S T C T L
0034140 ( I O W r i t e 1 6 H S T C
0034160 T L v a l u e ) ) \r
0034200 ( P R O
0034220 G N I L \r
0034240 ( I O
0034260 W r i t e 1 6 H S T A D R H
0034300 4 9 1 5 2 ) \r
0034320 ( I
0034340 O W r i t e 1 6 H S T A D R L
0034360 ( C A R ( L I S T G E T T
0034400 M S 3 4 0 1 0 P R O P L I S T
0034420 r e g ) ) ) \r
0034440 ( I
0034460 O W r i t e 1 6 H S T D A T A
0034500 v a l u e ) ) ) \r
0034520 006 002 e l s e 006 001 ( P R I N T O
0034540 U T T r e g " _ " v
0034560 a l u e T ] ) \r \r ( 006 004 L o a
0034600 d T e s t P a t t e r n 006 001 \r
0034620 [ L A M B D A ( p a t ) 006 006
0034640 006 001
0034660
*
0034720 006 006 ( * e d i t e d % : " 2
0034740 4 - F e b - 8 7 1 5 : 5 2 " )
0034760 006 001 \r ( 006 002 f o r 006 001
0035000 i 006 002 f r o m 006 001 D i s p l
0035020 a y A d d r 006 002 t o 006 001 ( S
0035040 U B 1 ( L R S H D i s p l a
0035060 y P i t c h 4 ) ) 006 002 D O 006
0035100 001 ( 006 002 L o a d P a t t e r n
0035120 006 001 i p a t ] ) \r \r ( 006 004 L
0035140 o a d T e s t P r o g 006 001 \r
0035160 [ L A M B D A N I L 006 006 006 001
0035200
*
0035240 006
0035260 006 ( * ; " E d i t e d 2 7
0035300 - F e b - 8 7 1 5 : 2 6 b y
0035320 r t k " ) 006 001 \r ( 006 002
0035340 D o w n L o a d P r o g 006 001 P
0035360 X L P R O G ] ) \r \r ( 006 004 L o a
0035400 d P a t t e r n 006 001 \r [ L A
0035420 M B D A ( a d d r p a t ) 006
0035440 006 006 001
0035460
0035500 006 006 ( *
0035520 e d i t e d % : " 2 4 - F e
0035540 b - 8 7 1 5 : 4 8 " ) 006 001 \r
0035560 ( 006 002 f o r 006 001 i 006 002
0035600 i n 006 001 p a t 006 002 a s 006 001
0035620 j 006 002 f r o m 006 001 0 006 002 d
0035640 o 006 001 ( 006 002 W r i t e C T L R
0035660 e g 006 001 ' H S T A D R H ( R
0035700 S H ( P L U S a d d r ( T
0035720 I M E S j D i s p l a y P i
0035740 t c h ) ) \r
0035760
*
0036040 1 6 ) ) \r
0036060
0036100 ( 006 002 W r i t e
0036120 C T L R e g 006 001 ' H S T A D R
0036140 L ( L O G A N D ( P L U S
0036160 a d d r ( T I M E S j D i
0036200 s p l a y P i t c h ) ) \r
0036220
*
0036300 6 5 5 3 5
0036320 ) ) \r
0036340
0036360 ( 006 002 W r i t e C T L R
0036400 e g 006 001 ' H S T D A T A i ]
0036420 ) \r \r ( 006 004 S t o p T M S 006 001 \r
0036440 [ L A M B D A N I L 006 006 006
0036460 001
0036500
*
0036540 006 006 ( * ; " E d i t e d
0036560 2 7 - F e b - 8 7 1 6 : 2 2
0036600 b y r t k " ) 006 001 \r (
0036620 006 002 W r i t e C T L R e g 006 001
0036640 ' H S T C T L H S T I N I T ]
0036660 ) \r ) \r \r ( D E F C O M M A N D
0036700 006 002 " D O I T " 006 001 ( S I Z
0036720 E ) ( S t o p T M S ) \r
0036740
0036760 ( S E T Q P X L
0037000 P R O G ( M a k e P r o g S
0037020 I Z E ) ) \r
0037040
0037060 ( L o a d T e s t P r o g ) ) \r
0037100 \r ( P U T P R O P S T M S 3 4
0037120 0 1 0 C O P Y R I G H T ( "
0037140 X e r o x C o r p o r a t i o
0037160 n " 1 9 8 7 1 9 0 0 ) ) \r (
0037200 D E C L A R E % : D O N T C O
0037220 P Y \r ( F I L E M A P ( N
0037240 I L ( 6 9 3 1 5 7 9 5 ( D
0037260 o w n L o a d P r o g 7 0 3
0037300 . 1 6 1 8 ) ( D o w n L o a
0037320 d M e m 1 6 2 0 . 1 9 8 9
0037340 ) ( F i l l S c r e e n 1 9
0037360 9 1 . 2 9 3 5 ) \r ( I n i
0037400 t S w a p A r r a y 2 9 3 7
0037420 . 4 2 2 4 ) ( I n i t T M S
0037440 3 4 0 1 0 4 2 2 6 . 8 1 0
0037460 9 ) ( M a k e M o v e I 8 1
0037500 1 1 . 8 3 1 7 ) ( M a k e
0037520 P r o g 8 3 1 9 . 1 1 6 0
0037540 1 ) \r ( P r i n t C T L R e g
0037560 s 1 1 6 0 3 . 1 1 9 3 7 )
0037600 ( P r i n t M e m o r y 1 1
0037620 9 3 9 . 1 2 3 6 8 ) ( R e
0037640 a d C T L R e g 1 2 3 7 0 .
0037660 1 3 0 7 5 ) ( S e t M e m o
0037700 r y 1 3 0 7 7 \r . 1 3 6 7
0037720 3 ) ( S w a p W o r d 1 3 6
0037740 7 5 . 1 3 9 0 8 ) ( W r i
0037760 t e C T L R e g 1 3 9 1 0 .
0040000 1 4 7 1 2 ) ( L o a d T e s
0040020 t P a t t e r n 1 4 7 1 4 .
0040040 1 4 9 3 8 ) ( \r L o a d T e
0040060 s t P r o g 1 4 9 4 0 . 1
0040100 5 0 9 6 ) ( L o a d P a t t e
0040120 r n 1 5 0 9 8 . 1 5 6 3 3
0040140 ) ( S t o p T M S 1 5 6 3 5
0040160 . 1 5 7 9 3 ) ) ) ) ) \r S T
0040200 O P \r
0040203