home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / s5 / s5.lst < prev    next >
Encoding:
File List  |  1990-12-27  |  2.9 KB  |  123 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.  
  35.     write  (outfile,operand);
  36.     for j                := length(operand) to 2 do
  37.       write  (outfile,' ');
  38.  
  39.     if (baustein = -1) then
  40.       writeln(outfile,'           :')
  41.     else
  42.     begin
  43.       write  (outfile,baustein:4);
  44.       if (bitnr = -1) then
  45.         writeln(outfile,'       :')
  46.       else
  47.         writeln(outfile,'.',bitnr:1,'     :');
  48.     end;
  49.   end;
  50. end;
  51.  
  52.  
  53. procedure anweisungsliste;
  54.  
  55. begin
  56.   writeln(outfile);
  57.   writeln(outfile,lr,'STRUKTURIERTE ANWEISUNGSLISTE        KOMMENTARE');
  58.   writeln(outfile);
  59.   ii                     := 1;
  60.   for i                  := 1 to anzaw do
  61.   begin
  62.     with awl[i] do
  63.     begin
  64.       write  (outfile,lr,'[',ii:4,']');
  65.       print_awl;
  66.       if (operation[1] = 'B') or (operation = '=') or
  67.          (operation[1] = 'S') or (operation = 'R') or
  68.          (operation[1] = 'Z') then
  69.       begin
  70.         writeln(outfile);
  71.         ii               := succ(ii);
  72.       end;
  73.     end;
  74.   end;
  75. end;
  76.  
  77.  
  78. procedure querverweissliste;
  79.  
  80. var
  81. op                       :  string[1];
  82.  
  83. begin
  84.   writeln(outfile,ff);
  85.   writeln(outfile);
  86.   writeln(outfile,lr,'QUERVERWEISSLISTE AUF ADRESSEN       KOMMENTARE');
  87.   for jj                 := 1 to anzopr do
  88.   if (maxopr[jj] >= 0) then
  89.   begin
  90.     op                   := oprstr[jj];
  91.     writeln(outfile);
  92.     writeln(outfile);
  93.     writeln(outfile,lr,'      - ',oprstr[jj]);
  94.     writeln(outfile);
  95.     for ii               := 0 to maxopr[jj] do
  96.       for i              := 1 to anzaw do
  97.         with awl[i] do
  98.           if ((operand[1] = op[1]) and (baustein = ii)) or
  99.              ((operand[1] = 'K') and (operand[2] = op[1]) and (awl[i+1].baustein = ii)) then
  100.           begin
  101.             write  (outfile,lr,'      ');
  102.             print_awl;
  103.           end;
  104.   end;
  105.   writeln(outfile);
  106.   writeln(outfile,ff);
  107. end;
  108.  
  109.  
  110. procedure dokumentation;
  111.  
  112. begin
  113.   update_filename('ref');
  114.   assign (outfile,filename);
  115.   rewrite(outfile);
  116.   kopf;
  117.   anweisungsliste;
  118.   querverweissliste;
  119.   close  (outfile);
  120.   message(mess[3]);
  121. end;
  122.  
  123.