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