git-svn-id: https://spexeah.com:8443/svn/Asuro@582 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
kieron 2018-04-29 15:06:49 +00:00
parent 57be221f93
commit e61bf3658c
14 changed files with 20 additions and 9 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.

Binary file not shown.

View File

@ -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.

View File

@ -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

View File

@ -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);

View File

@ -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);