Return to uttoggle.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / sys / mdec

Annotation of 43BSDTahoe/sys/mdec/uttoggle.s, revision 1.1.1.1

1.1       root        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 "@(#)uttoggle.s 7.1 (Berkeley) 6/5/86"
                      9: #endif not lint
                     10: 
                     11: /*
                     12:  * Prototype toggle in bootstrap code for ut type tapes.
                     13:  * If on anything but a 780 with the drive on uba0
                     14:  * this will have to be repaired by patching uba and umem.
                     15:  */
                     16: begin:
                     17:        movl    uba,r1
                     18:        movl    $0x80200000,0x800(r1)
                     19:        clrl    0x804(r1)
                     20:        movl    umem,r2
                     21:        bisl2   $0172440,r2
                     22:        movw    $0x04c0,26(r2)          /* set tape density & format */
                     23:        mnegw   $512,6(r2)              /* set frame count */
                     24:        mnegw   $256,2(r2)              /* set word count */
                     25:        clrw    4(r2)                   /* set bus address */
                     26:        movw    $0x39,(r2)              /* set command and go */
                     27:        halt
                     28:        .align  2
                     29: uba:   .long   0x20006000
                     30: umem:  .long   0x2013e000

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.