|
|
1.1 ! root 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 ! 21: mba: .long 0x20012000 ! 22: ht: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.