Hi Borti,
gemeint ist Int $17 mit den Funktionen
$00 - Zeichen parallel ausgeben,
$01 - Initialisierung und
$02 - Parallelen Schnittstellenstatus ermitteln.
Delphi-Quellcode:
type
registers =
record
case boolean
of
true: (ax,bx,cx,dx,bp,si,di,ds,es,flags:Integer);
false:(al,ah,bl,bh,cl,ch,
dl,dh:byte;
end;
var
cpu : regsiters;
status : byte;
procedure Init_Drucker(Drucker:Integer);
begin
cpu.ah := 1;
cpu.dx := Drucker;
Intr($17, cpu);
Status := cpu.ah;
end;
(aus: PC Profibuch - Sybex Verlag 8. Auflage 1991 - ISBN: 3-88745-836-2)
Gruss
Alter Mann