4.3BSD - /usr/src/sys/mdec/httoggle.s

   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

Defined functions