Return to httoggle.s CVS log

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

Annotation of 43BSDTahoe/sys/mdec/httoggle.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 "@(#)httoggle.s 7.1 (Berkeley) 6/5/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
                     30: mba:   .long   0x20012000
                     31: ht:    .long   0

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