xianshi.asm

电子报警器源程序,包含键盘程序,动态扫描

WAIT1:  LCALL DISUP
        MOV   P1,#0FH               ;查询是否按动键盘
        MOV   A,P1
        CJNE  A,#0FH,WAIT2
        LJMP  WAIT1
WAIT2:  LCALL DELAY
        MOV   P1,#0FH
        MOV   A,P1
        CJNE  A,#0FH,MIMA1
        LJMP  WAIT1
MIMA1:  MOV   44H,08H
        LCALL DELAY
        MOV   A,P1
        CJNE  A,#0FH,MIMA2
        LJMP  MIMA1
MIMA2:  LJMP  WAIT1           
DISUP:  MOV   DPTR,#TAB            ;显示子程序1，密码显示用（4位）
        MOV   A,44H
        MOVC  A,@A+DPTR
        MOV   P2,A
        CLR   P3.0
        LCALL DELAY
        SETB  P3.0
        MOV   DPTR,#TAB
        MOV   A,45H
        MOVC  A,@A+DPTR
        MOV   P2,A
        CLR   P3.1
        LCALL DELAY
        SETB  P3.1
        MOV   A,46H
        MOVC  A,@A+DPTR
        MOV   P2,A
        CLR   P3.6
        LCALL DELAY
        SETB  P3.6
        MOV   A,47H
        MOVC  A,@A+DPTR
        MOV   P2,A
        CLR   P3.7
        LCALL DELAY
        SETB  P3.7
        RET
DELE:   MOV   4EH,#4               ;延时程序
LOOP1:  MOV   4FH,#200
LOOP2:  NOP
        NOP
        NOP
        DJNZ  4FH,LOOP2
        DJNZ  4EH,LOOP1
        RET

DELAY:  LCALL DELE
        LCALL DELE
        RET

TAB:    DB    3FH,06H,5BH,4FH,66H
        DB    6DH,7DH,07H,7FH,6FH
        END