1/* 2 * Copyright (c) 1980, 1986 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 */ 6 7#ifndef lint 8_sccsid:.asciz "@(#)httoggle.s 7.1 (Berkeley) 06/05/86" 9#endif not lint 10 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 30mba: .long 0x20012000 31ht: .long 0 32