123148Smckusick /* 229324Smckusick * Copyright (c) 1980, 1986 Regents of the University of California. 323148Smckusick * All rights reserved. The Berkeley software License Agreement 423148Smckusick * specifies the terms and conditions for redistribution. 523148Smckusick */ 611094Ssam 7*30544Skarels /* "@(#)rlboot.c 7.3 (Berkeley) 02/21/87" */ 829801Skarels #include <sys/disklabel.h> 923148Smckusick 1026885Skarels .set MAJOR,14 /* major("/dev/rl0a") */ 1126885Skarels 1211094Ssam /* 1311188Ssam * RL02 1st level boot program: loads next 7.5Kbytes from 1411188Ssam * boot sector of file system and sets it up to run. 1511094Ssam */ 1611188Ssam .set BOOTSIZE,15 /* 15 ``sectors'' */ 1711094Ssam .set RELOC,0x50000 1811094Ssam /* UBA registers */ 1911188Ssam .set UBA_CNFGR,0 /* UBA configuration register */ 2011188Ssam .set UBA_CR,4 /* UBA control register offset */ 2111188Ssam .set UBA_MAP,0x800 /* UBA offset to map reg's */ 2211094Ssam /* RL11 registers and bits */ 2311188Ssam .set HL,0174400-0160000 /* address of RL11 */ 2411188Ssam .set HLBPSECT,512 /* sector size in bytes (kludge) */ 2511188Ssam .set HL_cs,HL+0 /* control and status */ 2611188Ssam .set HL_ba,HL+2 /* bus address */ 2711188Ssam .set HL_da,HL+4 /* disk address */ 2811188Ssam .set HL_wc,HL+6 /* word count */ 2926885Skarels .set HL_RDY,0200 /* READY */ 3011188Ssam .set HL_RCOM,014 /* read command */ 3111188Ssam .set HL_SEEK,06 /* seek */ 3211188Ssam .set HL_RESET,013 /* reset drive */ 3311188Ssam .set HL_GSTAT,04 /* get status command */ 3411188Ssam .set HL_pRDY,7 /* position of ready bit */ 3511188Ssam .set HL_pERR,15 /* position of error bit */ 3611094Ssam 3711094Ssam init: 3811094Ssam /* r9 UBA address */ 3926885Skarels /* r8 RL addr */ 4011188Ssam .word 0 /* entry mask for dec monitor */ 4111188Ssam nop;nop;nop;nop;nop;nop;nop;nop /* some no-ops for 750 boot to skip */ 4211094Ssam nop;nop; 43*30544Skarels cvtbl $MAJOR,r10 /* major("/dev/xx0a") */ 4426885Skarels extzv $18,$1,r1,r9 /* get UBA number from R1 */ 4526885Skarels xorb2 $0x01,r9 /* complement bit */ 4626885Skarels insv r9,$24,$8,r10 /* set UBA number */ 4726885Skarels insv r3,$16,$8,r10 /* drive number */ 4826885Skarels extzv $12,$4,r5,r4 /* get partition from r5 */ 4926885Skarels bicw2 $0xf000,r5 /* remove from r5 */ 5026885Skarels insv r4,$8,$8,r10 /* set partition */ 5126885Skarels movl r5,r11 /* boot flags */ 52*30544Skarels 53*30544Skarels movl r2,r8 /* boot device CSR */ 5429801Skarels brw start0 5529801Skarels 5629801Skarels /* 5729801Skarels * Leave space for pack label. 5829801Skarels */ 5929801Skarels pad: 6029801Skarels .space LABELOFFSET - (pad - init) 6129801Skarels packlabel: 6229801Skarels .space d_end_ 6329801Skarels 6429801Skarels start0: 6526885Skarels movl physUBA[r9],r9 /* UNIBUS adaptor address */ 66*30544Skarels ashl $8,r3,r7 /* unit number, shifted for HL_cs */ 6726885Skarels 6826885Skarels /* init rl11, and drive, don't check for any errors now */ 6926885Skarels movw $HL_RESET,HL_da(r8) 7026885Skarels bisw3 r7,$HL_GSTAT,HL_cs(r8) 7111094Ssam /* relocate to high core */ 7211094Ssam start: 7311094Ssam movl $RELOC,sp 7411094Ssam moval init,r6 7511094Ssam movc3 $end,(r6),(sp) 7611094Ssam jmp *$RELOC+start2 7711094Ssam /* now running relocated */ 7811188Ssam /* read in the boot program */ 7911188Ssam .set PROGSIZE,(BOOTSIZE*HLBPSECT) 8011094Ssam start2: 8126885Skarels movw $1,HL_da(r8) /* seek to cylinder 0 */ 8226885Skarels bisw3 r7,$HL_SEEK,HL_cs(r8) 8311188Ssam 1: 8426885Skarels movw HL_cs(r8),r0 8511188Ssam bbc $HL_pRDY,r0,1b 8611188Ssam bbs $HL_pERR,r0,hlerr 8713164Ssam /* Rl has 256 byte sectors */ 8826885Skarels movw $2,HL_da(r8) /* read program */ 8926885Skarels movw $-PROGSIZE/2,HL_wc(r8) 9011188Ssam clrl r0 9111188Ssam 1: 9211188Ssam bisl3 $0x80000000,r0,UBA_MAP(r9) 9311188Ssam addl2 $4,r9 9411188Ssam aobleq $BOOTSIZE,r0,1b 9526885Skarels clrw HL_ba(r8) 9626885Skarels bisw3 r7,$HL_RCOM,HL_cs(r8) 9711188Ssam 1: 9826885Skarels movw HL_cs(r8),r0 9911188Ssam bbc $HL_pRDY,r0,1b 10026885Skarels bbc $HL_pERR,r0,done 10111188Ssam hlerr: 10211188Ssam halt /* ungraceful */ 10311188Ssam done: 10411188Ssam movl $PROGSIZE,r3 10511094Ssam clrcor: 10611094Ssam clrq (r3) 10711094Ssam acbl $RELOC,$8,r3,clrcor 10811094Ssam /* run loaded program */ 10911094Ssam calls $0,*$0 11011094Ssam brw start2 11111094Ssam physUBA: 11226885Skarels .long 0xf30000 /* uba0 */ 11326885Skarels .long 0xf32000 /* uba1 */ 11411094Ssam end: 115