; ; LIST P=16C54, E=2 ; ; Секция заголовка ; ; описание опеpационных pегистpов TMR0 EQU 01h PC EQU 02h STATUS EQU 03h FSR EQU 04h EEDATA EQU 08h EECON1 EQU 08h EECON2 EQU 09h EEADR EQU 09h PCLATH EQU 0Ah INTCON EQU 0Bh ; pегистpы ввода/вывода PORTA EQU 05h PORTB EQU 06h ; ячейки ОЗУ REGIL EQU 0Ch REGIH EQU 0Dh TAMIL EQU 0Eh TAMIM EQU 0Fh TAMIH EQU 10h MEM36 EQU 2Fh ; биты pегистpа STATUS C EQU 0h DC EQU 1h Z EQU 2h PD EQU 3h TO EQU 4h RP1 EQU 5h RP2 EQU 6h IRP EQU 7h ; БИТЫ ПОРТА А SQWEL EQU .0 TX EQU .1 ZVON EQU .2 FAMI EQU .3 ; слова инициализации для поpтов ввода/вывода INITA EQU B'11001' INITB EQU B'11111111' CHI EQU B'00000001' CLOW EQU B'00111000' TAMH EQU B'00001000' TAMM EQU B'11110010' TAML EQU B'11111010' ; ; Рабочая секция ; ; начало исполняемого кода ORG 1FFh GOTO BEGIN ; ORG 0h BEGIN MOVLW INITA TRIS 5 MOVLW INITB TRIS 6 MOVLW B'00000001' OPTION MOVLW TAMH MOVWF TAMIH MOVLW TAMM MOVWF TAMIM MOVLW TAML MOVWF TAMIL SQWELCH CALL UMI BTFSS PORTA,SQWEL GOTO SQWELCH BSF PORTA,TX CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; RR6LB ; R CALL TCHK CALL PAUZ CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ CALL PAUZ CALL PAUZ ; R CALL TCHK CALL PAUZ CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ CALL PAUZ CALL PAUZ ; 6 CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; L CALL TCHK CALL PAUZ CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; B CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ ; BTFSS PORTA,FAMI GOTO ZACIKL CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ FAMILI ; М CALL TIRE CALL PAUZ CALL TIRE CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; А CALL TCHK CALL PAUZ CALL TIRE CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; Ш CALL TIRE CALL PAUZ CALL TIRE CALL PAUZ CALL TIRE CALL PAUZ CALL TIRE CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; И CALL TCHK CALL PAUZ CALL TCHK CALL PAUZ CALL PAUZ CALL PAUZ CALL PAUZ ; Н CALL TIRE CALL PAUZ CALL TCHK CALL PAUZ ; ZACIKL BCF PORTA,TX CALL UMI GOTO ZACIKL ; ; TIRE CALL TCHK CALL TCHK CALL TCHK RETLW .0 PAUZ MOVLW CLOW MOVWF REGIL MOVLW CHI MOVWF REGIH MOVLW .1 OVAP BTFSS TMR0,7 GOTO OVAP ; SUBWF TAMIL,1 BTFSC STATUS,C GOTO VOZVP SUBWF TAMIM,1 BTFSC STATUS,C GOTO VOZVP SUBWF TAMIH,1 BTFSC STATUS,C GOTO VOZVP GOTO OBP VOZVP OVIP BTFSC TMR0,7 GOTO OVIP ; DECFSZ REGIL,1 GOTO OVAP RETLW .0 TCHK MOVLW CLOW MOVWF REGIL MOVLW CHI MOVWF REGIH MOVLW .1 OVA BTFSS TMR0,7 GOTO OVA BSF PORTA,ZVON OVI BTFSC TMR0,7 GOTO OVI BCF PORTA,ZVON SUBWF TAMIL,1 BTFSC STATUS,C GOTO VOZVT SUBWF TAMIM,1 BTFSC STATUS,C GOTO VOZVT SUBWF TAMIH,1 BTFSC STATUS,C GOTO VOZVT GOTO OBT VOZVT DECFSZ REGIL,1 GOTO OVA RETLW .0 DECI SUBWF TAMIL,1 BTFSC STATUS,C GOTO VOZV SUBWF TAMIM,1 BTFSC STATUS,C GOTO VOZV SUBWF TAMIH,1 BTFSC STATUS,C GOTO VOZV GOTO BEGIN VOZV RETLW .0 UMI OVAT BTFSS TMR0,7 GOTO OVAT MOVLW .1 CALL DECI OVIT BTFSC TMR0,7 GOTO OVIT RETLW .0 OBP MOVLW TAMH MOVWF TAMIH MOVLW TAMM MOVWF TAMIM MOVLW TAML MOVWF TAMIL GOTO VOZVP OBT MOVLW TAMH MOVWF TAMIH MOVLW TAMM MOVWF TAMIM MOVLW TAML MOVWF TAMIL GOTO VOZVT END ;