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

This commit is contained in:
kieron
2018-04-29 17:29:57 +00:00
parent ef2f4f2e0d
commit db57eb7cd8
11 changed files with 4 additions and 4 deletions

View File

@ -44,7 +44,8 @@ uses
isrmanager,
faults,
fonts,
RTC;
RTC,
serial;
procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
@ -153,6 +154,8 @@ begin
{ Console Init }
console.init();
serial.init();
{ Call Tracer }
tracer.init();

View File

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