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
00020 /LA
00000 /LEA
RELOC 00020
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
	01061 /DEP
	01046 /DEP
	00060 /DEP
	03061 /DEP
	CLA CLL CML IAC RTL /07327 /DEP
	01061 /DEP
	LCD		/06751 /DEP
	CLA CLL IAC	/07301 /DEP
	04053 /DEP
	04053 /DEP
	RAL		/07004 /DEP
START3,	SDN		/06755 /DEP
	05054 /DEP
	SER		/06754 /DEP
	SNA		/07450 /DEP
	05020 /DEP
	01061 /DEP
	LCD		/06751 /DEP
	01061 /DEP
	00046 /DEP
	01032 /DEP
	03060 /DEP
	00360 /DEP
	04053 /DEP
	03002 /DEP
	02050 /DEP
	05047 /DEP
	00000 /DEP
	STR		/06753 /DEP
	05033 /DEP
	XDR		/06752 /DEP
	05453 /DEP
	00420 /DEP
	00020 /DEP
00033 /LA GO
00000
00000
00000
00000

/Bootstrap 4: RL8A
00001 /LA
00000 /LEA
BSW=	7002
RELOC 1
	06600 /DEP
	CLA IAC		/07201 /DEP
	04027 /DEP
	01004 /DEP
	04027 /DEP
	06615 /DEP
	BSW		/07002 /DEP
	RTR		/07012 /DEP
	06615 /DEP
	00025 /DEP
	RAL		/07004 /DEP
	06603 /DEP
	CLA CLL CML IAC RAL /07325 /DEP
	04027 /DEP
	07332 /DEP
	06605 /DEP
	01026 /DEP
	06607 /DEP
	CLA CLL CML IAC RTL /07327 /DEP
	04027 /DEP
	00377 /DEP
	CLA 400		/07600 /DEP
	00000 /DEP
	06604 /DEP
	06601 /DEP
	05031 /DEP
	06617 /DEP
	05427 /DEP
	05001 /DEP
00001 /LA GO
	00000
	00000
	00000
$