Subversion Repositories openrisc

with System.Machine_Code;
use System.Machine_Code;
 
package body I386_Ports is
 
   procedure Outport (Addr: in Port_Address; Data: in Byte) is
   begin
      Asm ("movb %0, %%al;" &
           "movw %1, %%dx;" &
           "outb %%al, %%dx",
           No_Output_Operands,
           (Byte'Asm_Input ("g", Data),
            Port_Address'Asm_Input ("g", Addr)),
           Clobber => "al dx",
           Volatile => True);
   end Outport;
 
   procedure Inport (Addr: in Port_Address; Data: out Byte) is
   begin
      Asm ("movw %1, %%dx;"   &
           "inb %%dx, %%al;"  &
           "movb %%al, %0",
           Byte'Asm_Output ("=g", Data),
           Port_Address'Asm_Input ("g", Addr),
           Clobber => "dx al",
           Volatile => True);
   end Inport;
 
end I386_Ports;