~kris/9p

9hist

ref: 4cfd1152d45708393a7ea0b3ae30e3db3b1dd96f 9hist/gnot/scsisubs.s -rw-r--r-- 855 bytes
4cfd1152 — David du Colombier Plan 9 from Bell Labs 1991-02-23 35 years ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

#include "mem.h"

TEXT	spl1(SB), $0

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

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