1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-31 10:28:06 +11:00
collapseos/recipes/rc2014/blk/616

14 lines
277 B
Plaintext
Raw Normal View History

CODE (spix) ( n -- n )
HL POP, chkPS, A L LDrr,
SPI_DATA OUTiA,
( wait until xchg is done )
BEGIN, SPI_CTL INAi, 1 ANDi, JRNZ, AGAIN,
SPI_DATA INAi,
L A LDrr,
HL PUSH,
;CODE
CODE (spie) ( n -- )
HL POP, chkPS, A L LDrr,
SPI_CTL OUTiA,
;CODE