//
//
//	project: 	blaster
//	subsystem:      ttm100 860_rpc_kernel
//
//	module:		rpc_kernel	
//	file:		pstart.s
//	
//	author: 	chrg
//	date:		10:02:90
//
//	copyright (c) division ltd. 1990
//	sccs ident %w% %g%
//
//
// modified:
//
//
//
//
//
// function:-  main entry point to rpc kernel.  disables interrupts and
//	then calls _vstart to go virtual etc.
//
//
//
//

	.file	"pstart.s"

	.globl  _start
	.globl	pstart
	.globl	_vstart

	psr_im = 0x10
	low_pg = 0x0fff
	db_ate = 0x20

	.text


//	at this point, we are running on the bootloaders stack.
pstart:
_start:

	
	// turn off all interrupts
	ld.c	psr,r16
	andnot	psr_im,r16,r16
	st.c	r16,psr


        // ensure ate disabled and iti set
        ld.c    dirbase,r16
        or      db_ate,r0,r16
        st.c    r16,dirbase

        // ensure fte clear
        ld.c    fsr,r16
        or      0,r0,r16
	st.c    r16,fsr

	// initialise fir
	ld.c	fir,r0

	// setup boot stack
        orh     0x8380, r0, r15
        or      0x01, r0, r14
        st.l    r14, 0(r15)        

        mov     0xffffff00, r18        
        or      0x04, r0, r19
        st.l    r19, 0(r18)
        
//	call	_flush
//	nop
	
        mov     0xffffff00, r18        
        or      0xb, r0, r19
        st.l    r19, 24(r18)
        

	// grab initstack and topmem from ccb
	orh ha%_input_ccb, r0, r31
	ld.l l%_input_ccb(r31), r29


        orh      0xf040, r0, r16         // set stack to 0xf0400000
        mov      r16, sp


	// grab the trap vector
	orh	0xffff,r0,r20
	or	0xff00,r20,r20		//hard vector
//	orh	h%alltraps,r0,r21
//	or	l%alltraps,r21,r21	//vector in .text
//	subu	r21,r20,r22		//rel addr
//	shr	2,r22,r22
//	adds	-3,r22,r22		// adust for 2 NOPS, +1
//					// change if remove NOPS!!!!
//	andnoth 0xfc00,r22,r22
//	orh	0x6800,r22,r22		// br alltraps
        or      h%alltraps, r0, r19
        orh     0xec01, r19, r19

        or      l%alltraps, r0, r21
        orh     0xe421, r21, r21

        orh     0x4000, r0, r22
        or      0x0800, r22, r22


	orh	0xa000,r0,r23		// nop

	st.l	r23,0(r20)		// chip bug NOP
	st.l	r23,4(r20)		// chip bug NOP
	st.l	r19,8(r20)		// br alltraps
	st.l	r21,12(r20)		// delayed NOP
	st.l	r22,16(r20)		// delayed NOP
	st.l	r23,20(r20)		// delayed NOP
	st.l	r23,24(r20)		// delayed NOP
	st.l	r23,28(r20)		// delayed NOP

        mov     0xfffff000, r18        
        or      0x32, r0, r19
        st.l    r19,0(r18)

	br	_vstart
	nop

// *END* /