mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 13:18:04 +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
|