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