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

src/driver/interface/serial.pas

@@ -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.