home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / aeg020 / sps.lst < prev    next >
Encoding:
File List  |  1990-02-01  |  2.5 KB  |  109 lines
  1.  
  2. procedure kopf;
  3.  
  4. var
  5. jahr,monat,tag,wtag      :  word;
  6.  
  7. begin
  8.   lr                     := '      ';
  9.   writeln(outfile,ff);
  10.   write  (outfile,lr,'Datei : ',filename);
  11.   for i                  := length(filename) to 28 do
  12.     write  (outfile,' ');
  13.   getdate(jahr,monat,tag,wtag);
  14.   writeln(outfile,'Datum  : ',tag:2,'.',monat:2,'.',jahr:4);
  15.   writeln(outfile);
  16.   writeln(outfile,lr,'Autor : ___________________________  Version: __.__.__');
  17.   writeln(outfile);
  18.   writeln(outfile,lr,'Anlage: ___________________________');
  19.   writeln(outfile);
  20.   writeln(outfile,lr,'        ___________________________');
  21.   writeln(outfile);
  22.   writeln(outfile);
  23. end;
  24.  
  25.  
  26. procedure print_awl;
  27.  
  28. begin
  29.   with awl[i] do
  30.   begin
  31.     write  (outfile,' [',i:4,']     ',operation);
  32.     for j                := length(operation) to 4 do
  33.       write  (outfile,' ');
  34.     if (operand = '') then
  35.       operand            := ' ';
  36.     if (kennzahl = -1) then
  37.       writeln(outfile,'            :')
  38.     else
  39.       writeln(outfile,operand,kennzahl:5,'      :');
  40.   end;
  41. end;
  42.  
  43.  
  44. procedure anweisungsliste;
  45.  
  46. begin
  47.   writeln(outfile);
  48.   writeln(outfile,lr,'STRUKTURIERTE ANWEISUNGSLISTE        KOMMENTARE');
  49.   writeln(outfile);
  50.   ii                     := 1;
  51.   for i                  := 1 to anzaw do
  52.   begin
  53.     with awl[i] do
  54.     begin
  55.       write  (outfile,lr,'[',ii:4,']');
  56.       print_awl;
  57.       if (operation = 'PE') or (operation = '=') or (pos('L',operation) = 2) then
  58.       begin
  59.         writeln(outfile);
  60.         ii               := succ(ii);
  61.       end;
  62.     end;
  63.   end;
  64. end;
  65.  
  66.  
  67. procedure querverweissliste;
  68.  
  69. var
  70. op                       :  string[2];
  71.  
  72. begin
  73.   writeln(outfile,ff);
  74.   writeln(outfile);
  75.   writeln(outfile,lr,'QUERVERWEISSLISTE AUF ADRESSEN       KOMMENTARE');
  76.   for jj                 := 1 to anzopr do
  77.   if (maxopr[jj] > 0) then
  78.   begin
  79.     op                   := oprstr[jj];
  80.     writeln(outfile);
  81.     writeln(outfile);
  82.     writeln(outfile,lr,'      - ',oprstr[jj]);
  83.     writeln(outfile);
  84.     for ii               := 1 to maxopr[jj] do
  85.       for i              := 1 to anzaw do
  86.         with awl[i] do
  87.           if (operand[1] = op[1]) and (kennzahl = ii) then
  88.           begin
  89.             write  (outfile,lr,'      ');
  90.             print_awl;
  91.           end;
  92.   end;
  93. end;
  94.  
  95.  
  96. procedure dokumentation;
  97.  
  98. begin
  99.   update_filename('ref');
  100.   assign (outfile,filename);
  101.   rewrite(outfile);
  102.   kopf;
  103.   anweisungsliste;
  104.   querverweissliste;
  105.   close  (outfile);
  106.   message(mess[3]);
  107. end;
  108.  
  109.