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

This commit is contained in:
aaron 2017-05-17 13:50:51 +00:00
parent 446e82646c
commit 7acc4046e3

30
src/irq.pas Normal file
View File

@ -0,0 +1,30 @@
{ ************************************************
* Asuro
* Unit: irq
* Description: mapping IRQs
************************************************
* Author: Aaron Hance
* Contributors:
************************************************ }
unit irq;
interface
procedure init();
implementation
procedure init();
outb($0020, $11);
outb($00A0, $11);
outb($0021, 32);
outb($00A1, 40);
outb($0021, 4);
outb($00A1, 2);
begin
end;
end.