Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@587 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-29 16:12:17 +00:00
parent ff0bbb444c
commit 07f8dd5e4d
9 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/terminal.pas
View File

@ -372,18 +372,27 @@ begin
end;
procedure SendSerial(Params : PParamList);
var
success : boolean;
begin
success:= true;
Serial.init(COM1);
Serial.Send(uint8('H'), COM1, 100000);
Serial.Send(uint8('E'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('W'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('R'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('D'), COM1, 100000);
success:= success AND Serial.Send(uint8('H'), COM1, 100000);
success:= success AND Serial.Send(uint8('E'), COM1, 100000);
success:= success AND Serial.Send(uint8('L'), COM1, 100000);
success:= success AND Serial.Send(uint8('L'), COM1, 100000);
success:= success AND Serial.Send(uint8('O'), COM1, 100000);
success:= success AND Serial.Send(uint8('W'), COM1, 100000);
success:= success AND Serial.Send(uint8('O'), COM1, 100000);
success:= success AND Serial.Send(uint8('R'), COM1, 100000);
success:= success AND Serial.Send(uint8('L'), COM1, 100000);
success:= success AND Serial.Send(uint8('D'), COM1, 100000);
if success then begin
console.writestringlnWND('Send Success!', TERMINAL_HWND);
end else begin
console.writestringlnWND('Send Failed!', TERMINAL_HWND);
end;
end;
procedure init;