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