git-svn-id: https://spexeah.com:8443/svn/Asuro@582 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
57be221f93
commit
e61bf3658c
BIN
bin/kernel.bin
BIN
bin/kernel.bin
Binary file not shown.
Binary file not shown.
BIN
lib/RTC.ppu
BIN
lib/RTC.ppu
Binary file not shown.
BIN
lib/asuro.ppu
BIN
lib/asuro.ppu
Binary file not shown.
BIN
lib/kernel.ppu
BIN
lib/kernel.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.
@ -17,13 +17,14 @@ type
|
|||||||
Century : uint8;
|
Century : uint8;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
|
||||||
DateTime : TDateTime;
|
|
||||||
|
|
||||||
procedure init;
|
procedure init;
|
||||||
|
function getDateTime : TDateTime;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
var
|
||||||
|
DateTime : TDateTime;
|
||||||
|
|
||||||
function is_update_in_progress : boolean;
|
function is_update_in_progress : boolean;
|
||||||
var
|
var
|
||||||
bin : uint8;
|
bin : uint8;
|
||||||
@ -79,6 +80,12 @@ begin
|
|||||||
io_wait();
|
io_wait();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function getDateTime : TDateTime;
|
||||||
|
begin
|
||||||
|
update();
|
||||||
|
getDateTime:= DateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure init;
|
procedure init;
|
||||||
var
|
var
|
||||||
prev : uint8;
|
prev : uint8;
|
||||||
@ -104,7 +111,7 @@ begin
|
|||||||
inb($71);
|
inb($71);
|
||||||
|
|
||||||
//isrmanager.registerISR(32 + 8, @update);
|
//isrmanager.registerISR(32 + 8, @update);
|
||||||
TMR_0_ISR.hook(uint32(@update));
|
//TMR_0_ISR.hook(uint32(@update));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
@ -3,11 +3,11 @@ unit asuro;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
const
|
const
|
||||||
VERSION = '1.0.0-579a';
|
VERSION = '1.0.0-580a';
|
||||||
VERSION_MAJOR = '1';
|
VERSION_MAJOR = '1';
|
||||||
VERSION_MINOR = '0';
|
VERSION_MINOR = '0';
|
||||||
VERSION_SUB = '0';
|
VERSION_SUB = '0';
|
||||||
REVISION = '579';
|
REVISION = '580';
|
||||||
RELEASE = 'a';
|
RELEASE = 'a';
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
@ -278,9 +278,9 @@ begin
|
|||||||
console.writestringln('Press any key to boot in to Asuro Terminal...');
|
console.writestringln('Press any key to boot in to Asuro Terminal...');
|
||||||
tracer.pop_trace;
|
tracer.pop_trace;
|
||||||
|
|
||||||
writeint(DateTime.Hours);
|
//writeint(DateTime.Hours);
|
||||||
writestring(':');
|
//writestring(':');
|
||||||
writeintln(DateTime.Minutes);
|
//writeintln(DateTime.Minutes);
|
||||||
|
|
||||||
tracer.push_trace('kmain.KEYHOOK');
|
tracer.push_trace('kmain.KEYHOOK');
|
||||||
keyboard.hook(@temphook);
|
keyboard.hook(@temphook);
|
||||||
|
@ -251,7 +251,11 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure printTime(Params : PParamList);
|
procedure printTime(Params : PParamList);
|
||||||
|
var
|
||||||
|
DateTime : TDateTime;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
DateTime:= getDateTime;
|
||||||
writeIntWND(DateTime.Day, TERMINAL_HWND);
|
writeIntWND(DateTime.Day, TERMINAL_HWND);
|
||||||
writeStringWND('/', TERMINAL_HWND);
|
writeStringWND('/', TERMINAL_HWND);
|
||||||
writeIntWND(DateTime.Month, TERMINAL_HWND);
|
writeIntWND(DateTime.Month, TERMINAL_HWND);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user