
казъ
.docxORG 0x0000
BCF PCLATH, 3
BCF PCLATH, 4
GOTO START
ORG 0x0004
RETFIE
START
BSF STATUS, RP0
MOVLW 0xF0
MOVWF TRISB
CLRF TRISC
MOVLW 0x07
MOVWF TRISE
BCF STATUS, RP0
tem1
MOVLW 0x01
MOVWF PORTB
BTFSS PORTB, 5
GOTO tem2
P1
MOVLW 0xE8
MOVWF ADCON0
BSF STATUS, RP0
CLRF ADCON1
BCF STATUS, RP0
BSF ADCON0, 0
NOP
NOP
CALL L2
MOVF ADRESH, W
MOVWF PORTC
tem2
MOVLW 0x02
MOVWF PORTB
BTFSS PORTB, 5
GOTO tem3
P2
MOVLW 0xF0
MOVWF ADCON0
BSF STATUS, RP0
CLRF ADCON1
BCF STATUS, RP0
BSF ADCON0, 0
NOP
NOP
CALL L2
MOVF ADRESH, W
MOVWF PORTC
tem3
MOVLW 0x04
MOVWF PORTB
BTFSS PORTB, 5
GOTO tem4
P3
MOVLW 0xF8
MOVWF ADCON0
BSF STATUS, RP0
CLRF ADCON1
BCF STATUS, RP0
BSF ADCON0, 0
NOP
NOP
CALL L2
MOVF ADRESH, W
MOVWF PORTC
GOTO tem4
tem4
MOVLW 0x01
MOVWF PORTB
BTFSS PORTB, 5
GOTO tem5
GOTO tem1
tem5
MOVLW 0x02
MOVWF PORTB
BTFSS PORTB, 5
GOTO tem6
GOTO tem1
tem6
MOVLW 0x04
MOVWF PORTB
BTFSS PORTB, 5
CLRF PORTC
GOTO tem1
L2
BSF ADCON0, 2
L3
BTFSS ADCON0, 2
GOTO L4
GOTO L3
L4
MOVLW 0x1F
ANDWF STATUS, F
RETURN