收藏本站

开盘机音响技术网

 找回密码
 注册加入
楼主: 乡村猎手
收起左侧

REVOX B710 MCU芯片MK3870替换方案(连载)

  [复制链接]
发表于 2018-10-20 15:24:50 | 显示全部楼层
高手中的高手。
发表于 2018-10-21 11:17:49 | 显示全部楼层
本帖最后由 yjwu 于 2018-10-21 11:20 编辑
6 G: @# X, T  D. k+ n: ?( C% P6 ?) ~4 g# C
很精彩的帖子
$ c7 x* L* H' w9 l% ?: [2 q
: o# S1 `0 l' AMOSTEK MK3870/3872 有一個可外接2732/2764 EPROM 的MK38P70 開發版, 只要將健康可工作的MK3870/3872
9 a# u$ L3 ]5 X3 w; {+ d; u ROM控ˊ制碼讀出,寫入2764 EPROM  則直接可用
) \# {/ B. M3 r: R4 |9 m
  r7 A) I% J% N問題是如何將00~7FF的程序碼讀出?
0 b2 F8 J% j& bReVox B780也用MOSTEK MK3870/3872,能讀出程序碼可解決多個機種的問題
; Z6 |' {3 N/ X& F( v+ `
MK38P70_ROM_Address.PNG
MK38P70_Block.PNG
MOSTEK 38P70_2732_2764.jpg
image.jpeg
 楼主| 发表于 2018-10-21 20:05:40 | 显示全部楼层
yjwu 发表于 2018-10-21 11:17
& t% t) S+ Z2 b9 U2 W' S很精彩的帖子
6 \" s1 m0 y5 R. w+ D9 Y
  L- X  e$ T/ i9 `5 GMOSTEK MK3870/3872 有一個可外接2732/2764 EPROM 的MK38P70 開發版, 只要將健康可工作的M ...

0 P+ L3 L7 d! m+ ]谢谢版主的资料,对单片机我还是初学,不知道如何读出别的芯片的程序。不过38p70也是停产多年的ic,本网也卖的只有几个人出,也是当收藏品在出,不定能正常使用了。解决问题是一方面,主要还是玩为主。
 楼主| 发表于 2018-10-21 20:11:37 | 显示全部楼层
搞明白了怎么显示了,先写个显示的demo显示数字0,为了便于仿真,不停输出,实际使用的时候,是可以锁在的,不改变数字时,不用写入,然后再用proteus仿真一下,因为proteus里没有SAA1060这个元件,要不可直接看数码管显示,现在只能看虚拟仪器里的时序了,代码附后,代码写得效率可能不是很好,但看仿真的结果应该是没有问题。5 q+ U# |2 e: K" T5 p  `  P
" p) D1 T2 s4 W4 I3 c  r* k9 j7 t
6 u; X( @. c, R/ `- M. ]7 H) ]
1060仿真.png
2 q1 b6 g- @& L: o- W- b0 \

5 `, f$ {. e# L. p
; \" F" e3 Z# L6 Q  U
2 B1 `8 [3 u, I( Y/ I: T4 H
demo 的代码在这里
5 F3 F; E6 Q4 [6 x5 N$ v
! ~7 f6 {/ {7 g
8 N8 V+ G; Q+ D( o: s+ M
#include "reg52.h"    //此文件中定义了单片机的一些特殊功能寄存器
% E$ A' N: F4 o, `
# }+ p- w4 @& J. psbit yData = P2^0;
/ f5 V# @; o% @8 rsbit yDLEN  = P2^2;
8 J. u. u# s# p( o. nsbit yCLK = P2^1;
" x7 r- i8 G, T+ Tconst int   dailyCount = 200;$ |0 s0 s4 X: Q/ Q( H8 T
& Y$ U  L6 Q4 x5 Y# X% Q

4 {0 b6 q! q1 A: j' b
: T, G/ T5 {. F- Yvoid delay(unsigned int i)
- C* f/ X: G7 X, @$ o{
6 D6 W" ?! K( g4 w! R. v        while(i--);        
6 L& ~- k, R- y4 l}
0 [& y0 a# W& _6 p5 `$ f! S+ u( i; Y' ~4 z: ~0 D* [) n. g" r
  f4 q# `% }9 _2 O0 H/ M
void disp(unsigned int num )! v. J- d7 t) i& E+ u2 C
{
0 s' {0 b  u5 t% Y! ~        unsigned char i ;
) o! G/ ?( e/ L, x
: V2 Y# K" X# g6 v( U/ `3 j        unsigned char dispA[20];
& M. W, Z: \8 h/ L) {$ g! R        unsigned char dispB[20];
3 [- o8 P1 i/ i7 ?1 ^. T6 m' x7 w9 W
        unsigned char num1;
2 @8 [& ]9 o; h3 e        unsigned char num2;        
6 ]! r8 S' h( H! s        unsigned char num3;6 V$ }2 _; _+ r& m
        unsigned char num4;; ]. \, M: \; N2 Q7 y6 h4 r5 m3 v
    unsigned char segR[10]   ;  //右
; \8 m- Z/ }- W/ s& n1 J           unsigned char segL[10];         //左+ p6 [7 f0 f9 d. c% ]
7 v% E( J& K: R3 I+ _/ d
        //左
# c: k# W+ t  Z, b! L" z8 ]                 segL[0] = 0x12;
; m, F+ ?+ @7 m9 Y8 T6 o( T, V5 s                 segL[1] = 0xFA;: n( m5 X4 E8 ]' ?+ ~- _9 j
                 segL[2] = 0x0E;6 }' c! |5 x1 r7 J
                 segL[3] = 0x2A;' n* G9 ^4 o; w) v% w1 H3 N6 O
                 segL[4] = 0xE2;
- p7 c+ Z% n( E1 j  K* E; k) d                 segL[5] = 0x63;8 r% [# J* n, I& h& w4 n
                 segL[6] = 0x2A;
* c, m. W9 C) {                 segL[7] = 0x7A;' n0 y8 c( _0 y3 c2 {) j/ l9 P
                segL[8] = 0x02;
7 n9 x. ^5 j, C6 U5 Y" A                segL[9] = 0x22;
$ B' b% T1 i- d7 }( h' L  w) E        & a) s$ w+ g! }- k" b
        
5 r6 V2 E) ], j3 {- A! K6 F$ C        ' ~0 n& r7 K+ ]8 t$ u
                //右
: i- i9 S7 j/ s: R) m                segR[0] = 0x88;) n! `2 A2 U( e( M8 w8 Y
                 segR[1] = 0xEB;
/ M) \/ ~8 @4 K' R+ D( R+ m                 segR[2] = 0x85;
3 K7 ~3 T) e: j' h( v                 segR[3] = 0x83;8 _8 g* P$ G5 ~. @9 z
                 segR[4] = 0xE2;' d1 h3 O. J, g7 K3 S
                 segR[5] = 0x92;
/ Q! K- D/ Y) R6 j                 segR[6] = 0x90;
) G6 v' `7 w6 x* _, J6 D- w                 segR[7] = 0xCB;
& M* P& N+ ]* ^- w                segR[8] = 0x80;
+ V$ `% P; G# ]4 |+ @                segR[9] = 0x82;
) \5 ^% a9 M# V1 T8 F
& q  t9 F1 X7 t8 S( X5 @        - K$ u7 k; y) w
        num1=num /1000;
  g# E% ^6 u; _4 a        num2=(num /100)%10;;
) R1 e8 j( y$ ~3 O7 r        num3=(num /10)%100;;;
- C# ?7 U8 M$ c& O" z         num4=num%10;" j5 W, K% @6 A( h9 _

  m' R3 p/ ?* ^% J: x7 f8 v* f7 z3 F
: i, R- `: C( }8 |- j* P6 Z
6 ?9 H7 A+ K0 _- [# H1 X9 l
1 a' t: z- g: t7 V        dispA[0] = 0;
* Z7 g0 k, C0 }        dispB[0] = 0;
  w3 z; S. M; d8 d6 q8 r! U1 b$ [2 b! [

4 F# o7 v. G' D- Y$ B# T( a        for (i=0;i<8;i++)
3 F- Z' M* E0 B  }0 [        {
$ N  u' @* R& `+ \5 c6 w5 `+ d) u                dispA[i+1] =  (segR[num2]>>i)&0x01;& L2 o+ l- t7 i
                dispB[i+1] =  (segR[num1]>>i)&0x01;        1 i3 f9 k! Z. k

7 R( p3 i" h4 Z9 i                dispA[i+9] =  (segL[num4]>>i)&0x01;
& s3 |) S" N: Q" t3 o                dispB[i+9] =  (segL[num3]>>i)&0x01;
" T0 F. H. P  {        }0 f; y7 `: S3 w2 }% H2 ^) Y
        
  ]. T! N2 b. I  G3 c1 J+ ]( t( Z# L: {1 D: a

$ e' |! a( b2 M8 D% x/ B' s; u        dispA[17] = 1;
+ _4 I; _$ u4 u+ ]$ V1 Q4 ~        dispB[17] = 0;
& b4 u+ u) c; G9 S. q
& l7 ^5 O' C& V, l6 a2 f0 l        dispA[18] = 0;
/ @3 ^- f' S0 g8 U! T( A        dispB[18] = 0;6 l1 y* J4 f5 _, U' T

4 [* `' X& o+ y; X3 p        dispA[19] = 0;
" y" ^' p) k( t6 I* X4 a+ h        dispB[19] = 0;
' @7 J4 U" c9 M, f& W9 j0 n% x2 n' `$ F  x/ {% e% Y3 S& v
        yCLK = 1;
  U) a+ u" S/ x) x# j
' k$ _8 D$ a* h8 G2 T, t3 Z( O* g1 j  K- N( w

( {" e, o# b  M, Y, p8 y$ X; O        for (i = 0;i<20;i++)# u% F% u1 g  x! A( X# {
        {. Z8 G; d$ U& A4 }+ j% M
                yCLK = 1;
9 B# \3 j" [$ Z% I                yData = dispA;
' t: m; c2 e8 ]! r# d9 V, v/ S8 W                delay(2);& q: ]% L, m8 }8 h" ?3 j; m6 P
                if(i>17)# n8 b5 ~2 T: a' s* W- ^" b
                {yDLEN=0;}
& u  n( w+ q& Y9 j, a4 `3 e                else
, }8 s" @, v# D. O7 p                {yDLEN=1;}3 N- P7 g5 K2 r" \1 T9 W
$ S. ~& M4 K6 C
                delay(dailyCount);1 w' {( l0 C% F- b- l+ w+ d
                yCLK = 0 ;
+ O$ W0 ?% A* `8 n$ \! V. n                delay(dailyCount);
: A; o, D  m+ y' }6 m: h4 J" m        }+ Q) r! O! c# g/ N) K& U0 G
0 X7 r, d- [' I! b
        yCLK=0;5 T" K( \  Q3 Z! U
        yData=0;
' a* R! V3 a+ k0 D; w5 u+ J9 U5 x3 I        yDLEN=0;5 m, x$ }# H$ x& M# j2 X
        delay(dailyCount*10);& s2 s3 q; X6 S' N
        
; ~, m. b; N6 M/ u! `' o1 n8 m
8 }' J; b! x: `4 X( L  P" |
+ P% A7 X" z$ e: u% b        for (i = 0;i<20;i++)
- M6 N4 ]: _/ A5 \% B, n        {" _. z/ `8 `9 e8 ~. B% d
                yCLK = 1;' d) z1 L' W# D. \! I: t. r
                yData = dispB;
( \; u1 x/ ?. _! D! I  ]                delay(dailyCount/10);/ T$ F* z6 L0 U! r% ^+ N& k2 G1 e
                if(i>17)
# Z6 I3 g: a' h                {yDLEN=0;}7 R/ d+ _% P: V. P4 ]7 }
                else8 o1 o; N/ \( @8 A
                {yDLEN=1;}
* V- b6 q; x6 R( W3 w& A( d2 Y, T2 `$ s
                delay(dailyCount);4 R' U/ P3 s5 C6 n
                yCLK = 0 ;
9 a) y. Q+ s+ j! P+ r5 R                delay(dailyCount);
$ C/ C+ Z6 O/ ^. ~8 C        }" T. X9 O6 d2 k, X

7 N, ^: ?- G6 a' Z        yCLK=0;
2 u  n% T' j% V9 U        yData=0;
$ b1 D+ w3 ?1 T0 j0 ]        yDLEN=0;
5 N9 K& s& f  V* Q6 i        delay(dailyCount*10);$ u0 w4 t! a9 X" j1 ]  e8 H8 S. F
}
2 w# H3 u% l3 [2 {: [
- z) U. x. O( ^! T$ ~) f+ m0 \' D* n5 B: t+ b; w! ?9 m- T7 C

& Q2 J0 v$ o6 q) ?5 Q# M; Y; g& O
void main()! r. s2 i' j) @4 F$ W2 f+ l, y5 B
{
$ J3 Q" E+ X! G8 d' m/ Q# u        while(1)) K. ]( r# v% @) O5 ]
        {
- ]; x5 f) U2 Y& @                delay(4000);
! B* g9 R% m9 y8 I                  disp(0);! X1 L& b/ c2 W" z
        }               
! \; U6 Z# w5 {: ^. k: r}

  x. n* t3 x  Q8 d" \' O4 ~( V- i/ p
2 {1 P1 ?+ N, a
 楼主| 发表于 2018-10-21 20:38:19 | 显示全部楼层
重新买了两面的洞同板和漆包线,重新做了个转换座,那个排阻就是用来做p0口的上拉电阻的,那个电容和单独的电阻是做复位用的。可花了几个小时才焊好。其实在本网上去做个印刷版也不用多少钱,不过动手的乐趣可是用钱买不到的。fb* t6 p6 n' |/ _+ s- a
3 q6 |4 J* O* i( W4 B
转换座2.jpg 转换座1.jpg 2 V. |/ ?) s( F: @  l5 g

/ m2 Z5 a' E- m+ w& [  I" r3 J- N" O9 s3 g& d

' n# V2 W" n7 _. m$ Z: [
发表于 2018-10-21 20:43:12 | 显示全部楼层
動手趣味無窮,愈難的挑戰成就愈大!加油!
发表于 2018-10-26 22:20:44 | 显示全部楼层
乡村猎手 发表于 2018-10-19 18:15' S% Q+ B, U3 \3 J3 Q
兄弟过奖了。收、放带、带头尾检测是利用磁带的引带的是透明状态使用接收管电流变化转成电压给mcu.走带也 ...

9 B3 g% p2 d) v/ E+ J0 X5 G磁带计数器:搞定否?弄个全的替代成品C51的MCU,售!造福卡友
发表于 2018-10-27 12:52:54 | 显示全部楼层
佩服楼主勇敢探索的精神
 楼主| 发表于 2018-10-27 13:54:49 | 显示全部楼层
bg0abo 发表于 2018-10-26 22:20. O$ s2 U+ Y4 n4 W! y/ J
磁带计数器:搞定否?弄个全的替代成品C51的MCU,售!造福卡友
4 ]5 V) l5 r1 o; h; i; \
造福可不敢当。
' G( w# `8 s' g显示的问题已经解决,其实一开始时序就没有问题,但demo测试的时候一开始总不行,原因是没有接复位,程序总是没有正常运行。
发表于 2018-10-27 18:07:02 | 显示全部楼层
猎手厉害。
发表于 2018-11-8 20:51:57 | 显示全部楼层
还是请猎手做成专用含程序芯片的转接板成品,造福卡座爱好者。
 楼主| 发表于 2018-11-9 23:50:13 | 显示全部楼层
blsxmz 发表于 2018-11-8 20:51. s2 l8 F# J. `! ]
还是请猎手做成专用含程序芯片的转接板成品,造福卡座爱好者。

9 ~9 u  X3 A! G0 [: g7 A4 i还在努力中。
 楼主| 发表于 2018-11-10 14:51:00 | 显示全部楼层
本帖最后由 乡村猎手 于 2018-11-10 14:52 编辑 , M+ }9 t  I0 O) q' @

; @( m- M, w" M( I/ m2 w有段时间没有更新了,继续:后来加入了开关机处理、倒带到头的检测、磁带转轴检测(处理计数和停转的停止),两个电机不同步的停机处理。 这些加入后,基本就可以了。$ [% q$ T# K/ B2 [: s) _9 ~
但是,问题来了,磁带快进或倒带的时候,计数器不准确,因为显示的时候,发送的信号需要一定长度,这样,检测磁带转到的脉冲取样率就不够了,会漏掉一些脉冲。4 D% G1 a1 o3 t7 c

0 |1 T/ ?$ {  T所以要对于转动的检测要用用计数器和中断来实现,之前在逻辑分板仪里看到原装芯片发出的时钟是长短不一的,现在想想应该就是中间处理中断才会出现这种情况。
- F, F3 o, X! m6 g! D; r! S如果要改成中断方式,那么这两个脚要接到专门的I/O口,这样要改那个转换座才行,而且原来那个转换座看起还是不是太爽。所以还是重新弄个转换座。' s) A/ X8 Z5 v! s6 x$ l
思路是使用一个小封装的单片机,这样,整个东西弄出来就和一个ic差不多大小,之前手工焊过一次了,这次直接做个pcb.
# n- v7 ~$ t1 j  J8 P" {$ J* [pcb倒是很简单,但对于从没画过的小白来说还是有点麻烦,从选什么软件画,安装软件,选元件,如果没有度娘还真不知道怎么下手。% {( w  x5 n: x7 y
不过最后交给TB客服看文件只是修改了一次(没有画外形),对最终结果还是挺满意的,比想象中还要顺利。8 R$ P$ y& y" V/ ~
下面的图是预想类似的效果及画册的PCB图,因为没有高频电路,所以不太要考虑走线的问题,能用就行。
: c2 z, `5 b* S. \1 ?* |) [- o3 C( t( V; s% d
效果.png pcb.png
" m% J( t" m; z& {9 _
- I# \3 p; i8 \! o* M! R
发表于 2018-11-10 17:27:27 | 显示全部楼层
既有理论又有实践,还愿意分享,这才是论坛有品位的真正的高手!赞一个!
 楼主| 发表于 2018-11-18 00:02:08 | 显示全部楼层
最终的样子就是这样啦。现在这样好看多了。就弄了这些功能:播放,录音,停止,快进,快退 ,clear ,倒带或快进自停,磁带不转自停,两主轴速度不同步自停,计数器手动加1,计数器清零。
9 V7 n2 [* y& n' f5 R- |$ x/ q
0 X/ B, \( w/ M% G: B. A 685253505224920258.jpg " q, }; i/ ~+ X& O

+ [7 {- |3 v/ x; m, m# ^. C 550841738535406684.jpg 8 S* l8 b$ i. p
3 ^- Z- j6 I9 c6 G; z
& _/ X7 h3 ?+ t

0 g6 G& b- G" m, k& U. l, f, g0 p0 ^  _
发表于 2018-11-18 09:22:17 | 显示全部楼层
高手。支持猎手!
您需要登录后才可以回帖 登录 | 注册加入

本版积分规则

手机版|开盘机音响技术网 ( 桂ICP备20003207号-1  公安部备 45010302002201 客服:18077773618

GMT+8, 2025-6-15 16:39 , Processed in 0.100286 second(s), 18 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表