Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

15
src/driver/timers/RTC.pas
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.