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

This commit is contained in:
kieron 2018-04-29 16:16:31 +00:00
parent 07f8dd5e4d
commit 4da90a4647
10 changed files with 4 additions and 2 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-584a'; VERSION = '1.0.0-587a';
VERSION_MAJOR = '1'; VERSION_MAJOR = '1';
VERSION_MINOR = '0'; VERSION_MINOR = '0';
VERSION_SUB = '0'; VERSION_SUB = '0';
REVISION = '584'; REVISION = '587';
RELEASE = 'a'; RELEASE = 'a';
implementation implementation

View File

@ -388,6 +388,8 @@ begin
success:= success AND Serial.Send(uint8('R'), 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('L'), COM1, 100000);
success:= success AND Serial.Send(uint8('D'), COM1, 100000); success:= success AND Serial.Send(uint8('D'), COM1, 100000);
success:= success AND Serial.Send(10, COM1, 100000);
success:= success AND Serial.Send(0, COM1, 100000);
if success then begin if success then begin
console.writestringlnWND('Send Success!', TERMINAL_HWND); console.writestringlnWND('Send Success!', TERMINAL_HWND);
end else begin end else begin