|
|
1.1 ! root 1: /* ! 2: * Prototype toggle in bootstrap code for mt type tapes. ! 3: * If on anything but a 780 with a tape at drive 0 of mba 1 ! 4: * this will have to be repaired by patching mba and mt. ! 5: */ ! 6: movl mba,r10 ! 7: mull3 mt,$0x80,r11 ! 8: addl3 r11,r10,r11 ! 9: addl2 $0x400,r11 ! 10: movzbl $1,4(r10) ! 11: movzbl $4,8(r11) /* drive zero, one record */ ! 12: clrl 12(r10) /* set address to zero */ ! 13: movl $0x80000000,0x800(r10) /* validate map register */ ! 14: cvtwl $-512,16(r10) /* set byte count */ ! 15: movzwl $512,20(r11) /* set byte count */ ! 16: 0: ! 17: movl 0x44(r11),r0 ! 18: bbc $15,r0,0b ! 19: movzbl $071,(r11) /* read forward, go */ ! 20: halt ! 21: .align 2 ! 22: mba: .long 0x20012000 ! 23: mt: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.