Pascal da port kullanımı Pascal da port kullanımı Lpt ve Seri portMerhabalar adım Ozgur Aksu su anda Erciyes Universitesin de Arastırma Gorevlisi olarak calısıyorum. Marmara Mezunuyum ve pascal dilini programcılık yaptıgım zamanlardan kullanırdım fakat can sıkıntısı ve buda yapılabilirmi cumlelerinin cevaplarını ararken farklı cozumlere turkce olarak ulastık. En once mutlaka herkezin kullanabilecegi rutin olan Bilgisayar dısına bilgi gonderme rutinleri ile bilgisayarı ekran dısına tasımakla baslayabiliriz...
LPt porttan bilgi cıkarma
Program LPTsend;
uses crt;
var
a:integer;
begin
repeat
writeln('gonderilecek veri:');
readln(a);
asm
mov dx,$378 ;Lpt 1 adresidir
mov al,a
out dx,al
end;
writeln(a,' gonderildi!! ');
until a>255;
end.
LPt porttan bilgi cıkarma
Program LPTsend;
uses crt;
var
a:integer;
begin
repeat
writeln('gonderilecek veri:');
readln(a);
asm
mov dx,$378 ;Lpt 1 adresidir
mov al,a
out dx,al
end;
writeln(a,' gonderildi!! ');
until a>255;
end.