source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.adb @ 3299388d

4.104.114.84.95
Last change on this file since 3299388d was 16a384cf, checked in by Joel Sherrill <joel.sherrill@…>, on Apr 23, 1999 at 4:35:11 PM

New BSP from Tony R. Ambardar <tonya@…> from the
University of British Columbia. The BSP is for:

Yes, this is the "entry model" of a series of boards from Technologic
Systems. Costs <$200 I believe. They have a WWW page at www.t-systems.com.
I am letting them know about the availability of this BSP too.

  • Property mode set to 100644
File size: 785 bytes
Line 
1with System.Machine_Code;
2use System.Machine_Code;
3
4package body I386_Ports is
5
6   procedure Outport (Addr: in Port_Address; Data: in Byte) is
7   begin
8      Asm ("movb %0, %%al;" &
9           "movw %1, %%dx;" &
10           "outb %%al, %%dx",
11           No_Output_Operands,
12           (Byte'Asm_Input ("g", Data),
13            Port_Address'Asm_Input ("g", Addr)),
14           Clobber => "al dx",
15           Volatile => True);
16   end Outport;
17
18   procedure Inport (Addr: in Port_Address; Data: out Byte) is
19   begin
20      Asm ("movw %1, %%dx;"   &
21           "inb %%dx, %%al;"  &
22           "movb %%al, %0",
23           Byte'Asm_Output ("=g", Data),
24           Port_Address'Asm_Input ("g", Addr),
25           Clobber => "dx al",
26           Volatile => True);
27   end Inport;
28
29end I386_Ports;
Note: See TracBrowser for help on using the repository browser.