mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 01:40:56 +11:00
13 lines
243 B
Plaintext
13 lines
243 B
Plaintext
CODE (spix) ( n -- n )
|
|
HL POP,
|
|
chkPS,
|
|
A L LDrr,
|
|
SPI_DATA OUTiA,
|
|
NOP, NOP, ( let SPI relay breathe )
|
|
SPI_DATA INAi,
|
|
L A LDrr,
|
|
HL PUSH,
|
|
;CODE
|
|
CODE (spie) SPI_CSLOW OUTiA, ;CODE
|
|
CODE (spid) SPI_CSHIGH OUTiA, ;CODE
|