committing old stuff

code/bootstrap.txt

@@ -0,0 +1,65 @@
+PAPER TAPE RIM LOADER (AT 20):
+
+	LOC	20
+	CONO	PTR,60		; 710600 000060
+A:	CONSO	PTR,10		; 710740 000010
+	JRST	.-1		; 254000 000021
+	DATAI	PTR,B		; 710440 000026
+	CONSO	PTR,10		; 710740 000010
+	JRST	.-1		; 254000 000024
+B:	0			; 000000 000000
+	JRST	A		; 254000 000021
+
+DECTAPE RIM LOADER AT 0 (SHADOW) 014 INSTRUCTIONS
+
+MY DECTAPE LOADER:
+	CONO	DC,4010		; 720200 004010
+	CONO	UTC,220300	; 721200 220300
+	MOVE	17,12		; 200740 000012
+	CONSO	DC,1000		; 720340 001000
+	 JRST	.-1		; 254000 000003
+	BLKI	DC,17		; 720000 000017
+	 JRST	DONE		; 254000 000010
+	JRST	.-1		; 254000 000003
+DONE:	CONO	DC,0		; 720200 000000
+	HALT	300		; 254200 000300
+	777600000277		; 777600 000277
+
+
+PDP-10 RIM10 LOADER:
+
+003110' R1BLDR:
+000000 PHASE 0
+003110' 777762 000000 		IOWD $ADR,$ST
+003111' 710600 000060 $ST:	CONO PTR,60
+003112' 541400 000004 		HRRI $A,$RD+1
+003113' 710740 000010 $RD:	CONSO PTR,10
+003114' 254000 000003 		JRST .-1
+003115' 710470 000007 		DATAI PTR,@$TBL1-$RD+1($A)
+003116' 256010 000007 		XCT $TBL1-$RD+1($A)
+003117' 256010 000012 		XCT $TBL2-$RD+1($A)
+003120' 364400 000000 $A: 	SOJA $A,
+003121' 312740 000016 $TBL1:	CAME $CKSM,$ADR
+003122' 270756 000001 		ADD $CKSM,1($ADR)
+003123' 331740 000016 		SKIPL $CKSM,$ADR
+003124' 254200 000001 $TBL2:	JRST 4,$ST
+003125' 253700 000003 		AOBJN $ADR,$RD
+003126' 254000 000002 $ADR:	JRST $ST+1
+000017 $CKSM:
+003127' DEPHASE
+
+
+MAC DECtape RIM loader:
+000000	JFCL
+000001	MOVSI	(JFCL)
+000002	CONO	635550
+000003	CONO	PI,11577
+000004	CONO	UTC,223110
+000005	CONO	DC,4010
+000006	CONSO	DC,1000
+000007	JRST	6
+000010	DATAI	DC,13
+000011	AOJGE	13,6
+000012	TRNE	13,-1
+000013	.
+000014	JRST	6