xref: /netbsd-src/sys/arch/amiga/dev/siop_script.ss (revision 21cc7f1b6b3ceba58353c4989891a751a88d9588)
1;	$NetBSD: siop_script.ss,v 1.6 2016/12/12 15:58:44 maya Exp $
2
3;
4; Copyright (c) 1995 Michael L. Hitch
5; All rights reserved.
6;
7; Redistribution and use in source and binary forms, with or without
8; modification, are permitted provided that the following conditions
9; are met:
10; 1. Redistributions of source code must retain the above copyright
11;    notice, this list of conditions and the following disclaimer.
12; 2. Redistributions in binary form must reproduce the above copyright
13;    notice, this list of conditions and the following disclaimer in the
14;    documentation and/or other materials provided with the distribution.
15;
16; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26;
27
28; NCR 53c710 script
29;
30ARCH 710
31;
32ABSOLUTE ds_Device	= 0
33ABSOLUTE ds_MsgOut 	= ds_Device + 4
34ABSOLUTE ds_Cmd		= ds_MsgOut + 8
35ABSOLUTE ds_Status	= ds_Cmd + 8
36ABSOLUTE ds_Msg		= ds_Status + 8
37ABSOLUTE ds_MsgIn	= ds_Msg + 8
38ABSOLUTE ds_ExtMsg	= ds_MsgIn + 8
39ABSOLUTE ds_SyncMsg	= ds_ExtMsg + 8
40ABSOLUTE ds_Data1	= ds_SyncMsg + 8
41ABSOLUTE ds_Data2	= ds_Data1 + 8
42ABSOLUTE ds_Data3	= ds_Data2 + 8
43ABSOLUTE ds_Data4	= ds_Data3 + 8
44ABSOLUTE ds_Data5	= ds_Data4 + 8
45ABSOLUTE ds_Data6	= ds_Data5 + 8
46ABSOLUTE ds_Data7	= ds_Data6 + 8
47ABSOLUTE ds_Data8	= ds_Data7 + 8
48ABSOLUTE ds_Data9	= ds_Data8 + 8
49
50ABSOLUTE ok		= 0xff00
51ABSOLUTE err1		= 0xff01
52ABSOLUTE err2		= 0xff02
53ABSOLUTE err3		= 0xff03
54ABSOLUTE err4		= 0xff04
55ABSOLUTE err5		= 0xff05
56ABSOLUTE err6		= 0xff06
57ABSOLUTE err7		= 0xff07
58ABSOLUTE err8		= 0xff08
59ABSOLUTE err9		= 0xff09
60ABSOLUTE err10		= 0xff0a
61ABSOLUTE err11		= 0xff0b
62
63ENTRY	scripts
64ENTRY	switch
65ENTRY	wait_reselect
66ENTRY	dataout
67ENTRY	datain
68ENTRY	clear_ack
69
70PROC	scripts:
71
72scripts:
73
74	SELECT ATN FROM ds_Device, REL(reselect)
75;
76switch:
77	JUMP REL(msgin), WHEN MSG_IN
78	JUMP REL(msgout), IF MSG_OUT
79	JUMP REL(command_phase), IF CMD
80	JUMP REL(dataout), IF DATA_OUT
81	JUMP REL(datain), IF DATA_IN
82	JUMP REL(end), IF STATUS
83
84	INT err5			; Unrecognized phase
85
86msgin:
87	MOVE FROM ds_MsgIn, WHEN MSG_IN
88	JUMP REL(ext_msg), IF 0x01	; extended message
89	JUMP REL(disc), IF 0x04		; disconnect message
90	JUMP REL(msg_sdp), IF 0x02	; save data pointers
91	JUMP REL(msg_rej), IF 0x07	; message reject
92	JUMP REL(msg_rdp), IF 0x03	; restore data pointers
93	INT err6			; unrecognized message
94
95msg_rej:
96; Do we need to interrupt host here to let it handle the reject?
97msg_rdp:
98clear_ack:
99	CLEAR ACK
100	CLEAR ATN
101	JUMP REL(switch)
102
103ext_msg:
104	CLEAR ACK
105	MOVE FROM ds_ExtMsg, WHEN MSG_IN
106	JUMP REL(sync_msg), IF 0x03
107	int err7			; extended message not SDTR
108
109sync_msg:
110	CLEAR ACK
111	MOVE FROM ds_SyncMsg, WHEN MSG_IN
112	int err11			; Let host handle the message
113; If we continue from the interrupt, the host has set up a response
114; message to be sent.  Set ATN, clear ACK, and continue.
115	SET ATN
116	CLEAR ACK
117	JUMP REL(switch)
118
119disc:
120	CLEAR ACK
121	WAIT DISCONNECT
122
123	int err2			; signal disconnect w/o save DP
124
125msg_sdp:
126	CLEAR ACK			; acknowledge message
127	JUMP REL(switch), WHEN NOT MSG_IN
128	MOVE FROM ds_ExtMsg, WHEN MSG_IN
129	INT err8, IF NOT 0x04		; interrupt if not disconnect
130	CLEAR ACK
131	WAIT DISCONNECT
132
133	INT err1			; signal disconnect
134
135reselect:
136wait_reselect:
137	WAIT RESELECT REL(select_adr)
138	MOVE LCRC to SFBR		; Save reselect ID
139	MOVE SFBR to SCRATCH0
140
141	INT err9, WHEN NOT MSG_IN	; didn't get IDENTIFY
142	MOVE FROM ds_Msg, WHEN MSG_IN
143	INT err3			; let host know about reconnect
144	CLEAR ACK			; acknowledge the message
145	JUMP REL(switch)
146
147
148select_adr:
149	MOVE SCNTL1 & 0x10 to SFBR	; get connected status
150	INT err4, IF 0x00		; tell host if not connected
151	MOVE CTEST2 & 0x40 to SFBR	; clear Sig_P
152	JUMP REL(wait_reselect)		; and try reselect again
153
154msgout:
155	MOVE FROM ds_MsgOut, WHEN MSG_OUT
156	JUMP REL(switch)
157
158command_phase:
159	CLEAR ATN
160	MOVE FROM ds_Cmd, WHEN CMD
161	JUMP REL(switch)
162
163dataout:
164	MOVE FROM ds_Data1, WHEN DATA_OUT
165	CALL REL(switch), WHEN NOT DATA_OUT
166	MOVE FROM ds_Data2, WHEN DATA_OUT
167	CALL REL(switch), WHEN NOT DATA_OUT
168	MOVE FROM ds_Data3, WHEN DATA_OUT
169	CALL REL(switch), WHEN NOT DATA_OUT
170	MOVE FROM ds_Data4, WHEN DATA_OUT
171	CALL REL(switch), WHEN NOT DATA_OUT
172	MOVE FROM ds_Data5, WHEN DATA_OUT
173	CALL REL(switch), WHEN NOT DATA_OUT
174	MOVE FROM ds_Data6, WHEN DATA_OUT
175	CALL REL(switch), WHEN NOT DATA_OUT
176	MOVE FROM ds_Data7, WHEN DATA_OUT
177	CALL REL(switch), WHEN NOT DATA_OUT
178	MOVE FROM ds_Data8, WHEN DATA_OUT
179	CALL REL(switch), WHEN NOT DATA_OUT
180	MOVE FROM ds_Data9, WHEN DATA_OUT
181	CALL REL(switch)
182
183datain:
184	MOVE FROM ds_Data1, WHEN DATA_IN
185	CALL REL(switch), WHEN NOT DATA_IN
186	MOVE FROM ds_Data2, WHEN DATA_IN
187	CALL REL(switch), WHEN NOT DATA_IN
188	MOVE FROM ds_Data3, WHEN DATA_IN
189	CALL REL(switch), WHEN NOT DATA_IN
190	MOVE FROM ds_Data4, WHEN DATA_IN
191	CALL REL(switch), WHEN NOT DATA_IN
192	MOVE FROM ds_Data5, WHEN DATA_IN
193	CALL REL(switch), WHEN NOT DATA_IN
194	MOVE FROM ds_Data6, WHEN DATA_IN
195	CALL REL(switch), WHEN NOT DATA_IN
196	MOVE FROM ds_Data7, WHEN DATA_IN
197	CALL REL(switch), WHEN NOT DATA_IN
198	MOVE FROM ds_Data8, WHEN DATA_IN
199	CALL REL(switch), WHEN NOT DATA_IN
200	MOVE FROM ds_Data9, WHEN DATA_IN
201	CALL REL(switch)
202
203end:
204	MOVE FROM ds_Status, WHEN STATUS
205	int err10, WHEN NOT MSG_IN	; status not followed by msg
206	MOVE FROM ds_Msg, WHEN MSG_IN
207	CLEAR ACK
208	WAIT DISCONNECT
209	INT ok				; signal completion
210	JUMP REL(wait_reselect)
211