Etipcbus.dpr

PROGRAM Etipcbus;
{-----------------------------------------------------------------------------
  PROGRAMMEE     : FULL.EXE (ou ETIPCBUS II)
  BUT            : Programme de test pour la carte PC bus ISA. Cette carte
                   contient de base un PPI 8255 et un PIT8254 a été ajouté.
  AUTEURS        : Michael Amarantidis & Stéphane Claus
  DATE           : Décembre 1996 / Janvier 1997
 
  MODIFIE LE     : 10.4.1997 / 2.01ß / Claus Stéphane
  RAISONS         : - Ajouté des commentaires
                    - Initialisation de l'intervalle du Timer "timerEtatPorts"
                      lors de l'activation de la fiche principale
 
  REMARQUES      : Voir l'entête de l'unité UPrincpl.Pas pour plus d'infos
                   Informations au 22.12.1996:
                   Source compilé    3065 lignes
                   Taille code       210102 octets
                   Taille données    4730 octets
                   Taille pile       16384 octets
                   Taille tas local  8192 octets
 
                   Informations au 18.01.1997:
                   Source compilé    3481 lignes
                   Taille code       213263 octets
                   Taille données    4744 octets
                   Taille pile       16384 octets
                   Taille tas local  8192 octets
 
                   Informations au 12.04.1997:
                   Source compilé    10712 lignes
                   Taille code       278868 octets
                   Taille données    10804 octets
                   Taille pile       16384 octets
                   Taille tas local  8192 octets
 
                   Informations au 27.05.1997:
                   Source compilé    11744 lignes
                   Taille code       282581 octets
                   Taille données    10844 octets
                   Taille pile       16384 octets
                   Taille tas local  8192 octets
 
 -----------------------------------------------------------------------------}
 
USES
  Forms,
  Uprincpl in 'UPRINCPL.PAS' {frmMain},
  Ucfgprgm in 'UCFGPRGM.PAS' {frmCfgProgramme},
  Ucfgprts in 'UCFGPRTS.PAS' {frmCfgPorts},
  Ucfgbs55 in 'UCFGBS55.PAS' {frmAdresseBase},
  Uapropos in 'UAPROPOS.PAS' {frmAbout},
  Ulit in 'ULIT.PAS' {frmLire},
  Uecrit in 'UECRIT.PAS' {frmEcrire},
  Uchen in 'UCHEN.PAS' {frmChenillard},
  Upattern in 'UPATTERN.PAS' {frmPattern},
  Uchrono in 'UCHRONO.PAS' {frmChronoPPI},
  Ugenerat in 'UGENERAT.PAS' {frmGenerateur},
  Uquartz in 'UQUARTZ.PAS' {frmQuartz},
  Usayno in 'USAYNO.PAS' {frmSayNo},
  Ufreq in 'UFREQ.PAS' {frmFrequencemetre},
  Ugraph in 'UGRAPH.PAS' {frmGraph};
 
{$R *.RES}
 
BEGIN
  Application.Title := 'ETIPCBUS';
  Application.HelpFile := 'ETIPCBUS.HLP';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmCfgProgramme, frmCfgProgramme);
  Application.CreateForm(TfrmCfgPorts, frmCfgPorts);
  Application.CreateForm(TfrmAdresseBase, frmAdresseBase);
  Application.CreateForm(TfrmAbout, frmAbout);
  Application.CreateForm(TfrmLire, frmLire);
  Application.CreateForm(TfrmEcrire, frmEcrire);
  Application.CreateForm(TfrmChenillard, frmChenillard);
  Application.CreateForm(TfrmPattern, frmPattern);
  Application.CreateForm(TfrmChronoPPI, frmChronoPPI);
  Application.CreateForm(TfrmGenerateur, frmGenerateur);
  Application.CreateForm(TfrmQuartz, frmQuartz);
  Application.CreateForm(TfrmSayNo, frmSayNo);
  Application.CreateForm(TfrmFrequencemetre, frmFrequencemetre);
  Application.CreateForm(TfrmGraph, frmGraph);
  Application.Run;
END. {PROGRAM Etipcbus}