;111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 SSD1 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ1 call AA1 movlw .46 movwf PortB ;Выключаем 2 ключ A call OFF movlw .44 movwf PortB ;Включаем 1 ключ A call AA2 movlw .108 movwf PortB ;Выключаем 6 ключ C call OFF movlw .76 movwf PortB ;Включаем 5 ключ C call AA3 movlw .92 movwf PortB ;Выключаем 4 ключ B call OFF movlw .84 movwf PortB ;Включаем 3 ключ B call AA4 call AA4 movlw .92 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA3 movlw .108 movwf PortB ; call OFF movlw .44 movwf PortB ; call AA2 movlw .46 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ1 ;return ;22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 SSD2 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ2 call AA5 movlw .110 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA6 movlw .92 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA7 call AA7 movlw .92 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA6 movlw .110 movwf PortB ; call OFF movlw .42 movwf PortB ; call AA5 decfsz Sec11,1 ;Управление делением частоты goto JJJ2 ;return ;333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333 SSD3 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ3 call AA1 movlw .106 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA2 movlw .78 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA3 movlw .92 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA4 call AA4 movlw .92 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA3 movlw .78 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA2 movlw .106 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ3 ;return ;444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 SSD4 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ4 call AA4 movlw .106 movwf PortB call OFF movlw .74 movwf PortB call AA3 movlw .78 movwf PortB call OFF movlw .76 movwf PortB call AA2 movlw .92 movwf PortB call OFF movlw .84 movwf PortB call AA1 call AA1 movlw .92 movwf PortB ; call OFF movlw .76 movwf PortB ; call AA2 movlw .78 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA3 movlw .106 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ4 ;return ;55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 SSD5 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ5 call AA7 movlw .106 movwf PortB call OFF movlw .74 movwf PortB call AA6 movlw .94 movwf PortB call OFF movlw .84 movwf PortB call AA5 call AA5 movlw .94 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA6 movlw .106 movwf PortB ; call OFF movlw .42 movwf PortB ; call AA7 decfsz Sec11,1 ;Управление делением частоты goto JJJ5 ;return ;666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666 SSD6 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ6 call AA4 movlw .106 movwf PortB call OFF movlw .74 movwf PortB call AA3 movlw .90 movwf PortB call OFF movlw .82 movwf PortB call AA2 movlw .86 movwf PortB call OFF movlw .84 movwf PortB call AA1 call AA1 movlw .86 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA2 movlw .90 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA3 movlw .106 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ6 ;return ;777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777 SSD7 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ7 call AA1 movlw .106 movwf PortB call OFF movlw .74 movwf PortB call AA2 movlw .90 movwf PortB call OFF movlw .82 movwf PortB call AA3 movlw .86 movwf PortB call OFF movlw .84 movwf PortB call AA4 call AA4 movlw .86 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA3 movlw .90 movwf PortB ; call OFF movlw .74 movwf PortB ; call AA2 movlw .106 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ7 ;return ;888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 SSD8 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ8 call AA5 movlw .122 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA6 movlw .86 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA7 call AA7 movlw .86 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA6 movlw .122 movwf PortB ; call OFF movlw .42 movwf PortB ; call AA5 decfsz Sec11,1 ;Управление делением частоты goto JJJ8 ;return ;99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 SSD9 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ9 call AA1 movlw .58 movwf PortB ; ;call OFF btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortA,2 ;Выход из программы вращения, стоп. goto Stop nop nop nop movlw .50 movwf PortB ; call AA2 movlw .114 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA3 movlw .86 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA4 call AA4 movlw .86 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA3 movlw .114 movwf PortB ; call OFF movlw .50 movwf PortB ; call AA2 movlw .58 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ9 ;return ;10101010101010101010101010101010101010101010101010101010101010101010101010101010101 SSD10 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ10 call AA4 movlw .58 movwf PortB call OFF movlw .50 movwf PortB call AA3 movlw .114 movwf PortB call OFF movlw .82 movwf PortB call AA2 movlw .86 movwf PortB call OFF movlw .84 movwf PortB call AA1 call AA1 movlw .86 movwf PortB ; call OFF movlw .82 movwf PortB ; call AA2 movlw .114 movwf PortB ; call OFF movlw .50 movwf PortB ; call AA3 movlw .58 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ10 ;return ;111111111111111111111111111111111111111111111111111111111111111111111111111111 SSD11 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ11 call AA7 movlw .58 movwf PortB call OFF movlw .50 movwf PortB call AA6 movlw .118 movwf PortB call OFF movlw .84 movwf PortB call AA5 call AA5 movlw .118 movwf PortB ; call OFF movlw .50 movwf PortB ; call AA6 movlw .58 movwf PortB ; call OFF movlw .42 movwf PortB ; call AA7 decfsz Sec11,1 ;Управление делением частоты goto JJJ11 ;return ;121212121212121212121212121212121212121212121212121212121212121212121212121212 SSD12 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ12 call AA4 movlw .58 movwf PortB call OFF movlw .50 movwf PortB call AA3 movlw .54 movwf PortB call OFF movlw .52 movwf PortB call AA2 movlw .116 movwf PortB call OFF movlw .84 movwf PortB call AA1 call AA1 movlw .116 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA2 movlw .54 movwf PortB ; call OFF movlw .50 movwf PortB ; call AA3 movlw .58 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ12 ;return ;131313131313131313131313131313131313131313131313131313131313131313131313131313 SSD13 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ13 call AA1 movlw .58 movwf PortB ;Выключаем 2 ключ A call OFF movlw .50 movwf PortB ;Включаем 1 ключ A call AA2 movlw .54 movwf PortB ;Выключаем 6 ключ C call OFF movlw .52 movwf PortB ;Включаем 5 ключ C call AA3 movlw .116 movwf PortB ;Выключаем 4 ключ B call OFF movlw .84 movwf PortB ;Включаем 3 ключ B call AA4 call AA4 movlw .116 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA3 movlw .54 movwf PortB ; call OFF movlw .50 movwf PortB ; call AA2 movlw .58 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ13 ;return ;141414141414141414141414141414141414141414141414141414141414141414141414141414 SSD14 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ14 call AA5 movlw .62 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA6 movlw .116 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA7 call AA7 movlw .116 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA6 movlw .62 movwf PortB ; call OFF movlw .42 movwf PortB ; call AA5 decfsz Sec11,1 ;Управление делением частоты goto JJJ14 ;return ;151515151515151515151515151515151515151515151515151515151515151515151515151515 SSD15 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ15 call AA1 movlw .46 movwf PortB ; call OFF movlw .44 movwf PortB ; call AA2 movlw .60 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA3 movlw .116 movwf PortB ; call OFF movlw .84 movwf PortB ; call AA4 call AA4 movlw .116 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA3 movlw .60 movwf PortB ; call OFF movlw .44 movwf PortB ; call AA2 movlw .46 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA1 decfsz Sec11,1 ;Управление делением частоты goto JJJ15 ;return ;161616161616161616161616161616161616161616161616161616161616161616161616161616 SSD16 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ16 call AA4 movlw .46 movwf PortB call OFF movlw .44 movwf PortB call AA3 movlw .60 movwf PortB call OFF movlw .52 movwf PortB call AA2 movlw .116 movwf PortB call OFF movlw .84 movwf PortB call AA1 call AA1 movlw .116 movwf PortB ; call OFF movlw .52 movwf PortB ; call AA2 movlw .60 movwf PortB ; call OFF movlw .44 movwf PortB ; call AA3 movlw .46 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ16 ;return ;171717171717171717171717171717171717171717171717171717171717171717171717171717 SSD17 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ17 call AA7 movlw .46 movwf PortB call OFF movlw .44 movwf PortB call AA6 movlw .124 movwf PortB call OFF movlw .84 movwf PortB call AA5 call AA5 movlw .124 movwf PortB ; call OFF movlw .44 movwf PortB ; call AA6 movlw .46 movwf PortB ; call OFF ;movlw .150 ;bsf Status,0 ;subwf ON2,0 ;btfsc Status,0 ;bsf ON,7 ;Установить флаг достижения заданной частоты ;nop ;nop ;nop ;nop movlw .42 movwf PortB ; call AA7 decfsz Sec11,1 ;Управление делением частоты goto JJJ17 ;return ;181818181818181818181818181818181818181818181818181818181818181818181818181818 SSD18 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 JJJ18 call AA4 movlw .46 movwf PortB ;call OFF btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortA,2 ;Выход из программы вращения, стоп. goto Stop btfsc SecMAX,7 ;Не осуществлять далее ускорение, (ограничение максимальной частоты). bcf Intcon,7 nop movlw .44 movwf PortB call AA3 movlw .108 movwf PortB ;call OFF btfsc PortA,1 bcf Intcon,5 ;Нет разгона с кнопки btfss ON,7 bsf Intcon,5 ;Авторазгон до фиксированной частоты nop nop nop ;btfss PortA,1 ;Разгон с кнопки ;bsf Intcon,5 ;movlw .150 ;bsf Status,0 ;subwf ON,0 ;btfss Status,0 ;bsf Intcon,5 ;Авторазгон до фиксированной частоты btfss PortA,1 ;Разгон с кнопки bsf Intcon,5 movlw .76 movwf PortB call AA2 movlw .92 movwf PortB call OFF ;btfss ON,7 ;bsf Intcon,5 ;Авторазгон до фиксированной частоты ;nop ;nop ;nop ;nop ;nop ;nop ;nop movlw .84 movwf PortB call AA1 call AA1 movlw .92 movwf PortB ; call OFF ;decfsz ACCSEL,F ;Управление разгоном ;goto DRIVE ;Нет опроса ;btfsc AUTRUN,1 ;Опрос регистра разгона ;goto Delay ;Следующая частота movlw .76 movwf PortB ; call AA2 movlw .108 movwf PortB ; call OFF ;movfw ACCSEL ;Проверка ACCSEL на 0. ;addlw .0 ;btfsc Status,2 ;incf ACCSEL,1 ;Нет ускорения, и устанока ACCSEL=1 ;nop movlw .44 movwf PortB ; call AA3 movlw .46 movwf PortB ; call OFF movlw .42 movwf PortB ;Все нижние ключи call AA4 decfsz Sec11,1 ;Управление делением частоты goto JJJ18 goto SSD1 ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()() ; Отработка констант ШИМ ;)()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()( AA1 movfw Sec1 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA2 movfw Sec2 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA3 movfw Sec3 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA4 movfw Sec4 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA5 movfw Sec5 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA6 movfw Sec6 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return AA7 movfw Sec7 ;Установка константы movwf Sec0 ; call NTT ;Отработка константы return ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ; Время задержки между переключениями силовых ключей ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ OFF nop nop nop nop nop return ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ; Программа отработки задержек. ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& NTT clrwdt QQ decfsz Sec0,1 goto QQ return