![VersaLogic Iguana VL-EPIC-25 Скачать руководство пользователя страница 52](http://html.mh-extra.com/html/versalogic/iguana-vl-epic-25/iguana-vl-epic-25_reference-manual_1006776052.webp)
Interfaces and Connectors
VL-EPIC-25 Reference Manual
46
'INITIALIZE DIRECTION OF DIO LINES D15-D8 AS INPUTS
'==================================================
'Direction = All Inputs
OUT SPIDATA1, &HFF
'MCP23S17 IODIRA Register Address
OUT SPIDATA2, &H0
'MCP23S17 SPI Control Byte (Write)
OUT SPIDATA3, &H40
WHILE (INP(SPISTATUS) AND &H1) = &H1: WEND
'Repeat until ESC key is pressed
WHILE INKEY$ <> CHR$(27)
'READ DIO INPUT DATA FROM MCP23S17
'---------------------------------
'MCP23S17 GPIOA Register Address
OUT SPIDATA2, &H12
'MCP23S17 SPI Control Byte (Read)
OUT SPIDATA3, &H41
WHILE (INP(SPISTATUS) AND &H1) = &H1: WEND
'DIO Input Data
PRINT HEX$(INP(SPIDATA1))
WEND
SYSTEM