Mikroprocesor Mostek MK 3870 40 pin 8 bit pomoc

[chrzan49]

Witam .Ze względu na duża wartość sentymentalną receivera jestem skłonny podesłać pacjenta wraz z przydasiami do lekarza.To wielki kloc.Za prace oczywiscie zapłacęce ale prosze zwazyc żem emeryt a to nie miód.
Jak pisałem wynalazca zamiennika mze liczyc na profity i to calkiem spore moim zdniem.Zwłaszcza w Holandii i USA oraz Niemczech.Jestem gotów pomóc w promocji rozwiązania problemów.Na tych rynkach jest nieco uszkodzonych w zbiorach kolekcjonerskich.Poza tym zdobyte doświadczenia moga okazac sie bezcenne.
Osobiscie musiałem zabrać się za naprawę wyświetlaczy w Grundigach czy Telefunkenach i udalo sie naprawić w ponad 80 % egzemplarzy.
Pozdrawiam Tomasz

[alpher]

Jest jeszcze taka opcja:
np tu: http://www.ebay.com/itm/Mostek-MK38P70- ... 3f44635179

Jakby dalo sie zczytac zawartosc ROMu, mozna by sie pokusic o bardziej koszerne niz Atmega rozwiazanie.

[maciej_333]

Znacznie wygodniejsze rozwiązanie. Widać, że jest to wersja tego mikrokontrolera, jaka przewidziana była do prac rozwojowych. Dla nie wtajemniczonych dodam, że w podstawkę wkładano pamięć EPROM z programem. Trochę to ułatwia sprawę, ale trzeba znaleźć kompilator dla tego układu (rdzenia) i bawić się w wielokrotne przekładanie pamięci EPROM pomiędzy układem, kasownikiem i programatorem. Chyba, że ktoś ma jeszcze w dzisiejszych czasach emulator pamięci EPROM.

[alpher]

Ja raczej myslalem zeby zczytac ROM z dzialajacego MK3870 i zywcem zaprogramowac 2716 eprom, nie bawiac sie w zadne pisanie nowego orogramowania.
Z ciekawosci sprawdzilem jakie sa mozliwosci odczytania sprawnego MK3870, nie jest zle, wszystko z tad: http://www.seanriddle.com/f8.html

Program na PICa:

Kod: Zaznacz cały

;Fairchild F3870 dumper V 2
; dumps ROM to serial port
; 7/17/2011 Sean Riddle seanriddle@airosurf.com

; works with:
;  Chess Traveler 3870 labeled SCISYS-W COPYRIGHT 3870-0 F 8122 SINGAPORE / 3870 SL90387
;  VideoBrain Expander 1 3870 labeled 7838 MOSTEK 3870 MK14242N DALLAS UM06-0005
;  Hero 1 remote 3870 labeled MOSTEK@8421 MK3870/10 MK98112N MALAYSIA 444-250 @1984 HEATH CO
;  Hero 2K remote 3870 labeled MOSTEK@TC8635 MK3870/40 MK96147N-5 MALAYSIA 444-371 @1985 HEATH CO
;  Boris Diplomat labeled M SC80265P 007-7024-00 7847 - reset different - first inst fetch later

;reads up to 3K at a time, and you can set xstart to start reading at an offset other than 0

;3870 is 2K, 3870/10 is 1K, 3870/20 is 2K, 3870/30 is 3K, 3870/40 is 4K
;3870 has 11-bit address register; 3870/xx has 12-bit
;3870/x2 has 64 bytes of executable RAM at $FC0-$FFF; 3870/x0 does not
;some 3870s have all short instructions - would need to update clocks sent

;To do:
; input dump offset/length via serial command

;18F4620 with AN1310 bootloader

INCLUDE "modedefs.bas"
@        __CONFIG    _CONFIG1H, _IESO_OFF_1H & _OSC_INTIO67_1H & _FCMEN_OFF_1H
@        __CONFIG    _CONFIG2H, _WDT_OFF_2H & _WDTPS_256_2H
@        __CONFIG    _CONFIG2L, _BOREN_OFF_2L
@        __CONFIG    _CONFIG3H, _PBADEN_OFF_3H & _MCLRE_ON_3H & _PBADEN_OFF_3H
@        __CONFIG    _CONFIG4L, _LVP_OFF_4L & _XINST_OFF_4L

DEFINE  OSC         32			;8x4 MHz oscillator
DEFINE  NO_CLRWDT   1			;watchdog is off
define  LOADER_USED 1

define HSER_RCSTA 90h           ;HSERxx defines
define HSER_TXSTA 24h 
define HSER_BAUD 115200
define HSER_CLROERR 1

xtal2       VAR PORTE.0         ;clock signal - output to 3870 (2 clocks on this = 1 PHI clock)
testttl     var portE.1         ;set test pin to 3.5v - enable ROM
testhi      var portc.1         ;set test pin to 7v - disable ROM
reset       var porte.2         ;reset (active low)
strobe      VAR	PORTc.0         ;strobe signal - input from 3870 (WRITE inverted)
rddb        var portb           ;read the data bus from 3870 port 4
wrdb        var portd           ;write the data bus from 3870 port 5 (inverted)
flag1       var portc.2         ;toggle a bit for use to observe
flag2       var portc.3         ;toggle another bit for us to observe

serrx       var portc.7         ;don't need to declare these, but it's a reminder
sertx       var portc.6

xstart      con 00              ;read starting at xstart*64: 0=$0000, 16=$0400=1K, 32=$0800=2K, 48=$0C00=3K, 64=$1000=4K
buffersize  con 3072            ;read this many bytes

buffer      var byte[buffersize]
x           var byte
y           var byte
z           var word
doit        var bit
halfoff     var bit

;PIC initialization
OSCCON = %01110000              ;8MHz using Primary Int Osc
OSCTUNE.6 = 1                   ;1=PLL Enabled for internal osc 4x=32MHz
BAUDCON.3=0                     ;AN1310 bootloader sets this

ADCON1 = 15                     ;disable ADC's
CMCON = 7                       ;disable Comparators
WDTCON=0                        ;turn on WDT
intcon2.7=0                     ;weak pull-ups on portb

trisa=$00                       ;port A not used
porta=0
TRISB=$FF                       ;port B is all input - 3870 databus
trisc=%11000001                 ;port C has serial TX and RX and 3870 strobe and testhi
portc=0
trisd=$00                       ;port d is all out - 3870 databus (inv)
wrdb=$a3                        ;inverse of this is ORed with databus
trise=$0                        ;port E 0, 1, 2 outputs (xtal2, testttl, reset)
porte=0

;start of code
low reset                   ;reset the 3870
high testhi                 ;disable ROM

pause 500
hserout [13,10,"3870 dumper v2.10",13,10,13,10]

;init buffer to help see if not all was read
for Z=0 to buffersize-1
    buffer[Z]=$11
next

;init some variables here so it doesn't take time later
halfoff=0
doit=1
y=0
z=0

;test to see if 3870 inserted - data bus set to $A3 above, inverse is $5C
if rddb<>$5C then
    hserout [13,10,"no 3870 detected",13,10,13,10]
endif
wrdb=$ff

for x=0 to 255              ;send clocks during reset - fixed reading VBEXP
    xtal2=0
    @ nop
    xtal2=1
    @ nop
    xtal2=0
    @ nop
    xtal2=1
next
    
high reset                  ;release reset

;wait for strobe=0 after reset - first inst fetch follows
;if we see it after 1st half-clock, we need to align - 2 external
;clocks equals 1 internal clock, and we are off by 1 external clock
while doit=1
    xtal2=0
    if strobe=0 then
        doit=0
        halfoff=0
    endif

    xtal2=1
    if strobe=0 then
        doit=0
        halfoff=0
    endif

    xtal2=0
    if strobe=0 then
        doit=0
        halfoff=1
    endif

    xtal2=1
    if strobe=0 then
        doit=0
        halfoff=1
    endif
wend

;align our 2 external clocks to the 3870's 1 internal clock
if halfoff then
    xtal2=0
    @ nop
    xtal2=1
    @ nop
endif
   
;first inst fetch - give it a DCI to set data counter DC0
xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
@ nop
xtal2=1
@ nop

xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
@ nop
xtal2=1
wrdb=$d5                                ;force opcode $2A=DCI

;clock until another strobe seen - fixed Boris Moto
doit=1
while doit=1
    xtal2=0
    @ nop
    xtal2=1
    @ nop
    xtal2=0
    @ nop
    xtal2=1
    if strobe=0 then
        doit=0
    endif
    
    xtal2=0
    @ nop
    xtal2=1
    @ nop
    xtal2=0
    @ nop
    xtal2=1
wend
wrdb=$ff                                ;force $00 for DCI address of $0000

;clock through the instruction cycle - 20 clocks=DCI LSLS (6+4+6+4)
for x=1 to 20
    xtal2=0
    @ nop
    xtal2=1
    @ nop
    xtal2=0
    @ nop
    xtal2=1
next

;next inst fetch - give it a LM to read from memory
xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
@ nop
xtal2=1
@ nop
        
xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
@ nop
xtal2=1
wrdb=$e9                                ;force opcode $16=LM

xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
@ nop
xtal2=1
@ nop
        
xtal2=0
@ nop
xtal2=1
@ nop
xtal2=0
x=0
xtal2=1

;enable ROM for LM to read
low testhi
high testttl

while x<(48+xstart) ;read 3K bytes starting at offset x*64
    while y<64
        xtal2=0
        wrdb=$ff                        ;don't mask the data bus
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1        
        y=y+1
        
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        @ nop        
        
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        @ nop        
        
        xtal2=0
        flag1=1                         ;so we can see when the read occurs
        xtal2=1
        IF X>=xstart THEN
            buffer[z]=rddb
        ENDIF
        xtal2=0
        flag1=0
        xtal2=1
        @ nop        
        
        xtal2=0
        @ nop
        xtal2=1
;disable ROM so we can force opcode during instruction fetch
        low testttl            
        high testhi
        xtal2=0
        @ nop
        xtal2=1
        IF X>=xstart THEN
            z=z+1
        ENDIF
        
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        
        xtal2=0
        @ nop
        xtal2=1
        flag1=1
        xtal2=0
        wrdb=$e9                        ;force opcode $16=LM
        xtal2=1
        flag1=0
           
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        
        xtal2=0
        @ nop
        xtal2=1
        @ nop
        xtal2=0
        @ nop
        xtal2=1
        low testhi                      ;enable ROM for LM to read
        high testttl
    wend
    y=0
    x=x+1
WEND

;idle the 3870
low testhi
high testttl
low reset

;dump the buffer
hserout ["bytes=",DEC z,13,10]
hserout ["start=",DEC xstart,13,10,13,10]

x=0
y=0
for z=0 to buffersize-1
    x=x+1
    hserout [hex2 buffer[z]," "]
    if x=32 then
        hserout [13,10]
        x=0
        y=y+1
    endif
    if y=32 then
        hserout [13,10]
        y=0
    endif
next
hserout ["done",13,10]
   
twiddlethumbs:
    GoTo twiddlethumbs

end

[maciej_333]

Nie problem wykonać taki układ, ale najpierw trzeba mieć sprawny mikrokontroler 3870. Skąd taki wytrzasnąć ? "Maska" nie jest zabezpieczona przed odczytem ? Wiem, że to dawne czasy, ale wątpię by nikt już wtedy tego nie zabezpieczył. Dlatego sugerowałem pisanie nowego programu w oparciu o podany tu element. Szanse na odczyt oceniam jako znikome. Jakby już opracować nowy program można by się pokusić o poszukanie wersji OTP (o ile istnieje) i zaprogramować go gotowym programem.

[atom1477]

Ja też bym nie szedł wpisanie od 0 jeżeli jest szansa na odzyskanie wsadu z oryginału.
Jeżeli już, to przepisał bym program oryginalny na nowy mikrokontroler.
Da się to łatwo zrobić nawet jeżeli będzie zdekompilowany tylko do assemblera.
Nazwy etykiet (nazwy podprogramów, miejsca skoków) i zmiennych/stałych nawet nie będą potrzebne.
Po prostu przepisał bym rozkazy z jednego assemblera na inny.
Ewentualne braki w instrukcjach (najprędzej DIV) można jakoś ominąć. Najlepiej wybrać mikrokontroler pracujący na wyższej częstotliwości aby można było zastąpić brakujące instrukcje innymi. A istniejące pouzupełniać nopami dla zachowania czasu wykonywania.

[maciej_333]

Da się to łatwo zrobić nawet jeżeli będzie zdekompilowany tylko do assemblera.
Nazwy etykiet (nazwy podprogramów, miejsca skoków) i zmiennych/stałych nawet nie będą potrzebne.
Po prostu przepisał bym rozkazy z jednego assemblera na inny.
Ewentualne braki w instrukcjach (najprędzej DIV) można jakoś ominąć. Najlepiej wybrać mikrokontroler pracujący na wyższej częstotliwości aby można było zastąpić brakujące instrukcje innymi. A istniejące pouzupełniać nopami dla zachowania czasu wykonywania.

Zatem już chyba łatwiej napisać cały kod od zera. Tym bardziej, że program to nie tylko podprogramy, mnemoniki, etykiety itd. Jest jeszcze wektor przerwań i jego adresy oraz bloki sprzętowe (porty I/O, przerwania zewnętrzne, Timery itd.) mikrokontrolera do jakich program się odnosi. Jeden rozkaz może zająć w jednej architekturze 1 cykl maszynowy w innej 4. Przy braku DIV we współczesnym RISC, ominięcie tego przy zachowaniu zależności czasowych jest niemożliwe. Asembler tworzy wybitnie nieprzenośne kody.

[chrzan49]

Sprawny microcontroller moge dostarczyc od Kolegi.
Pozdrawiam Tomasz

[maciej_333]

Sprawny microcontroller moge dostarczyc od Kolegi.
Pozdrawiam Tomasz

To można się bawić. PicKit kosztuje ok. 100 zł. Za jego pomocą można zaprogramować tego PIC'a i próbować odczytać kod. Do tego 10 $ to jeszcze nie majątek za archaiczny układ z Ebay'a. Problem to brak czasu, tym bardziej, że akurat nie znam PIC'ów.

[atom1477]

Tamten mikrokontroler nie był zbyt szybki.
Współczesny (niemający DIV) może być nawet 100 razy szybszy.
W tamtym jeżeli był DIV, to 8-bitowy. Taki można odtworzyć na nowym za pomocą tablicowania ("zaledwie" 65536B tablicy, dla nowego uC taka tablica to nie problem).
Jeżeli nie, to być może da się programowo w tych 100 cyklach (albo 400, stary pewnie też nie robił tego w 1 tylko np. w 4 tak jak '51).
Jak dla mnie szkoda by było czasu na pisanie nowego programu. Można to oczywiście robić hobbystycznie w niedziele, ale realny koszt to setki jak nie tysiące zł.
Ja wolę niedziele zostawić na co innego a wydać powiedzmy 100zł na nowy wypasiony mikrokontroler
Stary uC nie miał też zbyt wielu peryferiów. Dlatego zamiana może się okazać dość łatwa.
To wszystko oczywiście okaże się dopiero jak się uda zgrać stary wsad i zobaczyć jak on wygląda po dekompilacji.
Póki co jedynie podsuwam jedno z rozwiązań.

EDIT. Znalazłem listę instrukcji tego procesora. Nie ma mnożenia i dzielenia.
Ale jest mnóstwo udziwnień w jego budowie. Chyba faktycznie prościej napisać nowy kod od 0.

[bonzo.pl]

Witam Kolegów.Może rzeczywiscie jak slusznie zauwazył Gustaw mloda krew uratuje stare dziadostwo.
--

Kod: Zaznacz cały

troszkę szacunku co by nie.było właśnie bo [b]stare[/b]

Wyjaśniam że były własciciel a mój Qumpel wsadził 40 nog nieco inaczej i bylo po sprawie.
--

Kod: Zaznacz cały

nie bardzo rozumię co i gdzie?

Macie dzieki uprzejmosci kolegów wszystkie dane .Ratujcie proszę.
Nie mamamsily na stare lata brac się mikrokontrolery a sorzet zacny i warto aby odzył.Na razie wyswietla część znakow i nie reaguje na przyciskia jajca mozna na nim gotowac.
--

Kod: Zaznacz cały

co tak się nagrzewa?

Zalaczyłem na 10 sekund.
Pozdrawiam Tomasz

Swoją drogą ciekawe dlaczego akurat procesor zdechł z całego tego radia - zwłaszcza, że był programowany maską i program nie mógł mu się wykasować
Może jednak "coś" tylko blokuje jego działanie - kwarc, szyna danych, itp....?

Ciekawe jaki główny procesor?
Nie pobierałem schematu.
Szyna zegar i danych pewnie I2C.Ciekawe w jakim stanie ,może coś woła,,jesteś read/write,,
a może miast na proc 5v jest 4,83v.
chrzan49 daj jakieś pomiary .foto ustrojstwa.

[tszczesn]

Zaznaczam że jezeli uda sie implementowac to wynalazca moze liczyć na profity bo podobne mikroprocesory stosowano w tym czasie w Revoxach a i padnietych Philipsow tez sporo.

Tylko się wtrącę, że nawet jak w Revoxach był ten sam typ, to zupełnie innym programem o to program generuje 100% wysiłku. DO Revoxa trzeba robić w dużej części od zera.

[Jado]

Szyna zegar i danych pewnie I2C.Ciekawe w jakim stanie ,może coś woła,,jesteś

Z ciekawości rzuciłem okiem na datesheet'a od SAA1060 - niestety nie I2C, a jakaś nietypowa transmisja szeregowa (18-bitowe słowo).
Jest tam kilka dziwnych rzeczy, które na pierwszy rzut oka nie są oczywiste czytając datasheet (dość okrojony - może akurat taka wersja mi się trafiła) - trzeba by doświadczalnie przećwiczyć jak co się zachowuje. A potem trzeba przekuć to na sterowanie samymi wyświetlaczami - żeby na nich cokolwiek wyświetlić - a dopiero potem możemy mówić o napisach, menu, itp...

Być może najprościej byłoby - mając drugi taki, sprawny i działający sprzęt - dokonać zapisu transmisji idącej na te scalaki za pomocą analizatora stanów logicznych (zrzut danych na dysk), aby potem móc je analizować i próbować odtworzyć to samo za pomocą własnoręcznie napisanego programu.

Tak czy inaczej roboty sporo - pytanie o kwestię opłacalności.
Zabawa dla właściciela urządzenia (najlepiej jeszcze na emeryturze, który może sobie pozwolić na taką zabawę, bo ma czas) lub rodzaj wyzwania dla młodego, chcącego pokazać swoje umiejętności w nietypowym zadaniu.

No chyba, że istnieje jeszcze taka opcja: Jest sporo tego typu sprzętów z uszkodzonymi mikroprocesorami, które można kupić za bezcen, a które po naprawieniu można by sprzedać za sensowne pieniądze.

Druga sprawa - jak już ktoś będzie pisał program (zakładam, że na jakiś nowszy procesor), to może pójść dalej i dodać dodatkowe funkcje np. sterowanie z pilota czy nawet połączenie z siecią za pomocą WiFi

[chrzan49]

Tomasz S . ma rację w temacie mikroprocesorów Revoxa.Programy były inne ale gdy się rozgryzie to otwiera sie sporawy rynek.Zarówno wzmacniacze jak amplitunery i szpulowce.
Pozdrawiam Tomasz

[chrzan49]

Witam.Oto pacjent.Właściciela zdjęc przepraszam bo pożyczyłem bez zgody.
Pozdrawiam Tomasz