Annotation of sys/dev/microcode/aic7xxx/aic79xx.seq, Revision 1.1
1.1 ! nbrk 1: /* $OpenBSD: aic79xx.seq,v 1.8 2007/05/26 00:36:03 krw Exp $ */
! 2: /*
! 3: * Adaptec U320 device driver firmware for Linux and FreeBSD.
! 4: *
! 5: * Copyright (c) 1994-2001, 2004 Justin T. Gibbs.
! 6: * Copyright (c) 2000-2002 Adaptec Inc.
! 7: * All rights reserved.
! 8: *
! 9: * Redistribution and use in source and binary forms, with or without
! 10: * modification, are permitted provided that the following conditions
! 11: * are met:
! 12: * 1. Redistributions of source code must retain the above copyright
! 13: * notice, this list of conditions, and the following disclaimer,
! 14: * without modification.
! 15: * 2. Redistributions in binary form must reproduce at minimum a disclaimer
! 16: * substantially similar to the "NO WARRANTY" disclaimer below
! 17: * ("Disclaimer") and any redistribution must be conditioned upon
! 18: * including a substantially similar Disclaimer requirement for further
! 19: * binary redistribution.
! 20: * 3. Neither the names of the above-listed copyright holders nor the names
! 21: * of any contributors may be used to endorse or promote products derived
! 22: * from this software without specific prior written permission.
! 23: *
! 24: * Alternatively, this software may be distributed under the terms of the
! 25: * GNU General Public License ("GPL") version 2 as published by the Free
! 26: * Software Foundation.
! 27: *
! 28: * NO WARRANTY
! 29: * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! 30: * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
! 31: * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
! 32: * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
! 33: * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
! 34: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
! 35: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
! 36: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
! 37: * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
! 38: * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! 39: * POSSIBILITY OF SUCH DAMAGES.
! 40: *
! 41: * $FreeBSD: src/sys/dev/aic7xxx/aic79xx.seq,v 1.17 2004/08/04 17:55:34 gibbs Exp $
! 42: */
! 43:
! 44: VERSION = "$Id: aic79xx.seq,v 1.8 2007/05/26 00:36:03 krw Exp $"
! 45: PATCH_ARG_LIST = "struct ahd_softc *ahd"
! 46: PREFIX = "ahd_"
! 47:
! 48: #include <dev/microcode/aic7xxx/aic79xx.reg>
! 49: #include <scsi/scsi_message.h>
! 50:
! 51: restart:
! 52: if ((ahd->bugs & AHD_INTCOLLISION_BUG) != 0) {
! 53: test SEQINTCODE, 0xFF jz idle_loop;
! 54: SET_SEQINTCODE(NO_SEQINT)
! 55: }
! 56:
! 57: idle_loop:
! 58:
! 59: if ((ahd->bugs & AHD_INTCOLLISION_BUG) != 0) {
! 60: /*
! 61: * Convert ERROR status into a sequencer
! 62: * interrupt to handle the case of an
! 63: * interrupt collision on the hardware
! 64: * setting of HWERR.
! 65: */
! 66: test ERROR, 0xFF jz no_error_set;
! 67: SET_SEQINTCODE(SAW_HWERR)
! 68: no_error_set:
! 69: }
! 70: SET_MODE(M_SCSI, M_SCSI)
! 71: test SCSISEQ0, ENSELO|ENARBO jnz idle_loop_checkbus;
! 72: test SEQ_FLAGS2, SELECTOUT_QFROZEN jz check_waiting_list;
! 73: /*
! 74: * If the kernel has caught up with us, thaw the queue.
! 75: */
! 76: mov A, KERNEL_QFREEZE_COUNT;
! 77: cmp QFREEZE_COUNT, A jne check_frozen_completions;
! 78: mov A, KERNEL_QFREEZE_COUNT[1];
! 79: cmp QFREEZE_COUNT[1], A jne check_frozen_completions;
! 80: and SEQ_FLAGS2, ~SELECTOUT_QFROZEN;
! 81: jmp check_waiting_list;
! 82: check_frozen_completions:
! 83: test SSTAT0, SELDO|SELINGO jnz idle_loop_checkbus;
! 84: BEGIN_CRITICAL;
! 85: /*
! 86: * If we have completions stalled waiting for the qfreeze
! 87: * to take effect, move them over to the complete_scb list
! 88: * now that no selections are pending.
! 89: */
! 90: cmp COMPLETE_ON_QFREEZE_HEAD[1],SCB_LIST_NULL je idle_loop_checkbus;
! 91: /*
! 92: * Find the end of the qfreeze list. The first element has
! 93: * to be treated specially.
! 94: */
! 95: bmov SCBPTR, COMPLETE_ON_QFREEZE_HEAD, 2;
! 96: cmp SCB_NEXT_COMPLETE[1], SCB_LIST_NULL je join_lists;
! 97: /*
! 98: * Now the normal loop.
! 99: */
! 100: bmov SCBPTR, SCB_NEXT_COMPLETE, 2;
! 101: cmp SCB_NEXT_COMPLETE[1], SCB_LIST_NULL jne . - 1;
! 102: join_lists:
! 103: bmov SCB_NEXT_COMPLETE, COMPLETE_SCB_HEAD, 2;
! 104: bmov COMPLETE_SCB_HEAD, COMPLETE_ON_QFREEZE_HEAD, 2;
! 105: mvi COMPLETE_ON_QFREEZE_HEAD[1], SCB_LIST_NULL;
! 106: jmp idle_loop_checkbus;
! 107: check_waiting_list:
! 108: cmp WAITING_TID_HEAD[1], SCB_LIST_NULL je idle_loop_checkbus;
! 109: /*
! 110: * ENSELO is cleared by a SELDO, so we must test for SELDO
! 111: * one last time.
! 112: */
! 113: test SSTAT0, SELDO jnz select_out;
! 114: call start_selection;
! 115: idle_loop_checkbus:
! 116: test SSTAT0, SELDO jnz select_out;
! 117: END_CRITICAL;
! 118: test SSTAT0, SELDI jnz select_in;
! 119: test SCSIPHASE, ~DATA_PHASE_MASK jz idle_loop_check_nonpackreq;
! 120: test SCSISIGO, ATNO jz idle_loop_check_nonpackreq;
! 121: call unexpected_nonpkt_phase_find_ctxt;
! 122: idle_loop_check_nonpackreq:
! 123: test SSTAT2, NONPACKREQ jz . + 2;
! 124: call unexpected_nonpkt_phase_find_ctxt;
! 125: if ((ahd->bugs & AHD_FAINT_LED_BUG) != 0) {
! 126: /*
! 127: * On Rev A. hardware, the busy LED is only
! 128: * turned on automatically during selections
! 129: * and re-selections. Make the LED status
! 130: * more useful by forcing it to be on so
! 131: * long as one of our data FIFOs is active.
! 132: */
! 133: and A, FIFO0FREE|FIFO1FREE, DFFSTAT;
! 134: cmp A, FIFO0FREE|FIFO1FREE jne . + 3;
! 135: and SBLKCTL, ~DIAGLEDEN|DIAGLEDON;
! 136: jmp . + 2;
! 137: or SBLKCTL, DIAGLEDEN|DIAGLEDON;
! 138: }
! 139: call idle_loop_gsfifo_in_scsi_mode;
! 140: call idle_loop_service_fifos;
! 141: call idle_loop_cchan;
! 142: jmp idle_loop;
! 143:
! 144: idle_loop_gsfifo:
! 145: SET_MODE(M_SCSI, M_SCSI)
! 146: BEGIN_CRITICAL;
! 147: idle_loop_gsfifo_in_scsi_mode:
! 148: test LQISTAT2, LQIGSAVAIL jz return;
! 149: /*
! 150: * We have received good status for this transaction. There may
! 151: * still be data in our FIFOs draining to the host. Complete
! 152: * the SCB only if all data has transferred to the host.
! 153: */
! 154: good_status_IU_done:
! 155: bmov SCBPTR, GSFIFO, 2;
! 156: clr SCB_SCSI_STATUS;
! 157: /*
! 158: * If a command completed before an attempted task management
! 159: * function completed, notify the host after disabling any
! 160: * pending select-outs.
! 161: */
! 162: test SCB_TASK_MANAGEMENT, 0xFF jz gsfifo_complete_normally;
! 163: test SSTAT0, SELDO|SELINGO jnz . + 2;
! 164: and SCSISEQ0, ~ENSELO;
! 165: SET_SEQINTCODE(TASKMGMT_CMD_CMPLT_OKAY)
! 166: gsfifo_complete_normally:
! 167: or SCB_CONTROL, STATUS_RCVD;
! 168:
! 169: /*
! 170: * Since this status did not consume a FIFO, we have to
! 171: * be a bit more diligent in how we check for FIFOs pertaining
! 172: * to this transaction. There are two states that a FIFO still
! 173: * transferring data may be in.
! 174: *
! 175: * 1) Configured and draining to the host, with a FIFO handler.
! 176: * 2) Pending cfg4data, fifo not empty.
! 177: *
! 178: * Case 1 can be detected by noticing a non-zero FIFO active
! 179: * count in the SCB. In this case, we allow the routine servicing
! 180: * the FIFO to complete the SCB.
! 181: *
! 182: * Case 2 implies either a pending or yet to occur save data
! 183: * pointers for this same context in the other FIFO. So, if
! 184: * we detect case 1, we will properly defer the post of the SCB
! 185: * and achieve the desired result. The pending cfg4data will
! 186: * notice that status has been received and complete the SCB.
! 187: */
! 188: test SCB_FIFO_USE_COUNT, 0xFF jnz idle_loop_gsfifo_in_scsi_mode;
! 189: call complete;
! 190: END_CRITICAL;
! 191: jmp idle_loop_gsfifo_in_scsi_mode;
! 192:
! 193: idle_loop_service_fifos:
! 194: SET_MODE(M_DFF0, M_DFF0)
! 195: BEGIN_CRITICAL;
! 196: test LONGJMP_ADDR[1], INVALID_ADDR jnz idle_loop_next_fifo;
! 197: call longjmp;
! 198: END_CRITICAL;
! 199: idle_loop_next_fifo:
! 200: SET_MODE(M_DFF1, M_DFF1)
! 201: BEGIN_CRITICAL;
! 202: test LONGJMP_ADDR[1], INVALID_ADDR jz longjmp;
! 203: END_CRITICAL;
! 204: return:
! 205: ret;
! 206:
! 207: idle_loop_cchan:
! 208: SET_MODE(M_CCHAN, M_CCHAN)
! 209: test QOFF_CTLSTA, HS_MAILBOX_ACT jz hs_mailbox_empty;
! 210: or QOFF_CTLSTA, HS_MAILBOX_ACT;
! 211: mov LOCAL_HS_MAILBOX, HS_MAILBOX;
! 212: hs_mailbox_empty:
! 213: BEGIN_CRITICAL;
! 214: test CCSCBCTL, CCARREN|CCSCBEN jz scbdma_idle;
! 215: test CCSCBCTL, CCSCBDIR jnz fetch_new_scb_inprog;
! 216: test CCSCBCTL, CCSCBDONE jz return;
! 217: /* FALLTHROUGH */
! 218: scbdma_tohost_done:
! 219: test CCSCBCTL, CCARREN jz fill_qoutfifo_dmadone;
! 220: /*
! 221: * An SCB has been successfully uploaded to the host.
! 222: * If the SCB was uploaded for some reason other than
! 223: * bad SCSI status (currently only for underruns), we
! 224: * queue the SCB for normal completion. Otherwise, we
! 225: * wait until any select-out activity has halted, and
! 226: * then queue the completion.
! 227: */
! 228: and CCSCBCTL, ~(CCARREN|CCSCBEN);
! 229: bmov COMPLETE_DMA_SCB_HEAD, SCB_NEXT_COMPLETE, 2;
! 230: cmp SCB_NEXT_COMPLETE[1], SCB_LIST_NULL jne . + 2;
! 231: mvi COMPLETE_DMA_SCB_TAIL[1], SCB_LIST_NULL;
! 232: test SCB_SCSI_STATUS, 0xff jz scbdma_queue_completion;
! 233: bmov SCB_NEXT_COMPLETE, COMPLETE_ON_QFREEZE_HEAD, 2;
! 234: bmov COMPLETE_ON_QFREEZE_HEAD, SCBPTR, 2 ret;
! 235: scbdma_queue_completion:
! 236: bmov SCB_NEXT_COMPLETE, COMPLETE_SCB_HEAD, 2;
! 237: bmov COMPLETE_SCB_HEAD, SCBPTR, 2 ret;
! 238: fill_qoutfifo_dmadone:
! 239: and CCSCBCTL, ~(CCARREN|CCSCBEN);
! 240: call qoutfifo_updated;
! 241: mvi COMPLETE_SCB_DMAINPROG_HEAD[1], SCB_LIST_NULL;
! 242: bmov QOUTFIFO_NEXT_ADDR, SCBHADDR, 4;
! 243: test QOFF_CTLSTA, SDSCB_ROLLOVR jz return;
! 244: bmov QOUTFIFO_NEXT_ADDR, SHARED_DATA_ADDR, 4;
! 245: xor QOUTFIFO_ENTRY_VALID_TAG, QOUTFIFO_ENTRY_VALID_TOGGLE ret;
! 246: END_CRITICAL;
! 247:
! 248: qoutfifo_updated:
! 249: /*
! 250: * If there are more commands waiting to be dma'ed
! 251: * to the host, always coalesce. Otherwise honor the
! 252: * host's wishes.
! 253: */
! 254: cmp COMPLETE_DMA_SCB_HEAD[1], SCB_LIST_NULL jne coalesce_by_count;
! 255: cmp COMPLETE_SCB_HEAD[1], SCB_LIST_NULL jne coalesce_by_count;
! 256: test LOCAL_HS_MAILBOX, ENINT_COALESCE jz issue_cmdcmplt;
! 257:
! 258: /*
! 259: * If we have relatively few commands outstanding, don't
! 260: * bother waiting for another command to complete.
! 261: */
! 262: test CMDS_PENDING[1], 0xFF jnz coalesce_by_count;
! 263: /* Add -1 so that jnc means <= not just < */
! 264: add A, -1, INT_COALESCING_MINCMDS;
! 265: add NONE, A, CMDS_PENDING;
! 266: jnc issue_cmdcmplt;
! 267:
! 268: /*
! 269: * If coalescing, only coalesce up to the limit
! 270: * provided by the host driver.
! 271: */
! 272: coalesce_by_count:
! 273: mov A, INT_COALESCING_MAXCMDS;
! 274: add NONE, A, INT_COALESCING_CMDCOUNT;
! 275: jc issue_cmdcmplt;
! 276: /*
! 277: * If the timer is not currently active,
! 278: * fire it up.
! 279: */
! 280: test INTCTL, SWTMINTMASK jz return;
! 281: bmov SWTIMER, INT_COALESCING_TIMER, 2;
! 282: mvi CLRSEQINTSTAT, CLRSEQ_SWTMRTO;
! 283: or INTCTL, SWTMINTEN|SWTIMER_START;
! 284: and INTCTL, ~SWTMINTMASK ret;
! 285:
! 286: issue_cmdcmplt:
! 287: mvi INTSTAT, CMDCMPLT;
! 288: clr INT_COALESCING_CMDCOUNT;
! 289: or INTCTL, SWTMINTMASK ret;
! 290:
! 291: BEGIN_CRITICAL;
! 292: fetch_new_scb_inprog:
! 293: test CCSCBCTL, ARRDONE jz return;
! 294: fetch_new_scb_done:
! 295: and CCSCBCTL, ~(CCARREN|CCSCBEN);
! 296: clr A;
! 297: add CMDS_PENDING, 1;
! 298: adc CMDS_PENDING[1], A;
! 299: if ((ahd->bugs & AHD_PKT_LUN_BUG) != 0) {
! 300: /*
! 301: * "Short Luns" are not placed into outgoing LQ
! 302: * packets in the correct byte order. Use a full
! 303: * sized lun field instead and fill it with the
! 304: * one byte of lun information we support.
! 305: */
! 306: mov SCB_PKT_LUN[6], SCB_LUN;
! 307: }
! 308: /*
! 309: * The FIFO use count field is shared with the
! 310: * tag set by the host so that our SCB dma engine
! 311: * knows the correct location to store the SCB.
! 312: * Set it to zero before processing the SCB.
! 313: */
! 314: clr SCB_FIFO_USE_COUNT;
! 315: /* Update the next SCB address to download. */
! 316: bmov NEXT_QUEUED_SCB_ADDR, SCB_NEXT_SCB_BUSADDR, 4;
! 317: /*
! 318: * NULL out the SCB links since these fields
! 319: * occupy the same location as SCB_NEXT_SCB_BUSADDR.
! 320: */
! 321: mvi SCB_NEXT[1], SCB_LIST_NULL;
! 322: mvi SCB_NEXT2[1], SCB_LIST_NULL;
! 323: /* Increment our position in the QINFIFO. */
! 324: mov NONE, SNSCB_QOFF;
! 325:
! 326: /*
! 327: * Save SCBID of this SCB in REG0 since
! 328: * SCBPTR will be clobbered during target
! 329: * list updates. We also record the SCB's
! 330: * flags so that we can refer to them even
! 331: * after SCBPTR has been changed.
! 332: */
! 333: bmov REG0, SCBPTR, 2;
! 334: mov A, SCB_CONTROL;
! 335:
! 336: /*
! 337: * Find the tail SCB of the execution queue
! 338: * for this target.
! 339: */
! 340: shr SINDEX, 3, SCB_SCSIID;
! 341: and SINDEX, ~0x1;
! 342: mvi SINDEX[1], (WAITING_SCB_TAILS >> 8);
! 343: bmov DINDEX, SINDEX, 2;
! 344: bmov SCBPTR, SINDIR, 2;
! 345:
! 346: /*
! 347: * Update the tail to point to the new SCB.
! 348: */
! 349: bmov DINDIR, REG0, 2;
! 350:
! 351: /*
! 352: * If the queue was empty, queue this SCB as
! 353: * the first for this target.
! 354: */
! 355: cmp SCBPTR[1], SCB_LIST_NULL je first_new_target_scb;
! 356:
! 357: /*
! 358: * SCBs that want to send messages must always be
! 359: * at the head of their per-target queue so that
! 360: * ATN can be asserted even if the current
! 361: * negotiation agreement is packetized. If the
! 362: * target queue is empty, the SCB can be queued
! 363: * immediately. If the queue is not empty, we must
! 364: * wait for it to empty before entering this SCB
! 365: * into the waiting for selection queue. Otherwise
! 366: * our batching and round-robin selection scheme
! 367: * could allow commands to be queued out of order.
! 368: * To simplify the implementation, we stop pulling
! 369: * new commands from the host until the MK_MESSAGE
! 370: * SCB can be queued to the waiting for selection
! 371: * list.
! 372: */
! 373: test A, MK_MESSAGE jz batch_scb;
! 374:
! 375: /*
! 376: * If the last SCB is also a MK_MESSAGE SCB, then
! 377: * order is preserved even if we batch.
! 378: */
! 379: test SCB_CONTROL, MK_MESSAGE jz batch_scb;
! 380:
! 381: /*
! 382: * Defer this SCB and stop fetching new SCBs until
! 383: * it can be queued. Since the SCB_SCSIID of the
! 384: * tail SCB must be the same as that of the newly
! 385: * queued SCB, there is no need to restore the SCBID
! 386: * here.
! 387: */
! 388: or SEQ_FLAGS2, PENDING_MK_MESSAGE;
! 389: bmov MK_MESSAGE_SCB, REG0, 2;
! 390: mov MK_MESSAGE_SCSIID, SCB_SCSIID ret;
! 391:
! 392: batch_scb:
! 393: /*
! 394: * Otherwise just update the previous tail SCB to
! 395: * point to the new tail.
! 396: */
! 397: bmov SCB_NEXT, REG0, 2 ret;
! 398:
! 399: first_new_target_scb:
! 400: /*
! 401: * Append SCB to the tail of the waiting for
! 402: * selection list.
! 403: */
! 404: cmp WAITING_TID_HEAD[1], SCB_LIST_NULL je first_new_scb;
! 405: bmov SCBPTR, WAITING_TID_TAIL, 2;
! 406: bmov SCB_NEXT2, REG0, 2;
! 407: bmov WAITING_TID_TAIL, REG0, 2 ret;
! 408: first_new_scb:
! 409: /*
! 410: * Whole list is empty, so the head of
! 411: * the list must be initialized too.
! 412: */
! 413: bmov WAITING_TID_HEAD, REG0, 2;
! 414: bmov WAITING_TID_TAIL, REG0, 2 ret;
! 415: END_CRITICAL;
! 416:
! 417: scbdma_idle:
! 418: /*
! 419: * Don't bother downloading new SCBs to execute
! 420: * if select-outs are currently frozen or we have
! 421: * a MK_MESSAGE SCB waiting to enter the queue.
! 422: */
! 423: test SEQ_FLAGS2, SELECTOUT_QFROZEN|PENDING_MK_MESSAGE
! 424: jnz scbdma_no_new_scbs;
! 425: BEGIN_CRITICAL;
! 426: test QOFF_CTLSTA, NEW_SCB_AVAIL jnz fetch_new_scb;
! 427: scbdma_no_new_scbs:
! 428: cmp COMPLETE_DMA_SCB_HEAD[1], SCB_LIST_NULL jne dma_complete_scb;
! 429: cmp COMPLETE_SCB_HEAD[1], SCB_LIST_NULL je return;
! 430: /* FALLTHROUGH */
! 431: fill_qoutfifo:
! 432: /*
! 433: * Keep track of the SCBs we are dmaing just
! 434: * in case the DMA fails or is aborted.
! 435: */
! 436: bmov COMPLETE_SCB_DMAINPROG_HEAD, COMPLETE_SCB_HEAD, 2;
! 437: mvi CCSCBCTL, CCSCBRESET;
! 438: bmov SCBHADDR, QOUTFIFO_NEXT_ADDR, 4;
! 439: mov A, QOUTFIFO_NEXT_ADDR;
! 440: bmov SCBPTR, COMPLETE_SCB_HEAD, 2;
! 441: fill_qoutfifo_loop:
! 442: bmov CCSCBRAM, SCBPTR, 2;
! 443: mov CCSCBRAM, SCB_SGPTR[0];
! 444: mov CCSCBRAM, QOUTFIFO_ENTRY_VALID_TAG;
! 445: mov NONE, SDSCB_QOFF;
! 446: inc INT_COALESCING_CMDCOUNT;
! 447: add CMDS_PENDING, -1;
! 448: adc CMDS_PENDING[1], -1;
! 449: cmp SCB_NEXT_COMPLETE[1], SCB_LIST_NULL je fill_qoutfifo_done;
! 450: cmp CCSCBADDR, CCSCBADDR_MAX je fill_qoutfifo_done;
! 451: test QOFF_CTLSTA, SDSCB_ROLLOVR jnz fill_qoutfifo_done;
! 452: /*
! 453: * Don't cross an ADB or Cachline boundary when DMA'ing
! 454: * completion entries. In PCI mode, at least in 32/33
! 455: * configurations, the SCB DMA engine may lose its place
! 456: * in the data-stream should the target force a retry on
! 457: * something other than an 8byte aligned boundary. In
! 458: * PCI-X mode, we do this to avoid split transactions since
! 459: * many chipsets seem to be unable to format proper split
! 460: * completions to continue the data transfer.
! 461: */
! 462: add SINDEX, A, CCSCBADDR;
! 463: test SINDEX, CACHELINE_MASK jz fill_qoutfifo_done;
! 464: bmov SCBPTR, SCB_NEXT_COMPLETE, 2;
! 465: jmp fill_qoutfifo_loop;
! 466: fill_qoutfifo_done:
! 467: mov SCBHCNT, CCSCBADDR;
! 468: mvi CCSCBCTL, CCSCBEN|CCSCBRESET;
! 469: bmov COMPLETE_SCB_HEAD, SCB_NEXT_COMPLETE, 2;
! 470: mvi SCB_NEXT_COMPLETE[1], SCB_LIST_NULL ret;
! 471:
! 472: fetch_new_scb:
! 473: bmov SCBHADDR, NEXT_QUEUED_SCB_ADDR, 4;
! 474: mvi CCARREN|CCSCBEN|CCSCBDIR|CCSCBRESET jmp dma_scb;
! 475: dma_complete_scb:
! 476: bmov SCBPTR, COMPLETE_DMA_SCB_HEAD, 2;
! 477: bmov SCBHADDR, SCB_BUSADDR, 4;
! 478: mvi CCARREN|CCSCBEN|CCSCBRESET jmp dma_scb;
! 479:
! 480: /*
! 481: * Either post or fetch an SCB from host memory. The caller
! 482: * is responsible for polling for transfer completion.
! 483: *
! 484: * Prerequisites: Mode == M_CCHAN
! 485: * SINDEX contains CCSCBCTL flags
! 486: * SCBHADDR set to Host SCB address
! 487: * SCBPTR set to SCB src location on "push" operations
! 488: */
! 489: SET_SRC_MODE M_CCHAN;
! 490: SET_DST_MODE M_CCHAN;
! 491: dma_scb:
! 492: mvi SCBHCNT, SCB_TRANSFER_SIZE;
! 493: mov CCSCBCTL, SINDEX ret;
! 494:
! 495: setjmp:
! 496: /*
! 497: * At least on the A, a return in the same
! 498: * instruction as the bmov results in a return
! 499: * to the caller, not to the new address at the
! 500: * top of the stack. Since we want the latter
! 501: * (we use setjmp to register a handler from an
! 502: * interrupt context but not invoke that handler
! 503: * until we return to our idle loop), use a
! 504: * separate ret instruction.
! 505: */
! 506: bmov LONGJMP_ADDR, STACK, 2;
! 507: ret;
! 508: setjmp_inline:
! 509: bmov LONGJMP_ADDR, STACK, 2;
! 510: longjmp:
! 511: bmov STACK, LONGJMP_ADDR, 2 ret;
! 512: END_CRITICAL;
! 513:
! 514: /*************************** Chip Bug Work Arounds ****************************/
! 515: /*
! 516: * Must disable interrupts when setting the mode pointer
! 517: * register as an interrupt occurring mid update will
! 518: * fail to store the new mode value for restoration on
! 519: * an iret.
! 520: */
! 521: if ((ahd->bugs & AHD_SET_MODE_BUG) != 0) {
! 522: set_mode_work_around:
! 523: mvi SEQINTCTL, INTVEC1DSL;
! 524: mov MODE_PTR, SINDEX;
! 525: clr SEQINTCTL ret;
! 526: }
! 527:
! 528:
! 529: if ((ahd->bugs & AHD_INTCOLLISION_BUG) != 0) {
! 530: set_seqint_work_around:
! 531: mov SEQINTCODE, SINDEX;
! 532: mvi SEQINTCODE, NO_SEQINT ret;
! 533: }
! 534:
! 535: /************************ Packetized LongJmp Routines *************************/
! 536: SET_SRC_MODE M_SCSI;
! 537: SET_DST_MODE M_SCSI;
! 538: start_selection:
! 539: BEGIN_CRITICAL;
! 540: if ((ahd->bugs & AHD_SENT_SCB_UPDATE_BUG) != 0) {
! 541: /*
! 542: * Razor #494
! 543: * Rev A hardware fails to update LAST/CURR/NEXTSCB
! 544: * correctly after a packetized selection in several
! 545: * situations:
! 546: *
! 547: * 1) If only one command existed in the queue, the
! 548: * LAST/CURR/NEXTSCB are unchanged.
! 549: *
! 550: * 2) In a non QAS, protocol allowed phase change,
! 551: * the queue is shifted 1 too far. LASTSCB is
! 552: * the last SCB that was correctly processed.
! 553: *
! 554: * 3) In the QAS case, if the full list of commands
! 555: * was successfully sent, NEXTSCB is NULL and neither
! 556: * CURRSCB nor LASTSCB can be trusted. We must
! 557: * manually walk the list counting MAXCMDCNT elements
! 558: * to find the last SCB that was sent correctly.
! 559: *
! 560: * To simplify the workaround for this bug in SELDO
! 561: * handling, we initialize LASTSCB prior to enabling
! 562: * selection so we can rely on it even for case #1 above.
! 563: */
! 564: bmov LASTSCB, WAITING_TID_HEAD, 2;
! 565: }
! 566: bmov CURRSCB, WAITING_TID_HEAD, 2;
! 567: bmov SCBPTR, WAITING_TID_HEAD, 2;
! 568: shr SELOID, 4, SCB_SCSIID;
! 569: /*
! 570: * If we want to send a message to the device, ensure
! 571: * we are selecting with atn irregardless of our packetized
! 572: * agreement. Since SPI4 only allows target reset or PPR
! 573: * messages if this is a packetized connection, the change
! 574: * to our negotiation table entry for this selection will
! 575: * be cleared when the message is acted on.
! 576: */
! 577: test SCB_CONTROL, MK_MESSAGE jz . + 3;
! 578: mov NEGOADDR, SELOID;
! 579: or NEGCONOPTS, ENAUTOATNO;
! 580: or SCSISEQ0, ENSELO ret;
! 581: END_CRITICAL;
! 582:
! 583: /*
! 584: * Allocate a FIFO for a non-packetized transaction.
! 585: * In RevA hardware, both FIFOs must be free before we
! 586: * can allocate a FIFO for a non-packetized transaction.
! 587: */
! 588: allocate_fifo_loop:
! 589: /*
! 590: * Do whatever work is required to free a FIFO.
! 591: */
! 592: call idle_loop_service_fifos;
! 593: SET_MODE(M_SCSI, M_SCSI)
! 594: allocate_fifo:
! 595: if ((ahd->bugs & AHD_NONPACKFIFO_BUG) != 0) {
! 596: and A, FIFO0FREE|FIFO1FREE, DFFSTAT;
! 597: cmp A, FIFO0FREE|FIFO1FREE jne allocate_fifo_loop;
! 598: } else {
! 599: test DFFSTAT, FIFO1FREE jnz allocate_fifo1;
! 600: test DFFSTAT, FIFO0FREE jz allocate_fifo_loop;
! 601: mvi DFFSTAT, B_CURRFIFO_0;
! 602: SET_MODE(M_DFF0, M_DFF0)
! 603: bmov SCBPTR, ALLOCFIFO_SCBPTR, 2 ret;
! 604: }
! 605: SET_SRC_MODE M_SCSI;
! 606: SET_DST_MODE M_SCSI;
! 607: allocate_fifo1:
! 608: mvi DFFSTAT, CURRFIFO_1;
! 609: SET_MODE(M_DFF1, M_DFF1)
! 610: bmov SCBPTR, ALLOCFIFO_SCBPTR, 2 ret;
! 611:
! 612: /*
! 613: * We have been reselected as an initiator
! 614: * or selected as a target.
! 615: */
! 616: SET_SRC_MODE M_SCSI;
! 617: SET_DST_MODE M_SCSI;
! 618: select_in:
! 619: if ((ahd->bugs & AHD_FAINT_LED_BUG) != 0) {
! 620: /*
! 621: * On Rev A. hardware, the busy LED is only
! 622: * turned on automatically during selections
! 623: * and re-selections. Make the LED status
! 624: * more useful by forcing it to be on from
! 625: * the point of selection until our idle
! 626: * loop determines that neither of our FIFOs
! 627: * are busy. This handles the non-packetized
! 628: * case nicely as we will not return to the
! 629: * idle loop until the busfree at the end of
! 630: * each transaction.
! 631: */
! 632: or SBLKCTL, DIAGLEDEN|DIAGLEDON;
! 633: }
! 634: if ((ahd->bugs & AHD_BUSFREEREV_BUG) != 0) {
! 635: /*
! 636: * Test to ensure that the bus has not
! 637: * already gone free prior to clearing
! 638: * any stale busfree status. This avoids
! 639: * a window whereby a busfree just after
! 640: * a selection could be missed.
! 641: */
! 642: test SCSISIGI, BSYI jz . + 2;
! 643: mvi CLRSINT1,CLRBUSFREE;
! 644: or SIMODE1, ENBUSFREE;
! 645: }
! 646: or SXFRCTL0, SPIOEN;
! 647: and SAVED_SCSIID, SELID_MASK, SELID;
! 648: and A, OID, IOWNID;
! 649: or SAVED_SCSIID, A;
! 650: mvi CLRSINT0, CLRSELDI;
! 651: jmp ITloop;
! 652:
! 653: /*
! 654: * We have successfully selected out.
! 655: *
! 656: * Clear SELDO.
! 657: * Dequeue all SCBs sent from the waiting queue
! 658: * Requeue all SCBs *not* sent to the tail of the waiting queue
! 659: * Take Razor #494 into account for above.
! 660: *
! 661: * In Packetized Mode:
! 662: * Return to the idle loop. Our interrupt handler will take
! 663: * care of any incoming L_Qs.
! 664: *
! 665: * In Non-Packetize Mode:
! 666: * Continue to our normal state machine.
! 667: */
! 668: SET_SRC_MODE M_SCSI;
! 669: SET_DST_MODE M_SCSI;
! 670: select_out:
! 671: BEGIN_CRITICAL;
! 672: if ((ahd->bugs & AHD_FAINT_LED_BUG) != 0) {
! 673: /*
! 674: * On Rev A. hardware, the busy LED is only
! 675: * turned on automatically during selections
! 676: * and re-selections. Make the LED status
! 677: * more useful by forcing it to be on from
! 678: * the point of re-selection until our idle
! 679: * loop determines that neither of our FIFOs
! 680: * are busy. This handles the non-packetized
! 681: * case nicely as we will not return to the
! 682: * idle loop until the busfree at the end of
! 683: * each transaction.
! 684: */
! 685: or SBLKCTL, DIAGLEDEN|DIAGLEDON;
! 686: }
! 687: /* Clear out all SCBs that have been successfully sent. */
! 688: if ((ahd->bugs & AHD_SENT_SCB_UPDATE_BUG) != 0) {
! 689: /*
! 690: * For packetized, the LQO manager clears ENSELO on
! 691: * the assertion of SELDO. If we are non-packetized,
! 692: * LASTSCB and CURRSCB are accurate.
! 693: */
! 694: test SCSISEQ0, ENSELO jnz use_lastscb;
! 695:
! 696: /*
! 697: * The update is correct for LQOSTAT1 errors. All
! 698: * but LQOBUSFREE are handled by kernel interrupts.
! 699: * If we see LQOBUSFREE, return to the idle loop.
! 700: * Once we are out of the select_out critical section,
! 701: * the kernel will cleanup the LQOBUSFREE and we will
! 702: * eventually restart the selection if appropriate.
! 703: */
! 704: test LQOSTAT1, LQOBUSFREE jnz idle_loop;
! 705:
! 706: /*
! 707: * On a phase change outside of packet boundaries,
! 708: * LASTSCB points to the currently active SCB context
! 709: * on the bus.
! 710: */
! 711: test LQOSTAT2, LQOPHACHGOUTPKT jnz use_lastscb;
! 712:
! 713: /*
! 714: * If the hardware has traversed the whole list, NEXTSCB
! 715: * will be NULL, CURRSCB and LASTSCB cannot be trusted,
! 716: * but MAXCMDCNT is accurate. If we stop part way through
! 717: * the list or only had one command to issue, NEXTSCB[1] is
! 718: * not NULL and LASTSCB is the last command to go out.
! 719: */
! 720: cmp NEXTSCB[1], SCB_LIST_NULL jne use_lastscb;
! 721:
! 722: /*
! 723: * Brute force walk.
! 724: */
! 725: bmov SCBPTR, WAITING_TID_HEAD, 2;
! 726: mvi SEQINTCTL, INTVEC1DSL;
! 727: mvi MODE_PTR, MK_MODE(M_CFG, M_CFG);
! 728: mov A, MAXCMDCNT;
! 729: mvi MODE_PTR, MK_MODE(M_SCSI, M_SCSI);
! 730: clr SEQINTCTL;
! 731: find_lastscb_loop:
! 732: dec A;
! 733: test A, 0xFF jz found_last_sent_scb;
! 734: bmov SCBPTR, SCB_NEXT, 2;
! 735: jmp find_lastscb_loop;
! 736: use_lastscb:
! 737: bmov SCBPTR, LASTSCB, 2;
! 738: found_last_sent_scb:
! 739: bmov CURRSCB, SCBPTR, 2;
! 740: curscb_ww_done:
! 741: } else {
! 742: bmov SCBPTR, CURRSCB, 2;
! 743: }
! 744:
! 745: /*
! 746: * The whole list made it. Clear our tail pointer to indicate
! 747: * that the per-target selection queue is now empty.
! 748: */
! 749: cmp SCB_NEXT[1], SCB_LIST_NULL je select_out_clear_tail;
! 750:
! 751: /*
! 752: * Requeue any SCBs not sent, to the tail of the waiting Q.
! 753: * We know that neither the per-TID list nor the list of
! 754: * TIDs is empty. Use this knowledge to our advantage and
! 755: * queue the remainder to the tail of the global execution
! 756: * queue.
! 757: */
! 758: bmov REG0, SCB_NEXT, 2;
! 759: select_out_queue_remainder:
! 760: bmov SCBPTR, WAITING_TID_TAIL, 2;
! 761: bmov SCB_NEXT2, REG0, 2;
! 762: bmov WAITING_TID_TAIL, REG0, 2;
! 763: jmp select_out_inc_tid_q;
! 764:
! 765: select_out_clear_tail:
! 766: /*
! 767: * Queue any pending MK_MESSAGE SCB for this target now
! 768: * that the queue is empty.
! 769: */
! 770: test SEQ_FLAGS2, PENDING_MK_MESSAGE jz select_out_no_mk_message_scb;
! 771: mov A, MK_MESSAGE_SCSIID;
! 772: cmp SCB_SCSIID, A jne select_out_no_mk_message_scb;
! 773: and SEQ_FLAGS2, ~PENDING_MK_MESSAGE;
! 774: bmov REG0, MK_MESSAGE_SCB, 2;
! 775: jmp select_out_queue_remainder;
! 776:
! 777: select_out_no_mk_message_scb:
! 778: /*
! 779: * Clear this target's execution tail and increment the queue.
! 780: */
! 781: shr DINDEX, 3, SCB_SCSIID;
! 782: or DINDEX, 1; /* Want only the second byte */
! 783: mvi DINDEX[1], ((WAITING_SCB_TAILS) >> 8);
! 784: mvi DINDIR, SCB_LIST_NULL;
! 785: select_out_inc_tid_q:
! 786: bmov SCBPTR, WAITING_TID_HEAD, 2;
! 787: bmov WAITING_TID_HEAD, SCB_NEXT2, 2;
! 788: cmp WAITING_TID_HEAD[1], SCB_LIST_NULL jne . + 2;
! 789: mvi WAITING_TID_TAIL[1], SCB_LIST_NULL;
! 790: bmov SCBPTR, CURRSCB, 2;
! 791: mvi CLRSINT0, CLRSELDO;
! 792: test LQOSTAT2, LQOPHACHGOUTPKT jnz unexpected_nonpkt_mode_cleared;
! 793: test LQOSTAT1, LQOPHACHGINPKT jnz unexpected_nonpkt_mode_cleared;
! 794:
! 795: /*
! 796: * If this is a packetized connection, return to our
! 797: * idle_loop and let our interrupt handler deal with
! 798: * any connection setup/teardown issues. The only
! 799: * exceptions are the case of MK_MESSAGE and task management
! 800: * SCBs.
! 801: */
! 802: if ((ahd->bugs & AHD_LQO_ATNO_BUG) != 0) {
! 803: /*
! 804: * In the A, the LQO manager transitions to LQOSTOP0 even if
! 805: * we have selected out with ATN asserted and the target
! 806: * REQs in a non-packet phase.
! 807: */
! 808: test SCB_CONTROL, MK_MESSAGE jz select_out_no_message;
! 809: test SCSISIGO, ATNO jnz select_out_non_packetized;
! 810: select_out_no_message:
! 811: }
! 812: test LQOSTAT2, LQOSTOP0 jz select_out_non_packetized;
! 813: test SCB_TASK_MANAGEMENT, 0xFF jz idle_loop;
! 814: SET_SEQINTCODE(TASKMGMT_FUNC_COMPLETE)
! 815: jmp idle_loop;
! 816:
! 817: select_out_non_packetized:
! 818: /* Non packetized request. */
! 819: and SCSISEQ0, ~ENSELO;
! 820: if ((ahd->bugs & AHD_BUSFREEREV_BUG) != 0) {
! 821: /*
! 822: * Test to ensure that the bus has not
! 823: * already gone free prior to clearing
! 824: * any stale busfree status. This avoids
! 825: * a window whereby a busfree just after
! 826: * a selection could be missed.
! 827: */
! 828: test SCSISIGI, BSYI jz . + 2;
! 829: mvi CLRSINT1,CLRBUSFREE;
! 830: or SIMODE1, ENBUSFREE;
! 831: }
! 832: mov SAVED_SCSIID, SCB_SCSIID;
! 833: mov SAVED_LUN, SCB_LUN;
! 834: mvi SEQ_FLAGS, NO_CDB_SENT;
! 835: END_CRITICAL;
! 836: or SXFRCTL0, SPIOEN;
! 837:
! 838: /*
! 839: * As soon as we get a successful selection, the target
! 840: * should go into the message out phase since we have ATN
! 841: * asserted.
! 842: */
! 843: mvi MSG_OUT, MSG_IDENTIFYFLAG;
! 844:
! 845: /*
! 846: * Main loop for information transfer phases. Wait for the
! 847: * target to assert REQ before checking MSG, C/D and I/O for
! 848: * the bus phase.
! 849: */
! 850: mesgin_phasemis:
! 851: ITloop:
! 852: call phase_lock;
! 853:
! 854: mov A, LASTPHASE;
! 855:
! 856: test A, ~P_DATAIN_DT jz p_data;
! 857: cmp A,P_COMMAND je p_command;
! 858: cmp A,P_MESGOUT je p_mesgout;
! 859: cmp A,P_STATUS je p_status;
! 860: cmp A,P_MESGIN je p_mesgin;
! 861:
! 862: SET_SEQINTCODE(BAD_PHASE)
! 863: jmp ITloop; /* Try reading the bus again. */
! 864:
! 865: /*
! 866: * Command phase. Set up the DMA registers and let 'er rip.
! 867: */
! 868: p_command:
! 869: test SEQ_FLAGS, NOT_IDENTIFIED jz p_command_okay;
! 870: SET_SEQINTCODE(PROTO_VIOLATION)
! 871: p_command_okay:
! 872: test MODE_PTR, ~(MK_MODE(M_DFF1, M_DFF1))
! 873: jnz p_command_allocate_fifo;
! 874: /*
! 875: * Command retry. Free our current FIFO and
! 876: * re-allocate a FIFO so transfer state is
! 877: * reset.
! 878: */
! 879: SET_SRC_MODE M_DFF1;
! 880: SET_DST_MODE M_DFF1;
! 881: mvi DFFSXFRCTL, RSTCHN|CLRSHCNT;
! 882: SET_MODE(M_SCSI, M_SCSI)
! 883: p_command_allocate_fifo:
! 884: bmov ALLOCFIFO_SCBPTR, SCBPTR, 2;
! 885: call allocate_fifo;
! 886: SET_SRC_MODE M_DFF1;
! 887: SET_DST_MODE M_DFF1;
! 888: add NONE, -17, SCB_CDB_LEN;
! 889: jnc p_command_embedded;
! 890: p_command_from_host:
! 891: bmov HADDR[0], SCB_HOST_CDB_PTR, 9;
! 892: mvi SG_CACHE_PRE, LAST_SEG;
! 893: mvi DFCNTRL, (PRELOADEN|SCSIEN|HDMAEN);
! 894: jmp p_command_xfer;
! 895: p_command_embedded:
! 896: bmov SHCNT[0], SCB_CDB_LEN, 1;
! 897: bmov DFDAT, SCB_CDB_STORE, 16;
! 898: mvi DFCNTRL, SCSIEN;
! 899: p_command_xfer:
! 900: and SEQ_FLAGS, ~NO_CDB_SENT;
! 901: if ((ahd->features & AHD_FAST_CDB_DELIVERY) != 0) {
! 902: /*
! 903: * To speed up CDB delivery in Rev B, all CDB acks
! 904: * are "released" to the output sync as soon as the
! 905: * command phase starts. There is only one problem
! 906: * with this approach. If the target changes phase
! 907: * before all data are sent, we have left over acks
! 908: * that can go out on the bus in a data phase. Due
! 909: * to other chip contraints, this only happens if
! 910: * the target goes to data-in, but if the acks go
! 911: * out before we can test SDONE, we'll think that
! 912: * the transfer has completed successfully. Work
! 913: * around this by taking advantage of the 400ns or
! 914: * 800ns dead time between command phase and the REQ
! 915: * of the new phase. If the transfer has completed
! 916: * successfully, SCSIEN should fall *long* before we
! 917: * see a phase change. We thus treat any phasemiss
! 918: * that occurs before SCSIEN falls as an incomplete
! 919: * transfer.
! 920: */
! 921: test SSTAT1, PHASEMIS jnz p_command_xfer_failed;
! 922: test DFCNTRL, SCSIEN jnz . - 1;
! 923: } else {
! 924: test DFCNTRL, SCSIEN jnz .;
! 925: }
! 926: /*
! 927: * DMA Channel automatically disabled.
! 928: * Don't allow a data phase if the command
! 929: * was not fully transferred.
! 930: */
! 931: test SSTAT2, SDONE jnz ITloop;
! 932: p_command_xfer_failed:
! 933: or SEQ_FLAGS, NO_CDB_SENT;
! 934: jmp ITloop;
! 935:
! 936:
! 937: /*
! 938: * Status phase. Wait for the data byte to appear, then read it
! 939: * and store it into the SCB.
! 940: */
! 941: SET_SRC_MODE M_SCSI;
! 942: SET_DST_MODE M_SCSI;
! 943: p_status:
! 944: test SEQ_FLAGS,NOT_IDENTIFIED jnz mesgin_proto_violation;
! 945: p_status_okay:
! 946: mov SCB_SCSI_STATUS, SCSIDAT;
! 947: or SCB_CONTROL, STATUS_RCVD;
! 948: jmp ITloop;
! 949:
! 950: /*
! 951: * Message out phase. If MSG_OUT is MSG_IDENTIFYFLAG, build a full
! 952: * identify message sequence and send it to the target. The host may
! 953: * override this behavior by setting the MK_MESSAGE bit in the SCB
! 954: * control byte. This will cause us to interrupt the host and allow
! 955: * it to handle the message phase completely on its own. If the bit
! 956: * associated with this target is set, we will also interrupt the host,
! 957: * thereby allowing it to send a message on the next selection regardless
! 958: * of the transaction being sent.
! 959: *
! 960: * If MSG_OUT is == HOST_MSG, also interrupt the host and take a message.
! 961: * This is done to allow the host to send messages outside of an identify
! 962: * sequence while protecting the sequencer from testing the MK_MESSAGE bit
! 963: * on an SCB that might not be for the current nexus. (For example, a
! 964: * BDR message in response to a bad reselection would leave us pointed to
! 965: * an SCB that doesn't have anything to do with the current target).
! 966: *
! 967: * Otherwise, treat MSG_OUT as a 1 byte message to send (abort, abort tag,
! 968: * bus device reset).
! 969: *
! 970: * When there are no messages to send, MSG_OUT should be set to MSG_NOOP,
! 971: * in case the target decides to put us in this phase for some strange
! 972: * reason.
! 973: */
! 974: p_mesgout_retry:
! 975: /* Turn on ATN for the retry */
! 976: mvi SCSISIGO, ATNO;
! 977: p_mesgout:
! 978: mov SINDEX, MSG_OUT;
! 979: cmp SINDEX, MSG_IDENTIFYFLAG jne p_mesgout_from_host;
! 980: test SCB_CONTROL,MK_MESSAGE jnz host_message_loop;
! 981: p_mesgout_identify:
! 982: or SINDEX, MSG_IDENTIFYFLAG|DISCENB, SCB_LUN;
! 983: test SCB_CONTROL, DISCENB jnz . + 2;
! 984: and SINDEX, ~DISCENB;
! 985: /*
! 986: * Send a tag message if TAG_ENB is set in the SCB control block.
! 987: * Use SCB_NONPACKET_TAG as the tag value.
! 988: */
! 989: p_mesgout_tag:
! 990: test SCB_CONTROL,TAG_ENB jz p_mesgout_onebyte;
! 991: mov SCSIDAT, SINDEX; /* Send the identify message */
! 992: call phase_lock;
! 993: cmp LASTPHASE, P_MESGOUT jne p_mesgout_done;
! 994: and SCSIDAT,TAG_ENB|SCB_TAG_TYPE,SCB_CONTROL;
! 995: call phase_lock;
! 996: cmp LASTPHASE, P_MESGOUT jne p_mesgout_done;
! 997: mov SCBPTR jmp p_mesgout_onebyte;
! 998: /*
! 999: * Interrupt the driver, and allow it to handle this message
! 1000: * phase and any required retries.
! 1001: */
! 1002: p_mesgout_from_host:
! 1003: cmp SINDEX, HOST_MSG jne p_mesgout_onebyte;
! 1004: jmp host_message_loop;
! 1005:
! 1006: p_mesgout_onebyte:
! 1007: mvi CLRSINT1, CLRATNO;
! 1008: mov SCSIDAT, SINDEX;
! 1009:
! 1010: /*
! 1011: * If the next bus phase after ATN drops is message out, it means
! 1012: * that the target is requesting that the last message(s) be resent.
! 1013: */
! 1014: call phase_lock;
! 1015: cmp LASTPHASE, P_MESGOUT je p_mesgout_retry;
! 1016:
! 1017: p_mesgout_done:
! 1018: mvi CLRSINT1,CLRATNO; /* Be sure to turn ATNO off */
! 1019: mov LAST_MSG, MSG_OUT;
! 1020: mvi MSG_OUT, MSG_NOOP; /* No message left */
! 1021: jmp ITloop;
! 1022:
! 1023: /*
! 1024: * Message in phase. Bytes are read using Automatic PIO mode.
! 1025: */
! 1026: p_mesgin:
! 1027: /* read the 1st message byte */
! 1028: mvi ACCUM call inb_first;
! 1029:
! 1030: test A,MSG_IDENTIFYFLAG jnz mesgin_identify;
! 1031: cmp A,MSG_DISCONNECT je mesgin_disconnect;
! 1032: cmp A,MSG_SAVEDATAPOINTER je mesgin_sdptrs;
! 1033: cmp ALLZEROS,A je mesgin_complete;
! 1034: cmp A,MSG_RESTOREPOINTERS je mesgin_rdptrs;
! 1035: cmp A,MSG_IGN_WIDE_RESIDUE je mesgin_ign_wide_residue;
! 1036: cmp A,MSG_NOOP je mesgin_done;
! 1037:
! 1038: /*
! 1039: * Pushed message loop to allow the kernel to
! 1040: * run its own message state engine. To avoid an
! 1041: * extra nop instruction after signaling the kernel,
! 1042: * we perform the phase_lock before checking to see
! 1043: * if we should exit the loop and skip the phase_lock
! 1044: * in the ITloop. Performing back to back phase_locks
! 1045: * shouldn't hurt, but why do it twice...
! 1046: */
! 1047: host_message_loop:
! 1048: call phase_lock; /* Benign the first time through. */
! 1049: SET_SEQINTCODE(HOST_MSG_LOOP)
! 1050: cmp RETURN_1, EXIT_MSG_LOOP je ITloop;
! 1051: cmp RETURN_1, CONT_MSG_LOOP_WRITE jne . + 3;
! 1052: mov SCSIDAT, RETURN_2;
! 1053: jmp host_message_loop;
! 1054: /* Must be CONT_MSG_LOOP_READ */
! 1055: mov NONE, SCSIDAT; /* ACK Byte */
! 1056: jmp host_message_loop;
! 1057:
! 1058: mesgin_ign_wide_residue:
! 1059: mov SAVED_MODE, MODE_PTR;
! 1060: SET_MODE(M_SCSI, M_SCSI)
! 1061: shr NEGOADDR, 4, SAVED_SCSIID;
! 1062: mov A, NEGCONOPTS;
! 1063: RESTORE_MODE(SAVED_MODE)
! 1064: test A, WIDEXFER jz mesgin_reject;
! 1065: /* Pull the residue byte */
! 1066: mvi REG0 call inb_next;
! 1067: cmp REG0, 0x01 jne mesgin_reject;
! 1068: test SCB_RESIDUAL_SGPTR[0], SG_LIST_NULL jz . + 2;
! 1069: test SCB_TASK_ATTRIBUTE, SCB_XFERLEN_ODD jnz mesgin_done;
! 1070: SET_SEQINTCODE(IGN_WIDE_RES)
! 1071: jmp mesgin_done;
! 1072:
! 1073: mesgin_proto_violation:
! 1074: SET_SEQINTCODE(PROTO_VIOLATION)
! 1075: jmp mesgin_done;
! 1076: mesgin_reject:
! 1077: mvi MSG_MESSAGE_REJECT call mk_mesg;
! 1078: mesgin_done:
! 1079: mov NONE,SCSIDAT; /*dummy read from latch to ACK*/
! 1080: jmp ITloop;
! 1081:
! 1082: #define INDEX_DISC_LIST(scsiid, lun) \
! 1083: and A, 0xC0, scsiid; \
! 1084: or SCBPTR, A, lun; \
! 1085: clr SCBPTR[1]; \
! 1086: and SINDEX, 0x30, scsiid; \
! 1087: shr SINDEX, 3; /* Multiply by 2 */ \
! 1088: add SINDEX, (SCB_DISCONNECTED_LISTS & 0xFF); \
! 1089: mvi SINDEX[1], ((SCB_DISCONNECTED_LISTS >> 8) & 0xFF)
! 1090:
! 1091: mesgin_identify:
! 1092: /*
! 1093: * Determine whether a target is using tagged or non-tagged
! 1094: * transactions by first looking at the transaction stored in
! 1095: * the per-device, disconnected array. If there is no untagged
! 1096: * transaction for this target, this must be a tagged transaction.
! 1097: */
! 1098: and SAVED_LUN, MSG_IDENTIFY_LUNMASK, A;
! 1099: INDEX_DISC_LIST(SAVED_SCSIID, SAVED_LUN);
! 1100: bmov DINDEX, SINDEX, 2;
! 1101: bmov REG0, SINDIR, 2;
! 1102: cmp REG0[1], SCB_LIST_NULL je snoop_tag;
! 1103: /* Untagged. Clear the busy table entry and setup the SCB. */
! 1104: bmov DINDIR, ALLONES, 2;
! 1105: bmov SCBPTR, REG0, 2;
! 1106: jmp setup_SCB;
! 1107:
! 1108: /*
! 1109: * Here we "snoop" the bus looking for a SIMPLE QUEUE TAG message.
! 1110: * If we get one, we use the tag returned to find the proper
! 1111: * SCB. After receiving the tag, look for the SCB at SCB locations tag and
! 1112: * tag + 256.
! 1113: */
! 1114: snoop_tag:
! 1115: if ((ahd->flags & AHD_SEQUENCER_DEBUG) != 0) {
! 1116: or SEQ_FLAGS, 0x80;
! 1117: }
! 1118: mov NONE, SCSIDAT; /* ACK Identify MSG */
! 1119: call phase_lock;
! 1120: if ((ahd->flags & AHD_SEQUENCER_DEBUG) != 0) {
! 1121: or SEQ_FLAGS, 0x1;
! 1122: }
! 1123: cmp LASTPHASE, P_MESGIN jne not_found_ITloop;
! 1124: if ((ahd->flags & AHD_SEQUENCER_DEBUG) != 0) {
! 1125: or SEQ_FLAGS, 0x2;
! 1126: }
! 1127: cmp SCSIBUS, MSG_SIMPLE_Q_TAG jne not_found;
! 1128: get_tag:
! 1129: clr SCBPTR[1];
! 1130: mvi SCBPTR call inb_next; /* tag value */
! 1131: verify_scb:
! 1132: test SCB_CONTROL,DISCONNECTED jz verify_other_scb;
! 1133: mov A, SAVED_SCSIID;
! 1134: cmp SCB_SCSIID, A jne verify_other_scb;
! 1135: mov A, SAVED_LUN;
! 1136: cmp SCB_LUN, A je setup_SCB_disconnected;
! 1137: verify_other_scb:
! 1138: xor SCBPTR[1], 1;
! 1139: test SCBPTR[1], 0xFF jnz verify_scb;
! 1140: jmp not_found;
! 1141:
! 1142: /*
! 1143: * Ensure that the SCB the tag points to is for
! 1144: * an SCB transaction to the reconnecting target.
! 1145: */
! 1146: setup_SCB:
! 1147: if ((ahd->flags & AHD_SEQUENCER_DEBUG) != 0) {
! 1148: or SEQ_FLAGS, 0x10;
! 1149: }
! 1150: test SCB_CONTROL,DISCONNECTED jz not_found;
! 1151: setup_SCB_disconnected:
! 1152: and SCB_CONTROL,~DISCONNECTED;
! 1153: clr SEQ_FLAGS; /* make note of IDENTIFY */
! 1154: test SCB_SGPTR, SG_LIST_NULL jnz . + 3;
! 1155: bmov ALLOCFIFO_SCBPTR, SCBPTR, 2;
! 1156: call allocate_fifo;
! 1157: /* See if the host wants to send a message upon reconnection */
! 1158: test SCB_CONTROL, MK_MESSAGE jz mesgin_done;
! 1159: mvi HOST_MSG call mk_mesg;
! 1160: jmp mesgin_done;
! 1161:
! 1162: not_found:
! 1163: SET_SEQINTCODE(NO_MATCH)
! 1164: jmp mesgin_done;
! 1165:
! 1166: not_found_ITloop:
! 1167: SET_SEQINTCODE(NO_MATCH)
! 1168: jmp ITloop;
! 1169:
! 1170: /*
! 1171: * We received a "command complete" message. Put the SCB on the complete
! 1172: * queue and trigger a completion interrupt via the idle loop. Before doing
! 1173: * so, check to see if there is a residual or the status byte is something
! 1174: * other than STATUS_GOOD (0). In either of these conditions, we upload the
! 1175: * SCB back to the host so it can process this information.
! 1176: */
! 1177: mesgin_complete:
! 1178:
! 1179: /*
! 1180: * If ATN is raised, we still want to give the target a message.
! 1181: * Perhaps there was a parity error on this last message byte.
! 1182: * Either way, the target should take us to message out phase
! 1183: * and then attempt to complete the command again. We should use a
! 1184: * critical section here to guard against a timeout triggering
! 1185: * for this command and setting ATN while we are still processing
! 1186: * the completion.
! 1187: test SCSISIGI, ATNI jnz mesgin_done;
! 1188: */
! 1189:
! 1190: /*
! 1191: * If we are identified and have successfully sent the CDB,
! 1192: * any status will do. Optimize this fast path.
! 1193: */
! 1194: test SCB_CONTROL, STATUS_RCVD jz mesgin_proto_violation;
! 1195: test SEQ_FLAGS, NOT_IDENTIFIED|NO_CDB_SENT jz complete_accepted;
! 1196:
! 1197: /*
! 1198: * If the target never sent an identify message but instead went
! 1199: * to mesgin to give an invalid message, let the host abort us.
! 1200: */
! 1201: test SEQ_FLAGS, NOT_IDENTIFIED jnz mesgin_proto_violation;
! 1202:
! 1203: /*
! 1204: * If we received good status but never successfully sent the
! 1205: * cdb, abort the command.
! 1206: */
! 1207: test SCB_SCSI_STATUS,0xff jnz complete_accepted;
! 1208: test SEQ_FLAGS, NO_CDB_SENT jnz mesgin_proto_violation;
! 1209: complete_accepted:
! 1210:
! 1211: /*
! 1212: * See if we attempted to deliver a message but the target ingnored us.
! 1213: */
! 1214: test SCB_CONTROL, MK_MESSAGE jz complete_nomsg;
! 1215: SET_SEQINTCODE(MKMSG_FAILED)
! 1216: complete_nomsg:
! 1217: call queue_scb_completion;
! 1218: jmp await_busfree;
! 1219:
! 1220: BEGIN_CRITICAL;
! 1221: freeze_queue:
! 1222: /* Cancel any pending select-out. */
! 1223: test SSTAT0, SELDO|SELINGO jnz . + 2;
! 1224: and SCSISEQ0, ~ENSELO;
! 1225: mov ACCUM_SAVE, A;
! 1226: clr A;
! 1227: add QFREEZE_COUNT, 1;
! 1228: adc QFREEZE_COUNT[1], A;
! 1229: or SEQ_FLAGS2, SELECTOUT_QFROZEN;
! 1230: mov A, ACCUM_SAVE ret;
! 1231: END_CRITICAL;
! 1232:
! 1233: /*
! 1234: * Complete the current FIFO's SCB if data for this same
! 1235: * SCB is not transferring in the other FIFO.
! 1236: */
! 1237: SET_SRC_MODE M_DFF1;
! 1238: SET_DST_MODE M_DFF1;
! 1239: pkt_complete_scb_if_fifos_idle:
! 1240: bmov ARG_1, SCBPTR, 2;
! 1241: mvi DFFSXFRCTL, CLRCHN;
! 1242: SET_MODE(M_SCSI, M_SCSI)
! 1243: bmov SCBPTR, ARG_1, 2;
! 1244: test SCB_FIFO_USE_COUNT, 0xFF jnz return;
! 1245: queue_scb_completion:
! 1246: test SCB_SCSI_STATUS,0xff jnz bad_status;
! 1247: /*
! 1248: * Check for residuals
! 1249: */
! 1250: test SCB_SGPTR, SG_LIST_NULL jnz complete; /* No xfer */
! 1251: test SCB_SGPTR, SG_FULL_RESID jnz upload_scb;/* Never xfered */
! 1252: test SCB_RESIDUAL_SGPTR, SG_LIST_NULL jz upload_scb;
! 1253: complete:
! 1254: BEGIN_CRITICAL;
! 1255: bmov SCB_NEXT_COMPLETE, COMPLETE_SCB_HEAD, 2;
! 1256: bmov COMPLETE_SCB_HEAD, SCBPTR, 2 ret;
! 1257: END_CRITICAL;
! 1258: bad_status:
! 1259: cmp SCB_SCSI_STATUS, STATUS_PKT_SENSE je upload_scb;
! 1260: call freeze_queue;
! 1261: upload_scb:
! 1262: /*
! 1263: * Restore SCB TAG since we reuse this field
! 1264: * in the sequencer. We don't want to corrupt
! 1265: * it on the host.
! 1266: */
! 1267: bmov SCB_TAG, SCBPTR, 2;
! 1268: BEGIN_CRITICAL;
! 1269: or SCB_SGPTR, SG_STATUS_VALID;
! 1270: mvi SCB_NEXT_COMPLETE[1], SCB_LIST_NULL;
! 1271: cmp COMPLETE_DMA_SCB_HEAD[1], SCB_LIST_NULL jne add_dma_scb_tail;
! 1272: bmov COMPLETE_DMA_SCB_HEAD, SCBPTR, 2;
! 1273: bmov COMPLETE_DMA_SCB_TAIL, SCBPTR, 2 ret;
! 1274: add_dma_scb_tail:
! 1275: bmov REG0, SCBPTR, 2;
! 1276: bmov SCBPTR, COMPLETE_DMA_SCB_TAIL, 2;
! 1277: bmov SCB_NEXT_COMPLETE, REG0, 2;
! 1278: bmov COMPLETE_DMA_SCB_TAIL, REG0, 2 ret;
! 1279: END_CRITICAL;
! 1280:
! 1281: /*
! 1282: * Is it a disconnect message? Set a flag in the SCB to remind us
! 1283: * and await the bus going free. If this is an untagged transaction
! 1284: * store the SCB id for it in our untagged target table for lookup on
! 1285: * a reselection.
! 1286: */
! 1287: mesgin_disconnect:
! 1288: /*
! 1289: * If ATN is raised, we still want to give the target a message.
! 1290: * Perhaps there was a parity error on this last message byte
! 1291: * or we want to abort this command. Either way, the target
! 1292: * should take us to message out phase and then attempt to
! 1293: * disconnect again.
! 1294: * XXX - Wait for more testing.
! 1295: test SCSISIGI, ATNI jnz mesgin_done;
! 1296: */
! 1297: test SEQ_FLAGS, NOT_IDENTIFIED|NO_CDB_SENT
! 1298: jnz mesgin_proto_violation;
! 1299: or SCB_CONTROL,DISCONNECTED;
! 1300: test SCB_CONTROL, TAG_ENB jnz await_busfree;
! 1301: queue_disc_scb:
! 1302: bmov REG0, SCBPTR, 2;
! 1303: INDEX_DISC_LIST(SAVED_SCSIID, SAVED_LUN);
! 1304: bmov DINDEX, SINDEX, 2;
! 1305: bmov DINDIR, REG0, 2;
! 1306: bmov SCBPTR, REG0, 2;
! 1307: /* FALLTHROUGH */
! 1308: await_busfree:
! 1309: and SIMODE1, ~ENBUSFREE;
! 1310: if ((ahd->bugs & AHD_BUSFREEREV_BUG) == 0) {
! 1311: /*
! 1312: * In the BUSFREEREV_BUG case, the
! 1313: * busfree status was cleared at the
! 1314: * beginning of the connection.
! 1315: */
! 1316: mvi CLRSINT1,CLRBUSFREE;
! 1317: }
! 1318: mov NONE, SCSIDAT; /* Ack the last byte */
! 1319: test MODE_PTR, ~(MK_MODE(M_DFF1, M_DFF1))
! 1320: jnz await_busfree_not_m_dff;
! 1321: SET_SRC_MODE M_DFF1;
! 1322: SET_DST_MODE M_DFF1;
! 1323: await_busfree_clrchn:
! 1324: mvi DFFSXFRCTL, CLRCHN;
! 1325: await_busfree_not_m_dff:
! 1326: /* clear target specific flags */
! 1327: mvi SEQ_FLAGS, NOT_IDENTIFIED|NO_CDB_SENT;
! 1328: test SSTAT1,REQINIT|BUSFREE jz .;
! 1329: /*
! 1330: * We only set BUSFREE status once either a new
! 1331: * phase has been detected or we are really
! 1332: * BUSFREE. This allows the driver to know
! 1333: * that we are active on the bus even though
! 1334: * no identified transaction exists should a
! 1335: * timeout occur while awaiting busfree.
! 1336: */
! 1337: mvi LASTPHASE, P_BUSFREE;
! 1338: test SSTAT1, BUSFREE jnz idle_loop;
! 1339: SET_SEQINTCODE(MISSED_BUSFREE)
! 1340:
! 1341:
! 1342: /*
! 1343: * Save data pointers message:
! 1344: * Copying RAM values back to SCB, for Save Data Pointers message, but
! 1345: * only if we've actually been into a data phase to change them. This
! 1346: * protects against bogus data in scratch ram and the residual counts
! 1347: * since they are only initialized when we go into data_in or data_out.
! 1348: * Ack the message as soon as possible.
! 1349: */
! 1350: SET_SRC_MODE M_DFF1;
! 1351: SET_DST_MODE M_DFF1;
! 1352: mesgin_sdptrs:
! 1353: mov NONE,SCSIDAT; /*dummy read from latch to ACK*/
! 1354: test SEQ_FLAGS, DPHASE jz ITloop;
! 1355: call save_pointers;
! 1356: jmp ITloop;
! 1357:
! 1358: save_pointers:
! 1359: /*
! 1360: * If we are asked to save our position at the end of the
! 1361: * transfer, just mark us at the end rather than perform a
! 1362: * full save.
! 1363: */
! 1364: test SCB_RESIDUAL_SGPTR[0], SG_LIST_NULL jz save_pointers_full;
! 1365: or SCB_SGPTR, SG_LIST_NULL ret;
! 1366:
! 1367: save_pointers_full:
! 1368: /*
! 1369: * The SCB_DATAPTR becomes the current SHADDR.
! 1370: * All other information comes directly from our residual
! 1371: * state.
! 1372: */
! 1373: bmov SCB_DATAPTR, SHADDR, 8;
! 1374: bmov SCB_DATACNT, SCB_RESIDUAL_DATACNT, 8 ret;
! 1375:
! 1376: /*
! 1377: * Restore pointers message? Data pointers are recopied from the
! 1378: * SCB anytime we enter a data phase for the first time, so all
! 1379: * we need to do is clear the DPHASE flag and let the data phase
! 1380: * code do the rest. We also reset/reallocate the FIFO to make
! 1381: * sure we have a clean start for the next data or command phase.
! 1382: */
! 1383: mesgin_rdptrs:
! 1384: and SEQ_FLAGS, ~DPHASE;
! 1385: test MODE_PTR, ~(MK_MODE(M_DFF1, M_DFF1)) jnz msgin_rdptrs_get_fifo;
! 1386: mvi DFFSXFRCTL, RSTCHN|CLRSHCNT;
! 1387: SET_MODE(M_SCSI, M_SCSI)
! 1388: msgin_rdptrs_get_fifo:
! 1389: call allocate_fifo;
! 1390: jmp mesgin_done;
! 1391:
! 1392: phase_lock:
! 1393: if ((ahd->bugs & AHD_EARLY_REQ_BUG) != 0) {
! 1394: /*
! 1395: * Don't ignore persistent REQ assertions just because
! 1396: * they were asserted within the bus settle delay window.
! 1397: * This allows us to tolerate devices like the GEM318
! 1398: * that violate the SCSI spec. We are careful not to
! 1399: * count REQ while we are waiting for it to fall during
! 1400: * an async phase due to our asserted ACK. Each
! 1401: * sequencer instruction takes ~25ns, so the REQ must
! 1402: * last at least 100ns in order to be counted as a true
! 1403: * REQ.
! 1404: */
! 1405: test SCSIPHASE, 0xFF jnz phase_locked;
! 1406: test SCSISIGI, ACKI jnz phase_lock;
! 1407: test SCSISIGI, REQI jz phase_lock;
! 1408: test SCSIPHASE, 0xFF jnz phase_locked;
! 1409: test SCSISIGI, ACKI jnz phase_lock;
! 1410: test SCSISIGI, REQI jz phase_lock;
! 1411: phase_locked:
! 1412: } else {
! 1413: test SCSIPHASE, 0xFF jz .;
! 1414: }
! 1415: test SSTAT1, SCSIPERR jnz phase_lock;
! 1416: phase_lock_latch_phase:
! 1417: and LASTPHASE, PHASE_MASK, SCSISIGI ret;
! 1418:
! 1419: /*
! 1420: * Functions to read data in Automatic PIO mode.
! 1421: *
! 1422: * An ACK is not sent on input from the target until SCSIDATL is read from.
! 1423: * So we wait until SCSIDATL is latched (the usual way), then read the data
! 1424: * byte directly off the bus using SCSIBUSL. When we have pulled the ATN
! 1425: * line, or we just want to acknowledge the byte, then we do a dummy read
! 1426: * from SCISDATL. The SCSI spec guarantees that the target will hold the
! 1427: * data byte on the bus until we send our ACK.
! 1428: *
! 1429: * The assumption here is that these are called in a particular sequence,
! 1430: * and that REQ is already set when inb_first is called. inb_{first,next}
! 1431: * use the same calling convention as inb.
! 1432: */
! 1433: inb_next:
! 1434: mov NONE,SCSIDAT; /*dummy read from latch to ACK*/
! 1435: inb_next_wait:
! 1436: /*
! 1437: * If there is a parity error, wait for the kernel to
! 1438: * see the interrupt and prepare our message response
! 1439: * before continuing.
! 1440: */
! 1441: test SCSIPHASE, 0xFF jz .;
! 1442: test SSTAT1, SCSIPERR jnz inb_next_wait;
! 1443: inb_next_check_phase:
! 1444: and LASTPHASE, PHASE_MASK, SCSISIGI;
! 1445: cmp LASTPHASE, P_MESGIN jne mesgin_phasemis;
! 1446: inb_first:
! 1447: clr DINDEX[1];
! 1448: mov DINDEX,SINDEX;
! 1449: mov DINDIR,SCSIBUS ret; /*read byte directly from bus*/
! 1450: inb_last:
! 1451: mov NONE,SCSIDAT ret; /*dummy read from latch to ACK*/
! 1452:
! 1453: mk_mesg:
! 1454: mvi SCSISIGO, ATNO;
! 1455: mov MSG_OUT,SINDEX ret;
! 1456:
! 1457: SET_SRC_MODE M_DFF1;
! 1458: SET_DST_MODE M_DFF1;
! 1459: disable_ccsgen:
! 1460: test SG_STATE, FETCH_INPROG jz disable_ccsgen_fetch_done;
! 1461: clr CCSGCTL;
! 1462: disable_ccsgen_fetch_done:
! 1463: clr SG_STATE ret;
! 1464:
! 1465: service_fifo:
! 1466: /*
! 1467: * Do we have any prefetch left???
! 1468: */
! 1469: test SG_STATE, SEGS_AVAIL jnz idle_sg_avail;
! 1470:
! 1471: /*
! 1472: * Can this FIFO have access to the S/G cache yet?
! 1473: */
! 1474: test CCSGCTL, SG_CACHE_AVAIL jz return;
! 1475:
! 1476: /* Did we just finish fetching segs? */
! 1477: test CCSGCTL, CCSGDONE jnz idle_sgfetch_complete;
! 1478:
! 1479: /* Are we actively fetching segments? */
! 1480: test CCSGCTL, CCSGENACK jnz return;
! 1481:
! 1482: /*
! 1483: * Should the other FIFO get the S/G cache first? If
! 1484: * both FIFOs have been allocated since we last checked
! 1485: * any FIFO, it is important that we service a FIFO
! 1486: * that is not actively on the bus first. This guarantees
! 1487: * that a FIFO will be freed to handle snapshot requests for
! 1488: * any FIFO that is still on the bus. Chips with RTI do not
! 1489: * perform snapshots, so don't bother with this test there.
! 1490: */
! 1491: if ((ahd->features & AHD_RTI) == 0) {
! 1492: /*
! 1493: * If we're not still receiving SCSI data,
! 1494: * it is safe to allocate the S/G cache to
! 1495: * this FIFO.
! 1496: */
! 1497: test DFCNTRL, SCSIEN jz idle_sgfetch_start;
! 1498:
! 1499: /*
! 1500: * Switch to the other FIFO. Non-RTI chips
! 1501: * also have the "set mode" bug, so we must
! 1502: * disable interrupts during the switch.
! 1503: */
! 1504: mvi SEQINTCTL, INTVEC1DSL;
! 1505: xor MODE_PTR, MK_MODE(M_DFF1, M_DFF1);
! 1506:
! 1507: /*
! 1508: * If the other FIFO needs loading, then it
! 1509: * must not have claimed the S/G cache yet
! 1510: * (SG_CACHE_AVAIL would have been cleared in
! 1511: * the original FIFO mode and we test this above).
! 1512: * Return to the idle loop so we can process the
! 1513: * FIFO not currently on the bus first.
! 1514: */
! 1515: test SG_STATE, LOADING_NEEDED jz idle_sgfetch_okay;
! 1516: clr SEQINTCTL ret;
! 1517: idle_sgfetch_okay:
! 1518: xor MODE_PTR, MK_MODE(M_DFF1, M_DFF1);
! 1519: clr SEQINTCTL;
! 1520: }
! 1521:
! 1522: idle_sgfetch_start:
! 1523: /*
! 1524: * We fetch a "cacheline aligned" and sized amount of data
! 1525: * so we don't end up referencing a non-existant page.
! 1526: * Cacheline aligned is in quotes because the kernel will
! 1527: * set the prefetch amount to a reasonable level if the
! 1528: * cacheline size is unknown.
! 1529: */
! 1530: bmov SGHADDR, SCB_RESIDUAL_SGPTR, 4;
! 1531: mvi SGHCNT, SG_PREFETCH_CNT;
! 1532: if ((ahd->bugs & AHD_REG_SLOW_SETTLE_BUG) != 0) {
! 1533: /*
! 1534: * Need two instructions between "touches" of SGHADDR.
! 1535: */
! 1536: nop;
! 1537: }
! 1538: and SGHADDR[0], SG_PREFETCH_ALIGN_MASK, SCB_RESIDUAL_SGPTR;
! 1539: mvi CCSGCTL, CCSGEN|CCSGRESET;
! 1540: or SG_STATE, FETCH_INPROG ret;
! 1541: idle_sgfetch_complete:
! 1542: /*
! 1543: * Guard against SG_CACHE_AVAIL activating during sg fetch
! 1544: * request in the other FIFO.
! 1545: */
! 1546: test SG_STATE, FETCH_INPROG jz return;
! 1547: clr CCSGCTL;
! 1548: and CCSGADDR, SG_PREFETCH_ADDR_MASK, SCB_RESIDUAL_SGPTR;
! 1549: mvi SG_STATE, SEGS_AVAIL|LOADING_NEEDED;
! 1550: idle_sg_avail:
! 1551: /* Does the hardware have space for another SG entry? */
! 1552: test DFSTATUS, PRELOAD_AVAIL jz return;
! 1553: /*
! 1554: * On the A, preloading a segment before HDMAENACK
! 1555: * comes true can clobber the shadow address of the
! 1556: * first segment in the S/G FIFO. Wait until it is
! 1557: * safe to proceed.
! 1558: */
! 1559: if ((ahd->features & AHD_NEW_DFCNTRL_OPTS) == 0) {
! 1560: test DFCNTRL, HDMAENACK jz return;
! 1561: }
! 1562: if ((ahd->flags & AHD_64BIT_ADDRESSING) != 0) {
! 1563: bmov HADDR, CCSGRAM, 8;
! 1564: } else {
! 1565: bmov HADDR, CCSGRAM, 4;
! 1566: }
! 1567: bmov HCNT, CCSGRAM, 3;
! 1568: bmov SCB_RESIDUAL_DATACNT[3], CCSGRAM, 1;
! 1569: if ((ahd->flags & AHD_39BIT_ADDRESSING) != 0) {
! 1570: and HADDR[4], SG_HIGH_ADDR_BITS, SCB_RESIDUAL_DATACNT[3];
! 1571: }
! 1572: if ((ahd->flags & AHD_64BIT_ADDRESSING) != 0) {
! 1573: /* Skip 4 bytes of pad. */
! 1574: add CCSGADDR, 4;
! 1575: }
! 1576: sg_advance:
! 1577: clr A; /* add sizeof(struct scatter) */
! 1578: add SCB_RESIDUAL_SGPTR[0],SG_SIZEOF;
! 1579: adc SCB_RESIDUAL_SGPTR[1],A;
! 1580: adc SCB_RESIDUAL_SGPTR[2],A;
! 1581: adc SCB_RESIDUAL_SGPTR[3],A;
! 1582: mov SINDEX, SCB_RESIDUAL_SGPTR[0];
! 1583: test SCB_RESIDUAL_DATACNT[3], SG_LAST_SEG jz . + 3;
! 1584: or SINDEX, LAST_SEG;
! 1585: clr SG_STATE;
! 1586: mov SG_CACHE_PRE, SINDEX;
! 1587: if ((ahd->features & AHD_NEW_DFCNTRL_OPTS) != 0) {
! 1588: /*
! 1589: * Use SCSIENWRDIS so that SCSIEN is never
! 1590: * modified by this operation.
! 1591: */
! 1592: or DFCNTRL, PRELOADEN|HDMAEN|SCSIENWRDIS;
! 1593: } else {
! 1594: or DFCNTRL, PRELOADEN|HDMAEN;
! 1595: }
! 1596: /*
! 1597: * Do we have another segment in the cache?
! 1598: */
! 1599: add NONE, SG_PREFETCH_CNT_LIMIT, CCSGADDR;
! 1600: jnc return;
! 1601: and SG_STATE, ~SEGS_AVAIL ret;
! 1602:
! 1603: /*
! 1604: * Initialize the DMA address and counter from the SCB.
! 1605: */
! 1606: load_first_seg:
! 1607: bmov HADDR, SCB_DATAPTR, 11;
! 1608: and REG_ISR, ~SG_FULL_RESID, SCB_SGPTR[0];
! 1609: test SCB_DATACNT[3], SG_LAST_SEG jz . + 2;
! 1610: or REG_ISR, LAST_SEG;
! 1611: mov SG_CACHE_PRE, REG_ISR;
! 1612: mvi DFCNTRL, (PRELOADEN|SCSIEN|HDMAEN);
! 1613: /*
! 1614: * Since we've are entering a data phase, we will
! 1615: * rely on the SCB_RESID* fields. Initialize the
! 1616: * residual and clear the full residual flag.
! 1617: */
! 1618: and SCB_SGPTR[0], ~SG_FULL_RESID;
! 1619: bmov SCB_RESIDUAL_DATACNT[3], SCB_DATACNT[3], 5;
! 1620: /* If we need more S/G elements, tell the idle loop */
! 1621: test SCB_RESIDUAL_DATACNT[3], SG_LAST_SEG jnz . + 2;
! 1622: mvi SG_STATE, LOADING_NEEDED ret;
! 1623: clr SG_STATE ret;
! 1624:
! 1625: p_data_handle_xfer:
! 1626: call setjmp;
! 1627: test SG_STATE, LOADING_NEEDED jnz service_fifo;
! 1628: p_data_clear_handler:
! 1629: or LONGJMP_ADDR[1], INVALID_ADDR ret;
! 1630:
! 1631: p_data:
! 1632: test SEQ_FLAGS, NOT_IDENTIFIED|NO_CDB_SENT jz p_data_allowed;
! 1633: SET_SEQINTCODE(PROTO_VIOLATION)
! 1634: p_data_allowed:
! 1635:
! 1636: test SEQ_FLAGS, DPHASE jz data_phase_initialize;
! 1637:
! 1638: /*
! 1639: * If we re-enter the data phase after going through another
! 1640: * phase, our transfer location has almost certainly been
! 1641: * corrupted by the interveining, non-data, transfers. Ask
! 1642: * the host driver to fix us up based on the transfer residual
! 1643: * unless we already know that we should be bitbucketing.
! 1644: */
! 1645: test SCB_RESIDUAL_SGPTR[0], SG_LIST_NULL jnz p_data_bitbucket;
! 1646: SET_SEQINTCODE(PDATA_REINIT)
! 1647: jmp data_phase_inbounds;
! 1648:
! 1649: p_data_bitbucket:
! 1650: /*
! 1651: * Turn on `Bit Bucket' mode, wait until the target takes
! 1652: * us to another phase, and then notify the host.
! 1653: */
! 1654: mov SAVED_MODE, MODE_PTR;
! 1655: test MODE_PTR, ~(MK_MODE(M_DFF1, M_DFF1))
! 1656: jnz bitbucket_not_m_dff;
! 1657: /*
! 1658: * Ensure that any FIFO contents are cleared out and the
! 1659: * FIFO free'd prior to starting the BITBUCKET. BITBUCKET
! 1660: * doesn't discard data already in the FIFO.
! 1661: */
! 1662: mvi DFFSXFRCTL, RSTCHN|CLRSHCNT;
! 1663: SET_MODE(M_SCSI, M_SCSI)
! 1664: bitbucket_not_m_dff:
! 1665: or SXFRCTL1,BITBUCKET;
! 1666: /* Wait for non-data phase. */
! 1667: test SCSIPHASE, ~DATA_PHASE_MASK jz .;
! 1668: and SXFRCTL1, ~BITBUCKET;
! 1669: RESTORE_MODE(SAVED_MODE)
! 1670: SET_SRC_MODE M_DFF1;
! 1671: SET_DST_MODE M_DFF1;
! 1672: SET_SEQINTCODE(DATA_OVERRUN)
! 1673: jmp ITloop;
! 1674:
! 1675: data_phase_initialize:
! 1676: test SCB_SGPTR[0], SG_LIST_NULL jnz p_data_bitbucket;
! 1677: call load_first_seg;
! 1678: data_phase_inbounds:
! 1679: /* We have seen a data phase at least once. */
! 1680: or SEQ_FLAGS, DPHASE;
! 1681: mov SAVED_MODE, MODE_PTR;
! 1682: test SG_STATE, LOADING_NEEDED jz data_group_dma_loop;
! 1683: call p_data_handle_xfer;
! 1684: data_group_dma_loop:
! 1685: /*
! 1686: * The transfer is complete if either the last segment
! 1687: * completes or the target changes phase. Both conditions
! 1688: * will clear SCSIEN.
! 1689: */
! 1690: call idle_loop_service_fifos;
! 1691: call idle_loop_cchan;
! 1692: call idle_loop_gsfifo;
! 1693: RESTORE_MODE(SAVED_MODE)
! 1694: test DFCNTRL, SCSIEN jnz data_group_dma_loop;
! 1695:
! 1696: data_group_dmafinish:
! 1697: /*
! 1698: * The transfer has terminated either due to a phase
! 1699: * change, and/or the completion of the last segment.
! 1700: * We have two goals here. Do as much other work
! 1701: * as possible while the data fifo drains on a read
! 1702: * and respond as quickly as possible to the standard
! 1703: * messages (save data pointers/disconnect and command
! 1704: * complete) that usually follow a data phase.
! 1705: */
! 1706: call calc_residual;
! 1707:
! 1708: /*
! 1709: * Go ahead and shut down the DMA engine now.
! 1710: */
! 1711: test DFCNTRL, DIRECTION jnz data_phase_finish;
! 1712: data_group_fifoflush:
! 1713: if ((ahd->bugs & AHD_AUTOFLUSH_BUG) != 0) {
! 1714: or DFCNTRL, FIFOFLUSH;
! 1715: }
! 1716: /*
! 1717: * We have enabled the auto-ack feature. This means
! 1718: * that the controller may have already transferred
! 1719: * some overrun bytes into the data FIFO and acked them
! 1720: * on the bus. The only way to detect this situation is
! 1721: * to wait for LAST_SEG_DONE to come true on a completed
! 1722: * transfer and then test to see if the data FIFO is
! 1723: * non-empty. We know there is more data yet to transfer
! 1724: * if SG_LIST_NULL is not yet set, thus there cannot be
! 1725: * an overrun.
! 1726: */
! 1727: test SCB_RESIDUAL_SGPTR[0], SG_LIST_NULL jz data_phase_finish;
! 1728: test SG_CACHE_SHADOW, LAST_SEG_DONE jz .;
! 1729: test DFSTATUS, FIFOEMP jnz data_phase_finish;
! 1730: /* Overrun */
! 1731: jmp p_data;
! 1732: data_phase_finish:
! 1733: /*
! 1734: * If the target has left us in data phase, loop through
! 1735: * the dma code again. We will only loop if there is a
! 1736: * data overrun.
! 1737: */
! 1738: if ((ahd->flags & AHD_TARGETROLE) != 0) {
! 1739: test SSTAT0, TARGET jnz data_phase_done;
! 1740: }
! 1741: if ((ahd->flags & AHD_INITIATORROLE) != 0) {
! 1742: test SSTAT1, REQINIT jz .;
! 1743: test SCSIPHASE, DATA_PHASE_MASK jnz p_data;
! 1744: }
! 1745:
! 1746: data_phase_done:
! 1747: /* Kill off any pending prefetch */
! 1748: call disable_ccsgen;
! 1749: or LONGJMP_ADDR[1], INVALID_ADDR;
! 1750:
! 1751: if ((ahd->flags & AHD_TARGETROLE) != 0) {
! 1752: test SEQ_FLAGS, DPHASE_PENDING jz ITloop;
! 1753: /*
! 1754: and SEQ_FLAGS, ~DPHASE_PENDING;
! 1755: * For data-in phases, wait for any pending acks from the
! 1756: * initiator before changing phase. We only need to
! 1757: * send Ignore Wide Residue messages for data-in phases.
! 1758: test DFCNTRL, DIRECTION jz target_ITloop;
! 1759: test SSTAT1, REQINIT jnz .;
! 1760: test SCB_TASK_ATTRIBUTE, SCB_XFERLEN_ODD jz target_ITloop;
! 1761: SET_MODE(M_SCSI, M_SCSI)
! 1762: test NEGCONOPTS, WIDEXFER jz target_ITloop;
! 1763: */
! 1764: /*
! 1765: * Issue an Ignore Wide Residue Message.
! 1766: mvi P_MESGIN|BSYO call change_phase;
! 1767: mvi MSG_IGN_WIDE_RESIDUE call target_outb;
! 1768: mvi 1 call target_outb;
! 1769: jmp target_ITloop;
! 1770: */
! 1771: } else {
! 1772: jmp ITloop;
! 1773: }
! 1774:
! 1775: /*
! 1776: * We assume that, even though data may still be
! 1777: * transferring to the host, that the SCSI side of
! 1778: * the DMA engine is now in a static state. This
! 1779: * allows us to update our notion of where we are
! 1780: * in this transfer.
! 1781: *
! 1782: * If, by chance, we stopped before being able
! 1783: * to fetch additional segments for this transfer,
! 1784: * yet the last S/G was completely exhausted,
! 1785: * call our idle loop until it is able to load
! 1786: * another segment. This will allow us to immediately
! 1787: * pickup on the next segment on the next data phase.
! 1788: *
! 1789: * If we happened to stop on the last segment, then
! 1790: * our residual information is still correct from
! 1791: * the idle loop and there is no need to perform
! 1792: * any fixups.
! 1793: */
! 1794: residual_before_last_seg:
! 1795: test MDFFSTAT, SHVALID jnz sgptr_fixup;
! 1796: /*
! 1797: * Can never happen from an interrupt as the packetized
! 1798: * hardware will only interrupt us once SHVALID or
! 1799: * LAST_SEG_DONE.
! 1800: */
! 1801: call idle_loop_service_fifos;
! 1802: RESTORE_MODE(SAVED_MODE)
! 1803: /* FALLTHROUGH */
! 1804: calc_residual:
! 1805: test SG_CACHE_SHADOW, LAST_SEG jz residual_before_last_seg;
! 1806: /* Record if we've consumed all S/G entries */
! 1807: test MDFFSTAT, SHVALID jz . + 2;
! 1808: bmov SCB_RESIDUAL_DATACNT, SHCNT, 3 ret;
! 1809: or SCB_RESIDUAL_SGPTR[0], SG_LIST_NULL ret;
! 1810:
! 1811: sgptr_fixup:
! 1812: /*
! 1813: * Fixup the residual next S/G pointer. The S/G preload
! 1814: * feature of the chip allows us to load two elements
! 1815: * in addition to the currently active element. We
! 1816: * store the bottom byte of the next S/G pointer in
! 1817: * the SG_CACHE_PTR register so we can restore the
! 1818: * correct value when the DMA completes. If the next
! 1819: * sg ptr value has advanced to the point where higher
! 1820: * bytes in the address have been affected, fix them
! 1821: * too.
! 1822: */
! 1823: test SG_CACHE_SHADOW, 0x80 jz sgptr_fixup_done;
! 1824: test SCB_RESIDUAL_SGPTR[0], 0x80 jnz sgptr_fixup_done;
! 1825: add SCB_RESIDUAL_SGPTR[1], -1;
! 1826: adc SCB_RESIDUAL_SGPTR[2], -1;
! 1827: adc SCB_RESIDUAL_SGPTR[3], -1;
! 1828: sgptr_fixup_done:
! 1829: and SCB_RESIDUAL_SGPTR[0], SG_ADDR_MASK, SG_CACHE_SHADOW;
! 1830: clr SCB_RESIDUAL_DATACNT[3]; /* We are not the last seg */
! 1831: bmov SCB_RESIDUAL_DATACNT, SHCNT, 3 ret;
! 1832:
! 1833: export timer_isr:
! 1834: call issue_cmdcmplt;
! 1835: mvi CLRSEQINTSTAT, CLRSEQ_SWTMRTO;
! 1836: if ((ahd->bugs & AHD_SET_MODE_BUG) != 0) {
! 1837: /*
! 1838: * In H2A4, the mode pointer is not saved
! 1839: * for intvec2, but is restored on iret.
! 1840: * This can lead to the restoration of a
! 1841: * bogus mode ptr. Manually clear the
! 1842: * intmask bits and do a normal return
! 1843: * to compensate.
! 1844: */
! 1845: and SEQINTCTL, ~(INTMASK2|INTMASK1) ret;
! 1846: } else {
! 1847: or SEQINTCTL, IRET ret;
! 1848: }
! 1849:
! 1850: export seq_isr:
! 1851: if ((ahd->features & AHD_RTI) == 0) {
! 1852: /*
! 1853: * On RevA Silicon, if the target returns us to data-out
! 1854: * after we have already trained for data-out, it is
! 1855: * possible for us to transition the free running clock to
! 1856: * data-valid before the required 100ns P1 setup time (8 P1
! 1857: * assertions in fast-160 mode). This will only happen if
! 1858: * this L-Q is a continuation of a data transfer for which
! 1859: * we have already prefetched data into our FIFO (LQ/Data
! 1860: * followed by LQ/Data for the same write transaction).
! 1861: * This can cause some target implementations to miss the
! 1862: * first few data transfers on the bus. We detect this
! 1863: * situation by noticing that this is the first data transfer
! 1864: * after an LQ (LQIWORKONLQ true), that the data transfer is
! 1865: * a continuation of a transfer already setup in our FIFO
! 1866: * (SAVEPTRS interrupt), and that the transaction is a write
! 1867: * (DIRECTION set in DFCNTRL). The delay is performed by
! 1868: * disabling SCSIEN until we see the first REQ from the
! 1869: * target.
! 1870: *
! 1871: * First instruction in an ISR cannot be a branch on
! 1872: * Rev A. Snapshot LQISTAT2 so the status is not missed
! 1873: * and deffer the test by one instruction.
! 1874: */
! 1875: mov REG_ISR, LQISTAT2;
! 1876: test REG_ISR, LQIWORKONLQ jz main_isr;
! 1877: test SEQINTSRC, SAVEPTRS jz main_isr;
! 1878: test LONGJMP_ADDR[1], INVALID_ADDR jz saveptr_active_fifo;
! 1879: /*
! 1880: * Switch to the active FIFO after clearing the snapshot
! 1881: * savepointer in the current FIFO. We do this so that
! 1882: * a pending CTXTDONE or SAVEPTR is visible in the active
! 1883: * FIFO. This status is the only way we can detect if we
! 1884: * have lost the race (e.g. host paused us) and our attempts
! 1885: * to disable the channel occurred after all REQs were
! 1886: * already seen and acked (REQINIT never comes true).
! 1887: */
! 1888: mvi DFFSXFRCTL, CLRCHN;
! 1889: xor MODE_PTR, MK_MODE(M_DFF1, M_DFF1);
! 1890: test DFCNTRL, DIRECTION jz interrupt_return;
! 1891: and DFCNTRL, ~SCSIEN;
! 1892: snapshot_wait_data_valid:
! 1893: test SEQINTSRC, (CTXTDONE|SAVEPTRS) jnz interrupt_return;
! 1894: test SSTAT1, REQINIT jz snapshot_wait_data_valid;
! 1895: snapshot_data_valid:
! 1896: or DFCNTRL, SCSIEN;
! 1897: or SEQINTCTL, IRET ret;
! 1898: snapshot_saveptr:
! 1899: mvi DFFSXFRCTL, CLRCHN;
! 1900: or SEQINTCTL, IRET ret;
! 1901: main_isr:
! 1902: }
! 1903: test SEQINTSRC, CFG4DATA jnz cfg4data_intr;
! 1904: test SEQINTSRC, CFG4ISTAT jnz cfg4istat_intr;
! 1905: test SEQINTSRC, SAVEPTRS jnz saveptr_intr;
! 1906: test SEQINTSRC, CFG4ICMD jnz cfg4icmd_intr;
! 1907: SET_SEQINTCODE(INVALID_SEQINT)
! 1908:
! 1909: /*
! 1910: * There are two types of save pointers interrupts:
! 1911: * The first is a snapshot save pointers where the current FIFO is not
! 1912: * active and contains a snapshot of the current pointer information.
! 1913: * This happens between packets in a stream for a single L_Q. Since we
! 1914: * are not performing a pointer save, we can safely clear the channel
! 1915: * so it can be used for other transactions. On RTI capable controllers,
! 1916: * where snapshots can be, and are, disabled, the code to handle this type
! 1917: * of snapshot is not active.
! 1918: *
! 1919: * The second case is a save pointers on an active FIFO which occurs
! 1920: * if the target changes to a new L_Q or busfrees/QASes and the transfer
! 1921: * has a residual. This should occur coincident with a ctxtdone. We
! 1922: * disable the interrupt and allow our active routine to handle the
! 1923: * save.
! 1924: */
! 1925: saveptr_intr:
! 1926: if ((ahd->features & AHD_RTI) == 0) {
! 1927: test LONGJMP_ADDR[1], INVALID_ADDR jnz snapshot_saveptr;
! 1928: }
! 1929: saveptr_active_fifo:
! 1930: and SEQIMODE, ~ENSAVEPTRS;
! 1931: or SEQINTCTL, IRET ret;
! 1932:
! 1933: cfg4data_intr:
! 1934: test SCB_SGPTR[0], SG_LIST_NULL jnz pkt_handle_overrun_inc_use_count;
! 1935: call load_first_seg;
! 1936: call pkt_handle_xfer;
! 1937: inc SCB_FIFO_USE_COUNT;
! 1938: interrupt_return:
! 1939: or SEQINTCTL, IRET ret;
! 1940:
! 1941: cfg4istat_intr:
! 1942: call freeze_queue;
! 1943: add NONE, -13, SCB_CDB_LEN;
! 1944: jnc cfg4istat_have_sense_addr;
! 1945: test SCB_CDB_LEN, SCB_CDB_LEN_PTR jnz cfg4istat_have_sense_addr;
! 1946: /*
! 1947: * Host sets up address/count and enables transfer.
! 1948: */
! 1949: SET_SEQINTCODE(CFG4ISTAT_INTR)
! 1950: jmp cfg4istat_setup_handler;
! 1951: cfg4istat_have_sense_addr:
! 1952: bmov HADDR, SCB_SENSE_BUSADDR, 4;
! 1953: mvi HCNT[1], (AHD_SENSE_BUFSIZE >> 8);
! 1954: mvi SG_CACHE_PRE, LAST_SEG;
! 1955: mvi DFCNTRL, PRELOADEN|SCSIEN|HDMAEN;
! 1956: cfg4istat_setup_handler:
! 1957: /*
! 1958: * Status pkt is transferring to host.
! 1959: * Wait in idle loop for transfer to complete.
! 1960: * If a command completed before an attempted
! 1961: * task management function completed, notify the host.
! 1962: */
! 1963: test SCB_TASK_MANAGEMENT, 0xFF jz cfg4istat_no_taskmgmt_func;
! 1964: SET_SEQINTCODE(TASKMGMT_CMD_CMPLT_OKAY)
! 1965: cfg4istat_no_taskmgmt_func:
! 1966: call pkt_handle_status;
! 1967: or SEQINTCTL, IRET ret;
! 1968:
! 1969: cfg4icmd_intr:
! 1970: /*
! 1971: * In the case of DMAing a CDB from the host, the normal
! 1972: * CDB buffer is formatted with an 8 byte address followed
! 1973: * by a 1 byte count.
! 1974: */
! 1975: bmov HADDR[0], SCB_HOST_CDB_PTR, 9;
! 1976: mvi SG_CACHE_PRE, LAST_SEG;
! 1977: mvi DFCNTRL, (PRELOADEN|SCSIEN|HDMAEN);
! 1978: call pkt_handle_cdb;
! 1979: or SEQINTCTL, IRET ret;
! 1980:
! 1981: /*
! 1982: * See if the target has gone on in this context creating an
! 1983: * overrun condition. For the write case, the hardware cannot
! 1984: * ack bytes until data are provided. So, if the target begins
! 1985: * another packet without changing contexts, implying we are
! 1986: * not sitting on a packet boundary, we are in an overrun
! 1987: * situation. For the read case, the hardware will continue to
! 1988: * ack bytes into the FIFO, and may even ack the last overrun packet
! 1989: * into the FIFO. If the FIFO should become non-empty, we are in
! 1990: * a read overrun case.
! 1991: */
! 1992: #define check_overrun \
! 1993: /* Not on a packet boundary. */ \
! 1994: test MDFFSTAT, DLZERO jz pkt_handle_overrun; \
! 1995: test DFSTATUS, FIFOEMP jz pkt_handle_overrun
! 1996:
! 1997: pkt_handle_xfer:
! 1998: test SG_STATE, LOADING_NEEDED jz pkt_last_seg;
! 1999: call setjmp;
! 2000: test SEQINTSRC, SAVEPTRS jnz pkt_saveptrs;
! 2001: test SCSIPHASE, ~DATA_PHASE_MASK jz . + 2;
! 2002: test SCSISIGO, ATNO jnz . + 2;
! 2003: test SSTAT2, NONPACKREQ jz pkt_service_fifo;
! 2004: /*
! 2005: * Defer handling of this NONPACKREQ until we
! 2006: * can be sure it pertains to this FIFO. SAVEPTRS
! 2007: * will not be asserted if the NONPACKREQ is for us,
! 2008: * so we must simulate it if shadow is valid. If
! 2009: * shadow is not valid, keep running this FIFO until we
! 2010: * have satisfied the transfer by loading segments and
! 2011: * waiting for either shadow valid or last_seg_done.
! 2012: */
! 2013: test MDFFSTAT, SHVALID jnz pkt_saveptrs;
! 2014: pkt_service_fifo:
! 2015: test SG_STATE, LOADING_NEEDED jnz service_fifo;
! 2016: pkt_last_seg:
! 2017: call setjmp;
! 2018: test SEQINTSRC, SAVEPTRS jnz pkt_saveptrs;
! 2019: test SG_CACHE_SHADOW, LAST_SEG_DONE jnz pkt_last_seg_done;
! 2020: test SCSIPHASE, ~DATA_PHASE_MASK jz . + 2;
! 2021: test SCSISIGO, ATNO jnz . + 2;
! 2022: test SSTAT2, NONPACKREQ jz return;
! 2023: test MDFFSTAT, SHVALID jz return;
! 2024: /* FALLTHROUGH */
! 2025:
! 2026: /*
! 2027: * Either a SAVEPTRS interrupt condition is pending for this FIFO
! 2028: * or we have a pending NONPACKREQ for this FIFO. We differentiate
! 2029: * between the two by capturing the state of the SAVEPTRS interrupt
! 2030: * prior to clearing this status and executing the common code for
! 2031: * these two cases.
! 2032: */
! 2033: pkt_saveptrs:
! 2034: BEGIN_CRITICAL;
! 2035: if ((ahd->bugs & AHD_AUTOFLUSH_BUG) != 0) {
! 2036: or DFCNTRL, FIFOFLUSH;
! 2037: }
! 2038: mov REG0, SEQINTSRC;
! 2039: call calc_residual;
! 2040: call save_pointers;
! 2041: mvi CLRSEQINTSRC, CLRSAVEPTRS;
! 2042: call disable_ccsgen;
! 2043: or SEQIMODE, ENSAVEPTRS;
! 2044: test DFCNTRL, DIRECTION jnz pkt_saveptrs_check_status;
! 2045: test DFSTATUS, FIFOEMP jnz pkt_saveptrs_check_status;
! 2046: /*
! 2047: * Keep a handler around for this FIFO until it drains
! 2048: * to the host to guarantee that we don't complete the
! 2049: * command to the host before the data arrives.
! 2050: */
! 2051: pkt_saveptrs_wait_fifoemp:
! 2052: call setjmp;
! 2053: test DFSTATUS, FIFOEMP jz return;
! 2054: pkt_saveptrs_check_status:
! 2055: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2056: test REG0, SAVEPTRS jz unexpected_nonpkt_phase;
! 2057: dec SCB_FIFO_USE_COUNT;
! 2058: test SCB_CONTROL, STATUS_RCVD jnz pkt_complete_scb_if_fifos_idle;
! 2059: mvi DFFSXFRCTL, CLRCHN ret;
! 2060:
! 2061: /*
! 2062: * LAST_SEG_DONE status has been seen in the current FIFO.
! 2063: * This indicates that all of the allowed data for this
! 2064: * command has transferred across the SCSI and host buses.
! 2065: * Check for overrun and see if we can complete this command.
! 2066: */
! 2067: pkt_last_seg_done:
! 2068: /*
! 2069: * Mark transfer as completed.
! 2070: */
! 2071: or SCB_SGPTR, SG_LIST_NULL;
! 2072:
! 2073: /*
! 2074: * Wait for the current context to finish to verify that
! 2075: * no overrun condition has occurred.
! 2076: */
! 2077: test SEQINTSRC, CTXTDONE jnz pkt_ctxt_done;
! 2078: call setjmp;
! 2079: pkt_wait_ctxt_done_loop:
! 2080: test SEQINTSRC, CTXTDONE jnz pkt_ctxt_done;
! 2081: /*
! 2082: * A sufficiently large overrun or a NONPACKREQ may
! 2083: * prevent CTXTDONE from ever asserting, so we must
! 2084: * poll for these statuses too.
! 2085: */
! 2086: check_overrun;
! 2087: test SSTAT2, NONPACKREQ jz return;
! 2088: test SEQINTSRC, CTXTDONE jz unexpected_nonpkt_phase;
! 2089: /* FALLTHROUGH */
! 2090:
! 2091: pkt_ctxt_done:
! 2092: check_overrun;
! 2093: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2094: /*
! 2095: * If status has been received, it is safe to skip
! 2096: * the check to see if another FIFO is active because
! 2097: * LAST_SEG_DONE has been observed. However, we check
! 2098: * the FIFO anyway since it costs us only one extra
! 2099: * instruction to leverage common code to perform the
! 2100: * SCB completion.
! 2101: */
! 2102: dec SCB_FIFO_USE_COUNT;
! 2103: test SCB_CONTROL, STATUS_RCVD jnz pkt_complete_scb_if_fifos_idle;
! 2104: mvi DFFSXFRCTL, CLRCHN ret;
! 2105: END_CRITICAL;
! 2106:
! 2107: /*
! 2108: * Must wait until CDB xfer is over before issuing the
! 2109: * clear channel.
! 2110: */
! 2111: pkt_handle_cdb:
! 2112: call setjmp;
! 2113: test SG_CACHE_SHADOW, LAST_SEG_DONE jz return;
! 2114: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2115: mvi DFFSXFRCTL, CLRCHN ret;
! 2116:
! 2117: /*
! 2118: * Watch over the status transfer. Our host sense buffer is
! 2119: * large enough to take the maximum allowed status packet.
! 2120: * None-the-less, we must still catch and report overruns to
! 2121: * the host. Additionally, properly catch unexpected non-packet
! 2122: * phases that are typically caused by CRC errors in status packet
! 2123: * transmission.
! 2124: */
! 2125: pkt_handle_status:
! 2126: call setjmp;
! 2127: test SG_CACHE_SHADOW, LAST_SEG_DONE jnz pkt_status_check_overrun;
! 2128: test SEQINTSRC, CTXTDONE jz pkt_status_check_nonpackreq;
! 2129: test SG_CACHE_SHADOW, LAST_SEG_DONE jnz pkt_status_check_overrun;
! 2130: pkt_status_IU_done:
! 2131: if ((ahd->bugs & AHD_AUTOFLUSH_BUG) != 0) {
! 2132: or DFCNTRL, FIFOFLUSH;
! 2133: }
! 2134: test DFSTATUS, FIFOEMP jz return;
! 2135: BEGIN_CRITICAL;
! 2136: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2137: mvi SCB_SCSI_STATUS, STATUS_PKT_SENSE;
! 2138: or SCB_CONTROL, STATUS_RCVD;
! 2139: jmp pkt_complete_scb_if_fifos_idle;
! 2140: END_CRITICAL;
! 2141: pkt_status_check_overrun:
! 2142: /*
! 2143: * Status PKT overruns are unceremoniously recovered with a
! 2144: * bus reset. If we've overrun, let the host know so that
! 2145: * recovery can be performed.
! 2146: *
! 2147: * LAST_SEG_DONE has been observed. If either CTXTDONE or
! 2148: * a NONPACKREQ phase change have occurred and the FIFO is
! 2149: * empty, there is no overrun.
! 2150: */
! 2151: test DFSTATUS, FIFOEMP jz pkt_status_report_overrun;
! 2152: test SEQINTSRC, CTXTDONE jz . + 2;
! 2153: test DFSTATUS, FIFOEMP jnz pkt_status_IU_done;
! 2154: test SCSIPHASE, ~DATA_PHASE_MASK jz return;
! 2155: test DFSTATUS, FIFOEMP jnz pkt_status_check_nonpackreq;
! 2156: pkt_status_report_overrun:
! 2157: SET_SEQINTCODE(STATUS_OVERRUN)
! 2158: /* SEQUENCER RESTARTED */
! 2159: pkt_status_check_nonpackreq:
! 2160: /*
! 2161: * CTXTDONE may be held off if a NONPACKREQ is associated with
! 2162: * the current context. If a NONPACKREQ is observed, decide
! 2163: * if it is for the current context. If it is for the current
! 2164: * context, we must defer NONPACKREQ processing until all data
! 2165: * has transferred to the host.
! 2166: */
! 2167: test SCSIPHASE, ~DATA_PHASE_MASK jz return;
! 2168: test SCSISIGO, ATNO jnz . + 2;
! 2169: test SSTAT2, NONPACKREQ jz return;
! 2170: test SEQINTSRC, CTXTDONE jnz pkt_status_IU_done;
! 2171: test DFSTATUS, FIFOEMP jz return;
! 2172: /*
! 2173: * The unexpected nonpkt phase handler assumes that any
! 2174: * data channel use will have a FIFO reference count. It
! 2175: * turns out that the status handler doesn't need a reference
! 2176: * count since the status received flag, and thus completion
! 2177: * processing, cannot be set until the handler is finished.
! 2178: * We increment the count here to make the nonpkt handler
! 2179: * happy.
! 2180: */
! 2181: inc SCB_FIFO_USE_COUNT;
! 2182: /* FALLTHROUGH */
! 2183:
! 2184: /*
! 2185: * Nonpackreq is a polled status. It can come true in three situations:
! 2186: * we have received an L_Q, we have sent one or more L_Qs, or there is no
! 2187: * L_Q context associated with this REQ (REQ occurs immediately after a
! 2188: * (re)selection). Routines that know that the context responsible for this
! 2189: * nonpackreq call directly into unexpected_nonpkt_phase. In the case of the
! 2190: * top level idle loop, we exhaust all active contexts prior to determining that
! 2191: * we simply do not have the full I_T_L_Q for this phase.
! 2192: */
! 2193: unexpected_nonpkt_phase_find_ctxt:
! 2194: /*
! 2195: * This nonpackreq is most likely associated with one of the tags
! 2196: * in a FIFO or an outgoing LQ. Only treat it as an I_T only
! 2197: * nonpackreq if we've cleared out the FIFOs and handled any
! 2198: * pending SELDO.
! 2199: */
! 2200: SET_SRC_MODE M_SCSI;
! 2201: SET_DST_MODE M_SCSI;
! 2202: and A, FIFO1FREE|FIFO0FREE, DFFSTAT;
! 2203: cmp A, FIFO1FREE|FIFO0FREE jne return;
! 2204: test SSTAT0, SELDO jnz return;
! 2205: mvi SCBPTR[1], SCB_LIST_NULL;
! 2206: unexpected_nonpkt_phase:
! 2207: test MODE_PTR, ~(MK_MODE(M_DFF1, M_DFF1))
! 2208: jnz unexpected_nonpkt_mode_cleared;
! 2209: SET_SRC_MODE M_DFF0;
! 2210: SET_DST_MODE M_DFF0;
! 2211: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2212: dec SCB_FIFO_USE_COUNT;
! 2213: mvi DFFSXFRCTL, CLRCHN;
! 2214: unexpected_nonpkt_mode_cleared:
! 2215: mvi CLRSINT2, CLRNONPACKREQ;
! 2216: if ((ahd->bugs & AHD_BUSFREEREV_BUG) != 0) {
! 2217: /*
! 2218: * Test to ensure that the bus has not
! 2219: * already gone free prior to clearing
! 2220: * any stale busfree status. This avoids
! 2221: * a window whereby a busfree just after
! 2222: * a selection could be missed.
! 2223: */
! 2224: test SCSISIGI, BSYI jz . + 2;
! 2225: mvi CLRSINT1,CLRBUSFREE;
! 2226: or SIMODE1, ENBUSFREE;
! 2227: }
! 2228: test SCSIPHASE, ~(MSG_IN_PHASE|MSG_OUT_PHASE) jnz illegal_phase;
! 2229: SET_SEQINTCODE(ENTERING_NONPACK)
! 2230: jmp ITloop;
! 2231:
! 2232: illegal_phase:
! 2233: SET_SEQINTCODE(ILLEGAL_PHASE)
! 2234: jmp ITloop;
! 2235:
! 2236: /*
! 2237: * We have entered an overrun situation. If we have working
! 2238: * BITBUCKET, flip that on and let the hardware eat any overrun
! 2239: * data. Otherwise use an overrun buffer in the host to simulate
! 2240: * BITBUCKET.
! 2241: */
! 2242: pkt_handle_overrun_inc_use_count:
! 2243: inc SCB_FIFO_USE_COUNT;
! 2244: pkt_handle_overrun:
! 2245: SET_SEQINTCODE(CFG4OVERRUN)
! 2246: call freeze_queue;
! 2247: if ((ahd->bugs & AHD_PKT_BITBUCKET_BUG) == 0) {
! 2248: or DFFSXFRCTL, DFFBITBUCKET;
! 2249: SET_SRC_MODE M_DFF1;
! 2250: SET_DST_MODE M_DFF1;
! 2251: } else {
! 2252: call load_overrun_buf;
! 2253: mvi DFCNTRL, (HDMAEN|SCSIEN|PRELOADEN);
! 2254: }
! 2255: call setjmp;
! 2256: if ((ahd->bugs & AHD_PKT_BITBUCKET_BUG) != 0) {
! 2257: test DFSTATUS, PRELOAD_AVAIL jz overrun_load_done;
! 2258: call load_overrun_buf;
! 2259: or DFCNTRL, PRELOADEN;
! 2260: overrun_load_done:
! 2261: test SEQINTSRC, CTXTDONE jnz pkt_overrun_end;
! 2262: } else {
! 2263: test DFFSXFRCTL, DFFBITBUCKET jz pkt_overrun_end;
! 2264: }
! 2265: test SSTAT2, NONPACKREQ jz return;
! 2266: pkt_overrun_end:
! 2267: or SCB_RESIDUAL_SGPTR, SG_OVERRUN_RESID;
! 2268: test SEQINTSRC, CTXTDONE jz unexpected_nonpkt_phase;
! 2269: dec SCB_FIFO_USE_COUNT;
! 2270: or LONGJMP_ADDR[1], INVALID_ADDR;
! 2271: test SCB_CONTROL, STATUS_RCVD jnz pkt_complete_scb_if_fifos_idle;
! 2272: mvi DFFSXFRCTL, CLRCHN ret;
! 2273:
! 2274: if ((ahd->bugs & AHD_PKT_BITBUCKET_BUG) != 0) {
! 2275: load_overrun_buf:
! 2276: /*
! 2277: * Load a dummy segment if preload space is available.
! 2278: */
! 2279: mov HADDR[0], SHARED_DATA_ADDR;
! 2280: add HADDR[1], PKT_OVERRUN_BUFOFFSET, SHARED_DATA_ADDR[1];
! 2281: mov ACCUM_SAVE, A;
! 2282: clr A;
! 2283: adc HADDR[2], A, SHARED_DATA_ADDR[2];
! 2284: adc HADDR[3], A, SHARED_DATA_ADDR[3];
! 2285: mov A, ACCUM_SAVE;
! 2286: bmov HADDR[4], ALLZEROS, 4;
! 2287: /* PKT_OVERRUN_BUFSIZE is a multiple of 256 */
! 2288: clr HCNT[0];
! 2289: mvi HCNT[1], ((PKT_OVERRUN_BUFSIZE >> 8) & 0xFF);
! 2290: clr HCNT[2] ret;
! 2291: }
CVSweb