LIST p=16f874 __CONFIG 03FF9H STATUS EQU 0x03 ADCON1 EQU 0x1F PORTA EQU 0x05 PORTC EQU 0x07 PORTD EQU 0x08 PORTB EQU 0x06 TRISA EQU 0x05 TRISC EQU 0x07 TRISD EQU 0x08 TRISB EQU 0x06 BaitS EQU 0x27 BaitV EQU 0x28 SchetS EQU 0x2A F EQU 1 RP0 EQU 5 RP1 EQU 6 RS EQU 0 W EQU 0 ORG 0 GOTO START SCAN: movlw 0x05 movwf SchetS movlw 0xF7 movwf BaitS OPA1: movf BaitS,W andlw 0x0F addlw 0xF0 movwf PORTD RRF BaitS,1 movf PORTA,W movwf BaitV movlw 0xC0 addwf BaitV,1 movf BaitV,W OPA2: incf BaitV,0 btfss STATUS,2 goto KONEC decf SchetS,F btfss STATUS,2 goto OPA1 goto SCAN KONEC: return START: BSF STATUS,RP0 BCF STATUS,RP1 clrw movwf TRISD movwf TRISB movwf TRISC movlw 0xFF movwf TRISA movlw 0x06 movwf ADCON1 BCF STATUS,RP0 BCF STATUS,RP1 clrw movwf PORTD movwf PORTB CALL SCAN end