برنامه نویسی پورت سریال در توربو پاسکال 7

[nightHunter]

با سلام

بنده سعی کردم توی پاسکال و تحت سیستم عامل داس اطلاعاتی رو روی پورت سریال COM1 بنویسم ولی متاسفانه پیغام خطای :

error 160 : device write fault

رو نمایش میده . لطفا راهنمایی بفرمایید :


program HelloSerial;
const
LCR = 3;
Latch_Low = $00;
Latch_High = $01;
var
ComPort: array [1..4] of Word absolute $0040:$0000;
DataFile: Text;
begin
Assign(DataFile,'COM1');
Rewrite(DataFile);
{Change UART Settings}
Port[ComPort[1] + LCR] := $80;
Port[ComPort[1] + Latch_High] := $00;
Port[ComPort[1] + Latch_Low] := $60;
Port[ComPort[1] + LCR] := $16
Writeln(DataFile,'Hello World');
Close(DataFile);
end.


متشکرم .