Установка режима бинарного файла
Попробуйте вызвать приведенную ниже процедуру немедленно после перезаписи выходного файла и перед началом записи в него:
procedure SetBinaryMode (var F: file); assembler; asmmov ax,$4400les di,Fmov bx,word ptr es:[di]int $21or dl,$20xor dh,dhmov ax,$4401int $21end; |
-Steve [000603]