Robotrontechnik-Forum

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

Robotrontechnik-Forum » Technische Diskussionen » CP/A Sourcecode » Themenansicht

Autor Thread - Seiten: -1-
000
11.05.2008, 09:51 Uhr
volkerp
Default Group and Edit
Avatar von volkerp

Hallo,

hat jemand komplettere Quelltexte fürs CP/A als das bekannte BIOS der Buerocomputer?

title BIOS CP/A, Buerocomputer (A5120/30 u. ae.)
; Versionsangabe:
;----------------
verst equ 31 ;Tag
versm equ 05 ;Monat
versj equ 88 ;Jahr

Also auch für BDOS und CCP?
--
VolkerP

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

Dieser Beitrag wurde am 11.05.2008 um 09:56 Uhr von volkerp editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
001
17.05.2008, 12:57 Uhr
holm

Avatar von holm

Ja ich denke schon....
$ cd /home/holm/CPMD/cpa/
$ ls
@os.com bioscp56.mac bioscsio.mac biosmem.mac ccp.erl rezilog.com
bdos.erl bioscpb.mac biosdpb.mac biosmon.mac cpa.dok rezilog.hlp
bios.bak bioscpio.mac biosdpbm.mac biosnuc.mac cpabas.erl tp.com
bios.erl bioscrt.bak biosdsk.mac biosnuc1.mac cpabcgen.com tpdruck.ovr
bios.mac bioscrt.mac biosdskc.mac biosnuc2.mac format.com tpht.ovr
bioschd.mac bioscrt.old biosdskp.mac biosrfl.mac l80.com tpinscpa.com
bioschdc.mac bioscrtc.bak biosdskt.mac biosrflc.mac linkmt.com tpovly1.ovr
bioschk.mac bioscrtc.mac bioskbd.mac biostim.mac m80.com tpsv.com
bioscp54.mac bioscrtc.old bioskbdc.mac biostimc.mac ref.com
$

Ich habe das Bios wohl mal an den cpmsim angepaßt und im Xterm Ladder gespielt,
es fehlte mittlerweile eine shared library und ladder habe ich auch noch nicht wieder gefunden, aber das geht immerhin noch:
A>dir
A: DUMP COM : POWER COM : PIP COM : SUBMIT COM
A: BYE COM : MLOAD COM : L80 COM : NSWP COM
A: M80 COM : RCONV SUB : LOAD COM : STAT COM
A: XSUB COM : LIBR COM : LSWEEP13 COM
A>power


POWER 3.03 on m-Sh 2.22 1/2

Copyright (c) 1981, 1982 by PAVEL BREDER
All rights reserved. 01/03/83

A0=

oder sowas hier: not editing
< < < O P E N I N G M E N U > > >
---Preliminary Commands--- | --File Commands-- | -System Commands-
L Change logged disk drive | | R Run a program
F File directory now ON | P PRINT a file | X EXIT to system
H Set help level | |
---Commands to open a file--- | E RENAME a file | -WordStar Options-
D Open a document file | O COPY a file | M Run MailMerge
N Open a non-document file | Y DELETE a file | S Run SpellStar

directory of disk B:
WS.INS



oder ..
C: WS33MOD4 AQM : Z80CCP ARK : WS33MOD4 ASM : WS3330 DOC
C: WS3330 DQC : WS INS : Z80D24SR LBR : Z8D-UTL1 LBR

Das ist das was der Emulator jetzt so auf seinen virtuellen Disks im Unix Filesystem sieht.

Irgendwo im Unix liegt noch dashier herum:

$ ls -R
bds-c.tar.gz cpa/ j-mail ws/
bdsc/ cpm-goodies.tar.gz l80.doc wustl.tar.gz

./bdsc:
BDS-DOC/ bdsc-1/ bdsc-2/ bdsc-3/ bdsc-4/ doc/

./bdsc/BDS-DOC:
bds-c.doc bds-c2.doc bds-c5.doc cdb.doc convert*
bds-c0.doc bds-c3.doc bds-c6.doc cnv* unix/
bds-c1.doc bds-c4.doc bds-c7.doc cnv.c

./bdsc/BDS-DOC/unix:
bds-c.doc bds-c1.doc bds-c3.doc bds-c5.doc bds-c7.doc lolo
bds-c0.doc bds-c2.doc bds-c4.doc bds-c6.doc cdb.doc

./bdsc/bdsc-1:
bds46.lib casm.c deff2a.csm fp.csm stdlib1.c
bdscio.h casm.sub dio.c hware50.h stdlib2.c
bdscio50.h ccc.asm dio.h noboot.c wildex16.c
bdsnew.csm deff.crl float.c noclr.c wildex20.c
c.ccc deff2.crl fltsum.c sieve.c wildexp.c

./bdsc/bdsc-2:
chario.c load.c makovl.c portio.h uniq.c xc.c
l2.c lpr.c nl2.c scott.c untip.c
l2link.fix lprint.c ph.c teled12.c wavy.c

./bdsc/bdsc-3:
alph.c cp.c long1.c qsort.tip sd.c wc.c
append1.c echo.c long1.crl rm.c sort3.c
cat.c fp.c long1.csm rmf.c stripc.c
cdir.c fs.c pat.c rmx.c symp.c
cio.c lcheck.c pat.h sample.csm usercode.c

./bdsc/bdsc-4:
append.c device.c nro.c tail.c ucsdtran.c
config12.c di.c power.com tinit.c

./bdsc/doc:
00-index.txt descript.ion l2.doc* teled12.doc* v145.doc wildcat.txt
bds-c.pol files.bbs long1.doc v143.doc v146.doc
casm.doc float.doc stdlib.doc v144.doc v150-2.doc

./cpa:
@os.com bioscp56.mac bioscsio.mac biosmem.mac ccp.erl rezilog.com
bdos.erl bioscpb.mac biosdpb.mac biosmon.mac cpa.dok rezilog.hlp
bios.bak bioscpio.mac biosdpbm.mac biosnuc.mac cpabas.erl tp.com
bios.erl bioscrt.bak biosdsk.mac biosnuc1.mac cpabcgen.com tpdruck.ovr
bios.mac bioscrt.mac biosdskc.mac biosnuc2.mac format.com tpht.ovr
bioschd.mac bioscrt.old biosdskp.mac biosrfl.mac l80.com tpinscpa.com
bioschdc.mac bioscrtc.bak biosdskt.mac biosrflc.mac linkmt.com tpovly1.ovr
bioschk.mac bioscrtc.mac bioskbd.mac biostim.mac m80.com tpsv.com
bioscp54.mac bioscrtc.old bioskbdc.mac biostimc.mac ref.com
.
/ws:
ascii.zei bewerb.txt mtap.inc pascal6.doc tpht.ovr wsin.doc
ass.com emu.pas pascal1.doc pascal7.doc tpinscpa.com zsid.com
ass.pas leben.txt pascal2.doc power.doc tpm.com
assi1.pas mbasic.bak pascal3.doc reasm8.doc tpmx.com
assi2.pas mbasic.doc pascal4.doc reasm8.pas tpovly1.ovr
bewerb.bak memmap.inl pascal5.doc tpdruck.ovr tpsv.com


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
002
17.05.2008, 14:12 Uhr
holm

Avatar von holm

...
http://www.tiffe.de/other/cpa.tar.gz

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
003
17.05.2008, 17:07 Uhr
holm

Avatar von holm

.. komplettere Quelltexte..
Du suchst den Quellcode vom BDOS und vom CCP?

Ich bin mir nicht sicher, ob es den wirklich so gab. Ich habe mal gehört, das es sich um gepachte REL Files handelt. Ich werde aber mal den anrufen der zu DDR Zeiten mit dem Leipziger Mensch befreundet war von dem CP/A stammte. Ich weiß selber nicht mehr wie der Mensch hieß...

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
004
17.05.2008, 18:24 Uhr
volkerp
Default Group and Edit
Avatar von volkerp

Hallo Holm,

danke für das Archiv. Das ist genau das, was ich auch habe. Die Quellen des CCP und BDOS gibt es garantiert irgendwo, denn das CP/M war (ausnahmsweise ? ) ein völlig eigenständige CP/M-Implementierung. Ich hab auch verschiedene CCP+BDOS-Versionen bei den Z9001-CP/Ms differenzieren können. Im BIOS-Archiv liegen zumindest die relokatiblen Versionen von CCP und BDOS bei, so daß eine Anpassung an den verfügbaren Speicher möglich ist.

btw, Z80CCP ARK : Z80D24SR LBR : Z8D-UTL1 LBR sowie
/ws:*.* klingen auch ganz interessant. Kann ich diese Dateien auch mal einsehen?
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
005
17.05.2008, 22:10 Uhr
holm

Avatar von holm

Ja, ich werde den Kram mal durchsehen und auf den Server schaffen.
Hinter mir im Regal stehen auch noch so an die 10 Schachteln 5 1/4 Zoll Disketten, nicht Alles davon ist CP/M, einiges auch alte Dos Software, mal sehen.
Das Doofe ist, daß der FreeBSD Floppy Treiber schon mal in einem besseren Zustand war als jetzt, der konnte schon mal deutlich mer ...
Ich denke aber das sich noch interessante Software da herunterholen läßt.

Hat hier Jemand evtl noch ein 360K 5 1/4 Laufwerk ü?

Ein 8Zoll habe ich auch noch, natürlich nicht in Betrieb.

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
006
19.05.2008, 20:34 Uhr
marko_oette



Hallo Holm,

um die Disks zu lesen, brauchst du nicht unbedingt ein 360K Laufwerk. ein 1,2 MB geht auch. So ist es zumindest mit DOS Mitteln möglich, die Disketten auszulesen.

Lediglich für das Hobby verwende ich noch einen DOS Rechner, alles andere ist bei mir mittlerweile auch Unix.

Bei Bedarf kannst du jedoch auch ein solches 369K Laufwerk von mir beziehen.
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
007
19.05.2008, 21:24 Uhr
holm

Avatar von holm

Ja marko. Das Problem ist aber, das ich solche Disks schreiben möchte, für ein etwas seltsames Digitalspeicheroszi mit 6809 drin. Besser gesagt ich muß sie erst mal formatieren. Das interne Formatprogramm hängt sich nämlich nachdem es Alle SPuren durch hat weg....

Gruß,

Holm, der schon geraume Zeit so ein Laufwerk sucht. Sch**ße, alles weggeschmissen...
--
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
008
20.05.2008, 10:53 Uhr
marko_oette



Wo versuchst du denn die Diskette zu Formatieren?

Hast du gar keine 5,25" Laufwerke mehr?

Wie gesagt, notfalls kannst du von mir eines haben. Würde aber an deiner Stelle ein 1,2MB nehmen, da man damit mehr anfangen kann.
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
009
20.05.2008, 19:06 Uhr
holm

Avatar von holm

Am PC unter FreeBSD.
Ein 1,2MB Laufwerk ist fest eingebaut :-)

Das Problem ist die Spurbreite, ich möchte wirklich 40 Tracks und 2 Seiten
formatieren können und das auch mit den entsprechenden Spurbreiten.

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
010
20.05.2008, 19:37 Uhr
marko_oette



Ich werde morgen mal nach sehen. Melde mich dann noch mal wegen dem Laufwerk.
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
011
21.05.2008, 10:35 Uhr
holm

Avatar von holm

@volkerp:
Ich habe Dir die fraglichen Dateien in ein Tar Archiv gepackt und unter
http://www.tiffe.de/other/z80files.tar.gz abgelegt.

Der Unix Kompressor arc war in der Lage das ARK file auszupacken, da gabs die Quelle für ein enhanced CCP mit dem Hinweis auf ein enhanced BDOS mit dem er allerdings nicht läuft:
http://www.seasip.demon.co.uk/Cpm/dosses.html

Ich habe ganz schön geschwitzt bis ich die Dateien aus den emulierten CP/M Disks des
Emulators geholt hatte...

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
012
21.05.2008, 20:26 Uhr
marko_oette



@Holm: Habe ein TEAC FD-55B-20-U übrig. Das ist lauf meiner eigenhändigen Aufschrift ein normales DSSD Laufwerk. Bei Interesse schreib mir mal ne PN.
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
013
30.05.2008, 07:20 Uhr
marko_oette



@Holm, besteht das Interesse noch? Habe dir schon 2x eine PN geschrieben.
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
014
30.05.2008, 07:54 Uhr
Xaar

Avatar von Xaar

@Marko: Das dein Laufwerk ist ein DSSD-, sondern ein DSDD-Laufwerk (siehe auch hier). Also auch 40 spurig, aber mit höherer Dichte.
--
Keyes: Mit Ihrer Handlungsweise riskieren Sie den Untergang der gesamten Menschheit!
Sline: Um den "American way of life" zu erhalten, will ich sehr gerne dieses Risikio auf mich nehmen.
(Aus: Spione wie wir)
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
015
30.05.2008, 09:26 Uhr
marko_oette



Ups, stimmt. Aber 360K
--
Bitte - wenn nötig - Kontakt via Email, ich bin selten im Forum.
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