git-svn-id: https://spexeah.com:8443/svn/Asuro@582 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
Binary file not shown.
Binary file not shown.
BIN
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.
@@ -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
|
||||||
|
|||||||
+3
-3
@@ -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);
|
||||||
|
|||||||
Reference in New Issue
Block a user