Keskustelu: Koodit: siteeraus TSR Ohjelma

{$M 4096,0,0 }

program OQUOTTI;

uses crt,dos;

var orgint:procedure;

{$f+}
procedure nki; interrupt;
var x,y,len:word;
    buff:array[0..79]of byte;
    regs:registers;
begin
 asm cli end;
 if Port[$60]=88 then begin
  x:=wherex; y:=wherey;
  len:=0;
  repeat
   if mem[$b800:y*160+x*2]<>ord(' ') then begin
    buff[len]:=mem[$b800:y*160+x*2];
    inc(len);
   end;
  until (mem[$b800:y*160+x*2]=ord(' ')) or (len>79);
  memw[$0040:$001a]:=memw[$0040:$001c];
  for x:=0 to len do begin
   y:=0;
   repeat
    regs.ah:=5;
    regs.ch:=0;
    regs.cl:=buff[x];
    intr($16,regs);
    inc(y);
   until (regs.al=0) or (y>50000);
  end;
 end;
 asm pushf end;
 orgint;
 asm sti end;
end;
{$f-}

begin
 getintvec(8,@orgint);
 setintvec(8,addr(nki));
 keep(0);
end.