412 lines
11 KiB
Plaintext
Executable file
412 lines
11 KiB
Plaintext
Executable file
; 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:
|
|
|