Untuk inisilaisasi dan baca port PPI adalah sebagai berikut:
function BacaPort(Alamat : word):byte;
var
dataPort : byte;
begin
asm
mov dx,$303//misalnya alamat PPI Anda set Pada alamat $300,maka
$303 adalah alamat register Controlword.
mov al,10011011b//PA,PB, dan PC diinisialisasi sebagai input
mov dx,Alamat
in al,dx //membaca data dari Alamat Port
mov dataPort,al
end;
end;
Procedure BacaSeluruhPort;
var
DataPortA,DataPortB,DataPortC :byte;
begin
//Contoh untuk baca Port A
DataPortA := BacaPort($300);
//Contoh untuk baca Port B
DataPortB := BacaPort($301);
//Contoh untuk baca Port C
DataPortC := BacaPort($302);
//DataPortA,DataPortB,DataPortC dapat digunakan
end;
Tks
Irvan
--- In [EMAIL PROTECTED], doni saputra <[EMAIL PROTECTED]> wrote:
> hai...semuanya
> tolong saya dong, saya punya masalah tentang bagaimana
> cara koneksi ppi8255 dengan mengunakan borland delphi,
> dimana inisialiasinya port a,b,dan c input setmode 1,
> dimana tujuan utamanya yaitu untuk pencarian data dari
> database yang dibuah dalam delphi tsb.Kalau bisa kasih
> source codenya.
> baiklah saya ucapkan terimakasih kepada teman-teman di
> delphindo
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
