Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
kieron 2018-04-29 16:12:17 +00:00
parent ff0bbb444c
commit 07f8dd5e4d
9 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
bin/kernel.bin
View File

Binary file not shown.

BIN
iso/boot/asuro.bin
View File

Binary file not shown.

BIN
lib/asuro.ppu
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

BIN
lib/terminal.ppu
View File

Binary file not shown.

29
src/terminal.pas
View File

@ -372,18 +372,27 @@ begin
end; end;
procedure SendSerial(Params : PParamList); procedure SendSerial(Params : PParamList);
var
success : boolean;
begin begin
success:= true;
Serial.init(COM1); Serial.init(COM1);
Serial.Send(uint8('H'), COM1, 100000); success:= success AND Serial.Send(uint8('H'), COM1, 100000);
Serial.Send(uint8('E'), COM1, 100000); success:= success AND Serial.Send(uint8('E'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000); success:= success AND Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000); success:= success AND Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 100000); success:= success AND Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('W'), COM1, 100000); success:= success AND Serial.Send(uint8('W'), COM1, 100000);
Serial.Send(uint8('O'), COM1, 100000); success:= success AND Serial.Send(uint8('O'), COM1, 100000);
Serial.Send(uint8('R'), COM1, 100000); success:= success AND Serial.Send(uint8('R'), COM1, 100000);
Serial.Send(uint8('L'), COM1, 100000); success:= success AND Serial.Send(uint8('L'), COM1, 100000);
Serial.Send(uint8('D'), COM1, 100000); success:= success AND Serial.Send(uint8('D'), COM1, 100000);
if success then begin
console.writestringlnWND('Send Success!', TERMINAL_HWND);
end else begin
console.writestringlnWND('Send Failed!', TERMINAL_HWND);
end;
end; end;
procedure init; procedure init;