shithub: riscv

ref: 3a6a754051a6f3f1ba742f12be0a2c33d309ca53
dir: /sys/src/ape/lib/ap/alpha/tas.s/

View raw version 
TEXT	tas(SB), $-8
	MOVQ	R0, R1			/* l */
tas1:
	MOVLL	(R1), R0		/* l->key */
	BNE	R0, tas2
	MOVQ	$1, R2
	MOVLC	R2, (R1)		/* l->key = 1 */
	BEQ	R2, tas1		/* write failed, try again? */
tas2:
	RET