На сортировку / 130217 / local / Пск / Sayan 3 lab
.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
KEY1
MOVLW 0x01
MOVWF PORTB
BTFSS PORTB, 6
GOTO KEY2
MET1
MOVLW 0xE8
MOVWF ADCON0
BSF STATUS, RP0
CLRF ADCON1
BCF STATUS, RP0
BSF ADCON0, 0
NOP
NOP
CALL L2
MOVF ADRESH, W
MOVWF PORTC
KEY2
MOVLW 0x02
MOVWF PORTB
BTFSS PORTB, 6
GOTO KEY3
MET2
MOVLW 0xF0
MOVWF ADCON0
BSF STATUS, RP0
CLRF ADCON1
BCF STATUS, RP0
BSF ADCON0, 0
NOP
NOP
CALL L2
MOVF ADRESH, W
MOVWF PORTC
KEY3
MOVLW 0x04
MOVWF PORTB
BTFSS PORTB, 6
GOTO KEY4
MET3
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 KEY4
KEY4
MOVLW 0x01
MOVWF PORTB
BTFSS PORTB, 6
GOTO KEY5
GOTO KEY1
KEY5
MOVLW 0x02
MOVWF PORTB
BTFSS PORTB, 6
GOTO KEY6
GOTO KEY1
KEY6
MOVLW 0x04
MOVWF PORTB
BTFSS PORTB, 6
CLRF PORTC
GOTO KEY1
L2
BSF ADCON0, 2
L3
BTFSS ADCON0, 2
GOTO L4
GOTO L3
L4
MOVLW 0x1F
ANDWF STATUS, F
RETURN