collapseos/arch/z80/sms/blk/622

: (spie) DROP ; ( always enabled )
: (spix) ( x -- x, for port B )
    0 SWAP ( rx tx ) 8 0 DO
        ( send current bit to TRB, TR's output bit )
        DUP 7 I - RSHIFT 1 AND _TRB!
        1 _THB! ( CLK hi )
        ( read into rx ) SWAP 1 LSHIFT _D1@ ( tx rx<< x )
        0 _THB! ( CLK lo )
        ( out bit is the 6th ) 6 RSHIFT 1 AND OR
    SWAP LOOP ( rx tx ) DROP ;
emul/z80/sms: add SPI exchange through controller port Theoretically, it works. I can access an emulated SD card on it. Will it work on real hardware? I've also made SMS emulation faster. It was unbearably slow for SDC access. 2020-10-30 10:40:13 +11:00			`: (spie) DROP ; ( always enabled )`
			`: (spix) ( x -- x, for port B )`
			`0 SWAP ( rx tx ) 8 0 DO`
sms: simplify and solidify ports-related drivers Add _TRA!, _THA!, _TRB!, _THB! routines to easily handle those pins' value without stepping on other pins like the drivers previously did. For SDC driver, it's going to be important soon because it turns out that I can't get away with "always on" CS, so I'll need a scheme where it's important that TH/TR pins have stable values. 2020-11-03 10:53:57 +11:00			`( send current bit to TRB, TR's output bit )`
			`DUP 7 I - RSHIFT 1 AND _TRB!`
			`1 _THB! ( CLK hi )`
			`( read into rx ) SWAP 1 LSHIFT _D1@ ( tx rx<< x )`
sms/spi: sample DO when CLK is high I was sampling DO at the wrong moment, so my input was always one-off. 2020-11-09 02:24:36 +11:00			`0 _THB! ( CLK lo )`
emul/z80/sms: add SPI exchange through controller port Theoretically, it works. I can access an emulated SD card on it. Will it work on real hardware? I've also made SMS emulation faster. It was unbearably slow for SDC access. 2020-10-30 10:40:13 +11:00			`( out bit is the 6th ) 6 RSHIFT 1 AND OR`
			`SWAP LOOP ( rx tx ) DROP ;`