FIELD 0; *0
/Pre-canned Restart vectors
00000 /LA
00000 /LEA GO
00200 /LA
00000 /LEA GO
02000 /LA
00000 /LEA GO
04200 /LA
00000 /LEA GO

/Bootstrap 1: High or low speed paper tape
07737 /LA
00000 /LEA
RELOC 07737
/Start the high speed reader
START1,	RFC		/06014 /DEP
	DCA PTR		/03376 /DEP
/Spin to let reader possibly come ready
LOOP,	CLA CLL CML RTL	/07326 /DEP
	TAD START1	/01337 /DEP
	ISZ PTR		/02376 /DEP
	JMP LOOP	/05341 /DEP
/If it came ready, patch for LSR
KRSF,	RSF		/06011 /DEP
	JMP UKCC	/05356 /DEP
	DCA UKRB	/03361 /DEP
	TAD UKRB	/01361 /DEP
	DCA UKRS	/03371 /DEP
	TAD KRSF	/01345 /DEP
	DCA UKSF1	/03357 /DEP
	TAD KRSF	/01345 /DEP
	DCA UKSF2	/03367 /DEP
/Code either runs as is, or was patched above.
UKCC,	KCC		/06032 /DEP
UKSF1,	KSF		/06031 /DEP
	JMP .-1		/05357 /DEP
UKRB,	KRB		/06036 /DEP
	CLL RTL		/07106 /DEP
	RTL		/07006 /DEP
/Ignore if leader/trailer (0200 was punched)
	SPA		/07510 /DEP
	JMP IGNR	/05374 /DEP
/Finish rotate six and get low six
	RTL		/07006 /DEP
UKSF2,	KSF		/06031 /DEP
	JMP .-1		/05367 /DEP
UKRS,	KRS		/06034 /DEP
	SNL		/07420 /DEP
	DCA I PTR	/03776 /DEP
IGNR,	DCA PTR		/03376 /DEP
	JMP UKCC	/05356 /DEP
PTR,
07737 /LA GO

/Bootstrap 2: RK8E
00023 /LA
00000 /LEA
RELOC 00023
DLAG=	6743
DRST=	6745
/Not sure how this helps.
	02200 /DEP
/Read status
START2,	DRST		/06745 /DEP
/Harmless AND instruction.
	START2-1	/00023 /DEP
/Wait for reasonable status.
	SZA CLA		/07640 /DEP
	JMP START2	/05024 /DEP
/Start a read. AC==0, so block zero.
	DLAG		/06743 /DEP
/Hang waiting for read to overlay us.
	JMP .		/05031 /DEP
00024 /LA GO

/Bootstrap 3: RX8E
00024 /LA
00000 /LEA
RELOC 00024
LCD=	6751		/Load Command Register
XDR=	6752		/Transfer Data Register
STR=	6753		/Skip if Transfer Requested
SER=	6754		/Skip if Error
SDN=	6755		/Skip if Done
	CLL CML RTL	/07126 /DEP
	01060 /DEP
	LCD		/06751 /DEP
	CLA IAC		/07201 /DEP
	04053 /DEP
	04053 /DEP
	CLL RAL		/07104 /DEP
START3,	SDN		/06755 /DEP
	05054 /DEP
	SER		/06754 /DEP
	SNA		/07450 /DEP
	CLA SKP		/07610 /DEP
	05046 /DEP
	01060 /DEP
	CIA		/07041 /DEP
	01061 /DEP
	03060 /DEP
	05024 /DEP
	LCD		/06751 /DEP
	04053 /DEP
	03002 /DEP
	02050 /DEP
	05047 /DEP
	00000 /DEP
	STR		/06753 /DEP
	05033 /DEP
	XDR		/06752 /DEP
	05453 /DEP
	CML RAL		/07024 /DEP
	06030 /DEP
00033 /LA GO

/Bootstrap 4: RF08/DF32
07750 /LA
00000 /LEA
RELOC 07750
DMAR=	6603		/Begin a Read
DFSC=	6622		/Skip if Complete
START4,	CLA 0400	/07600 /DEP
	DMAR		/06603 /DEP
	DFSC		/06622 /DEP
	JMP .-1		/05352 /DEP
	JMP I .-2	/05752 /DEP
07750 /LA GO

/Bootstrap 5: TA8E
04000 /LA
00000 /LEA
RELOC 04000
START5,	01237 /DEP
	01206 /DEP
	06704 /DEP
	06706 /DEP
	06703 /DEP
	05204 /DEP
	07264 /DEP
	06702 /DEP
	07610 /DEP
	03211 /DEP
	03636 /DEP
	01205 /DEP
	06704 /DEP
	06706 /DEP
	06701 /DEP
	05216 /DEP
	07002 /DEP
	07430 /DEP
	01636 /DEP
	07022 /DEP
	03636 /DEP
	07420 /DEP
	02236 /DEP
	02235 /DEP
	05215 /DEP
	07346 /DEP
	07002 /DEP
	03235 /DEP
	05201 /DEP
	07737 /DEP
	03557 /DEP
	07730 /DEP
04000 /LA GO
$