[unix-history] / sys / mdec / tmtoggle.s

/*
 * Prototype toggle in bootstrap code for tm 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	$0172520,r2
	mnegw	$512,4(r2)
	clrw	6(r2)
	movw	$03,2(r2)
	halt
	.align	2
uba:	.long	0x20006000
umem:	.long	0x2013e000
Commit	Line	Data
9b0789bb C	1	/*
	2	* Prototype toggle in bootstrap code for tm type tapes.
	3	* If on anything but a 780 with the drive on uba0
	4	* this will have to be repaired by patching uba and umem.
	5	*/
	6	begin:
	7	movl uba,r1
	8	movl $0x80200000,0x800(r1)
	9	clrl 0x804(r1)
	10	movl umem,r2
	11	bisl2 $0172520,r2
	12	mnegw $512,4(r2)
	13	clrw 6(r2)
	14	movw $03,2(r2)
	15	halt
	16	.align 2
	17	uba: .long 0x20006000
	18	umem: .long 0x2013e000