[Back to PRINTING SWAG index] [Back to Main SWAG index] [Original]

    { Untested On }

       FUNCTION PrinterNotReady : BOOLEAN;
       VAR Regs : REGISTERS;
       BEGIN
          PrinterNotReady := TRUE;
          FILLCHAR(Regs, SIZEOF(Regs), 00);
          WITH Regs DO BEGIN
             AX := $0200;
             DX := 0; { LPT1 = 0, LPT2 = 1 }
          END;
          Intr($17, Regs);
          IF Regs.AX AND $4000 = 0 THEN BEGIN
             IF Regs.AX AND $1000 <> 0 THEN PrinterNotReady := FALSE;
          END;
       END;

[Back to PRINTING SWAG index] [Back to Main SWAG index] [Original]