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

IRQ Stuff

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@66 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2017-05-17 15:06:21 +00:00
parent 3959607fc1
commit 1c2102f023
5 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/irq.pas
View File

@ -10,6 +10,7 @@
unit irq;
interface
uses util;
procedure init();
@ -18,14 +19,16 @@ implementation
procedure init();
begin
outb($0020, $11);
outb($00A0, $11);
outb($0021, $20);
outb($00A1, $28);
outb($0021, $04);
outb($00A1, $02);
outb($0021, $01);
outb($00A1, $01);
outb($20, $11);
outb($A0, $11);
outb($21, $20);
outb($A1, $28);
outb($21, $04);
outb($A1, $02);
outb($21, $01);
outb($A1, $01);
outb($21, $00);
outb($A1, $00);
end;
end.