It's almost there

In message <Pine.LNX.4.44.0209150039200.11146-100000(a)ibm-ps850.purdueriots.com> , Patrick Finnegan writes: Here's one that I whipped up several years ago. As I remember, it worked well enough to boot RT11 from TU58, but it hasn't been too extensively tested and, of course, I don't make any guarantees. Also, I hand-assembled this so it may well be some strange mix of DEC and UNIX assembler notations. It should be relocatable, but my notes suggest I loaded it at 1000. Brian L. Stuart 1000: 012700 176504 mov #176504,r0 1004: 010001 mov r0,r1 1006: 012720 000001 mov #1,(r0)+ 1012: 005010 clr (r0) 1014: 005010 clr (r0) 1016: 105711 1: tstb (r1) 1020: 100376 bpl 1b 1022: 005011 clr (r1) 1024: 012702 176502 mov #176502,r2 1030: 105712 tstb (r2) 1032: 005004 clr r4 1034: 012703 001000 mov #777,r3 1040: 112710 000004 movb #4,(r0) 1044: 105711 1: tstb (r1) 1046: 100376 bpl 1b 1050: 112710 000010 movb #10,(r0) 1054: 105711 1: tstb (r1) 1056: 100376 bpl 1b 1060: 105010 clrb (r0) 1062: 105737 176500 1: tstb @#176500 1066: 100375 bpl 1b 1070: 111224 movb (r2),(r4)+ 1072: 077305 sob r3,1b 1074: 005000 clr r0 1076: 005007 clr pc