发布时间 : 星期三 文章Proteus仿真单片机实验更新完毕开始阅读33d88333743231126edb6f1aff00bed5b9f37300
NOKEY2:
MOV P3,#0FFH CLR P3.6 MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY3
LCALL DELY10MS MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY3 MOV A,P3 ANL A,#0FH
CJNE A,#0EH,NK9 MOV KEYBUF,#8 LJMP DK3
NK9: CJNE A,#0DH,NK10 MOV KEYBUF,#9 LJMP DK3
NK10: CJNE A,#0BH,NK11 MOV KEYBUF,#10 LJMP DK3
NK11: CJNE A,#07H,NK12 MOV KEYBUF,#11 LJMP DK3 NK12: NOP DK3:
MOV A,KEYBUF MOV DPTR,#TABLE MOVC A,@A+DPTR MOV P0,A
MOV A,KEYBUF MOV B,#2 MUL AB
MOV TEMP,A
MOV DPTR,#TABLE1 MOVC A,@A+DPTR MOV STH0,A MOV TH0,A INC TEMP MOV A,TEMP
MOVC A,@A+DPTR MOV STL0,A
精选
MOV TL0,A SETB TR0
DK3A: MOV A,P3 ANL A,#0FH XRL A,#0FH JNZ DK3A CLR TR0 NOKEY3:
MOV P3,#0FFH CLR P3.7 MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY4
LCALL DELY10MS MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY4 MOV A,P3 ANL A,#0FH
CJNE A,#0EH,NK13 MOV KEYBUF,#12 LJMP DK4
NK13: CJNE A,#0DH,NK14 MOV KEYBUF,#13 LJMP DK4
NK14: CJNE A,#0BH,NK15 MOV KEYBUF,#14 LJMP DK4
NK15: CJNE A,#07H,NK16 MOV KEYBUF,#15 LJMP DK4 NK16: NOP DK4: MOV A,KEYBUF MOV DPTR,#TABLE MOVC A,@A+DPTR MOV P0,A
MOV A,KEYBUF MOV B,#2 MUL AB
MOV TEMP,A
MOV DPTR,#TABLE1
精选
MOVC A,@A+DPTR MOV STH0,A MOV TH0,A INC TEMP MOV A,TEMP
MOVC A,@A+DPTR MOV STL0,A MOV TL0,A SETB TR0
DK4A: MOV A,P3 ANL A,#0FH XRL A,#0FH JNZ DK4A CLR TR0 NOKEY4: LJMP WAIT DELY10MS: MOV R6,#10
D1: MOV R7,#248 DJNZ R7,$ DJNZ R6,D1 RET INT_T0:
MOV TH0,STH0 MOV TL0,STL0 CPL P1.0 RETI
TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H
TABLE1: DW 64021,64103,64260,64400 DW 64524,64580,64684,64777 DW 64820,64898,64968,65030 DW 65058,65110,65157,65178 END
精选