/* tstoggle.s 6.1 83/07/29 */
* Prototype toggle in bootstrap code for ts type tapes.
* If on anything but a 780 with the drive on uba0
* this will have to be repaired by patching uba and umem.
.set TSADDR,0772520-0760000
addl3 mrv,$1,UBA_MAP+4(r10)
setchr: .word 0xc004,0x200+char,0,0x8 # set characteristics command
char: .word 0x200+status,0,0xe,0 # characteristics
read: .word 0xc001,0,0,0x200 # read command