Added RK8E bootstrap to ts8.pal. This allows quick rebooting (assuming core is intact)

from address 3053 in field 0.  (Ensure AC, IF, and DF are clear beforehand.)

tss8_lcm2/ts8.pal

@@ -2123,8 +2123,8 @@ SCHFAN,	JMS I	REMJOA		/REMEMBER WHO'S RUNNING
 	SCHED			/GO RUN THE PHANTOM
 
 
-/TODO: UPDATE FOR RKSYS
 /BOOTSTRAP FOR CRASH RECOVERY, USED TO BRING INIT INTO HIGHEST MEMORY FIELD
+IFZERO RKSYS <
 BOOT,	CDF			/IN THE (VERY RARE) EVEN THE SYSTEM
 	STA			/SHOULD CRASH, THIS ROUTINE MAY
 	DCA I	B7751		/BE STARTED AT 4200 OF FIELD 0
@@ -2145,9 +2145,41 @@ BOOT,	CDF			/IN THE (VERY RARE) EVEN THE SYSTEM
 	JMP	.-1
 	CIF CDF+CORMEM
 	JMP	0		/OFF TO INIT
-
-B7751,	7751
+B7551,	7551
 B7750,	7750
+>
+
+IFNZRO RKSYS <			/SEE ABOVE (CHECK LISTING FOR START ADDRESS)
+				/AND MAKE SURE TO CLEAR AC, IF, DF BEFORE START!
+BOOT,		 		 
+	DCA	CADDR		/RESET CORE ADDRESS, COUNT, AND
+	TAD	ICOUNT
+	DCA	COUNT
+	TAD	IDADDR		/DISK ADDRESS JUST IN CASE WE GET INVOKED
+	DCA	DADDR		/MORE THAN ONCE
+BLOOP,	TAD	CADDR
+	DLCA
+	TAD	DSKFLD		/DOUBLES AS READ COMMAND INTO HIGHEST FIELD
+	DLDC
+	TAD	DADDR
+	DLAG
+BWAIT,	DSKP
+	JMP	BWAIT		/WAIT FOR READ TO COMPLETE
+	CLA
+	TAD	CADDR
+	TAD	C0400		/NEXT CORE ADDRESS
+	DCA	CADDR
+	ISZ	DADDR		/NEXT DISK ADDRESS
+	ISZ	COUNT		
+	JMP	BLOOP		/NEXT SECTOR
+	CIF CDF+CORMEM
+	JMP	0		/OFF TO INIT
+IDADDR, 0040	/TRACK 2
+DADDR,	0000	/CURRENT DISK ADDRESS
+CADDR,	0	/CORE ADDRESS
+ICOUNT,	-16	/COUNT OF SECTORS TO BE READ
+COUNT,	0
+>		
 DSKFLD,
 	IFZERO RKSYS <
 	IFZERO RF08	<CORMEM>