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 interface
const const
VERSION = '1.0.0-583a'; VERSION = '1.0.0-584a';
VERSION_MAJOR = '1'; VERSION_MAJOR = '1';
VERSION_MINOR = '0'; VERSION_MINOR = '0';
VERSION_SUB = '0'; VERSION_SUB = '0';
REVISION = '583'; REVISION = '584';
RELEASE = 'a'; RELEASE = 'a';
implementation implementation

View File

@ -374,16 +374,16 @@ end;
procedure SendSerial(Params : PParamList); procedure SendSerial(Params : PParamList);
begin begin
Serial.init(COM1); Serial.init(COM1);
Serial.Send(uint8('H'), COM1, 1000); Serial.Send(uint8('H'), COM1, 100000);
Serial.Send(uint8('E'), COM1, 1000); Serial.Send(uint8('E'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 1000); Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 1000); Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 1000); Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('W'), COM1, 1000); Serial.Send(uint8('W'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 1000); Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('R'), COM1, 1000); Serial.Send(uint8('R'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 1000); Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('D'), COM1, 1000); Serial.Send(uint8('D'), COM1, 100000);
end; end;
procedure init; procedure init;