git-svn-id: https://spexeah.com:8443/svn/Asuro@586 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
c01c39e928
commit
ff0bbb444c
BIN
bin/kernel.bin
BIN
bin/kernel.bin
Binary file not shown.
Binary file not shown.
BIN
lib/asuro.ppu
BIN
lib/asuro.ppu
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
lib/libpsystem.a
BIN
lib/libpsystem.a
Binary file not shown.
BIN
lib/terminal.ppu
BIN
lib/terminal.ppu
Binary file not shown.
@ -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
|
||||||
|
@ -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;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user