Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins Willkommen Gast! RSS

Robotrontechnik-Forum » Technische Diskussionen » RAMtest nach Mostek? Suche Quelle.. » Themenansicht

Autor Thread - Seiten: -1-
000
31.05.2008, 15:35 Uhr
holm

Avatar von holm

Moin Freunde,

ich bin nun theoretisch soweit, daß ich wieder 2708 Eproms brennen und lesen kann,
theoretisch deshalb, weil die derzeti angeschlossene SONY Wandwarze 5V 450Ma zusammenbricht wenn ein ROM gebrutzelt werden soll, ich muß also mal eine Überlandleitung zum Labornetzteil herstellen..

Egal, da ich ja einige defekte Karten zu reparieren habe suche ich die Quelle eines kleinen Unterprogramms "RAMTEST nach Mostek", was zu CP/M Zeiten mal durch
irgendwelche Literatur geisterte. Ich weiß, das die ein Kumpel noch auf Lochstreifen hat
(und werde diese Streifen auch zu Rüdiger schicken) aber evtl. hat das ja Jemand herumliegen? Das war eine ziemlich komplizierte Testerei mit Bits hin und her, nullsetzten usw. usf. die wir damals zur Inbetriebnahme der dyn RAMs genutzt hatten.
Es gab aber auch Fehler die dieses Progrämmchen nicht fand.

Hat eine eine Idee woher ich die Source bekommen könnte (kurzfristig)?

Gruß,

Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
001
31.05.2008, 19:23 Uhr
holm

Avatar von holm


Zitat:
holm schrieb
Moin Freunde,

ich bin nun theoretisch soweit, daß ich wieder 2708 Eproms brennen und lesen kann,
theoretisch deshalb, weil die derzeti angeschlossene SONY Wandwarze 5V 450Ma zusammenbricht wenn ein ROM gebrutzelt werden soll, ich muß also mal eine Überlandleitung zum Labornetzteil herstellen..

Egal, da ich ja einige defekte Karten zu reparieren habe suche ich die Quelle eines kleinen Unterprogramms "RAMTEST nach Mostek", was zu CP/M Zeiten mal durch
irgendwelche Literatur geisterte. Ich weiß, das die ein Kumpel noch auf Lochstreifen hat
(und werde diese Streifen auch zu Rüdiger schicken) aber evtl. hat das ja Jemand herumliegen? Das war eine ziemlich komplizierte Testerei mit Bits hin und her, nullsetzten usw. usf. die wir damals zur Inbetriebnahme der dyn RAMs genutzt hatten.
Es gab aber auch Fehler die dieses Progrämmchen nicht fand.

Hat eine eine Idee woher ich die Source bekommen könnte (kurzfristig)?

Gruß,

Holm

...Update: Ich habe den Promer nun mit den 5V aus einem STM versorgt das am
K8912 Einschub hängt. Das Ding funktioniert :-)

Gruß,

Holm, der jetzt runter grillen geht...
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
002
31.08.2017, 07:18 Uhr
Steffen.111

Avatar von Steffen.111

Moin in die Runde,

der Beitrag ist zwar schon etwas älter und von kurzfristig keine Spur mehr, aber vielleicht interessiert es ja doch den einen oder anderen.
Der MOSTEK RAM-Test war im electronica Heft 227/228 abgedruckt, nu leider mit falschem Code. So kam der Autor wohl zu der Überzeugung, das der Test tagelang laufen würde und man den irgendwann abbrechen müsse. Auf Z80 läuft er über 8 kB RAM kaum 5 min!

Gruß Steffen

Hier das Listing (Adr. anpassen!):

Quellcode:
;-------------------------------------------------
;Z80 RAM-TEST aus electronica 227/228 S.39
;nach MOSTEK
;-------------------------------------------------

adrvon: EQU   0000h         ;Startadresse
adrbis: EQU   01h           ;Höherwertiges Byte der Endadresse

Zykl:   LD    B,00H         ;Neuer Zyklus mit neuen Mustern

L0001:  LD    HL,(adrvon)

L0002:  LD    A,L
        XOR   H             ;
        XOR   B             ;
        LD    (HL),A        ;Zelle laden
        INC   HL            ;nächste Zelle
        LD    A,H
        CP    adrbis        ;HwB Adr. Bis
        JP    NZ,L0002      ;Speicherbereich vollschreiben

        LD    HL,(adrvon)

L0003:  LD    A,L
        XOR   H
        XOR   B             ;gleiche Zufallszahl wie vor
        CP    (HL)  
        CALL  NZ,Anzei      ;wenn Abweichung Fehlerausdruck

        INC   HL            ;nächste Zelle
        LD    A,H
        CP    adrbis        ;HwB Adr.Bis
        JP    NZ,L0003      ;Speicherbereich testen

        INC   B             ;nächstes Muster
        JR    NZ,L0001      ;Nächste Runde

        RET                 ;Programmende wenn 256 Muster durch




PS: Robbi, danke für den Tipp für die Formatierung. Habs jetzt gefunden: Listing in normalem Editor in Form bringen und hier her kopieren. ...muss man drauf kommen! Danke!

Dieser Beitrag wurde am 31.08.2017 um 11:59 Uhr von Steffen.111 editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
003
31.08.2017, 11:01 Uhr
robbi
Default Group and Edit
Avatar von robbi


Quellcode:

;-------------------------------------------------
;Z80 RAM-TEST aus electronica 227/228 S.39
;nach MOSTEK
;-------------------------------------------------

adrvon: EQU   0000h         ;Startadresse
adrbis: EQU   01h           ;Höherwertiges Byte der Endadresse

Zykl:   LD    B,00H         ;Neuer Zyklus mit neuen Mustern

L0001:  LD    HL,(adrvon)

L0002:  LD    A,L
        XOR   H             ;
        XOR   B             ;
        LD    (HL),A        ;Zelle laden
        INC   HL            ;nächste Zelle
        LD    A,H
        CP    adrbis        ;HwB Adr. Bis
        JP    NZ,L0002      ;Speicherbereich vollschreiben

        LD    HL,(adrvon)

L0003:  LD    A,L
        XOR   H
        XOR   B             ;gleiche Zufallszahl wie vor
        CP    (HL)  
        CALL  NZ,Anzei      ;wenn Abweichung Fehlerausdruck

        INC   HL            ;nächste Zelle
        LD    A,H
        CP    adrbis        ;HwB Adr.Bis
        JP    NZ,L0003      ;Speicherbereich testen

        INC   B             ;nächstes Muster
        JR    NZ,L0001      ;Nächste Runde

        RET                 ;Programmende wenn 256 Muster durch



Man braucht zwar eine Weile, aber es geht. Man müßte bei der Eingabe auf Courier-Zeichensatz umschalten können.
--
Schreib wie du quatschst, dann schreibst du schlecht.

Dieser Beitrag wurde am 31.08.2017 um 11:12 Uhr von robbi editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
004
01.09.2017, 11:04 Uhr
ted211



Hallo,

ich hatte ja schon einmal darauf hingewiesen, dass ich mir zum Brennen von EPROMs IM6654 einen ME2700 Brenner zugelegt habe. Der kann auch 2704 und 2708 brennen. Wenn jemand Bedarf hat, bitte Mail schicken.

Gruß,
Detlev

Dieser Beitrag wurde am 01.09.2017 um 11:04 Uhr von ted211 editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
Seiten: -1-     [ Technische Diskussionen ]  



Robotrontechnik-Forum

powered by ThWboard 3 Beta 2.84-php5
© by Paul Baecher & Felix Gonschorek