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

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.

Binary file not shown.

View File

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

View File

@ -377,7 +377,6 @@ var
begin begin
success:= true; success:= true;
Serial.init(COM1);
success:= success AND Serial.Send(uint8('H'), COM1, 100000); success:= success AND Serial.Send(uint8('H'), COM1, 100000);
success:= success AND Serial.Send(uint8('E'), COM1, 100000); success:= success AND Serial.Send(uint8('E'), COM1, 100000);
success:= success AND Serial.Send(uint8('L'), 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('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(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