home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / aeg020 / sps.var < prev    next >
Encoding:
Text File  |  1979-12-31  |  5.4 KB  |  119 lines
  1.  
  2. type
  3. dateiname                =  string[12];
  4. extension                =  string[3];
  5. awtyp                    =  string[6];
  6. awrec                    =  record
  7.                               operation : string[3];
  8.                               operand   : string[2];
  9.                               kennzahl  : integer;
  10.                             end;
  11.  
  12. const
  13. intsize                  =    2;
  14. anzopr                   =    7;
  15. maxoperationen           =   16;
  16. maxaw                    =  896;
  17. maxe                     =   24;
  18. maxa                     =   16;
  19. maxm                     =  122;
  20. maxt                     =   16;
  21. maxz                     =   16;
  22. maxopr                   :  array[1..anzopr] of word = (0,0,0,0,0,0,0);
  23. dise                     =   31;
  24. disa                     =   31;
  25. dism                     =   79;
  26. dist                     =   17;
  27. disz                     =   17;
  28. disaw                    =    6;
  29. deep                     =    8;
  30. eins                     :  char                      =  '*';
  31. null                     :  char                      =  ' ';
  32. ff                       :  char                      =  #12;
  33. es                       :  integer                   =    2;
  34. ez                       :  integer                   =    3;
  35. as                       :  integer                   =   49;
  36. az                       :  integer                   =    3;
  37. ms                       :  integer                   =    2;
  38. mz                       :  integer                   =   22;
  39. ts                       :  integer                   =    2;
  40. ti                       :  integer                   =   15;
  41. tz                       :  integer                   =    4;
  42. zs                       :  integer                   =   74;
  43. zi                       :  integer                   =   61;
  44. zz                       :  integer                   =    4;
  45. scrollstart              :  word                      =    1;
  46. scrollende               :  word                      =    1;
  47. speed                    :  word                      =  100;
  48. delay                    :  word                      =  500;
  49. spstyp                   :  string[10]                =  ' AEG -020 ';
  50. oprstr                   :  array[1..       anzopr] of string[18] =
  51.                            ('EINGAENGE',
  52.                             'AUSGAENGE',
  53.                             'MERKER',
  54.                             'TIMER',
  55.                             'ZAEHLER ABFRAGEN',
  56.                             'I-ZAEHLER MINUS 1',
  57.                             'L-ZAEHLER LADEN');
  58. operationen              :  array[1..maxoperationen] of string[3] =
  59.                            ('=','=N','SW','SL','RL','U','O','UN','ON','P',
  60.                             'NO',')','U(','O(','UN(','ON(');
  61. fehlermeldung            :  array[1..10] of string[40]=
  62.                            ('Vorletzte und letzte Anweisung unlogisch',
  63.                             'Zuviele Klammern oder ungl. Verhaeltnis',
  64.                             'Operation fehlt',
  65.                             'Operation unbekannt',
  66.                             'Operand und/oder Kennzahl nicht erlaubt',
  67.                             'Operand nicht zulaessig',
  68.                             'Operand fehlt',
  69.                             'Kennzahl nicht numerisch',
  70.                             'Kennzahl fehlt',
  71.                             'Kennzahl ueber Maximum');
  72. mess                     :  array[1..11] of string[40]=
  73.                            (' Anweisungsliste wurde eingelesen...',
  74.                             ' Simulation beendet...',
  75.                             ' Dokumentation wurde generiert...',
  76.                             ' AWL wurde in die SPS geladen...',
  77.                             ' Terminalprogramm beendet...',
  78.                             ' Terminalprogramm nicht gefunden...',
  79.                             ' Einlesen abgebrochen...',
  80.                             ' Anweisungsliste ist fehlerhaft...',
  81.                             ' Nicht genug Hauptspeicher frei...',
  82.                             ' Nicht genug Platz auf der Diskette...',
  83.                             ' Systemfehler...');
  84.  
  85. var
  86. meldung                  :  string[40];
  87. zahlstr                  :  string[6];
  88. lr                       :  string[8];
  89. ext                      :  extension;
  90. filename                 :  string;
  91. infile,
  92. outfile                  :  text;
  93. save_attr                :  byte;
  94. i,ii,j,jj,
  95. status,
  96. klammern,
  97. anzaw,
  98. aktaw                    :  integer;
  99. korrektur,
  100. scroll,
  101. upd,
  102. sende                    :  boolean;
  103. lastaw,
  104. aw                       :  awtyp;
  105. awl                      :  array[1..  maxaw] of awrec;
  106. e_                       :  array[1..   maxe] of boolean;
  107. a_                       :  array[1..   maxa] of boolean;
  108. m_                       :  array[1..   maxm] of boolean;
  109. t_                       :  array[1..   maxt] of record
  110.                                                    soll : word;
  111.                                                    ist  : word;
  112.                                                  end;
  113. z_                       :  array[1..   maxz] of record
  114.                                                    soll : word;
  115.                                                    ist  : word;
  116.                                                  end;
  117. ausgang                  :  array[1..   deep] of boolean;
  118. opr                      :  array[1..   deep] of string[2];
  119.