/* hkboot.c 4.1 83/02/16 */
* RK07 1st level boot program: loads next 7.5Kbytes from
* boot sector of file system and sets it up to run.
* Always reads from drive 0.
.set BOOTSIZE
,15 /* size of boot in sectors */
.set SID
,62 /* system ID register */
.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 */
/* RK611 registers and bits */
.set HK
,0177440-0160000 /* address of RK611 */
.set HK_cs1
,HK
+0 /* control and status */
.set HK_wc
,HK
+2 /* word count */
.set HK_ba
,HK
+4 /* bus address */
.set HK_da
,HK
+6 /* disk address */
.set HK_dc
,HK
+020 /* desired cylinder */
.set HKBPSECT
,512 /* bytes per sector */
.set HK_GO
,1 /* go bit */
.set HK_PACK
,2 /* pack acknowledge */
.set HK_RCOM
,020 /* read command */
.set HK_SEL7
,02000 /* select RK07 disk */
.set HK_pRDY
,7 /* position of ready bit */
.set HK_pERR
,15 /* position of error bit */
.word
0 /* entry mask for dec monitor */
nop
;nop
;nop
;nop
;nop
;nop
;nop
;nop
/* some no-ops for 750 boot to skip */
/* get cpu type and find the first uba */
extzv $
24,$
8,r0
,r0
/* get cpu type */
movab physUBA
,r2
/* get physUBA[cpu] */
movab physUMEM
,r2
/* get physUMEM[cpu] */
bbc $pUBIC
,UBA_CNFGR(r9
),1b
/* init rk611, set vv in drive 0; if any errors, give up */
movw $HK_SEL7
+HK_GO
,HK_cs1(r10
)
movw $HK_SEL7
+HK_PACK
+HK_GO
,HK_cs1(r10
)
/* relocate to high core */
movl r5
,r11
/* boot flags */
/* now running relocated */
/* bring in the boot program */
.set PROGSIZE
,(BOOTSIZE
*HKBPSECT
)
movw $
-PROGSIZE
/2,HK_wc(r10
)
bisl3 $
0x80000000,r0
,UBA_MAP(r9
)
movw $HK_SEL7
+HK_RCOM
+HK_GO
,HK_cs1(r10
)
/* start loaded program */
movl $
3,r10
/* major("/dev/hk0a") */
.long 0x20006000 /* 11/780 */
.long 0xf30000 /* 11/750 */
.long 0xf26000 /* 11/730 */
.long 0x2013e000 /* 11/780 */
.long 0xffe000 /* 11/750 */
.long 0xffe000 /* 11/730 */