Port Expander Library
mikroPascal PRO for FT90x provides a library for communication with the Microchip’s Port Expander MCP23S17 via SPI interface.

- The library uses the SPI module for communication. User must initialize the appropriate SPI module before using the Port Expander Library.
- For MCUs with multiple SPI modules it is possible to initialize all of them and then switch by using the
SPIM_Set_Active()
function. See the SPI Library functions. - Library does not use Port Expander interrupts.
Library Dependency Tree

External dependencies of Port Expander Library
The following variables must be defined in all projects using Port Expander Library: | Description : | Example : |
---|---|---|
dim SPExpanderRST as sbit sfr external |
Reset line. | dim SPExpanderRST as sbit at GPIO_PIN32_bit |
dim SPExpanderCS as sbit sfr external |
Chip Select line. | dim SPExpanderCS as sbit at GPIO_PIN31_bit |
Library Routines
- Expander_Init
- Expander_Init_Advanced
- Expander_Read_Byte
- Expander_Write_Byte
- Expander_Read_PortA
- Expander_Read_PortB
- Expander_Read_PortAB
- Expander_Write_PortA
- Expander_Write_PortB
- Expander_Write_PortAB
- Expander_SetBit_PortA
- Expander_ClrBit_PortA
- Expander_ToggleBit_PortA
- Expander_SetBit_PortB
- Expander_ClrBit_PortB
- Expander_ToggleBit_PortB
- Expander_Set_DirectionPortA
- Expander_Set_DirectionPortB
- Expander_Set_DirectionPortAB
- Expander_Set_InputDirPortA
- Expander_Set_OutputDirPortA
- Expander_Set_InputDirPortB
- Expander_Set_OutputDirPortB
- Expander_Set_PullUpsPortA
- Expander_Set_PullUpsPortB
- Expander_Set_PullUpsPortAB
- Expander_SetBits
- Expander_ClrBits
- Expander_ToggleBits
Expander_Init
Prototype |
sub procedure Expander_Init(dim ModuleAddress as byte) |
---|---|
Description |
Initializes Port Expander using SPI communication. Port Expander module settings :
|
Parameters |
|
Returns |
Nothing. |
Requires |
External dependencies of the library from the top of the page must be defined before using this function. SPI module needs to be initialized. See SPIM1_Init and SPIM1_Init_Advanced routines. |
Example |
' Port Expander module connections dim SPExpanderRST as sbit at GPIO_PIN32_bit dim SPExpanderCS as sbit at GPIO_PIN31_bit ... SPIM1_Init() Expander_Init(0) ' Initialize Port Expander |
Notes |
None. |
Expander_Init_Advanced
Prototype |
sub procedure Expander_Init_Advanced(dim byref rstPort as longword, dim as rstPin, haen as byte)p> |
---|---|
Description |
Initializes Port Expander using SPI communication. |
Parameters |
|
Returns |
Nothing. |
Requires |
External dependencies of the library from the top of the page must be defined before using this function. SPI module needs to be initialized. See SPIM1_Init and SPIM1_Init_Advanced routines. |
Example |
|
Notes |
None. |
Expander_Read_Byte
Prototype |
sub function Expander_Read_Byte(dim ModuleAddress, RegAddress as byte) as byte |
---|---|
Description |
The function reads byte from Port Expander. |
Parameters |
|
Returns |
Byte read. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Read a byte from Port Expander's register dim read_data as byte ... read_data = Expander_Read_Byte(0,1) |
Notes |
None. |
Expander_Write_Byte
Prototype |
sub procedure Expander_Write_Byte(dim ModuleAddress, RegAddress, Data as byte) |
---|---|
Description |
Routine writes a byte to Port Expander. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Write a byte to the Port Expander's register Expander_Write_Byte(0,1,$FF) |
Notes |
None. |
Expander_Read_PortA
Prototype |
sub function Expander_Read_PortA(dim ModuleAddress as byte) as byte |
---|---|
Description |
The function reads byte from Port Expander's PortA. |
Parameters |
|
Returns |
Byte read. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA should be configured as input. See Expander_Set_DirectionPortA and Expander_Set_DirectionPortAB routines. |
Example |
' Read a byte from Port Expander's PORTA dim read_data as byte ... Expander_Set_DirectionPortA(0,$FF) ' set expander's porta to be input ... read_data = Expander_Read_PortA(0) |
Notes |
None. |
Expander_Read_PortB
Prototype |
sub function Expander_Read_PortB(dim ModuleAddress as byte) as byte |
---|---|
Description |
The function reads byte from Port Expander's PortB. |
Parameters |
|
Returns |
Byte read. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortB should be configured as input. See Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Read a byte from Port Expander's PORTB dim read_data as byte ... Expander_Set_DirectionPortB(0,$FF) ' set expander's portb to be input ... read_data = Expander_Read_PortB(0) |
Notes |
None. |
Expander_Read_PortAB
Prototype |
sub function Expander_Read_PortAB(dim ModuleAddress as byte) as word |
---|---|
Description |
The function reads word from Port Expander's ports. PortA readings are in the higher byte of the result. PortB readings are in the lower byte of the result. |
Parameters |
|
Returns |
Word read. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA and PortB should be configured as inputs. See Expander_Set_DirectionPortA, Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Read a byte from Port Expander's PORTA and PORTB dim read_data as word ... Expander_Set_DirectionPortAB(0,$FFFF) ' set expander's porta and portb to be input ... read_data s= Expander_Read_PortAB(0) |
Notes |
None. |
Expander_Write_PortA
Prototype |
sub procedure Expander_Write_PortA(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function writes byte to Port Expander's PortA. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA should be configured as output. See Expander_Set_DirectionPortA and Expander_Set_DirectionPortAB routines. |
Example |
' Write a byte to Port Expander's PORTA ... Expander_Set_DirectionPortA(0,$00) ' set expander's porta to be output ... Expander_Write_PortA(0, $AA) |
Notes |
None. |
Expander_Write_PortB
Prototype |
sub procedure Expander_Write_PortB(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function writes byte to Port Expander's PortB. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortB should be configured as output. See Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Write a byte to Port Expander's PORTB ... Expander_Set_DirectionPortB(0,$00) ' set expander's portb to be output ... Expander_Write_PortB(0,$55) |
Notes |
None. |
Expander_Write_PortAB
Prototype |
sub procedure Expander_Write_PortAB(dim ModuleAddress as byte, dim Data as word) |
---|---|
Description |
The function writes word to Port Expander's ports. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA and PortB should be configured as outputs. See Expander_Set_DirectionPortA, Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Write a byte to Port Expander's PORTA and PORTB ... Expander_Set_DirectionPortAB(0, $0000) ' set expander's porta and portb to be output ... Expander_Write_PortAB(0, $AA55) |
Notes |
None. |
Expander_SetBit_PortA
Prototype |
sub procedure Expander_SetBit_PortA(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function sets bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA should be configured as output. See Expander_Set_DirectionPortA and Expander_Set_DirectionPortAB routines. |
Example |
' Sets lower nibble of the PortA ... Expander_Set_DirectionPortA(0, $0000) ' set expander's PortA to be output ... Expander_SetBit_PortA(0, 0x0F) |
Notes |
None. |
Expander_ClrBit_PortA
Prototype |
sub procedure Expander_ClrBit_PortA(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function clears bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA should be configured as output. See Expander_Set_DirectionPortA and Expander_Set_DirectionPortAB routines. |
Example |
' Clears lower nibble of the PortA ... Expander_Set_DirectionPortA(0, $0000) ' set expander's PortA to be output ... Expander_ClrBit_PortA(0, 0x0F) |
Notes |
None. |
Expander_ToggleBit_PortA
Prototype |
sub procedure Expander_ToggleBit_PortA(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function toggles bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortA should be configured as output. See Expander_Set_DirectionPortA and Expander_Set_DirectionPortAB routines. |
Example |
' Toggles lower nibble of the PortA ... Expander_Set_DirectionPortA(0, $0000) ' set expander's PortA to be output ... Expander_ToggleBit_PortA(0, 0x0F) |
Notes |
None. |
Expander_SetBit_Portb
Prototype |
sub procedure Expander_SetBit_PortB(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function sets bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortB should be configured as output. See Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Sets lower nibble of the PortB ... Expander_Set_DirectionPortB(0, $0000) ' set expander's PortB to be output ... Expander_SetBit_PortB(0, 0x0F) |
Notes |
None. |
Expander_ClrBit_PortB
Prototype |
sub procedure Expander_ClrBit_PortB(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function clears bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortB should be configured as output. See Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Clears lower nibble of the PortB ... Expander_Set_DirectionPortB(0, $0000) ' set expander's PortB to be output ... Expander_ClrBit_PortB(0, 0x0F) |
Notes |
None. |
Expander_ToggleBit_PortB
Prototype |
sub procedure Expander_ToggleBit_PortB(dim ModuleAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function toggles bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. Port Expander's PortB should be configured as output. See Expander_Set_DirectionPortB and Expander_Set_DirectionPortAB routines. |
Example |
' Toggles lower nibble of the PortB ... Expander_Set_DirectionPortB(0, $0000) ' set expander's PortB to be output ... Expander_ToggleBit_PortB(0, 0x0F) |
Notes |
None. |
Expander_Set_DirectionPortA
Prototype |
sub procedure Expander_Set_DirectionPortA(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function sets Port Expander's PortA direction. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA to be output Expander_Set_DirectionPortA(0,$00) |
Notes |
None. |
Expander_Set_DirectionPortB
Prototype |
sub procedure Expander_Set_DirectionPortB(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function sets Port Expander's PortB direction. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTB to be input Expander_Set_DirectionPortB(0,$FF) |
Notes |
None. |
Expander_Set_DirectionPortAB
Prototype |
sub procedure Expander_Set_DirectionPortAB(dim ModuleAddress, Direction as word) |
---|---|
Description |
The function sets Port Expander's PortA and PortB direction. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA to be output and PORTB to be input Expander_Set_DirectionPortAB(0,$00FF) |
Notes |
None. |
Expander_Set_InputDirPortA
Prototype |
sub procedure Expander_Set_InputDirPortA(dim ModuleAddress, dim BitMask as byte) |
---|---|
Description |
The function sets the desired Port Expander's PortA pins as input according to the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA lower four pins as input : Expander_Set_InputDirPortA(0, 0x0F) |
Notes |
None. |
Expander_Set_OutputDirPortA
Prototype |
sub procedure Expander_Set_OutputDirPortA(dim ModuleAddress, dim BitMask as byte) |
---|---|
Description |
The function sets the desired Port Expander's PortB pins as input according to the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA lower four pins as output : Expander_Set_OutputDirPortA(0, 0x0F) |
Notes |
None. |
Expander_Set_InputDirPortB
Prototype |
sub procedure Expander_Set_InputDirPortB(dim ModuleAddress, dim BitMask as byte) |
---|---|
Description |
The function sets the desired Port Expander's PortB pins as input according to the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTB lower four pins as input : Expander_Set_InputDirPortB(0, 0x0F) |
Notes |
None. |
Expander_Set_OutputDirPortB
Prototype |
sub procedure Expander_Set_OutputDirPortB(dim ModuleAddress, dim BitMask as byte) |
---|---|
Description |
The function sets the desired Port Expander's PortB pins as input according to the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTB lower four pins as output : Expander_Set_OutputDirPortB(0, 0x0F) |
Notes |
None. |
Expander_Set_PullUpsPortA
Prototype |
sub procedure Expander_Set_PullUpsPortA(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function sets Port Expander's PortA pull up/down resistors. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA pull-up resistors Expander_Set_PullUpsPortA(0, $FF) |
Notes |
None. |
Expander_Set_PullUpsPortB
Prototype |
sub procedure Expander_Set_PullUpsPortB(dim ModuleAddress, Data as byte) |
---|---|
Description |
The function sets Port Expander's PortB pull up/down resistors. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTB pull-up resistors Expander_Set_PullUpsPortB(0, 0xFF) |
Notes |
None. |
Expander_Set_PullUpsPortAB
Prototype |
sub procedure Expander_Set_PullUpsPortAB(dim ModuleAddress as byte, dim PullUps as word) |
---|---|
Description |
The function sets Port Expander's PortA and PortB pull up/down resistors. |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Set Port Expander's PORTA and PORTB pull-up resistors Expander_Set_PullUpsPortAB(0, $FFFF) |
Notes |
None. |
Expander_SetBits
Prototype |
sub procedure Expander_SetBits(dim ModuleAddress as byte, dim RegAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function sets bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Sets lower nibble at the register located on the address 1 of the Port Expander Expander_SetBits(0, 1, 0x0F) |
Notes |
None. |
Expander_ClrBits
Prototype |
sub procedure Expander_ClrBits(dim ModuleAddress as byte, dim RegAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function clears bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Clears lower nibble in the register located on the address 1 of the Port Expander Expander_ClrBits(0, 1, 0x0F) |
Notes |
None. |
Expander_ToggleBits
Prototype |
sub procedure Expander_ToggleBits(dim ModuleAddress as byte, dim RegAddress as byte, dim BitMask as byte) |
---|---|
Description |
The function toggles bits designated by the |
Parameters |
|
Returns |
Nothing. |
Requires |
Port Expander must be initialized. See Expander_Init. |
Example |
' Toggles lower nibble in the register located on the address 1 of the Port Expander Expander_ToggleBits(0, 1, 0x0F) |
Notes |
None. |
What do you think about this topic ? Send us feedback!