4.3BSD - /usr/src/sys/mdec/tstoggle.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  "@(#)tstoggle.s	7.1 (Berkeley) 6/5/86"
   9: #endif not lint
  10: 
  11: /*
  12:  * Prototype toggle in bootstrap code for ts 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:         .set    UBA0,0x20006000
  17:         .set    UMEM0,0x2013e000
  18:         .set    UBA_MAP,0x800
  19:         .set    TSADDR,0772520-0760000
  20: 
  21: start:
  22:         movl    uba,r10
  23:         movl    mrv,UBA_MAP(r10)
  24:         addl3   mrv,$1,UBA_MAP+4(r10)
  25:         addl3   umem,$TSADDR,r11
  26:         clrw    2(r11)
  27: 1:      tstb    2(r11)
  28:         bgeq    1b
  29:         movw    $0x200+setchr,(r11)
  30: 1:      tstb    2(r11)
  31:         bgeq    1b
  32:         movw    $0x200+read,(r11)
  33:         halt
  34:         .align  2
  35: uba:    .long   UBA0
  36: umem:   .long   UMEM0
  37: mrv:    .long   0x80000000
  38: setchr: .word   0xc004,0x200+char,0,0x8 # set characteristics command
  39: char:   .word   0x200+status,0,0xe,0    # characteristics
  40: read:   .word   0xc001,0,0,0x200        # read command
  41: status:

Defined functions