083F 00393 MOVF IN_BD,W;СОХРАНИТЬ ЗНАЧЕНИЕ IN_BD
00C0 00394 MOVWF BUF_BD
2B1B 00395 GOTO $-0A;ПОВТОРИТЬ ЦИКЛ ВЫЧИСЛЕНИЯ 2-ГО РАЗРЯДА
;--------------------------------------
00398 ORG 0x04;ВЕКТОР ПРЕРЫВАНИЯ
;-----------------------------------------------------
;СОХРАНЕНИЕ АККУМУЛЯТОРА И РЕГИСТРА STATUS
1E83 00401 BTFSS STATUS,RP0;ОПРЕДЕЛЕНИЕ ТЕКУЩЕГО БАНКА
280C 00402 GOTO RP0_CLR
1283 00403 BCF STATUS,RP0;УСТАНОВИТЬ БАНК 0
00B2 00404 MOVWF W_TEMP;СОХРАНИТЬ АККУМУЛЯТОР
0008 0E03 00405 SWAPF STATUS,W
00B3 00406 MOVWF STATUS_TEMP;СОХРАНИТЬ РЕГИСТР STATUS
000A 16B3 00407 BSF STATUS_TEMP,5;ВОССТАНОВИТЬ ЗНАЧЕНИЕ БИТА RP0
000B 280F 00408 GOTO $+45.31 KURS.ASM 8-11-2009 2:45:19 PAGE 10OBJECT CODE LINE SOURCE TEXT
C 00409 RP0_CLR
C 00B2 00410 MOVWF W_TEMP;СОХРАНИТЬ АККУМУЛЯТОР
D 0E03 00411 SWAPF STATUS,W
E 00B3 00412 MOVWF STATUS_TEMP;СОХРАНИТЬ РЕГИСТР STATUS
00413;-----------------------------------------------------------------
;ОПРЕДЕЛЕНИЕ ИСТОЧНИКА ПРЕРЫВАНИЯ
F 00415 INT_SOURCE
000F 188B 00416 BTFSC INTCON,INTF
2887 00417 GOTO INT_INT
190B 00419 BTFSC INTCON,T0IF
2818 00420 GOTO INT_TMR0
180C 00422 BTFSC PIR1,TMR1IF
28E2 00423 GOTO INT_TMR1
1A8C 00425 BTFSC PIR1,RCIF
28CE 00426 GOTO INT_RC
0017 2959 00427 GOTO END_INT;ИНАЧЕ ПЕРЕХОД НА ПОДПРОГРАММУ ВОССТАНОВЛЕНИЯ
;КОНТЕКСТА
;-----------------------------------------------------------------
00430 INT_TMR0;ОБРАБОТЧИК ПРЕРЫВАНИЙ ОТ TMR0
3060 00431 MOVLW CTMR0;ПЕРЕЗАГРУЗКА TMR0
0081 00432 MOVWF TMR0
A 110B 00433 BCF INTCON,T0IF;СБРОС ФЛАГА ПРЕРЫВАНИЯ
;СЧИТЫВАНИЕ ИНФОРМАЦИИ С ЦИФРОВЫХ ДАТЧИКОВ И ЭЛЕМЕНТОВ ПУЛЬТА УПРАВЛЕНИЯ
001B 3004 00435 MOVLW 0x04
C 0234 00436 SUBWF IN_ADR,W
D 1C03 00437 BTFSS STATUS,C
E 2828 00438 GOTO M2
00439;СЧИТЫВАНИЕ ИНФОРМАЦИИ С ДАТЧИКОВ
F 3029 00440 MOVLW 0x29
0020 0734 00441 ADDWF IN_ADR,W
0084 00442 MOVWF FSR
1D05 00443 BTFSS PORTA,2
2826 00444 GOTO $+3
1400 00445 BSF INDF,0
284F 00446 GOTO M3
1000 00447 BCF INDF,0
0027 284F 00448 GOTO M3
;СЧИТЫВАНИЕ ИНФОРМАЦИИ С ТУМБЛЕРОВ УСТАВКИ
0028 00450 M2
300C 00451 MOVLW 0x0C
0234 00452 SUBWF IN_ADR,W
A 1C03 00453 BTFSS STATUS,C
B 2837 00454 GOTO M4
C 0DB5 00456 RLF K_SHIFT,F
D 1D05 00457 BTFSS PORTA,2
E 2831 00458 GOTO $+3
F 1435 00459 BSF K_SHIFT,0
2832 00460 GOTO $+2
1035 00461 BCF K_SHIFT,05.31 KURS.ASM 8-11-2009 2:45:19 PAGE 11OBJECT CODE LINE SOURCE TEXT
1D03 00462 BTFSS STATUS,Z
284F 00463 GOTO M3
0835 00464 MOVF K_SHIFT,W
00A7 00465 MOVWF K
0036 284F 00466 GOTO M3
;СЧИТЫВАНИЕ ИНФОРММАЦИИ С ТУМБЛЕРОВ "ВЫБОР РЕГИСТРА ИНДИКАЦИИ"
;И "ОСТАНОВ"
00469 M4
300D 00470 MOVLW 0x0D
0038 0634 00471 XORWF IN_ADR,W
1D03 00472 BTFSS STATUS,Z
A 2841 00473 GOTO $+7
B 1D05 00474 BTFSS PORTA,2
C 283F 00475 GOTO $+3
D 1436 00476 BSF CONTROL,0
E 284F 00477 GOTO M3
F 1036 00478 BCF CONTROL,0
284F 00479 GOTO M3
300E 00481 MOVLW 0x0E
0634 00482 XORWF IN_ADR,W
1D03 00483 BTFSS STATUS,Z
284B 00484 GOTO M5
1D05 00485 BTFSS PORTA,2
2849 00486 GOTO $+3
14B6 00487 BSF CONTROL,1
284F 00488 GOTO M3
10B6 00489 BCF CONTROL,1
A 284F 00490 GOTO M3
00491;УСТАНОВКА НАЧАЛЬНОГО АДРЕСА
B 00492 M5
B 01B4 00493 CLRF IN_ADR
C 300F 00494 MOVLW 0x0F
D 0586 00495 ANDWF PORTB,F;ОБНУЛИТЬ ЛИНИИ АДРЕСА RB4 - RB7
E 2854 00496 GOTO OUT_IND
;УСТАНОВКА АДРЕСА ВХОДА
F 00498 M3
F 0AB4 00499 INCF IN_ADR,F;ИНКРЕМЕНТИРОВАТЬ РЕГИСТР АДРЕСА
300F 00500 MOVLW 0x0F
0586 00501 ANDWF PORTB,F;ОБНУЛИТЬ ЛИНИИ АДРЕСА RB4 - RB7
0E34 00502 SWAPF IN_ADR,W;ПОМЕСТИТЬ МЛАДШУЮ ТЕТРАДУ IN_ADR В СТАРШУЮ ТЕТРАДУ W
0486 00503 IORWF PORTB,F;ВЫВЕСТИ СТАРШУЮ ТЕТРАДУ W В PORTB
;ВЫВОД НА ИНДИКАЦИЮ
00506 OUT_IND
0BB7 00507 DECFSZ DIV_IND;ДЕКРЕМЕНТИРОВАТЬ ДЕЛИТЕЛЬ
0055 2959 00508 GOTO END_INT
300A 00509 MOVLW D'10'
00B7 00510 MOVWF DIV_IND
3002 00512 MOVLW 0x02
023C 00513 SUBWF OUT_ADR,W
A 1C03 00514 BTFSS STATUS,C5.31 KURS.ASM 8-11-2009 2:45:19 PAGE 12OBJECT CODE LINE SOURCE TEXT
VALUE
B 2864 00515 GOTO M7
;ВЫВОД НА СЕМИСЕГМЕНТНЫЕ ИНДИКАТОРЫ
005C 00517 M6 Перейти на страницу: 1 2 3 4 5 6 7 8 9
Другие статьи по теме:
Диспетчерская централизация на базе комплекса технических средств Неман Диспетчерская централизация (ДЦ) - это комплекс устройств железнодорожной автоматики и телемеханики, состоящий из автоблокировки на перегонах, электрической централизации стрелок ...
Исследование цилиндрического резонатора с коаксиальной апертурой Современная наука и производство немыслимы без точных, экспресс-методов измерения физических параметров материалов и сред. Прецизионные измерения и исследование их характеристик актуаль ...
Использование среды Cadence Virtuoso для проектирования интегральных микросхем Принятая на сегодняшний день модель развития промышленности предполагает широкую роботизацию‚ создание гибких автоматизированных производств и отводит особое место микроэлектронике как с ...