1/* tmtoggle.s 6.1 83/07/29 */ 2 3/* 4 * Prototype toggle in bootstrap code for tm 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 */ 8begin: 9 movl uba,r1 10 movl $0x80200000,0x800(r1) 11 clrl 0x804(r1) 12 movl umem,r2 13 bisl2 $0172520,r2 14 mnegw $512,4(r2) 15 clrw 6(r2) 16 movw $03,2(r2) 17 halt 18 .align 2 19uba: .long 0x20006000 20umem: .long 0x2013e000 21