projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 92e67171 | 1 | /* tmtoggle.s 6.1 83/07/29 */ |
| a0e92b00 SL |
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 |