$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>DLTTY!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 " 5 - M a r - 8
0000140 7 1 2 : 5 7 : 4 2 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > D L T T Y . ; 3 7 006
0000220 001 6 6 3 6 0 \r \r
0000240 c h a n g e s t o % : (
0000260 F N S \ T T Y . C R E A T E .
0000300 F D E V ) \r \r p r e
0000320 v i o u s d a t e % : " 1 9
0000340 - F e b - 8 7 2 0 : 1 7 : 3 0
0000360 " { E R I S } < L I S P C O R
0000400 E > L I B R A R Y > D L T T Y .
0000420 ; 3 6 ) \r \r \r ( * " \r C o p y
0000440 r i g h t ( c ) 1 9 8 5 ,
0000460 1 9 8 6 , 1 9 8 7 b y X e
0000500 r o x C o r p o r a t i o n .
0000520 A l l r i g h t s r e s
0000540 e r v e d . \r " ) \r \r ( P R E T
0000560 T Y C O M P R I N T D L T T Y
0000600 C O M S ) \r \r ( R P A Q Q 006 002
0000620 D L T T Y C O M S 006 001 ( ( C O
0000640 M S \r \r
0000660 006 006 ( * ; ;
0000700 " D L i o n T T Y / P r i n
0000720 t e r p o r t h e a d " ) 006
0000740 001 \r \r
0000760 ( D E C L
0001000 A R E % : D O N T C O P Y (
0001020 E X P O R T ( C O N S T A N T
0001040 S * D L T T Y C O M M A N D
0001060 S ) \r
0001100
*
0001140 ( C O N S T A N T S
0001160 * D L T T Y O U T C O M M A
0001200 N D S ) \r
0001220
*
0001260 ( C O N S T A N
0001300 T S * D L T T Y S E T P A R
0001320 A M E T E R C O M M A N D S ) \r
0001340
*
0001420 ( R E C O R D S D L T T
0001440 Y . I N . C S B D L T T Y . O
0001460 U T . C O M M A N D \r
0001500
*
0001560 D L T T Y . O U T .
0001600 C S B D L T T Y . S E T P A R
0001620 A M E T E R . C O M M A N D ) )
0001640 ) \r
0001660 [ I N I T V
0001700 A R S [ \ D L T T Y . B A U D
0001720 . R A T E S ' ( ( 5 0 . 0
0001740 ) \r
0001760
*
0002020 ( 7 5 . 1
0002040 ) \r
0002060
*
0002120 ( 1 1 0 .
0002140 2 ) \r
0002160
*
0002220 ( 1 3 4 . 5
0002240 . 3 ) \r
0002260
*
0002320 ( 1 5
0002340 0 . 4 ) \r
0002360
*
0002420 ( 3
0002440 0 0 . 5 ) \r
0002460
*
0002520 (
0002540 6 0 0 . 6 ) \r
0002560
*
0002640 ( 1 2 0 0 . 7 ) \r
0002660
*
0002740 ( 1 8 0 0 . 8 ) \r
0002760
*
0003040 ( 2 0 0 0 . 9 ) \r
0003060
*
0003140 ( 2 4 0 0 . 1 0
0003160 ) \r
0003200
*
0003240 ( 3 6 0 0 .
0003260 1 1 ) \r
0003300
*
0003340 ( 4 8 0
0003360 0 . 1 2 ) \r
0003400
*
0003440 (
0003460 7 2 0 0 . 1 3 ) \r
0003500
*
0003560 ( 9 6 0 0 . 1 4 ] \r
0003600
0003620 ( \ D
0003640 L T T Y . I N V E R S E . B A U
0003660 D . R A T E S ' ( ( 0 . 5
0003700 0 ) \r
0003720
*
0003760 (
0004000 1 . 7 5 ) \r
0004020
*
0004100 ( 2 . 1 1 0 ) \r
0004120
*
0004200 ( 3 . 1
0004220 3 4 . 5 ) \r
0004240
*
0004320 ( 4 . 1 5 0 ) \r
0004340
*
0004420 ( 5 . 3 0 0
0004440 ) \r
0004460
*
0004520 ( 6
0004540 . 6 0 0 ) \r
0004560
*
0004640 ( 7 . 1 2 0 0 ) \r
0004660
*
0004740 ( 8 .
0004760 1 8 0 0 ) \r
0005000
*
0005060 ( 9 . 2 0 0 0 ) \r
0005100
*
0005160 ( 1 0 . 2
0005200 4 0 0 ) \r
0005220
*
0005300 ( 1 1 . 3 6 0 0 ) \r
0005320
*
0005400 ( 1 2 . 4
0005420 8 0 0 ) \r
0005440
*
0005520 ( 1 3 . 7 2 0 0 ) \r
0005540
*
0005620 ( 1 4 . 9
0005640 6 0 0 ] \r
0005660 ( P
0005700 ( C L : E V A L - W H E N ( C
0005720 L : E V A L C L : C O M P I L
0005740 E ) \r
0005760
*
0006040 006 006 ( * ; \r 006 001
0006060
*
0006140 006 006 " n o t L O
0006160 A D , i . e . , n o t i n
0006200 c o m p i l e d f i l e " )
0006220 006 001 \r
0006240
0006260 ( F I L E S L O A D
0006300 ( L O A D C O M P ) \r
0006320
*
0006360 D L R S 2 3 2 C ) ) ) \r
0006400
0006420 ( F N S \ D L
0006440 T T Y . C R E A T E - I N I T I
0006460 A L - F L O W - C O N T R O L )
0006500 \r
0006520 ( I N I T V A
0006540 R S ( \ D L T T Y . S T A T E
0006560 0 ) \r
0006600
0006620 ( \ D L T T Y . F L O W C
0006640 O N T R O L ( \ D L T T Y . C
0006660 R E A T E - I N I T I A L - F L
0006700 O W - C O N T R O L ) ) ) \r
0006720
0006740 ( A D D V A R S (
0006760 G L O B A L V A R S \ D L T T
0007000 Y . B A U D . R A T E S \ D L
0007020 T T Y . I N V E R S E . B A U D
0007040 . R A T E S \ D L T T Y . S T
0007060 A T E \r
0007100
0007120 \ D L
0007140 T T Y . F L O W C O N T R O L )
0007160 ) \r
0007200 ( F N S \
0007220 D L T T Y . B I N \ D L T T Y
0007240 . B O U T \ D L T T Y . G E T
0007260 . P A R A M E T E R S \ D L T
0007300 T Y . I N I T \ D L T T Y . R
0007320 E A D P \r
0007340
0007360 \ D L T T Y . S E T . P A
0007400 R A M E T E R S \ D L T T Y .
0007420 S H U T D O W N ) ) \r
0007440 ( C O
0007460 M S \r \r
0007500 006 006 ( * ; ;
0007520 " D a y b r e a k h e a d "
0007540 ) 006 001 \r \r
0007560 ( D E
0007600 C L A R E % : D O N T C O P Y
0007620 ( F I L E S ( S O U R C E )
0007640 \r
0007660
*
0007720 D O V E R S 2 3 2 C ) \r
0007740
0007760 (
0010000 E X P O R T ( R E C O R D S
0010020 D o v e . T T Y F C B ) \r
0010040
*
0010100 ( C O N S T A N T S *
0010120 D V T T Y B I T S ) ) ) \r
0010140
0010160 [ I N I T V A R S (
0010200 \ D o v e T T Y . F C B P o i n
0010220 t e r ) \r
0010240
0010260 [ \ D V T T Y . B A U D
0010300 . R A T E S ' ( ( 5 0 . 5
0010320 0 0 0 ) \r
0010340
*
0010400 ( 7 5 . 3
0010420 3 3 4 ) \r
0010440
*
0010500 ( 1 1 0 .
0010520 2 2 7 2 ) \r
0010540
*
0010600 ( 1 5 0 .
0010620 1 6 6 7 ) \r
0010640
*
0010700 ( 3 0 0
0010720 . 8 3 3 ) \r
0010740
*
0011000 ( 6 0 0
0011020 . 4 1 7 ) \r
0011040
*
0011100 ( 1 2 0 0
0011120 . 2 0 8 ) \r
0011140
*
0011200 ( 1 8 0
0011220 0 . 1 3 8 ) \r
0011240
*
0011300 ( 2 0
0011320 0 0 . 1 2 6 ) \r
0011340
*
0011400 ( 2
0011420 4 0 0 . 1 0 4 ) \r
0011440
*
0011500 (
0011520 3 6 0 0 . 6 9 ) \r
0011540
*
0011600 (
0011620 4 8 0 0 . 5 2 ) \r
0011640
*
0011700 (
0011720 7 2 0 0 . 3 5 ) \r
0011740
*
0012000 (
0012020 9 6 0 0 . 2 6 ] \r
0012040
0012060 ( \ D V T T
0012100 Y . I N V E R S E . B A U D . R
0012120 A T E S ' ( ( 5 0 0 0 . 5
0012140 0 ) \r
0012160
*
0012220 (
0012240 3 3 3 4 . 7 5 ) \r
0012260
*
0012340 ( 2 2 7 2 . 1
0012360 1 0 ) \r
0012400
*
0012460 ( 1 6 6 7 . 1 5 0 ) \r
0012500
*
0012560 ( 8 3 3 .
0012600 3 0 0 ) \r
0012620
*
0012700 ( 4 1 7 . 6 0 0 ) \r
0012720
*
0013000 ( 2 0 8 .
0013020 1 2 0 0 ) \r
0013040
*
0013120 ( 1 3 8 . 1 8 0 0 ) \r
0013140
*
0013220 ( 1 2 6
0013240 . 2 0 0 0 ) \r
0013260
*
0013340 ( 1 0 4 . 2 4 0 0 )
0013360 \r
0013400
*
0013440 ( 6 9
0013460 . 3 6 0 0 ) \r
0013500
*
0013560 ( 5 2 . 4 8 0 0 )
0013600 \r
0013620
*
0013660 ( 3 5
0013700 . 7 2 0 0 ) \r
0013720
*
0014000 ( 2 6 . 9 6 0 0 ]
0014020 \r
0014040 ( G L O B A L
0014060 V A R S \ D o v e T T Y . F C
0014100 B P o i n t e r \ D V T T Y .
0014120 I N V E R S E . B A U D . R A T
0014140 E S \ D V T T Y . B A U D . R
0014160 A T E S ) \r
0014200 ( F
0014220 N S \ D V T T Y . B I N \ D
0014240 V T T Y . B O U T \ D V T T Y
0014260 . I N I T \ D V T T Y . S E T
0014300 . P A R A M E T E R S \ D V T
0014320 T Y . R E A D P \r
0014340
0014360 \ D V T T Y . G E
0014400 T . P A R A M E T E R S \ D V
0014420 T T Y . S H U T D O W N ) \r
0014440
0014460 ( F U N C T I O N S
0014500 \ D V T T Y . F L U S H . I N
0014520 P U T ) ) \r
0014540 ( C O M S \r
0014560 \r
0014600 006 006 ( * ; ; " M a c
0014620 h i n e i n d e p e n d e n t
0014640 f a c e ; f o r D L i o
0014660 n a n d D a y B r e a k " )
0014700 006 001 \r \r
0014720 ( D E C
0014740 L A R E % : D O N T C O P Y
0014760 ( F I L E S ( L O A D C O M P
0015000 ) \r
0015020
*
0015060 D L R S 2 3 2 C ) ) \r
0015100
0015120 ( I N I T V A R
0015140 S ( \ T T Y . F D E V ) \r
0015160
0015200 ( \ T
0015220 T Y F L G ) \r
0015240
0015260 ( \ T T Y . R E A D
0015300 Y ) ) \r
0015320 ( A D D
0015340 V A R S ( G L O B A L V A R S
0015360 \ T T Y . F D E V \ T T Y F
0015400 L G \ T T Y . R E A D Y ) ) \r
0015420
0015440 ( D E C L A R E
0015460 % : D O N T C O P Y ( E X P
0015500 O R T ( R E C O R D S T T Y
0015520 S T R E A M ) ) ) \r
0015540
0015560 ( F N S \ T T Y . C R E A
0015600 T E . F D E V \ T T Y . E V E
0015620 N T F N \ T T Y . B I N \ T
0015640 T Y . B O U T \ T T Y . R E A
0015660 D P \r
0015700
0015720 \ T T Y . C L O S E F I L E
0015740 \ T T Y . O P E N F I L E \ T
0015760 T Y . P E E K B I N ) ) \r
0016000 (
0016020 C O M S \r
0016040 \r 006 006 ( *
0016060 ; ; " M a c h i n e i n d e
0016100 p e n d e n t u s e r f a c
0016120 e " ) 006 001 \r \r
0016140 (
0016160 F N S \ D L T T Y . C R E A T
0016200 E - D E F A U L T - I N I T - I
0016220 N F O ) \r
0016240 ( I N
0016260 I T V A R S ( T T Y . D E F A
0016300 U L T . I N I T . I N F O ( \
0016320 D L T T Y . C R E A T E - D E F
0016340 A U L T - I N I T - I N F O \r
0016360
*
0016460 \ D L T T Y . F L O W C O N T R
0016500 O L ) ) \r
0016520
0016540 ( T T Y . E R R O R . S
0016560 T R E A M P R O M P T W I N D
0016600 O W ) ) \r
0016620 ( G L
0016640 O B A L V A R S T T Y . D E F
0016660 A U L T . I N I T . I N F O T
0016700 T Y . E R R O R . S T R E A M )
0016720 \r
0016740 ( F N S T T
0016760 Y . I N I T T T Y . G E T . P
0017000 A R A M E T E R S T T Y . S E
0017020 T . P A R A M E T E R S T T Y
0017040 . R E S E T . S T R E A M S \r
0017060
0017100 T T Y
0017120 . S H U T D O W N ) \r
0017140
0017160 ( P R O P F I L E T Y P
0017200 E D L T T Y ) ) ) ) \r \r \r \r 006
0017220 004 ( * ; ; " D L i o n T T
0017240 Y / P r i n t e r p o r t h
0017260 e a d " ) 006 001 \r \r ( D E C L A R
0017300 E % : D O N T C O P Y \r ( *
0017320 " F O L L O W I N G D E F I
0017340 N I T I O N S E X P O R T E D
0017360 " ) \r \r \r ( R P A Q Q 006 002 D L
0017400 T T Y C O M M A N D S 006 001 ( (
0017420 T T Y . G E T . S T A T U S 3
0017440 3 2 8 0 ) \r
0017460 ( T T Y
0017500 . O N 3 3 5 3 6 ) \r
0017520
0017540 ( T T Y . O F F 3 3 7 9 2 )
0017560 \r
0017600 ( T T Y . B R E A
0017620 K . O N 3 4 3 0 4 ) \r
0017640
0017660 ( T T Y . B R E A K . O F F
0017700 3 4 5 6 0 ) ) ) \r ( D E C L A
0017720 R E % : E V A L @ C O M P I L
0017740 E \r \r ( R P A Q Q 006 002 T T Y
0017760 . G E T . S T A T U S 006 001 3 3
0020000 2 8 0 ) \r \r ( R P A Q Q 006 002 T
0020020 T Y . O N 006 001 3 3 5 3 6 ) \r \r
0020040 ( R P A Q Q 006 002 T T Y . O F F
0020060 006 001 3 3 7 9 2 ) \r \r ( R P A Q
0020100 Q 006 002 T T Y . B R E A K . O N
0020120 006 001 3 4 3 0 4 ) \r \r ( R P A Q
0020140 Q 006 002 T T Y . B R E A K . O F
0020160 F 006 001 3 4 5 6 0 ) \r \r ( C O N
0020200 S T A N T S ( T T Y . G E T .
0020220 S T A T U S 3 3 2 8 0 ) \r
0020240 ( T T Y . O N 3 3 5
0020260 3 6 ) \r ( T T Y .
0020300 O F F 3 3 7 9 2 ) \r
0020320 ( T T Y . B R E A K . O N
0020340 3 4 3 0 4 ) \r ( T
0020360 T Y . B R E A K . O F F 3 4 5
0020400 6 0 ) ) \r ) \r \r ( R P A Q Q 006
0020420 002 D L T T Y O U T C O M M A N D
0020440 S 006 001 ( ( P U T . C H A R 1
0020460 2 8 ) \r
0020500 ( A B
0020520 O R T . P U T 1 3 3 ) ) ) \r (
0020540 D E C L A R E % : E V A L @ C
0020560 O M P I L E \r \r ( R P A Q Q
0020600 006 002 P U T . C H A R 006 001 1 2 8
0020620 ) \r \r ( R P A Q Q 006 002 A B O R
0020640 T . P U T 006 001 1 3 3 ) \r \r ( C
0020660 O N S T A N T S ( P U T . C H
0020700 A R 1 2 8 ) \r (
0020720 A B O R T . P U T 1 3 3 ) ) \r
0020740 ) \r \r ( R P A Q Q 006 002 D L T T
0020760 Y S E T P A R A M E T E R C O M
0021000 M A N D S 006 001 ( ( S E T . D S
0021020 R 3 3 0 2 5 ) \r
0021040
0021060 ( S E T .
0021100 C T S 3 3 0 2 6 ) \r
0021120
0021140 ( S E
0021160 T . C H A R . L E N G T H 3 3
0021200 0 2 8 ) \r
0021220
0021240 ( S E T . P A R I
0021260 T Y 3 3 0 3 2 ) \r
0021300
0021320 ( S E T
0021340 . S T O P . B I T S 3 3 0 4 0
0021360 ) \r
0021400
0021420 ( S E T . B A U D . R A
0021440 T E 3 3 0 5 6 ) \r
0021460
0021500 ( S E T
0021520 . A L L . P A R A M E T E R S
0021540 3 3 0 8 7 ) ) ) \r ( D E C L A R
0021560 E % : E V A L @ C O M P I L E
0021600 \r \r ( R P A Q Q 006 002 S E T .
0021620 D S R 006 001 3 3 0 2 5 ) \r \r ( R
0021640 P A Q Q 006 002 S E T . C T S 006 001
0021660 3 3 0 2 6 ) \r \r ( R P A Q Q
0021700 006 002 S E T . C H A R . L E N G T
0021720 H 006 001 3 3 0 2 8 ) \r \r ( R P A
0021740 Q Q 006 002 S E T . P A R I T Y 006
0021760 001 3 3 0 3 2 ) \r \r ( R P A Q Q
0022000 006 002 S E T . S T O P . B I T S
0022020 006 001 3 3 0 4 0 ) \r \r ( R P A Q
0022040 Q 006 002 S E T . B A U D . R A T
0022060 E 006 001 3 3 0 5 6 ) \r \r ( R P A
0022100 Q Q 006 002 S E T . A L L . P A R
0022120 A M E T E R S 006 001 3 3 0 8 7 )
0022140 \r \r ( C O N S T A N T S ( S E
0022160 T . D S R 3 3 0 2 5 ) \r
0022200 ( S E T . C T S 3 3 0
0022220 2 6 ) \r ( S E T .
0022240 C H A R . L E N G T H 3 3 0 2
0022260 8 ) \r ( S E T . P
0022300 A R I T Y 3 3 0 3 2 ) \r
0022320 ( S E T . S T O P . B I
0022340 T S 3 3 0 4 0 ) \r
0022360 ( S E T . B A U D . R A T E
0022400 3 3 0 5 6 ) \r ( S
0022420 E T . A L L . P A R A M E T E R
0022440 S 3 3 0 8 7 ) ) \r ) \r ( D E C
0022460 L A R E % : E V A L @ C O M P
0022500 I L E \r \r ( A C C E S S F N S
0022520 006 002 D L T T Y . I N . C S B 006 001
0022540 [ ( T T Y I N B A S E ( L O
0022560 C F ( 006 002 f e t c h 006 001 ( I
0022600 O P A G E D L T T Y I N ) 006
0022620 002 o f 006 001 D A T U M ] \r
0022640
0022660 ( B L O C K R E C O R
0022700 D T T Y I N B A S E ( ( I N
0022720 . C O N T R O L W O R D ) \r
0022740
*
0023000 (
0023020 I N . D A T A B Y T E ) \r
0023040
*
0023100 ( D
0023120 A T A . T E R M I N A L . R E A
0023140 D Y F L A G ) \r
0023160
*
0023220 ( N I L B I
0023240 T S 4 ) \r
0023260
*
0023320 ( R E Q U E S T . T
0023340 O . S E N D F L A G ) \r
0023360
*
0023420 ( R X
0023440 . R E A D Y F L A G ) \r
0023460
*
0023520 ( T X
0023540 . R E A D Y F L A G ) ) ) \r
0023560
0023600 ( B L O C K R E C
0023620 O R D T T Y I N B A S E ( (
0023640 S T A T E F L A G ) \r
0023660
*
0023720 ( N I L
0023740 B I T S 7 ) \r
0023760
*
0024020 ( S U C C E S
0024040 S F L A G ) \r
0024060
*
0024120 ( B R E A K . D
0024140 E T E C T E D F L A G ) \r
0024160
*
0024220 ( F
0024240 R A M I N G . E R R O R F L A
0024260 G ) \r
0024300
*
0024340 ( D A T A . L O S T F L
0024360 A G ) \r
0024400
*
0024440 ( P A R I T Y . E R R O
0024460 R F L A G ) \r
0024500
*
0024540 ( N I L B I T
0024560 S 2 ) \r
0024600
*
0024640 ( N O T . R E A D Y
0024660 F L A G ) ) ) ) \r \r ( A C C E S
0024700 S F N S 006 002 D L T T Y . O U T
0024720 . C O M M A N D 006 001 [ ( C O M
0024740 M A N D B A S E ( L O C F (
0024760 006 002 f e t c h 006 001 ( I O P A G
0025000 E D L T T Y P O R T C M D )
0025020 006 002 o f 006 001 D A T U M ] \r
0025040
0025060 ( B L O C
0025100 K R E C O R D C O M M A N D B
0025120 A S E ( ( C O M M A N D B Y
0025140 T E ) \r
0025160
*
0025220 ( O U T D
0025240 A T A B Y T E ) ) ) ) \r \r ( A
0025260 C C E S S F N S 006 002 D L T T Y
0025300 . O U T . C S B 006 001 [ ( T T Y
0025320 O U T B A S E ( L O C F ( 006
0025340 002 f e t c h 006 001 ( I O P A G E
0025360 D L T T Y O U T ) 006 002 o f 006
0025400 001 D A T U M ] \r
0025420
0025440 ( B L O C K R E C O R D T
0025460 T Y O U T B A S E ( ( P A R A
0025500 M E T E R W O R D ) \r
0025520
*
0025560 ( N
0025600 O T I F Y . M A S K W O R D )
0025620 ) ) \r
0025640 ( B L O
0025660 C K R E C O R D T T Y O U T B
0025700 A S E ( ( O N . O F F B I T
0025720 S 4 ) \r
0025740
*
0026000 ( L I N E . S P E
0026020 E D B I T S 4 ) \r
0026040
*
0026100 ( S T
0026120 O P . B I T S B I T S 2 ) \r
0026140
*
0026220 ( P A R I T Y B I T S 2
0026240 ) \r
0026260
*
0026320 ( C H A R . L E N G T H
0026340 B I T S 2 ) \r
0026360
*
0026420 ( C L E A
0026440 R . T O . S E N D F L A G ) \r
0026460
*
0026540 ( D A T A . S E T . R E A D
0026560 Y F L A G ) ) ) ) \r \r ( A C C
0026600 E S S F N S 006 002 D L T T Y . S
0026620 E T P A R A M E T E R . C O M M
0026640 A N D 006 001 [ ( C O M M A N D B
0026660 A S E ( L O C F ( 006 002 f e t
0026700 c h 006 001 ( I O P A G E D L T
0026720 T Y P O R T C M D ) 006 002 o f 006
0026740 001 D A T U M ] \r
0026760
0027000 (
0027020 B L O C K R E C O R D C O M M
0027040 A N D B A S E ( ( C O M M A N
0027060 D W O R D ) ) ) ) \r ) \r \r ( *
0027100 " E N D E X P O R T E D D
0027120 E F I N I T I O N S " ) \r \r ) \r
0027140 \r ( R P A Q ? 006 002 \ D L T T Y
0027160 . B A U D . R A T E S 006 001 ' (
0027200 ( 5 0 . 0 ) \r
0027220
0027240 ( 7 5 . 1 ) \r
0027260
0027300 ( 1 1 0 . 2
0027320 ) \r
0027340 ( 1 3
0027360 4 . 5 . 3 ) \r
0027400
0027420 ( 1 5 0 . 4 ) \r
0027440
0027460 ( 3 0 0 .
0027500 5 ) \r
0027520 ( 6
0027540 0 0 . 6 ) \r
0027560
0027600 ( 1 2 0 0 . 7 ) \r
0027620
0027640 ( 1 8 0 0 .
0027660 8 ) \r
0027700 (
0027720 2 0 0 0 . 9 ) \r
0027740
0027760 ( 2 4 0 0 . 1 0 )
0030000 \r
0030020 ( 3 6 0
0030040 0 . 1 1 ) \r
0030060
0030100 ( 4 8 0 0 . 1 2 ) \r
0030120
0030140 ( 7 2 0 0
0030160 . 1 3 ) \r
0030200
0030220 ( 9 6 0 0 . 1 4 ) ) ) \r \r
0030240 ( R P A Q ? 006 002 \ D L T T Y .
0030260 I N V E R S E . B A U D . R A T
0030300 E S 006 001 ' ( ( 0 . 5 0 ) \r
0030320
*
0030360 ( 1 . 7 5 ) \r
0030400
0030420 (
0030440 2 . 1 1 0 ) \r
0030460
0030500 ( 3 .
0030520 1 3 4 . 5 ) \r
0030540
0030560 ( 4 .
0030600 1 5 0 ) \r
0030620
0030640 ( 5 . 3 0 0
0030660 ) \r
0030700
0030720 ( 6 . 6 0 0 ) \r
0030740
*
0031000 ( 7 . 1 2 0 0 ) \r
0031020
*
0031060 ( 8 . 1 8 0 0 ) \r
0031100
0031120 ( 9
0031140 . 2 0 0 0 ) \r
0031160
0031200 ( 1 0
0031220 . 2 4 0 0 ) \r
0031240
0031260 ( 1 1 .
0031300 3 6 0 0 ) \r
0031320
0031340 ( 1 2 .
0031360 4 8 0 0 ) \r
0031400
0031420 ( 1 3 . 7
0031440 2 0 0 ) \r
0031460
0031500 ( 1 4 . 9 6
0031520 0 0 ) ) ) \r ( C L : E V A L - W
0031540 H E N ( C L : E V A L C L :
0031560 C O M P I L E ) \r
0031600
*
0031660 006 006 ( * ; \r 006 001
0031700
*
0031760 006 006 "
0032000 n o t L O A D , i . e . ,
0032020 n o t i n c o m p i l e d
0032040 f i l e " ) 006 001 \r
0032060 ( F I L E S L O A D ( L O A D
0032100 C O M P ) \r
0032120 D L R S 2 3 2 C ) ) \r (
0032140 D E F I N E Q \r \r ( 006 004 \ D L T
0032160 T Y . C R E A T E - I N I T I A
0032200 L - F L O W - C O N T R O L 006 001
0032220 \r [ L A M B D A N I L 006 006
0032240 006 001
0032260
*
0032320 006 006 ( * ; " E d i t e d
0032340 6 - J a n - 8 7 1 6 : 2 3
0032360 b y h d j " ) 006 001 \r
0032400 ( 006 002 c r e a t e 006 001 R S 2 3
0032420 2 C . X O N X O F F \r
0032440 F L A G _ 1 \r
0032460 X O N . C H
0032500 A R _ ( C H A R C O D E ^
0032520 Q ) \r X O
0032540 F F . C H A R _ ( C H A R C
0032560 O D E ^ S ] ) \r ) \r \r ( R P A
0032600 Q ? 006 002 \ D L T T Y . S T A T
0032620 E 006 001 0 ) \r \r ( R P A Q ? 006
0032640 002 \ D L T T Y . F L O W C O N T
0032660 R O L 006 001 ( \ D L T T Y . C R
0032700 E A T E - I N I T I A L - F L O
0032720 W - C O N T R O L ) ) \r \r ( A D
0032740 D T O V A R 006 002 G L O B A L V
0032760 A R S 006 001 \ D L T T Y . B A U
0033000 D . R A T E S \ D L T T Y . I
0033020 N V E R S E . B A U D . R A T E
0033040 S \ D L T T Y . S T A T E \
0033060 D L T T Y . F L O W C O N T R O
0033100 L ) \r ( D E F I N E Q \r \r ( 006 004
0033120 \ D L T T Y . B I N 006 001 \r (
0033140 L A M B D A ( S T R E A M P
0033160 E E K I N G ) 006 006 006 001
0033200
0033220 006 006
0033240 ( * e j s % : " 2 5 - M a r
0033260 - 8 6 1 7 : 2 0 " ) 006 001 \r
0033300 ( 006 002 b i n d 006 001 C H A R
0033320 G O T C H A R N O T O P E N
0033340 006 002 u n t i l 006 001 G O T C H
0033360 A R 006 002 d o 006 001 ( 006 002 u n t
0033400 i l 006 001 ( O R ( 006 002 f e t c
0033420 h 006 001 ( D L T T Y . I N . C S
0033440 B S T A T E ) 006 002 o f 006 001
0033460 \ I O P A G E ) \r
0033500
*
0033560 ( S E T Q N O T O P E
0033600 N ( N O T ( R E A D A B L E
0033620 S T R E A M ) ) ) ) \r
0033640
*
0033700 006
0033720 002 d o 006 001 ( B L O C K ) ) \r
0033740
*
0034000 (
0034020 C O N D \r
0034040
*
0034100 ( N O T O P E N
0034120 ( R E T U R N ( \ E O F . A
0034140 C T I O N S T R E A M ) ) ) )
0034160 \r
0034200
*
0034240 ( S E T Q C H A R ( 006 002 f
0034260 e t c h 006 001 ( D L T T Y . I N
0034300 . C S B I N . D A T A ) 006 002
0034320 o f 006 001 \ I O P A G E ) ) \r
0034340
*
0034400 (
0034420 O R P E E K I N G ( 006 002 r e
0034440 p l a c e 006 001 ( D L T T Y . I
0034460 N . C S B S T A T E ) \r
0034500
*
0034560 006 002 o f
0034600 006 001 \ I O P A G E 006 002 w i t
0034620 h 006 001 N I L ) ) \r
0034640
*
0034700 ( C O N D \r
0034720
*
0035000 ( \ D L T T Y . F L O W C
0035020 O N T R O L ( C O N D \r
0035040
*
0035140 ( ( E Q C H A R
0035160 \r
0035200
*
0035300 ( 006 002 f e t c h 006 001 ( R S 2 3
0035320 2 C . X O N X O F F \r
0035340
*
0035460 X O F F . C H A R ) \r
0035500
*
0035600 006
0035620 002 o f 006 001 \r
0035640
*
0035740 \ D L T T Y
0035760 . F L O W C O N T R O L \r
0036000
*
0036120 ) ) \r
0036140
*
0036240 ( 006 002 r e p l a c e 006 001 ( T
0036260 T Y S T R E A M \r
0036300
*
0036420 O U T P U T H E L D \r
0036440
*
0036560 ) \r
0036600
*
0036700 006 002 o f 006
0036720 001 S T R E A M 006 002 w i t h 006
0036740 001 T ) ) \r
0036760
*
0037060 ( ( E Q C H A R \r
0037100
*
0037200 ( 006 002 f e t c
0037220 h 006 001 ( R S 2 3 2 C . X O N X
0037240 O F F \r
0037260
*
0037360 X O N . C
0037400 H A R ) \r
0037420
*
0037520 006 002 o f 006 001 \r
0037540
*
0037660 \ D L T T Y . F L O W C O N
0037700 T R O L \r
0037720
*
0040020 ) ) \r
0040040
*
0040140 ( 006 002 r e p l
0040160 a c e 006 001 ( T T Y S T R E A M
0040200 \r
0040220
*
0040320 O U T
0040340 P U T H E L D \r
0040360
*
0040500 ) \r
0040520
*
0040620 006 002 o f 006 001 S T R E A M
0040640 006 002 w i t h 006 001 N I L ) ) \r
0040660
*
0040760 ( T ( S E
0041000 T Q G O T C H A R T ) ) ) )
0041020 \r
0041040
*
0041100 ( T ( S E T Q G O T
0041120 C H A R T ) ) ) 006 002 f i n a
0041140 l l y 006 001 ( R E T U R N C H
0041160 A R ) ) ) ) \r \r ( 006 004 \ D L T T
0041200 Y . B O U T 006 001 \r ( L A M B
0041220 D A ( S T R E A M B Y T E )
0041240 006 006 006 001
0041260
0041300 006 006 ( * e
0041320 j s % : " 1 7 - M a y - 8 6
0041340 1 3 : 0 4 " ) 006 001 \r ( 006
0041360 002 w h i l e 006 001 ( I G E Q (
0041400 006 002 f e t c h 006 001 ( D L T T Y
0041420 . O U T . C O M M A N D C O M
0041440 M A N D ) 006 002 o f 006 001 \ I O
0041460 P A G E ) \r
0041500 P U T . C H A R )
0041520 006 002 d o 006 001 ( B L O C K ) )
0041540 \r ( C O N D \r
0041560 ( ( 006 002 f e t c h 006 001 ( T
0041600 T Y S T R E A M O U T P U T H
0041620 E L D ) 006 002 o f 006 001 S T R E
0041640 A M ) \r ( 006 002 d
0041660 o 006 001 ( C O N D \r
0041700 ( ( E Q ( 006
0041720 002 f e t c h 006 001 ( D L T T Y .
0041740 I N . C S B I N . D A T A )
0041760 006 002 o f 006 001 \ I O P A G E ) \r
0042000
0042020 ( 006 002 f e t c h 006 001 (
0042040 R S 2 3 2 C . X O N X O F F X
0042060 O N . C H A R ) 006 002 o f 006 001
0042100 \ D L T T Y . F L O W C O N T R
0042120 O L ) ) \r
0042140 ( 006 002 r e p l a c e 006
0042160 001 ( T T Y S T R E A M O U T
0042200 P U T H E L D ) 006 002 o f 006 001
0042220 S T R E A M 006 002 w i t h 006 001
0042240 N I L ) \r
0042260 ( 006 002 r e p l a c e 006
0042300 001 ( D L T T Y . I N . C S B
0042320 S T A T E ) 006 002 o f 006 001 \ I
0042340 O P A G E 006 002 w i t h 006 001 N
0042360 I L ) \r
0042400 ( R E T U R N ) ) ) \r
0042420 ( 006 002 r e
0042440 p l a c e 006 001 ( D L T T Y . I
0042460 N . C S B S T A T E ) 006 002 o
0042500 f 006 001 \ I O P A G E 006 002 w i
0042520 t h 006 001 N I L ) \r
0042540 ( B L O C K ) ) ) \r
0042560 ( \ D L T T Y . F
0042600 L O W C O N T R O L ( C O N D
0042620 \r
0042640 (
0042660 ( E Q ( 006 002 f e t c h 006 001 (
0042700 D L T T Y . I N . C S B I N .
0042720 D A T A ) 006 002 o f 006 001 \ I O
0042740 P A G E ) \r
0042760
0043000 ( 006 002 f e t c
0043020 h 006 001 ( R S 2 3 2 C . X O N X
0043040 O F F X O F F . C H A R ) 006
0043060 002 o f 006 001 \ D L T T Y . F L O
0043100 W C O N T R O L ) ) \r
0043120
0043140 ( 006 002 r e p
0043160 l a c e 006 001 ( T T Y S T R E A
0043200 M O U T P U T H E L D ) 006 002
0043220 o f 006 001 S T R E A M 006 002 w i
0043240 t h 006 001 T ) \r
0043260
0043300 ( 006 002 r e p l a c
0043320 e 006 001 ( D L T T Y . I N . C S
0043340 B S T A T E ) 006 002 o f 006 001
0043360 \ I O P A G E 006 002 w i t h 006 001
0043400 N I L ) \r
0043420
0043440 ( 006 002 d o 006 001 ( C O
0043460 N D \r
0043500
0043520 ( ( E Q ( 006
0043540 002 f e t c h 006 001 ( D L T T Y .
0043560 I N . C S B I N . D A T A )
0043600 006 002 o f 006 001 \ I O P A G E ) \r
0043620
*
0043660 ( 006 002 f e
0043700 t c h 006 001 ( R S 2 3 2 C . X O
0043720 N X O F F X O N . C H A R )
0043740 006 002 o f 006 001 \ D L T T Y . F L
0043760 O W C O N T R O L ) ) \r
0044000
*
0044040 ( 006 002 r e p l a c e 006 001
0044060 ( T T Y S T R E A M O U T P U
0044100 T H E L D ) 006 002 o f 006 001 S T
0044120 R E A M 006 002 w i t h 006 001 N I
0044140 L ) \r
0044160
0044200 ( 006 002 r e p
0044220 l a c e 006 001 ( D L T T Y . I N
0044240 . C S B S T A T E ) 006 002 o f
0044260 006 001 \ I O P A G E 006 002 w i t
0044300 h 006 001 N I L ) \r
0044320
*
0044360 ( R E T U R N ) ) ) \r
0044400
0044420 ( 006
0044440 002 r e p l a c e 006 001 ( D L T T
0044460 Y . I N . C S B S T A T E )
0044500 006 002 o f 006 001 \ I O P A G E 006
0044520 002 w i t h 006 001 N I L ) \r
0044540
*
0044600 ( B L O C K ) ) ) ) ) ) \r
0044620 ( 006 002 r e p l a c e 006 001 ( D
0044640 L T T Y . O U T . C O M M A N D
0044660 O U T D A T A ) 006 002 o f 006 001
0044700 \ I O P A G E 006 002 w i t h 006
0044720 001 ( L O G A N D B Y T E (
0044740 M A S K . 1 ' S 0 8 ) ) ) \r
0044760 ( 006 002 r e p l a c e 006 001
0045000 ( D L T T Y . O U T . C O M M
0045020 A N D C O M M A N D ) 006 002 o
0045040 f 006 001 \ I O P A G E 006 002 w i
0045060 t h 006 001 P U T . C H A R ) \r
0045100 T ) ) \r \r ( 006 004 \ D L T T
0045120 Y . G E T . P A R A M E T E R S
0045140 006 001 \r ( L A M B D A ( P A
0045160 R A M E T E R L I S T ) 006 006 006 001
0045200
*
0045240 006 006 ( * e j s % : "
0045260 8 - S e p - 8 5 1 7 : 0 0 "
0045300 ) 006 001 \r \r
0045320 006 006 ( * *
0045340 R e t u r n r e q u e s t e d
0045360 p a r a m e t e r s i n A
0045400 L I S T f o r m a t ) 006 001 \r \r
0045420 ( 006 002 f o r 006 001 P A R
0045440 A M E T E R 006 002 i n 006 001 P A
0045460 R A M E T E R L I S T \r
0045500 006 002 c o l l e c t 006 001 (
0045520 S E L E C T Q P A R A M E T E
0045540 R \r
0045560 ( ( S T O P . B I T S
0045600 N o O f S t o p B i t s ) \r
0045620
0045640 ( C O N S P A
0045660 R A M E T E R ( C D R ( F A
0045700 S S O C ( 006 002 f e t c h 006 001
0045720 ( D L T T Y . O U T . C S B S
0045740 T O P . B I T S ) 006 002 o f 006 001
0045760 \ I O P A G E ) \r
0046000
*
0046040 ' (
0046060 ( 0 . 0 ) \r
0046100
*
0046140 ( 1
0046160 . 1 ) \r
0046200
*
0046240 ( 2 .
0046260 1 . 5 ) \r
0046300
*
0046340 ( 3 .
0046360 2 ) ) ) ) ) ) \r
0046400 ( ( P A
0046420 R I T Y P a r i t y ) \r
0046440
0046460 ( C O N S P A R A
0046500 M E T E R ( C D R ( F A S S
0046520 O C ( 006 002 f e t c h 006 001 ( D
0046540 L T T Y . O U T . C S B P A R
0046560 I T Y ) 006 002 o f 006 001 \ I O P
0046600 A G E ) \r
0046620
*
0046660 ' ( ( 0 .
0046700 N O N E ) \r
0046720
*
0046760 ( 1 .
0047000 O D D ) \r
0047020
*
0047060 ( 3 .
0047100 E V E N ) ) ) ) ) ) \r
0047120 (
0047140 ( C H A R . L E N G T H B i t
0047160 s P e r S e r i a l C h a r )
0047200 \r
0047220 ( C O N S P
0047240 A R A M E T E R ( I P L U S
0047260 5 ( 006 002 f e t c h 006 001 ( D L
0047300 T T Y . O U T . C S B C H A R
0047320 . L E N G T H ) 006 002 o f 006 001
0047340 \ I O P A G E ) ) ) ) \r
0047360 (
0047400 ( L I N E . S P E E D B a u d
0047420 R a t e ) \r
0047440 (
0047460 C O N S P A R A M E T E R (
0047500 C D R ( F A S S O C ( 006 002 f
0047520 e t c h 006 001 ( D L T T Y . O U
0047540 T . C S B L I N E . S P E E D
0047560 ) 006 002 o f 006 001 \ I O P A G E
0047600 ) \r
0047620
*
0047660 \ D L T T Y . I N V
0047700 E R S E . B A U D . R A T E S )
0047720 ) ) ) \r
0047740 ( ( D A T A . S E
0047760 T . R E A D Y D S R ) \r
0050000
0050020 ( C O N S P A R A
0050040 M E T E R ( 006 002 f e t c h 006 001
0050060 ( D L T T Y . O U T . C S B
0050100 D A T A . S E T . R E A D Y )
0050120 006 002 o f 006 001 \ I O P A G E ) )
0050140 ) \r
0050160 ( ( C L E A R . T O .
0050200 S E N D C T S ) \r
0050220
0050240 ( C O N S P A R A M E T
0050260 E R ( 006 002 f e t c h 006 001 ( D
0050300 L T T Y . O U T . C S B C L E
0050320 A R . T O . S E N D ) 006 002 o f
0050340 006 001 \ I O P A G E ) ) ) \r
0050360
0050400 ( ( F L O W . C O N T R O L
0050420 F l o w C o n t r o l ) \r
0050440
0050460 ( C O N S P A R A
0050500 M E T E R ( C O N D \r
0050520
*
0050560 ( ( E Q U A L \
0050600 D L T T Y . F L O W C O N T R O
0050620 L \r
0050640
*
0050700 ( C O N S T A N T (
0050720 006 002 c r e a t e 006 001 R S 2 3 2
0050740 C . X O N X O F F \r
0050760
*
0051040 F L
0051060 A G _ 1 \r
0051100
*
0051160 X O N . C
0051200 H A R _ ( C H A R C O D E
0051220 ^ Q ) \r
0051240
*
0051320 X O F F . C H A
0051340 R _ ( C H A R C O D E ^ S
0051360 ) ) ) ) \r
0051400
*
0051440 ' X O n X O f f ) \r
0051460
*
0051520 ( T \ D L T T Y .
0051540 F L O W C O N T R O L ) ) ) ) \r
0051560
0051600 N I L ) ) ) ) \r \r ( 006 004 \
0051620 D L T T Y . I N I T 006 001 \r (
0051640 L A M B D A ( B A U D R A T E
0051660 B I T S P E R C H A R P A R
0051700 I T Y S T O P B I T S F L O
0051720 W C O N T R O L ) 006 006 006 001 006 006
0051740 ( * e j s % : " 8 - S e p
0051760 - 8 5 1 6 : 3 2 " ) 006 001 \r
0052000 ( S E T Q \ T T Y . R E A
0052020 D Y N I L ) \r ( 006 002 \
0052040 T T Y . C R E A T E . F D E V 006
0052060 001 ( 006 002 c r e a t e 006 001 R S
0052100 2 3 2 C . I N I T \r
0052120
0052140 B a u d R a t e
0052160 _ B A U D R A T E \r
0052200
0052220 B i t s P e r S
0052240 e r i a l C h a r _ B I T S
0052260 P E R C H A R \r
0052300
0052320 P a r i t y _ P A
0052340 R I T Y \r
0052360
0052400 N o O f S t o p B i t s _
0052420 S T O P B I T S \r
0052440
0052460 F l o w C o n t r
0052500 o l _ F L O W C O N T R O L
0052520 ) ) \r ( 006 002 r e p l a c
0052540 e 006 001 ( D L T T Y . O U T . C
0052560 O M M A N D C O M M A N D )
0052600 006 002 o f 006 001 \ I O P A G E 006
0052620 002 w i t h 006 001 A B O R T . P U
0052640 T ) \r ( 006 002 r e p l a c
0052660 e 006 001 ( D L T T Y . O U T . C
0052700 S B N O T I F Y . M A S K )
0052720 006 002 o f 006 001 \ I O P A G E 006
0052740 002 w i t h 006 001 0 ) \r (
0052760 006 002 r e p l a c e 006 001 ( D L T
0053000 T Y . I N . C S B D A T A . T
0053020 E R M I N A L . R E A D Y ) 006
0053040 002 o f 006 001 \ I O P A G E 006 002
0053060 w i t h 006 001 N I L ) \r
0053100 ( 006 002 r e p l a c e 006 001 ( D L
0053120 T T Y . I N . C S B R E Q U E
0053140 S T . T O . S E N D ) 006 002 o f
0053160 006 001 \ I O P A G E 006 002 w i t
0053200 h 006 001 N I L ) \r ( 006 002
0053220 r e p l a c e 006 001 ( D L T T Y
0053240 . S E T P A R A M E T E R . C O
0053260 M M A N D C O M M A N D ) 006
0053300 002 o f 006 001 \ I O P A G E 006 002
0053320 w i t h 006 001 T T Y . O N ) \r
0053340 ( 006 002 w h i l e 006 001 ( I
0053360 G E Q ( 006 002 f e t c h 006 001 (
0053400 D L T T Y . O U T . C O M M A N
0053420 D C O M M A N D ) 006 002 o f 006
0053440 001 \ I O P A G E ) \r
0053460 P U T .
0053500 C H A R ) 006 002 d o 006 001 ( B L
0053520 O C K ) ) \r ( S E T Q
0053540 \ D L T T Y . S T A T E ( 006 002
0053560 r e p l a c e 006 001 ( D L T T Y
0053600 . O U T . C S B P A R A M E T
0053620 E R ) 006 002 o f 006 001 \ I O P A
0053640 G E 006 002 w i t h 006 001 0 ) ) \r
0053660 ( 006 002 r e p l a c e 006 001
0053700 ( D L T T Y . S E T P A R A M
0053720 E T E R . C O M M A N D C O M
0053740 M A N D ) 006 002 o f 006 001 \ I O
0053760 P A G E 006 002 w i t h 006 001 S E
0054000 T . A L L . P A R A M E T E R S
0054020 ) \r ( 006 002 \ D L T T Y .
0054040 S E T . P A R A M E T E R S 006 001
0054060 ` ( ( L I N E . S P E E D %
0054100 , @ B A U D R A T E ) \r
0054120
0054140 ( C H A R .
0054160 L E N G T H % , @ B I T S P
0054200 E R C H A R ) \r
0054220
0054240 ( P A R I T Y % , @
0054260 P A R I T Y ) \r
0054300
0054320 ( S T O P . B I T S
0054340 % , @ S T O P B I T S ) \r
0054360
0054400 ( F L O
0054420 W . C O N T R O L % , @ F L
0054440 O W C O N T R O L ) ) ) \r
0054460 ( S E T Q \ T T Y F L G T
0054500 ) \r ( S E T Q \ T T Y
0054520 . R E A D Y T ) ) ) \r \r ( 006 004
0054540 \ D L T T Y . R E A D P 006 001 \r
0054560 ( L A M B D A ( S T R E A M
0054600 ) 006 006 006 001
0054620
*
0054660 006 006 ( * e j s % : " 2 7 - A
0054700 u g - 8 5 1 6 : 2 1 " ) 006 001 \r
0054720 ( 006 002 f e t c h 006 001 (
0054740 D L T T Y . I N . C S B S T A
0054760 T E ) 006 002 o f 006 001 \ I O P A
0055000 G E ) ) ) \r \r ( 006 004 \ D L T T Y
0055020 . S E T . P A R A M E T E R S 006
0055040 001 \r [ L A M B D A ( P A R
0055060 A M E T E R L I S T ) 006 006 006 001
0055100
*
0055140 006 006 ( * ; " E d i t e
0055160 d 1 8 - F e b - 8 7 1 8 : 5
0055200 8 b y j d s " ) 006 001 \r
0055220 \r
0055240 006 006 ( * ; ; " S e t t
0055260 h e l i n e s p e e d , f
0055300 l o w c o n t r o l , e t c
0055320 . f o r t h e T T Y p o
0055340 r t . " ) 006 001 \r
0055360 \r 006 006 (
0055400 * ; ; " P A R A M E T E R L
0055420 I S T i s a n A L i s t
0055440 o f p a r a m e t e r s &
0055460 v a l u e s . " ) 006 001 \r \r
0055500 ( 006 002 b i n d 006 001 P A R A M
0055520 E T E R V A L U E 006 002 f o r
0055540 006 001 P A R A M P A I R 006 002 i
0055560 n 006 001 P A R A M E T E R L I S
0055600 T \r 006 002 d o 006 001
0055620 006 006 ( * ; ; " R u n t h r
0055640 u t h e p a r a m e t e r
0055660 l i s t d e c o d i n g t h
0055700 e m a n d s e t t i n g u
0055720 p o p t i o n s . " ) 006 001 \r
0055740 ( 006 002 w h i l
0055760 e 006 001 ( I G E Q ( 006 002 f e t
0056000 c h 006 001 ( D L T T Y . O U T .
0056020 C O M M A N D C O M M A N D )
0056040 006 002 o f 006 001 \ I O P A G E )
0056060 \r
0056100 P U T . C H A R
0056120 ) 006 002 d o 006 001
0056140
0056160 006 006 ( * ; " W a i t '
0056200 t i l t h e p o r t i s
0056220 f r e e . " ) 006 001 \r
0056240
0056260 ( B
0056300 L O C K ) ) \r
0056320 ( S E T Q P A R A M E T E R
0056340 ( C A R P A R A M P A I R )
0056360 ) \r ( S E T
0056400 Q V A L U E ( C D R P A R
0056420 A M P A I R ) ) \r
0056440 ( S E L E C T Q P A R A
0056460 M E T E R \r
0056500 ( ( S T O P . B I T S
0056520 N o O f S t o p B i t s )
0056540
0056560 006 006 ( * ; " # o f
0056600 s t o p b i t s " ) 006 001 \r
0056620
0056640 [ L E T [ ( S B V A L U E
0056660 ( C D R ( S A S S O C V A L
0056700 U E ' ( ( 0 . 0 ) \r
0056720
*
0057000 ( 1 . 1 ) \r
0057020
*
0057100 ( 1 . 5 . 2 ) \r
0057120
*
0057200 ( 2 . 3 ] \r
0057220
0057240 ( C O N D \r
0057260
0057300 ( S B V A L U E ( 006
0057320 002 r e p l a c e 006 001 ( R S 2 3
0057340 2 C . I N I T N o O f S t o p
0057360 B i t s ) 006 002 o f 006 001 T T Y
0057400 . D E F A U L T . I N I T . I N
0057420 F O \r
0057440
0057460 006 002 w i t h
0057500 006 001 V A L U E ) \r
0057520
0057540 ( 006 002 r
0057560 e p l a c e 006 001 ( D L T T Y .
0057600 O U T . C S B S T O P . B I T
0057620 S ) 006 002 o f 006 001 \ I O P A G
0057640 E 006 002 w i t h 006 001 S B V A L
0057660 U E ) \r
0057700
0057720 ( 006 002 r e p l a c e
0057740 006 001 ( D L T T Y . S E T P A R
0057760 A M E T E R . C O M M A N D C
0060000 O M M A N D ) 006 002 o f 006 001 \
0060020 I O P A G E \r
0060040
0060060 006 002 w i
0060100 t h 006 001 S E T . S T O P . B I
0060120 T S ] ) \r
0060140 ( ( P A R I T Y P a r i
0060160 t y )
0060200
0060220 006 006 ( * ; " P a r i t y
0060240 " ) 006 001 \r
0060260 [ L E T [ ( P
0060300 A R V A L U E ( C D R ( F A
0060320 S S O C V A L U E ' ( ( N O
0060340 N E . 0 ) \r
0060360
*
0060440 ( O D D . 1 ) \r
0060460
*
0060540 ( E V E N . 3 ] \r
0060560
0060600 ( C O N D \r
0060620
0060640 ( P A R V A L U E
0060660 ( 006 002 r e p l a c e 006 001 ( R S
0060700 2 3 2 C . I N I T P a r i t y
0060720 ) 006 002 o f 006 001 T T Y . D E F
0060740 A U L T . I N I T . I N F O \r
0060760
*
0061020 006 002 w i t h 006 001
0061040 V A L U E ) \r
0061060
0061100 ( 006 002 r e p l
0061120 a c e 006 001 ( D L T T Y . O U T
0061140 . C S B P A R I T Y ) 006 002 o
0061160 f 006 001 \ I O P A G E 006 002 w i
0061200 t h 006 001 P A R V A L U E ) \r
0061220
*
0061260 ( 006 002 r e p l a c e 006 001 ( D
0061300 L T T Y . S E T P A R A M E T E
0061320 R . C O M M A N D C O M M A N
0061340 D ) 006 002 o f 006 001 \ I O P A G
0061360 E \r
0061400
0061420 006 002 w i t h 006 001
0061440 S E T . P A R I T Y ] ) \r
0061460 ( ( C H A
0061500 R . L E N G T H B i t s P e r
0061520 S e r i a l C h a r )
0061540 006 006 ( * ;
0061560 " b i t s p e r c h a r a
0061600 c t e r " ) 006 001 \r
0061620 [ L E T
0061640 ( ( L V A L U E ( I D I F F
0061660 E R E N C E V A L U E 5 ) )
0061700 ) \r
0061720 ( C O N D \r
0061740
0061760 ( ( A N D
0062000 ( I G E Q L V A L U E 0 )
0062020 \r
0062040
0062060 ( I L E Q L V A L U E 3
0062100 ) ) \r
0062120 (
0062140 006 002 r e p l a c e 006 001 ( R S 2
0062160 3 2 C . I N I T B i t s P e r
0062200 S e r i a l C h a r ) 006 002 o f
0062220 006 001 T T Y . D E F A U L T . I
0062240 N I T . I N F O \r
0062260
0062300 006 002 w i t h 006 001
0062320 V A L U E ) \r
0062340
0062360 ( 006 002 r e p l a c e 006 001
0062400 ( D L T T Y . O U T . C S B
0062420 C H A R . L E N G T H ) 006 002 o
0062440 f 006 001 \ I O P A G E 006 002 w i
0062460 t h 006 001 L V A L U E ) \r
0062500
0062520 ( 006 002 r e p l
0062540 a c e 006 001 ( D L T T Y . S E T
0062560 P A R A M E T E R . C O M M A N
0062600 D C O M M A N D ) 006 002 o f 006
0062620 001 \ I O P A G E 006 002 w i t h
0062640 006 001 \r
0062660
*
0062760 S E T . C H
0063000 A R . L E N G T H \r
0063020
0063040 ] ) \r
0063060 ( (
0063100 L I N E . S P E E D B a u d R
0063120 a t e )
0063140 006 006 (
0063160 * ; " l i n e s p e e d "
0063200 ) 006 001 \r
0063220 [ L E T [ ( B D
0063240 V A L U E ( C D R ( S A S S
0063260 O C V A L U E \ D L T T Y .
0063300 B A U D . R A T E S ] \r
0063320
0063340 ( C O N D \r
0063360
0063400 ( B D V A L U E ( 006
0063420 002 r e p l a c e 006 001 ( R S 2 3
0063440 2 C . I N I T B a u d R a t e
0063460 ) 006 002 o f 006 001 T T Y . D E F
0063500 A U L T . I N I T . I N F O \r
0063520
*
0063560 006 002 w i t h 006 001 V
0063600 A L U E ) \r
0063620
0063640 ( 006 002 r e p l a
0063660 c e 006 001 ( D L T T Y . O U T .
0063700 C S B L I N E . S P E E D )
0063720 006 002 o f 006 001 \ I O P A G E 006
0063740 002 w i t h 006 001 B D V A L U E )
0063760 \r
0064000
0064020 ( 006 002 r e p l a c e 006 001
0064040 ( D L T T Y . S E T P A R A M E
0064060 T E R . C O M M A N D C O M M
0064100 A N D ) 006 002 o f 006 001 \ I O P
0064120 A G E \r
0064140
0064160 006 002 w i t h 006
0064200 001 S E T . B A U D . R A T E ]
0064220 ) \r
0064240 ( ( D A T A . S E T . R E A D Y
0064260 D S R )
0064300 006
0064320 006 ( * ; " d a t a - s e t
0064340 r e a d y f l a g " ) 006 001 \r
0064360
0064400 ( 006 002 r e p l a c e 006 001 (
0064420 D L T T Y . O U T . C S B D A
0064440 T A . S E T . R E A D Y ) 006 002
0064460 o f 006 001 \ I O P A G E 006 002 w
0064500 i t h 006 001 ( N O T ( N U L L
0064520 V A L U E ) ) ) \r
0064540 ( 006 002
0064560 r e p l a c e 006 001 ( D L T T Y
0064600 . S E T P A R A M E T E R . C O
0064620 M M A N D C O M M A N D ) 006
0064640 002 o f 006 001 \ I O P A G E 006 002
0064660 w i t h 006 001 S E T . D S R ) )
0064700 \r (
0064720 ( C L E A R . T O . S E N D C
0064740 T S )
0064760 006 006
0065000 ( * ; " c l e a r - t o - s
0065020 e n d f l a g " ) 006 001 \r
0065040
0065060 ( 006 002 r e p l a c e 006 001 ( D L
0065100 T T Y . O U T . C S B C L E A
0065120 R . T O . S E N D ) 006 002 o f 006
0065140 001 \ I O P A G E 006 002 w i t h
0065160 006 001 ( N O T ( N U L L V A
0065200 L U E ) ) ) \r
0065220 ( 006 002 r e p
0065240 l a c e 006 001 ( D L T T Y . S E
0065260 T P A R A M E T E R . C O M M A
0065300 N D C O M M A N D ) 006 002 o f
0065320 006 001 \ I O P A G E 006 002 w i t
0065340 h 006 001 S E T . C T S ) ) \r
0065360 ( ( F L
0065400 O W . C O N T R O L F l o w C
0065420 o n t r o l )
0065440 006 006 ( *
0065460 ; " F l o w c o n t r o l "
0065500 ) 006 001 \r
0065520 ( 006 002 r e p l a c
0065540 e 006 001 ( R S 2 3 2 C . I N I T
0065560 F l o w C o n t r o l ) 006 002
0065600 o f 006 001 T T Y . D E F A U L T
0065620 . I N I T . I N F O 006 002 w i t
0065640 h 006 001 V A L U E ) \r
0065660 [ S
0065700 E T Q \ D L T T Y . F L O W C
0065720 O N T R O L \r
0065740 ( C O N D
0065760 \r
0066000 [ ( A N D ( N
0066020 O T ( L I S T P V A L U E )
0066040 ) \r
0066060 (
0066100 S T R I N G - E Q U A L V A L
0066120 U E ' X O n X O f f ) ) 006
0066140 006 ( * ; \r 006 001
0066160
*
0066220 006 006 " H e a
0066240 s k e d f o r X O N - X O F
0066260 F f l o w c o n t r o l .
0066300 G i v e i t t o h i m "
0066320 ) 006 001 \r
0066340 ( C O N
0066360 S T A N T ( 006 002 c r e a t e 006
0066400 001 R S 2 3 2 C . X O N X O F F
0066420 \r
0066440
0066460 F L A G _
0066500 1 \r
0066520
0066540 X O N .
0066560 C H A R _ ( C H A R C O D E
0066600 ^ Q ) \r
0066620
0066640 X O
0066660 F F . C H A R _ ( C H A R C
0066700 O D E ^ S ] \r
0066720 (
0066740 ( A N D V A L U E ( L I S T
0066760 P V A L U E ) )
0067000 006 006 ( * ; \r 006 001
0067020
*
0067100 006 006 " H e s p e c i f i e d
0067120 h i s o w n f l o w c o n
0067140 t r o l . S e t u p f o
0067160 r i t . " ) 006 001 \r
0067200
0067220 V A L U E ) \r
0067240
0067260 ( T
0067300
0067320 006 006 ( * ; " N o
0067340 f l o w c o n t r o l . " )
0067360 006 001 \r
0067400 ( C O
0067420 N S T A N T ( 006 002 c r e a t e
0067440 006 001 R S 2 3 2 C . X O N X O F
0067460 F \r
0067500
0067520 F L A
0067540 G _ 0 \r
0067560
*
0067620 X O N . C H A R _ 0 \r
0067640
*
0067700 X O F F . C H
0067720 A R _ 0 ] ) \r
0067740 N I L ) ) \r
0067760 ( S E T Q \ D L T T Y . S T
0070000 A T E ( 006 002 f e t c h 006 001 (
0070020 D L T T Y . O U T . C S B P A
0070040 R A M E T E R ) 006 002 o f 006 001
0070060 \ I O P A G E ] ) \r \r ( 006 004 \ D
0070100 L T T Y . S H U T D O W N 006 001 \r
0070120 ( L A M B D A N I L 006 006 006
0070140 001
0070160
*
0070220 006 006 ( * e j s % : " 2 7 -
0070240 A u g - 8 5 1 8 : 5 9 " ) 006 001
0070260 \r ( 006 002 w h i l e 006 001
0070300 ( I G E Q ( 006 002 f e t c h 006 001
0070320 ( D L T T Y . O U T . C O M M
0070340 A N D C O M M A N D ) 006 002 o
0070360 f 006 001 \ I O P A G E ) \r
0070400 P U
0070420 T . C H A R ) 006 002 d o 006 001 (
0070440 B L O C K ) ) \r ( 006 002 r
0070460 e p l a c e 006 001 ( D L T T Y .
0070500 S E T P A R A M E T E R . C O M
0070520 M A N D C O M M A N D ) 006 002
0070540 o f 006 001 \ I O P A G E 006 002 w
0070560 i t h 006 001 T T Y . O F F ) \r
0070600 ( S E T Q \ D L T T Y .
0070620 S T A T E ( 006 002 f e t c h 006 001
0070640 ( D L T T Y . O U T . C S B
0070660 P A R A M E T E R ) 006 002 o f 006
0070700 001 \ I O P A G E ) ) \r
0070720 ( S E T Q \ T T Y F L G ( S
0070740 E T Q \ T T Y . R E A D Y N
0070760 I L ) ) ) ) \r ) \r \r \r \r 006 004 ( *
0071000 ; ; " D a y b r e a k h e
0071020 a d " ) 006 001 \r \r ( D E C L A R E
0071040 % : D O N T C O P Y \r ( F I
0071060 L E S L O A D ( S O U R C E )
0071100 \r D O V E R S 2 3
0071120 2 C ) \r \r ( * " F O L L O W I
0071140 N G D E F I N I T I O N S E
0071160 X P O R T E D " ) \r \r ( D E C L
0071200 A R E % : E V A L @ C O M P I
0071220 L E \r \r ( M E S A R E C O R D
0071240 006 002 D o v e . T T Y F C B 006 001
0071260 ( ( t x T c b D o v e I O . T
0071300 a s k C o n t e x t B l o c k )
0071320 \r
0071340 ( s p e c R
0071360 x T c b D o v e I O . T a s k
0071400 C o n t e x t B l o c k ) \r
0071420
0071440 ( r x T a s k C h
0071460 B T c b D o v e I O . T a s k
0071500 C o n t e x t B l o c k ) \r
0071520
0071540 ( t t y L o c k M
0071560 a s k W O R D ) \r
0071600
0071620 ( t t y W o r k M a s k
0071640 W O R D ) \r
0071660 (
0071700 t t y C l i e n t C o n d i t i
0071720 o n D o v e I O . C l i e n t
0071740 C o n d i t i o n ) \r
0071760
0072000 ( t t y W o r k C o n d
0072020 i t i o n W O R D ) \r
0072040
0072060 ( t x B u f f e r B
0072100 Y T E ) \r
0072120 ( r
0072140 x B u f f e r B Y T E ) \r
0072160
0072200 ( t t y W o r k L
0072220 i s t W O R D ) \r
0072240
0072260 ( t t y B a u d R a t e
0072300 W O R D ) \r
0072320 (
0072340 w r 1 . w a i t E n a b l e F
0072360 L A G ) \r
0072400 ( N
0072420 I L B I T S 1 ) \r
0072440
0072460 ( w r 1 . w a i t O n R
0072500 x O r T x B I T S 1 ) \r
0072520
0072540 ( w r 1 . i n t e
0072560 r r u p t C o n d i t i o n B
0072600 I T S 2 ) \r
0072620
0072640 ( w r 1 . s t a t u s A f f e c
0072660 t s V e c t o r F L A G ) \r
0072700
0072720 ( w r 1 . t x I
0072740 n t D M A e n a b l e F L A G
0072760 ) \r
0073000 ( w r 1 .
0073020 e x t I n t e r r u p t E n a b
0073040 l e F L A G ) \r
0073060
0073100 ( w r 3 . r x C h a r L e n
0073120 g t h B I T S 2 ) \r
0073140
0073160 ( w r 3 . a u t o E n
0073200 a b l e F L A G ) \r
0073220
0073240 ( N I L B I T S 4 )
0073260 \r
0073300 ( w r 3 . r
0073320 x E n a b l e F L A G ) \r
0073340
0073360 ( w r 4 . c l o c
0073400 k R a t e B I T S 2 ) \r
0073420
0073440 ( N I L B I T S
0073460 2 ) \r
0073500 ( w r
0073520 4 . s t o p B i t s B I T S
0073540 2 ) \r
0073560 ( w r 4
0073600 . p a r i t y B I T S 2 ) \r
0073620
0073640 ( w r 5 . d a
0073660 t a S e t R e a d y F L A G )
0073700 \r
0073720 ( w r 5 . t
0073740 x C h a r L e n g t h B I T S
0073760 2 ) \r
0074000 ( w r
0074020 5 . s e n d B r e a k F L A G
0074040 ) \r
0074060 ( w r 5 .
0074100 t x E n a b l e F L A G ) \r
0074120
0074140 ( N I L B I T
0074160 S 1 ) \r
0074200 ( w
0074220 r 5 . c l e a r T o S e n d F
0074240 L A G ) \r
0074260 ( N
0074300 I L B I T S 1 ) \r
0074320
0074340 ( N I L B I T S 7 )
0074360 \r
0074400 ( i o p S y
0074420 s t e m I n p u t P o r t . n D
0074440 a t a T e r m i n a l R e a d y
0074460 F L A G ) \r
0074500
0074520 ( r r 0 . b r e a k D e t e c t
0074540 e d F L A G ) \r
0074560
0074600 ( r r 0 . t x U n d e r r u
0074620 n F L A G ) \r
0074640
0074660 ( r r 0 . r e q u e s t T o S
0074700 e n d F L A G ) \r
0074720
0074740 ( r r 0 . s y n c D e t e
0074760 c t e d F L A G ) \r
0075000
0075020 ( r r 0 . c a r r i e r
0075040 D e t e c t F L A G ) \r
0075060
0075100 ( r r 0 . t x B u f
0075120 f e r E m p t y F L A G ) \r
0075140
0075160 ( r r 0 . i n t
0075200 e r r u p t P e n d i n g F L
0075220 A G ) \r
0075240 ( r r
0075260 0 . r x C h a r A v a i l a b l
0075300 e F L A G ) \r
0075320
0075340 ( N I L B I T S 1 ) \r
0075360
0075400 ( r r 1 . a s y n
0075420 c F r a m i n g E r r o r F L
0075440 A G ) \r
0075460 ( r r
0075500 1 . r x O v e r r u n F L A G
0075520 ) \r
0075540 ( r r 1 .
0075560 p a r i t y E r r o r F L A G
0075600 ) \r
0075620 ( N I L
0075640 B I T S 3 ) \r
0075660
0075700 ( r r 1 . t x A l l S e n t
0075720 F L A G ) \r
0075740 (
0075760 r r 2 B Y T E ) \r
0076000
0076020 ( t t y S t a t u s W o r
0076040 d W O R D ) \r
0076060
0076100 ( e e P r o m I m a g e 4
0076120 W O R D ) ) ) \r ) \r \r ( R P A Q
0076140 Q 006 002 D V T T Y B I T S 006 001
0076160 ( ( w r i t e B a u d R a t e
0076200 3 2 7 6 8 ) \r
0076220 ( w r i t e R
0076240 e g 3 1 6 3 8 4 ) \r
0076260 ( w r
0076300 i t e R e g 4 8 1 9 2 ) \r
0076320
0076340 ( w r i t e R e g 5 4 0 9 6 )
0076360 \r
0076400 ( w o r k T o B e D o n e
0076420 2 0 4 8 ) \r
0076440 ( w r i t e R
0076460 e g 1 1 0 2 4 ) \r
0076500 ( t t y
0076520 C h n l B O n 1 6 3 8 4 ) \r
0076540
0076560 ( t t y T x B u f E m p t y
0076600 8 1 9 2 ) \r
0076620 ( t t y R x B u
0076640 f F u l l 4 0 9 6 ) \r
0076660 ( t
0076700 t y I n t e r r u p t F a i l
0076720 5 1 2 ) \r
0076740 ( t t y D a t a L
0076760 o s t 2 5 6 ) ) ) \r ( D E C L
0077000 A R E % : E V A L @ C O M P I
0077020 L E \r \r ( R P A Q Q 006 002 w r
0077040 i t e B a u d R a t e 006 001 3 2
0077060 7 6 8 ) \r \r ( R P A Q Q 006 002 w
0077100 r i t e R e g 3 006 001 1 6 3 8 4
0077120 ) \r \r ( R P A Q Q 006 002 w r i t
0077140 e R e g 4 006 001 8 1 9 2 ) \r \r (
0077160 R P A Q Q 006 002 w r i t e R e g
0077200 5 006 001 4 0 9 6 ) \r \r ( R P A Q
0077220 Q 006 002 w o r k T o B e D o n e
0077240 006 001 2 0 4 8 ) \r \r ( R P A Q Q
0077260 006 002 w r i t e R e g 1 006 001 1
0077300 0 2 4 ) \r \r ( R P A Q Q 006 002 t
0077320 t y C h n l B O n 006 001 1 6 3 8
0077340 4 ) \r \r ( R P A Q Q 006 002 t t y
0077360 T x B u f E m p t y 006 001 8 1 9
0077400 2 ) \r \r ( R P A Q Q 006 002 t t y
0077420 R x B u f F u l l 006 001 4 0 9 6
0077440 ) \r \r ( R P A Q Q 006 002 t t y I
0077460 n t e r r u p t F a i l 006 001 5
0077500 1 2 ) \r \r ( R P A Q Q 006 002 t t
0077520 y D a t a L o s t 006 001 2 5 6 )
0077540 \r \r ( C O N S T A N T S ( w r
0077560 i t e B a u d R a t e 3 2 7 6
0077600 8 ) \r ( w r i t e
0077620 R e g 3 1 6 3 8 4 ) \r
0077640 ( w r i t e R e g 4 8 1
0077660 9 2 ) \r ( w r i t
0077700 e R e g 5 4 0 9 6 ) \r
0077720 ( w o r k T o B e D o n e
0077740 2 0 4 8 ) \r ( w
0077760 r i t e R e g 1 1 0 2 4 ) \r
0100000 ( t t y C h n l B O
0100020 n 1 6 3 8 4 ) \r
0100040 ( t t y T x B u f E m p t y 8
0100060 1 9 2 ) \r ( t t y
0100100 R x B u f F u l l 4 0 9 6 ) \r
0100120 ( t t y I n t e r
0100140 r u p t F a i l 5 1 2 ) \r
0100160 ( t t y D a t a L o s
0100200 t 2 5 6 ) ) \r ) \r \r ( * " E
0100220 N D E X P O R T E D D E F I
0100240 N I T I O N S " ) \r \r ) \r \r ( R
0100260 P A Q ? 006 002 \ D o v e T T Y .
0100300 F C B P o i n t e r 006 001 ) \r \r
0100320 ( R P A Q ? 006 002 \ D V T T Y .
0100340 B A U D . R A T E S 006 001 ' ( (
0100360 5 0 . 5 0 0 0 ) \r
0100400
0100420 ( 7 5 . 3 3 3 4
0100440 ) \r
0100460 ( 1 1
0100500 0 . 2 2 7 2 ) \r
0100520
0100540 ( 1 5 0 . 1 6 6 7
0100560 ) \r
0100600 ( 3 0
0100620 0 . 8 3 3 ) \r
0100640
0100660 ( 6 0 0 . 4 1 7 ) \r
0100700
0100720 ( 1 2 0 0
0100740 . 2 0 8 ) \r
0100760
0101000 ( 1 8 0 0 . 1 3 8 ) \r
0101020
0101040 ( 2 0 0 0
0101060 . 1 2 6 ) \r
0101100
0101120 ( 2 4 0 0 . 1 0 4 ) \r
0101140
0101160 ( 3 6 0 0
0101200 . 6 9 ) \r
0101220
0101240 ( 4 8 0 0 . 5 2 ) \r
0101260
0101300 ( 7 2 0 0 .
0101320 3 5 ) \r
0101340
0101360 ( 9 6 0 0 . 2 6 ) ) ) \r \r (
0101400 R P A Q ? 006 002 \ D V T T Y . I
0101420 N V E R S E . B A U D . R A T E
0101440 S 006 001 ' ( ( 5 0 0 0 . 5 0
0101460 ) \r
0101500
0101520 ( 3 3 3 4 . 7 5 )
0101540 \r
0101560
0101600 ( 2 2 7 2 . 1 1 0 )
0101620 \r
0101640
0101660 ( 1 6 6 7 . 1 5 0 )
0101700 \r
0101720
0101740 ( 8 3 3 . 3 0 0 ) \r
0101760
*
0102020 ( 4 1 7 . 6 0 0 ) \r
0102040
*
0102100 ( 2 0 8 . 1 2 0 0 ) \r
0102120
*
0102160 ( 1 3 8 . 1 8 0 0 ) \r
0102200
*
0102240 ( 1 2 6 . 2 0 0 0 ) \r
0102260
*
0102320 ( 1 0 4 . 2 4 0 0 ) \r
0102340
*
0102400 ( 6 9 . 3 6 0 0 ) \r
0102420
*
0102460 ( 5 2 . 4 8 0 0 ) \r
0102500
*
0102540 ( 3 5 . 7 2 0 0 ) \r
0102560
0102600 (
0102620 2 6 . 9 6 0 0 ) ) ) \r ( D E
0102640 C L A R E % : D O E V A L @ C
0102660 O M P I L E D O N T C O P Y \r
0102700 \r ( G L O B A L V A R S \ D o
0102720 v e T T Y . F C B P o i n t e r
0102740 \ D V T T Y . I N V E R S E .
0102760 B A U D . R A T E S \ D V T T
0103000 Y . B A U D . R A T E S ) \r ) \r
0103020 ( D E F I N E Q \r \r ( 006 004 \ D V
0103040 T T Y . B I N 006 001 \r ( L A M
0103060 B D A ( S T R E A M P E E K
0103100 I N G ) 006 006 006 001
0103120
0103140 006 006 ( *
0103160 e j s % : " 2 5 - M a r - 8 6
0103200 1 7 : 2 0 " ) 006 001 \r (
0103220 006 002 b i n d 006 001 C H A R G O
0103240 T C H A R N O T O P E N 006 002
0103260 u n t i l 006 001 G O T C H A R \r
0103300 006 002 d o 006 001 ( 006
0103320 002 u n t i l 006 001 ( O R ( B I
0103340 T T E S T ( \ D o v e I O . B
0103360 y t e S w a p ( 006 002 f e t c h
0103400 006 001 ( D o v e . T T Y F C B
0103420 t t y S t a t u s W o r d ) 006
0103440 002 o f 006 001 \r
0103460
*
0103560 \ D o v e T T
0103600 Y . F C B P o i n t e r \r
0103620
*
0103700 ) ) \r
0103720
0103740 t t y R x B u f F u l l )
0103760 \r
0104000 ( S E T Q N O T O
0104020 P E N ( N O T ( R E A D A B
0104040 L E S T R E A M ) ) ) ) 006 002
0104060 d o 006 001 ( B L O C K ) ) \r
0104100 ( C O N D \r
0104120 ( N O T O
0104140 P E N ( R E T U R N ( \ E O
0104160 F . A C T I O N S T R E A M )
0104200 ) ) ) \r ( S
0104220 E T Q C H A R ( 006 002 f e t c
0104240 h 006 001 ( D o v e . T T Y F C B
0104260 r x B u f f e r ) 006 002 o f 006
0104300 001 \ D o v e T T Y . F C B P o
0104320 i n t e r ) ) \r
0104340 ( 006 002 r e p l a c e 006 001 (
0104360 D o v e . T T Y F C B t t y S
0104400 t a t u s W o r d ) 006 002 o f 006
0104420 001 \ D o v e T T Y . F C B P o
0104440 i n t e r \r
0104460 006 002 w i t h 006 001 ( \ D o
0104500 v e I O . B y t e S w a p ( B
0104520 I T C L E A R ( \ D o v e I O
0104540 . B y t e S w a p ( 006 002 f e t
0104560 c h 006 001 ( D o v e . T T Y F C
0104600 B t t y S t a t u s W o r d )
0104620 \r
0104640
*
0104720 006 002 o f 006 001 \ D o v e
0104740 T T Y . F C B P o i n t e r ) )
0104760 \r
0105000
0105020 ( L O G
0105040 O R t t y D a t a L o s t (
0105060 C O N D \r
0105100
*
0105160 ( P E E K I N G 0
0105200 ) \r
0105220
*
0105300 ( T t t y R x B u f F u
0105320 l l ) ) ) ) ) ) \r
0105340 ( C O N D \r
0105360 ( \ D L T T Y . F L
0105400 O W C O N T R O L ( C O N D \r
0105420
*
0105460 ( ( E Q C H A R ( 006
0105500 002 f e t c h 006 001 ( R S 2 3 2 C
0105520 . X O N X O F F X O F F . C H
0105540 A R ) 006 002 o f 006 001 \ D L T T
0105560 Y . F L O W C O N T R O L \r
0105600
*
0105660 ) ) \r
0105700
0105720 ( 006 002 r e
0105740 p l a c e 006 001 ( T T Y S T R E
0105760 A M O U T P U T H E L D ) 006
0106000 002 o f 006 001 S T R E A M 006 002 w
0106020 i t h 006 001 T ) ) \r
0106040
0106060 ( (
0106100 E Q C H A R ( 006 002 f e t c h
0106120 006 001 ( R S 2 3 2 C . X O N X O
0106140 F F X O N . C H A R ) 006 002 o
0106160 f 006 001 \ D L T T Y . F L O W C
0106200 O N T R O L ) \r
0106220
*
0106260 ) \r
0106300
0106320 ( 006 002 r e p l a
0106340 c e 006 001 ( T T Y S T R E A M
0106360 O U T P U T H E L D ) 006 002 o f
0106400 006 001 S T R E A M 006 002 w i t h
0106420 006 001 N I L ) ) \r
0106440
0106460 ( T
0106500 ( S E T Q G O T C H A R T )
0106520 ) ) ) \r
0106540 ( T ( S E T Q G O T C H A
0106560 R T ) ) ) 006 002 f i n a l l y
0106600 006 001 ( R E T U R N C H A R )
0106620 ) ) ) \r \r ( 006 004 \ D V T T Y . B
0106640 O U T 006 001 \r [ L A M B D A
0106660 ( S T R E A M B Y T E ) 006 006 006
0106700 001
0106720
0106740 006 006 ( * ; " E
0106760 d i t e d 2 1 - J a n - 8 7
0107000 0 1 : 2 9 b y j d s " ) 006 001
0107020 \r \r
0107040 006 006 ( * ; ; " B
0107060 O U T a c h a r a c t e r
0107100 t o t h e T T Y p o r t .
0107120 T a k e s a c c o u n t
0107140 o f f l o w c o n t r o l .
0107160 " ) 006 001 \r \r ( L E T (
0107200 ( B L O C K C O U N T 1 0 0 )
0107220 ) \r \r
0107240 006 006 ( * ; ; "
0107260 W a i t f o r t h e t r a
0107300 n s m i t b u f f e r t o
0107320 e m p t y , i f a c h a r
0107340 a c t e r i s i n p r o g
0107360 r e s s . " ) 006 001 \r \r
0107400 [ 006 002 w h i l e 006 001 (
0107420 N O T ( B I T T E S T ( \ D
0107440 o v e I O . B y t e S w a p (
0107460 006 002 f e t c h 006 001 ( D o v e .
0107500 T T Y F C B t t y S t a t u s
0107520 W o r d ) 006 002 o f 006 001 \r
0107540
*
0107660 \ D o v e T T Y . F C B P o i n
0107700 t e r \r
0107720
*
0107760 ) ) \r
0110000
0110020 t t y T x B
0110040 u f E m p t y ) ) 006 002 d o 006 001
0110060 ( C O N D \r
0110100
*
0110140 ( ( E Q ( C
0110160 L : D E C F B L O C K C O U N
0110200 T ) \r
0110220
*
0110260 0 ) \r
0110300
*
0110360 ( S E T Q B L O C K C O U N T
0110400 1 0 0 ) \r
0110420
*
0110460 ( B L O C K ]
0110500 \r \r
0110520 006 006 ( * ; ; " N
0110540 o w h a n d l e f l o w c
0110560 o n t r o l , i f a n y . "
0110600 ) 006 001 \r \r [ C
0110620 O N D \r
0110640 ( ( 006 002 f e t c h 006 001 ( T T Y
0110660 S T R E A M O U T P U T H E L
0110700 D ) 006 002 o f 006 001 S T R E A M
0110720 ) \r \r
0110740 006 006 ( * ; ; "
0110760 W e ' v e b e e n X O F F '
0111000 e d , a n d w e ' r e h o
0111020 l d i n g o u t p u t u n t
0111040 i l w e s e e a n X O N
0111060 . " ) 006 001 \r \r
0111100 ( 006 002 u n t i l 006 001 (
0111120 E Q ( 006 002 f e t c h 006 001 ( D
0111140 o v e . T T Y F C B r x B u f
0111160 f e r ) 006 002 o f 006 001 \ D o v
0111200 e T T Y . F C B P o i n t e r )
0111220 \r
0111240 ( 006 002 f e t c
0111260 h 006 001 ( R S 2 3 2 C . X O N X
0111300 O F F X O N . C H A R ) 006 002
0111320 o f 006 001 \ D L T T Y . F L O W
0111340 C O N T R O L ) ) \r
0111360 006 002 d o 006 001
0111400
*
0111440 006 006 ( *
0111460 ; \r 006 001
0111500
0111520 006 006 " K e e p
0111540 c l e a r i n g t h e r e
0111560 c e i v e b u f f e r a n
0111600 d w a i t i n g u n t i l
0111620 w e s e e X O N . " ) 006 001 \r
0111640
0111660 ( \ D V T T Y . F L U S H
0111700 . I N P U T ) \r
0111720 ( C O N D
0111740 \r
0111760 ( ( E Q ( C L :
0112000 D E C F B L O C K C O U N T )
0112020 \r
0112040 0 ) \r
0112060
0112100 ( S E T Q B L O C
0112120 K C O U N T 1 0 0 ) \r
0112140
0112160 ( B L O C K ) ) ) 006 002 f
0112200 i n a l l y 006 001
0112220 006 006 (
0112240 * ; " S a w t h e X O N
0112260 , t u r n o f f t h e h
0112300 o l d . " ) 006 001 \r
0112320
*
0112360 ( 006 002 r e p l a c e 006 001 ( T T
0112400 Y S T R E A M O U T P U T H E
0112420 L D ) 006 002 o f 006 001 S T R E A
0112440 M 006 002 w i t h 006 001 N I L ) )
0112460 ) \r ( \
0112500 D L T T Y . F L O W C O N T R O
0112520 L \r \r
0112540 006 006 ( * ; ;
0112560 " F l o w c o n t r o l i s
0112600 e n a b l e d . W a t c h
0112620 f o r X O N s a n d X O
0112640 F F s . " ) 006 001 \r \r
0112660 ( C O
0112700 N D \r
0112720 ( ( E Q ( 006
0112740 002 f e t c h 006 001 ( D o v e . T
0112760 T Y F C B r x B u f f e r )
0113000 006 002 o f 006 001 \ D o v e T T Y .
0113020 F C B P o i n t e r ) \r
0113040
0113060 ( 006 002 f e t c h 006
0113100 001 ( R S 2 3 2 C . X O N X O F
0113120 F X O F F . C H A R ) 006 002 o
0113140 f 006 001 \ D L T T Y . F L O W C
0113160 O N T R O L ) ) \r
0113200 \r 006 006
0113220 ( * ; ; " W e j u s t g
0113240 o t a n X O F F . H o l
0113260 d a l l o u t p u t . " ) 006
0113300 001 \r \r
0113320 ( 006 002 r e p
0113340 l a c e 006 001 ( T T Y S T R E A
0113360 M O U T P U T H E L D ) 006 002
0113400 o f 006 001 S T R E A M 006 002 w i
0113420 t h 006 001 T ) \r
0113440 (
0113460 \ D V T T Y . F L U S H . I N P
0113500 U T ) \r
0113520 ( 006 002 u n
0113540 t i l 006 001 ( E Q ( 006 002 f e t
0113560 c h 006 001 ( D o v e . T T Y F C
0113600 B r x B u f f e r ) 006 002 o f
0113620 006 001 \ D o v e T T Y . F C B P
0113640 o i n t e r ) \r
0113660
0113700 ( 006 002 f e t
0113720 c h 006 001 ( R S 2 3 2 C . X O N
0113740 X O F F X O N . C H A R ) 006
0113760 002 o f 006 001 \ D L T T Y . F L O
0114000 W C O N T R O L ) ) \r
0114020
0114040 006 002 d o 006 001
0114060
0114100 006 006 ( *
0114120 ; \r 006 001
0114140
0114160 006 006 " K e e
0114200 p c l e a r i n g t h e r
0114220 e c e i v e b u f f e r a
0114240 n d w a i t i n g u n t i l
0114260 w e s e e X O N . " ) 006 001
0114300 \r
0114320 ( \
0114340 D V T T Y . F L U S H . I N P U
0114360 T ) \r
0114400
0114420 ( C O N D \r
0114440
0114460 ( ( E Q ( C L : D
0114500 E C F B L O C K C O U N T ) \r
0114520
*
0114560 0 ) \r
0114600
0114620 ( S E T Q B
0114640 L O C K C O U N T 1 0 0 ) \r
0114660
*
0114720 ( B L O C K ) ) ) 006 002 f i n a
0114740 l l y 006 001
0114760 006 006 ( * ; " S a w t h e
0115000 X O N , t u r n o f f t h
0115020 e h o l d . " ) 006 001 \r
0115040
*
0115100 ( 006 002
0115120 r e p l a c e 006 001 ( T T Y S T
0115140 R E A M O U T P U T H E L D )
0115160 006 002 o f 006 001 S T R E A M \r
0115200
*
0115260 006 002 w i t h 006 001 N I L )
0115300 ) ) \r
0115320 ( ( E Q ( 006
0115340 002 f e t c h 006 001 ( D o v e . T
0115360 T Y F C B r x B u f f e r )
0115400 006 002 o f 006 001 \ D o v e T T Y .
0115420 F C B P o i n t e r ) \r
0115440
0115460 ( 006 002 f e t c h 006
0115500 001 ( R S 2 3 2 C . X O N X O F
0115520 F X O N . C H A R ) 006 002 o f
0115540 006 001 \ D L T T Y . F L O W C O
0115560 N T R O L ) ) \r
0115600 \r 006 006 (
0115620 * ; ; " W e r e c e i v e
0115640 d a s p a r e X O N .
0115660 T o s s i t a w a y . " ) 006
0115700 001 \r \r
0115720 ( \ D V T T
0115740 Y . F L U S H . I N P U T ] \r
0115760 ( 006 002 r e p l a
0116000 c e 006 001 ( D o v e . T T Y F C
0116020 B t x B u f f e r ) 006 002 o f
0116040 006 001 \ D o v e T T Y . F C B P
0116060 o i n t e r 006 002 w i t h 006 001
0116100 ( L O G A N D B Y T E ( M A
0116120 S K . 1 ' S 0 8 ) ) ) \r
0116140 ( 006 002 r e p l a c
0116160 e 006 001 ( D o v e . T T Y F C B
0116200 t t y S t a t u s W o r d )
0116220 006 002 o f 006 001 \ D o v e T T Y .
0116240 F C B P o i n t e r \r
0116260 006 002 w i t h 006 001
0116300 ( \ D o v e I O . B y t e S w a
0116320 p ( B I T C L E A R ( \ D o
0116340 v e I O . B y t e S w a p ( 006
0116360 002 f e t c h 006 001 ( D o v e . T
0116400 T Y F C B t t y S t a t u s W
0116420 o r d ) \r
0116440
*
0116520 006 002 o f 006 001 \ D
0116540 o v e T T Y . F C B P o i n t e
0116560 r ) ) \r
0116600
0116620 t t
0116640 y T x B u f E m p t y ) ) ) \r
0116660 \r
0116700 006 006 ( * ; ; " T e l
0116720 l t h e I O P t h e r e '
0116740 s w o r k t o d o : " ) 006
0116760 001 \r \r ( \ D o
0117000 v e I O . N o t i f y I O P (
0117020 006 002 f e t c h 006 001 ( D o v e .
0117040 T T Y F C B t t y W o r k M a
0117060 s k ) 006 002 o f 006 001 \ D o v e
0117100 T T Y . F C B P o i n t e r ) )
0117120 ) \r T ] ) \r \r ( 006 004 \ D
0117140 V T T Y . I N I T 006 001 \r ( L
0117160 A M B D A ( B A U D R A T E
0117200 B I T S P E R C H A R P A R I
0117220 T Y S T O P B I T S F L O W
0117240 C O N T R O L ) 006 006 006 001 006 006 (
0117260 * e j s % : " 2 3 - O c t -
0117300 8 5 1 9 : 4 6 " ) 006 001 \r
0117320 ( S E T Q \ T T Y . R E A D
0117340 Y N I L ) \r ( S E T Q
0117360 \ D o v e T T Y . F C B P o i
0117400 n t e r ( \ D o v e I O . G e
0117420 t H a n d l e r I O R e g i o n
0117440 P t r D o v e I O . t t y H a
0117460 n d l e r ) ) \r ( 006 002 \
0117500 T T Y . C R E A T E . F D E V 006
0117520 001 ( 006 002 c r e a t e 006 001 R S
0117540 2 3 2 C . I N I T \r
0117560
0117600 B a u d R a t e
0117620 _ B A U D R A T E \r
0117640
0117660 B i t s P e r S
0117700 e r i a l C h a r _ B I T S
0117720 P E R C H A R \r
0117740
0117760 P a r i t y _ P A
0120000 R I T Y \r
0120020
0120040 N o O f S t o p B i t s _
0120060 S T O P B I T S \r
0120100
0120120 F l o w C o n t r
0120140 o l _ F L O W C O N T R O L
0120160 ) ) \r ( 006 002 r e p l a c
0120200 e 006 001 ( D o v e . T T Y F C B
0120220 w r 1 . i n t e r r u p t C o
0120240 n d i t i o n ) 006 002 o f 006 001
0120260 \ D o v e T T Y . F C B P o i n
0120300 t e r 006 002 w i t h 006 001 \r
0120320
*
0120420 i n t O n A l l R x P a
0120440 r i t y N o t A f f e c t V e c
0120460 t o r \r )
0120500 \r ( 006 002 r e p l a c e 006
0120520 001 ( D o v e . T T Y F C B w
0120540 r 1 . t x I n t D M A e n a b l
0120560 e ) 006 002 o f 006 001 \ D o v e T
0120600 T Y . F C B P o i n t e r 006 002
0120620 w i t h 006 001 T ) \r ( 006
0120640 002 r e p l a c e 006 001 ( D o v e
0120660 . T T Y F C B w r 3 . r x E n
0120700 a b l e ) 006 002 o f 006 001 \ D o
0120720 v e T T Y . F C B P o i n t e r
0120740 006 002 w i t h 006 001 T ) \r
0120760 ( 006 002 r e p l a c e 006 001 ( D
0121000 o v e . T T Y F C B w r 5 . t
0121020 x E n a b l e ) 006 002 o f 006 001
0121040 \ D o v e T T Y . F C B P o i n
0121060 t e r 006 002 w i t h 006 001 T ) \r
0121100 ( 006 002 r e p l a c e 006 001
0121120 ( D o v e . T T Y F C B t t
0121140 y W o r k L i s t ) 006 002 o f 006
0121160 001 \ D o v e T T Y . F C B P o
0121200 i n t e r \r 006 002 w
0121220 i t h 006 001 ( \ D o v e I O . B
0121240 y t e S w a p ( B I T S E T
0121260 ( \ D o v e I O . B y t e S w a
0121300 p ( 006 002 f e t c h 006 001 ( D o
0121320 v e . T T Y F C B t t y W o r
0121340 k L i s t ) 006 002 o f 006 001 \r
0121360
*
0121500 \ D o v e T T Y . F C B P o i
0121520 n t e r \r
0121540
*
0121620 ) ) \r
0121640
0121660 ( L O G
0121700 O R w r i t e R e g 1 w r i
0121720 t e R e g 3 w r i t e R e g 5
0121740 w o r k T o B e D o n e ) ) )
0121760 ) \r ( 006 002 r e p l a c e
0122000 006 001 ( D o v e . T T Y F C B
0122020 t t y S t a t u s W o r d ) 006
0122040 002 o f 006 001 \ D o v e T T Y . F
0122060 C B P o i n t e r \r
0122100 006 002 w i t h 006 001 ( \ D o v e
0122120 I O . B y t e S w a p ( B I T
0122140 C L E A R ( B I T S E T ( \
0122160 D o v e I O . B y t e S w a p
0122200 ( 006 002 f e t c h 006 001 ( D o v e
0122220 . T T Y F C B t t y S t a t u
0122240 s W o r d ) \r
0122260
*
0122340 006 002 o f
0122360 006 001 \ D o v e T T Y . F C B P
0122400 o i n t e r ) ) \r
0122420
*
0122460 ( L O G O R t
0122500 t y C h n l B O n t t y T x B
0122520 u f E m p t y ) ) \r
0122540
0122560 (
0122600 L O G O R t t y R x B u f F u
0122620 l l t t y I n t e r r u p t F
0122640 a i l t t y D a t a L o s t )
0122660 ) ) ) \r ( \ D o v e I O
0122700 . N o t i f y I O P ( 006 002 f e
0122720 t c h 006 001 ( D o v e . T T Y F
0122740 C B t t y W o r k M a s k )
0122760 006 002 o f 006 001 \ D o v e T T Y .
0123000 F C B P o i n t e r ) ) \r
0123020 ( 006 002 \ D V T T Y . S E T . P
0123040 A R A M E T E R S 006 001 ` ( ( L
0123060 I N E . S P E E D % , @ B A
0123100 U D R A T E ) \r
0123120
0123140 ( C H A R . L E N G T
0123160 H % , @ B I T S P E R C H A
0123200 R ) \r
0123220
0123240 ( P A R I T Y % , @ P A R I
0123260 T Y ) \r
0123300
0123320 ( S T O P . B I T S % , @
0123340 S T O P B I T S ) \r
0123360
0123400 ( F L O W . C O N
0123420 T R O L % , @ F L O W C O N
0123440 T R O L ) ) ) \r ( S E T
0123460 Q \ T T Y F L G T ) \r
0123500 ( S E T Q \ T T Y . R E A D
0123520 Y T ) ) ) \r \r ( 006 004 \ D V T T
0123540 Y . S E T . P A R A M E T E R S
0123560 006 001 \r [ L A M B D A ( P A
0123600 R A M E T E R L I S T ) 006 006 006 001
0123620
*
0123660 006 006 ( * ; " E d i t
0123700 e d 1 9 - F e b - 8 7 1 7 :
0123720 2 6 b y j d s " ) 006 001 \r
0123740 ( 006 002 b i n d 006 001 P A R A
0123760 M E T E R V A L U E ( w o r
0124000 k L i s t I m a g e _ ( \ D
0124020 o v e I O . B y t e S w a p (
0124040 006 002 f e t c h 006 001 ( D o v e .
0124060 T T Y F C B t t y W o r k L i
0124100 s t ) \r
0124120
*
0124200 006 002 o f 006 001 \ D o v e
0124220 T T Y . F C B P o i n t e r ) )
0124240 ) \r 006 002 f o r 006 001
0124260 P A R A M P A I R 006 002 i n 006
0124300 001 P A R A M E T E R L I S T \r
0124320 006 002 d o 006 001 ( S
0124340 E T Q P A R A M E T E R ( C
0124360 A R P A R A M P A I R ) ) \r
0124400 ( S E T Q V
0124420 A L U E ( C D R P A R A M P
0124440 A I R ) ) \r
0124460 ( S E L E C T Q P A R A M E T
0124500 E R \r
0124520 ( ( S T O P . B I T S N o O
0124540 f S t o p B i t s ) \r
0124560 [
0124600 L E T [ ( S B V A L U E ( C
0124620 D R ( S A S S O C V A L U E
0124640 ' ( ( 0 . 0 ) \r
0124660
*
0124740 ( 1 . 1 ) \r
0124760
*
0125040 ( 1 . 5 . 2 ) \r
0125060
*
0125140 ( 2 . 3 ] \r
0125160
0125200 ( C O N D \r
0125220
0125240 ( S B V A L U E ( 006 002 r
0125260 e p l a c e 006 001 ( R S 2 3 2 C
0125300 . I N I T N o O f S t o p B i
0125320 t s ) 006 002 o f 006 001 T T Y . D
0125340 E F A U L T . I N I T . I N F O
0125360 \r
0125400
0125420 006 002 w i t h 006 001
0125440 V A L U E ) \r
0125460
0125500 ( 006 002 r e p
0125520 l a c e 006 001 ( D o v e . T T Y
0125540 F C B w r 4 . s t o p B i t s
0125560 ) 006 002 o f 006 001 \ D o v e T T
0125600 Y . F C B P o i n t e r \r
0125620
*
0125660 006 002 w i t h 006 001 S B V A L
0125700 U E ) \r
0125720
0125740 ( S E T Q w o r k
0125760 L i s t I m a g e ( B I T S E
0126000 T w o r k L i s t I m a g e
0126020 w r i t e R e g 4 ] ) \r
0126040 ( ( P A R I
0126060 T Y P a r i t y ) \r
0126100 [
0126120 L E T [ ( P A R V A L U E (
0126140 C D R ( F A S S O C V A L U
0126160 E ' ( ( N O N E . 0 ) \r
0126200
*
0126260 ( O D D . 1 )
0126300 \r
0126320
*
0126360 ( E V E N .
0126400 3 ] \r
0126420 ( C O N
0126440 D \r
0126460 ( P A
0126500 R V A L U E ( 006 002 r e p l a c
0126520 e 006 001 ( R S 2 3 2 C . I N I T
0126540 P a r i t y ) 006 002 o f 006 001
0126560 T T Y . D E F A U L T . I N I T
0126600 . I N F O \r
0126620
0126640 006 002
0126660 w i t h 006 001 V A L U E ) \r
0126700
*
0126740 ( 006 002 r e p l a c e 006 001 ( D o
0126760 v e . T T Y F C B w r 4 . p a
0127000 r i t y ) 006 002 o f 006 001 \ D o
0127020 v e T T Y . F C B P o i n t e r
0127040 \r
0127060
0127100 006 002 w i t h 006 001 P
0127120 A R V A L U E ) \r
0127140
0127160 ( S E T Q
0127200 w o r k L i s t I m a g e (
0127220 B I T S E T w o r k L i s t I
0127240 m a g e w r i t e R e g 4 ] )
0127260 \r (
0127300 ( C H A R . L E N G T H B i t
0127320 s P e r S e r i a l C h a r )
0127340 \r
0127360 [ L E T [ ( L V A L U
0127400 E ( S E L E C T Q V A L U E
0127420 \r
0127440
0127460 ( 8 3 ) \r
0127500
*
0127540 ( 7 1 ) \r
0127560
0127600 ( 6 2
0127620 ) \r
0127640
0127660 ( 5 0 ) \r
0127700
*
0127740 ( \ I L L E G A L . A R G
0127760 V A L U E ] \r
0130000 (
0130020 006 002 r e p l a c e 006 001 ( D o v
0130040 e . T T Y F C B w r 3 . r x C
0130060 h a r L e n g t h ) 006 002 o f 006
0130100 001 \ D o v e T T Y . F C B P o
0130120 i n t e r \r
0130140
0130160 006 002 w i t h 006 001 ( 006 002 r e p
0130200 l a c e 006 001 ( D o v e . T T Y
0130220 F C B w r 5 . t x C h a r L e
0130240 n g t h ) 006 002 o f 006 001 \ D o
0130260 v e T T Y . F C B P o i n t e r
0130300 \r
0130320
0130340 006 002 w i t h 006 001 L V A
0130360 L U E ) ) \r
0130400 ( S
0130420 E T Q w o r k L i s t I m a g
0130440 e ( B I T S E T w o r k L i
0130460 s t I m a g e ( L O G O R w
0130500 r i t e R e g 3 w r i t e R e
0130520 g 5 ] ) \r
0130540 ( ( L I N E . S P E E D
0130560 B a u d R a t e ) \r
0130600 [ L
0130620 E T [ ( B D V A L U E ( C D
0130640 R ( S A S S O C V A L U E
0130660 \ D V T T Y . B A U D . R A T E
0130700 S ] \r
0130720 ( C O N D
0130740 \r
0130760 ( B D V
0131000 A L U E ( 006 002 r e p l a c e 006
0131020 001 ( R S 2 3 2 C . I N I T B
0131040 a u d R a t e ) 006 002 o f 006 001
0131060 T T Y . D E F A U L T . I N I T
0131100 . I N F O \r
0131120
0131140 006 002 w
0131160 i t h 006 001 V A L U E ) \r
0131200
0131220 (
0131240 006 002 r e p l a c e 006 001 ( D o v
0131260 e . T T Y F C B t t y B a u d
0131300 R a t e ) 006 002 o f 006 001 \ D o
0131320 v e T T Y . F C B P o i n t e r
0131340 \r
0131360
0131400 006 002 w i t h 006 001 (
0131420 \ D o v e I O . B y t e S w a p
0131440 B D V A L U E ) ) \r
0131460
0131500 ( S E
0131520 T Q w o r k L i s t I m a g e
0131540 ( B I T S E T w o r k L i s
0131560 t I m a g e w r i t e B a u d
0131600 R a t e ] ) \r
0131620 ( ( D A T A . S E T .
0131640 R E A D Y D S R ) \r
0131660 (
0131700 006 002 r e p l a c e 006 001 ( D o v
0131720 e . T T Y F C B w r 5 . d a t
0131740 a S e t R e a d y ) 006 002 o f 006
0131760 001 \ D o v e T T Y . F C B P o
0132000 i n t e r \r
0132020 006 002 w i
0132040 t h 006 001 ( N O T ( N U L L
0132060 V A L U E ) ) ) \r
0132100 ( S E T
0132120 Q w o r k L i s t I m a g e
0132140 ( B I T S E T w o r k L i s t
0132160 I m a g e w r i t e R e g 5 )
0132200 ) ) \r
0132220 ( ( C L E A R . T O . S E N D
0132240 C T S ) \r
0132260 ( 006 002 r e p
0132300 l a c e 006 001 ( D o v e . T T Y
0132320 F C B w r 5 . c l e a r T o S
0132340 e n d ) 006 002 o f 006 001 \ D o v
0132360 e T T Y . F C B P o i n t e r \r
0132400
0132420 006 002 w i t h 006 001 (
0132440 N O T ( N U L L V A L U E )
0132460 ) ) \r
0132500 ( S E T Q w o r k
0132520 L i s t I m a g e ( B I T S E
0132540 T w o r k L i s t I m a g e
0132560 w r i t e R e g 5 ) ) ) \r
0132600 ( ( F L O
0132620 W . C O N T R O L F l o w C o
0132640 n t r o l ) \r
0132660 ( 006 002 r e
0132700 p l a c e 006 001 ( R S 2 3 2 C .
0132720 I N I T F l o w C o n t r o l
0132740 ) 006 002 o f 006 001 T T Y . D E F
0132760 A U L T . I N I T . I N F O 006
0133000 002 w i t h 006 001 V A L U E ) \r
0133020
0133040 [ S E T Q \ D L T T Y . F
0133060 L O W C O N T R O L \r
0133100 (
0133120 C O N D \r
0133140 [ ( A N
0133160 D ( N O T ( L I S T P V A
0133200 L U E ) ) \r
0133220
0133240 ( S T R I N G - E Q U A L
0133260 V A L U E ' X O N X O F F )
0133300 ) \r
0133320 ( C O N S T
0133340 A N T ( 006 002 c r e a t e 006 001
0133360 R S 2 3 2 C . X O N X O F F \r
0133400
*
0133440 F L A G _ 1
0133460 \r
0133500
0133520 X O N . C H
0133540 A R _ ( C H A R C O D E ^
0133560 Q ) \r
0133600
0133620 X O F F
0133640 . C H A R _ ( C H A R C O D
0133660 E ^ S ] \r
0133700 ( ( A
0133720 N D V A L U E ( L I S T P
0133740 V A L U E ) ) \r
0133760
0134000 V A L U E ) \r
0134020 ( T
0134040 ( C O N S T A N T ( 006 002 c r
0134060 e a t e 006 001 R S 2 3 2 C . X O
0134100 N X O F F \r
0134120
*
0134160 F L A G _ 0 \r
0134200
*
0134240 X O N . C H A R _
0134260 0 \r
0134300
0134320 X O F
0134340 F . C H A R _ 0 ] ) \r
0134360 N I L )
0134400 006 002 f i n a l l y 006 001 ( 006 002 r
0134420 e p l a c e 006 001 ( D o v e . T
0134440 T Y F C B t t y W o r k L i s
0134460 t ) 006 002 o f 006 001 \ D o v e T
0134500 T Y . F C B P o i n t e r \r
0134520
0134540 006 002 w i
0134560 t h 006 001 ( \ D o v e I O . B y
0134600 t e S w a p ( B I T S E T w
0134620 o r k L i s t I m a g e w o r
0134640 k T o B e D o n e ) ) ) \r
0134660
0134700 ( \ D o v e I O . N
0134720 o t i f y I O P ( 006 002 f e t c
0134740 h 006 001 ( D o v e . T T Y F C B
0134760 t t y W o r k M a s k ) 006 002
0135000 o f 006 001 \ D o v e T T Y . F C
0135020 B P o i n t e r ] ) \r \r ( 006 004 \
0135040 D V T T Y . R E A D P 006 001 \r
0135060 ( L A M B D A ( S T R E A M )
0135100 006 006 006 001
0135120
0135140 006
0135160 006 ( * e j s % : " 2 3 - O c
0135200 t - 8 5 1 9 : 1 9 " ) 006 001 \r
0135220 ( B I T T E S T ( \ D o
0135240 v e I O . B y t e S w a p ( 006
0135260 002 f e t c h 006 001 ( D o v e . T
0135300 T Y F C B t t y S t a t u s W
0135320 o r d ) 006 002 o f 006 001 \ D o v
0135340 e T T Y . F C B P o i n t e r )
0135360 ) \r t t y
0135400 R x B u f F u l l ) ) ) \r \r ( 006
0135420 004 \ D V T T Y . G E T . P A R A
0135440 M E T E R S 006 001 \r ( L A M B
0135460 D A ( P A R A M E T E R L I S
0135500 T ) 006 006 006 001
0135520
0135540 006 006 ( * e
0135560 j s % : " 2 5 - O c t - 8 5
0135600 2 1 : 4 9 " ) 006 001 \r
0135620 \r 006
0135640 006 ( * * R e t u r n r e q
0135660 u e s t e d p a r a m e t e r
0135700 s i n A L I S T f o r m a
0135720 t ) 006 001 \r \r ( 006 002 f o r
0135740 006 001 P A R A M E T E R 006 002 i
0135760 n 006 001 P A R A M E T E R L I S
0136000 T \r 006 002 c o l l e
0136020 c t 006 001 ( S E L E C T Q P A
0136040 R A M E T E R \r
0136060 ( ( S T O
0136100 P . B I T S N o O f S t o p B
0136120 i t s ) \r
0136140 ( C
0136160 O N S P A R A M E T E R ( C
0136200 D R ( F A S S O C ( 006 002 f e
0136220 t c h 006 001 ( D o v e . T T Y F
0136240 C B w r 4 . s t o p B i t s )
0136260 006 002 o f 006 001 \r
0136300
*
0136400 \ D o v e
0136420 T T Y . F C B P o i n t e r \r
0136440
*
0136520 ) \r
0136540
*
0136620 ( C O N S T A N T ` ( ( % ,
0136640 o n e S t o p B i t . 1 )
0136660 \r
0136700
*
0136760 ( % , o n e A n d H a l f S
0137000 t o p B i t . 1 . 5 ) \r
0137020
*
0137100 ( %
0137120 , t w o S t o p B i t s .
0137140 2 ) ) ) ) ) ) ) \r
0137160 ( ( P A
0137200 R I T Y P a r i t y ) \r
0137220
0137240 ( C O N S P A R A
0137260 M E T E R ( C D R ( F A S S
0137300 O C ( 006 002 f e t c h 006 001 ( D
0137320 o v e . T T Y F C B w r 4 . p
0137340 a r i t y ) 006 002 o f 006 001 \r
0137360
*
0137500 \ D o v e T T Y . F C B P o i
0137520 n t e r \r
0137540
*
0137620 ) \r
0137640
*
0137700 ' ( ( 0 . N O
0137720 N E ) \r
0137740
*
0140000 ( 1 . O
0140020 D D ) \r
0140040
*
0140100 ( 3 . E
0140120 V E N ) ) ) ) ) ) \r
0140140 ( ( C
0140160 H A R . L E N G T H B i t s P
0140200 e r S e r i a l C h a r ) \r
0140220
0140240 ( C O N S P A R
0140260 A M E T E R ( I P L U S 5
0140300 ( 006 002 f e t c h 006 001 ( D o v e
0140320 . T T Y F C B w r 5 . t x C h
0140340 a r L e n g t h ) 006 002 o f 006 001
0140360 \r
0140400
*
0140500 \ D o v e T T Y . F C B
0140520 P o i n t e r \r
0140540
*
0140620 ) ) ) ) \r
0140640 ( ( L I N E . S
0140660 P E E D B a u d R a t e ) \r
0140700
0140720 ( C O N S P A
0140740 R A M E T E R ( C D R ( F A
0140760 S S O C ( \ D o v e I O . B y
0141000 t e S w a p ( 006 002 f e t c h 006
0141020 001 ( D o v e . T T Y F C B \r
0141040
*
0141160 t t y B a u d R a t e
0141200 ) \r
0141220
*
0141300 006 002 o f
0141320 006 001 \ D o v e T T Y . F C B P
0141340 o i n t e r ) ) \r
0141360
*
0141420 \ D V
0141440 T T Y . I N V E R S E . B A U D
0141460 . R A T E S ) ) ) ) \r
0141500 ( (
0141520