Robotrontechnik-Forum

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

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » die CP/A Quellen habe ich... » Themenansicht

Autor

Thread - Seiten: -1-

000
12.11.2008, 19:56 Uhr
holm

Avatar von holm

..wie versprochen mal auf meinen Webserver geschmissen:

http://www.tiffe.de/other/K8924/cpa

Das ist die modernste Version die ich auftreiben konnte, Unterstützung der RAF ist drin.

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
12.11.2008, 20:07 Uhr
holm

Avatar von holm

...hmmm das rödelt ja schon runter wie irre :-)

Keine Angst, ist morgen auch noch da..

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

Dieser Beitrag wurde am 12.11.2008 um 20:10 Uhr von holm editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
12.11.2008, 21:36 Uhr
marko_oette

N Archiv würde den Download vereinfachen

--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
12.11.2008, 21:41 Uhr
holm

Avatar von holm

..nun hast Du's doch schon :-)

Wenn ich da ein Archiv hinlege, ziehen die Leute die einzelnen Dateien UND das Archiv...

Naja, auf vielfachen Wunsch eines einzelnen Herrn...

..isses so recht? *grin*

Winrar kann das auspacken..

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

004
13.11.2008, 09:52 Uhr
Deff

Schade das die Dateien nicht mehr das Originaldatum haben.
Könntest Du nicht einen DIR-Print veröffentlichen?
--
Die Politik ist ein Versuch der Politiker, zusammen mit dem Volk mit den Problemen fertig zu werden, die das Volk ohne die Politiker niemals gehabt hätte. (Dieter Hildebrandt)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
13.11.2008, 11:37 Uhr
Rüdiger
Administrator

Zitat:

Deff schrieb
Schade das die Dateien nicht mehr das Originaldatum haben.

Originaldatum: wie das?
CP/M hat generell kein Dateidatum. Das kam erst mit DOS.
--
Kernel panic: Out of swap space.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
13.11.2008, 12:00 Uhr
Deff

Daran kann man gleich erkennen, wie verheerend teilweise sich SCP-Entzug auswirken kann!

--
Die Politik ist ein Versuch der Politiker, zusammen mit dem Volk mit den Problemen fertig zu werden, die das Volk ohne die Politiker niemals gehabt hätte. (Dieter Hildebrandt)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
13.11.2008, 12:35 Uhr
marwe

Da scheinen die ich da gefunden hatte teilweise neueren Datums zu sein.

MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
13.11.2008, 12:46 Uhr
holm

Avatar von holm

..möglicherweise. Die History am Anfang von BIOS.MAC sagt sowas, es wird eine Tastatur an der AZP Karte des K8924 unterstützt. Die Sache mit dem CCP ist wohl allerdings in "meiner" Version auch schon drin. Ich habe es gleich mal auf meiner Webseite sichergestellt :-)

Das schöne im WWW ist, das man nix findet.

Nachtrag: das steht zwar auf dem FTP server unter pc1715/cpa ist aber wohl für diesen nicht geeignet sondern für Bürocomputer.

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

Dieser Beitrag wurde am 13.11.2008 um 12:58 Uhr von holm editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
13.11.2008, 13:21 Uhr
marwe

Zitat:

holm schrieb
Nachtrag: das steht zwar auf dem FTP server unter pc1715/cpa ist aber wohl für diesen nicht geeignet sondern für Bürocomputer.

ääh?

--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

010
13.11.2008, 13:24 Uhr
holm

Avatar von holm

Versuche das doch mal zu gernerieren..

Nachtrag: Die BIOS Dateien für den 1715 die ich kenne fangen mit BIOP..
an. CPABCGEN heißt CPAPCGEN, Format heißt FORMATP usw...

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

Dieser Beitrag wurde am 13.11.2008 um 14:13 Uhr von holm editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

011
13.11.2008, 15:17 Uhr
Jens Krause

Nun die Sache mit dem Datum ist, das man da alles mögliche reinschreiben kann. Es gibt leider keine wirklich zuverlässige Versionierung. So werden zig Varianten mit verschiedenen Datum und gleichem Inhalt oder gleichen Datum und undokumentierten unterschiedlichem Inhalt existieren.

Da gehört eine ordentliche Versionsverwaltung dahinter ... gute Idee ....

Jens

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

012
13.11.2008, 15:55 Uhr
volkerp
Default Group and Edit

Auf dem Stuttgarter FTP-Server liegt auch die Datei CPAMAC.ARC; diese enthält einen raw-Dump einer PC1715-Diskette mit folgendem Inhalt:

edbackup.$$$ p03.bak @os.com cpa1715g.com dr.com formatp.com linkmt.com m80.com power.com tp.com tpinscpa.com tpsv.com CPAMAC.DMP p01.doc p02.doc p03.doc p04.doc p05.doc p06.doc p08.doc p09.doc p10.doc bdos.erl ccp.erl cppbas.erl biop.mac biopchk.mac biopcrt.mac biopdpb.mac biopdsk.mac biopdskt.mac biopkbd.mac bioplst.mac biopmon.mac biopnuc.mac bioptim.mac tpdruck.ovr tpht.ovr tpovly1.ovr

biop.mac datiert auf den 6.11.86. (p01..p10.dos ist das dt. Turbo-Pascal 3.0-Handbuch)

die einzeln als Datei vorliegenden Quellen vom 25.09.89 können möglicherweise auch ein PC1715-Bios erzeugen; B1715, F1715 sind als Konstanten in bios.mac vorhanden.
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

013
13.11.2008, 16:08 Uhr
volkerp
Default Group and Edit

Die Quellen von Holm tragen das Bios-Datum 31.05.88.
Die Stuttgarter einzeln als Datei vorliegenden Quellen vom 25.09.89 sind somit die aktuellsten. Als Neuerungen gibt es bspw. Unterstützung für NANOS-RAM-Floppys, Verify after Read, verbessertes Schreibhandling auf Platten und sicher noch andere kleine Sachen.
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

014
13.11.2008, 16:20 Uhr
holm

Avatar von holm

Ich sag doch, ich ziehe mir das mal rein und das es möglicherweise neuer ist. :-)
Inwiefern das Zeug auf dem 1715 läuft, werde ich schon noch herausbekommen,
der Hauptunterschied liegt im Lader und dem Floppycontroller, der 1715 hat ja nur ein CPU. Es kann sein, das die Quellen für BC und PC wieder ineinandergeflossen sind, Bestrebungen sowas zu tun sind in den Quellen zu finden. Ich schaue halt mal drüber....

Die vorhergehende Version (die ich aufgegabelt hatte) ist soweit komplett und die
dazugehörigen Dienstprogramme sind dabei (Format, CPABCGEN). Das Zeug muß zum Bios passen!

Gruß,

Holm

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

015
13.11.2008, 16:39 Uhr
marwe

Zitat:

holm schrieb
Versuche das doch mal zu gernerieren..

Hätte ich gerne, aber war ja letztens schon dran gescheitert ( http://www.robotrontechnik.de/html/forum/thwb/showtopic.php?threadid=3567 ), endet immer mit 17 fatal errors, da die 1715 Einstellungen enthalten waren hatte ich ja angenommen, das es dafür geht

MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Dieser Beitrag wurde am 13.11.2008 um 16:42 Uhr von marwe editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

016
13.11.2008, 19:22 Uhr
holm

Avatar von holm

Die Sourcen sind etwas verwanzt. Irgend eine Dödel hat die Dinger teilweise im "D" Modus von Wordstar bearbeitet, ich bin gerade drüber, schaunmermal was dabei raus kommt..

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

017
13.11.2008, 20:20 Uhr
marwe

Auf einem 5120 klappte es mit unveränderter Einstellung auf Anhieb:

--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

018
13.11.2008, 21:59 Uhr
holm

Avatar von holm

Meinst du so hier:

E>m80 bios.erl=bios
*
* Generierung CP/A, Version 25.9.89 *
* Buerocomputer-Variante
*
* Hauptspeicher in Kbytes: 64
* mit Unterstuetzung RAF als RAM-Floppy (ohne Paritaetskontrolle)
* CCP-Kopie in RAM-Floppy (keine Systemspuren notw.)
* ohne BIOS-Monitor
* ohne Speicherschutz
* ohne BIOS-Uhr
* TTY: Geraet an Portadresse: 50
* LPT: nicht unterstuetzt
* UC1: nicht unterstuetzt
* mit NutzerTastenDefinition, Mindesttablng 20
* Anzahl 5 1/4 Zoll Disketten-Laufwerke: 3
* Groesse Diskettenpuffer: 1024
* mit automatischer Disketten-Formaterkennung
*
* BIOS beginnt auf .......... 0D900
* BIOS endet auf ............ 0F66F
* berechnetes BIOS-Ende ..... 0F6E4
* Interruptsaeule beginnt auf 0F7E0
*
* Link-Anweisung:
* linkmt @os=cpabas,ccp,bdos,x:bios/p:0C280
* mit x = Zielgeraet fuer bios.erl-File

No Fatal error(s)

... das ist im Emulator (assembliert etwas schneller..) ich werde mal den Kram zusammenlinken..

Es bleibt nur die Frage wo die im Bios.mac referenzierten Files "BIO*HD*.MAC" geblieben sind...

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

Dieser Beitrag wurde am 13.11.2008 um 22:02 Uhr von holm editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

019
13.11.2008, 22:22 Uhr
holm

Avatar von holm

Sind das die Fehler die Du bei der Übersetzung für 1715 siehst?

V C IF bsauto ;;Marke in BIOM
V C IF bab2
U DFD4 0000 C dw crto84 ;04/84
U DFD6 0000 C dw crto85 ;05/85
U DFD8 0000 C dw crto86 ;06/86
U DFF6 0000 C dw crto87 ;87
U EC11 C4 0000 C call nz,crtscp ;nein, Cursor setzen bevor Timer abgeschaltet
U EC3C CC 0000 C call z,crtscp ;abgelaufen, Cursor setzen
U 0284 32 0000 C ld (babfrm),a ;als Bildschirmformat
U C IF bsauto ;;Marke in BIOM
U C IF bab2
U 04FF 11 0000 C ld de,kbdtyp

12 Fatal error(s)

Ich habe mal geguckt, da fehlt etwas "Kleinkram" im Bios CRT Treiber für den 1715.
Ich muß mir das mal durch den Kopf gehen lassen, den 1715 kenne ich eher schlecht,besitze aber 2 Stück. Mal sehen, ob ich das umoperieren kann.

Das die AdW das weitermacht ist wohl nicht warscheinlich :-) Das ist simpel noch nicht ganz fertig...

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

020
14.11.2008, 10:31 Uhr
marwe

Genau, nur beim 1715 kommt es ein wenig anders:

(im CPA fehlt immer vorn ein halbes Zeichen auf den Schirm, beim SCP ist es aber ok.)

MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Dieser Beitrag wurde am 14.11.2008 um 10:36 Uhr von marwe editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

021
14.11.2008, 11:22 Uhr
Rüdiger
Administrator

Zitat:

marwe schrieb
(im CPA fehlt immer vorn ein halbes Zeichen auf den Schirm, beim SCP ist es aber ok.)

Bist Du sicher, dass Du das Problem nicht durch Nachstellen des Synchronpunktes im Bildschirm in den Griff kriegst?
--
Kernel panic: Out of swap space.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

022
14.11.2008, 12:00 Uhr
marwe

Zitat:

Rüdiger schrieb
Bist Du sicher, dass Du das Problem nicht durch Nachstellen des Synchronpunktes im Bildschirm in den Griff kriegst?

Ja, bin ich sicher

(Ist ein LCD-Display, der originale Moni macht nur noch Licht im Hals, mangels Vakuum

)
Aber das eigentliche Problem sind die 17 Fatal error(s)

MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

023
14.11.2008, 14:33 Uhr
holm

Avatar von holm

Auch ich hatte das Ding als 1715 definiert. Ich habe aber nur 12 Fehler...

Ich denke mal Du hast noch Fehler im Code, so mit gesetztem Bit 7.
Ich kann mit nicht so recht vorstellen, was die Wahl des Betriebssystems auf die Synchronimpulslage der K7024 für einen Einfluß haben soll. Da geht eigentlich Nichts umzuprogrammieren, oder täusche ich mich da? Oder machst Du das auf dem 1715?.

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

024
14.11.2008, 15:00 Uhr
marwe

Ja, ich selbst hab nur den 1715

MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

025
16.11.2008, 11:08 Uhr
marwe

Da fehlt aber einiges für die Bildschirmausgabe und für die Tastatur des 1715, da kam wohl die Montagsdemo dazwischen

Ich hatte mal die entsprechenden biopxx.mac dafür eingesetzt, aber da müssen noch etliche Variablen (um)definiert werden.
MfG Marcus
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

026
16.11.2008, 11:11 Uhr
holm

Avatar von holm

Das in etwa schrieb ich doch schon in 019. Da fehlt simpel etwas Code,
wie es aussieht nicht mehr viel. Es fehlt im Prinzip auch kein zu includendes File bis
auf die beiden zur Harddisk Unterstützung gehörenden. Meine 1715 stehen im Lager,
ich kann also auch nicht experimentieren. Ich habe derzeit nur einen umgebauten K8924 hier...

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

027
16.11.2008, 11:20 Uhr
marwe

Zitat:

holm schrieb
Das in etwa schrieb ich doch schon in 019. Da fehlt simpel etwas Code,
wie es aussieht nicht mehr viel.

Das hab ich ja gelesen, deshalb schrieb ich ja einiges, nicht nur etwas, die ganze Initialisierung für den CRT-Controller z.B. und wie gesagt auch Tastatur

MfG Marcus

Edit:

Zitat:

volkerp schrieb
Auf dem Stuttgarter FTP-Server liegt auch die Datei CPAMAC.ARC; diese enthält einen raw-Dump einer PC1715-Diskette

Diese Version lässt sich übrigens fehlerlos generieren
--
Mit nur einer Hand läßt sich kein Knoten knüpfen

Dieser Beitrag wurde am 16.11.2008 um 23:20 Uhr von marwe editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

028
17.07.2009, 21:56 Uhr
Ralph

@Holm... hast Du die Quellen für das CPA noch ? und kannst Du mir die mal zukommen lassen ? Vielen Dank!
--
Es geht alles erst richtig los !

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

029
18.07.2009, 09:23 Uhr
holm

Avatar von holm

Stöbere einfach mal unter www.tiffe.de/Robotron herum..

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

Dieser Beitrag wurde am 18.07.2009 um 09:45 Uhr von holm editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

030
18.07.2009, 09:50 Uhr
Ralph

@Holm.. Danke Dir ! Ich stöbere mal.... Ich such nämlich warum ich mit eigenen CP/M Programmen zwar Dateien anlegen kann, die aber nicht korrekt gespeichert werden. Weist Du genau wie das geht ? Da könnten wir nen neuen Thread eröffnen..
--
Es geht alles erst richtig los !

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]