It's almost there

From: blstuart_at_bellsouth.net <(blstuart_at_bellsouth.net)>
Date: Sun Sep 15 19:05:00 2002

In message <Pine.LNX.4.44.0209150039200.11146-100000_at_ibm-ps850.purdueriots.com>
, Patrick Finnegan writes:
>2) I can potentially get a PC set up with a TU58 emulator, does anyone
> have a bootstrap to load from a TU58?

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 _at_#176500
1066: 100375 bpl 1b
1070: 111224 movb (r2),(r4)+
1072: 077305 sob r3,1b
1074: 005000 clr r0
1076: 005007 clr pc
Received on Sun Sep 15 2002 - 19:05:00 BST

This archive was generated by hypermail 2.3.0 : Fri Oct 10 2014 - 23:35:39 BST