CP/M 68K高速化2

せっかくCP/M 68Kが動き始めたのに遅い。原因はSDカードのSPIアクセスにあることはわかっている。
すべて68Kのソフトウエアで行っているため。

そこで少しでも速くならないかと、さらにコードを見直した。

従来は読み込みと書き込みを一つのサブルーチンで行っている。spiの仕様的にはそうなのかもしれないが、
読みながら次のコマンドを書き込むなどは今回のプログラムでは行っていない。
なのに同時にすることで余計に時間がかかっている。
*
spi8r2:	move.b	#$ff,d0		*spi read (write $ff)
spi8w2:	moveq	#7,d5		*spi write
spiloop2:
	btst	d5,d0
	beq	lout2
	bset.b	d7,(a3)		*MOSI=H
	bra	spiout2
lout2:	bclr.b	d7,(a3)		*MOSI=L
spiout2:bset.b	d3,(a3)		*SCK=H
	btst.b	d4,(a3)		*MISO
	beq	lin2
	bset	d5,d0
	bra	spiin2
lin2:	bclr	d5,d0	
spiin2:	bclr.b	d3,(a3)		*SCK=L
	dbra	d5,spiloop2
	rts

そこで読み込みと書き込みを分離した。
*
spi8r2:	move.b	#$ff,d0		*spi read (write $ff)
	moveq	#7,d5
	bset.b	d7,(a3)		*MOSI=H
spiloop2r:
	bset.b	d3,(a3)		*SCK=H
	btst.b	d4,(a3)		*MISO
	beq	lin2
	bset	d5,d0
	bra	spiin2
lin2:	bclr	d5,d0	
spiin2:	bclr.b	d3,(a3)		*SCK=L
	dbra	d5,spiloop2r
	rts
*
spi8w2:	moveq	#7,d5		*spi write
spiloop2w:
	btst	d5,d0
	beq	lout2
	bset.b	d7,(a3)		*MOSI=H
	bra	spiout2
lout2:	bclr.b	d7,(a3)		*MOSI=L
spiout2:bset.b	d3,(a3)		*SCK=H
	bclr.b	d3,(a3)		*SCK=L
	dbra	d5,spiloop2w
	rts
*
結果
　1分13秒かかっていたCのコンパイルが52秒と少し速くなった。
　ロジックアナライザで確認すると、以前約150Kbps(読むのが0の時と1の時では時間が変わる)だったものが、
　266Kbps程度となった。

ロジックアナライザの結果