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

/*	httoggle.s	4.1	83/02/16	*/

/*
 * Prototype toggle in bootstrap code for ht type tapes.
 * If on anything but a 780 with a tape at slave 1 of mba 1
 * this will have to be repaired by patching mba and ht.
 */
	movl	mba,r10
	mull3	ht,$0x80,r11
	addl3	r11,r10,r11
	addl2	$0x400,r11
	movl	$1,4(r10)
	movl	$9,(r11)
	cvtwl	$012300,0x24(r11)
	clrl	12(r10)
	movl	$0x80000000,0x800(r10)
	cvtwl	$-512,16(r10)
	movl	$0x39,(r11)
	halt
	.align	2
mba:	.long	0x20012000
ht:	.long	0
Commit	Line	Data
c1ba359d SL	1	/* httoggle.s 4.1 83/02/16 */
	2
	3	/*
	4	* Prototype toggle in bootstrap code for ht type tapes.
	5	* If on anything but a 780 with a tape at slave 1 of mba 1
	6	* this will have to be repaired by patching mba and ht.
	7	*/
	8	movl mba,r10
	9	mull3 ht,$0x80,r11
	10	addl3 r11,r10,r11
	11	addl2 $0x400,r11
	12	movl $1,4(r10)
	13	movl $9,(r11)
	14	cvtwl $012300,0x24(r11)
	15	clrl 12(r10)
	16	movl $0x80000000,0x800(r10)
	17	cvtwl $-512,16(r10)
	18	movl $0x39,(r11)
	19	halt
	20	.align 2
	21	mba: .long 0x20012000
	22	ht: .long 0