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

/*
 * Copyright (c) 1980, 1986 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
_sccsid:.asciz	"@(#)httoggle.s	7.1 (Berkeley) %G%"
#endif not lint


/*
 * 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
b1078c35	1	/*
0880b18e	2	* Copyright (c) 1980, 1986 Regents of the University of California.
b1078c35 KM	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
0880b18e	8	_sccsid:.asciz "@(#)httoggle.s 7.1 (Berkeley) %G%"
b1078c35 KM	9	#endif not lint
b1078c35 KM	10
c1ba359d SL	11
	12	/*
	13	* Prototype toggle in bootstrap code for ht type tapes.
	14	* If on anything but a 780 with a tape at slave 1 of mba 1
	15	* this will have to be repaired by patching mba and ht.
	16	*/
	17	movl mba,r10
	18	mull3 ht,$0x80,r11
	19	addl3 r11,r10,r11
	20	addl2 $0x400,r11
	21	movl $1,4(r10)
	22	movl $9,(r11)
	23	cvtwl $012300,0x24(r11)
	24	clrl 12(r10)
	25	movl $0x80000000,0x800(r10)
	26	cvtwl $-512,16(r10)
	27	movl $0x39,(r11)
	28	halt
	29	.align 2
	30	mba: .long 0x20012000
	31	ht: .long 0