|
|
1.1 root 1: /* httoggle.s 6.1 83/07/29 */
2:
3: /*
4: * Prototype toggle in bootstrap code for ht type tapes.
5: * If on anything but a 780 with a tape at slave 1 of mba 1
6: * this will have to be repaired by patching mba and ht.
7: */
8: movl mba,r10
9: mull3 ht,$0x80,r11
10: addl3 r11,r10,r11
11: addl2 $0x400,r11
12: movl $1,4(r10)
13: movl $9,(r11)
14: cvtwl $012300,0x24(r11)
15: clrl 12(r10)
16: movl $0x80000000,0x800(r10)
17: cvtwl $-512,16(r10)
18: movl $0x39,(r11)
19: halt
20: .align 2
21: mba: .long 0x20012000
22: ht: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.