EQU 31H
按鍵掃描:
CLR 00H
密鑰0:
MOV P0，#0FFH
SETB P1.1
CLR P1.0
MOV基礎數據，#0
MOV A，P0
XRL A，#0FFH
JNZ KEYS1
CLR P1.1
SETB P1.0
MOV數據庫，第8號
MOV A，P0
XRL A，#0FFH
JNZ KEYS1
MOV·基瓦爾；沒有鑰匙
浸水使柔軟
密鑰1:
JB 00H，按鍵2
LCALL延遲
SETB 00H
SJMP鍵0
按鍵2:
MOV A，P0
JB ACC.0，key 21
MOV A，#0
SJMP鑰匙3
KEYS21:
JB ACC.1，KEYS22
MOV A，#1
SJMP鑰匙3
按鍵22:
JB ACC.2，按鍵23
MOV A，#2
SJMP鑰匙3
按鍵23:
JB ACC.3，按鍵24
MOV A，#3
SJMP鑰匙3
按鍵24:
JB ACC.4，KEYS25
MOV A隊，第四名
SJMP鑰匙3
按鍵25:
JB ACC.5，按鍵26
MOV A，5號
SJMP鑰匙3
按鍵26:
JB ACC.6，KEYS27
MOV A，#6
SJMP鑰匙3
按鍵27:
JB ACC.1，KEYS28
MOV A，7號
SJMP鑰匙3
按鍵28:
MOV·基瓦爾；諾基
按鍵3:
添加壹個BASEDAT
MOV·基瓦爾
浸水使柔軟
延遲:
MOV·R2，第20位
延遲1:
MOV R3，編號250
DJNZ R3，美元
DJNZ R2，延遲1
浸水使柔軟