;Это рабочий код, надеюсь на помощь форума в оптимизации кода и исправлении ошибок. 
 				cblock	0x20 
 				place			;счетчик знакомест (разрядов) 
 				Seg_kod		;вспомогательный регистр для сегментного кода 
 				digit:6			;здесь сидят уже готовые для вывода на индикаторы сегментные коды 
 								;digit - digit+2   	 прямой код для ввывода на ОА 
 								;digit+3 - digit+5   инверсный код для ввывода на ОК 
 				endc 
 			 
 				ORG	0x04 
 ;-----------------------стандартный код обработки прерывания-------------------------- 
 ;				-------------------------- 
  
 ;**************Динамическая индикация*********************************** 
 ;------------------гасим  индикаторы----------------------------------- 
 				bsf		      STATUS,RP0  ;bank	1	 
 				movlw		b'11110111'	;RA3 должен быть всегда выходом, мне так нужно 
 				movwf		TRISA			;остальные пины на ввод 
 				movlw		b'11111111'	;отключаем PORTB 
 				movwf		TRISB 
 				bcf		      STATUS,RP0	;bank 0 
 				movfw		PORTA 
 				andlw		b'00101000'	;маска для порта А, в нужных нам защелках RA4,RA6,RA7 должны быть 0 
 				movwf		PORTA 
 			 
 ;------------------ Запись в порт B сегментного кода (стандартные инструкции) 
 				movlw   	digit 
 			    	addwf   	place, w     	 
 			    	movwf   	FSR   	 
 			    	movfw    	INDF    
 			    	movwf   	Seg_kod	;сегментный код сохраним во временном регистре	 
 				movwf		PORTB	;в выходные защелки  PORTB установили 7-сег код 
 ;------------------ Переключатель разрядов (тоже стандартно)-------------------------- 
 SwitchPlace	        movfw	place		 
 				addwf	PCL,F 
 				goto	R1		;включаем 1 разряд OA 
 				goto	R2 
 				goto	R3 
 				goto	R4 
 				goto	R5 
 				goto	R6		;включаем 6 разряд ОК 
 ;---------------------------------------------------------------------------------- 
 R1				bsf			PORTA, 4		;готовим пин RA4 на вывод 1 
 				comf		Seg_kod 
 R4				comf		Seg_kod, w		;инвертируем сегментный код для ОК (для ОА не инвертируем) 
 				bsf	      	STATUS,RP0	;bank1 
 				movwf		TRISB			;включаем нужные нам пины порта В на выход 
 				bcf			PORTA, 4		;(TRISA,4) включаем 1(4) разряд, (пин RA4 на вывод 1 для ОА, на вывод 0 для ОК)	 
 				goto		Prepare 
 ;--------------------------аналогично для других разрядов---------------- 
 R2				bsf			PORTA, 6 
 				comf		Seg_kod 
 R5				comf		Seg_kod, w 
 				bsf	      	STATUS,RP0 
 				movwf		TRISB 
 				bcf			PORTA, 6	;реально TRISA, 6	 
 				goto		Prepare 
 ;---------------------------------------------------------------------------------- 
 R3				bsf			PORTA, 7 
 				comf		Seg_kod 
 R6				comf		Seg_kod, w 
 				bsf	      	STATUS,RP0 
 				movwf		TRISB 
 				bcf			PORTA, 7	;реально TRISA, 7	 
 				 
 ;------------------ Подготовка к следующему циклу----------------------- 
 Prepare				bcf	      	STATUS,RP0	;возвращаемся в 0 банк 
 					;далее стандартные инструкции 
 					incf       	place   			 	 
 	              		    movlw   	.6          
 			            subwf     	place, w      
 			            btfss      	STATUS, Z    
 			            goto      	Exit	_isr 
 			            clrf         	place              
 					;------- и тд-------------