REVOX B710 MCU芯片MK3870替换方案（连载）

建新

高手中的高手。

yjwu

4 M" B% J0 b: C8 ~% a8 _8 Z很精彩的帖子
. O0 |2 x" q& a% ^( v' t
- y" c7 @0 L) h: c7 LMOSTEK MK3870/3872 有一個可外接2732/2764 EPROM 的MK38P70 開發版, 只要將健康可工作的MK3870/3872
) l, g- U" i  O! h2 s ROM控ˊ制碼讀出,寫入2764 EPROM  則直接可用
: ~* S9 U. M  w% V/ {1 L* X# {4 y) W5 r9 \
2 `5 s7 B$ i/ i, n1 @( M問題是如何將00~7FF的程序碼讀出?
& M& u* z% g* k3 V8 O+ wReVox B780也用MOSTEK MK3870/3872,能讀出程序碼可解決多個機種的問題
/ S1 K: V9 ~+ @( w

乡村猎手

yjwu 发表于 2018-10-21 11:17
9 ^$ t# j" B9 @很精彩的帖子

MOSTEK MK3870/3872 有一個可外接2732/2764 EPROM 的MK38P70 開發版, 只要將健康可工作的M ...

" Z" }8 W' d6 ?谢谢版主的资料，对单片机我还是初学，不知道如何读出别的芯片的程序。不过38p70也是停产多年的ic，本网也卖的只有几个人出，也是当收藏品在出，不定能正常使用了。解决问题是一方面，主要还是玩为主。

乡村猎手

搞明白了怎么显示了，先写个显示的demo显示数字0，为了便于仿真，不停输出，实际使用的时候，是可以锁在的，不改变数字时，不用写入，然后再用proteus仿真一下，因为proteus里没有SAA1060这个元件，要不可直接看数码管显示，现在只能看虚拟仪器里的时序了，代码附后，代码写得效率可能不是很好，但看仿真的结果应该是没有问题。
! ?2 `& ^  {8 B! w7 L2 i6 B
- T& O; i) e0 L6 \


9 g' E( o! b& b2 |! r+ E) M

demo 的代码在这里
8 N; N8 V' R+ q. U0 D2 G! U/ s

4 d- c. r8 m" |( l#include "reg52.h"    //此文件中定义了单片机的一些特殊功能寄存器

. j3 M5 F0 V8 z# f8 ]+ @% L  G& qsbit yData = P2^0;
sbit yDLEN  = P2^2;
9 p! r% z3 J" X% C  tsbit yCLK = P2^1;
const int   dailyCount = 200;
5 B+ l* x) y4 A" b3 l0 a
% z  y: ~7 g  O1 p, v% R& Y* `' P
5 H) \8 C2 V$ [) z, i1 ^$ B
void delay(unsigned int i)
{
2 t, m% ?2 F. r; L        while(i--);        
8 w" p7 ^! B' Z, ~4 X4 i}


; D# W7 l, z- W8 Y: a1 svoid disp(unsigned int num )
{
        unsigned char i ;
9 c7 N" Y3 t( S$ `. b
0 E. @1 p" A  u8 W        unsigned char dispA[20];
9 E8 Y( V5 r& O$ J        unsigned char dispB[20];
3 q' A- r) h+ C0 u$ w
* \$ Z6 M6 T+ |/ Q  R        unsigned char num1;
7 i" t5 o5 n3 G. ]; b- Q; r, H        unsigned char num2;        
5 X% N. H3 }1 g" \$ R        unsigned char num3;
        unsigned char num4;
# Y  q- ]% s: @# x  P" P    unsigned char segR[10]   ;  //右
           unsigned char segL[10];         //左

        //左
% y" F$ Y& _5 L  [5 N                 segL[0] = 0x12;
                 segL[1] = 0xFA;
9 X8 `% n% U) i8 g                 segL[2] = 0x0E;
% l& b, ?# u1 l5 `1 P$ o                 segL[3] = 0x2A;
6 e/ i4 i8 j; P/ r, p1 q8 ^                 segL[4] = 0xE2;
  e3 |  \! h  z  l1 \8 \& d$ d                 segL[5] = 0x63;
                 segL[6] = 0x2A;
                 segL[7] = 0x7A;
                segL[8] = 0x02;
                segL[9] = 0x22;
        
3 C3 ^" X7 M: f4 s        
        
                //右
                segR[0] = 0x88;
+ i0 T0 q- S0 s; @5 C8 F8 N5 O                 segR[1] = 0xEB;
4 d' v5 V; [1 d                 segR[2] = 0x85;
                 segR[3] = 0x83;
                 segR[4] = 0xE2;
                 segR[5] = 0x92;
+ b( N5 j0 m7 i/ ?2 o                 segR[6] = 0x90;
5 b" {: o0 ~1 ~/ [8 Z/ A                 segR[7] = 0xCB;
                segR[8] = 0x80;
                segR[9] = 0x82;
: p( T2 y5 d' u
        
        num1=num /1000;
& [7 }; z3 e( e5 ^; {, D0 R        num2=(num /100)%10;;
/ A- j7 X3 Z! s5 w0 U$ X" X        num3=(num /10)%100;;;
1 e* w* x3 t, O( F; d" S. k; g         num4=num%10;
' n' ~; V; P! _/ O! k- d
0 U9 d) x7 ~' E- H; G6 ]+ j' w% q
8 Z: Y  I- s5 t3 F

        dispA[0] = 0;
        dispB[0] = 0;

1 O. s1 X9 E/ {3 Z4 C3 I0 ]* Y. k
6 m* q9 c/ h& T, V        for (i=0;i<8;i++)
7 V" c" B8 E6 s& {4 f+ _/ W        {
+ i* K$ e& I3 Y( ?  i9 _                dispA[i+1] =  (segR[num2]>>i)&0x01;
/ A8 O2 Q1 [: V                dispB[i+1] =  (segR[num1]>>i)&0x01;        

                dispA[i+9] =  (segL[num4]>>i)&0x01;
                dispB[i+9] =  (segL[num3]>>i)&0x01;
4 `2 @9 {/ a: `3 M, {6 N4 E5 ?        }
        


; q  V2 U: D' f2 |& y        dispA[17] = 1;
# A' n2 X! T7 j: S7 V1 V6 w( s        dispB[17] = 0;
2 Y& R6 w, E( q/ d& b/ G+ g6 x
        dispA[18] = 0;
7 b7 H/ O# ~, t5 ?        dispB[18] = 0;

0 w3 E- K% x. g        dispA[19] = 0;
        dispB[19] = 0;
! [* Q% c. }7 z1 V8 c
        yCLK = 1;
( I' H  a" q' F6 ]0 w) [9 B

2 h9 o% b5 B% A8 i
! o- W2 a' A1 Q# ]* h        for (i = 0;i<20;i++)
        {
2 @* u* [1 s# E, j- W/ y                yCLK = 1;
                yData = dispA;
                delay(2);
" S: C0 _  I" Z% O8 c                if(i>17)
                {yDLEN=0;}
                else
! {# `: P2 L& c# A& t                {yDLEN=1;}
6 |+ p  l3 F- x5 F* n
3 f' y  ^; N! q" ~  Z0 f                delay(dailyCount);
                yCLK = 0 ;
                delay(dailyCount);
4 O6 x( `! X  H/ |/ u7 E: q        }
/ w* H! B  ^' A2 c
$ _( W. z! ~2 P# ]7 g9 e( v/ Q        yCLK=0;
, {7 ^( O( `& z3 Z$ Z1 v        yData=0;
        yDLEN=0;
        delay(dailyCount*10);
        
6 `8 l- z( j% c! P% }

        for (i = 0;i<20;i++)
, n/ f( C& ~4 o; j; s( c1 W! H        {
                yCLK = 1;
* `0 _$ M+ {& J% E                yData = dispB;
                delay(dailyCount/10);
                if(i>17)
                {yDLEN=0;}
                else
5 E/ m9 _3 t9 g' j: a: G                {yDLEN=1;}

, N2 R4 |- h0 T$ N                delay(dailyCount);
# l2 T, ]4 W: v1 ]                yCLK = 0 ;
                delay(dailyCount);
        }
  t" |; \8 l/ {1 ^' Z! P* ?
$ s' T2 O/ _8 x. f        yCLK=0;
& H! X! F% h) u        yData=0;
% {8 Q3 d! @% |+ o& p5 k- b0 a% j        yDLEN=0;
        delay(dailyCount*10);
}
$ g$ q6 @( @: f% h; n6 ^& `
& |. c2 _; ^* b5 q' f; _


) X& ^* [/ H. C6 M+ X% Dvoid main()
{
- p. D# L$ H4 h5 A$ ?0 w8 a& t$ z        while(1)
        {
                delay(4000);
+ q5 ]" B+ J& Y+ P$ b' h                  disp(0);
        }               
# q! F( m& P3 E1 d4 i4 o/ i( V}
7 k% N% [7 c# m6 ^) p

乡村猎手

重新买了两面的洞同板和漆包线，重新做了个转换座，那个排阻就是用来做p0口的上拉电阻的，那个电容和单独的电阻是做复位用的。可花了几个小时才焊好。其实在本网上去做个印刷版也不用多少钱，不过动手的乐趣可是用钱买不到的。fb

* q8 }# t' |- |- V6 b2 E5 i0 k
3 g" s7 k5 m7 ?8 }' a+ X% ~
; i. ]3 f1 }4 g% {/ T: t4 T8 \8 a
- c8 C" H1 ]3 P8 A9 j3 O. a* x; h% r

yjwu

動手趣味無窮，愈難的挑戰成就愈大！加油！

bg0abo

乡村猎手 发表于 2018-10-19 18:15
兄弟过奖了。收、放带、带头尾检测是利用磁带的引带的是透明状态使用接收管电流变化转成电压给mcu.走带也 ...

" @8 T- y3 }/ x; K9 Q" R2 a/ m磁带计数器：搞定否？弄个全的替代成品C51的MCU，售！造福卡友

双木好成林

佩服楼主勇敢探索的精神

乡村猎手

bg0abo 发表于 2018-10-26 22:20
" ^; V/ l6 o) h* `磁带计数器：搞定否？弄个全的替代成品C51的MCU，售！造福卡友

造福可不敢当。
" ^! l" W( R* m1 ~显示的问题已经解决，其实一开始时序就没有问题，但demo测试的时候一开始总不行，原因是没有接复位，程序总是没有正常运行。

emaxx

猎手厉害。

blsxmz

还是请猎手做成专用含程序芯片的转接板成品，造福卡座爱好者。

乡村猎手

blsxmz 发表于 2018-11-8 20:51
还是请猎手做成专用含程序芯片的转接板成品，造福卡座爱好者。

还在努力中。

乡村猎手

( J  t/ N6 B' [( q1 j4 s有段时间没有更新了，继续：后来加入了开关机处理、倒带到头的检测、磁带转轴检测（处理计数和停转的停止），两个电机不同步的停机处理。 这些加入后，基本就可以了。
但是，问题来了，磁带快进或倒带的时候，计数器不准确，因为显示的时候，发送的信号需要一定长度，这样，检测磁带转到的脉冲取样率就不够了，会漏掉一些脉冲。
. Z9 ?4 W  V+ X3 [) t7 l0 ?  I
$ C3 U7 k  ^# a0 a8 {所以要对于转动的检测要用用计数器和中断来实现，之前在逻辑分板仪里看到原装芯片发出的时钟是长短不一的，现在想想应该就是中间处理中断才会出现这种情况。
如果要改成中断方式，那么这两个脚要接到专门的I/O口，这样要改那个转换座才行，而且原来那个转换座看起还是不是太爽。所以还是重新弄个转换座。
! Q, c; K/ L/ l3 B' E思路是使用一个小封装的单片机，这样，整个东西弄出来就和一个ic差不多大小，之前手工焊过一次了，这次直接做个pcb.
5 [* B  w2 V! v4 |pcb倒是很简单，但对于从没画过的小白来说还是有点麻烦，从选什么软件画，安装软件，选元件，如果没有度娘还真不知道怎么下手。
不过最后交给TB客服看文件只是修改了一次（没有画外形），对最终结果还是挺满意的，比想象中还要顺利。
下面的图是预想类似的效果及画册的PCB图，因为没有高频电路，所以不太要考虑走线的问题，能用就行。
  f* b  |/ b. k; v! z& _" j  @+ [
. x: `  B; ]) R5 y, P
8 z3 p3 T, O$ X  m" V; a$ g
& v7 N/ h- l9 V' _% Z! q/ T

blsxmz

既有理论又有实践，还愿意分享，这才是论坛有品位的真正的高手！赞一个！

乡村猎手

最终的样子就是这样啦。现在这样好看多了。就弄了这些功能：播放，录音，停止，快进，快退 ，clear ,倒带或快进自停，磁带不转自停，两主轴速度不同步自停，计数器手动加1，计数器清零。
& T% m# U- f7 ]
2 a' f6 `1 w( o% F7 N0 X7 M
* B5 T. t/ X1 N
/ k: E; i& A- U$ K  k
. S4 K* A2 ^) @/ @; }. F

Tesla

高手。支持猎手！