git-svn-id: https://spexeah.com:8443/svn/Asuro@58 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
446e82646c
commit
7acc4046e3
30
src/irq.pas
Normal file
30
src/irq.pas
Normal 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.
|
Loading…
x
Reference in New Issue
Block a user