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

乡村猎手

revox 的b710 卡座，有一个clean键，当没有装磁带时，按下会抬起磁头组件，这样清洗压带轮的时候会比较方便。部分215机型按loop键的时候也有这功能，但有些机器却不行。经对比，发现，如果系统板零件号是1.721.210-11的板不行，1.721.210-22的就有这功能，仔细对照发现前者少部分电路，有一个单片机的零件号也不一样。 要实现这个功能得加装一部分电路，因为215的机器按钮是矩阵式的，所以加装模拟电路不容易实现这个功能，而且前者的单片机直接放到后者的板子上工作不正常， 所以不有直接加原机的电路。 考虑了一下，直接加一个单片机实现可能会比较简单，实际就是检测到键盘按下了loop键，则输出 到Q17来抬起磁头。 使用的是stc15w104相关的图片及代码如下。 装好后的那个图发贴时才发现没拍清楚，懒得重新照了。 #include <reg52.h>
0 \5 O' N. e3 p- Zsfr P3M0        =   0xb2;
sfr P3M1        =   0xb1;
sbit keyb = P3^1 ;   //10
+ L2 C. [! d1 D# G( Rsbit keyC = P3^0;     //10
5 s: I$ T! ^- K$ x4 ?2 d///sbit s_cass = P3^5;   //10
//sbit comm = P3^4;      //10
3 d% U. U; P# o; T" v! A( K6 s//unsigned char  loaded;
2 p* V1 E' p1 |* z3 A+ isbit ctrl = P3^3 ; //01用来控制磁头抬起的，高电位为抬起
void Delay50us()                //@11.0592MHz
{
0 g/ \9 z# ]7 J        unsigned char i, j;
6 x+ g5 v/ m& ?8 G6 K        i = 1;
        j = 134;
        do
        {
& G7 H/ U# c3 s9 L- }                while (--j);
        } while (--i);
& m2 S: I# T( a5 a% ]6 O}

: G8 f. ]' z6 I4 M$ v1 w+ [. y. _void main(void)
6 r  [( D$ ]: ]( b{
  h+ s5 ~; d! S! L4 ]  t  K7 y        ctrl = 0;
) I" g- E3 ~4 w6 F        keyb =1;
        keyC =1;
//        comm  = 1;
//        s_cass = 1 ;
        while(1)
        {
        //        if         (comm==0 && s_cass==1)
. o9 }# \" K( a" C+ \" y        //        {
        //                loaded = 0;
        //        }        
# }8 X0 z, g- E, @        //        if         (comm==0 && s_cass==0)
1 Q$ x& E0 d$ Y        //        {
+ f- u  E9 j2 B/ y/ }        //                loaded = 1;
/ n7 B9 \  m0 ]) z+ x( C) k        //        }        
2 F# U2 D5 h+ s1 P
/ r' }+ J- U3 g- p) P5 z8 P" C                if         (keyb==0 && keyC==0  )
! M  q( C: _, i, H3 p$ m" p                {
0 G1 g) X6 B! W                         P3M1 = 0x37 ; //00110111
                         P3M0 = 0x08 ;   //00001000
# g0 y# V/ V8 T! E. t: k6 K                        Delay50us();
; _6 k& Z' u, k5 f# |                        ctrl = 1;
                }
; c( x& [1 Z/ S% b" t
                if         (keyb==0 && keyC==1 )
& ~+ G! b3 b6 h4 }( W: _$ E- ~                {
                        ctrl = 0;
1 ?4 b! C' h: K% c% t% ?& I. |                         P3M1 = 0x3F ; //00111111
' w& [: w) _9 @7 U/ m! O                         P3M0 = 0x00 ;   //00000000
  I0 {5 P) Y6 z! e                }
/ o/ g: _- I) _7 T" v# A7 p        }
6 D1 [# A: W2 G' h}

  N# |" R: ~) f' M. [8 f
- v8 F+ v. a/ m4 z7 R. D' I

/ f  x! s- _* v4 N  q. m. {( z


: T) f) ]1 q1 B. |$ M
1 O8 g: n: ?8 n4 P" H* b+ L

4 F7 M! c+ y+ f4 R. {

79787675

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

憨马

这个牛叉！

我就是爱音乐

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

jsjjskfb

楼主高手

linearpower

lmq2013

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

jgp

高高手
8 A8 L8 t2 g7 v5 K9 C' k

liufeng5401

sixegg

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

liufeng5401

linearpower

kuo0202

文超玩胆

俺是一个软件盲

iggfree

这是高手！

开盘机127129

高手在民间