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

乡村猎手

revox 的b710 卡座，有一个clean键，当没有装磁带时，按下会抬起磁头组件，这样清洗压带轮的时候会比较方便。部分215机型按loop键的时候也有这功能，但有些机器却不行。经对比，发现，如果系统板零件号是1.721.210-11的板不行，1.721.210-22的就有这功能，仔细对照发现前者少部分电路，有一个单片机的零件号也不一样。 要实现这个功能得加装一部分电路，因为215的机器按钮是矩阵式的，所以加装模拟电路不容易实现这个功能，而且前者的单片机直接放到后者的板子上工作不正常， 所以不有直接加原机的电路。 考虑了一下，直接加一个单片机实现可能会比较简单，实际就是检测到键盘按下了loop键，则输出 到Q17来抬起磁头。 使用的是stc15w104相关的图片及代码如下。 装好后的那个图发贴时才发现没拍清楚，懒得重新照了。 #include <reg52.h>
sfr P3M0        =   0xb2;
sfr P3M1        =   0xb1;
sbit keyb = P3^1 ;   //10
6 v" L0 O$ Z/ E2 Jsbit keyC = P3^0;     //10
# M' F1 s9 Q) N///sbit s_cass = P3^5;   //10
$ K* v. z: E5 L: q1 V( [( y//sbit comm = P3^4;      //10
; q& @0 y! R) A3 b  R! t7 @//unsigned char  loaded;
sbit ctrl = P3^3 ; //01用来控制磁头抬起的，高电位为抬起
# @" \' o+ T7 P& Hvoid Delay50us()                //@11.0592MHz
{
        unsigned char i, j;
/ d. b% @) w: p% k0 P3 c: k        i = 1;
        j = 134;
/ y5 B8 M1 O, z# K! c        do
/ r6 {: `5 }$ _1 f% l. V" x7 ~  d        {
                while (--j);
6 y3 G/ A: l- D5 M/ }2 h9 N$ \        } while (--i);
. q. W! ~, D7 F1 ^2 B5 P) G( ?! W}

void main(void)
{
9 i+ E/ w+ l' |- s. M        ctrl = 0;
        keyb =1;
# E% W/ b' l9 G' P6 a# Q5 `# t        keyC =1;
3 ~3 b; h3 t) X3 }//        comm  = 1;
1 l4 _. r4 p2 Q; n( ]//        s_cass = 1 ;
        while(1)
: O5 |7 t6 c' V1 ^4 s        {
        //        if         (comm==0 && s_cass==1)
+ u* L/ ]% ?# U6 e3 {        //        {
! `# s# m- I" S3 l3 E  x4 Z        //                loaded = 0;
: k6 i# q1 B  \" l* u5 h        //        }        
' A% k% t' M& t  C1 m- E$ ^        //        if         (comm==0 && s_cass==0)
        //        {
' E) N" Q& y2 \7 }1 P5 x- ~- P        //                loaded = 1;
' x3 e3 B$ q  |' @6 v        //        }        

                if         (keyb==0 && keyC==0  )
                {
                         P3M1 = 0x37 ; //00110111
                         P3M0 = 0x08 ;   //00001000
                        Delay50us();
" h( X2 S" b' h. r' Q4 D                        ctrl = 1;
% ^; P$ n' X5 K) a& ?7 j' p- D! X                }

& j+ l8 t! \# C/ B: A5 l' q                if         (keyb==0 && keyC==1 )
% T+ p! q  T' Q* J+ K4 I4 ~3 t                {
                        ctrl = 0;
                         P3M1 = 0x3F ; //00111111
# |1 r4 X# g! \) k, L                         P3M0 = 0x00 ;   //00000000
8 o* Z. q: A4 ], r. G% k3 q                }
        }
! O- P" k: U2 g}
" h. f! K2 t5 Y" Y8 i& U2 ]



" y: p% g( \( E; D2 {3 _
: L0 q2 w6 G4 P( y


2 u/ d# ]* S7 ^# a6 _$ d% `7 z
" a5 v! t# x+ c# d
. I& x! k! I2 ^, ?% Y
% I) c. a4 A% X: b
" \- V. ^7 n8 h% u/ \: B- L
& E" Q- V/ O: c0 n* {1 x

79787675

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

憨马

这个牛叉！

我就是爱音乐

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

jsjjskfb

楼主高手

linearpower

lmq2013

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

jgp

高高手

liufeng5401

sixegg

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

liufeng5401

linearpower

kuo0202

文超玩胆

俺是一个软件盲

iggfree

这是高手！

开盘机127129

高手在民间