[BACK]Return to scsisubs.s CVS log [TXT] [DIR] Up to [Plan 9 NeXT] / lucent / sys / src / 9 / gnot
File:  [Plan 9 NeXT] / lucent / sys / src / 9 / gnot / scsisubs.s
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 18:01:01 2018 UTC (8 years, 1 month ago) by root
Branches: lucent, MAIN
CVS tags: plan9, HEAD
Plan 9 NeXT

#include "mem.h"

TEXT	spl2(SB), $0

	MOVL	$0, R0
	MOVW	SR, R0
	MOVW	$(SUPER|SPL(2)), SR
	RTS

TEXT	scsirecv(SB), $0
	MOVL	$0x40300033, A0	/* data		*/
	MOVL	$0x40300032, A1	/* status	*/
	MOVL	p+0(FP), A2
	BTST	$1, (A1)
	BEQ	rout
rloop:
	MOVB	(A0), (A2)+
	BTST	$1, (A1)
	BEQ	rout

	MOVB	(A0), (A2)+
	BTST	$1, (A1)
	BEQ	rout

	MOVB	(A0), (A2)+
	BTST	$1, (A1)
	BEQ	rout

	MOVB	(A0), (A2)+
	BTST	$1, (A1)
	BNE	rloop
rout:
	MOVL	A2, R0
	RTS

TEXT	scsixmit(SB), $0
	MOVL	$0x40300033, A0	/* data		*/
	MOVL	$0x40300032, A1	/* status	*/
	MOVL	p+0(FP), A2
	BTST	$1, (A1)
	BEQ	xout
xloop:
	MOVB	(A2)+, (A0)
	BTST	$1, (A1)
	BEQ	xout

	MOVB	(A2)+, (A0)
	BTST	$1, (A1)
	BEQ	xout

	MOVB	(A2)+, (A0)
	BTST	$1, (A1)
	BEQ	xout

	MOVB	(A2)+, (A0)
	BTST	$1, (A1)
	BNE	xloop
xout:
	MOVL	A2, R0
	RTS
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.