|
|
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.