@@ 30,6 30,7 @@ use Interfaces;
package body PN532_TWI is
use AVR;
+ procedure Init renames PN532_BUS_I2C.Init;
function PN532_Busy return Boolean renames PN532_BUS_I2C.PN532_Busy;
procedure PN532_Write (Cmd : PN532_Buf) renames PN532_BUS_I2C.PN532_Write;
procedure PN532_Read_Raw (Buf : out PN532_Buf) renames PN532_BUS_I2C.PN532_Read_Raw;
@@ 937,23 938,4 @@ package body PN532_TWI is
end if;
end loop;
end PN532_NFC_Forum_Type_4_Emulate;
-
- procedure Init renames PN532_BUS_I2C.Init;
--- Empty_Buf : AVR.I2C.Data_Buffer (1 .. 1) := (1 => 16#55#);
--- begin
--- Log ("PN532.Init");
--- AVR.I2C.Master.Init;
---
--- AVR.MCU.DDRD_Bits (6) := DD_Output;
--- AVR.MCU.DDRD_Bits (3) := DD_Output; -- Reset pin
--- AVR.MCU.DDRD_Bits (2) := DD_Input; -- IRQ, digital pin 2
--- AVR.MCU.PORTD_Bits (3) := True;
--- AVR.MCU.PORTD_Bits (3) := False;
--- AVR.MCU.PORTD_Bits (6) := False;
--- delay 0.4;
--- AVR.MCU.PORTD_Bits (6) := True;
--- AVR.MCU.PORTD_Bits (3) := True;
---
--- Log ("PN532.Init done");
--- end Init;
end PN532_TWI;