Стала необходимость написать прогу, которая бы сливала по быстрому данные с LPT в файл, сходу слепил на TP6, но мне кажется, если написать на ASMe, то будет быстрее чем 3мкс на байт, в моём случае 3мкс на 3байта, потому как из порта получаю символы:

USES crt;
VAR
filename : string;
f : text;

BEGIN
clrscr;
write('Enter the logfilename: ');
readln(filename);
IF filename <>'' THEN
BEGIN
assign(f, filename);
rewrite(f);
REPEAT
write(f,port[$379]);
UNTIL keypressed;
close(f);
END;
END.