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