Sabtu, 23 Agustus 2008

MEMBACA SEBUAH BYTE DARI PORT PARALEL

Setelah kita mebahas program-program Delphi yang lalu maka saya akan memberikan sedikit program tentang pembacaan port dan menghasilkan apa saja yang dilakukan di port yang di baca. Sourcenya adalah:

// Use the Turbo Pascal command ...

value:=port[$379]; { read from port }
// and
port[$379]:=value; { write to port }

// ---------

Var
BytesRead : BYTE;
begin
asm { Read port (LPT1) via Inline asm }
MOV dx,$379;
IN al,dx;
MOV BytesRead,al;
end;
BytesRead:=(BytesRead OR $07); { OR and then XOR the data }
BytesRead:=(BytesRead XOR $80); { to mask the unused bits }

Tidak ada komentar: