Spexeah/Asuro
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@595 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron 2018-04-29 17:35:07 +00:00
parent 2d902a1380
commit 8a67d98577
2 changed files with 86 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/serial.ppu Normal file
View File

Binary file not shown.

86
src/driver/interface/serial.pas Normal file
View File

@ -0,0 +1,86 @@
unit serial;
interface
uses
util, isrmanager;
const
COM1 = $3F8;
COM2 = $2F8;
COM3 = $3E8;
COM4 = $2E8;
procedure init();
function receive(PORT : uint16; timeout : uint32) : uint8;
function send(PORT : uint16; data : uint8; timeout : uint32) : boolean;
implementation
uses
console;
procedure hook();
begin
console.writestringln('SERIAL ISR FIRED!');
end;
procedure initPort(PORT : uint16);
begin
outb(PORT + 1, $00);
outb(PORT + 3, $80);
outb(PORT + 0, $03);
outb(PORT + 1, $00);
outb(PORT + 3, $03);
outb(PORT + 2, $C7);
outb(PORT + 4, $0B);
end;
procedure init();
begin
initPort(COM1);
initPort(COM2);
initPort(COM3);
initPort(COM4);
isrmanager.registerISR(32 + 3, @Hook);
isrmanager.registerISR(32 + 4, @Hook);
end;
function serial_received(PORT : uint16) : uint32;
begin
serial_received:= inb(PORT + 5) AND 1;
end;
function is_transmit_empty(PORT : uint16) : uint32;
begin
is_transmit_empty:= inb(PORT + 5) AND $20;
end;
function receive(PORT : uint16; timeout : uint32) : uint8;
var
_timeout : uint32;
begin
receive:= 0;
_timeout:= timeout;
while (serial_received(PORT) = 0) do begin end;
if _timeout <> 0 then begin
receive:= inb(PORT);
end;
end;
function send(PORT : uint16; data : uint8; timeout : uint32) : boolean;
var
_timeout : uint32;
begin
send:= false;
_timeout:= timeout;
while (is_transmit_empty(PORT) = 0) do begin end;
if _timeout <> 0 then begin
outb(PORT, data);
send:= true;
end;
end;
end.