为REVOX B215卡座增加磁头抬起的电路

乡村猎手

revox 的b710 卡座，有一个clean键，当没有装磁带时，按下会抬起磁头组件，这样清洗压带轮的时候会比较方便。部分215机型按loop键的时候也有这功能，但有些机器却不行。经对比，发现，如果系统板零件号是1.721.210-11的板不行，1.721.210-22的就有这功能，仔细对照发现前者少部分电路，有一个单片机的零件号也不一样。 要实现这个功能得加装一部分电路，因为215的机器按钮是矩阵式的，所以加装模拟电路不容易实现这个功能，而且前者的单片机直接放到后者的板子上工作不正常， 所以不有直接加原机的电路。 考虑了一下，直接加一个单片机实现可能会比较简单，实际就是检测到键盘按下了loop键，则输出 到Q17来抬起磁头。 使用的是stc15w104相关的图片及代码如下。 装好后的那个图发贴时才发现没拍清楚，懒得重新照了。 #include <reg52.h>
- z" K* z+ S9 O1 h* f/ t& ^2 ?! Esfr P3M0        =   0xb2;
sfr P3M1        =   0xb1;
5 D6 Q* X$ Y9 i7 M) r$ a  Wsbit keyb = P3^1 ;   //10
sbit keyC = P3^0;     //10
' X$ ~5 v4 ?1 h& V///sbit s_cass = P3^5;   //10
1 `; F6 G6 O3 w" H, D1 `* u//sbit comm = P3^4;      //10
//unsigned char  loaded;
sbit ctrl = P3^3 ; //01用来控制磁头抬起的，高电位为抬起
9 Z# n- y2 ~( B8 Q4 uvoid Delay50us()                //@11.0592MHz
{
2 c! \$ ]" A# H( U        unsigned char i, j;
        i = 1;
1 W8 ^- q* m3 l4 S3 W        j = 134;
) F5 }2 t1 j0 p! P, Z% `        do
        {
6 v2 @6 \3 j1 ]5 q" @! G                while (--j);
        } while (--i);
. R2 |: K9 f9 \+ `- H/ p8 m}
( ~5 u3 F  n9 U
void main(void)
{
6 h, n4 C5 L7 e7 g/ ]8 m        ctrl = 0;
        keyb =1;
( a+ _8 Z) H' R2 I& [# c        keyC =1;
//        comm  = 1;
//        s_cass = 1 ;
        while(1)
: d; w, V0 l% a% G' V" R  R        {
        //        if         (comm==0 && s_cass==1)
: t/ P' x; I& A+ M        //        {
        //                loaded = 0;
( H/ `5 I4 n6 `3 u6 N! P" g  {        //        }        
; B5 \6 C' N! |        //        if         (comm==0 && s_cass==0)
        //        {
        //                loaded = 1;
2 y$ Y+ p: x! t7 B        //        }        

+ \5 H/ M, A  ]1 r# z/ x, e. e                if         (keyb==0 && keyC==0  )
                {
6 ^2 q+ g$ ~; b/ h3 I& Z                         P3M1 = 0x37 ; //00110111
                         P3M0 = 0x08 ;   //00001000
' T% p2 B! h8 m1 J; J& s                        Delay50us();
                        ctrl = 1;
                }
8 C6 J. _7 ]0 ~/ _5 \: D9 u
                if         (keyb==0 && keyC==1 )
: j; w: c7 ?3 q7 N; K+ I                {
3 w0 _3 m6 b; W# M                        ctrl = 0;
                         P3M1 = 0x3F ; //00111111
! L% M' }% }' ]; d# l5 \                         P3M0 = 0x00 ;   //00000000
                }
9 I8 T$ F: T' V* D        }
/ x5 {% ]0 `2 P% L5 Q" F}
) [7 ]* e0 d# N$ S$ V

" L$ a! D$ v" L9 d" t9 N$ F; a

! o: s8 v* G6 e5 z/ k/ B
( n# H- Y; G. `7 w
* _; s( s( A5 Y
$ z- v$ X+ b6 Z: v8 g


0 s0 T7 s, S+ ^' ~& K/ w* }

6 {" X, ~! U7 R1 u
0 x' \/ }- G5 l

79787675

给你100个赞  难得有这样的技术贴

憨马

这个牛叉！

我就是爱音乐

硬件、软件，加上动手能力，楼主高手！

jsjjskfb

楼主高手

linearpower

lmq2013

猎手兄对瑞华士的机器研究的非常透彻！&#128077;

jgp

高高手
9 K# Q, x* r' m+ f, d0 x6 ]

liufeng5401

sixegg

这一轮操作，软硬通吃，柿子苹果都要

liufeng5401

linearpower

kuo0202

文超玩胆

俺是一个软件盲

iggfree

这是高手！

开盘机127129

高手在民间