/* * UP disk boot program to load "/boot" from * a UNIX filesystem (starting at block 1 on pack on * drive 0) into low core and to execute that file. * * This program can only read regular small 1k byte (3bsd+) files * from the root of a UNIX filesystem. */ .set BLKSIZ,1024 /* file system block size */ .set RELOC,0x50000 .set INOSIZ,64 /* no. bytes/inode entry */ .set INOBLK,BLKSIZ/INOSIZ /* no. inodes/disc block */ .set INOMSK,0xfffffff0 /* changes with inode size */ .set NAMSIZ,14 /* bytes in directory name */ .set ENTADR,024 /* offset to entry addr in a.out */ .set DIRSIZ,16 /* size of directory entry, bytes */ .set ROOTINO,2 /* root dir inode no. */ .set NBOO,1 .set NSUP,1 .set SID,62 /* system ID register */ /* UBA registers */ .set UBA_CNFGR,0 /* UBA configuration register */ .set UBA_CR,4 /* UBA control register offset */ .set UBA_MAP,0x800 /* UBA offset to map reg's */ .set UBAinit,1 /* UBA init bit in UBA control reg */ .set pUBIC,16 /* Unibus init complete */ /* UP registers and bits */ .set UP,0176700-0160000 /* address of UP controller */ .set UP_cs1,UP+0 /* control and status */ .set UP_wc,UP+2 /* word count */ .set UP_ba,UP+4 /* bus address */ .set UP_da,UP+6 /* disk address */ .set UP_cs2,UP+010 /* cs2 register */ .set UP_of,UP+032 /* offset register */ .set UP_dc,UP+034 /* desired cylinder */ .set UP_hr,UP+036 /* holding register */ .set UPHR_MAXTRAK,0100030 .set UPSEC,32 .set UP_GO,1 /* go bit */ .set UP_PACK,022 /* pack acknowledge */ .set UP_DCLR,010 /* drive clear */ .set UP_PRESET,020 /* read-in-preset */ .set UP_RCOM,070 /* read command */ .set UPCS2_CLR,040 .set UP_pRDY,7 /* position of ready bit */ .set UP_pERR,15 /* position of error bit */ .set UP_FMT22,010000 init: .word 0 /* entry mask for dec monitor */ nop;nop;nop;nop;nop;nop;nop;nop /* some no-ops for 750 boot to skip */ nop;nop; /* get cpu type and find the first uba */ mfpr $SID,r0 extzv $24,$8,r0,r0 /* get cpu type */ ashl $2,r0,r1 movab physUBA,r2 /* get physUBA[cpu] */ addl2 r1,r2 movl (r2),r9 movab physUMEM,r2 /* get physUMEM[cpu] */ addl2 r1,r2 movl (r2),r10 /* if 780, init uba */ cmpl r0,$1 bneq 2f movl $UBAinit,UBA_CR(r9) 1: bbc $pUBIC,UBA_CNFGR(r9),1b 2: movl $5000000,r0 1: sobgtr r0,1b /* init up, set vv in drive 0; if any errors, give up */ movw $UPCS2_CLR,UP_cs2(r10) movw $UP_DCLR+UP_GO,UP_cs1(r10) movw $UP_PRESET+UP_GO,UP_cs1(r10) movw $UP_FMT22,UP_of(r10) 1: movw UP_cs1(r10),r0 bbc $UP_pRDY,r0,1b /* relocate to high core */ start: movl r5,r11 /* boot flags */ movl $RELOC,sp moval init,r6 movc3 $end,(r6),(sp) jmp *$RELOC+start2 /* now running relocated */ start2: /* determine tracks; for now must get 10 or 19, otw assume 19 */ /* always assume 32 sectors for now; this all handles fuji's and 300mbs */ movw $UPHR_MAXTRAK,UP_hr(r10) movw UP_hr(r10),r0 incl r0 movw r0,*$uptrk 1: mull3 $32,r0,*$upst /* search for ``boot'' in root inode */ movl $names+RELOC,r6 movzbl $ROOTINO,r0 nxti: clrw *$bno bsbw iget tstb (r6) beql getfil get1b: bsbw rmblk beql start2 movl $buf,r7 nxtent: tstw (r7) beql dirchk cmpc3 $NAMSIZ,(r6),2(r7) bneq dirchk movzwl (r7),r0 addl2 $NAMSIZ,r6 brb nxti dirchk: acbl $buf+BLKSIZ-1,$DIRSIZ,r7,nxtent brb get1b /* found inode for desired file... read it in */ getfil: clrl bufptr getlop: bsbb rmblk beql clear addl2 $BLKSIZ,bufptr brb getlop clear: movl *$size,r3 clrcor: clrq (r3) acbl $RELOC,$8,r3,clrcor /* run loaded program */ movl $2,r10 /* major("/dev/up0a") */ calls $0,*$0 brw start2 /* iget: get inode block whose # is in r0 */ iget: addl3 $(INOBLK*(NBOO+NSUP))-1,r0,r8 divl3 $INOBLK,r8,r4 bsbw rblk bicl2 $INOMSK,r8 mull2 $INOSIZ,r8 addl2 $buf,r8 movc3 $time-inode,(r8),*$inode rsb /* rmblk: read in bno into addr */ rmblk: movzwl *$bno,r0 addw2 $3,*$bno addl2 $addr,r0 /* this boot assumes only small files (<=20 blocks) */ extzv $0,$24,(r0),r4 bneq rblk rsb /* rblk: read disk block whose number is in r4 */ rblk: mull2 $BLKSIZ/512,r4 clrl r5 ediv *$upst,r4,r0,r1 movw r0,UP_dc(r10) clrl r2 ediv $UPSEC,r1,r1,r0 insv r1,$8,$5,r0 movw r0,UP_da(r10) movw $-BLKSIZ/2,UP_wc(r10) ashl $-9,bufptr,r0 bisl3 $0x80000000,r0,UBA_MAP(r9) incl r0 bisl3 $0x80000000,r0,UBA_MAP+4(r9) clrw UP_ba(r10) movw $UP_RCOM+UP_GO,UP_cs1(r10) uprdy: movw UP_cs1(r10),r0 bbc $UP_pRDY,r0,uprdy rsb bufptr: .long buf names: .byte 'b,'o,'o,'t,0,0,0,0,0,0,0,0,0,0 .byte 0 physUBA: .long 0 .long 0x20006000 /* 11/780 */ .long 0xf30000 /* 11/750 */ .long 0xf26000 /* 11/7ZZ */ physUMEM: .long 0 .long 0x2013e000 /* 11/780 */ .long 0xffe000 /* 11/750 */ .long 0xffe000 /* 11/7ZZ */ end: .set buf,RELOC-1536 .set inode,RELOC-512 .set mode,inode .set nlink,mode+2 .set uid,nlink+2 .set gid,uid+2 .set size,gid+2 .set addr,size+4 .set time,addr+40 .set bno,time+12 .set uptrk,bno+4 .set upst,uptrk+4