; 3-Фазное ШИМ управление инвертором двигателя (6-IGBT). U/f на 50-75Гц. Векторная ШИМ. ; PIC16F648А Кварц 20 МГц. Автор КДН(DC-AC). Частотный вход задания частоты. ;=============================================================================================== LIST p=16F648A ; Установка типа микроконтроллера. ;#include __CONFIG 26H ; ; ;=============================================================================================== ; Определение положения регистров специального назначения. ;==============================================================================================+ 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 PIE1 equ 8Ch ; Управление периферийными прерываниями PIR1 equ 0Ch ; Флаги прерываний периферии. TMR1L equ 0Eh ; Таймер1, младший байт. TMR1H equ 0Fh ; Таймер1, старший байт. T1CON equ 10h ; Регистр управления таймером1 ;=============================================================================================== ; Определение названия и положения регистров общего назначения. ;=============================================================================================== 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 ; Регистр установки значения минимальной разгонной частоты (используется для установки частоты с частотного входа). 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 ; Исполняющий регистр флагов управления нулевыми векторами. FRSP equ 42h ; Счетчик времени опроса частотного входа. ON3R equ 43h ; Регистр для логики управления частотой ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; Оперативное хранение таблицы переключения ключей (формирования векторов) ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 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 .49,.2,.255,.255,.255,.255,.255,.255 ;Параметры DE .197,.1,.7,.198,.201,.9,.198,.107 ;1Hz,2005Hz,3,5%Uном DE .195,.2,.9,.195,.199,.12,.195,.72 ;1,5Hz,2016Hz,4,5%Uном DE .194,.3,.11,.194,.198,.14,.194,.54 ;2Hz,2016Hz,5%Uном DE .193,.4,.13,.193,.198,.17,.193,.43 ;2,5Hz,2005Hz,6%Uном+ DE .191,.5,.16,.191,.196,.21,.190,.36 ;3Hz,2011Гц,7.1%Uном DE .188,.6,.19,.187,.193,.24,.187,.31 ;3,5Hz,2025Hz,8.2%Uном DE .187,.7,.21,.186,.193,.28,.185,.27 ;4Hz,2015Гц,9.2%Uном DE .185,.8,.24,.184,.192,.31,.183,.24 ;4,5Hz,2015Hz,10.2%Uном DE .180,.9,.26,.179,.187,.33,.178,.22 ;5Hz,2055Гц,11%Uном+ DE .178,.10,.29,.176,.185,.37,.175,.20 ;5,5Hz,2058Hz,12.2%Uном DE .180,.11,.32,.179,.188,.41,.177,.18 ;6Hz,2013Hz,13.2%Uном DE .174,.12,.34,.172,.183,.43,.171,.17 ;6,5Hz,2059Hz,14.3%Uном DE .170,.13,.36,.167,.179,.46,.166,.16 ;7Hz,2093Hz,15.4%Uном DE .167,.14,.39,.165,.176,.49,.163,.15 ;7,5Hz,2102Hz,16.5%Uном+ DE .166,.15,.42,.163,.176,.53,.162,.14 ;8Hz,2092Hz,17.54%Uном DE .154,.15,.41,.152,.164,.52,.150,.14 ;8,5Hz,2227Hz,18.58%Uном DE .155,.16,.45,.152,.166,.56,.151,.13 ;9Hz,2191Hz,19.62%Uном DE .158,.18,.48,.155,.169,.61,.153,.12 ;9,5Hz,2130Hz,20.66%Uном DE .148,.18,.48,.145,.159,.61,.143,.12 ;10Hz,2248Hz,21.7%Uном+ DE .153,.19,.53,.149,.164,.67,.147,.11 ;10,5Hz,2162Hz,22.74%Uном DE .144,.19,.53,.140,.155,.66,.138,.11 ;11Hz,2269Hz,23.78%Uном DE .136,.19,.52,.132,.147,.66,.130,.11 ;11,5Hz,2373Hz,24.82%Uном DE .128,.19,.52,.124,.140,.66,.123,.11 ;12Hz,2478Hz,25.86%Uном DE .134,.21,.58,.130,.147,.73,.128,.10 ;12,5Hz,2348Hz,26.9%Uном+ DE .127,.21,.58,.123,.140,.73,.121,.10 ;13Hz,2446Hz,27.98%Uном DE .121,.21,.58,.116,.133,.73,.114,.10 ;13,5Hz,2542Hz,29.06%Uном DE .129,.24,.64,.123,.143,.81,.121,.9 ;14Hz,2363Hz,30.14%Uном DE .123,.24,.64,.117,.136,.81,.115,.9 ;14,5Hz,2452Hz,31.22%Uном DE .117,.24,.64,.111,.130,.81,.109,.9 ;15Hz,2540Hz,32.3%Uном+ DE .126,.27,.73,.120,.142,.92,.117,.8 ;15,5Hz,2325Hz,33.32%Uном DE .121,.27,.72,.114,.136,.92,.112,.8 ;16Hz,2405Hz,34.34%Uном 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 .23 movwf TrisA movlw .128 ; Запись константы в W movwf TrisB ; Скопировать константу из W в регистр TrisB.(Конфигурация выводов) ;bcf Option,0 ;bcf Option,1 ;bcf OptionR,3 movlw .248 movwf OptionR ; Предделитель перед WDT, 1:1 clrf EEAdr ; Очистка адреса EEPROM movlw .1 movwf PIE1 ; Прерывание от Таймера1 включено bcf Status,5 ; Перейти в 0-й банк (установить в 0 5-й бит ; регистра Status). clrf Intcon ; Нет прерываний. clrf TMR0 ; Сброс таймера clrf T1CON ;----------------------------------------------------------------------------------------------- ; Начало ;----------------------------------------------------------------------------------------------- ;clrf PortB ;call NONRUN ;clrf PortA ;clrf Sec10 clrf Sec100 clrf ACCSEL2 clrf SecMAX clrf AUTRUN clrf Sec000 clrf REVERS clrf STOP clrf Sec0Z clrf Sc0ZS movlw .5 ; Начальное время опроса таймера задания. movwf FRSP ;clrf ON2 ;clrf ON3 movlw .1 movwf Sec11 movwf ON3 clrf ACCSEL movlw .0 movwf SecM ;movlw .50 ;movwf ON3 ; Разгон до 50Гц ;goto NONRUN call NONRUN ;btfss PortA,2 ; Команда входа в меню частот разгона ;goto MIN btfss PortA,1 goto F02 goto RUNN ;************************************************************************************* ; Ядро программы ШИМ *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 nop 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 nop 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 ;Авторазгон до фиксированной частоты nop nop btfsc STOP,7 ;Выход из вращения, стоп. goto Stop ;nop ;nop 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 ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ; Время задержки между переключениями силовых ключей (3mks) ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 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 movwf ON3 movlw .5 movwf FRSP ; Начальное время опроса таймера задания. clrf SecMAX call NONRUN ;clrf PortA ;movlw .24 ;movwf PortA ; бит прерывания и флаг счёта частот вниз. ;call NONRUN ;movlw .16 ;movwf PortA ;оставляем флаг счёта частот вниз, для сброса показаний. call NONRUN ;=================================================================================== ; Проверка DC звена, разрешения ограничения поля (разгон >50Гц) и ожидание пуска ;=================================================================================== clrf PortA ;Снятие флага счёта частот, готовность. call NONRUN 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 RUNN btfsc PortA,1 goto RUNN ;RUNNN btfss PortA,1 ;goto RUNNN ;btfss PortA,1 ;goto RUNNN ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; Подготовка драйверов силовых ключей ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! movlw .42 movwf PortB ;Включаем всю нижнюю (эмиттерную) группу - заряд верхних драйверов. call NONRUN call NONRUN ;call NONRUN movlw .150 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 clrf ON2 ;movfw Sec1 ;movwf ON2 ;Установить параметр частоты авторазгона. movfw Sec2 movwf ACCSELS ;Установить параметр ускорения и торможения call Delay ;Смена констант частот clrf TMR0 ;Сброс таймера задатчика clrf TMR1L ;Сброс таймера прерываний clrf TMR1H clrf PIE1 ;Сброс флага movlw .192 movwf Intcon ;Разрешить прерывания от Таймера1 bsf T1CON,0 ;Включить таймер1 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 SSD15 ;#################################################################################### ; Загрузка таблицы переключения для обратного вращения ;#################################################################################### 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 SSD15 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;=================================================================================== ; Изменение частот вращения+ ;=================================================================================== 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 ;Выключения привода. 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 ;Прервать авторазгон при нажатии в разгоне. decf ON2,F ;Отслеживание заданной скорости ;__________+++++++улучшение перехода между множителями ШИМ+++++++______________ 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.47mks ;############################################################################ 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 clrf 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 ; goto RUNN ;)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ; Установки разгонной частоты и времени разгона-торможения ;)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) MIN call NONRUN btfss PortA,2 goto MIN btfss PortA,2 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 Stop ;Выход в готовность ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 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 ;Сохранение аккумулятора decfsz FRSP,1 ; Счётчик времени счёта (опроса) таймера задания goto XXZC btfsc Intcon,2 goto F02 movfw TMR0 movwf ON3 incf ON3 clrf TMR0 movlw .5 ; Время опроса таймера (число пропущенных главных прерываний по 13,1072мс)) movwf FRSP XXZC decfsz ACCSEL,1 goto ZZF movfw ACCSELS ;Загрузка параметра ускорения movwf ACCSEL ;Время разгона (между переключениями ступеней) btfsc PortA,1 clrf ON3 movfw ON3 movwf ON3R ; Значение задания movfw ON2 ; Запись значения байта реальной частоты bsf Status,0 ; Сброс флагов bcf Status,2 subwf ON3R,1 ; Вычитаем из задания байт реального значения btfsc Status,2 ; Проверка на ноль goto ZZF ; Оставить без изменения. btfss Status,0 ; Проверка заёма goto ZZFFn ; Уменьшить частоту movlw .2 bsf Status,0 ; Сброс флага subwf ON3R,0 btfsc Status,0 goto ZZFF ; Увеличить частоту goto ZZF ;Нет далее разгона ZZFF btfss SecMAX,7 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 TMR1L ;Выход из прерывания clrf TMR1H movfw AAW clrf PIR1 ;Сброс флага прерывания. 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 nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop 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 .2 ;75 2880 movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .83 movwf Sec2 movlw .199 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .32 movwf Sec5 movlw .251 movwf Sec6 ;movlw .1 ;movwf Sec7 bsf SecMAX,7 ;bsf PortA,4 ;Индикация частоты 75Гц lgoto ROTOR START117 movlw .2 ;74.5 2860 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .84 movwf Sec2 movlw .200 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .33 movwf Sec5 movlw .253 movwf Sec6 ;movlw .1 ;movwf Sec7 bcf SecMAX,7 ;bcf PortA,4 ;Индикация частоты 75Гц lgoto ROTOR START116 movlw .2 ;74 2840 movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .85 movwf Sec2 movlw .202 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .33 movwf Sec5 movlw .254 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START115 movlw .3 ;73.5 4379 129%^ movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .54 movwf Sec2 movlw .130 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .20 movwf Sec5 movlw .164 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START114 movlw .3 ;73 4351 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .55 movwf Sec2 movlw .130 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .21 movwf Sec5 movlw .165 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START113 movlw .3 ;72.5 4311 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .55 movwf Sec2 movlw .132 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .21 movwf Sec5 movlw .166 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START112 movlw .3 ;72 4285 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .56 movwf Sec2 movlw .132 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .167 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START111 movlw .3 ;71.5 4251 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .56 movwf Sec2 movlw .133 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .169 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START110 movlw .3 ;71 4215 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .56 movwf Sec2 movlw .135 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .170 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START109 movlw .3 ;70.5 4185 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .57 movwf Sec2 movlw .136 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .171 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START108 movlw .3 ;70 4150 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .57 movwf Sec2 movlw .137 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .173 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START107 movlw .3 ;69.5 4125 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .58 movwf Sec2 movlw .138 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .22 movwf Sec5 movlw .174 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START106 movlw .3 ;69 4080 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .58 movwf Sec2 movlw .139 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .23 movwf Sec5 movlw .176 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START105 movlw .3 ;68,5 4045 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .59 movwf Sec2 movlw .140 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .23 movwf Sec5 movlw .177 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START104 movlw .3 ;68 4015 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .59 movwf Sec2 movlw .141 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .23 movwf Sec5 movlw .179 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START103 movlw .3 ;67,5 3988 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .60 movwf Sec2 movlw .142 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .23 movwf Sec5 movlw .180 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START102 movlw .3 ;67 3955 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .60 movwf Sec2 movlw .144 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .24 movwf Sec5 movlw .181 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START101 movlw .3 ;66,5 3930 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .61 movwf Sec2 movlw .145 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .24 movwf Sec5 movlw .182 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START100 movlw .3 ;66 3885 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .61 movwf Sec2 movlw .146 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .24 movwf Sec5 movlw .185 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START99 movlw .3 ;65,5 3855 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .62 movwf Sec2 movlw .147 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .24 movwf Sec5 movlw .186 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START98 movlw .3 ;65 3825 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .62 movwf Sec2 movlw .149 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .24 movwf Sec5 movlw .188 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START97 movlw .3 ;64,5 3788 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .63 movwf Sec2 movlw .150 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .25 movwf Sec5 movlw .189 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START96 movlw .3 ;64 3764 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .64 movwf Sec2 movlw .151 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .25 movwf Sec5 movlw .191 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START95 movlw .3 ;63,5 3728 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .64 movwf Sec2 movlw .153 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .25 movwf Sec5 movlw .192 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START94 movlw .3 ;63 3695 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .65 movwf Sec2 movlw .154 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .25 movwf Sec5 movlw .194 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START93 movlw .3 ;62,5 3660 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .65 movwf Sec2 movlw .155 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .26 movwf Sec5 movlw .196 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START92 movlw .3 ;62 3635 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .66 movwf Sec2 movlw .157 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .26 movwf Sec5 movlw .197 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START91 movlw .3 ;61,5 3600 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .67 movwf Sec2 movlw .158 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .26 movwf Sec5 movlw .199 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START90 movlw .3 ;61 3568 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .67 movwf Sec2 movlw .160 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .26 movwf Sec5 movlw .201 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START89 movlw .3 ;60,5 3546 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .68 movwf Sec2 movlw .161 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .27 movwf Sec5 movlw .203 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START88 movlw .3 ;60 3502 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .68 movwf Sec2 movlw .163 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .27 movwf Sec5 movlw .205 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START87 movlw .3 ;59,5 3472 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .69 movwf Sec2 movlw .164 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .27 movwf Sec5 movlw .207 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START86 movlw .3 ;59 3442 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .70 movwf Sec2 movlw .165 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .27 movwf Sec5 movlw .209 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START85 movlw .3 ;58,5 3405 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .70 movwf Sec2 movlw .167 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .28 movwf Sec5 movlw .211 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START84 movlw .3 ;58 3381 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .71 movwf Sec2 movlw .168 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .28 movwf Sec5 movlw .213 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START83 movlw .3 ;57,5 3345 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .72 movwf Sec2 movlw .170 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .28 movwf Sec5 movlw .215 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START82 movlw .3 ;57 3315 ;movwf Sec12 ; movlw .1 ;movwf Sec1 movlw .72 movwf Sec2 movlw .172 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .29 movwf Sec5 movlw .217 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START81 movlw .3 ;56,5 3284 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .73 movwf Sec2 movlw .174 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .29 movwf Sec5 movlw .219 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START80 movlw .3 ;56 3250 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .74 movwf Sec2 movlw .175 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .29 movwf Sec5 movlw .221 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START79 movlw .3 ;55,5 3225 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .75 movwf Sec2 movlw .177 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .29 movwf Sec5 movlw .223 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START78 movlw .3 ;55 3188 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .75 movwf Sec2 movlw .179 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .30 movwf Sec5 movlw .226 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START77 movlw .3 ;54,5 3158 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .76 movwf Sec2 movlw .181 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .30 movwf Sec5 movlw .228 movwf Sec6 ;movlw .1 ;movwf Sec7 lgoto ROTOR START76 movlw .3 ;54 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .77 movwf Sec2 movlw .183 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .30 movwf Sec5 movlw .230 movwf Sec6 ;movlw .1 ;movwf Sec7 lgoto ROTOR START75 movlw .3 ;53,5 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .78 movwf Sec2 movlw .184 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .31 movwf Sec5 movlw .232 movwf Sec6 ;movlw .1 ;movwf Sec7 lgoto ROTOR START74 movlw .3 ;53 3068 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .79 movwf Sec2 movlw .186 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .31 movwf Sec5 movlw .234 movwf Sec6 ;movlw .1 ;movwf Sec7 lgoto ROTOR START73 movlw .3 ;52,5 3031 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .79 movwf Sec2 movlw .188 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .32 movwf Sec5 movlw .237 movwf Sec6 ;movlw .1 ;movwf Sec7 lgoto ROTOR START72 movlw .3 ;52 3000 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .80 movwf Sec2 movlw .190 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .32 movwf Sec5 movlw .240 movwf Sec6 ;movlw .1 ; movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START71 movlw .3 ;51,5 2965 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .81 movwf Sec2 movlw .192 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .32 movwf Sec5 movlw .243 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START70 movlw .3 ;51 2940 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .82 movwf Sec2 movlw .194 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .33 movwf Sec5 movlw .245 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START69 movlw .3 ;50,5 128^ 2907 и Sec1, Sec4, Sec7 везде равны 1. ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .83 movwf Sec2 movlw .196 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .33 movwf Sec5 movlw .248 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 ;bsf PortA,3 ;Индикация между 50Гц и 75Гц clrf PortA lgoto ROTOR ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ START68 movlw .3 ;50 128 2884 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .84 movwf Sec2 movlw .198 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .33 movwf Sec5 movlw .250 movwf Sec6 ;movlw .1 ;movwf Sec7 ;movlw .37 ;movwf ACCSEL ;Время паузы разгона, чтоб чётко поймать 50Гц. ;bsf SecMAX,7 bsf PortA,3 ;bcf PortA,4 ;Индикация частоты 50Гц lgoto ROTOR START67 movlw .3 ;49.5 124.4 2802 ;movwf Sec12 ;movlw .1 ;movwf Sec1 movlw .86 movwf Sec2 movlw .199 movwf Sec3 ;movlw .1 ;movwf Sec4 movlw .37 movwf Sec5 movlw .250 movwf Sec6 ;movlw .1 ;movwf Sec7 ;bsf SecMAX,7 ;bsf PortA,4 ;Индикация частоты 50Гц нет clrf PortA lgoto ROTOR START66 movlw .3 ;49 120.9 2802 ;movwf Sec12 movlw .1 movwf Sec1 movlw .87 movwf Sec2 movlw .201 movwf Sec3 movlw .1 movwf Sec4 movlw .40 movwf Sec5 movlw .251 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START65 movlw .3 ;48.5 117.2 2768 ;movwf Sec12 movlw .4 movwf Sec1 movlw .86 movwf Sec2 movlw .201 movwf Sec3 movlw .1 movwf Sec4 movlw .44 movwf Sec5 movlw .251 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START64 movlw .3 ;48 113.6 2744 ;movwf Sec12 movlw .9 movwf Sec1 movlw .84 movwf Sec2 movlw .201 movwf Sec3 movlw .1 movwf Sec4 movlw .48 movwf Sec5 movlw .250 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START63 movlw .3 ;47.5 110 2709 ;movwf Sec12 movlw .13 movwf Sec1 movlw .82 movwf Sec2 movlw .202 movwf Sec3 movlw .1 movwf Sec4 movlw .52 movwf Sec5 movlw .250 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START62 movlw .3 ;47 107.8 2677 ;movwf Sec12 movlw .16 movwf Sec1 movlw .81 movwf Sec2 movlw .204 movwf Sec3 movlw .1 movwf Sec4 movlw .54 movwf Sec5 movlw .251 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START61 movlw .3 ;46.5 105.6 2650 ;movwf Sec12 movlw .19 movwf Sec1 movlw .81 movwf Sec2 movlw .205 movwf Sec3 movlw .1 movwf Sec4 movlw .57 movwf Sec5 movlw .251 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START60 movlw .3 ;46 103.4 2615 ;movwf Sec12 movlw .23 movwf Sec1 movlw .80 movwf Sec2 movlw .205 movwf Sec3 movlw .1 movwf Sec4 movlw .60 movwf Sec5 movlw .252 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START59 movlw .3 ;45.5 101.2 2580 ;movwf Sec12 movlw .25 movwf Sec1 movlw .79 movwf Sec2 movlw .203 movwf Sec3 movlw .4 movwf Sec4 movlw .63 movwf Sec5 movlw .254 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START58 movlw .3 ;45 99 2546 ;movwf Sec12 movlw .28 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .7 movwf Sec4 movlw .66 movwf Sec5 movlw .253 movwf Sec6 movlw .1 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START57 movlw .3 ;44.5 97.9 2518 ;movwf Sec12 movlw .30 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .9 movwf Sec4 movlw .68 movwf Sec5 movlw .253 movwf Sec6 movlw .2 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START56 movlw .3 ;44 96,82 2490 ;movwf Sec12 movlw .32 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .11 movwf Sec4 movlw .70 movwf Sec5 movlw .253 movwf Sec6 movlw .4 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START55 movlw .3 ;43,5 95,69 2461 ;movwf Sec12 movlw .34 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .13 movwf Sec4 movlw .72 movwf Sec5 movlw .253 movwf Sec6 movlw .6 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START54 movlw .3 ;43 94,6 2430 ;movwf Sec12 movlw .36 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .15 movwf Sec4 movlw .74 movwf Sec5 movlw .254 movwf Sec6 movlw .8 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START53 movlw .3 ;42,5 93,5 2396 ;movwf Sec12 movlw .38 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .17 movwf Sec4 movlw .76 movwf Sec5 movlw .254 movwf Sec6 movlw .10 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START52 movlw .3 ;42 92,3 2364 ;movwf Sec12 movlw .40 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .19 movwf Sec4 movlw .78 movwf Sec5 movlw .255 movwf Sec6 movlw .12 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START51 movlw .3 ;41,5 91,12 2334 ;movwf Sec12 movlw .42 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .21 movwf Sec4 movlw .80 movwf Sec5 movlw .255 movwf Sec6 movlw .15 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START50 movlw .3 ;41 89,9 2312 ;movwf Sec12 movlw .45 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .24 movwf Sec4 movlw .82 movwf Sec5 movlw .253 movwf Sec6 movlw .17 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START49 movlw .3 ;40,5 88,7 2281 ;movwf Sec12 movlw .47 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .26 movwf Sec4 movlw .85 movwf Sec5 movlw .254 movwf Sec6 movlw .19 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START48 movlw .3 ;40 87,5 2251 ;movwf Sec12 movlw .50 movwf Sec1 movlw .78 movwf Sec2 movlw .202 movwf Sec3 movlw .29 movwf Sec4 movlw .87 movwf Sec5 movlw .253 movwf Sec6 movlw .22 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START47 movlw .3 ;39,5 86,42 2222 ;movwf Sec12 movlw .52 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .31 movwf Sec4 movlw .90 movwf Sec5 movlw .253 movwf Sec6 movlw .24 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START46 movlw .3 ;39 85,33 2187 ;movwf Sec12 movlw .55 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .33 movwf Sec4 movlw .92 movwf Sec5 movlw .254 movwf Sec6 movlw .27 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START45 movlw .3 ;38,5 84,26 2167 ;movwf Sec12 movlw .57 movwf Sec1 movlw .79 movwf Sec2 movlw .202 movwf Sec3 movlw .36 movwf Sec4 movlw .95 movwf Sec5 movlw .253 movwf Sec6 movlw .29 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START44 movlw .3 ;38 83,18 2130 movwf Sec12 movlw .59 movwf Sec1 movlw .79 movwf Sec2 movlw .203 movwf Sec3 movlw .38 movwf Sec4 movlw .97 movwf Sec5 movlw .255 movwf Sec6 movlw .32 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START43 movlw .4 ;37,5 80,8 2840 movwf Sec12 movlw .46 ; movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .31 movwf Sec4 movlw .75 movwf Sec5 movlw .185 movwf Sec6 movlw .27 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START42 movlw .4 ;37 79,62 2805 movwf Sec12 movlw .48 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .34 movwf Sec4 movlw .77 movwf Sec5 movlw .184 movwf Sec6 movlw .29 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START41 movlw .4 ;36,5 78,54 2767 movwf Sec12 movlw .50 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .36 movwf Sec4 movlw .79 movwf Sec5 movlw .184 movwf Sec6 movlw .31 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START40 movlw .4 ;36 77,46 2727 movwf Sec12 movlw .53 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .38 movwf Sec4 movlw .81 movwf Sec5 movlw .184 movwf Sec6 movlw .33 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START39 movlw .4 ;35,5 76,38 2686 movwf Sec12 movlw .55 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .40 movwf Sec4 movlw .83 movwf Sec5 movlw .185 movwf Sec6 movlw .35 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START38 movlw .4 ;35 75,3 2636 movwf Sec12 movlw .57 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .42 movwf Sec4 movlw .86 movwf Sec5 movlw .186 movwf Sec6 movlw .37 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START37 movlw .4 ;34,5 74,14 2606 movwf Sec12 movlw .59 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .45 movwf Sec4 movlw .88 movwf Sec5 movlw .185 movwf Sec6 movlw .40 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START36 movlw .4 ;34 72,98 2556 movwf Sec12 movlw .62 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .47 movwf Sec4 movlw .91 movwf Sec5 movlw .185 movwf Sec6 movlw .42 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START35 movlw .4 ;33,5 71,82 2530 movwf Sec12 movlw .65 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .50 movwf Sec4 movlw .93 movwf Sec5 movlw .184 movwf Sec6 movlw .45 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START34 movlw .4 ;33 70,66 2486 movwf Sec12 movlw .67 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .52 movwf Sec4 movlw .95 movwf Sec5 movlw .185 movwf Sec6 movlw .48 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START33 movlw .4 ;32,5 69,5 2445 movwf Sec12 movlw .70 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .55 movwf Sec4 movlw .98 movwf Sec5 movlw .185 movwf Sec6 movlw .50 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START32 movlw .4 ;32 68.46 2411 movwf Sec12 movlw .73 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .58 movwf Sec4 movlw .101 movwf Sec5 movlw .184 movwf Sec6 movlw .53 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START31 movlw .4 ;31,5 67.42 2368 movwf Sec12 movlw .75 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .61 movwf Sec4 movlw .104 movwf Sec5 movlw .185 movwf Sec6 movlw .56 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START30 movlw .4 ;31 66,38 2325 movwf Sec12 movlw .78 movwf Sec1 movlw .57 movwf Sec2 movlw .147 movwf Sec3 movlw .64 movwf Sec4 movlw .107 movwf Sec5 movlw .185 movwf Sec6 movlw .59 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START29 movlw .4 ;30,5 65,35 2287 movwf Sec12 movlw .81 movwf Sec1 movlw .57 movwf Sec2 movlw .148 movwf Sec3 movlw .66 movwf Sec4 movlw .110 movwf Sec5 movlw .186 movwf Sec6 movlw .62 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START28 movlw .4 ;30 64,3 2243 movwf Sec12 movlw .84 movwf Sec1 movlw .57 movwf Sec2 movlw .148 movwf Sec3 movlw .69 movwf Sec4 movlw .113 movwf Sec5 movlw .186 movwf Sec6 movlw .65 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START27 movlw .5 ;29,5 63,34 2794 movwf Sec12 movlw .68 movwf Sec1 movlw .45 movwf Sec2 movlw .117 movwf Sec3 movlw .57 movwf Sec4 movlw .91 movwf Sec5 movlw .147 movwf Sec6 movlw .53 movwf Sec7 lgoto ROTOR START26 movlw .5 ;29 62,38 2738 movwf Sec12 movlw .71 movwf Sec1 movlw .45 movwf Sec2 movlw .117 movwf Sec3 movlw .59 movwf Sec4 movlw .94 movwf Sec5 movlw .147 movwf Sec6 movlw .56 movwf Sec7 lgoto ROTOR START25 movlw .5 ;28,5 61,42 2688 movwf Sec12 movlw .73 movwf Sec1 movlw .45 movwf Sec2 movlw .117 movwf Sec3 movlw .62 movwf Sec4 movlw .97 movwf Sec5 movlw .148 movwf Sec6 movlw .58 movwf Sec7 lgoto ROTOR START24 movlw .5 ;28 60,46 2643 movwf Sec12 movlw .76 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .65 movwf Sec4 movlw .99 movwf Sec5 movlw .148 movwf Sec6 movlw .61 movwf Sec7 lgoto ROTOR START23 movlw .5 ;27,5 59,5 2586 movwf Sec12 movlw .79 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .67 movwf Sec4 movlw .102 movwf Sec5 movlw .149 movwf Sec6 movlw .64 movwf Sec7 lgoto ROTOR START22 movlw .5 ;27 58,36 2540 movwf Sec12 movlw .82 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .70 movwf Sec4 movlw .105 movwf Sec5 movlw .149 movwf Sec6 movlw .67 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START21 movlw .5 ;26,5 57,22 2494 movwf Sec12 movlw .85 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .74 movwf Sec4 movlw .108 movwf Sec5 movlw .149 movwf Sec6 movlw .70 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START20 movlw .5 ;26 56,08 2444 movwf Sec12 movlw .89 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .77 movwf Sec4 movlw .112 movwf Sec5 movlw .148 movwf Sec6 movlw .73 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START19 movlw .5 ;25,5 54,94 2396 movwf Sec12 movlw .92 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .81 movwf Sec4 movlw .115 movwf Sec5 movlw .148 movwf Sec6 movlw .77 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START18 movlw .5 ;25 53,8 2345 movwf Sec12 movlw .96 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .84 movwf Sec4 movlw .119 movwf Sec5 movlw .149 movwf Sec6 movlw .80 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START17 movlw .5 ;24,5 52,64 2296 movwf Sec12 movlw .100 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .88 movwf Sec4 movlw .123 movwf Sec5 movlw .148 movwf Sec6 movlw .84 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START16 movlw .5 ;24 51,48 2251 movwf Sec12 movlw .104 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .92 movwf Sec4 movlw .127 movwf Sec5 movlw .148 movwf Sec6 movlw .88 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START15 movlw .5 ;23,5 50,32 2200 movwf Sec12 movlw .108 movwf Sec1 movlw .45 movwf Sec2 movlw .118 movwf Sec3 movlw .96 movwf Sec4 movlw .131 movwf Sec5 movlw .148 movwf Sec6 movlw .92 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START14 movlw .6 ;23 49,16 2606 movwf Sec12 movlw .92 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .83 movwf Sec4 movlw .111 movwf Sec5 movlw .122 movwf Sec6 movlw .79 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START13 movlw .6 ;22,5 48 2545 movwf Sec12 movlw .96 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .86 movwf Sec4 movlw .115 movwf Sec5 movlw .122 movwf Sec6 movlw .83 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START12 movlw .6 ;22 46,96 2484 movwf Sec12 movlw .100 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .90 movwf Sec4 movlw .119 movwf Sec5 movlw .122 movwf Sec6 movlw .87 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START11 movlw .6 ;21,5 45,92 2424 movwf Sec12 movlw .104 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .94 movwf Sec4 movlw .123 movwf Sec5 movlw .122 movwf Sec6 movlw .91 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START10 movlw .6 ;21 44,88 2364 movwf Sec12 movlw .108 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .99 movwf Sec4 movlw .127 movwf Sec5 movlw .122 movwf Sec6 movlw .95 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START9 movlw .6 ;20,5 43,84 2308 movwf Sec12 movlw .112 movwf Sec1 movlw .37 movwf Sec2 movlw .97 movwf Sec3 movlw .103 movwf Sec4 movlw .131 movwf Sec5 movlw .123 movwf Sec6 movlw .100 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& START8 movlw .7 ;20Hz,42,8%,2643+ movwf Sec12 movlw .99 movwf Sec1 movlw .31 movwf Sec2 movlw .83 movwf Sec3 movlw .91 movwf Sec4 movlw .115 movwf Sec5 movlw .104 movwf Sec6 movlw .88 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START7 movlw .7 ;19,5Hz,41,72%,2571 movwf Sec12 movlw .103 movwf Sec1 movlw .31 movwf Sec2 movlw .83 movwf Sec3 movlw .95 movwf Sec4 movlw .120 movwf Sec5 movlw .104 movwf Sec6 movlw .92 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START6 movlw .7 ;19Hz,40,64%,2501 movwf Sec12 movlw .107 movwf Sec1 movlw .31 movwf Sec2 movlw .83 movwf Sec3 movlw .100 movwf Sec4 movlw .124 movwf Sec5 movlw .104 movwf Sec6 movlw .97 movwf Sec7 ;bsf SecMAX,7 lgoto ROTOR START5 movlw .7 ;18,5Hz,39,56%,2434 movwf Sec12 movlw .112 movwf Sec1 movlw .31 movwf Sec2 movlw .83 movwf Sec3 movlw .104 movwf Sec4 movlw .129 movwf Sec5 movlw .104 movwf Sec6 movlw .102 movwf Sec7 lgoto ROTOR START4 movlw .7 ;18Hz,38,48%,2364 movwf Sec12 movlw .117 movwf Sec1 movlw .31 movwf Sec2 movlw .83 movwf Sec3 movlw .109 movwf Sec4 movlw .134 movwf Sec5 movlw .105 movwf Sec6 movlw .106 movwf Sec7 lgoto ROTOR START3 movlw .8 ;17,5Hz,34,7%,2642+ movwf Sec12 movlw .105 movwf Sec1 movlw .27 movwf Sec2 movlw .72 movwf Sec3 movlw .99 movwf Sec4 movlw .121 movwf Sec5 movlw .91 movwf Sec6 movlw .97 movwf Sec7 lgoto ROTOR START2 movlw .8 ;17Hz,36,38%,2559 movwf Sec12 movlw .110 movwf Sec1 movlw .27 movwf Sec2 movlw .72 movwf Sec3 movlw .104 movwf Sec4 movlw .125 movwf Sec5 movlw .91 movwf Sec6 movlw .102 movwf Sec7 lgoto ROTOR START1 movlw .8 ;16,5Hz,35,36%,2480 movwf Sec12 movlw .115 movwf Sec1 movlw .27 movwf Sec2 movlw .72 movwf Sec3 movlw .109 movwf Sec4 movlw .131 movwf Sec5 movlw .91 movwf Sec6 movlw .107 movwf Sec7 lgoto ROTOR end