2 ** -----------------------------------------------------------------------------
4 ** Perle Specialix driver for Linux
5 ** Ported from existing RIO Driver for SCO sources.
7 * (C) 1990 - 2000 Specialix International Ltd., Byfleet, Surrey, UK.
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25 ** Last Modified : 11/6/98 10:33:36
26 ** Retrieved : 11/6/98 10:33:48
28 ** ident @(#)rioboot.c 1.3
30 ** -----------------------------------------------------------------------------
34 static char *_rioboot_c_sccs_ = "@(#)rioboot.c 1.3";
37 #include <linux/module.h>
38 #include <linux/slab.h>
39 #include <linux/errno.h>
40 #include <linux/interrupt.h>
42 #include <asm/system.h>
43 #include <asm/string.h>
44 #include <asm/semaphore.h>
47 #include <linux/termios.h>
48 #include <linux/serial.h>
50 #include <linux/generic_serial.h>
54 #include "linux_compat.h"
55 #include "rio_linux.h"
83 static int RIOBootComplete(struct rio_info *p, struct Host *HostP, uint Rup, struct PktCmd *PktCmdP);
85 static uchar RIOAtVec2Ctrl[] = {
86 /* 0 */ INTERRUPT_DISABLE,
87 /* 1 */ INTERRUPT_DISABLE,
88 /* 2 */ INTERRUPT_DISABLE,
89 /* 3 */ INTERRUPT_DISABLE,
90 /* 4 */ INTERRUPT_DISABLE,
91 /* 5 */ INTERRUPT_DISABLE,
92 /* 6 */ INTERRUPT_DISABLE,
93 /* 7 */ INTERRUPT_DISABLE,
94 /* 8 */ INTERRUPT_DISABLE,
95 /* 9 */ IRQ_9 | INTERRUPT_ENABLE,
96 /* 10 */ INTERRUPT_DISABLE,
97 /* 11 */ IRQ_11 | INTERRUPT_ENABLE,
98 /* 12 */ IRQ_12 | INTERRUPT_ENABLE,
99 /* 13 */ INTERRUPT_DISABLE,
100 /* 14 */ INTERRUPT_DISABLE,
101 /* 15 */ IRQ_15 | INTERRUPT_ENABLE
105 ** Load in the RTA boot code.
107 int RIOBootCodeRTA(p, rbp)
109 struct DownLoad *rbp;
115 /* Linux doesn't allow you to disable interrupts during a
116 "copyin". (Crash when a pagefault occurs). */
117 /* disable(oldspl); */
119 rio_dprintk(RIO_DEBUG_BOOT, "Data at user address 0x%x\n", (int) rbp->DataP);
122 ** Check that we have set asside enough memory for this
124 if (rbp->Count > SIXTY_FOUR_K) {
125 rio_dprintk(RIO_DEBUG_BOOT, "RTA Boot Code Too Large!\n");
126 p->RIOError.Error = HOST_FILE_TOO_LARGE;
127 /* restore(oldspl); */
133 rio_dprintk(RIO_DEBUG_BOOT, "RTA Boot Code : BUSY BUSY BUSY!\n");
134 p->RIOError.Error = BOOT_IN_PROGRESS;
135 /* restore(oldspl); */
141 ** The data we load in must end on a (RTA_BOOT_DATA_SIZE) byte boundary,
142 ** so calculate how far we have to move the data up the buffer
145 offset = (RTA_BOOT_DATA_SIZE - (rbp->Count % RTA_BOOT_DATA_SIZE)) % RTA_BOOT_DATA_SIZE;
148 ** Be clean, and clear the 'unused' portion of the boot buffer,
149 ** because it will (eventually) be part of the Rta run time environment
150 ** and so should be zeroed.
152 bzero((caddr_t) p->RIOBootPackets, offset);
155 ** Copy the data from user space.
158 if (copyin((int) rbp->DataP, ((caddr_t) (p->RIOBootPackets)) + offset, rbp->Count) == COPYFAIL) {
159 rio_dprintk(RIO_DEBUG_BOOT, "Bad data copy from user space\n");
160 p->RIOError.Error = COPYIN_FAILED;
161 /* restore(oldspl); */
167 ** Make sure that our copy of the size includes that offset we discussed
170 p->RIONumBootPkts = (rbp->Count + offset) / RTA_BOOT_DATA_SIZE;
171 p->RIOBootCount = rbp->Count;
173 /* restore(oldspl); */
178 void rio_start_card_running(struct Host *HostP)
182 switch (HostP->Type) {
184 rio_dprintk(RIO_DEBUG_BOOT, "Start ISA card running\n");
185 WBYTE(HostP->Control, BOOT_FROM_RAM | EXTERNAL_BUS_ON | HostP->Mode | RIOAtVec2Ctrl[HostP->Ivec & 0xF]);
188 #ifdef FUTURE_RELEASE
191 ** MCA handles IRQ vectors differently, so we don't write
192 ** them to this register.
194 rio_dprintk(RIO_DEBUG_BOOT, "Start MCA card running\n");
195 WBYTE(HostP->Control, McaTpBootFromRam | McaTpBusEnable | HostP->Mode);
200 ** EISA is totally different and expects OUTBZs to turn it on.
202 rio_dprintk(RIO_DEBUG_BOOT, "Start EISA card running\n");
203 OUTBZ(HostP->Slot, EISA_CONTROL_PORT, HostP->Mode | RIOEisaVec2Ctrl[HostP->Ivec] | EISA_TP_RUN | EISA_TP_BUS_ENABLE | EISA_TP_BOOT_FROM_RAM);
209 ** PCI is much the same as MCA. Everything is once again memory
210 ** mapped, so we are writing to memory registers instead of io
213 rio_dprintk(RIO_DEBUG_BOOT, "Start PCI card running\n");
214 WBYTE(HostP->Control, PCITpBootFromRam | PCITpBusEnable | HostP->Mode);
217 rio_dprintk(RIO_DEBUG_BOOT, "Unknown host type %d\n", HostP->Type);
221 printk (KERN_INFO "Done with starting the card\n");
228 ** Load in the host boot code - load it directly onto all halted hosts
229 ** of the correct type.
231 ** Put your rubber pants on before messing with this code - even the magic
232 ** numbers have trouble understanding what they are doing here.
234 int RIOBootCodeHOST(p, rbp)
236 register struct DownLoad *rbp;
238 register struct Host *HostP;
239 register caddr_t Cad;
240 register PARM_MAP *ParmMapP;
248 ushort offset; /* It is very important that this is a ushort */
250 caddr_t DownCode = NULL;
253 HostP = NULL; /* Assure the compiler we've initialized it */
254 for (host = 0; host < p->RIONumHosts; host++) {
255 rio_dprintk(RIO_DEBUG_BOOT, "Attempt to boot host %d\n", host);
256 HostP = &p->RIOHosts[host];
258 rio_dprintk(RIO_DEBUG_BOOT, "Host Type = 0x%x, Mode = 0x%x, IVec = 0x%x\n", HostP->Type, HostP->Mode, HostP->Ivec);
261 if ((HostP->Flags & RUN_STATE) != RC_WAITING) {
262 rio_dprintk(RIO_DEBUG_BOOT, "%s %d already running\n", "Host", host);
267 ** Grab a 32 bit pointer to the card.
272 ** We are going to (try) and load in rbp->Count bytes.
273 ** The last byte will reside at p->RIOConf.HostLoadBase-1;
274 ** Therefore, we need to start copying at address
275 ** (caddr+p->RIOConf.HostLoadBase-rbp->Count)
277 StartP = (caddr_t) & Cad[p->RIOConf.HostLoadBase - rbp->Count];
279 rio_dprintk(RIO_DEBUG_BOOT, "kernel virtual address for host is 0x%x\n", (int) Cad);
280 rio_dprintk(RIO_DEBUG_BOOT, "kernel virtual address for download is 0x%x\n", (int) StartP);
281 rio_dprintk(RIO_DEBUG_BOOT, "host loadbase is 0x%x\n", p->RIOConf.HostLoadBase);
282 rio_dprintk(RIO_DEBUG_BOOT, "size of download is 0x%x\n", rbp->Count);
284 if (p->RIOConf.HostLoadBase < rbp->Count) {
285 rio_dprintk(RIO_DEBUG_BOOT, "Bin too large\n");
286 p->RIOError.Error = HOST_FILE_TOO_LARGE;
291 ** Ensure that the host really is stopped.
292 ** Disable it's external bus & twang its reset line.
294 RIOHostReset(HostP->Type, (struct DpRam *) HostP->CardP, HostP->Slot);
297 ** Copy the data directly from user space to the SRAM.
298 ** This ain't going to be none too clever if the download
299 ** code is bigger than this segment.
301 rio_dprintk(RIO_DEBUG_BOOT, "Copy in code\n");
304 ** PCI hostcard can't cope with 32 bit accesses and so need to copy
305 ** data to a local buffer, and then dripfeed the card.
307 if (HostP->Type == RIO_PCI) {
310 DownCode = sysbrk(rbp->Count);
312 rio_dprintk(RIO_DEBUG_BOOT, "No system memory available\n");
313 p->RIOError.Error = NOT_ENOUGH_CORE_FOR_PCI_COPY;
317 bzero(DownCode, rbp->Count);
319 if (copyin((int) rbp->DataP, DownCode, rbp->Count) == COPYFAIL) {
320 rio_dprintk(RIO_DEBUG_BOOT, "Bad copyin of host data\n");
321 sysfree(DownCode, rbp->Count);
322 p->RIOError.Error = COPYIN_FAILED;
327 HostP->Copy(DownCode, StartP, rbp->Count);
329 sysfree(DownCode, rbp->Count);
330 } else if (copyin((int) rbp->DataP, StartP, rbp->Count) == COPYFAIL) {
331 rio_dprintk(RIO_DEBUG_BOOT, "Bad copyin of host data\n");
332 p->RIOError.Error = COPYIN_FAILED;
337 rio_dprintk(RIO_DEBUG_BOOT, "Copy completed\n");
342 ** Upto this point the code has been fairly rational, and possibly
343 ** even straight forward. What follows is a pile of crud that will
344 ** magically turn into six bytes of transputer assembler. Normally
345 ** you would expect an array or something, but, being me, I have
346 ** chosen [been told] to use a technique whereby the startup code
347 ** will be correct if we change the loadbase for the code. Which
348 ** brings us onto another issue - the loadbase is the *end* of the
349 ** code, not the start.
351 ** If I were you I wouldn't start from here.
355 ** We now need to insert a short boot section into
356 ** the memory at the end of Sram2. This is normally (de)composed
357 ** of the last eight bytes of the download code. The
358 ** download has been assembled/compiled to expect to be
359 ** loaded from 0x7FFF downwards. We have loaded it
360 ** at some other address. The startup code goes into the small
361 ** ram window at Sram2, in the last 8 bytes, which are really
362 ** at addresses 0x7FF8-0x7FFF.
364 ** If the loadbase is, say, 0x7C00, then we need to branch to
365 ** address 0x7BFE to run the host.bin startup code. We assemble
366 ** this jump manually.
368 ** The two byte sequence 60 08 is loaded into memory at address
369 ** 0x7FFE,F. This is a local branch to location 0x7FF8 (60 is nfix 0,
370 ** which adds '0' to the .O register, complements .O, and then shifts
371 ** it left by 4 bit positions, 08 is a jump .O+8 instruction. This will
372 ** add 8 to .O (which was 0xFFF0), and will branch RELATIVE to the new
373 ** location. Now, the branch starts from the value of .PC (or .IP or
374 ** whatever the bloody register is called on this chip), and the .PC
375 ** will be pointing to the location AFTER the branch, in this case
376 ** .PC == 0x8000, so the branch will be to 0x8000+0xFFF8 = 0x7FF8.
378 ** A long branch is coded at 0x7FF8. This consists of loading a four
379 ** byte offset into .O using nfix (as above) and pfix operators. The
380 ** pfix operates in exactly the same way as the nfix operator, but
381 ** without the complement operation. The offset, of course, must be
382 ** relative to the address of the byte AFTER the branch instruction,
383 ** which will be (urm) 0x7FFC, so, our final destination of the branch
384 ** (loadbase-2), has to be reached from here. Imagine that the loadbase
385 ** is 0x7C00 (which it is), then we will need to branch to 0x7BFE (which
386 ** is the first byte of the initial two byte short local branch of the
389 ** To code a jump from 0x7FFC (which is where the branch will start
390 ** from) to 0x7BFE, we will need to branch 0xFC02 bytes (0x7FFC+0xFC02)=
392 ** This will be coded as four bytes:
399 ** The nfix operator is used, so that the startup code will be
400 ** compatible with the whole Tp family. (lies, damn lies, it'll never
401 ** work in a month of Sundays).
403 ** The nfix nyble is the 1s complement of the nyble value you
404 ** want to load - in this case we wanted 'F' so we nfix loaded '0'.
409 ** Dest points to the top 8 bytes of Sram2. The Tp jumps
410 ** to 0x7FFE at reset time, and starts executing. This is
411 ** a short branch to 0x7FF8, where a long branch is coded.
414 DestP = (BYTE *) & Cad[0x7FF8]; /* <<<---- READ THE ABOVE COMMENTS */
416 #define NFIX(N) (0x60 | (N)) /* .O = (~(.O + N))<<4 */
417 #define PFIX(N) (0x20 | (N)) /* .O = (.O + N)<<4 */
418 #define JUMP(N) (0x00 | (N)) /* .PC = .PC + .O */
421 ** 0x7FFC is the address of the location following the last byte of
422 ** the four byte jump instruction.
423 ** READ THE ABOVE COMMENTS
425 ** offset is (TO-FROM) % MEMSIZE, but with compound buggering about.
426 ** Memsize is 64K for this range of Tp, so offset is a short (unsigned,
427 ** cos I don't understand 2's complement).
429 offset = (p->RIOConf.HostLoadBase - 2) - 0x7FFC;
430 WBYTE(DestP[0], NFIX(((ushort) (~offset) >> (ushort) 12) & 0xF));
431 WBYTE(DestP[1], PFIX((offset >> 8) & 0xF));
432 WBYTE(DestP[2], PFIX((offset >> 4) & 0xF));
433 WBYTE(DestP[3], JUMP(offset & 0xF));
435 WBYTE(DestP[6], NFIX(0));
436 WBYTE(DestP[7], JUMP(8));
438 rio_dprintk(RIO_DEBUG_BOOT, "host loadbase is 0x%x\n", p->RIOConf.HostLoadBase);
439 rio_dprintk(RIO_DEBUG_BOOT, "startup offset is 0x%x\n", offset);
442 ** Flag what is going on
444 HostP->Flags &= ~RUN_STATE;
445 HostP->Flags |= RC_STARTUP;
448 ** Grab a copy of the current ParmMap pointer, so we
449 ** can tell when it has changed.
451 OldParmMap = RWORD(HostP->__ParmMapR);
453 rio_dprintk(RIO_DEBUG_BOOT, "Original parmmap is 0x%x\n", OldParmMap);
456 ** And start it running (I hope).
457 ** As there is nothing dodgy or obscure about the
458 ** above code, this is guaranteed to work every time.
460 rio_dprintk(RIO_DEBUG_BOOT, "Host Type = 0x%x, Mode = 0x%x, IVec = 0x%x\n", HostP->Type, HostP->Mode, HostP->Ivec);
462 rio_start_card_running(HostP);
464 rio_dprintk(RIO_DEBUG_BOOT, "Set control port\n");
467 ** Now, wait for upto five seconds for the Tp to setup the parmmap
470 for (wait_count = 0; (wait_count < p->RIOConf.StartupTime) && (RWORD(HostP->__ParmMapR) == OldParmMap); wait_count++) {
471 rio_dprintk(RIO_DEBUG_BOOT, "Checkout %d, 0x%x\n", wait_count, RWORD(HostP->__ParmMapR));
472 delay(HostP, HUNDRED_MS);
477 ** If the parmmap pointer is unchanged, then the host code
478 ** has crashed & burned in a really spectacular way
480 if (RWORD(HostP->__ParmMapR) == OldParmMap) {
481 rio_dprintk(RIO_DEBUG_BOOT, "parmmap 0x%x\n", RWORD(HostP->__ParmMapR));
482 rio_dprintk(RIO_DEBUG_BOOT, "RIO Mesg Run Fail\n");
483 HostP->Flags &= ~RUN_STATE;
484 HostP->Flags |= RC_STUFFED;
485 RIOHostReset(HostP->Type, (struct DpRam *) HostP->CardP, HostP->Slot);
488 rio_dprintk(RIO_DEBUG_BOOT, "Running 0x%x\n", RWORD(HostP->__ParmMapR));
491 ** Well, the board thought it was OK, and setup its parmmap
492 ** pointer. For the time being, we will pretend that this
493 ** board is running, and check out what the error flag says.
497 ** Grab a 32 bit pointer to the parmmap structure
499 ParmMapP = (PARM_MAP *) RIO_PTR(Cad, RWORD(HostP->__ParmMapR));
500 rio_dprintk(RIO_DEBUG_BOOT, "ParmMapP : %x\n", (int) ParmMapP);
501 ParmMapP = (PARM_MAP *) ((unsigned long) Cad + (unsigned long) ((RWORD((HostP->__ParmMapR))) & 0xFFFF));
502 rio_dprintk(RIO_DEBUG_BOOT, "ParmMapP : %x\n", (int) ParmMapP);
505 ** The links entry should be 0xFFFF; we set it up
506 ** with a mask to say how many PHBs to use, and
507 ** which links to use.
509 if ((RWORD(ParmMapP->links) & 0xFFFF) != 0xFFFF) {
510 rio_dprintk(RIO_DEBUG_BOOT, "RIO Mesg Run Fail %s\n", HostP->Name);
511 rio_dprintk(RIO_DEBUG_BOOT, "Links = 0x%x\n", RWORD(ParmMapP->links));
512 HostP->Flags &= ~RUN_STATE;
513 HostP->Flags |= RC_STUFFED;
514 RIOHostReset(HostP->Type, (struct DpRam *) HostP->CardP, HostP->Slot);
517 WWORD(ParmMapP->links, RIO_LINK_ENABLE);
520 ** now wait for the card to set all the parmmap->XXX stuff
521 ** this is a wait of upto two seconds....
523 rio_dprintk(RIO_DEBUG_BOOT, "Looking for init_done - %d ticks\n", p->RIOConf.StartupTime);
524 HostP->timeout_id = 0;
525 for (wait_count = 0; (wait_count < p->RIOConf.StartupTime) && !RWORD(ParmMapP->init_done); wait_count++) {
526 rio_dprintk(RIO_DEBUG_BOOT, "Waiting for init_done\n");
527 delay(HostP, HUNDRED_MS);
529 rio_dprintk(RIO_DEBUG_BOOT, "OK! init_done!\n");
531 if (RWORD(ParmMapP->error) != E_NO_ERROR || !RWORD(ParmMapP->init_done)) {
532 rio_dprintk(RIO_DEBUG_BOOT, "RIO Mesg Run Fail %s\n", HostP->Name);
533 rio_dprintk(RIO_DEBUG_BOOT, "Timedout waiting for init_done\n");
534 HostP->Flags &= ~RUN_STATE;
535 HostP->Flags |= RC_STUFFED;
536 RIOHostReset(HostP->Type, (struct DpRam *) HostP->CardP, HostP->Slot);
539 rio_dprintk(RIO_DEBUG_BOOT, "Got init_done\n");
544 rio_dprintk(RIO_DEBUG_BOOT, "Host ID %x Running\n", HostP->UniqueNum);
547 ** set the time period between interrupts.
549 WWORD(ParmMapP->timer, (short) p->RIOConf.Timer);
552 ** Translate all the 16 bit pointers in the __ParmMapR into
553 ** 32 bit pointers for the driver.
555 HostP->ParmMapP = ParmMapP;
556 HostP->PhbP = (PHB *) RIO_PTR(Cad, RWORD(ParmMapP->phb_ptr));
557 HostP->RupP = (RUP *) RIO_PTR(Cad, RWORD(ParmMapP->rups));
558 HostP->PhbNumP = (ushort *) RIO_PTR(Cad, RWORD(ParmMapP->phb_num_ptr));
559 HostP->LinkStrP = (LPB *) RIO_PTR(Cad, RWORD(ParmMapP->link_str_ptr));
562 ** point the UnixRups at the real Rups
564 for (RupN = 0; RupN < MAX_RUP; RupN++) {
565 HostP->UnixRups[RupN].RupP = &HostP->RupP[RupN];
566 HostP->UnixRups[RupN].Id = RupN + 1;
567 HostP->UnixRups[RupN].BaseSysPort = NO_PORT;
568 spin_lock_init(&HostP->UnixRups[RupN].RupLock);
571 for (RupN = 0; RupN < LINKS_PER_UNIT; RupN++) {
572 HostP->UnixRups[RupN + MAX_RUP].RupP = &HostP->LinkStrP[RupN].rup;
573 HostP->UnixRups[RupN + MAX_RUP].Id = 0;
574 HostP->UnixRups[RupN + MAX_RUP].BaseSysPort = NO_PORT;
575 spin_lock_init(&HostP->UnixRups[RupN + MAX_RUP].RupLock);
579 ** point the PortP->Phbs at the real Phbs
581 for (PortN = p->RIOFirstPortsMapped; PortN < p->RIOLastPortsMapped + PORTS_PER_RTA; PortN++) {
582 if (p->RIOPortp[PortN]->HostP == HostP) {
583 struct Port *PortP = p->RIOPortp[PortN];
590 PhbP = &HostP->PhbP[PortP->HostPort];
591 rio_spin_lock_irqsave(&PortP->portSem, flags);
595 PortP->TxAdd = (WORD *) RIO_PTR(Cad, RWORD(PhbP->tx_add));
596 PortP->TxStart = (WORD *) RIO_PTR(Cad, RWORD(PhbP->tx_start));
597 PortP->TxEnd = (WORD *) RIO_PTR(Cad, RWORD(PhbP->tx_end));
598 PortP->RxRemove = (WORD *) RIO_PTR(Cad, RWORD(PhbP->rx_remove));
599 PortP->RxStart = (WORD *) RIO_PTR(Cad, RWORD(PhbP->rx_start));
600 PortP->RxEnd = (WORD *) RIO_PTR(Cad, RWORD(PhbP->rx_end));
602 rio_spin_unlock_irqrestore(&PortP->portSem, flags);
604 ** point the UnixRup at the base SysPort
606 if (!(PortN % PORTS_PER_RTA))
607 HostP->UnixRups[PortP->RupNum].BaseSysPort = PortN;
611 rio_dprintk(RIO_DEBUG_BOOT, "Set the card running... \n");
613 ** last thing - show the world that everything is in place
615 HostP->Flags &= ~RUN_STATE;
616 HostP->Flags |= RC_RUNNING;
619 ** MPX always uses a poller. This is actually patched into the system
620 ** configuration and called directly from each clock tick.
627 rio_dprintk(RIO_DEBUG_BOOT, "Done everything %x\n", HostP->Ivec);
635 ** Boot an RTA. If we have successfully processed this boot, then
636 ** return 1. If we havent, then return 0.
638 int RIOBootRup(p, Rup, HostP, PacketP)
644 struct PktCmd *PktCmdP = (struct PktCmd *) PacketP->data;
645 struct PktCmd_M *PktReplyP;
646 struct CmdBlk *CmdBlkP;
650 ** If we haven't been told what to boot, we can't boot it.
652 if (p->RIONumBootPkts == 0) {
653 rio_dprintk(RIO_DEBUG_BOOT, "No RTA code to download yet\n");
657 /* rio_dprint(RIO_DEBUG_BOOT, NULL,DBG_BOOT,"Incoming command packet\n"); */
658 /* ShowPacket( DBG_BOOT, PacketP ); */
661 ** Special case of boot completed - if we get one of these then we
662 ** don't need a command block. For all other cases we do, so handle
663 ** this first and then get a command block, then handle every other
664 ** case, relinquishing the command block if disaster strikes!
666 if ((RBYTE(PacketP->len) & PKT_CMD_BIT) && (RBYTE(PktCmdP->Command) == BOOT_COMPLETED))
667 return RIOBootComplete(p, HostP, Rup, PktCmdP);
670 ** try to unhook a command block from the command free list.
672 if (!(CmdBlkP = RIOGetCmdBlk())) {
673 rio_dprintk(RIO_DEBUG_BOOT, "No command blocks to boot RTA! come back later.\n");
678 ** Fill in the default info on the command block
680 CmdBlkP->Packet.dest_unit = Rup < (ushort) MAX_RUP ? Rup : 0;
681 CmdBlkP->Packet.dest_port = BOOT_RUP;
682 CmdBlkP->Packet.src_unit = 0;
683 CmdBlkP->Packet.src_port = BOOT_RUP;
685 CmdBlkP->PreFuncP = CmdBlkP->PostFuncP = NULL;
686 PktReplyP = (struct PktCmd_M *) CmdBlkP->Packet.data;
689 ** process COMMANDS on the boot rup!
691 if (RBYTE(PacketP->len) & PKT_CMD_BIT) {
693 ** We only expect one type of command - a BOOT_REQUEST!
695 if (RBYTE(PktCmdP->Command) != BOOT_REQUEST) {
696 rio_dprintk(RIO_DEBUG_BOOT, "Unexpected command %d on BOOT RUP %d of host %d\n", PktCmdP->Command, Rup, HostP - p->RIOHosts);
697 ShowPacket(DBG_BOOT, PacketP);
698 RIOFreeCmdBlk(CmdBlkP);
703 ** Build a Boot Sequence command block
705 ** 02.03.1999 ARG - ESIL 0820 fix
706 ** We no longer need to use "Boot Mode", we'll always allow
707 ** boot requests - the boot will not complete if the device
708 ** appears in the bindings table.
709 ** So, this conditional is not required ...
711 if (p->RIOBootMode == RC_BOOT_NONE)
713 ** If the system is in slave mode, and a boot request is
714 ** received, set command to BOOT_ABORT so that the boot
715 ** will not complete.
717 PktReplyP->Command = BOOT_ABORT;
720 ** We'll just (always) set the command field in packet reply
721 ** to allow an attempted boot sequence :
723 PktReplyP->Command = BOOT_SEQUENCE;
725 PktReplyP->BootSequence.NumPackets = p->RIONumBootPkts;
726 PktReplyP->BootSequence.LoadBase = p->RIOConf.RtaLoadBase;
727 PktReplyP->BootSequence.CodeSize = p->RIOBootCount;
729 CmdBlkP->Packet.len = BOOT_SEQUENCE_LEN | PKT_CMD_BIT;
731 bcopy("BOOT", (void *) &CmdBlkP->Packet.data[BOOT_SEQUENCE_LEN], 4);
733 rio_dprintk(RIO_DEBUG_BOOT, "Boot RTA on Host %d Rup %d - %d (0x%x) packets to 0x%x\n", HostP - p->RIOHosts, Rup, p->RIONumBootPkts, p->RIONumBootPkts, p->RIOConf.RtaLoadBase);
736 ** If this host is in slave mode, send the RTA an invalid boot
737 ** sequence command block to force it to kill the boot. We wait
738 ** for half a second before sending this packet to prevent the RTA
739 ** attempting to boot too often. The master host should then grab
740 ** the RTA and make it its own.
743 RIOQueueCmdBlk(HostP, Rup, CmdBlkP);
748 ** It is a request for boot data.
750 sequence = RWORD(PktCmdP->Sequence);
752 rio_dprintk(RIO_DEBUG_BOOT, "Boot block %d on Host %d Rup%d\n", sequence, HostP - p->RIOHosts, Rup);
754 if (sequence >= p->RIONumBootPkts) {
755 rio_dprintk(RIO_DEBUG_BOOT, "Got a request for packet %d, max is %d\n", sequence, p->RIONumBootPkts);
756 ShowPacket(DBG_BOOT, PacketP);
759 PktReplyP->Sequence = sequence;
761 bcopy(p->RIOBootPackets[p->RIONumBootPkts - sequence - 1], PktReplyP->BootData, RTA_BOOT_DATA_SIZE);
763 CmdBlkP->Packet.len = PKT_MAX_DATA_LEN;
764 ShowPacket(DBG_BOOT, &CmdBlkP->Packet);
765 RIOQueueCmdBlk(HostP, Rup, CmdBlkP);
770 ** This function is called when an RTA been booted.
771 ** If booted by a host, HostP->HostUniqueNum is the booting host.
772 ** If booted by an RTA, HostP->Mapping[Rup].RtaUniqueNum is the booting RTA.
773 ** RtaUniq is the booted RTA.
775 static int RIOBootComplete(struct rio_info *p, struct Host *HostP, uint Rup, struct PktCmd *PktCmdP)
777 struct Map *MapP = NULL;
778 struct Map *MapP2 = NULL;
784 char *MyType, *MyName;
787 uint RtaUniq = (RBYTE(PktCmdP->UniqNum[0])) + (RBYTE(PktCmdP->UniqNum[1]) << 8) + (RBYTE(PktCmdP->UniqNum[2]) << 16) + (RBYTE(PktCmdP->UniqNum[3]) << 24);
789 /* Was RIOBooting-- . That's bad. If an RTA sends two of them, the
790 driver will never think that the RTA has booted... -- REW */
793 rio_dprintk(RIO_DEBUG_BOOT, "RTA Boot completed - BootInProgress now %d\n", p->RIOBooting);
796 ** Determine type of unit (16/8 port RTA).
798 RtaType = GetUnitType(RtaUniq);
799 if (Rup >= (ushort) MAX_RUP) {
800 rio_dprintk(RIO_DEBUG_BOOT, "RIO: Host %s has booted an RTA(%d) on link %c\n", HostP->Name, 8 * RtaType, RBYTE(PktCmdP->LinkNum) + 'A');
802 rio_dprintk(RIO_DEBUG_BOOT, "RIO: RTA %s has booted an RTA(%d) on link %c\n", HostP->Mapping[Rup].Name, 8 * RtaType, RBYTE(PktCmdP->LinkNum) + 'A');
805 rio_dprintk(RIO_DEBUG_BOOT, "UniqNum is 0x%x\n", RtaUniq);
807 if ((RtaUniq == 0x00000000) || (RtaUniq == 0xffffffff)) {
808 rio_dprintk(RIO_DEBUG_BOOT, "Illegal RTA Uniq Number\n");
813 ** If this RTA has just booted an RTA which doesn't belong to this
814 ** system, or the system is in slave mode, do not attempt to create
815 ** a new table entry for it.
817 if (!RIOBootOk(p, HostP, RtaUniq)) {
818 MyLink = RBYTE(PktCmdP->LinkNum);
819 if (Rup < (ushort) MAX_RUP) {
821 ** RtaUniq was clone booted (by this RTA). Instruct this RTA
822 ** to hold off further attempts to boot on this link for 30
825 if (RIOSuspendBootRta(HostP, HostP->Mapping[Rup].ID, MyLink)) {
826 rio_dprintk(RIO_DEBUG_BOOT, "RTA failed to suspend booting on link %c\n", 'A' + MyLink);
830 ** RtaUniq was booted by this host. Set the booting link
831 ** to hold off for 30 seconds to give another unit a
832 ** chance to boot it.
834 WWORD(HostP->LinkStrP[MyLink].WaitNoBoot, 30);
836 rio_dprintk(RIO_DEBUG_BOOT, "RTA %x not owned - suspend booting down link %c on unit %x\n", RtaUniq, 'A' + MyLink, HostP->Mapping[Rup].RtaUniqueNum);
841 ** Check for a SLOT_IN_USE entry for this RTA attached to the
842 ** current host card in the driver table.
844 ** If it exists, make a note that we have booted it. Other parts of
845 ** the driver are interested in this information at a later date,
846 ** in particular when the booting RTA asks for an ID for this unit,
847 ** we must have set the BOOTED flag, and the NEWBOOT flag is used
848 ** to force an open on any ports that where previously open on this
851 for (entry = 0; entry < MAX_RUP; entry++) {
854 if ((HostP->Mapping[entry].Flags & SLOT_IN_USE) && (HostP->Mapping[entry].RtaUniqueNum == RtaUniq)) {
855 HostP->Mapping[entry].Flags |= RTA_BOOTED | RTA_NEWBOOT;
857 RIO_SV_BROADCAST(HostP->svFlags[entry]);
859 if ((sysport = HostP->Mapping[entry].SysPort) != NO_PORT) {
860 if (sysport < p->RIOFirstPortsBooted)
861 p->RIOFirstPortsBooted = sysport;
862 if (sysport > p->RIOLastPortsBooted)
863 p->RIOLastPortsBooted = sysport;
865 ** For a 16 port RTA, check the second bank of 8 ports
867 if (RtaType == TYPE_RTA16) {
868 entry2 = HostP->Mapping[entry].ID2 - 1;
869 HostP->Mapping[entry2].Flags |= RTA_BOOTED | RTA_NEWBOOT;
871 RIO_SV_BROADCAST(HostP->svFlags[entry2]);
873 sysport = HostP->Mapping[entry2].SysPort;
874 if (sysport < p->RIOFirstPortsBooted)
875 p->RIOFirstPortsBooted = sysport;
876 if (sysport > p->RIOLastPortsBooted)
877 p->RIOLastPortsBooted = sysport;
880 if (RtaType == TYPE_RTA16) {
881 rio_dprintk(RIO_DEBUG_BOOT, "RTA will be given IDs %d+%d\n", entry + 1, entry2 + 1);
883 rio_dprintk(RIO_DEBUG_BOOT, "RTA will be given ID %d\n", entry + 1);
889 rio_dprintk(RIO_DEBUG_BOOT, "RTA not configured for this host\n");
891 if (Rup >= (ushort) MAX_RUP) {
893 ** It was a host that did the booting
896 MyName = HostP->Name;
899 ** It was an RTA that did the booting
902 MyName = HostP->Mapping[Rup].Name;
904 MyLink = RBYTE(PktCmdP->LinkNum);
907 ** There is no SLOT_IN_USE entry for this RTA attached to the current
908 ** host card in the driver table.
910 ** Check for a SLOT_TENTATIVE entry for this RTA attached to the
911 ** current host card in the driver table.
913 ** If we find one, then we re-use that slot.
915 for (entry = 0; entry < MAX_RUP; entry++) {
916 if ((HostP->Mapping[entry].Flags & SLOT_TENTATIVE) && (HostP->Mapping[entry].RtaUniqueNum == RtaUniq)) {
917 if (RtaType == TYPE_RTA16) {
918 entry2 = HostP->Mapping[entry].ID2 - 1;
919 if ((HostP->Mapping[entry2].Flags & SLOT_TENTATIVE) && (HostP->Mapping[entry2].RtaUniqueNum == RtaUniq))
920 rio_dprintk(RIO_DEBUG_BOOT, "Found previous tentative slots (%d+%d)\n", entry, entry2);
924 rio_dprintk(RIO_DEBUG_BOOT, "Found previous tentative slot (%d)\n", entry);
925 if (!p->RIONoMessage)
926 cprintf("RTA connected to %s '%s' (%c) not configured.\n", MyType, MyName, MyLink + 'A');
932 ** There is no SLOT_IN_USE or SLOT_TENTATIVE entry for this RTA
933 ** attached to the current host card in the driver table.
935 ** Check if there is a SLOT_IN_USE or SLOT_TENTATIVE entry on another
936 ** host for this RTA in the driver table.
938 ** For a SLOT_IN_USE entry on another host, we need to delete the RTA
939 ** entry from the other host and add it to this host (using some of
940 ** the functions from table.c which do this).
941 ** For a SLOT_TENTATIVE entry on another host, we must cope with the
942 ** following scenario:
944 ** + Plug 8 port RTA into host A. (This creates SLOT_TENTATIVE entry
946 ** + Unplug RTA and plug into host B. (We now have 2 SLOT_TENTATIVE
948 ** + Configure RTA on host B. (This slot now becomes SLOT_IN_USE)
949 ** + Unplug RTA and plug back into host A.
950 ** + Configure RTA on host A. We now have the same RTA configured
951 ** with different ports on two different hosts.
953 rio_dprintk(RIO_DEBUG_BOOT, "Have we seen RTA %x before?\n", RtaUniq);
955 Flag = 0; /* Convince the compiler this variable is initialized */
956 for (host = 0; !found && (host < p->RIONumHosts); host++) {
957 for (rta = 0; rta < MAX_RUP; rta++) {
958 if ((p->RIOHosts[host].Mapping[rta].Flags & (SLOT_IN_USE | SLOT_TENTATIVE)) && (p->RIOHosts[host].Mapping[rta].RtaUniqueNum == RtaUniq)) {
959 Flag = p->RIOHosts[host].Mapping[rta].Flags;
960 MapP = &p->RIOHosts[host].Mapping[rta];
961 if (RtaType == TYPE_RTA16) {
962 MapP2 = &p->RIOHosts[host].Mapping[MapP->ID2 - 1];
963 rio_dprintk(RIO_DEBUG_BOOT, "This RTA is units %d+%d from host %s\n", rta + 1, MapP->ID2, p->RIOHosts[host].Name);
965 rio_dprintk(RIO_DEBUG_BOOT, "This RTA is unit %d from host %s\n", rta + 1, p->RIOHosts[host].Name);
973 ** There is no SLOT_IN_USE or SLOT_TENTATIVE entry for this RTA
974 ** attached to the current host card in the driver table.
976 ** If we have not found a SLOT_IN_USE or SLOT_TENTATIVE entry on
977 ** another host for this RTA in the driver table...
979 ** Check for a SLOT_IN_USE entry for this RTA in the config table.
982 rio_dprintk(RIO_DEBUG_BOOT, "Look for RTA %x in RIOSavedTable\n", RtaUniq);
983 for (rta = 0; rta < TOTAL_MAP_ENTRIES; rta++) {
984 rio_dprintk(RIO_DEBUG_BOOT, "Check table entry %d (%x)", rta, p->RIOSavedTable[rta].RtaUniqueNum);
986 if ((p->RIOSavedTable[rta].Flags & SLOT_IN_USE) && (p->RIOSavedTable[rta].RtaUniqueNum == RtaUniq)) {
987 MapP = &p->RIOSavedTable[rta];
988 Flag = p->RIOSavedTable[rta].Flags;
989 if (RtaType == TYPE_RTA16) {
990 for (entry2 = rta + 1; entry2 < TOTAL_MAP_ENTRIES; entry2++) {
991 if (p->RIOSavedTable[entry2].RtaUniqueNum == RtaUniq)
994 MapP2 = &p->RIOSavedTable[entry2];
995 rio_dprintk(RIO_DEBUG_BOOT, "This RTA is from table entries %d+%d\n", rta, entry2);
997 rio_dprintk(RIO_DEBUG_BOOT, "This RTA is from table entry %d\n", rta);
1004 ** There is no SLOT_IN_USE or SLOT_TENTATIVE entry for this RTA
1005 ** attached to the current host card in the driver table.
1007 ** We may have found a SLOT_IN_USE entry on another host for this
1008 ** RTA in the config table, or a SLOT_IN_USE or SLOT_TENTATIVE entry
1009 ** on another host for this RTA in the driver table.
1011 ** Check the driver table for room to fit this newly discovered RTA.
1012 ** RIOFindFreeID() first looks for free slots and if it does not
1013 ** find any free slots it will then attempt to oust any
1014 ** tentative entry in the table.
1017 if (RtaType == TYPE_RTA16) {
1018 if (RIOFindFreeID(p, HostP, &entry, &entry2) == 0) {
1019 RIODefaultName(p, HostP, entry);
1020 FillSlot(entry, entry2, RtaUniq, HostP);
1024 if (RIOFindFreeID(p, HostP, &entry, NULL) == 0) {
1025 RIODefaultName(p, HostP, entry);
1026 FillSlot(entry, 0, RtaUniq, HostP);
1032 ** There is no SLOT_IN_USE or SLOT_TENTATIVE entry for this RTA
1033 ** attached to the current host card in the driver table.
1035 ** If we found a SLOT_IN_USE entry on another host for this
1036 ** RTA in the config or driver table, and there are enough free
1037 ** slots in the driver table, then we need to move it over and
1038 ** delete it from the other host.
1039 ** If we found a SLOT_TENTATIVE entry on another host for this
1040 ** RTA in the driver table, just delete the other host entry.
1042 if (EmptySlot == 0) {
1044 if (Flag & SLOT_IN_USE) {
1045 rio_dprintk(RIO_DEBUG_BOOT, "This RTA configured on another host - move entry to current host (1)\n");
1046 HostP->Mapping[entry].SysPort = MapP->SysPort;
1047 CCOPY(MapP->Name, HostP->Mapping[entry].Name, MAX_NAME_LEN);
1048 HostP->Mapping[entry].Flags = SLOT_IN_USE | RTA_BOOTED | RTA_NEWBOOT;
1050 RIO_SV_BROADCAST(HostP->svFlags[entry]);
1052 RIOReMapPorts(p, HostP, &HostP->Mapping[entry]);
1053 if (HostP->Mapping[entry].SysPort < p->RIOFirstPortsBooted)
1054 p->RIOFirstPortsBooted = HostP->Mapping[entry].SysPort;
1055 if (HostP->Mapping[entry].SysPort > p->RIOLastPortsBooted)
1056 p->RIOLastPortsBooted = HostP->Mapping[entry].SysPort;
1057 rio_dprintk(RIO_DEBUG_BOOT, "SysPort %d, Name %s\n", (int) MapP->SysPort, MapP->Name);
1059 rio_dprintk(RIO_DEBUG_BOOT, "This RTA has a tentative entry on another host - delete that entry (1)\n");
1060 HostP->Mapping[entry].Flags = SLOT_TENTATIVE | RTA_BOOTED | RTA_NEWBOOT;
1062 RIO_SV_BROADCAST(HostP->svFlags[entry]);
1065 if (RtaType == TYPE_RTA16) {
1066 if (Flag & SLOT_IN_USE) {
1067 HostP->Mapping[entry2].Flags = SLOT_IN_USE | RTA_BOOTED | RTA_NEWBOOT | RTA16_SECOND_SLOT;
1069 RIO_SV_BROADCAST(HostP->svFlags[entry2]);
1071 HostP->Mapping[entry2].SysPort = MapP2->SysPort;
1073 ** Map second block of ttys for 16 port RTA
1075 RIOReMapPorts(p, HostP, &HostP->Mapping[entry2]);
1076 if (HostP->Mapping[entry2].SysPort < p->RIOFirstPortsBooted)
1077 p->RIOFirstPortsBooted = HostP->Mapping[entry2].SysPort;
1078 if (HostP->Mapping[entry2].SysPort > p->RIOLastPortsBooted)
1079 p->RIOLastPortsBooted = HostP->Mapping[entry2].SysPort;
1080 rio_dprintk(RIO_DEBUG_BOOT, "SysPort %d, Name %s\n", (int) HostP->Mapping[entry2].SysPort, HostP->Mapping[entry].Name);
1082 HostP->Mapping[entry2].Flags = SLOT_TENTATIVE | RTA_BOOTED | RTA_NEWBOOT | RTA16_SECOND_SLOT;
1084 RIO_SV_BROADCAST(HostP->svFlags[entry2]);
1086 bzero((caddr_t) MapP2, sizeof(struct Map));
1088 bzero((caddr_t) MapP, sizeof(struct Map));
1089 if (!p->RIONoMessage)
1090 cprintf("An orphaned RTA has been adopted by %s '%s' (%c).\n", MyType, MyName, MyLink + 'A');
1091 } else if (!p->RIONoMessage)
1092 cprintf("RTA connected to %s '%s' (%c) not configured.\n", MyType, MyName, MyLink + 'A');
1098 ** There is no room in the driver table to make an entry for the
1099 ** booted RTA. Keep a note of its Uniq Num in the overflow table,
1100 ** so we can ignore it's ID requests.
1102 if (!p->RIONoMessage)
1103 cprintf("The RTA connected to %s '%s' (%c) cannot be configured. You cannot configure more than 128 ports to one host card.\n", MyType, MyName, MyLink + 'A');
1104 for (entry = 0; entry < HostP->NumExtraBooted; entry++) {
1105 if (HostP->ExtraUnits[entry] == RtaUniq) {
1113 ** If there is room, add the unit to the list of extras
1115 if (HostP->NumExtraBooted < MAX_EXTRA_UNITS)
1116 HostP->ExtraUnits[HostP->NumExtraBooted++] = RtaUniq;
1122 ** If the RTA or its host appears in the RIOBindTab[] structure then
1123 ** we mustn't boot the RTA and should return FALSE.
1124 ** This operation is slightly different from the other drivers for RIO
1125 ** in that this is designed to work with the new utilities
1126 ** not config.rio and is FAR SIMPLER.
1127 ** We no longer support the RIOBootMode variable. It is all done from the
1128 ** "boot/noboot" field in the rio.cf file.
1130 int RIOBootOk(p, HostP, RtaUniq)
1136 uint HostUniq = HostP->UniqueNum;
1139 ** Search bindings table for RTA or its parent.
1140 ** If it exists, return 0, else 1.
1142 for (Entry = 0; (Entry < MAX_RTA_BINDINGS) && (p->RIOBindTab[Entry] != 0); Entry++) {
1143 if ((p->RIOBindTab[Entry] == HostUniq) || (p->RIOBindTab[Entry] == RtaUniq))
1150 ** Make an empty slot tentative. If this is a 16 port RTA, make both
1151 ** slots tentative, and the second one RTA_SECOND_SLOT as well.
1154 void FillSlot(entry, entry2, RtaUniq, HostP)
1162 rio_dprintk(RIO_DEBUG_BOOT, "FillSlot(%d, %d, 0x%x...)\n", entry, entry2, RtaUniq);
1164 HostP->Mapping[entry].Flags = (RTA_BOOTED | RTA_NEWBOOT | SLOT_TENTATIVE);
1165 HostP->Mapping[entry].SysPort = NO_PORT;
1166 HostP->Mapping[entry].RtaUniqueNum = RtaUniq;
1167 HostP->Mapping[entry].HostUniqueNum = HostP->UniqueNum;
1168 HostP->Mapping[entry].ID = entry + 1;
1169 HostP->Mapping[entry].ID2 = 0;
1171 HostP->Mapping[entry2].Flags = (RTA_BOOTED | RTA_NEWBOOT | SLOT_TENTATIVE | RTA16_SECOND_SLOT);
1172 HostP->Mapping[entry2].SysPort = NO_PORT;
1173 HostP->Mapping[entry2].RtaUniqueNum = RtaUniq;
1174 HostP->Mapping[entry2].HostUniqueNum = HostP->UniqueNum;
1175 HostP->Mapping[entry2].Name[0] = '\0';
1176 HostP->Mapping[entry2].ID = entry2 + 1;
1177 HostP->Mapping[entry2].ID2 = entry + 1;
1178 HostP->Mapping[entry].ID2 = entry2 + 1;
1181 ** Must set these up, so that utilities show
1182 ** topology of 16 port RTAs correctly
1184 for (link = 0; link < LINKS_PER_UNIT; link++) {
1185 HostP->Mapping[entry].Topology[link].Unit = ROUTE_DISCONNECT;
1186 HostP->Mapping[entry].Topology[link].Link = NO_LINK;
1188 HostP->Mapping[entry2].Topology[link].Unit = ROUTE_DISCONNECT;
1189 HostP->Mapping[entry2].Topology[link].Link = NO_LINK;