Разницы, также как и для МК, нет никакой. Главное - знать как управлять регистром.SILF писал(а):пример на си, пишу на асм
Ну и всё, этого достаточно. Тут у Вас те же 8 светодиодов, только 8 раз. Зажигайте их по-очереди и всё.SILF писал(а):как включить светодиоды через 74hc595 знаю
Код: Выделить всё
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