//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Sample1u.h"
#include "acces32.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSample1Form *Sample1Form;
   TPanel *PortPanels[3];
   int Address = 0x300;
   unsigned char i = 0;
   int port, j;
   int current = 0xfffe;
   unsigned mask;
//---------------------------------------------------------------------------
__fastcall TSample1Form::TSample1Form(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TSample1Form::ExitButtonClick(TObject *Sender)
{
   exit(0);        
}
//---------------------------------------------------------------------------
void __fastcall TSample1Form::TestButtonClick(TObject *Sender)
{
    if (TestTimer->Enabled)
    {
        TestTimer->Enabled = false;
        TestButton->Caption = "Start Test";
        BaseEdit->Enabled = true;
    }
    else
    {
       Address = StrToInt("0x"+BaseEdit->Text);
       PortPanels[0] = Port0Text;
       PortPanels[1] = Port1Text;
       PortPanels[2] = Port2Text;

       TestTimer->Enabled = true;
       TestButton->Caption = "Abort Test";
       BaseEdit->Enabled = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSample1Form::TestTimerTimer(TObject *Sender)
{
   AnsiString ThisString = "";

   ThisString = "";
   mask = 1;
   for (j = 0; j <= 15; j++) {
      ThisString = ((current & mask)?"1":"0") + ThisString;
      mask <<= 1;
   }

   for (port = 0; port <= 2; port++) {
      PortPanels[port]->Caption = ThisString;
      OutPort(Address + port * 2, current);
   }

   current = ~(1<<i);
   i = (i+1) % 16;
}
//---------------------------------------------------------------------------

void __fastcall TSample1Form::FormCreate(TObject *Sender)
{
   if (InPortB(0x61) == 0xAA55) {
      Application->MessageBox("ACCESNT.SYS not detected. Please copy ACCESNT.SYS into [NT]/system32/drivers and re-run this sample.", "Warning", IDOK);
   }
}
//---------------------------------------------------------------------------