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

This commit is contained in:
kieron 2018-04-29 16:25:53 +00:00
parent b299b08fa3
commit e6dfffb8f1
10 changed files with 4 additions and 3 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-587a'; VERSION = '1.0.0-589a';
VERSION_MAJOR = '1'; VERSION_MAJOR = '1';
VERSION_MINOR = '0'; VERSION_MINOR = '0';
VERSION_SUB = '0'; VERSION_SUB = '0';
REVISION = '587'; REVISION = '589';
RELEASE = 'a'; RELEASE = 'a';
implementation implementation

View File

@ -388,7 +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(uint8(10), COM1, 100000); success:= success AND Serial.Send(uint8(10), COM1, 100000);
success:= success AND Serial.Send(uint8(13), 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