1/* httoggle.s 6.1 83/07/29 */ 2 3/* 4 * Prototype toggle in bootstrap code for ht type tapes. 5 * If on anything but a 780 with a tape at slave 1 of mba 1 6 * this will have to be repaired by patching mba and ht. 7 */ 8 movl mba,r10 9 mull3 ht,$0x80,r11 10 addl3 r11,r10,r11 11 addl2 $0x400,r11 12 movl $1,4(r10) 13 movl $9,(r11) 14 cvtwl $012300,0x24(r11) 15 clrl 12(r10) 16 movl $0x80000000,0x800(r10) 17 cvtwl $-512,16(r10) 18 movl $0x39,(r11) 19 halt 20 .align 2 21mba: .long 0x20012000 22ht: .long 0 23