/ Slow-speed RIM loader, eg for ASR33 at console address / skips over leader (normally code 0200) / addreses have char7 punched, char8 not punched / data has neither char7 nor char8 punched 7756 6032 BEG, KCC / clear ACC and keyboard flag 7757 6031 LOOP1, KSF / continue (skip) if char there 7760 5357 JMP LOOP1 / no, keep looking 7761 6036 KRS / read char from buffer 7762 7106 CLL RTL / clear link and rotate 2 left 7763 7006 RTL / rotate two more, char8 in AC0 (MSB) 7764 7510 SPA / leader check, skip if zero 7765 5357 JMP LOOP1 / loop if leader (non-zero) 7766 7006 RTL / rotate 2 more, char7 now in link 7767 6031 LOOP2, KSF / look for another char 7770 5367 JMP LOOP2 / not yet, keep looking 7771 6034 KRS / read second char, don't clear buffer 7772 7420 SNL / skip if link<>0 7773 3776 DCA I TEMP / store data word at [TEMP] 7774 3376 DCA TEMP / else store address in TEMP 7775 5356 JMP BEG / and look for another word 7776 0000 TEMP, 0 / temp storage for address 7777 0000 / JMP start of BIN loader / High-speed RIM loader, eg for high-speed paper tape reader at standard address 7756 6014 BEG, RCF / clear flag and fetch char 7757 6011 LOOP1, RSF / continue (skip) if char there 7760 5357 JMP LOOP1 / no, keep looking 7761 6016 RCC / read char from buffer, get another 7762 7106 CLL RTL / clear link and rotate 2 left 7763 7006 RTL / rotate two more, char8 in AC0 (MSB) 7764 7510 SPA / leader check, skip if zero 7765 5374 JMP T2 / jump if leader (non-zero) 7766 7006 RTL / rotate 2 more, char7 now in link 7767 6011 LOOP2, RSF / look for another char 7770 5367 JMP LOOP2 / not yet, keep looking 7771 6016 RCC / read second char, get another 7772 7420 SNL / skip if link<>0 7773 3776 DCA I TEMP / store data word at [TEMP] 7774 3376 T2, DCA TEMP / else store address in TEMP 7775 5357 JMP LOOP1 / and look for another word 7776 0000 TEMP, 0 / temp storage for address 7777 0000 / JMP start of BIN loader