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