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