Quelle  53c700.scr   Sprache: unbekannt

; 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 preceded 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: