LIST p=16F628a
 __CONFIG 0x3F6B
 #include  P16F628A.inc
;;;;Конфигурируем регистры;;;;;
PORTA equ 05h
;TRISA equ 05h
PORTB equ 06h;добавим регистры порта В для кнопок
;TRISB equ 06h;
STATUS equ 03h
CMCON equ 1Fh; компаратор
PC equ 02h; Счетчик PCL

stroka equ 23h;регистр в который занесем значение для вывода в индикатор0
stolb equ 24h;регистр в который занесем значение для вывода в индикатор0
Count equ 25h;счетчик для IND0
Count1 equ 26h;счетчик для IND0
W equ 0;результат пихаем в аккумулятор
F equ 1;результат идет в регистр
C equ 0
RP0 equ 5;присваиваем RP0=5

   CBLOCK 0x60
   col    ; здесь будем сохранять колону - бегущая ноль
   row ; что будем въводить
   c1,c2   ;счетчик
   tmp_var
   endc

#DEFINE clock PORTA,0;такт
#DEFINE bite PORTA,1;передача данных
#DEFINE switch PORTA,2; защелка
#DEFINE knopka PORTA,3;кнопка

 org 0;программа стартует отсюда
   goto   main
   nop
   nop
   nop
   goto   main
   nop

;ИНИЦИАЛИЗАЦИЯ
main
   bcf STATUS,RP0; выбрали первый банк памяти
   movlw 0x07
    movwf CMCON; все цифровые каналы вход выход
   bsf STATUS,RP0
    movlw 0x00
    movwf TRISA;значение для инициализации защелок
   movlw 0x00
    movwf TRISB
    movlw b'11111111'
    movwf PORTB
    bsf STATUS,0
    bcf STATUS,RP0

tt
   call      val1
   nop
   nop
   goto   tt
   
start
    movlw .8;счетчик сдвига битов
   movwf Count
    movlw .8;счетчик сдвига битов
   movwf Count1
   call shift2
   goto start

shift2;U3 в протеусе
   movlw b'11100000'
    movwf stroka
    bsf switch
 ;bcf switch
m1    bcf clock
    bsf bite
    btfss stroka,0
    bcf bite
    bsf clock;тактовый импульс
   rrf stroka,F
    decfsz Count,1;уменьшаем на еденицу, достигнув нуля прыгаем на goto serial,
   goto m1;пока не достигнем 0
    btfsc Count,0
   goto shift1

shift1 ;U2 в протеусе
   movlw b'10000000'
    movwf stolb
    bsf switch
    bcf switch
m2 bcf clock
    bsf bite
    btfss stolb,0
    bcf bite
    bsf clock;тактовый импульс
   rrf stolb,F
    decfsz Count1,1;уменьшаем на еденицу, достигнув нуля прыгаем на goto serial,
   goto m2;пока не достигнем 0
    btfsc Count1,0
   goto shift2

val1
   movlw b'01111111'   ;будем вращат ету 0 по байту
;если необходимо можно поставить и
;   movlw b'10000000'      ;бегущая единица
   bcf      switch   ;для всякии случай
   bcf      clock
   movwf col
   clrf c1   ;начнем с нуля
   decf   c1,f   
loop_char
   movf   col,w
   call      to_595_8      ;въсилаен колону to 595
   bsf      STATUS,C
   rrf      col,f      ;next column
   incf      c1,f      ;следующии
   movf   c1,w      ;для табле
   call      table      ;берем инфо с table
   btfsc   STATUS , Z
   goto   end_val1      ;если table return 0 ->exit
   call      to_595_8      ;въсилаем дата к 595
   bsf      switch
   nop
   nop
   nop
   bcf      switch   
   goto   loop_char
end_val1
   return   

to_595_8
   movwf   tmp_var   ;сохранем что будемм въводить
   movlw   0x08      ; 8 такта
   movwf   c2
loop_to_595
   bcf    bite         ; на вход D 595
   rrf    tmp_var,F   ;получаем следующего бита
   btfsc    STATUS,C ;если он 0 мъ его уже установили
   bsf    bite         ; данни за регистъра на вход D 595
;бит не ноль - здесь устанавливаем его в 1
   nop         ;чтоб вход D установился
   bsf    clock         ;Такт
   nop
   nop
   nop
   bcf    clock         ; и маленкая задержка для такта
   decfsz    c2,f
   goto    loop_to_595   ;имеем еще для въвода
   return

table addwf PC,F
 retlw b'11111100';0
 retlw b'01100000';1
 retlw b'11011010';2
 retlw b'11110010';3
 retlw b'01100110';4
 retlw b'10110110';5
 retlw b'10111110';6
 retlw b'11100000';7
 retlw b'00000000'; null - чтобь можно закончит въвода.
 retlw b'11111110';8
 retlw b'11110110';9

 end