Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » Power Sourcecode? » Themenansicht

Autor

Thread - Seiten: -1-

000
26.05.2016, 20:39 Uhr
holm

Avatar von holm

Es gibts ja Nichts was es nicht gibt.. Power macht beim Befehl "Test" offensichtlich Blödsinn, Leo hat angefragt ob ich evtl. den Sourcecod habe..hab ich natürlich nicht..hat den Jeamand Anderes? Ein Disassembler Listing? ..just in case ...

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
26.05.2016, 21:55 Uhr
Enrico
Default Group and Edit

TEST hatte ich auch schon öfters in der Hand, aufgefallen ist mir dabei aber nichts.
Was für ein Blödsinn ist es denn?
--
MFG
Enrico

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
26.05.2016, 21:59 Uhr
holm

Avatar von holm

https://www.mikrocontroller.net/topic/329265

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
26.05.2016, 22:13 Uhr
Enrico
Default Group and Edit

Irgendwie finde ich nicht das Gesuchte, nicht mal mit STRG+F.
Hhmmm....
--
MFG
Enrico

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
26.05.2016, 22:40 Uhr
holm

Avatar von holm

...die letzten paar Postings..
Stellst Du Dich die letzten beiden Tage ein Bisschen komisch an?

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
26.05.2016, 22:50 Uhr
Enrico
Default Group and Edit

Jaa...

Verdammt, sehe gerade, dass es noch mindestens ne 2. Seite gibt.
Die Seiten dort sind ja immmer 2km lang...
--
MFG
Enrico

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
27.05.2016, 01:08 Uhr
Enrico
Default Group and Edit

Ist mir noch nicht aufgefallen.
Ob das an der verwendeten FAT liegt?
Das Test vom Power habe ich schon X-mal über eine RAF laufen lassen.
Änder ich eine Datei, ändert sich auch die Prüfsumme.
Aber dort steht doch nicht, welche Sektoren der dann liest.
Dauert bei 4 MB schon ein Weilchen (5-15min?),
aber 15h aufnem S180? Das werden dort doch auch nur ein paar
MB sein?

Na, hoffentlich verbrätst Du mir dabei nicht die ganzen PIOs, und es
lassen sich später noch welche ranschaffen.
--
MFG
Enrico

Dieser Beitrag wurde am 27.05.2016 um 02:54 Uhr von Enrico editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
27.05.2016, 17:07 Uhr
TTL-Grab

Ich habe seinerzeit mal Power reassembliert und soweit erweitert, dass es auch unter CP/M-3 läuft. Ich habe gerade nachgeschaut: die unveränderten Quellen habe ich nicht mehr gefunden, nur noch die mit meiner Erweiterung. Wenn dir das was hilft?

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
27.05.2016, 22:24 Uhr
Leo

Hallo,
bin der Leo, den Holm oben erwähnt hat, und die Power-Source sucht. Ich habe mich jetzt mal hier angemeldet, damit man nicht zwischen 2 Foren hin und her eiern muß.

@TTL-Grab
CP/M 3 Version wäre ok. Schließlich handelt es sich bei uns um ein CP/M3 System. Die Version, die ich bei mir gefunden habe, sieht so aus:

Zitat:

D>power7c

POWER 3.07 on CP/M 3.1 B Z

Copyright (c) 1981, 1982, 1983 by PAVEL BREDER
CHECK faster by WD 12/06/83

D0=

Inzwischen habe ich das ganze auch mal auf einem AVR-CP/M-System getestet, auf dem ein CP/M 2.2 Clone läuft. Gleiches "Floppy"-Format wie auf dem Z180 (8MB simhd Format in einer Image-Datei auf einem FAT-Dateisystem auf einer SD-Karte, s.u.). Da funktioniert diese Power-Version einwandfrei.

@Enrico,
Ich kann eben nicht ganz ausschließen, daß im BIOS des Z180 oder im AVR-Teil, der die Daten vom FAT-System liest bzw. schreibt liegt. Deshalb hätte ich halt gerne mal geschaut, was Power da genau macht.
Die 15 Stunden hat es nur bei einem speziellen Test gedauert, wenn die Image-Datei auf dem FAT-System kleiner ist, als das darin befindliche CP/M-Dateisystem. Den Normalfall habe ich heute getestet. Power TEST braucht ca. 13,5 Minuten. Fast egal ob das Dateisystem in einer Image-Datei auf der FAT-formatierten SD-Karte, oder direkt und ohne FAT auf einer Partition einer CF-Karte ist.

So sieht die Ausgabe von "stat dsk:" aus:

Zitat:

B: Drive Characteristics
65344: 128 Byte Record Capacity
8168: Kilobyte Drive Capacity
1024: 32 Byte Directory Entries
1024: Checked Directory Entries
256: Records/ Extent
32: Records/ Block
32: Sectors/ Track
6: Reserved Tracks

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
29.05.2016, 19:57 Uhr
TTL-Grab

So Leo, habe dir gerade die Quelle und das Binary rübergeschickt. Ich hoffe, du kannst damit was anfangen
Gruss
Micha

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

010
29.05.2016, 20:29 Uhr
TTL-Grab

@Leo: Mail ist zurückgekommen, die Adresse, die du hier angegeben hast, stimmt also nicht.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

011
29.05.2016, 20:55 Uhr
Leo

Erst mal Danke für den Versuch. Aber ich verstehe es nicht. Ich habe "hier" genau eine Adresse angegeben, und über die haben mich Deine beiden Artikel erreicht.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

012
29.05.2016, 21:54 Uhr
TTL-Grab

2. Versuch gestartet, wolln wir mal schauen :-)

Edit: war folgende Fehlermeldung:

Action: failed
Status: 5.0.0
Remote-MTA: dns; mx-eu.mail.am0.yahoodns.net
Diagnostic-Code: smtp; 554 Message not allowed - [299]

Dieser Beitrag wurde am 29.05.2016 um 21:59 Uhr von TTL-Grab editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

013
30.05.2016, 10:24 Uhr
holm

Avatar von holm

Schicks notfalls zu mir, ich streite mich auch mit yahoo wenn die meine Mail nicht abnehmen :-)

Ich habe zumeist die selbe POWER Version hier laufen..

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

014
30.05.2016, 10:27 Uhr
TTL-Grab

Nee, ist ok, der 2. Versuch hat geklappt.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

015
30.05.2016, 10:33 Uhr
Enrico
Default Group and Edit

Muss vielleicht mit etwas gepackt sein wo die nicht reinschauen können?
Ev. haben die ja vor *.COM Angst?
--
MFG
Enrico

Dieser Beitrag wurde am 30.05.2016 um 10:34 Uhr von Enrico editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

016
30.05.2016, 10:44 Uhr
TTL-Grab

Ja, kann schon sein. Beim 1. Mal hatte ich die einzeln geschickt, beim 2. Mal als .zip

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

017
30.05.2016, 12:16 Uhr
holm

Avatar von holm

...wobei natürlich gerade zip das Format ist, das nie irgendwelche Schadsoftware enthält ..?
Sind die noch ganz gasdicht?

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

018
30.05.2016, 12:21 Uhr
TTL-Grab

Paulotto wollte die auch habe, kam sofort zurück mit Spamverdacht. Scheint ja richtig gefährlich zu sein, dieses Power :-)

Ich habe das mal hierhin gepackt: http://fritscholyt.de/Power/

Ich habe zwar nur 5MB Webspace, aber das passt ja gerade noch so rein.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

019
30.05.2016, 13:01 Uhr
Leo

Nochmal Danke fürs schicken. Inzwischen habe ich es ausprobiert. Das Programm meldet sich mit POWER 4.00 on CP/M 3.1 1/2 und das TEST-Kommando funktioniert einwandfrei, und ist in ziemlich genau 2 Minuten fertig.

Dieser Beitrag wurde am 30.05.2016 um 13:02 Uhr von Leo editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

020
30.05.2016, 13:07 Uhr
TTL-Grab

Das meldet sich deswegen mit Version 4.00, weil ich das damals so gewollt habe.
Wie oben geschrieben, den Umbau auf CP/M-3 habe ich damals selbst gemacht. die ursprüngliche Version war wahrscheinlich 3.03, weil das die einzige originale Power-Version ist, die ich auf meinen Disketten gefunden habe.
Schön, dass es funktioniert, dann habe ich ja nicht viel falsch gemacht :-)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

021
30.05.2016, 13:22 Uhr
Leo

Die Version hatte erwähnt, um zu zeigen, das ich das "richtige" Programm erwischt habe, und daß es bei mir unter CP/M 3 läuft.

Zitat:

TTL-Grab schrieb
Schön, dass es funktioniert, dann habe ich ja nicht viel falsch gemacht :-)

Im Gegensatz zu dem anderen (POWER 3.07 on CP/M 3.1 B Z). Warum das unter CP/M 3 nicht richtig läuft, und warum es außerdem noch sehr langsam ist, werde ich wohl nicht mehr herausfinden. Es gibt ja eine Alternative.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

022
30.05.2016, 14:23 Uhr
holm

Avatar von holm

...das traurige daran ist aber, das Power 3.03 mit verschiedenen "Usern" deutlich cryptischer umgeht als Power 3.07 (copy destination etc..)

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;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]