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