|
|
1.1 root 1: /*
2: * Prototype toggle in bootstrap code for tm type tapes.
3: * If on anything but a 780 with the drive on uba0
4: * this will have to be repaired by patching uba and umem.
5: */
6: begin:
7: movl uba,r1
8: movl $0x80200000,0x800(r1)
9: clrl 0x804(r1)
10: movl umem,r2
11: bisl2 $0172520,r2
12: mnegw $512,4(r2)
13: clrw 6(r2)
14: movw $03,2(r2)
15: halt
16: .align 2
17: uba: .long 0x20006000
18: umem: .long 0x2013e000
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.