[unix-history] / usr / src / sys / mdec / uttoggle.s

/*	uttoggle.s	6.1	83/07/29	*/

/*
 * Prototype toggle in bootstrap code for ut type tapes.
 * If on anything but a 780 with the drive on uba0
 * this will have to be repaired by patching uba and umem.
 */
begin:
	movl	uba,r1
	movl	$0x80200000,0x800(r1)
	clrl	0x804(r1)
	movl	umem,r2
	bisl2	$0172440,r2
	movw	$0x04c0,26(r2)		/* set tape density & format */
	mnegw	$512,6(r2)		/* set frame count */
	mnegw	$256,2(r2)		/* set word count */
	clrw	4(r2)			/* set bus address */
	movw	$0x39,(r2)		/* set command and go */
	halt
	.align	2
uba:	.long	0x20006000
umem:	.long	0x2013e000
Commit	Line	Data
e2f2e851 C	1	/* uttoggle.s 6.1 83/07/29 */
	2
	3	/*
	4	* Prototype toggle in bootstrap code for ut type tapes.
	5	* If on anything but a 780 with the drive on uba0
	6	* this will have to be repaired by patching uba and umem.
	7	*/
	8	begin:
	9	movl uba,r1
	10	movl $0x80200000,0x800(r1)
	11	clrl 0x804(r1)
	12	movl umem,r2
	13	bisl2 $0172440,r2
	14	movw $0x04c0,26(r2) /* set tape density & format */
	15	mnegw $512,6(r2) /* set frame count */
	16	mnegw $256,2(r2) /* set word count */
	17	clrw 4(r2) /* set bus address */
	18	movw $0x39,(r2) /* set command and go */
	19	halt
	20	.align 2
	21	uba: .long 0x20006000
	22	umem: .long 0x2013e000