$ od -c -N 50000 [Indigo]<Dicentra>BFS>Dicentra-CP.BFS!1>Bravo.scratchbravo 0000000 004 2 9 9 9 \0 e v - I . i n l r s 0000020 i o n 7 . 5 N o v e m b e r 0000040 3 0 , 1 9 7 9 \0 016 D C P - R 0000060 e v - I . i n l . \0 l a t e . c 0000100 m . 021 001 344 \0 \0 \0 ( 217 001 371 N v B 247 0000120 301 \0 \0 371 020 S e n d t o q u o 0000140 t h 004 005 \0 002 207 v 322 021 001 344 \0 0000160 \0 \0 ( 217 001 371 N v B 247 301 \0 \0 371 363 \0 0000200 \0 \0 \0 \0 S v 2 \0 002 371 2 z 242 \0 \0 \0 0000220 005 \0 003 207 v 322 021 001 344 \0 \0 \0 ( 217 001 371 0000240 N v B 247 301 \0 \0 371 363 \0 \0 \0 \0 \0 S v 0000260 2 \0 002 371 2 z 242 \0 \0 \0 005 \0 004 207 v 322 0000300 021 001 344 \0 \0 \0 ( 217 001 371 N v B 247 301 \0 0000320 \0 371 363 \0 \0 \0 \0 \0 S v 2 \0 002 371 2 z 0000340 242 \0 \0 \0 005 \0 005 207 v 322 021 001 344 \0 \0 \0 0000360 ( 217 001 371 N v B 247 301 \0 \0 371 363 \0 \0 \0 0000400 \0 \0 S v 2 \0 002 371 2 z 242 \0 \0 \0 005 \0 0000420 006 207 v 322 021 001 344 \0 \0 \0 ( 217 001 371 N v 0000440 B 247 301 \0 \0 371 363 \0 \0 \0 \0 \0 S v 2 \0 0000460 002 371 2 z 242 \0 \0 \0 005 \0 \a 207 v 322 021 001 0000500 344 \0 \0 \0 ( 217 001 371 N v B 247 301 \0 \0 371 0000520 D C P - R e v - I . i n l u 4 0 0000540 m p l J 4 W " . 1 0 u 5 0 O c t 0000560 o b e r 1 4 , 1 9 8 4 7 0000600 : 4 8 P M 6 : 4 1 P M 6 4 0000620 3 2 3 7 4 3 7 4 2 0 5 d c p > 0000640 a , D B , 1 3 > a , D C , 6 0000660 > a , D D , 1 4 > a , D E , 5 0000700 > a , D F , 1 5 > a , D G , 0000720 4 > a , D H , 1 6 \r a , I A , 0000740 1 1 > a , O A , 8 > a , I H 0000760 , 1 8 > a , O H , 1 7 \r a , S 0001000 0 , 1 > a , S 1 , 1 9 \r a , G 0001020 1 , 2 > a , G 2 , 3 \r a , C K 0001040 , 1 2 > a , C L , 9 A p r i l 0001060 2 1 , 1 9 8 4 1 0 : 4 4 0001100 P M / l o w t r u e \r 0001120 R o m 0 C E O E b i t b i 0001140 t \t \t / / l o w t r u e \r 0001160 R o m 1 C E b i t \t \t / / 0001200 l o w t r u e \r R o m 1 0001220 O E b i t \t \t / / l o w t r 0001240 u e \r M a p F l a g 0 b 0001260 i t \r M a p F l a g 1 b 0001300 i t \r b l a n k b i t 0001320 2 \r l e t B a n k = a d d 0001340 r < < A d d r . B a n k \r l e t 0001360 U s e R o m = a d d r < < 0001400 A d d r . U s e R o m \r \r l e t 0001420 R o m 0 C E , R o m 0 O E 0001440 = f a l s e , f a l s e \r l 0001460 e t R o m 1 C E , R o m 1 O 0001500 E = f a l s e , f a l s e 0001520 \r l e t M a p F l a g 0 , M 0001540 a p F l a g 1 = f a l s e , 0001560 f a l s e \r \r i f U s e R o 0001600 m t h e n \r [ \r ] 0001620 \r l o w s 2 s 0 i f B 0001640 a n k e q 0 t h e n [ 0001660 R o m 0 C E , R o m 0 O E = 0001700 \r i f B a n k e q 0001720 1 t h e n R o m 1 C E , R 0001740 o m 1 O E = \r d a t a > > D a 0001760 t a . R o m 0 C E = R o m h 0002000 i g h f a l s e 0 C E ? t r u e 0002020 , t r u e \r d a t a > > D a t 0002040 a . R o m 0 O E = R o m 0 O 0002060 E ? \r d a t a > > D a t a . R o 0002100 m 1 C E = R o m 1 C E ? \r d 0002120 a t a > > D a t a . R o m 1 O E 0002140 = R o m 1 O E ? \r d a t a > 0002160 > D a t a . M a p F l a g s = 0002200 M a p F l a g s \r / / T h i 0002220 s v e r s i o n i s f o r 0002240 i 3 6 3 2 b i p o l a r p 0002260 r o m s . T h e y h a v e 0002300 2 c h i p s e l e c t s 0002320 ( c a l l e d C E a n d O 0002340 E h e r e ) \r / / ; C E 0002360 i s h i g h t r u e a n 0002400 d O E i s l o w t r u e 0002420 . \r / / i 2 7 3 2 A E P r o 0002440 m s h a v e t r u e C E 0002460 a n d O E p i n s w h i c 0002500 h a r e b o t h l o w t 0002520 r u e . \r / / A d i f f e r 0002540 e n t v e r s i o n i s n 0002560 e e d e d f o r . T h e 0002600 y \r / / p i n s - \t \t / 0002620 / h i g h t r u e f o r i 0002640 3 6 3 2 ; l o w t r u e f 0002660 o r i 2 7 3 2 A l o w , h 0002700 i g h B i p o l a r \r D o M e m 0002720 o r y ( " C P B a n k E P r o m 0002740 " , 5 1 2 , 8 , C P B a n 0002760 k E P r o m ) B i p o l a r E P 0003000 r o m \t \t / / l o w t r u e l 0003020 o w t r u e l o w , h i g 0003040 h l o w , h i g h h i 0003060 g h , l o w \t \t / / l o w t 0003100 r u e , a k a C S 1 \t \t / / 0003120 h i g h t r u e , a k a C 0003140 S 2 R o m 1 O E ? \r d a t a > 0003160 > D a t a . M a p F l a g s = 0003200 1 9 8 3 6 : 3 6 P M 8 0003220 0 \r i f b l o c k 0003240 C n t e q 8 0 0 t h e n 0003260 F l u s h B l o c k ( ) P u t s 0003300 ( o u t , $ * N ) \r \r t o $ 0003320 * S $ * \r [ \r 0003340 \r ] \r 0003360 f o r i = b l o c k C 0003400 n t t o 7 9 9 d o b l o 0003420 c k > > B y t e ^ i = $ * S 0003440 / / p a d b l o c k w i 0003460 t h $ * S 8 0 0 0003500 i f p a r t C n t r e m 1 0003520 0 e q 0 t h e n W s s ( 0003540 o u t , " $ * N " ) \r i 0003560 f t h e n \r \r n e = 0003600 b l o c k C n t + r e c o r 0003620 d C n t \r r e c o r d > > B y t 0003640 e s . b y t e ^ 0 = $ 0 \r r 0003660 e c o r d > > B y t e s . b y t 0003700 e ^ 1 = $ 0 \r r e c o r d > 0003720 > B y t e s . b y t e 4 = $ 0003740 * S \r ^ r e c o r d C n t = 0003760 5 / / F o r t r a n c a r 0004000