git-svn-id: https://spexeah.com:8443/svn/Asuro@582 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
1 parent
57be221f93
commit
e61bf3658c
14 files changed
+20
-9
No files matched your search
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