казъ

ORG 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