; 3-Фазное ШИМ управление инвертором двигателя (6-IGBT). U/f на 50-75Гц. Векторная ШИМ. ; PIC16F648А Кварц 20 МГц. Автор КДН(DC-AC).(Оптимизирована на двигатель 4кВт с номинальным пусковым моментом ; и форсированным режимом рампы при питпнии от 380В двигателя при соединении треугльник = 6кВт) ;=============================================================================================== LIST p=16F648A ; Установка типа микроконтроллера. ;#include __CONFIG 3F26H ; ; ;=============================================================================================== ; Определение положения регистров специального назначения. ;==============================================================================================+ OptionR equ 81h ; Для установки WDT без предделителя. Status equ 03h ; Регистр выбора банка. TrisB equ 06h ; Регистр выбора направления работы выводов порта В. PortB equ 06h ; Регистр управления защелками порта В. TrisA equ 05h ; Регистр выбора направления работы выводов порта A. PortA equ 05h ; Регистр управления защелками порта A. Intcon equ 0Bh ; EEData equ 9Ah ; EEprom EECon1 equ 9Ch ; EECon2 equ 9Dh ; EEAdr equ 9Bh ; INDF equ 00h ; Косвенная адресация FSR equ 04h ; CMCON equ 1Fh ; Конфигурация входов (цифровые). PCL equ 02h ; Счётчик команд TMR0 equ 01h ; Таймер0 ;=============================================================================================== ; Определение названия и положения регистров общего назначения. ;=============================================================================================== Sec1 equ 20h ; Регистр константы. Sec2 equ 21h ; Регистр константы. Sec3 equ 22h ; Регистр константы. Sec4 equ 23h ; Регистр константы. Sec5 equ 24h ; Регистр константы. Sec6 equ 25h ; Регистр константы. Sec7 equ 26h ; Регистр константы. AUTRUN equ 33h ; Регистр авторазгона.(управление разгоном 1-ый бит) ;Sec10 equ 28h ; Регистр вращения вектора. (В 2 ходовой шим не требуется, уже есть) Sec11 equ 29h ; Регистр управления делением частоты. Sec12 equ 27h ; Регистр константы деления частоты. Sec0 equ 2Ah ; Счетчик исполнитель констант. ;Sec00 equ 2Bh ; Регистр выбора констант не в памяти(по битам) Sec000 equ 2Ch ; Регистр выбора констант по вычисляемому переходу ;Sec010 equ 32h ; Регистр выбора констант не в памяти(по битам) SecMAX equ 2Dh ; Регистр ограничения максимальной частоты.(7-ой бит)-50Гц Sec100 equ 2Eh ; Регистр адреса ячейки памяти для косвенной адресации. Sec200 equ 2Fh ; Счетчик 8 чисел констант вращения SecM equ 30h ; Счетчик количества считанных данных. ACCSEL equ 31h ; Счетчик делитель времени ускорения. REVERS equ 34h ; Регистр выбора направления вращения. ON equ 35h ; Регистр флага достижения разгонной частоты (7-ой бит)и таймер задержки. ON2 equ 36h ; Регистр счёта значения минимальной разгонной частоты. AAW equ 37h ; Регистр сохранения аккумулятора ACCSEL2 equ 38h ; Счетчик таймер драйверов и таймер задержки. ON3 equ 39h ; Регистр установки значения минимальной разгонной частоты (используется для установки и загрузки значения разгонной частоты в EEPROM). NONR equ 3Ah ; Счетчик таймер драйверов и таймер задержки. MINUS equ 3Bh ; Регистр флага хода частот вниз. STOP equ 3Ch ; Регистр флагов условия выключения привода (7), начальной загрузки параметров(0), максимальной уставки частоты(1), максимальной уставки ускорения(2). ACCSELS equ 3Dh ; Регистр загрузки параметра ускорения и торможения ACCSELSS equ 3Eh ; Регистр установки значения времени разгона-торможения (используется для установки и загрузки значения в EEPROM). IMP equ 3Fh ; Регистр задержки для импульса показометра Sc0ZS equ 40h ; Регистр флагов управления нулевыми векторами Sec0Z equ 41h ; Исполняющий регистр флагов управления нулевыми векторами. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; Оперативное хранение таблицы переключения ключей (формирования векторов) ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! PWM0H equ 49h PWM0L equ 50h PWM1 equ 51h PWM2 equ 52h PWM3 equ 53h PWM4 equ 54h PWM5 equ 55h PWM6 equ 56h PWM7 equ 57h PWM8 equ 58h PWM9 equ 59h PWM10 equ 5Ah PWM11 equ 5Bh PWM12 equ 5Ch PWM13 equ 5Dh PWM14 equ 5Eh PWM15 equ 5Fh PWM16 equ 60h PWM17 equ 61h PWM18 equ 62h PWM19 equ 63h PWM20 equ 64h PWM21 equ 65h PWM22 equ 66h PWM23 equ 67h PWM24 equ 68h ;=============================================================================================== ; Определение места размещения результатов операций. ;=============================================================================================== F equ 1 ; Результат направить в регистр. ;=============================================================================================== org 2100h ; Запись констант в EEPROM DE .51,.3,.255,.255,.255,.255,.255,.255 ;Параметры DE D'196', D'2', D'9', D'197', D'200', D'11', D'197', D'107', ; 1,00Hz 4,22Uн 2005,00Hz DE D'195', D'2', D'10', D'196', D'199', D'13', D'195', D'72', ; 1,50Hz 4,80Uн 2005,00Hz DE D'193', D'3', D'12', D'194', D'198', D'15', D'193', D'54', ; 2,00Hz 5,38Uн 2016,00Hz DE D'192', D'4', D'13', D'193', D'197', D'17', D'192', D'43', ; 2,51Hz 5,95Uн 2015,00Hz DE D'191', D'4', D'14', D'192', D'196', D'19', D'191', D'36', ; 3,00Hz 6,50Uн 2015,00Hz DE D'189', D'5', D'16', D'189', D'195', D'20', D'189', D'31', ; 3,50Hz 6,99Uн 2028,00Hz DE D'190', D'5', D'17', D'189', D'195', D'22', D'189', D'27', ; 4,00Hz 7,60Uн 2015,00Hz DE D'189', D'6', D'19', D'188', D'194', D'24', D'187', D'24', ; 4,50Hz 8,21Uн 2015,00Hz DE D'184', D'6', D'20', D'184', D'190', D'26', D'183', D'22', ; 5,00Hz 8,82Uн 2050,00Hz DE D'183', D'7', D'22', D'182', D'189', D'28', D'181', D'20', ; 5,50Hz 9,42Uн 2055,00Hz DE D'185', D'8', D'24', D'184', D'192', D'30', D'183', D'18', ; 6,01Hz 10,03Uн 2020,00Hz DE D'180', D'8', D'25', D'179', D'187', D'32', D'178', D'17', ; 6,50Hz 10,64Uн 2060,00Hz DE D'176', D'9', D'26', D'175', D'183', D'33', D'174', D'16', ; 7,01Hz 11,24Uн 2093,00Hz DE D'175', D'9', D'27', D'173', D'182', D'35', D'172', D'15', ; 7,50Hz 11,85Uн 2102,00Hz DE D'174', D'10', D'29', D'173', D'182', D'37', D'172', D'14', ; 8,00Hz 12,46Uн 2094,00Hz DE D'163', D'10', D'28', D'161', D'170', D'36', D'160', D'14', ; 8,50Hz 13,06Uн 2227,00Hz DE D'165', D'10', D'30', D'163', D'172', D'39', D'162', D'13', ; 9,01Hz 13,67Uн 2191,00Hz DE D'168', D'11', D'33', D'166', D'177', D'42', D'165', D'12', ; 9,51Hz 14,28Uн 2131,00Hz DE D'159', D'11', D'32', D'157', D'167', D'41', D'155', D'12', ; 10,00Hz 14,88Uн 2248,00Hz DE D'164', D'12', D'35', D'162', D'173', D'45', D'161', D'11', ; 10,51Hz 15,49Uн 2157,00Hz DE D'155', D'12', D'35', D'153', D'164', D'44', D'152', D'11', ; 11,01Hz 16,10Uн 2269,00Hz DE D'147', D'12', D'34', D'145', D'156', D'44', D'144', D'11', ; 11,51Hz 16,71Uн 2372,00Hz DE D'140', D'12', D'34', D'138', D'148', D'43', D'136', D'11', ; 12,00Hz 17,31Uн 2483,00Hz DE D'147', D'13', D'38', D'145', D'156', D'48', D'144', D'10', ; 12,50Hz 17,92Uн 2345,00Hz DE D'141', D'13', D'37', D'138', D'150', D'47', D'137', D'10', ; 12,99Hz 18,53Uн 2442,00Hz DE D'134', D'13', D'37', D'132', D'143', D'47', D'130', D'10', ; 13,50Hz 19,13Uн 2542,00Hz DE D'144', D'15', D'41', D'141', D'153', D'52', D'139', D'9', ; 13,99Hz 19,74Uн 2365,00Hz DE D'137', D'15', D'41', D'135', D'147', D'52', D'133', D'9', ; 14,49Hz 20,35Uн 2452,00Hz DE D'131', D'15', D'41', D'129', D'141', D'52', D'127', D'9', ; 15,00Hz 20,95Uн 2545,00Hz DE D'143', D'17', D'46', D'140', D'154', D'59', D'138', D'8', ; 15,50Hz 21,56Uн 2325,00Hz DE D'138', D'17', D'46', D'134', D'148', D'58', D'133', D'8', ; 15,99Hz 22,17Uн 2407,00Hz org 0 ; Начать выполнение программы с адреса 0 PC. goto Start ; Переход в ПП Start. org 4 ; Переход в прерывание. goto FROM ;*********************************************************************************************** ; Текст рабочей части программы. ;*********************************************************************************************** ; Установка направления работы портов. ;----------------------------------------------------------------------------------------------- Start movlw D'126' movwf PortB ;movlw .16 ;movwf PortA clrf PortA movlw .7 movwf CMCON ; Цифровые входы. bsf Status,5 ; Перейти в 1-й банк (установить в 1 5-й бит ; регистра Status). movlw .7 movwf TrisA movlw .128 ; Запись константы в W movwf TrisB ; Скопировать константу из W в регистр TrisB.(Конфигурация выводов) ;bcf Option,0 ;bcf Option,1 ;bcf OptionR,3 movlw .215 movwf OptionR ; Предделитель перед таймером от внутр такта 1 на 256 clrf EEAdr ; Очистка адреса EEPROM bcf Status,5 ; Перейти в 0-й банк (установить в 0 5-й бит ; регистра Status). clrf Intcon ; Нет прерываний. clrf TMR0 ; Сброс таймера ;----------------------------------------------------------------------------------------------- ; Начало ;----------------------------------------------------------------------------------------------- ;clrf Sec100 clrf ACCSEL2 clrf SecMAX clrf AUTRUN ;clrf Sec000 ;clrf REVERS clrf STOP ;clrf Sec0Z ;clrf Sc0ZS movlw .1 movwf Sec11 clrf ACCSEL movlw .0 movwf SecM ;movlw .50 ;movwf ON3 ; Разгон до 50Гц ;goto NONRUN call NONRUN btfss PortA,0 ; Команда входа в меню частот разгона (Используется кнопка на "бывшей" ноге реверса). goto MIN movlw .20 ; Начальная пауза 1с для размагничивания двигателя (безопасный режим быстрого нажатия сброс-пуск). movwf Sec0 PNZ call NONRUN decfsz Sec0,1 goto PNZ PARAM call Stop2 ; Защита от самозапуска при залипании кнопок goto Stop ;************************************************************************************* ; Ядро программы ШИМ *VECTOR* ;************************************************************************************* ;111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 SSD1 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ1 call AA1 movfw PWM2 iorwf PortB,1 ;Логика переключений ключ A W1 call OFF movfw PWM2 movwf PortB ;Включаем 1 ключ A call AA2 movfw PWM3 movwf PortB ;Выключаем 6 ключ C call OFF movfw PWM4 movwf PortB ;Включаем 5 ключ C call AA3 ;Проверка условия пропуска нулевого вектора верхних ключей btfsc Sec0Z,4 goto VV1 movfw PWM5 movwf PortB ;Выключаем 4 ключ B call OFF movfw PWM0H movwf PortB ;Включаем 3 ключ B VV1 call AA4 call AA4 btfsc Sec0Z,4 ;Непрерывное включение, если нулевой вектор пропущен goto Z1 movfw PWM5 movwf PortB ; Z1 call OFF movfw PWM4 movwf PortB ; call AA3 movfw PWM3 movwf PortB ; call OFF movfw PWM2 movwf PortB ; call AA2 ;Проверка условия пропуска нулевого вектора нижних ключей btfsc Sec0Z,1 goto VV2 movfw PWM1 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV2 call AA1 btfsc Sec0Z,1 call VC ; коррекция времени decfsz Sec11,1 ;Управление делением частоты goto JJJ1 ;return bcf Intcon,7 ;22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 SSD2 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ2 call AA5 movfw PWM4 iorwf PortB,1 ; W2 call OFF movfw PWM4 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV3 movfw PWM5 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV3 call AA7 call AA7 btfsc Sec0Z,7 goto Z2 movfw PWM5 movwf PortB ; Z2 call OFF movfw PWM4 movwf PortB ; call AA6 btfsc Sec0Z,5 goto VV4 movfw PWM6 movwf PortB ; call OFF movfw PWM0L movwf PortB ; VV4 call AA5 btfsc Sec0Z,5 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ2 ;return bcf Intcon,7 ;333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333 SSD3 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ3 call AA1 movfw PWM8 iorwf PortB,1 ; W3 call OFF movfw PWM8 movwf PortB ; call AA2 movfw PWM9 movwf PortB ; call OFF movfw PWM4 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV5 movfw PWM5 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV5 call AA4 call AA4 btfsc Sec0Z,4 goto Z3 movfw PWM5 movwf PortB ; Z3 call OFF movfw PWM4 movwf PortB ; call AA3 movfw PWM9 movwf PortB ; call OFF movfw PWM8 movwf PortB ; call AA2 btfsc Sec0Z,1 goto VV6 movfw PWM7 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV6 call AA1 btfsc Sec0Z,1 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ3 ;return bcf Intcon,7 ;444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 SSD4 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ4 call AA4 movfw PWM8 iorwf PortB,1 W4 call OFF movfw PWM8 movwf PortB call AA3 movfw PWM9 movwf PortB call OFF movfw PWM4 movwf PortB call AA2 btfsc Sec0Z,1 goto VV7 movfw PWM5 movwf PortB call OFF movfw PWM0H movwf PortB VV7 call AA1 call AA1 btfsc Sec0Z,1 goto Z4 movfw PWM5 movwf PortB ; Z4 call OFF movfw PWM4 movwf PortB ; call AA2 movfw PWM9 movwf PortB ; call OFF movfw PWM8 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV8 movfw PWM7 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV8 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ4 ;return bcf Intcon,7 ;55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 SSD5 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ5 call AA7 movfw PWM8 iorwf PortB,1 W5 call OFF movfw PWM8 movwf PortB call AA6 btfsc Sec0Z,5 goto VV9 movfw PWM10 movwf PortB call OFF movfw PWM0H movwf PortB VV9 call AA5 call AA5 btfsc Sec0Z,5 goto Z5 movfw PWM10 movwf PortB ; Z5 call OFF movfw PWM8 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV10 movfw PWM7 movwf PortB ; call OFF movfw PWM0L movwf PortB ; VV10 call AA7 btfsc Sec0Z,7 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ5 ;return bcf Intcon,7 ;666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666 SSD6 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ6 call AA4 movfw PWM8 iorwf PortB,1 W6 call OFF movfw PWM8 movwf PortB call AA3 movfw PWM11 movwf PortB call OFF movfw PWM12 movwf PortB call AA2 btfsc Sec0Z,1 goto VV11 movfw PWM13 movwf PortB call OFF movfw PWM0H movwf PortB VV11 call AA1 call AA1 btfsc Sec0Z,1 goto Z6 movfw PWM13 movwf PortB ; Z6 call OFF movfw PWM12 movwf PortB ; call AA2 movfw PWM11 movwf PortB ; call OFF movfw PWM8 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV12 movfw PWM7 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV12 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ6 ;return bcf Intcon,7 ;777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777 SSD7 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ7 call AA1 movfw PWM8 iorwf PortB,1 W7 call OFF movfw PWM8 movwf PortB call AA2 movfw PWM11 movwf PortB call OFF movfw PWM12 movwf PortB call AA3 btfsc Sec0Z,4 goto VV13 movfw PWM13 movwf PortB call OFF movfw PWM0H movwf PortB VV13 call AA4 call AA4 btfsc Sec0Z,4 goto Z7 movfw PWM13 movwf PortB ; Z7 call OFF movfw PWM12 movwf PortB ; call AA3 movfw PWM11 movwf PortB ; call OFF movfw PWM8 movwf PortB ; call AA2 btfsc Sec0Z,1 goto VV14 movfw PWM7 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV14 call AA1 btfsc Sec0Z,1 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ7 ;return bcf Intcon,7 ;888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 SSD8 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ8 call AA5 movfw PWM12 iorwf PortB,1 ; W8 call OFF movfw PWM12 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV15 movfw PWM13 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV15 call AA7 call AA7 btfsc Sec0Z,7 goto Z8 movfw PWM13 movwf PortB ; Z8 call OFF movfw PWM12 movwf PortB ; call AA6 btfsc Sec0Z,5 goto VV16 movfw PWM14 movwf PortB ; call OFF movfw PWM0L movwf PortB ; VV16 call AA5 btfsc Sec0Z,5 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ8 ;return bcf Intcon,7 ;99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 SSD9 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ9 call AA1 movfw PWM16 iorwf PortB,1 ; W9 call OFF movfw PWM16 movwf PortB ; call AA2 movfw PWM17 movwf PortB ; ;call OFF btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 nop nop ;btfsc PortA,2 ;Снижение частоты вращения, стоп. ;bcf Intcon,5 ;Нет торможения с кнопки btfss PortA,2 ;Снижение частоты вращения, стоп. bsf Intcon,5 ;Торможение с кнопки nop movfw PWM12 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV17 movfw PWM13 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV17 call AA4 call AA4 btfsc Sec0Z,4 goto Z9 movfw PWM13 movwf PortB ; Z9 call OFF movfw PWM12 movwf PortB ; call AA3 movfw PWM17 movwf PortB ; call OFF movfw PWM16 movwf PortB ; call AA2 btfsc Sec0Z,1 goto VV18 movfw PWM15 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV18 call AA1 btfsc Sec0Z,1 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ9 ;return bcf Intcon,7 ;10101010101010101010101010101010101010101010101010101010101010101010101010101010101 SSD10 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ10 call AA4 movfw PWM16 iorwf PortB,1 W10 call OFF movfw PWM16 movwf PortB call AA3 movfw PWM17 movwf PortB call OFF movfw PWM12 movwf PortB call AA2 btfsc Sec0Z,1 goto VV19 movfw PWM13 movwf PortB call OFF movfw PWM0H movwf PortB VV19 call AA1 call AA1 btfsc Sec0Z,1 goto Z10 movfw PWM13 movwf PortB ; Z10 call OFF movfw PWM12 movwf PortB ; call AA2 movfw PWM17 movwf PortB ; call OFF movfw PWM16 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV20 movfw PWM15 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV20 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ10 ;return bcf Intcon,7 ;111111111111111111111111111111111111111111111111111111111111111111111111111111 SSD11 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ11 call AA7 movfw PWM16 iorwf PortB,1 W11 call OFF movfw PWM16 movwf PortB call AA6 btfsc Sec0Z,5 goto VV21 movfw PWM18 movwf PortB call OFF movfw PWM0H movwf PortB VV21 call AA5 call AA5 btfsc Sec0Z,5 goto Z11 movfw PWM18 movwf PortB ; Z11 call OFF movfw PWM16 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV22 movfw PWM15 movwf PortB ; call OFF movfw PWM0L movwf PortB ; VV22 call AA7 btfsc Sec0Z,7 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ11 ;return bcf Intcon,7 ;121212121212121212121212121212121212121212121212121212121212121212121212121212 SSD12 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ12 call AA4 movfw PWM16 iorwf PortB,1 W12 call OFF movfw PWM16 movwf PortB call AA3 movfw PWM19 movwf PortB call OFF movfw PWM20 movwf PortB call AA2 btfsc Sec0Z,1 goto VV23 movfw PWM21 movwf PortB call OFF movfw PWM0H movwf PortB VV23 call AA1 call AA1 btfsc Sec0Z,1 goto Z12 movfw PWM21 movwf PortB ; Z12 call OFF movfw PWM20 movwf PortB ; call AA2 movfw PWM19 movwf PortB ; call OFF movfw PWM16 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV24 movfw PWM15 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV24 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ12 ;return bcf Intcon,7 ;131313131313131313131313131313131313131313131313131313131313131313131313131313 SSD13 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ13 call AA1 movfw PWM16 iorwf PortB,1 ;Логика переключения ключей W13 call OFF movfw PWM16 movwf PortB ; call AA2 movfw PWM19 movwf PortB ;Выключаем 6 ключ C call OFF movfw PWM20 movwf PortB ;Включаем 5 ключ C call AA3 btfsc Sec0Z,4 goto VV25 movfw PWM21 movwf PortB ;Выключаем 4 ключ B call OFF movfw PWM0H movwf PortB ;Включаем 3 ключ B VV25 call AA4 call AA4 btfsc Sec0Z,4 goto Z13 movfw PWM21 movwf PortB ; Z13 call OFF movfw PWM20 movwf PortB ; call AA3 movfw PWM19 movwf PortB ; call OFF movfw PWM16 movwf PortB ; call AA2 btfsc Sec0Z,1 goto VV26 movfw PWM15 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV26 call AA1 btfsc Sec0Z,1 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ13 ;return bcf Intcon,7 ;141414141414141414141414141414141414141414141414141414141414141414141414141414 SSD14 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ14 call AA5 movfw PWM20 iorwf PortB,1 W14 call OFF movfw PWM20 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV27 movfw PWM21 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV27 call AA7 call AA7 btfsc Sec0Z,7 goto Z14 movfw PWM21 movwf PortB ; Z14 call OFF movfw PWM20 movwf PortB ; call AA6 btfsc Sec0Z,5 goto VV28 movfw PWM22 movwf PortB ; call OFF movfw PWM0L movwf PortB ; VV28 call AA5 btfsc Sec0Z,5 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ14 ;return bcf Intcon,7 ;151515151515151515151515151515151515151515151515151515151515151515151515151515 SSD15 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ15 call AA1 movfw PWM2 iorwf PortB,1 ; W15 call OFF movfw PWM2 movwf PortB ; call AA2 movfw PWM23 movwf PortB ; call OFF movfw PWM20 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV29 movfw PWM21 movwf PortB ; call OFF movfw PWM0H movwf PortB ; VV29 call AA4 call AA4 btfsc Sec0Z,4 goto Z15 movfw PWM21 movwf PortB ; Z15 call OFF movfw PWM20 movwf PortB ; call AA3 movfw PWM23 movwf PortB ; call OFF movfw PWM2 movwf PortB ; call AA2 btfsc Sec0Z,1 goto VV30 movfw PWM1 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV30 call AA1 btfsc Sec0Z,1 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ15 ;return bcf Intcon,7 ;161616161616161616161616161616161616161616161616161616161616161616161616161616 SSD16 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ16 call AA4 movfw PWM2 iorwf PortB,1 W16 call OFF movfw PWM2 movwf PortB call AA3 movfw PWM23 movwf PortB call OFF movfw PWM20 movwf PortB call AA2 btfsc Sec0Z,1 goto VV31 movfw PWM21 movwf PortB call OFF movfw PWM0H movwf PortB VV31 call AA1 call AA1 btfsc Sec0Z,1 goto Z16 movfw PWM21 movwf PortB ; Z16 call OFF movfw PWM20 movwf PortB ; call AA2 movfw PWM23 movwf PortB ; call OFF movfw PWM2 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV32 movfw PWM1 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV32 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ16 ;return bcf Intcon,7 ;171717171717171717171717171717171717171717171717171717171717171717171717171717 SSD17 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ17 call AA7 movfw PWM2 iorwf PortB,1 W17 call OFF movfw PWM2 movwf PortB call AA6 btfsc Sec0Z,5 goto VV33 movfw PWM24 movwf PortB call OFF movfw PWM0H movwf PortB VV33 call AA5 call AA5 btfsc Sec0Z,5 goto Z17 movfw PWM24 movwf PortB ; Z17 call OFF movfw PWM2 movwf PortB ; call AA6 btfsc Sec0Z,7 goto VV34 movfw PWM1 movwf PortB ; call OFF ;movlw .150 ;bsf Status,0 ;subwf ON2,0 ;btfsc Status,0 ;bsf ON,7 ;Установить флаг достижения заданной частоты ;nop ;nop ;nop ;nop movfw PWM0L movwf PortB ; VV34 call AA7 btfsc Sec0Z,7 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ17 ;return bcf Intcon,7 ;181818181818181818181818181818181818181818181818181818181818181818181818181818 SSD18 movfw Sec12 ; Установка множителя деления частоты Шим movwf Sec11 movfw Sc0ZS ; Управление нулевыми векторами movwf Sec0Z bsf Intcon,7 ; Разрешить прерывания JJJ18 call AA4 movfw PWM2 iorwf PortB,1 W18 call OFF movfw PWM2 movwf PortB call AA3 movfw PWM3 movwf PortB ;call OFF btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 ;nop ;nop btfss PortB,7 ;!!!Проверка просадки DC звена. goto F02 nop nop ;btfsc PortA,2 ;Снижение частоты вращения, стоп. ;bcf Intcon,5 ;Нет торможения с кнопки btfss PortA,2 ;Снижение частоты вращения, стоп. bsf Intcon,5 ;Торможение с кнопки nop movfw PWM4 movwf PortB call AA2 btfsc Sec0Z,1 goto VV35 movfw PWM5 movwf PortB call OFF movfw PWM0H movwf PortB VV35 call AA1 call AA1 btfsc Sec0Z,1 goto Z18 movfw PWM5 movwf PortB ; Z18 call OFF movfw PWM4 movwf PortB ; call AA2 movfw PWM3 movwf PortB ; nop nop ;call OFF ;btfsc PortA,1 ;bcf Intcon,5 ;Нет разгона с кнопки btfss ON,7 bsf Intcon,5 ;Авторазгон до фиксированной частоты btfsc STOP,7 ;Выход из вращения, стоп. goto Stop ;nop ;nop nop btfss PortA,1 ;Разгон с кнопки bsf Intcon,5 movfw PWM2 movwf PortB ; call AA3 btfsc Sec0Z,4 goto VV36 movfw PWM1 movwf PortB ; call OFF movfw PWM0L movwf PortB ;Все нижние ключи VV36 call AA4 btfsc Sec0Z,4 call VC decfsz Sec11,1 ;Управление делением частоты goto JJJ18 bcf Intcon,7 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 ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ; Время задержки между переключениями силовых ключей (2mks) ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ OFF nop nop nop nop nop return ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ; Программа отработки задержек. ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& NTT clrwdt QQ decfsz Sec0,1 goto QQ return ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; Флаг векторной модуляции и задержка ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ VC ;bsf Sec00Z,0 call OFF return ;******************************************************************************* ; Управление, торможение и изменение частот вращения вектора(констант) ;******************************************************************************* Stop clrf Intcon movlw .126 movwf PortB clrf Sec100 clrf AUTRUN clrf Sec000 clrf REVERS clrf STOP clrf Sec0Z clrf Sc0ZS movlw .0 movwf SecM movlw .1 movwf Sec11 clrf SecMAX ;call NONRUN ;clrf PortA movlw .24 movwf PortA ; бит прерывания и флаг счёта частот вниз. call NONRUN movlw .16 movwf PortA ;оставляем флаг счёта частот вниз, для сброса показаний. call NONRUN ;=================================================================================== ; Проверка DC звена, разрешения ограничения поля (разгон >50Гц) и ожидание пуска ;=================================================================================== clrf PortA ;Снятие флага счёта частот, готовность. call NONRUN ;call Stop2 ;Обеспечивает остановку привода при снижении частоты без перехода на реверс (реверс только через повторное нажатие) RUNN clrf REVERS clrwdt ;movf ON3,0 ;movwf ON2 ;Установка заданной частоты clrf ON clrf Sec000 ;btfsc PortA,0 ;Выбор направления вращения поля ;bsf REVERS,7 btfss PortB,7 ;Опрос DC звена goto F02 btfss PortB,7 goto F02 ;btfss PortA,2 ;goto Stop2 ;btfss PortA,2 ;goto Stop2 movlw .127 ;Индикация готовности к включению movwf PortB btfsc PortA,1 goto RUNNR btfsc PortA,1 goto RUNNR goto PUSK RUNNR btfsc PortA,2 goto RUNN btfsc PortA,2 goto RUNN bsf REVERS,7 ;Выбор направления вращения поля ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; Подготовка драйверов силовых ключей ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! PUSK movlw .42 movwf PortB ;Включаем всю нижнюю (эмиттерную) группу - заряд верхних драйверов. call NONRUN call NONRUN ;call NONRUN movlw .100 movwf Sec0 YY call OFF clrwdt movlw .42 movwf PortB ;Включаем всю нижнюю (эмиттерную) группу ZAR decfsz ACCSEL2,F goto ZAR ZAR2 decfsz ACCSEL2,F goto ZAR2 movlw .126 movwf PortB ;Выключаем группу call OFF movlw .84 movwf PortB ;Включаем всю верхнюю (коллекторную) группу ZA decfsz ACCSEL2,F goto ZA ZA2 decfsz ACCSEL2,F goto ZA2 movlw .126 movwf PortB ;Выключаем группу decfsz Sec0,1 goto YY ;################################################################################### call Delay ; начальная загрузка параметров bsf STOP,0 movfw Sec1 movwf ON2 ;Установить параметр частоты авторазгона. movfw Sec2 movwf ACCSELS ;Установить параметр ускорения и торможения call Delay ;Смена констант частот clrf TMR0 ;Сброс таймера bcf Intcon,2 ;Сброс флага прерывания от TMR0 ;bsf Intcon,7 ;Разрешить прерывания btfsc REVERS,7 goto VECTORr ;ШИМ реверс goto VECTOR ;ШИМ ;#################################################################################### ; Загрузка таблицы переключения для прямого вращения ;#################################################################################### VECTOR movlw .42 movwf PWM0L movlw .84 movwf PWM0H movlw .46 movwf PWM1 movlw .44 movwf PWM2 movlw .108 movwf PWM3 movlw .76 movwf PWM4 movlw .92 movwf PWM5 movlw .110 movwf PWM6 movlw .106 movwf PWM7 movlw .74 movwf PWM8 movlw .78 movwf PWM9 movlw .94 movwf PWM10 movlw .90 movwf PWM11 movlw .82 movwf PWM12 movlw .86 movwf PWM13 movlw .122 movwf PWM14 movlw .58 movwf PWM15 movlw .50 movwf PWM16 movlw .114 movwf PWM17 movlw .118 movwf PWM18 movlw .54 movwf PWM19 movlw .52 movwf PWM20 movlw .116 movwf PWM21 movlw .62 movwf PWM22 movlw .60 movwf PWM23 movlw .124 movwf PWM24 goto SSD18 ;#################################################################################### ; Загрузка таблицы переключения для обратного вращения ;#################################################################################### VECTORr movlw .42 movwf PWM0L movlw .84 movwf PWM0H movlw .58 movwf PWM1 movlw .50 movwf PWM2 movlw .114 movwf PWM3 movlw .82 movwf PWM4 movlw .86 movwf PWM5 movlw .122 movwf PWM6 movlw .106 movwf PWM7 movlw .74 movwf PWM8 movlw .90 movwf PWM9 movlw .94 movwf PWM10 movlw .78 movwf PWM11 movlw .76 movwf PWM12 movlw .92 movwf PWM13 movlw .110 movwf PWM14 movlw .46 movwf PWM15 movlw .44 movwf PWM16 movlw .108 movwf PWM17 movlw .124 movwf PWM18 movlw .60 movwf PWM19 movlw .52 movwf PWM20 movlw .116 movwf PWM21 movlw .62 movwf PWM22 movlw .54 movwf PWM23 movlw .118 movwf PWM24 goto SSD18 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;=================================================================================== ; Изменение частот вращения+ ;=================================================================================== Delay clrwdt btfss STOP,0 goto SETUP movlw .8 ;Не выдавать бит счёта. movwf PortA ; Бит прерывания счёт вверх. movfw ACCSELS ;Загрузка параметра ускорения movwf ACCSEL ;Время разгона (между переключениями ступеней вверх). SETUP clrf MINUS ;Сброс флага, частота идёт вверх. btfss SecM,5 ;Считывание всех констант из EEPROM завершено или нет goto DEREC ;------------------------------------------------------------------------------- ; Адресация частот вращения ;------------------------------------------------------------------------------- incf Sec000,1 ;Увеличение частоты на 1 movfw Sec000 lgoto SELECT ;Уходим на выбор частот по вычисляемому переходу ;------------------------------------------------------------------------------- ; Извлечение таблицы констант из EEPROM памяти данных ;------------------------------------------------------------------------------- DEREC movlw .8 ;Число чисел, формирующих одну частоту. movwf Sec200 movlw .32 movwf FSR ; Запись начального адреса. REC movf Sec100,0 clrf Status bsf Status,5 movwf EEAdr ; Стандартная процедура чтения EEPROM. ;bsf Status,5 bsf EECon1,0 ;bcf Status,5 movf EEData,0 clrf Status movwf INDF ; Запись констант по косвенной адресации. incf FSR,F ; Следующий адрес. incf Sec100,F decfsz Sec200,F ; Отслеживание окончания записи 8 чисел. goto REC incf SecM,F ; Отслеживание считывания чисел частот. ;incf ON,F ; Отслеживание начальной скорости (10Гц) goto ROTOR ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;=================================================================================== ; Изменение частот вращения- ;=================================================================================== Delayn clrwdt movlw .2 bcf Status,2 ;Сбросить флаг 0 subwf SecM,0 ;Проверка на конечную нижнюю константу btfsc Status,2 ;goto ROTORST ;Выключения привода - по вектору goto Stop ; - моментальное (быстрый стоп без возврата из стека и из прерывания) movlw .24 movwf PortA ; Бит прерывания и флаг счёта вниз. movfw ACCSELS ;Загрузка параметра торможения movwf ACCSEL ;Время замедления (между переключениями ступеней вниз). bsf MINUS,7 ;Установка флага хода частоты вниз. movlw .254 bcf Status,0 ;Сброс флага переноса. addwf Sec000,0 ;Проверка на число 1 и 0 в Sec000 btfss Status,0 goto DERECn ;------------------------------------------------------------------------------- ; Адресация частот вращения ;------------------------------------------------------------------------------- decf Sec000,1 ;Уменьшение частоты на 1 movfw Sec000 lgoto SELECT ;Уходим на выбор частот по вычисляемому переходу ;------------------------------------------------------------------------------- ; Извлечение таблицы констант из EEPROM памяти данных ;------------------------------------------------------------------------------- DERECn movlw .1 bcf Status,2 ;Сброс флага нуля. subwf Sec000,0 ;Проверка на число 0 в Sec000 btfsc Status,2 goto IZSEL ;Переход из констант флеш clrf Sec000 ;Сброс верхних ступеней в 0 movlw .9 subwf Sec100,1 ; Сдвиг на одну ступень назад RECnZ movlw .8 ;Число чисел, формирующих одну частоту. movwf Sec200 movlw .39 movwf FSR ; Запись начального адреса. RECn movf Sec100,0 clrf Status bsf Status,5 movwf EEAdr ; Стандартная процедура чтения EEPROM. ;bsf Status,5 bsf EECon1,0 ;bcf Status,5 movf EEData,0 clrf Status movwf INDF ; Запись констант по косвенной адресации. decf FSR,F ; Следующий адрес.(назад) decf Sec100,F decfsz Sec200,F ; Отслеживание окончания записи 8 чисел. goto RECn decf SecM,F ; Отслеживание считывания чисел частот. movlw .9 addwf Sec100,1 ; Возвращение счётчика назад на одну ступень ;incf ON,F ; Отслеживание начальной скорости (10Гц) goto ROTOR IZSEL movlw .1 subwf Sec100,1 ; Нет Сдвига на одну ступень назад clrf Sec000 ;Сброс верхних ступеней в 0 incf SecM,1 ;Чтоб сохранить постоянство счёта констант в EEPROM goto RECnZ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; Отсчёт частот вращения и подхват ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ROTOR btfsc MINUS,7 goto ROTORn ; Операции с частотами назад. ;movlw .3 ; Разгон до 50 Гц за 2 с. ;movwf ACCSEL ;Время разгона (между переключениями ступеней вверх). incf ON2,F ; Отслеживание заданной начальной скорости goto POLE ROTORST bsf STOP,7 ;Флаг выключения привода поднят. ROTORn bsf ON,7 ;Прервать авторазгон при нажатии в разгоне. ;__________+++++++улучшение перехода между множителями ШИМ+++++++______________ POLE movlw .20 movwf IMP PRD decfsz IMP,1 goto PRD clrf PortA ;Снять бит прерывания, смена частот завершена. bcf Status,0 movfw Sec11 ;Выбор минимального остаточного множителя для следующей частоты во избежание подмагничивания subwf Sec12,0 btfsc Status,0 return movfw Sec12 movwf Sec11 return ;############################################################################ ; Программная задержка 39.47ms ;############################################################################ NONRUN clrf ACCSEL2 clrf NONR NONRUN1 decfsz ACCSEL2,F ;Програмная задержка. goto NONRUN1 clrwdt decfsz NONR,F goto NONRUN1 return ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; Ошибка F0.2 Низкое напряжение DC звена ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! F02 clrwdt ;Ошибка DC звена F0.2 clrf Intcon movlw .126 movwf PortB movlw .8 ; Длинный бит прерывания для индикации F0.2 movwf PortA call NONRUN call NONRUN call NONRUN movlw .127 movwf PortB call NONRUN call NONRUN call NONRUN goto F02 ;***************************************************************************** ; Стоп ;***************************************************************************** Stop2 clrf Intcon movlw .126 movwf PortB clrwdt btfss PortA,2 goto Stop2 btfss PortA,2 goto Stop2 btfss PortA,1 goto Stop2 btfss PortA,1 goto Stop2 call NONRUN call NONRUN return ;goto RUNN ;)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ; Установки разгонной частоты и времени разгона-торможения ;)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) MIN call NONRUN btfss PortA,0 goto MIN btfss PortA,0 goto MIN movlw .149 ; 1,0 Hz movwf ON3 call SETT ;call SETT VBN clrwdt btfss PortA,2 goto ACCSELER btfss PortA,2 goto ACCSELER btfsc PortA,1 goto VBN btfsc PortA,1 goto VBN btfsc STOP,1 goto VB decf ON3,F ; Изменение регистра частоты разгона movlw .1 bcf Status,2 ; Сброс флага 0 subwf ON3,0 btfsc Status,2 bsf STOP,1 ; Максимальная уставка. call SETT VB clrwdt btfss PortA,1 goto VB btfss PortA,1 goto VB goto VBN ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ACCSELER movlw .24 ; Установка времени разгона-торможения movwf PortA ; бит прерывания и флаг счёта частот вниз. call NONRUN movlw .16 movwf PortA ;оставляем флаг счёта частот вниз, для сброса показаний. call NONRUN clrf PortA MIN2 call NONRUN btfss PortA,2 goto MIN2 btfss PortA,2 goto MIN2 movlw .1 ;Минимальное время movwf ACCSELSS call SETT ;call SETT VBN2 clrwdt btfss PortA,2 goto EEPR btfss PortA,2 goto EEPR btfsc PortA,1 goto VBN2 btfsc PortA,1 goto VBN2 btfsc STOP,2 goto VB2 incf ACCSELSS,1 ;Изменение регистра времени разгона-торможения btfsc ACCSELSS,4 bsf STOP,2 ; Максимальная уставка.(16) call SETT call SETT VB2 clrwdt btfss PortA,1 goto VB2 ;btfss PortA,1 ;goto VB2 goto VBN2 SETT movlw .8 ; Выдача счётного бита (для индикации) movwf PortA call NONRUN clrf PortA call NONRUN return ;)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ; Запись параметров в EEPROM ; ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( EEPR movfw ON3 ;Запись данных разгонной частоты call RECEEP movfw ACCSELSS call RECEEP goto PARAM ;Выход в готовность ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& RECEEP bsf Status,5 movwf EEData bsf EECon1,2 ;Разрешить запись movlw .85 movwf EECon2 movlw .170 movwf EECon2 bsf EECon1,1 MMMM btfsc EECon1,1 goto MMMM bcf EECon1,2 ;Запретить запись incf EEAdr,1 bcf Status,5 return ;00000000000000000000000000000000000000000000000000000000000000000000000000000 ; Прерывание по смене констант частот вращения поля ;00000000000000000000000000000000000000000000000000000000000000000000000000000 FROM movwf AAW ;Сохранение аккумулятора movlw .150 bsf Status,0 subwf ON2,0 btfsc Status,0 bsf ON,7 ;Установить флаг достижения заданной частоты decfsz ACCSEL,1 ;Деление времени прерывания (время переключения ступеней) goto ZZF btfsc REVERS,7 ;Работа кнопки в зависимости от направления вращения goto QAZ btfss PortA,2 ;Не отключать прерывания если нажата кнопка снижения частоты goto ZZFFn goto BBB QAZ btfss PortA,1 goto ZZFFn BBB btfss SecMAX,7 goto NOMAX bcf Intcon,5 ;Отключаем прерывания TMR0 если набрана максимальная частота. incf ACCSEL,1 ;Увеличиваем, чтоб след. прерывание вниз прошло сразу (1 в ACCSELe) bsf ON,7 ;Установить флаг достижения заданной частоты, чтоб не включались прерывания goto ZZF ;Не осуществлять далее ускорение, (ограничение максимальной частоты) NOMAX btfsc REVERS,7 ;Работа кнопки в зависимости от направления вращения goto QAZ2 btfss PortA,1 ;Не отключать прерывания если нажата кнопка разгона goto ZZFF goto BBB2 QAZ2 btfss PortA,2 goto ZZFF BBB2 btfss ON,7 ;Авторазгон goto ZZFF bcf Intcon,5 ;Отключаем прерывания TMR0 если набрана конечная частота авторазгона. incf ACCSEL,1 ;Увеличиваем, чтоб след. прерывание прошло сразу (1 в ACCSELe) goto ZZF ;Нет далее разгона ZZFF call Delay ;Смена констант вращения+ ZZF clrf Sc0ZS ;Управление нулевыми векторами decfsz Sec1,0 goto V1 bsf Sc0ZS,1 V1 decfsz Sec4,0 goto V2 bsf Sc0ZS,4 V2 decfsz Sec5,0 goto V3 bsf Sc0ZS,5 V3 decfsz Sec7,0 goto V4 bsf Sc0ZS,7 V4 ;clrf TMR0 ;Выход из прерывания movlw .43 ;Время такта прерывания, определяет темп разгона торможения (перебор каждые 5мс) movwf TMR0 movfw AAW bcf Intcon,2 ;Сброс флага прерывания. retfie ZZFFn btfss STOP,7 ;Не изменять более частоты, нижний предел, флаг стопа. call Delayn ;Переход на смену констант вращения- goto ZZF ;Выход из прерывания ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ; Прокрутка кодовой страницы (тут может быть любая программа) ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ; Аресация констант ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& SELECT addwf PCL,F nop goto START1 goto START2 goto START3 goto START4 goto START5 goto START6 goto START7 goto START8 goto START9 goto START10 goto START11 goto START12 goto START13 goto START14 goto START15 goto START16 goto START17 goto START18 goto START19 goto START20 goto START21 goto START22 goto START23 goto START24 goto START25 goto START26 goto START27 goto START28 goto START29 goto START30 goto START31 goto START32 goto START33 goto START34 goto START35 goto START36 goto START37 goto START38 goto START39 goto START40 goto START41 goto START42 goto START43 goto START44 goto START45 goto START46 goto START47 goto START48 goto START49 goto START50 goto START51 goto START52 goto START53 goto START54 goto START55 goto START56 goto START57 goto START58 goto START59 goto START60 goto START61 goto START62 goto START63 goto START64 goto START65 goto START66 goto START67 goto START68 goto START69 goto START70 goto START71 goto START72 goto START73 goto START74 goto START75 goto START76 goto START77 goto START78 goto START79 goto START80 goto START81 goto START82 goto START83 goto START84 goto START85 goto START86 goto START87 goto START88 goto START89 goto START90 goto START91 goto START92 goto START93 goto START94 goto START95 goto START96 goto START97 goto START98 goto START99 goto START100 goto START101 goto START102 goto START103 goto START104 goto START105 goto START106 goto START107 goto START108 goto START109 goto START110 goto START111 goto START112 goto START113 goto START114 goto START115 goto START116 goto START117 goto START118 ;*********************************************************************************************** ; Константы ;*********************************************************************************************** START118 ;movlw D'2' ; 74,82Hz ;movwf Sec12 ; 99,00Uн movlw D'27' ; 2835,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'181' movwf Sec3 movlw D'6' movwf Sec4 movlw D'59' movwf Sec5 movlw D'227' movwf Sec6 movlw D'1' movwf Sec7 bsf SecMAX,7 ;bsf PortA,4 ;Индикация частоты 75Гц lgoto ROTOR START117 ;movlw D'2' ; 74,03Hz ;movwf Sec12 ; 98,40Uн movlw D'28' ; 2806,00Hz movwf Sec1 movlw D'71' movwf Sec2 movlw D'182' movwf Sec3 movlw D'7' movwf Sec4 movlw D'60' movwf Sec5 movlw D'228' movwf Sec6 movlw D'1' movwf Sec7 bcf SecMAX,7 ;bcf PortA,4 ;Индикация частоты 75Гц lgoto ROTOR START116 ;movlw D'2' ; 73,95Hz ;movwf Sec12 ; 97,81Uн movlw D'29' ; 2805,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'181' movwf Sec3 movlw D'8' movwf Sec4 movlw D'61' movwf Sec5 movlw D'227' movwf Sec6 movlw D'2' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START115 ;movlw D'2' ; 73,56Hz ;movwf Sec12 ; 97,22Uн movlw D'29' ; 2782,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'181' movwf Sec3 movlw D'9' movwf Sec4 movlw D'62' movwf Sec5 movlw D'228' movwf Sec6 movlw D'3' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START114 ;movlw D'2' ; 72,94Hz ;movwf Sec12 ; 96,60Uн movlw D'31' ; 2758,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'181' movwf Sec3 movlw D'10' movwf Sec4 movlw D'63' movwf Sec5 movlw D'228' movwf Sec6 movlw D'4' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START113 ;movlw D'2' ; 72,48Hz ;movwf Sec12 ; 96,01Uн movlw D'31' ; 2740,00Hz movwf Sec1 movlw D'71' movwf Sec2 movlw D'181' movwf Sec3 movlw D'11' movwf Sec4 movlw D'64' movwf Sec5 movlw D'228' movwf Sec6 movlw D'5' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START112 ;movlw D'2' ; 72,03Hz ;movwf Sec12 ; 95,42Uн movlw D'32' ; 2723,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'181' movwf Sec3 movlw D'12' movwf Sec4 movlw D'65' movwf Sec5 movlw D'228' movwf Sec6 movlw D'6' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START111 ;movlw D'2' ; 71,44Hz ;movwf Sec12 ; 94,80Uн movlw D'33' ; 2704,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'13' movwf Sec4 movlw D'66' movwf Sec5 movlw D'228' movwf Sec6 movlw D'7' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START110 ;movlw D'2' ; 71,00Hz ;movwf Sec12 ; 94,20Uн movlw D'34' ; 2686,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'14' movwf Sec4 movlw D'67' movwf Sec5 movlw D'228' movwf Sec6 movlw D'8' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START109 ;movlw D'2' ; 70,49Hz ;movwf Sec12 ; 93,60Uн movlw D'35' ; 2666,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'15' movwf Sec4 movlw D'68' movwf Sec5 movlw D'229' movwf Sec6 movlw D'9' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START108 ;movlw D'2' ; 70,07Hz ;movwf Sec12 ; 93,02Uн movlw D'36' ; 2646,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'16' movwf Sec4 movlw D'69' movwf Sec5 movlw D'229' movwf Sec6 movlw D'10' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START107 ;movlw D'2' ; 69,51Hz ;movwf Sec12 ; 92,32Uн movlw D'38' ; 2621,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'17' movwf Sec4 movlw D'70' movwf Sec5 movlw D'229' movwf Sec6 movlw D'11' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START106 ;movlw D'2' ; 68,95Hz ;movwf Sec12 ; 91,66Uн movlw D'39' ; 2601,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'18' movwf Sec4 movlw D'71' movwf Sec5 movlw D'229' movwf Sec6 movlw D'12' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START105 ;movlw D'2' ; 68,48Hz ;movwf Sec12 ; 90,95Uн movlw D'40' ; 2581,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'19' movwf Sec4 movlw D'73' movwf Sec5 movlw D'229' movwf Sec6 movlw D'13' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START104 ;movlw D'2' ; 68,01Hz ;movwf Sec12 ; 90,29Uн movlw D'41' ; 2562,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'20' movwf Sec4 movlw D'74' movwf Sec5 movlw D'230' movwf Sec6 movlw D'14' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START103 ;movlw D'2' ; 67,48Hz ;movwf Sec12 ; 89,60Uн movlw D'43' ; 2545,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'22' movwf Sec4 movlw D'75' movwf Sec5 movlw D'229' movwf Sec6 movlw D'16' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START102 ;movlw D'2' ; 66,96Hz ;movwf Sec12 ; 88,98Uн movlw D'44' ; 2525,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'23' movwf Sec4 movlw D'76' movwf Sec5 movlw D'229' movwf Sec6 movlw D'17' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START101 ;movlw D'2' ; 66,51Hz ;movwf Sec12 ; 88,24Uн movlw D'45' ; 2504,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'24' movwf Sec4 movlw D'78' movwf Sec5 movlw D'229' movwf Sec6 movlw D'18' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START100 ;movlw D'2' ; 65,94Hz ;movwf Sec12 ; 87,57Uн movlw D'46' ; 2485,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'26' movwf Sec4 movlw D'79' movwf Sec5 movlw D'229' movwf Sec6 movlw D'20' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START99 ;movlw D'2' ; 65,45Hz ;movwf Sec12 ; 86,90Uн movlw D'48' ; 2466,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'27' movwf Sec4 movlw D'80' movwf Sec5 movlw D'229' movwf Sec6 movlw D'21' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START98 ;movlw D'2' ; 64,96Hz ;movwf Sec12 ; 86,20Uн movlw D'49' ; 2446,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'28' movwf Sec4 movlw D'82' movwf Sec5 movlw D'230' movwf Sec6 movlw D'22' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START97 ;movlw D'2' ; 64,47Hz ;movwf Sec12 ; 85,41Uн movlw D'51' ; 2429,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'30' movwf Sec4 movlw D'83' movwf Sec5 movlw D'229' movwf Sec6 movlw D'24' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START96 ;movlw D'2' ; 64,06Hz ;movwf Sec12 ; 84,62Uн movlw D'52' ; 2403,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'31' movwf Sec4 movlw D'85' movwf Sec5 movlw D'229' movwf Sec6 movlw D'25' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START95 ;movlw D'2' ; 63,47Hz ;movwf Sec12 ; 83,85Uн movlw D'54' ; 2391,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'33' movwf Sec4 movlw D'86' movwf Sec5 movlw D'228' movwf Sec6 movlw D'27' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START94 ;movlw D'2' ; 63,01Hz ;movwf Sec12 ; 83,11Uн movlw D'55' ; 2367,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'34' movwf Sec4 movlw D'88' movwf Sec5 movlw D'229' movwf Sec6 movlw D'28' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START93 ;movlw D'2' ; 62,56Hz ;movwf Sec12 ; 82,46Uн movlw D'56' ; 2351,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'36' movwf Sec4 movlw D'89' movwf Sec5 movlw D'228' movwf Sec6 movlw D'30' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START92 ;movlw D'2' ; 62,00Hz ;movwf Sec12 ; 81,79Uн movlw D'58' ; 2325,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'37' movwf Sec4 movlw D'91' movwf Sec5 movlw D'229' movwf Sec6 movlw D'31' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START91 ;movlw D'2' ; 61,50Hz ;movwf Sec12 ; 81,13Uн movlw D'59' ; 2310,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'39' movwf Sec4 movlw D'92' movwf Sec5 movlw D'229' movwf Sec6 movlw D'33' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START90 ;movlw D'2' ; 61,02Hz ;movwf Sec12 ; 80,46Uн movlw D'61' ; 2284,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'40' movwf Sec4 movlw D'94' movwf Sec5 movlw D'229' movwf Sec6 movlw D'34' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START89 ;movlw D'2' ; 60,54Hz ;movwf Sec12 ; 79,81Uн movlw D'62' ; 2272,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'42' movwf Sec4 movlw D'95' movwf Sec5 movlw D'229' movwf Sec6 movlw D'36' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START88 ;movlw D'2' ; 59,96Hz ;movwf Sec12 ; 79,15Uн movlw D'64' ; 2246,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'43' movwf Sec4 movlw D'97' movwf Sec5 movlw D'229' movwf Sec6 movlw D'37' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START87 ;movlw D'2' ; 59,50Hz ;movwf Sec12 ; 78,48Uн movlw D'66' ; 2228,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'45' movwf Sec4 movlw D'98' movwf Sec5 movlw D'229' movwf Sec6 movlw D'39' movwf Sec7 ;bcf SecMAX,7 lgoto ROTOR START86 ;movlw D'2' ; 59,00Hz ;movwf Sec12 ; 77,82Uн movlw D'67' ; 2209,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'47' movwf Sec4 movlw D'100' movwf Sec5 movlw D'229' movwf Sec6 movlw D'41' movwf Sec7 lgoto ROTOR START85 ;movlw D'2' ; 58,45Hz ;movwf Sec12 ; 77,16Uн movlw D'69' ; 2189,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'48' movwf Sec4 movlw D'101' movwf Sec5 movlw D'230' movwf Sec6 movlw D'42' movwf Sec7 lgoto ROTOR START84 ;movlw D'2' ; 58,01Hz ;movwf Sec12 ; 76,49Uн movlw D'71' ; 2172,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'50' movwf Sec4 movlw D'103' movwf Sec5 movlw D'229' movwf Sec6 movlw D'44' movwf Sec7 lgoto ROTOR START83 ;movlw D'2' ; 57,53Hz ;movwf Sec12 ; 75,84Uн movlw D'72' ; 2151,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'51' movwf Sec4 movlw D'105' movwf Sec5 movlw D'230' movwf Sec6 movlw D'45' movwf Sec7 lgoto ROTOR START82 ;movlw D'2' ; 56,96Hz ;movwf Sec12 ; 75,17Uн movlw D'74' ; 2133,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'53' movwf Sec4 movlw D'107' movwf Sec5 movlw D'230' movwf Sec6 movlw D'47' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START81 ;movlw D'2' ; 56,45Hz ;movwf Sec12 ; 74,51Uн movlw D'76' ; 2114,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'55' movwf Sec4 movlw D'108' movwf Sec5 movlw D'230' movwf Sec6 movlw D'49' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START80 ;movlw D'2' ; 56,04Hz ;movwf Sec12 ; 73,85Uн movlw D'78' ; 2096,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'57' movwf Sec4 movlw D'110' movwf Sec5 movlw D'229' movwf Sec6 movlw D'51' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START79 ;movlw D'2' ; 55,51Hz ;movwf Sec12 ; 73,11Uн movlw D'80' ; 2075,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'59' movwf Sec4 movlw D'112' movwf Sec5 movlw D'229' movwf Sec6 movlw D'53' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START78 ;movlw D'2' ; 54,98Hz ;movwf Sec12 ; 72,52Uн movlw D'81' ; 2052,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'61' movwf Sec4 movlw D'114' movwf Sec5 movlw D'230' movwf Sec6 movlw D'54' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START77 ;movlw D'2' ; 54,50Hz ;movwf Sec12 ; 71,86Uн movlw D'83' ; 2030,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'62' movwf Sec4 movlw D'116' movwf Sec5 movlw D'231' movwf Sec6 movlw D'56' movwf Sec7 lgoto ROTOR START76 ;movlw D'2' ; 54,00Hz ;movwf Sec12 ; 71,20Uн movlw D'85' ; 2011,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'64' movwf Sec4 movlw D'118' movwf Sec5 movlw D'231' movwf Sec6 movlw D'58' movwf Sec7 lgoto ROTOR START75 ;movlw D'2' ; 53,50Hz ;movwf Sec12 ; 70,53Uн movlw D'87' ; 1992,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'66' movwf Sec4 movlw D'120' movwf Sec5 movlw D'231' movwf Sec6 movlw D'60' movwf Sec7 lgoto ROTOR START74 ;movlw D'2' ; 53,01Hz ;movwf Sec12 ; 69,87Uн movlw D'89' ; 1974,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'68' movwf Sec4 movlw D'122' movwf Sec5 movlw D'231' movwf Sec6 movlw D'62' movwf Sec7 lgoto ROTOR START73 ;movlw D'2' ; 52,53Hz ;movwf Sec12 ; 69,21Uн movlw D'91' ; 1954,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'70' movwf Sec4 movlw D'124' movwf Sec5 movlw D'231' movwf Sec6 movlw D'64' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START72 ;movlw D'2' ; 51,98Hz ;movwf Sec12 ; 68,55Uн movlw D'93' ; 1934,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'184' movwf Sec3 movlw D'72' movwf Sec4 movlw D'126' movwf Sec5 movlw D'231' movwf Sec6 movlw D'66' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START71 ;movlw D'2' ; 51,51Hz ;movwf Sec12 ; 67,89Uн movlw D'95' ; 1917,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'75' movwf Sec4 movlw D'128' movwf Sec5 movlw D'231' movwf Sec6 movlw D'68' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START70 ;movlw D'2' ; 50,98Hz ;movwf Sec12 ; 67,22Uн movlw D'98' ; 1900,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'77' movwf Sec4 movlw D'130' movwf Sec5 movlw D'230' movwf Sec6 movlw D'71' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START69 ;movlw D'2' ; 50,50Hz ;movwf Sec12 ; 66,56Uн movlw D'100' ; 1880,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'79' movwf Sec4 movlw D'132' movwf Sec5 movlw D'231' movwf Sec6 movlw D'73' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 ;bsf PortA,3 ;Индикация между 50Гц и 75Гц lgoto ROTOR ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ START68 ;movlw D'2' ; 50,03Hz ;movwf Sec12 ; 65,90Uн movlw D'102' ; 1861,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'81' movwf Sec4 movlw D'135' movwf Sec5 movlw D'231' movwf Sec6 movlw D'75' movwf Sec7 movlw .70 movwf ACCSEL ;Время паузы разгона, чтоб чётко поймать 50Гц. ;bsf SecMAX,7 ;bcf PortA,3 ;bcf PortA,4 ;Индикация частоты 50Гц lgoto ROTOR START67 ;movlw D'2' ; 49,53Hz ;movwf Sec12 ; 65,13Uн movlw D'104' ; 1843,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'84' movwf Sec4 movlw D'137' movwf Sec5 movlw D'230' movwf Sec6 movlw D'78' movwf Sec7 ;bcf SecMAX,7 ;bsf PortA,4 ;Индикация частоты 50Гц нет lgoto ROTOR START66 ;movlw D'2' ; 49,00Hz ;movwf Sec12 ; 64,36Uн movlw D'107' ; 1823,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'183' movwf Sec3 movlw D'86' movwf Sec4 movlw D'140' movwf Sec5 movlw D'230' movwf Sec6 movlw D'80' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START65 ;movlw D'2' ; 48,52Hz ;movwf Sec12 ; 63,59Uн movlw D'110' ; 1805,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'89' movwf Sec4 movlw D'142' movwf Sec5 movlw D'229' movwf Sec6 movlw D'83' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START64 ;movlw D'2' ; 47,99Hz ;movwf Sec12 ; 62,82Uн movlw D'112' ; 1784,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'92' movwf Sec4 movlw D'145' movwf Sec5 movlw D'229' movwf Sec6 movlw D'86' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START63 ;movlw D'2' ; 47,50Hz ;movwf Sec12 ; 62,05Uн movlw D'115' ; 1764,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'94' movwf Sec4 movlw D'148' movwf Sec5 movlw D'229' movwf Sec6 movlw D'88' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START62 ;movlw D'2' ; 46,98Hz ;movwf Sec12 ; 61,28Uн movlw D'118' ; 1748,00Hz movwf Sec1 ;movlw D'71' ;movwf Sec2 movlw D'182' movwf Sec3 movlw D'97' movwf Sec4 movlw D'150' movwf Sec5 movlw D'228' movwf Sec6 movlw D'91' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START61 ;movlw D'2' ; 46,48Hz ;movwf Sec12 ; 60,52Uн movlw D'121' ; 1727,00Hz movwf Sec1 movlw D'71' movwf Sec2 movlw D'181' movwf Sec3 movlw D'100' movwf Sec4 movlw D'153' movwf Sec5 movlw D'228' movwf Sec6 movlw D'94' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START60 ;movlw D'2' ; 45,99Hz ;movwf Sec12 ; 59,74Uн movlw D'124' ; 1708,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'181' movwf Sec3 movlw D'103' movwf Sec4 movlw D'156' movwf Sec5 movlw D'228' movwf Sec6 movlw D'97' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START59 ;movlw D'2' ; 45,47Hz ;movwf Sec12 ; 58,97Uн movlw D'127' ; 1689,00Hz movwf Sec1 ;movlw D'70' ;movwf Sec2 movlw D'181' movwf Sec3 movlw D'106' movwf Sec4 movlw D'159' movwf Sec5 movlw D'227' movwf Sec6 movlw D'100' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START58 movlw D'2' ; 45,00Hz movwf Sec12 ; 58,20Uн movlw D'130' ; 1670,00Hz movwf Sec1 movlw D'70' movwf Sec2 movlw D'180' movwf Sec3 movlw D'109' movwf Sec4 movlw D'162' movwf Sec5 movlw D'227' movwf Sec6 movlw D'103' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START57 movlw D'3' ; 44,47Hz movwf Sec12 ; 57,55Uн movlw D'86' ; 2514,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'73' movwf Sec4 movlw D'107' movwf Sec5 movlw D'148' movwf Sec6 movlw D'69' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START56 ;movlw D'3' ; 43,97Hz ;movwf Sec12 ; 56,91Uн movlw D'88' ; 2482,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'75' movwf Sec4 movlw D'109' movwf Sec5 movlw D'148' movwf Sec6 movlw D'71' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START55 ;movlw D'3' ; 43,51Hz ;movwf Sec12 ; 56,27Uн movlw D'90' ; 2453,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'76' movwf Sec4 movlw D'111' movwf Sec5 movlw D'149' movwf Sec6 movlw D'73' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START54 ;movlw D'3' ; 43,03Hz ;movwf Sec12 ; 55,62Uн movlw D'92' ; 2424,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'78' movwf Sec4 movlw D'113' movwf Sec5 movlw D'149' movwf Sec6 movlw D'75' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START53 ;movlw D'3' ; 42,47Hz ;movwf Sec12 ; 54,97Uн movlw D'94' ; 2395,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'81' movwf Sec4 movlw D'115' movwf Sec5 movlw D'149' movwf Sec6 movlw D'77' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START52 ;movlw D'3' ; 42,01Hz ;movwf Sec12 ; 54,32Uн movlw D'96' ; 2364,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'83' movwf Sec4 movlw D'117' movwf Sec5 movlw D'149' movwf Sec6 movlw D'79' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START51 ;movlw D'3' ; 41,52Hz ;movwf Sec12 ; 53,68Uн movlw D'98' ; 2335,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'85' movwf Sec4 movlw D'120' movwf Sec5 movlw D'149' movwf Sec6 movlw D'81' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START50 ;movlw D'3' ; 41,01Hz ;movwf Sec12 ; 53,03Uн movlw D'101' ; 2308,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'87' movwf Sec4 movlw D'122' movwf Sec5 movlw D'149' movwf Sec6 movlw D'83' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START49 ;movlw D'3' ; 40,47Hz ;movwf Sec12 ; 52,39Uн movlw D'103' ; 2273,00Hz movwf Sec1 movlw D'46' movwf Sec2 movlw D'118' movwf Sec3 movlw D'89' movwf Sec4 movlw D'124' movwf Sec5 movlw D'149' movwf Sec6 movlw D'86' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START48 ;movlw D'3' ; 40,01Hz ;movwf Sec12 ; 51,74Uн movlw D'105' ; 2247,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'92' movwf Sec4 movlw D'127' movwf Sec5 movlw D'149' movwf Sec6 movlw D'88' movwf Sec7 ;movlw .70 ;movwf ACCSEL ;bsf SecMAX,7 lgoto ROTOR START47 ;movlw D'3' ; 39,47Hz ;movwf Sec12 ; 51,05Uн movlw D'108' ; 2215,00Hz movwf Sec1 movlw D'46' movwf Sec2 movlw D'118' movwf Sec3 movlw D'94' movwf Sec4 movlw D'129' movwf Sec5 movlw D'149' movwf Sec6 movlw D'90' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START46 ;movlw D'3' ; 39,00Hz ;movwf Sec12 ; 50,34Uн movlw D'110' ; 2189,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'97' movwf Sec4 movlw D'132' movwf Sec5 movlw D'149' movwf Sec6 movlw D'93' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START45 ;movlw D'3' ; 38,52Hz ;movwf Sec12 ; 49,63Uн movlw D'113' ; 2158,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'99' movwf Sec4 movlw D'134' movwf Sec5 movlw D'149' movwf Sec6 movlw D'96' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START44 movlw D'3' ; 37,98Hz movwf Sec12 ; 48,93Uн movlw D'116' ; 2133,00Hz movwf Sec1 movlw D'45' movwf Sec2 movlw D'118' movwf Sec3 movlw D'102' movwf Sec4 movlw D'137' movwf Sec5 movlw D'149' movwf Sec6 movlw D'98' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START43 movlw D'4' ; 37,50Hz movwf Sec12 ; 48,27Uн movlw D'87' ; 2842,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'87' movwf Sec3 movlw D'77' movwf Sec4 movlw D'102' movwf Sec5 movlw D'109' movwf Sec6 movlw D'74' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START42 ;movlw D'4' ; 37,02Hz ;movwf Sec12 ; 47,66Uн movlw D'89' ; 2805,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'87' movwf Sec3 movlw D'79' movwf Sec4 movlw D'104' movwf Sec5 movlw D'109' movwf Sec6 movlw D'76' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START41 ;movlw D'4' ; 36,51Hz ;movwf Sec12 ; 47,06Uн movlw D'91' ; 2765,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'87' movwf Sec3 movlw D'81' movwf Sec4 movlw D'106' movwf Sec5 movlw D'110' movwf Sec6 movlw D'78' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START40 ;movlw D'4' ; 36,02Hz ;movwf Sec12 ; 46,45Uн movlw D'93' ; 2727,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'87' movwf Sec3 movlw D'83' movwf Sec4 movlw D'109' movwf Sec5 movlw D'110' movwf Sec6 movlw D'80' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START39 ;movlw D'4' ; 35,50Hz ;movwf Sec12 ; 45,87Uн movlw D'95' ; 2674,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'88' movwf Sec3 movlw D'85' movwf Sec4 movlw D'111' movwf Sec5 movlw D'110' movwf Sec6 movlw D'82' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START38 ;movlw D'4' ; 34,97Hz ;movwf Sec12 ; 45,24Uн movlw D'98' ; 2639,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'88' movwf Sec3 movlw D'87' movwf Sec4 movlw D'113' movwf Sec5 movlw D'110' movwf Sec6 movlw D'85' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START37 ;movlw D'4' ; 34,52Hz ;movwf Sec12 ; 44,62Uн movlw D'100' ; 2603,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'87' movwf Sec3 movlw D'90' movwf Sec4 movlw D'116' movwf Sec5 movlw D'110' movwf Sec6 movlw D'87' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START36 ;movlw D'4' ; 34,01Hz ;movwf Sec12 ; 44,02Uн movlw D'102' ; 2556,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'88' movwf Sec3 movlw D'92' movwf Sec4 movlw D'118' movwf Sec5 movlw D'111' movwf Sec6 movlw D'89' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START35 ;movlw D'4' ; 33,52Hz ;movwf Sec12 ; 43,41Uн movlw D'105' ; 2523,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'88' movwf Sec3 movlw D'94' movwf Sec4 movlw D'120' movwf Sec5 movlw D'111' movwf Sec6 movlw D'92' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START34 ;movlw D'4' ; 32,98Hz ;movwf Sec12 ; 42,81Uн movlw D'107' ; 2477,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'88' movwf Sec3 movlw D'97' movwf Sec4 movlw D'123' movwf Sec5 movlw D'111' movwf Sec6 movlw D'94' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START33 ;movlw D'4' ; 32,48Hz ;movwf Sec12 ; 42,20Uн movlw D'110' ; 2445,00Hz movwf Sec1 movlw D'33' movwf Sec2 movlw D'88' movwf Sec3 movlw D'100' movwf Sec4 movlw D'126' movwf Sec5 movlw D'111' movwf Sec6 movlw D'97' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START32 ;movlw D'4' ; 32,00Hz ;movwf Sec12 ; 41,59Uн movlw D'113' ; 2403,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'88' movwf Sec3 movlw D'102' movwf Sec4 movlw D'128' movwf Sec5 movlw D'111' movwf Sec6 movlw D'99' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START31 ;movlw D'4' ; 31,51Hz ;movwf Sec12 ; 40,98Uн movlw D'115' ; 2365,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'88' movwf Sec3 movlw D'105' movwf Sec4 movlw D'131' movwf Sec5 movlw D'112' movwf Sec6 movlw D'102' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START30 ;movlw D'4' ; 31,00Hz ;movwf Sec12 ; 40,38Uн movlw D'118' ; 2330,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'88' movwf Sec3 movlw D'108' movwf Sec4 movlw D'134' movwf Sec5 movlw D'112' movwf Sec6 movlw D'105' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START29 ;movlw D'4' ; 30,51Hz ;movwf Sec12 ; 39,77Uн movlw D'121' ; 2293,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'89' movwf Sec3 movlw D'110' movwf Sec4 movlw D'137' movwf Sec5 movlw D'112' movwf Sec6 movlw D'108' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START28 movlw D'4' ; 29,99Hz movwf Sec12 ; 39,16Uн movlw D'124' ; 2250,00Hz movwf Sec1 movlw D'34' movwf Sec2 movlw D'89' movwf Sec3 movlw D'114' movwf Sec4 movlw D'140' movwf Sec5 movlw D'112' movwf Sec6 movlw D'111' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START27 movlw D'5' ; 29,52Hz movwf Sec12 ; 38,55Uн movlw D'100' ; 2784,00Hz movwf Sec1 movlw D'26' movwf Sec2 movlw D'70' movwf Sec3 movlw D'92' movwf Sec4 movlw D'113' movwf Sec5 movlw D'89' movwf Sec6 movlw D'90' movwf Sec7 lgoto ROTOR START26 ;movlw D'5' ; 29,00Hz ;movwf Sec12 ; 37,95Uн movlw D'103' ; 2738,00Hz movwf Sec1 movlw D'26' movwf Sec2 movlw D'70' movwf Sec3 movlw D'95' movwf Sec4 movlw D'116' movwf Sec5 movlw D'89' movwf Sec6 movlw D'92' movwf Sec7 lgoto ROTOR START25 ;movlw D'5' ; 28,49Hz ;movwf Sec12 ; 37,38Uн movlw D'106' ; 2687,00Hz movwf Sec1 movlw D'26' movwf Sec2 movlw D'71' movwf Sec3 movlw D'97' movwf Sec4 movlw D'118' movwf Sec5 movlw D'89' movwf Sec6 movlw D'95' movwf Sec7 lgoto ROTOR START24 ;movlw D'5' ; 28,03Hz ;movwf Sec12 ; 36,73Uн movlw D'108' ; 2639,00Hz movwf Sec1 movlw D'26' movwf Sec2 movlw D'71' movwf Sec3 movlw D'100' movwf Sec4 movlw D'121' movwf Sec5 movlw D'89' movwf Sec6 movlw D'98' movwf Sec7 lgoto ROTOR START23 ;movlw D'5' ; 27,48Hz ;movwf Sec12 ; 36,13Uн movlw D'111' ; 2595,00Hz movwf Sec1 movlw D'27' movwf Sec2 movlw D'71' movwf Sec3 movlw D'103' movwf Sec4 movlw D'124' movwf Sec5 movlw D'89' movwf Sec6 movlw D'101' movwf Sec7 lgoto ROTOR START22 ;movlw D'5' ; 27,00Hz ;movwf Sec12 ; 35,52Uн movlw D'114' ; 2542,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'71' movwf Sec3 movlw D'106' movwf Sec4 movlw D'127' movwf Sec5 movlw D'89' movwf Sec6 movlw D'104' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START21 ;movlw D'5' ; 26,51Hz ;movwf Sec12 ; 34,91Uн movlw D'117' ; 2494,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'71' movwf Sec3 movlw D'109' movwf Sec4 movlw D'130' movwf Sec5 movlw D'90' movwf Sec6 movlw D'107' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START20 ;movlw D'5' ; 26,01Hz ;movwf Sec12 ; 34,31Uн movlw D'121' ; 2447,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'71' movwf Sec3 movlw D'112' movwf Sec4 movlw D'133' movwf Sec5 movlw D'90' movwf Sec6 movlw D'110' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START19 ;movlw D'5' ; 25,51Hz ;movwf Sec12 ; 33,70Uн movlw D'124' ; 2396,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'71' movwf Sec3 movlw D'116' movwf Sec4 movlw D'137' movwf Sec5 movlw D'90' movwf Sec6 movlw D'113' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START18 ;movlw D'5' ; 24,98Hz ;movwf Sec12 ; 33,09Uн movlw D'128' ; 2347,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'72' movwf Sec3 movlw D'119' movwf Sec4 movlw D'140' movwf Sec5 movlw D'90' movwf Sec6 movlw D'117' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START17 ;movlw D'5' ; 24,50Hz ;movwf Sec12 ; 32,49Uн movlw D'131' ; 2296,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'72' movwf Sec3 movlw D'123' movwf Sec4 movlw D'144' movwf Sec5 movlw D'91' movwf Sec6 movlw D'120' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START16 ;movlw D'5' ; 23,99Hz ;movwf Sec12 ; 31,88Uн movlw D'135' ; 2250,00Hz movwf Sec1 ;movlw D'27' ;movwf Sec2 movlw D'72' movwf Sec3 movlw D'127' movwf Sec4 movlw D'148' movwf Sec5 movlw D'91' movwf Sec6 movlw D'124' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START15 movlw D'5' ; 23,50Hz movwf Sec12 ; 31,27Uн movlw D'139' ; 2200,00Hz movwf Sec1 movlw D'27' movwf Sec2 movlw D'72' movwf Sec3 movlw D'131' movwf Sec4 movlw D'152' movwf Sec5 movlw D'91' movwf Sec6 movlw D'128' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START14 movlw D'6' ; 23,01Hz movwf Sec12 ; 30,66Uн movlw D'118' ; 2606,00Hz movwf Sec1 movlw D'22' movwf Sec2 movlw D'59' movwf Sec3 movlw D'111' movwf Sec4 movlw D'129' movwf Sec5 movlw D'75' movwf Sec6 movlw D'109' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START13 ;movlw D'6' ; 22,48Hz ;movwf Sec12 ; 30,06Uн movlw D'122' ; 2543,00Hz movwf Sec1 ;movlw D'22' ;movwf Sec2 movlw D'60' movwf Sec3 movlw D'115' movwf Sec4 movlw D'132' movwf Sec5 movlw D'75' movwf Sec6 movlw D'112' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START12 ;movlw D'6' ; 22,03Hz ;movwf Sec12 ; 29,45Uн movlw D'125' ; 2480,00Hz movwf Sec1 ;movlw D'22' ;movwf Sec2 movlw D'60' movwf Sec3 movlw D'118' movwf Sec4 movlw D'136' movwf Sec5 movlw D'76' movwf Sec6 movlw D'116' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START11 ;movlw D'6' ; 21,49Hz ;movwf Sec12 ; 28,84Uн movlw D'130' ; 2420,00Hz movwf Sec1 ;movlw D'22' ;movwf Sec2 movlw D'60' movwf Sec3 movlw D'122' movwf Sec4 movlw D'140' movwf Sec5 movlw D'76' movwf Sec6 movlw D'120' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START10 ;movlw D'6' ; 21,01Hz ;movwf Sec12 ; 28,24Uн movlw D'134' ; 2363,00Hz movwf Sec1 ;movlw D'22' ;movwf Sec2 movlw D'60' movwf Sec3 movlw D'126' movwf Sec4 movlw D'145' movwf Sec5 movlw D'76' movwf Sec6 movlw D'124' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START9 movlw D'6' ; 20,50Hz movwf Sec12 ; 27,63Uн movlw D'138' ; 2308,00Hz movwf Sec1 movlw D'22' movwf Sec2 movlw D'60' movwf Sec3 movlw D'131' movwf Sec4 movlw D'149' movwf Sec5 movlw D'76' movwf Sec6 movlw D'129' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& START8 movlw D'7' ; 20,02Hz movwf Sec12 ; 27,02Uн movlw D'121' ; 2647,00Hz movwf Sec1 movlw D'19' movwf Sec2 movlw D'51' movwf Sec3 movlw D'114' movwf Sec4 movlw D'130' movwf Sec5 movlw D'65' movwf Sec6 movlw D'113' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START7 ;movlw D'7' ; 19,51Hz ;movwf Sec12 ; 26,42Uн movlw D'125' ; 2571,00Hz movwf Sec1 ;movlw D'19' ;movwf Sec2 movlw D'51' movwf Sec3 movlw D'119' movwf Sec4 movlw D'134' movwf Sec5 ;movlw D'65' ;movwf Sec6 movlw D'117' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START6 ;movlw D'7' ; 19,01Hz ;movwf Sec12 ; 25,81Uн movlw D'129' ; 2501,00Hz movwf Sec1 ;movlw D'19' ;movwf Sec2 movlw D'52' movwf Sec3 movlw D'123' movwf Sec4 movlw D'139' movwf Sec5 movlw D'65' movwf Sec6 movlw D'121' movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START5 ;movlw D'7' ; 18,51Hz ;movwf Sec12 ; 25,20Uн movlw D'134' ; 2438,00Hz movwf Sec1 ;movlw D'19' ;movwf Sec2 movlw D'52' movwf Sec3 movlw D'127' movwf Sec4 movlw D'143' movwf Sec5 movlw D'66' movwf Sec6 movlw D'126' movwf Sec7 lgoto ROTOR START4 movlw D'7' ; 18,01Hz movwf Sec12 ; 24,60Uн movlw D'139' ; 2365,00Hz movwf Sec1 movlw D'19' movwf Sec2 movlw D'52' movwf Sec3 movlw D'132' movwf Sec4 movlw D'148' movwf Sec5 movlw D'66' movwf Sec6 movlw D'131' movwf Sec7 lgoto ROTOR START3 movlw D'8' ; 17,49Hz movwf Sec12 ; 23,99Uн movlw D'125' ; 2636,00Hz movwf Sec1 movlw D'16' movwf Sec2 movlw D'45' movwf Sec3 movlw D'120' movwf Sec4 movlw D'133' movwf Sec5 movlw D'57' movwf Sec6 movlw D'118' movwf Sec7 lgoto ROTOR START2 ;movlw D'8' ; 17,01Hz ;movwf Sec12 ; 23,38Uн movlw D'129' ; 2561,00Hz movwf Sec1 movlw D'17' movwf Sec2 movlw D'45' movwf Sec3 movlw D'124' movwf Sec4 movlw D'138' movwf Sec5 movlw D'58' movwf Sec6 movlw D'122' movwf Sec7 lgoto ROTOR START1 movlw D'8' ; 16,49Hz movwf Sec12 ; 22,77Uн movlw D'134' ; 2485,00Hz movwf Sec1 movlw D'17' movwf Sec2 movlw D'46' movwf Sec3 movlw D'129' movwf Sec4 movlw D'143' movwf Sec5 movlw D'58' movwf Sec6 movlw D'127' movwf Sec7 lgoto ROTOR end