MOVWF TRISA^80H ;

CLRF TRISC^80H ; .

CLRF VRCON^80H ; .

CLRF PCON^80H ; .

MOVLW B'00000110' ;

MOVWF WPUA^80H ; .

CLRF IOCA^80H ; .

MOVLW .1

MOVWF ANSEL^80H ; RA0/AN0.

BCF STATUS,5 ; 0.

CLRF PORTC ; .

CLRF T1CON ; 1 .

MOVLW .7

MOVWF CMCON ; .

CLRF FLAG ; .

CLRF FLAG1

CLRF EDI

CLRF DEI

CLRF COI

CLRF CL

CLRF CH

CLRF ML

CLRF MH

CLRF HL

CLRF HH

CLRF TCL

CLRF TCH

CLRF TML

CLRF TMH

CLRF THL

CLRF THH

CLRF PEID

CLRF ZPT

CLRF COUZ

CLRF COU

CLRF HOU

MOVLW 96H

MOVWF YCTL ; = 15,0 B.

MOVLW 78H

MOVWF YCTLI ; = 12,0 B.

CLRF KYPC

BSF FLAG,4

GOTO PAC

;==========================================

; 3. .

;==========================================

SEG

;D E G F A B C K

ADDWF PCL,1 ;

RETLW B'11011110' ;0

RETLW B'00000110' ;1

RETLW B'11101100' ;2

RETLW B'10101110' ;3

RETLW B'00110110' ;4

RETLW B'10111010' ;5

RETLW B'11111010' ;6

RETLW B'00001110' ;7

RETLW B'11111110' ;8

RETLW B'10111110' ;9

RETLW B'00000000' ;10-> .

RETLW B'00100000' ;11-> .

RETLW B'10000000' ;12-> .

;=================================================

; 4. .

;=================================================

KYPCY

MOVFW KYPC ;

ADDWF PCL,1 ;

RETURN ; .

RETLW B'00000100' ;3

RETLW B'00001000' ;4

RETLW B'00010000' ;5

RETLW B'00100000' ;6

RETLW B'01000000' ;7

;===================================================

; 5. .

;===================================================

VUBOR

MOVFW PEID ; .

ADDWF PCL,1 ;

GOTO INDH ; .

GOTO INDT ;.

GOTO INDU ;.

;======================================================

; 6. .

;======================================================

YCT

BTFSC PORTA,YC; "" ,

RETURN

MOVFW KYPC ;

ADDWF PCL,1 ; .

RETURN ; .

GOTO YC0 ;.

GOTO YC1 ; .

GOTO YCE ;.

GOTO YC2 ;.

GOTO YC3 ; .

;======================================================

; 7. .

;======================================================

DEBIN

ADDWF PCL,1 ;

RETLW .0

RETLW .10

RETLW .20

RETLW .30

RETLW .40

RETLW .50

RETLW .60

RETLW .70

RETLW .80

RETLW .90

;======================================================

; 8. .

;======================================================

KHOP

BTFSS FLAG,1 ; ,

GOTO $+5 ; .

BTFSS PORTA,KY;

CALL KYPCOP ; .

BTFSC FLAG,7 ; ,

GOTO VUBOR ; .

BTFSC PORTA,YC; "" ,

GOTO VUBOR ; .

INCF PEID,1 ; .

MOVLW .3 ;3 .

SUBWF PEID,0 ; ,

BTFSS STATUS,2; .

GOTO VUBOR ; .

CLRF PEID ; .

GOTO VUBOR ; .

RETURN

;=================================================

: 1 2 3 4 5 6 7 8 9 10

:

, , S
, , , . , ...


. , , . ...


, , . ...



2015 TechExternal