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

View File

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

View File

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

View File

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