keysmanagement.asm

自制单片机实验板.rar

;*****************************************************
;
;     This programme is for study Ver1.0.0 beta
;This programme must be run in 12MHz standard settings
;              The keys management
;               Designer: Mr.Koii
;         Copyright 2002-2003 koiistudio
;     2002.12.25 at Changsha. H.N. P.R.China.
;
;*****************************************************

;*****************************************************
;键盘中断处理程序
;*****************************************************

keys_int:               clr     ea
                        clr     ie1
                        mov     p2,#0
                        mov     a,p1
                        cpl     a
                        anl     a,#0fh
                        cjne    a,#0,keys_reader
                        clr     ie1
                        setb    ea
                        reti
keys_reader:            call    time10ms
                        mov     a,p1
                        cpl     a
                        anl     a,#0fh
                        mov     keys_byte,a
keys_reader_0:          mov     a,p1
                        cpl     a
                        anl     a,#0fh
                        cjne    a,#0,keys_reader_0
                        clr     ie1
                        setb    ea
                        reti

;*****************************************************
;按键处理程序
;*****************************************************

keys_management:        cjne    a,#01h,keys_check_2
                        sjmp    keys_1
keys_check_2:           cjne    a,#02h,keys_check_3
                        sjmp    keys_2
keys_check_3:           cjne    a,#04h,keys_check_4
                        sjmp    keys_3
keys_check_4:           cjne    a,#08h,keys_check_err
                        sjmp    keys_4
keys_check_err:         ret

keys_1:                 ljmp    keys_manage_1
keys_2:                 ljmp    keys_manage_2
keys_3:                 ljmp    keys_manage_3
keys_4:                 ljmp    keys_manage_4

;*****************************************************
;1键处理
;*****************************************************

keys_manage_1:          lcall   beep1
                        ret

;*****************************************************
;2键处理
;*****************************************************

keys_manage_2:          lcall   beep3
                        ret

;*****************************************************
;3键处理
;*****************************************************

keys_manage_3:          lcall   beep1
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   beep3
                        ret

;*****************************************************
;4键处理
;*****************************************************

keys_manage_4:          lcall   beep3
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   digital
                        lcall   beep3
                        ret