delphi 3.0 da ASM komutlarında acil yardım

merabalar ben kuşadası andolu teknik 12 öğrencisiyim
bitirme projesi olarak otel otomasyonu yapıyorum lamba , klima ve kapı açılıp kapandığında bilgisayaradan bu durumları görücem (açık-kapalı).
Paralel port yardımıyla bilgisayara sinyal gönderip bilgi alıcaz in komutunu kullanıyoruz ama porttan 3 pin aldığımız için 8 ,ihtimal var. Timer'ın içinde bu 8 ihtimalli döngüyü nasıl kurabiliriz ama bu 8 ihtimalli döngü devamlı çalışıcak .bütün devreleri bitirdik ama yazılım olmadan hiç bir işe yaramıyor...
       Yardımlarınız için şimdiden teşekkürler:)

function portin(IOport:word) :byte;assembler;
asm
mov dx,ax //port'taki degeri okumak için
in al,dx
end;

function readcom2:smallint;stdcall;
var
  com2: TextFile;
begin
  AssignFile(com2, 'COM2');
  Rewrite(com2);
  read(com2,result);
  CloseFile(com2);
end;

bu iki procedureden birini kullanabilirsin
son 3 pin kullanacağını düşünürsek

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//case readcom2  do
  case portin($378)do //$378 paralel port
0:begin//pinlerde elk.yok
   end;
1:begin//3.pinde//son
   end;
2:begin//2.pinde
   end;
3:begin//3,2.pinde
   end;
4:begin//1.pinde
   end;
5:begin//1,3.pinde
   end;
6:begin//1,2.pinde
   end;
7:begin//1,2,3.pinde
   end;
end;//case
  
end;
//son pin(3) değri 1
//2. pin değeri 2
//1. pin değeri 4

Umarım yardımcı olabilmişimdir.
SAYGILAR

çok teşekkür ederim çok yardımcı oldunuz buna inanın...

Önemli değil iyi çalışmalar

denedim ama ne yazıkki olmadı ama genede teşekkür ederim..
şimdide xp uyyumluluk sorunu yaşıyorum delphi 7 kullanıoyorum şimdi..
ama ilgine genede çok teşekkür ederim...