mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 18:08:05 +11:00
6947fea2a8
It works (in emulation, but soon on real hardware!), but the LIST command is awkward due to tight screen estate...
14 lines
277 B
Plaintext
14 lines
277 B
Plaintext
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
|