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

{
 EPSON Printer. I'm using TP7.0. Everythings works fine except one
 situation that occured when a Character 26 (Ctrl-Z which is Eof) is in

This may be the easy way out, but why not just use BIOS interrupt $17?
It's probably slower, but it'll work.
}

Type PGraphics : ^Graphics;
     Graphics : Array [1..65535] of Byte;

Function InitPort (PortNum : Byte) : Byte; {returns status}
Var Regs : Registers;
begin
  Regs.DX := PortNum;
  Intr ($17, Regs);
  InitPort := Regs.AL;
  end;

Procedure OutStreamofStuff (PortNum : Byte; Where : PGraphics; Len : Word);
Var Count : Word; Regs : Registers;
begin
  Regs.DX := NumPort;
  For Count := 1 to Len do
      begin
        Regs.AL := ^Where[Count];
        end;
  end;

InitPort returns
   144 Printer OK
    24 Printer not OK
   184 Printer is off

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