3x3按键可修改密码锁程序(2)

DL10:
MOV R5,#10H
DJNZ R5,$
DJNZ R6,DL10
DJNZ R7,DL11
NOP
RET

/*延时10MS子程序*/
DELAY:
MOV R7,#01H;延时10MS
DL1:
MOV R6,#26H
DL0:
MOV R5,#82H
DJNZ R5,$
DJNZ R6,DL0
DJNZ R7,DL1
RET

TAB:DB
0FEH,0FDH,0FBH;按键扫描顺序
TAB1:DB 1,4,7,2,5,8,3,6,9;按键值确定输出
TAB2:DB 1,2,3,4,5,6;密码设置
TAB3:DB 0FEH,0FCH,0F8H,0F0H,0E0H,0C0H;P2--LED显示按键次数

END