CMDMAK bringt Licht ins Directory

Bei der automatischen Übertragung von Disketteninhalten auf Scheiben anderer Formate über Rechner-Rechner-Kopplung unter CP/M erweist sich als hinderlich, daß es dieses Betriebssystem in Varianten vor 3.0 nicht erlaubt, selbsttätig Inhaltsverzeichnisse („Directories") als normale Diskettenaufzeichnungen zu schreiben. Hier wird über den geglückten Versuch berichtet, diesen Mangel durch ein Dienstprogramm zu beheben. Bei gleicher Gelegenheit wurde studienhalber miterprobt, inwieweit in Pascal ausgesprochen betriebssystemnah programmiert werden kann.

Das bereits früher veröffentlichte „PROGSEND"-Verfahren zum Programmtransfer über Drucker-Schnittstellen [1] verlangt lästigen und fehleranfälligen Bedienaufwand, wenn - etwa von einer Festplatte aus - sehr viele Aufzeichnungen auf eine Zweitmaschine zu übertragen sind: Dann ist der Name einer jeden Aufzeichnung entweder während des Transfers jeweils von Hand einzugeben oder doch zumindest zuvor in ein „SUBMIT"-File zu schreiben. Wünsche von „PROGSEND"-Nutzern und eigene Bedürfnisse gaben den Ausschlag, nach einer Lösung zu suchen, die es erlauben sollte, auch diesen Teil des Übertragungsverfahrens zu automatisieren. Weil CP/M in allen Versionen vor 3.0 Directories nur auf Ausgabekanäle zu leiten, nicht jedoch in eine Datei zu schreiben vermag, mußte das Betriebssystem durch eine sozusagen artfremde Zusatzdienstleitung erweitert werden. Der technisch mögliche und auch erfolgreich erprobte Umweg über den CP/M-Pseudo-Unix-Adapter „MICROSHELL" [2] sollte nicht gewählt werden, weil dieser ansonsten vorzügliche Adapter doch recht teuer ist und seine Anschaffung allein zur Directory-Fixierung wirtschaftlich nur in seltenen Fällen zu rechtfertigen wäre, überdies forderten wir eine Lösung, die simultan aus allen 32 USER-Bereichen liest; das kann weder Microshell noch der zum Standard-Lieferumfang von CP/M 2.XX gehörende „Peripheral Interface Processor" PIP; der erlaubt bekanntlich nur Zugriffe auf die ersten 16 Bereiche.

Umweg über exotische Spezialfunktion

Wir bedienten uns einer dürftig dokumentierten und dementsprechend wenig bekannten Sonderbetriebsart der CP/M-Funktionsgruppe „SEARCH FIRST" (Suchen nach erstem Eintrag) und „SEARCH NEXT" (Suchen nach Folgeeintrag). Sie ist dadurch gekennzeichnet, daß in den „File Control Block FCB" im DR-Feld, das sonst die verschlüsselte Anweisung enthält, welches Laufwerk zu wählen ist, Byte 3FH eingetragen wird. Im DMA-Buffer liefert das Betriebssystem dann jeweils eine Vierergruppe aus allen Einträgen sämtlicher USER-Bereiche. Welcher der vier Teileinträge (0...3) gilt, ist am Akku-Inhalt erkennbar; dort erscheint überdies der Wert 0FFH, wenn die Suche keine neuen Einträge mehr liefert. Erschwert wird die Nutzung dieser Spezialfunktion dadurch, daß sie allzu gründlich arbeitet: Sie meldet nämlich auch gelöschte Einträge und solche, die zu Folge-Extents ein und derselben Aufzeichnung gehören. Solche hier unerwünschten Fehleinträge müssen erkannt und verworfen werden. Bis hierher ist erkennbar geworden, daß die Lösung der Aufgabe eigentlich die Anwendung von Assembler verlangt. Keine der unter CP/M üblicherweise eingesetzten Hochsprachen bietet, so war anfangs zu vermuten, für diesen Fall von Haus aus genügend leistungsfähige Handreichungen.

Direkter „BDOS"-Aufruf aus Pascal MT+

Zum Compiler Pascal MT+ (früher geliefert von MT Microsystems, heute ein Produkt der Firma Digital Research, Inc.) gehört eine von Mike Lehman geschriebene Dienstroutinen-Bibliothek PASLIB, die auch Module zu Direktaufrufen der Betriebssysteme CP/M (80) und CP/M-86 enthält. Zusammen mit den bit- und byteorientierten Zusatz-Operatoren dieses Pascal-Dialektes [7] und der schönen Datentyp-Strukturierbarkeit von Pascal schlechthin ergibt sich ein Umfeld, das uns studienhalber den Versuch wagen ließ, diese „typische Assembler-Aufgabe" in einer Hochsprache zu realisieren. Das Ergebnis entkräftet voll die häufig geäußerte Vermutung, Pascal sei untauglich für hardware- oder systemnahe Programmierung. In nur 169 Zeilen Quellencode ergab sich eine Lösung, die alle Anforderungen an unser Dienstprogramm erfüllte und darüber hinaus noch einigen Raum für vergleichsweise komfortable Mechanismen zum Abfangen extremer Betriebsbedienungen ließ.

CP/M-Strukturen bequem nachgebildet

Aktivitäts-„Drehscheiben" des Programms CMDMAK sind zwei strukturierte Variable, deren Byte-Aufbau genau dem File Control Block von CP/M und der Buffer-Innenarchitektur aus vier Einträgen identischer Struktur entspricht. Dabei sind nur jene Felder mit Namen versehen, die für den Job Bedeutung haben. Aus mnemotechnischen und didaktischen Gründen wurden Bezeichnungen gewählt, die eine unmittelbare Brücke zur Digital-Research-Nomenklatur schlagen und die dem erfahrenen CP/M-Programmierer deswegen vertraut sind. In diesen Variablen lassen sich deswegen Strukturen bequem füllen und auswerten. Den Zeilen 67...69 ist zu entnehmen, wie CMDMAK unerwünschte Einträge erkennt und verwirft; ansonsten wird auf die ausführlich gehaltene Kommentierung im Programmtext selbst verwiesen. Sie ist deswegen in englischer Sprache abgefaßt, weil es für zahlreiche Fachausdrücke, die spezifisch für das Betriebssystem CP/M sind, keine allgemein benutzten deutschen Entsprechungen gibt.

Störungsfreier Betrieb auf mehreren Rechnern

CMDMAK liest die vorgewählten Laufwerk („Default Drive") befindliche Diskette oder Festplatte und fertigt zwei Verzeichnisse. Beide umfassen den vollen USER-Bereich von 0...31; eines wird durchnumeriert über den Konsolen-Kanal unter Angabe aller von Null abweichenden USER-Nummern ausgegeben, das zweite als File „PSEND.CMF" auf die Scheibe im Boot-Laufwerk geschrieben. Eine weitere Bearbeitung dieser Aufzeichnung erfolgt bei Bedarf mit den Kernighan/Plaugerschen „Software-Tools" [6]. Endprodukt ist eine Sammlung von Steueranweisungen für „PROGSEND". Das Programm CMDMAK arbeitete auf verschiedenen 8- und 16-Bit-Rechnern der Firmen Apple, Columbia, ELab-Hoffmann, IBM, ITT und Wave Mate störungsfrei.

[1]	Joepgen, Hans-Georg: Programm-Transfer über Drucker-Schnittstelle., mc 1982, Heft 8, Seite 31...35.
[2]	Joepgen, Hans-Georg: Microshell-Ergänzung zum CP/M. mc 1983, Heft 5, Seite 66...67.
[3]	Kildall, Gary: CP/M 2.2 User Reference Manual. Digital Research Inc. Pacific Grove, California. First Printing, July 1982.
[4]	Digital Research (Herausgeber): CP/M-86 Operating System Programmer's Guide. Pacific Grove, California. Second Printing, June 1981.
[5]	Microsoft Consumer Products (Herausgeber): Softcard, Volume I. Bellevue/Washington 1980.
[6]	Kernighan, Brian W. und Plauger, P.J.: Software Tools in Pascal. Addison-Wesley Publishing Company. Reading/London/Amsterdam/Sidney 1981.
[7]	Joepgen, Hans-Georg: Betriebserfahrungen mit Pascal MT Plus. mc 1982, Heft 11, Seite 34...38.

  1 {---------------------------------------------------------------------------}
  2                             PROGRAM CMDMAK;
  3 {                           ===============	
  4
  5             Gets disk contents catalogue of current drive.
  6             Detects entries with all attributes from all user areas.
  7             Catalogue will be written as PSEND.CMF to disk A.
  8             This version for CP/M V 2.2 or equivalent DOS.
  9             For CP/M-86, change function name "@bdos" to "@bdos86".
 10             (Written Oct 17th, 83, by H.-G. Joepgen, D-7000 Stuttgart 40).
 11
 12             Compilers: Pascal MTPlus V 5.5 and 5.6, or MTPLUS-86
 13             (Digital Research, Inc.).
 14
 15             Program dedicated to public domain by MC  Magazine, Munich.
 16 }
 17 const siz    =  256;                         {names array size: 1..siz}
 18
 19 type styp    =  string [12];                 {file name goes here}
 20      ptr     =  ^integer;                    {var param to dos call}
 21      fcbtyp  =  array [0..32] of Byte;       {cp/m file control block}
 22      artyp   =  array [1..11] of char;       {holds returned file name}
 23      enttyp  = record                        {this struct returned by cp/m}
 24                  topfield: byte;
 25                  nam:      artyp;
 26                  exfield:  byte;
 27                  tail:     array [1..19] of char
 28                end;
 29      buftyp  = array  [0..3] of enttyp;      {dma buffer holds four entries}
 30
 31 var f:        text;                          {CMF file to be written}
 32     c:        char;                          {holds user answer}
 33     usernum:  0..31;                         {returned by cp/m}
 34     firstent: boolean;                       {first entry searched/found}
 35     lastent:  boolean;                       {last entry found: end flag}
 36     fcb:      fcbtyp;                        {here we build search fcblock}
 37     n,                                       {multi purposes counter}
 38     scount,                                  {index to array sar: file names}
 39     funct:    integer;                       {function selector to dos call}
 40     buffer:   buftyp;                        {cp/m copies dir records here}
 41     s:        styp;                          {current file nane found}
 42     s1:       string [8];                    {praefix part of file name}
 43     s2:       string [3];                    {suffix part oft file name}
 44     sar:      array [1.. siz] of styp;       {found naies stored here}
 45
 46 external function @bdos
 47 (funct: integer; parm: ptr): integer;        {paslib; thanks, Mike Lehman}
 48
 49 procedure getput;                            {fill sar with valid entries}
 50 var i: 1.. 11;                               {index; ISO says must be local}
 51 begin
 52     if firstent                              {here we are looking for 1st}
 53     then begin writeln;
 54            fillchar ( fcb [ 0], 12, '?');          {prepare 'scan all'}
 55            fillchar ( fcb [12], 20, chr (0));
 56            funct := 17;                            {search for first funct}
 57            firstent := false; scount := 0;         {init loop variables}
 58            n := @bdos (26, addr (buffer))          {set dma address }
 59          end
 60     else begin funct := 18;                        {search for next funct}
 61                fcb [14] := 0                       {fcb byte s2}
 62          end;
 63
 64  n := @bdos (funct, addr (fcb));               {perform search}
 65  lastent := (n > 3);                           {searching failed}
 66
 67    if lastent then exit;                       {this entry unvalid}
 68    if buffer [n].topfield = $e5 then exit;     {erased entry encountered}
 69    if buffer [n].exfield <> 0 then exit;       {this is not extent zero}
 70
 71  usernum := buffer [n].topfield;
 72  s [0] := chr (11);                            {set string length byte}
 73  move (buffer [n].nam [1], s [1], 11);         {copy naie to string s}
 74    for i:= 1 to 11 do clrbit (s [i], 7);       {reset attribute bits}
 75  s1:= copy (s, 1, 8);                          {get praefix part of name}
 76  s2:= copy (s, 9, 3);                          {get suffix part of name}
 77
 78  insert ('.', s, 9);                           {get file name period}
 79  n := pos (' ', s);                            {let's remove blanks}
 80    if n > 0 then repeat delete (s, n, 1);
 81                    n := pos (' ', s)
 82                  until n = 0;
 83
 84  write (' Found ');                            {tell, that's happening}
 85  scount := scount + 1;                         {increment index to array s}
 86  write ('(', scount:3, '); ');
 87  write (s1, '.', s2);                          {print file name to console}
 88  sar [scount] := s;                            {load array}
 89
 90   if usernum > 0                               {hidden file detected}
 91   then begin write(chr (7),
 92          '   < --- This file from user area ',
 93          usernum, '.-');
 94        end;
 95
 96 writeln;
 97
 98    if scount = siz
 99    then begin lastent:= true;
100               writeln ( chr(7), 'Buffer full error.-')
101         end;
102
103 end;
104
105 procedure writit;                              {writing array s to file f}
106 var n: integer;
107 begin
108   if scount > 0                                {... but only, if filled}
109     then
110     for n:= 1 to scount do
111       begin writeln (f, sar [n]);
112         if ioresult <> 0
113         then begin writeln;
114                writeln
115                ( chr (7),
116                '--- Write Error to PSEND.CMF.-');
117                exit
118              end;
119       end;
120 end;
121
122 begin                                          {main of CMDMAK}
123   writeln;
124   writeln
125   ('CMDMAK; writing contents of current disk to A:PSEND.CMF (Joe/17-10-83)');
126   writeln
127   ('----------------------------------------------------------------------');                                                                                           * t >	161	if n = 255
128   writeln;
129   assign (f, 'A:PSEND.CMF'); reset (f);
130     if ioresult <> 255
131     then begin repeat writeln;
132                  write ('+++ File A:PSEND.CMF exists. Delete (Y/N)? ');
133                  read (c);
134                  clrbit (c, 5)
135                until c in ['Y', 'N'];
136
137	       if c = 'N'
138            then begin writeln;
139                   writeln ('+++ Program CMDMAK aborted.-');
140                   exit
141                 end;
142          end;
143
144   writeln;
145   rewrite (f);
146
147   if ioresult = 255
148   then begin writeln;
149          writeln ('Could not open PSEND.CMF.', chr (7));
150          exit
151        end;
152
153   writeln; firstent:= true; lastent:= false;
154
155   repeat getput                                {filling array sar}
156   until lastent;
157
158  writit;                                       {writing array sar to file f}
159
160  close (f, n);
161  if n = 255
162  then begin writeln;
163         writeln
164         ('--- Could not close A: PSEND.CMF.-), chr (7))
165       end;
166
167  writeln; writeln ('+++ Program CMDMAK terminated.-')
168 end.
169

Bild 1. Extraktion von Platten- und Disketten-Inhaltsverzeichnissen auch aus fremden User-Bereichen ermöglicht das Programm CMDMAK. Es fertigt darüber hinaus eine Anweisungsdatei PSEND.CMF zur Steuerung automatisierter Dalentransfers bei der Rechner-Rechner-Kommunikation
Hier angepasst für TURBO Pascal

Found (  1): BILD2   .         Found ( 15): EPSONDT .COM
Found (  2): FOKO    .COM      Found ( 16): TEXTE   .CP
Found (  3): CPRDP   .COM      Found ( 17): I       .COM
Found (  4): TXTABAK1.###      Found ( 18): MT+5-6  .DOC
Found (  5): 'B30811A.024      Found ( 19): GERMAIN .
Found (  6): STEUER82.REI      Found ( 20): EPSPROP .
Found (  7): STEUER82.SON      Found ( 21): EPSON   .COM
Found (  8): EPSONUS .COM      Found ( 22): USERTEN .    <--- This file from user area 10.-
Found (  9): STEUERB2.FRE      Found ( 23): CMDMAK  .SRC
Found ( 10): AUTOKO  .COM      Found ( 24): CMDMAK  .COM
Found ( 11): STEUER82.VER      Found ( 25): USER9   .9   <--- This file from user area 9.-
Found ( 12): PL1-14  .DOC      Found ( 26): HIDDEN  .PS  <--- This file from user area 31.-
Found ( 13): PIP     .COM      Found ( 27): SECRET  .!!  <--- This file from user area 1.-
Found ( 14): LST2    .COM      Found ( 28): LST     .COM

Bild 2. Bei der Konsolen-Ausgabe schlägt CMDMAK Alarm, wenn es auf in fremden Benutzerbereichen verborgene Aufzeichnungen stößt. Dabei wird auch der USER-Bereich 16...31 erfaßt, der über klassische CP/M-Mittel nicht erreichbar ist