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

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

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

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

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;