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;
|
||||
end;
|
||||
|
||||
var
|
||||
DateTime : TDateTime;
|
||||
|
||||
procedure init;
|
||||
function getDateTime : TDateTime;
|
||||
|
||||
implementation
|
||||
|
||||
var
|
||||
DateTime : TDateTime;
|
||||
|
||||
function is_update_in_progress : boolean;
|
||||
var
|
||||
bin : uint8;
|
||||
@ -79,6 +80,12 @@ begin
|
||||
io_wait();
|
||||
end;
|
||||
|
||||
function getDateTime : TDateTime;
|
||||
begin
|
||||
update();
|
||||
getDateTime:= DateTime;
|
||||
end;
|
||||
|
||||
procedure init;
|
||||
var
|
||||
prev : uint8;
|
||||
@ -104,7 +111,7 @@ begin
|
||||
inb($71);
|
||||
|
||||
//isrmanager.registerISR(32 + 8, @update);
|
||||
TMR_0_ISR.hook(uint32(@update));
|
||||
//TMR_0_ISR.hook(uint32(@update));
|
||||
end;
|
||||
|
||||
end.
|
@ -3,11 +3,11 @@ unit asuro;
|
||||
interface
|
||||
|
||||
const
|
||||
VERSION = '1.0.0-579a';
|
||||
VERSION = '1.0.0-580a';
|
||||
VERSION_MAJOR = '1';
|
||||
VERSION_MINOR = '0';
|
||||
VERSION_SUB = '0';
|
||||
REVISION = '579';
|
||||
REVISION = '580';
|
||||
RELEASE = 'a';
|
||||
|
||||
implementation
|
||||
|
@ -278,9 +278,9 @@ begin
|
||||
console.writestringln('Press any key to boot in to Asuro Terminal...');
|
||||
tracer.pop_trace;
|
||||
|
||||
writeint(DateTime.Hours);
|
||||
writestring(':');
|
||||
writeintln(DateTime.Minutes);
|
||||
//writeint(DateTime.Hours);
|
||||
//writestring(':');
|
||||
//writeintln(DateTime.Minutes);
|
||||
|
||||
tracer.push_trace('kmain.KEYHOOK');
|
||||
keyboard.hook(@temphook);
|
||||
|
@ -251,7 +251,11 @@ begin
|
||||
end;
|
||||
|
||||
procedure printTime(Params : PParamList);
|
||||
var
|
||||
DateTime : TDateTime;
|
||||
|
||||
begin
|
||||
DateTime:= getDateTime;
|
||||
writeIntWND(DateTime.Day, TERMINAL_HWND);
|
||||
writeStringWND('/', TERMINAL_HWND);
|
||||
writeIntWND(DateTime.Month, TERMINAL_HWND);
|
||||
|
Loading…
x
Reference in New Issue
Block a user