URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [drivers/] [scsi/] [53c700.scr] - Blame information for rev 1275

Go to most recent revision | Details | Compare with Previous | View Log


; Script for the NCR (or symbios) 53c700 and 53c700-66 chip
;
; Copyright (C) 2001 James.Bottomley@HansenPartnership.com
;;-----------------------------------------------------------------------------
;;
;;  This program is free software; you can redistribute it and/or modify
;;  it under the terms of the GNU General Public License as published by
;;  the Free Software Foundation; either version 2 of the License, or
;;  (at your option) any later version.
;;
;;  This program is distributed in the hope that it will be useful,
;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;  GNU General Public License for more details.
;;
;;  You should have received a copy of the GNU General Public License
;;  along with this program; if not, write to the Free Software
;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;
;;-----------------------------------------------------------------------------
;
; This script is designed to be modified for the particular command in
; operation.  The particular variables pertaining to the commands are:
;
ABSOLUTE        Device_ID = 0           ; ID of target for command
ABSOLUTE        MessageCount = 0        ; Number of bytes in message
ABSOLUTE        MessageLocation = 0     ; Addr of message
ABSOLUTE        CommandCount = 0        ; Number of bytes in command
ABSOLUTE        CommandAddress = 0      ; Addr of Command
ABSOLUTE        StatusAddress = 0       ; Addr to receive status return
ABSOLUTE        ReceiveMsgAddress = 0   ; Addr to receive msg
;
; This is the magic component for handling scatter-gather.  Each of the
; SG components is preceeded by a script fragment which moves the
; necessary amount of data and jumps to the next SG segment.  The final
; SG segment jumps back to .  However, this address is the first SG script
; segment.
;
ABSOLUTE        SGScriptStartAddress = 0
 
; The following represent status interrupts we use 3 hex digits for
; this: 0xPRS where
 
; P:
ABSOLUTE        AFTER_SELECTION         = 0x100
ABSOLUTE        BEFORE_CMD              = 0x200
ABSOLUTE        AFTER_CMD               = 0x300
ABSOLUTE        AFTER_STATUS            = 0x400
ABSOLUTE        AFTER_DATA_IN           = 0x500
ABSOLUTE        AFTER_DATA_OUT          = 0x600
ABSOLUTE        DURING_DATA_IN          = 0x700
 
; R:
ABSOLUTE        NOT_MSG_OUT             = 0x10
ABSOLUTE        UNEXPECTED_PHASE        = 0x20
ABSOLUTE        NOT_MSG_IN              = 0x30
ABSOLUTE        UNEXPECTED_MSG          = 0x40
ABSOLUTE        MSG_IN                  = 0x50
ABSOLUTE        SDTR_MSG_R              = 0x60
ABSOLUTE        REJECT_MSG_R            = 0x70
ABSOLUTE        DISCONNECT              = 0x80
ABSOLUTE        MSG_OUT                 = 0x90
ABSOLUTE        WDTR_MSG_R              = 0xA0
 
; S:
ABSOLUTE        GOOD_STATUS             = 0x1
 
; Combinations, since the script assembler can't process |
ABSOLUTE        NOT_MSG_OUT_AFTER_SELECTION = 0x110
ABSOLUTE        UNEXPECTED_PHASE_BEFORE_CMD = 0x220
ABSOLUTE        UNEXPECTED_PHASE_AFTER_CMD = 0x320
ABSOLUTE        NOT_MSG_IN_AFTER_STATUS = 0x430
ABSOLUTE        GOOD_STATUS_AFTER_STATUS = 0x401
ABSOLUTE        UNEXPECTED_PHASE_AFTER_DATA_IN = 0x520
ABSOLUTE        UNEXPECTED_PHASE_AFTER_DATA_OUT = 0x620
ABSOLUTE        UNEXPECTED_MSG_BEFORE_CMD = 0x240
ABSOLUTE        MSG_IN_BEFORE_CMD = 0x250
ABSOLUTE        MSG_IN_AFTER_CMD = 0x350
ABSOLUTE        SDTR_MSG_BEFORE_CMD = 0x260
ABSOLUTE        REJECT_MSG_BEFORE_CMD = 0x270
ABSOLUTE        DISCONNECT_AFTER_CMD = 0x380
ABSOLUTE        SDTR_MSG_AFTER_CMD = 0x360
ABSOLUTE        WDTR_MSG_AFTER_CMD = 0x3A0
ABSOLUTE        MSG_IN_AFTER_STATUS = 0x440
ABSOLUTE        DISCONNECT_AFTER_DATA = 0x580
ABSOLUTE        MSG_IN_AFTER_DATA_IN = 0x550
ABSOLUTE        MSG_IN_AFTER_DATA_OUT = 0x650
ABSOLUTE        MSG_OUT_AFTER_DATA_IN = 0x590
ABSOLUTE        DATA_IN_AFTER_DATA_IN = 0x5a0
ABSOLUTE        MSG_IN_DURING_DATA_IN = 0x750
ABSOLUTE        DISCONNECT_DURING_DATA = 0x780
 
;
; Other interrupt conditions
;
ABSOLUTE        RESELECTED_DURING_SELECTION = 0x1000
ABSOLUTE        COMPLETED_SELECTION_AS_TARGET = 0x1001
ABSOLUTE        RESELECTION_IDENTIFIED = 0x1003
;
; Fatal interrupt conditions.  If you add to this, also add to the
; array of corresponding messages
;
ABSOLUTE        FATAL = 0x2000
ABSOLUTE        FATAL_UNEXPECTED_RESELECTION_MSG = 0x2000
ABSOLUTE        FATAL_SEND_MSG = 0x2001
ABSOLUTE        FATAL_NOT_MSG_IN_AFTER_SELECTION = 0x2002
ABSOLUTE        FATAL_ILLEGAL_MSG_LENGTH = 0x2003
 
ABSOLUTE        DEBUG_INTERRUPT = 0x3000
ABSOLUTE        DEBUG_INTERRUPT1 = 0x3001
ABSOLUTE        DEBUG_INTERRUPT2 = 0x3002
ABSOLUTE        DEBUG_INTERRUPT3 = 0x3003
ABSOLUTE        DEBUG_INTERRUPT4 = 0x3004
ABSOLUTE        DEBUG_INTERRUPT5 = 0x3005
ABSOLUTE        DEBUG_INTERRUPT6 = 0x3006
 
 
;
; SCSI Messages we interpret in the script
;
ABSOLUTE        COMMAND_COMPLETE_MSG    = 0x00
ABSOLUTE        EXTENDED_MSG            = 0x01
ABSOLUTE        SDTR_MSG                = 0x01
ABSOLUTE        SAVE_DATA_PTRS_MSG      = 0x02
ABSOLUTE        RESTORE_DATA_PTRS_MSG   = 0x03
ABSOLUTE        WDTR_MSG                = 0x03
ABSOLUTE        DISCONNECT_MSG          = 0x04
ABSOLUTE        REJECT_MSG              = 0x07
ABSOLUTE        PARITY_ERROR_MSG        = 0x09
ABSOLUTE        SIMPLE_TAG_MSG          = 0x20
ABSOLUTE        IDENTIFY_MSG            = 0x80
ABSOLUTE        IDENTIFY_MSG_MASK       = 0x7F
ABSOLUTE        TWO_BYTE_MSG            = 0x20
ABSOLUTE        TWO_BYTE_MSG_MASK       = 0x0F
 
; This is where the script begins
 
ENTRY   StartUp
 
StartUp:
        SELECT  ATN Device_ID, Reselect
        JUMP    Finish, WHEN STATUS
        JUMP    SendIdentifyMsg, IF MSG_OUT
        INT     NOT_MSG_OUT_AFTER_SELECTION
 
Reselect:
        WAIT    RESELECT SelectedAsTarget
        INT     RESELECTED_DURING_SELECTION, WHEN MSG_IN
        INT     FATAL_NOT_MSG_IN_AFTER_SELECTION
 
        ENTRY   GetReselectionData
GetReselectionData:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        INT     RESELECTION_IDENTIFIED
 
        ENTRY   GetReselectionWithTag
GetReselectionWithTag:
        MOVE    3, ReceiveMsgAddress, WHEN MSG_IN
        INT     RESELECTION_IDENTIFIED
 
        ENTRY   SelectedAsTarget
SelectedAsTarget:
; Basically tell the selecting device that there's nothing here
        SET     TARGET
        DISCONNECT
        CLEAR   TARGET
        INT     COMPLETED_SELECTION_AS_TARGET
;
; These are the messaging entries
;
; Send a message.  Message count should be correctly patched
        ENTRY   SendMessage
SendMessage:
        MOVE    MessageCount, MessageLocation, WHEN MSG_OUT
ResumeSendMessage:
        RETURN, WHEN NOT MSG_OUT
        INT     FATAL_SEND_MSG
 
        ENTRY   SendMessagePhaseMismatch
SendMessagePhaseMismatch:
        CLEAR   ACK
        JUMP    ResumeSendMessage
;
; Receive a message.  Need to identify the message to
; receive it correctly
        ENTRY   ReceiveMessage
ReceiveMessage:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
;
; Use this entry if we've just tried to look at the first byte
; of the message and want to process it further
ProcessReceiveMessage:
        JUMP    ReceiveExtendedMessage, IF EXTENDED_MSG
        RETURN, IF NOT TWO_BYTE_MSG, AND MASK TWO_BYTE_MSG_MASK
        CLEAR   ACK
        MOVE    1, ReceiveMsgAddress + 1, WHEN MSG_IN
        RETURN
ReceiveExtendedMessage:
        CLEAR   ACK
        MOVE    1, ReceiveMsgAddress + 1, WHEN MSG_IN
        JUMP    Receive1Byte, IF 0x01
        JUMP    Receive2Byte, IF 0x02
        JUMP    Receive3Byte, IF 0x03
        JUMP    Receive4Byte, IF 0x04
        JUMP    Receive5Byte, IF 0x05
        INT     FATAL_ILLEGAL_MSG_LENGTH
Receive1Byte:
        CLEAR   ACK
        MOVE    1, ReceiveMsgAddress + 2, WHEN MSG_IN
        RETURN
Receive2Byte:
        CLEAR   ACK
        MOVE    2, ReceiveMsgAddress + 2, WHEN MSG_IN
        RETURN
Receive3Byte:
        CLEAR   ACK
        MOVE    3, ReceiveMsgAddress + 2, WHEN MSG_IN
        RETURN
Receive4Byte:
        CLEAR   ACK
        MOVE    4, ReceiveMsgAddress + 2, WHEN MSG_IN
        RETURN
Receive5Byte:
        CLEAR   ACK
        MOVE    5, ReceiveMsgAddress + 2, WHEN MSG_IN
        RETURN
;
; Come here from the message processor to ignore the message
;
        ENTRY   IgnoreMessage
IgnoreMessage:
        CLEAR   ACK
        RETURN
;
; Come here to send a reply to a message
;
        ENTRY   SendMessageWithATN
SendMessageWithATN:
        SET     ATN
        CLEAR   ACK
        JUMP    SendMessage
 
SendIdentifyMsg:
        CALL    SendMessage
        CLEAR   ATN
 
IgnoreMsgBeforeCommand:
        CLEAR   ACK
        ENTRY   SendCommand
SendCommand:
        JUMP    Finish, WHEN STATUS
        JUMP    MsgInBeforeCommand, IF MSG_IN
        INT     UNEXPECTED_PHASE_BEFORE_CMD, IF NOT CMD
        MOVE    CommandCount, CommandAddress, WHEN CMD
ResumeSendCommand:
        JUMP    Finish, WHEN STATUS
        JUMP    MsgInAfterCmd, IF MSG_IN
        JUMP    DataIn, IF DATA_IN
        JUMP    DataOut, IF DATA_OUT
        INT     UNEXPECTED_PHASE_AFTER_CMD
 
IgnoreMsgDuringData:
        CLEAR   ACK
        ; fall through to MsgInDuringData
 
Entry MsgInDuringData
MsgInDuringData:
;
; Could be we have nothing more to transfer
;
        JUMP    Finish, WHEN STATUS
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    DisconnectDuringDataIn, IF DISCONNECT_MSG
        JUMP    IgnoreMsgDuringData, IF SAVE_DATA_PTRS_MSG
        JUMP    IgnoreMsgDuringData, IF RESTORE_DATA_PTRS_MSG
        INT     MSG_IN_DURING_DATA_IN
 
MsgInAfterCmd:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    DisconnectAfterCmd, IF DISCONNECT_MSG
        JUMP    IgnoreMsgInAfterCmd, IF SAVE_DATA_PTRS_MSG
        JUMP    IgnoreMsgInAfterCmd, IF RESTORE_DATA_PTRS_MSG
        CALL    ProcessReceiveMessage
        INT     MSG_IN_AFTER_CMD
        CLEAR   ACK
        JUMP    ResumeSendCommand
 
IgnoreMsgInAfterCmd:
        CLEAR   ACK
        JUMP    ResumeSendCommand
 
DisconnectAfterCmd:
        CLEAR   ACK
        WAIT    DISCONNECT
        ENTRY   Disconnect1
Disconnect1:
        INT     DISCONNECT_AFTER_CMD
        ENTRY   Disconnect2
Disconnect2:
; We return here after a reselection
        CLEAR   ACK
        JUMP    ResumeSendCommand
 
MsgInBeforeCommand:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    IgnoreMsgBeforeCommand, IF SAVE_DATA_PTRS_MSG
        JUMP    IgnoreMsgBeforeCommand, IF RESTORE_DATA_PTRS_MSG
        CALL    ProcessReceiveMessage
        INT     MSG_IN_BEFORE_CMD
        CLEAR   ACK
        JUMP    SendCommand
 
DataIn:
        CALL    SGScriptStartAddress
ResumeDataIn:
        JUMP    Finish, WHEN STATUS
        JUMP    MsgInAfterDataIn, IF MSG_IN
        JUMP    DataInAfterDataIn, if DATA_IN
        INT     MSG_OUT_AFTER_DATA_IN, if MSG_OUT
        INT     UNEXPECTED_PHASE_AFTER_DATA_IN
 
DataInAfterDataIn:
        INT     DATA_IN_AFTER_DATA_IN
        JUMP    ResumeDataIn
 
DataOut:
        CALL    SGScriptStartAddress
ResumeDataOut:
        JUMP    Finish, WHEN STATUS
        JUMP    MsgInAfterDataOut, IF MSG_IN
        INT     UNEXPECTED_PHASE_AFTER_DATA_OUT
 
MsgInAfterDataIn:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    DisconnectAfterDataIn, IF DISCONNECT_MSG
        JUMP    IgnoreMsgAfterData, IF SAVE_DATA_PTRS_MSG
        JUMP    IgnoreMsgAfterData, IF RESTORE_DATA_PTRS_MSG
        CALL    ProcessReceiveMessage
        INT     MSG_IN_AFTER_DATA_IN
        CLEAR   ACK
        JUMP    ResumeDataIn
 
DisconnectDuringDataIn:
        CLEAR   ACK
        WAIT    DISCONNECT
        ENTRY   Disconnect3
Disconnect3:
        INT     DISCONNECT_DURING_DATA
        ENTRY   Disconnect4
Disconnect4:
; we return here after a reselection
        CLEAR   ACK
        JUMP    ResumeSendCommand
 
 
DisconnectAfterDataIn:
        CLEAR   ACK
        WAIT    DISCONNECT
        ENTRY   Disconnect5
Disconnect5:
        INT     DISCONNECT_AFTER_DATA
        ENTRY   Disconnect6
Disconnect6:
; we return here after a reselection
        CLEAR   ACK
        JUMP    ResumeDataIn
 
MsgInAfterDataOut:
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    DisconnectAfterDataOut, if DISCONNECT_MSG
        JUMP    IgnoreMsgAfterData, IF SAVE_DATA_PTRS_MSG
        JUMP    IgnoreMsgAfterData, IF RESTORE_DATA_PTRS_MSG
        CALL    ProcessReceiveMessage
        INT     MSG_IN_AFTER_DATA_OUT
        CLEAR   ACK
        JUMP    ResumeDataOut
 
IgnoreMsgAfterData:
        CLEAR   ACK
; Data in and out do the same thing on resume, so pick one
        JUMP    ResumeDataIn
 
DisconnectAfterDataOut:
        CLEAR   ACK
        WAIT    DISCONNECT
        ENTRY   Disconnect7
Disconnect7:
        INT     DISCONNECT_AFTER_DATA
        ENTRY   Disconnect8
Disconnect8:
; we return here after a reselection
        CLEAR   ACK
        JUMP    ResumeDataOut
 
Finish:
        MOVE    1, StatusAddress, WHEN STATUS
        INT     NOT_MSG_IN_AFTER_STATUS, WHEN NOT MSG_IN
        MOVE    1, ReceiveMsgAddress, WHEN MSG_IN
        JUMP    FinishCommandComplete, IF COMMAND_COMPLETE_MSG
        CALL    ProcessReceiveMessage
        INT     MSG_IN_AFTER_STATUS
        ENTRY   FinishCommandComplete
FinishCommandComplete:
        CLEAR   ACK
        WAIT    DISCONNECT
        ENTRY   Finish1
Finish1:
        INT     GOOD_STATUS_AFTER_STATUS
        ENTRY   Finish2
Finish2:
 

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [drivers/] [scsi/] [53c700.scr] - Blame information for rev 1275

Line No.	Rev	Author	Line
1	1275	phoenix	`; Script for the NCR (or symbios) 53c700 and 53c700-66 chip`
2			`;`
3			`; Copyright (C) 2001 James.Bottomley@HansenPartnership.com`
4			`;;-----------------------------------------------------------------------------`
5			`;;`
6			`;; This program is free software; you can redistribute it and/or modify`
7			`;; it under the terms of the GNU General Public License as published by`
8			`;; the Free Software Foundation; either version 2 of the License, or`
9			`;; (at your option) any later version.`
10			`;;`
11			`;; This program is distributed in the hope that it will be useful,`
12			`;; but WITHOUT ANY WARRANTY; without even the implied warranty of`
13			`;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
14			`;; GNU General Public License for more details.`
15			`;;`
16			`;; You should have received a copy of the GNU General Public License`
17			`;; along with this program; if not, write to the Free Software`
18			`;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.`
19			`;;`
20			`;;-----------------------------------------------------------------------------`
21			`;`
22			`; This script is designed to be modified for the particular command in`
23			`; operation. The particular variables pertaining to the commands are:`
24			`;`
25			`ABSOLUTE Device_ID = 0 ; ID of target for command`
26			`ABSOLUTE MessageCount = 0 ; Number of bytes in message`
27			`ABSOLUTE MessageLocation = 0 ; Addr of message`
28			`ABSOLUTE CommandCount = 0 ; Number of bytes in command`
29			`ABSOLUTE CommandAddress = 0 ; Addr of Command`
30			`ABSOLUTE StatusAddress = 0 ; Addr to receive status return`
31			`ABSOLUTE ReceiveMsgAddress = 0 ; Addr to receive msg`
32			`;`
33			`; This is the magic component for handling scatter-gather. Each of the`
34			`; SG components is preceeded by a script fragment which moves the`
35			`; necessary amount of data and jumps to the next SG segment. The final`
36			`; SG segment jumps back to . However, this address is the first SG script`
37			`; segment.`
38			`;`
39			`ABSOLUTE SGScriptStartAddress = 0`
40
41			`; The following represent status interrupts we use 3 hex digits for`
42			`; this: 0xPRS where`
43
44			`; P:`
45			`ABSOLUTE AFTER_SELECTION = 0x100`
46			`ABSOLUTE BEFORE_CMD = 0x200`
47			`ABSOLUTE AFTER_CMD = 0x300`
48			`ABSOLUTE AFTER_STATUS = 0x400`
49			`ABSOLUTE AFTER_DATA_IN = 0x500`
50			`ABSOLUTE AFTER_DATA_OUT = 0x600`
51			`ABSOLUTE DURING_DATA_IN = 0x700`
52
53			`; R:`
54			`ABSOLUTE NOT_MSG_OUT = 0x10`
55			`ABSOLUTE UNEXPECTED_PHASE = 0x20`
56			`ABSOLUTE NOT_MSG_IN = 0x30`
57			`ABSOLUTE UNEXPECTED_MSG = 0x40`
58			`ABSOLUTE MSG_IN = 0x50`
59			`ABSOLUTE SDTR_MSG_R = 0x60`
60			`ABSOLUTE REJECT_MSG_R = 0x70`
61			`ABSOLUTE DISCONNECT = 0x80`
62			`ABSOLUTE MSG_OUT = 0x90`
63			`ABSOLUTE WDTR_MSG_R = 0xA0`
64
65			`; S:`
66			`ABSOLUTE GOOD_STATUS = 0x1`
67
68			`; Combinations, since the script assembler can't process \|`
69			`ABSOLUTE NOT_MSG_OUT_AFTER_SELECTION = 0x110`
70			`ABSOLUTE UNEXPECTED_PHASE_BEFORE_CMD = 0x220`
71			`ABSOLUTE UNEXPECTED_PHASE_AFTER_CMD = 0x320`
72			`ABSOLUTE NOT_MSG_IN_AFTER_STATUS = 0x430`
73			`ABSOLUTE GOOD_STATUS_AFTER_STATUS = 0x401`
74			`ABSOLUTE UNEXPECTED_PHASE_AFTER_DATA_IN = 0x520`
75			`ABSOLUTE UNEXPECTED_PHASE_AFTER_DATA_OUT = 0x620`
76			`ABSOLUTE UNEXPECTED_MSG_BEFORE_CMD = 0x240`
77			`ABSOLUTE MSG_IN_BEFORE_CMD = 0x250`
78			`ABSOLUTE MSG_IN_AFTER_CMD = 0x350`
79			`ABSOLUTE SDTR_MSG_BEFORE_CMD = 0x260`
80			`ABSOLUTE REJECT_MSG_BEFORE_CMD = 0x270`
81			`ABSOLUTE DISCONNECT_AFTER_CMD = 0x380`
82			`ABSOLUTE SDTR_MSG_AFTER_CMD = 0x360`
83			`ABSOLUTE WDTR_MSG_AFTER_CMD = 0x3A0`
84			`ABSOLUTE MSG_IN_AFTER_STATUS = 0x440`
85			`ABSOLUTE DISCONNECT_AFTER_DATA = 0x580`
86			`ABSOLUTE MSG_IN_AFTER_DATA_IN = 0x550`
87			`ABSOLUTE MSG_IN_AFTER_DATA_OUT = 0x650`
88			`ABSOLUTE MSG_OUT_AFTER_DATA_IN = 0x590`
89			`ABSOLUTE DATA_IN_AFTER_DATA_IN = 0x5a0`
90			`ABSOLUTE MSG_IN_DURING_DATA_IN = 0x750`
91			`ABSOLUTE DISCONNECT_DURING_DATA = 0x780`
92
93			`;`
94			`; Other interrupt conditions`
95			`;`
96			`ABSOLUTE RESELECTED_DURING_SELECTION = 0x1000`
97			`ABSOLUTE COMPLETED_SELECTION_AS_TARGET = 0x1001`
98			`ABSOLUTE RESELECTION_IDENTIFIED = 0x1003`
99			`;`
100			`; Fatal interrupt conditions. If you add to this, also add to the`
101			`; array of corresponding messages`
102			`;`
103			`ABSOLUTE FATAL = 0x2000`
104			`ABSOLUTE FATAL_UNEXPECTED_RESELECTION_MSG = 0x2000`
105			`ABSOLUTE FATAL_SEND_MSG = 0x2001`
106			`ABSOLUTE FATAL_NOT_MSG_IN_AFTER_SELECTION = 0x2002`
107			`ABSOLUTE FATAL_ILLEGAL_MSG_LENGTH = 0x2003`
108
109			`ABSOLUTE DEBUG_INTERRUPT = 0x3000`
110			`ABSOLUTE DEBUG_INTERRUPT1 = 0x3001`
111			`ABSOLUTE DEBUG_INTERRUPT2 = 0x3002`
112			`ABSOLUTE DEBUG_INTERRUPT3 = 0x3003`
113			`ABSOLUTE DEBUG_INTERRUPT4 = 0x3004`
114			`ABSOLUTE DEBUG_INTERRUPT5 = 0x3005`
115			`ABSOLUTE DEBUG_INTERRUPT6 = 0x3006`
116
117
118			`;`
119			`; SCSI Messages we interpret in the script`
120			`;`
121			`ABSOLUTE COMMAND_COMPLETE_MSG = 0x00`
122			`ABSOLUTE EXTENDED_MSG = 0x01`
123			`ABSOLUTE SDTR_MSG = 0x01`
124			`ABSOLUTE SAVE_DATA_PTRS_MSG = 0x02`
125			`ABSOLUTE RESTORE_DATA_PTRS_MSG = 0x03`
126			`ABSOLUTE WDTR_MSG = 0x03`
127			`ABSOLUTE DISCONNECT_MSG = 0x04`
128			`ABSOLUTE REJECT_MSG = 0x07`
129			`ABSOLUTE PARITY_ERROR_MSG = 0x09`
130			`ABSOLUTE SIMPLE_TAG_MSG = 0x20`
131			`ABSOLUTE IDENTIFY_MSG = 0x80`
132			`ABSOLUTE IDENTIFY_MSG_MASK = 0x7F`
133			`ABSOLUTE TWO_BYTE_MSG = 0x20`
134			`ABSOLUTE TWO_BYTE_MSG_MASK = 0x0F`
135
136			`; This is where the script begins`
137
138			`ENTRY StartUp`
139
140			`StartUp:`
141			`SELECT ATN Device_ID, Reselect`
142			`JUMP Finish, WHEN STATUS`
143			`JUMP SendIdentifyMsg, IF MSG_OUT`
144			`INT NOT_MSG_OUT_AFTER_SELECTION`
145
146			`Reselect:`
147			`WAIT RESELECT SelectedAsTarget`
148			`INT RESELECTED_DURING_SELECTION, WHEN MSG_IN`
149			`INT FATAL_NOT_MSG_IN_AFTER_SELECTION`
150
151			`ENTRY GetReselectionData`
152			`GetReselectionData:`
153			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
154			`INT RESELECTION_IDENTIFIED`
155
156			`ENTRY GetReselectionWithTag`
157			`GetReselectionWithTag:`
158			`MOVE 3, ReceiveMsgAddress, WHEN MSG_IN`
159			`INT RESELECTION_IDENTIFIED`
160
161			`ENTRY SelectedAsTarget`
162			`SelectedAsTarget:`
163			`; Basically tell the selecting device that there's nothing here`
164			`SET TARGET`
165			`DISCONNECT`
166			`CLEAR TARGET`
167			`INT COMPLETED_SELECTION_AS_TARGET`
168			`;`
169			`; These are the messaging entries`
170			`;`
171			`; Send a message. Message count should be correctly patched`
172			`ENTRY SendMessage`
173			`SendMessage:`
174			`MOVE MessageCount, MessageLocation, WHEN MSG_OUT`
175			`ResumeSendMessage:`
176			`RETURN, WHEN NOT MSG_OUT`
177			`INT FATAL_SEND_MSG`
178
179			`ENTRY SendMessagePhaseMismatch`
180			`SendMessagePhaseMismatch:`
181			`CLEAR ACK`
182			`JUMP ResumeSendMessage`
183			`;`
184			`; Receive a message. Need to identify the message to`
185			`; receive it correctly`
186			`ENTRY ReceiveMessage`
187			`ReceiveMessage:`
188			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
189			`;`
190			`; Use this entry if we've just tried to look at the first byte`
191			`; of the message and want to process it further`
192			`ProcessReceiveMessage:`
193			`JUMP ReceiveExtendedMessage, IF EXTENDED_MSG`
194			`RETURN, IF NOT TWO_BYTE_MSG, AND MASK TWO_BYTE_MSG_MASK`
195			`CLEAR ACK`
196			`MOVE 1, ReceiveMsgAddress + 1, WHEN MSG_IN`
197			`RETURN`
198			`ReceiveExtendedMessage:`
199			`CLEAR ACK`
200			`MOVE 1, ReceiveMsgAddress + 1, WHEN MSG_IN`
201			`JUMP Receive1Byte, IF 0x01`
202			`JUMP Receive2Byte, IF 0x02`
203			`JUMP Receive3Byte, IF 0x03`
204			`JUMP Receive4Byte, IF 0x04`
205			`JUMP Receive5Byte, IF 0x05`
206			`INT FATAL_ILLEGAL_MSG_LENGTH`
207			`Receive1Byte:`
208			`CLEAR ACK`
209			`MOVE 1, ReceiveMsgAddress + 2, WHEN MSG_IN`
210			`RETURN`
211			`Receive2Byte:`
212			`CLEAR ACK`
213			`MOVE 2, ReceiveMsgAddress + 2, WHEN MSG_IN`
214			`RETURN`
215			`Receive3Byte:`
216			`CLEAR ACK`
217			`MOVE 3, ReceiveMsgAddress + 2, WHEN MSG_IN`
218			`RETURN`
219			`Receive4Byte:`
220			`CLEAR ACK`
221			`MOVE 4, ReceiveMsgAddress + 2, WHEN MSG_IN`
222			`RETURN`
223			`Receive5Byte:`
224			`CLEAR ACK`
225			`MOVE 5, ReceiveMsgAddress + 2, WHEN MSG_IN`
226			`RETURN`
227			`;`
228			`; Come here from the message processor to ignore the message`
229			`;`
230			`ENTRY IgnoreMessage`
231			`IgnoreMessage:`
232			`CLEAR ACK`
233			`RETURN`
234			`;`
235			`; Come here to send a reply to a message`
236			`;`
237			`ENTRY SendMessageWithATN`
238			`SendMessageWithATN:`
239			`SET ATN`
240			`CLEAR ACK`
241			`JUMP SendMessage`
242
243			`SendIdentifyMsg:`
244			`CALL SendMessage`
245			`CLEAR ATN`
246
247			`IgnoreMsgBeforeCommand:`
248			`CLEAR ACK`
249			`ENTRY SendCommand`
250			`SendCommand:`
251			`JUMP Finish, WHEN STATUS`
252			`JUMP MsgInBeforeCommand, IF MSG_IN`
253			`INT UNEXPECTED_PHASE_BEFORE_CMD, IF NOT CMD`
254			`MOVE CommandCount, CommandAddress, WHEN CMD`
255			`ResumeSendCommand:`
256			`JUMP Finish, WHEN STATUS`
257			`JUMP MsgInAfterCmd, IF MSG_IN`
258			`JUMP DataIn, IF DATA_IN`
259			`JUMP DataOut, IF DATA_OUT`
260			`INT UNEXPECTED_PHASE_AFTER_CMD`
261
262			`IgnoreMsgDuringData:`
263			`CLEAR ACK`
264			`; fall through to MsgInDuringData`
265
266			`Entry MsgInDuringData`
267			`MsgInDuringData:`
268			`;`
269			`; Could be we have nothing more to transfer`
270			`;`
271			`JUMP Finish, WHEN STATUS`
272			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
273			`JUMP DisconnectDuringDataIn, IF DISCONNECT_MSG`
274			`JUMP IgnoreMsgDuringData, IF SAVE_DATA_PTRS_MSG`
275			`JUMP IgnoreMsgDuringData, IF RESTORE_DATA_PTRS_MSG`
276			`INT MSG_IN_DURING_DATA_IN`
277
278			`MsgInAfterCmd:`
279			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
280			`JUMP DisconnectAfterCmd, IF DISCONNECT_MSG`
281			`JUMP IgnoreMsgInAfterCmd, IF SAVE_DATA_PTRS_MSG`
282			`JUMP IgnoreMsgInAfterCmd, IF RESTORE_DATA_PTRS_MSG`
283			`CALL ProcessReceiveMessage`
284			`INT MSG_IN_AFTER_CMD`
285			`CLEAR ACK`
286			`JUMP ResumeSendCommand`
287
288			`IgnoreMsgInAfterCmd:`
289			`CLEAR ACK`
290			`JUMP ResumeSendCommand`
291
292			`DisconnectAfterCmd:`
293			`CLEAR ACK`
294			`WAIT DISCONNECT`
295			`ENTRY Disconnect1`
296			`Disconnect1:`
297			`INT DISCONNECT_AFTER_CMD`
298			`ENTRY Disconnect2`
299			`Disconnect2:`
300			`; We return here after a reselection`
301			`CLEAR ACK`
302			`JUMP ResumeSendCommand`
303
304			`MsgInBeforeCommand:`
305			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
306			`JUMP IgnoreMsgBeforeCommand, IF SAVE_DATA_PTRS_MSG`
307			`JUMP IgnoreMsgBeforeCommand, IF RESTORE_DATA_PTRS_MSG`
308			`CALL ProcessReceiveMessage`
309			`INT MSG_IN_BEFORE_CMD`
310			`CLEAR ACK`
311			`JUMP SendCommand`
312
313			`DataIn:`
314			`CALL SGScriptStartAddress`
315			`ResumeDataIn:`
316			`JUMP Finish, WHEN STATUS`
317			`JUMP MsgInAfterDataIn, IF MSG_IN`
318			`JUMP DataInAfterDataIn, if DATA_IN`
319			`INT MSG_OUT_AFTER_DATA_IN, if MSG_OUT`
320			`INT UNEXPECTED_PHASE_AFTER_DATA_IN`
321
322			`DataInAfterDataIn:`
323			`INT DATA_IN_AFTER_DATA_IN`
324			`JUMP ResumeDataIn`
325
326			`DataOut:`
327			`CALL SGScriptStartAddress`
328			`ResumeDataOut:`
329			`JUMP Finish, WHEN STATUS`
330			`JUMP MsgInAfterDataOut, IF MSG_IN`
331			`INT UNEXPECTED_PHASE_AFTER_DATA_OUT`
332
333			`MsgInAfterDataIn:`
334			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
335			`JUMP DisconnectAfterDataIn, IF DISCONNECT_MSG`
336			`JUMP IgnoreMsgAfterData, IF SAVE_DATA_PTRS_MSG`
337			`JUMP IgnoreMsgAfterData, IF RESTORE_DATA_PTRS_MSG`
338			`CALL ProcessReceiveMessage`
339			`INT MSG_IN_AFTER_DATA_IN`
340			`CLEAR ACK`
341			`JUMP ResumeDataIn`
342
343			`DisconnectDuringDataIn:`
344			`CLEAR ACK`
345			`WAIT DISCONNECT`
346			`ENTRY Disconnect3`
347			`Disconnect3:`
348			`INT DISCONNECT_DURING_DATA`
349			`ENTRY Disconnect4`
350			`Disconnect4:`
351			`; we return here after a reselection`
352			`CLEAR ACK`
353			`JUMP ResumeSendCommand`
354
355
356			`DisconnectAfterDataIn:`
357			`CLEAR ACK`
358			`WAIT DISCONNECT`
359			`ENTRY Disconnect5`
360			`Disconnect5:`
361			`INT DISCONNECT_AFTER_DATA`
362			`ENTRY Disconnect6`
363			`Disconnect6:`
364			`; we return here after a reselection`
365			`CLEAR ACK`
366			`JUMP ResumeDataIn`
367
368			`MsgInAfterDataOut:`
369			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
370			`JUMP DisconnectAfterDataOut, if DISCONNECT_MSG`
371			`JUMP IgnoreMsgAfterData, IF SAVE_DATA_PTRS_MSG`
372			`JUMP IgnoreMsgAfterData, IF RESTORE_DATA_PTRS_MSG`
373			`CALL ProcessReceiveMessage`
374			`INT MSG_IN_AFTER_DATA_OUT`
375			`CLEAR ACK`
376			`JUMP ResumeDataOut`
377
378			`IgnoreMsgAfterData:`
379			`CLEAR ACK`
380			`; Data in and out do the same thing on resume, so pick one`
381			`JUMP ResumeDataIn`
382
383			`DisconnectAfterDataOut:`
384			`CLEAR ACK`
385			`WAIT DISCONNECT`
386			`ENTRY Disconnect7`
387			`Disconnect7:`
388			`INT DISCONNECT_AFTER_DATA`
389			`ENTRY Disconnect8`
390			`Disconnect8:`
391			`; we return here after a reselection`
392			`CLEAR ACK`
393			`JUMP ResumeDataOut`
394
395			`Finish:`
396			`MOVE 1, StatusAddress, WHEN STATUS`
397			`INT NOT_MSG_IN_AFTER_STATUS, WHEN NOT MSG_IN`
398			`MOVE 1, ReceiveMsgAddress, WHEN MSG_IN`
399			`JUMP FinishCommandComplete, IF COMMAND_COMPLETE_MSG`
400			`CALL ProcessReceiveMessage`
401			`INT MSG_IN_AFTER_STATUS`
402			`ENTRY FinishCommandComplete`
403			`FinishCommandComplete:`
404			`CLEAR ACK`
405			`WAIT DISCONNECT`
406			`ENTRY Finish1`
407			`Finish1:`
408			`INT GOOD_STATUS_AFTER_STATUS`
409			`ENTRY Finish2`
410			`Finish2:`
411