53c700.scr
上传用户:jlfgdled
上传日期:2013-04-10
资源大小:33168k
文件大小:11k
- ; 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: