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

{
Heres a simple term program....  no frills except that it writes to dos's
putchar so that it supports ANSI!....     Public domain!

Simple com program by Ira Gardiner....  all from scratch!
}
uses crt;

Const
  Com = $2f8; {base address of com port}

Procedure Write(w : char);  {Quick and dirty write to Dos's FAST PUTCHAR}
begin                       {It only writes one char though! that's all it's}
                            {supposed to!}
 asm
  mov al, w;
  int $29
 end;
end;

var
 c : char;
 done : boolean;

begin
  done := false;
  repeat
   if keypressed then
       begin
          c := readkey;
          if c = #27 then done := true;  {if you press ESC it quits!}
          port[com] := ord(c);
       end;
   if  97 = port[com+5] then write(char(port[com]));
  until done = true;
end.

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