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@586 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

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

4
src/include/asuro.pas
View File

@ -3,11 +3,11 @@ unit asuro;
interface
const
VERSION = '1.0.0-583a';
VERSION = '1.0.0-584a';
VERSION_MAJOR = '1';
VERSION_MINOR = '0';
VERSION_SUB = '0';
REVISION = '583';
REVISION = '584';
RELEASE = 'a';
implementation

20
src/terminal.pas
View File

@ -374,16 +374,16 @@ end;
procedure SendSerial(Params : PParamList);
begin
Serial.init(COM1);
Serial.Send(uint8('H'), COM1, 1000);
Serial.Send(uint8('E'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('O'), COM1, 1000);
Serial.Send(uint8('W'), COM1, 1000);
Serial.Send(uint8('O'), COM1, 1000);
Serial.Send(uint8('R'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('D'), COM1, 1000);
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);
end;
procedure init;