io.sys

[Alter Mann]

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