1/* tstoggle.s 6.1 83/07/29 */ 2 3/* 4 * Prototype toggle in bootstrap code for ts 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 .set UBA0,0x20006000 9 .set UMEM0,0x2013e000 10 .set UBA_MAP,0x800 11 .set TSADDR,0772520-0760000 12 13start: 14 movl uba,r10 15 movl mrv,UBA_MAP(r10) 16 addl3 mrv,$1,UBA_MAP+4(r10) 17 addl3 umem,$TSADDR,r11 18 clrw 2(r11) 191: tstb 2(r11) 20 bgeq 1b 21 movw $0x200+setchr,(r11) 221: tstb 2(r11) 23 bgeq 1b 24 movw $0x200+read,(r11) 25 halt 26 .align 2 27uba: .long UBA0 28umem: .long UMEM0 29mrv: .long 0x80000000 30setchr: .word 0xc004,0x200+char,0,0x8 # set characteristics command 31char: .word 0x200+status,0,0xe,0 # characteristics 32read: .word 0xc001,0,0,0x200 # read command 33status: 34