1f6266b48Smckusick/* 2*08ba4889Smckusick * Copyright (c) 1980, 1986 Regents of the University of California. 3f6266b48Smckusick * All rights reserved. The Berkeley software License Agreement 4f6266b48Smckusick * specifies the terms and conditions for redistribution. 5f6266b48Smckusick */ 6f6266b48Smckusick 7f6266b48Smckusick#ifndef lint 8*08ba4889Smckusick_sccsid:.asciz "@(#)tmtoggle.s 7.1 (Berkeley) 06/05/86" 9f6266b48Smckusick#endif not lint 102b480008Ssam 112b480008Ssam/* 122b480008Ssam * Prototype toggle in bootstrap code for tm type tapes. 132b480008Ssam * If on anything but a 780 with the drive on uba0 142b480008Ssam * this will have to be repaired by patching uba and umem. 152b480008Ssam */ 162b480008Ssambegin: 172b480008Ssam movl uba,r1 182b480008Ssam movl $0x80200000,0x800(r1) 192b480008Ssam clrl 0x804(r1) 202b480008Ssam movl umem,r2 212b480008Ssam bisl2 $0172520,r2 222b480008Ssam mnegw $512,4(r2) 232b480008Ssam clrw 6(r2) 242b480008Ssam movw $03,2(r2) 252b480008Ssam halt 262b480008Ssam .align 2 272b480008Ssamuba: .long 0x20006000 282b480008Ssamumem: .long 0x2013e000 29