Dim bit_stream As integer
receive=0
bit_ready=0

' interrupt for CS signal
Sub CS
receive=Pin(gp22) ' check if CS is LOW or HIGH
End Sub

'Interrupt for WR signal
Sub WR
bit_ready=1 ' FLAG as data is ready to read
End Sub

' GP22 will be our CS
SetPin GP22,DIN
SetPin GP22,INTB,CS

' GP26 will be our clock line (WR)
SetPin GP26,DIN
SetPin GP26,INTH,WR

' GP27 will be DATA line
SetPin GP27,DIN

loop1:
bit_stream=0

'wait for CS to became LOW, so it indicates data transfer begins
Do While receive=1
Loop

'cycle read data while CS is LOW
Do While receive=0

'wait for WR high transition to read DATA
Do While bit_ready=0
Loop
'WR rises high, so now we can read data bit
data_bit=Pin(gp27) ' read data bit
bit_stream=bit_stream Or data_bit 'move data bit to variable
bit_stream=bit_stream<<1 ' shift left for next data input cycle
bit_ready=0 ' prepare for next data bit on high WR transition

Loop

Print bit_stream ' if at least something received, please show us DEC format, so we would convert it to BIN and see.

GoTo loop1

' tried different combinations here as I was not sure if SETPIN GP28, GP27, GP26, ' SPI2  takes care on I/O prepare or no

SetPin GP26,DIN
SetPin GP28,DIN
SetPin GP27,DOUT

SETPIN GP28, GP27, GP26, SPI2
SPI OPEN 250000, 0, 16