JDQ EQU P1.0
鍵盤輸入EQU P1.1
EQU·基登P1.2
鑰匙EQU P1.3
DLY EQU 30H
ORG 0000H
LJMP總管
ORG 0030H
主要:
SETB P1.0
MOV·DLY，排名第五；最初5秒
循環:
JB KEYUP，LOOP1
JNB·基尤，美元
DLY公司
SJMP環路
LOOP1:
JB KEYDN，環路2
JNB·基登，美元
DLY MOV
CJNE A，#1，LOOP11
LOOP10:
MOV A，#1
SJMP環路
LOOP11:
JC LOOP10
十二月DLY
SJMP環路
環路2:
JB鍵，循環
JNB·基克，美元
CLR JDQ
推DLY
LCALL延遲
波普·DLY
LJMP環路
延遲:
MOV·R2，第20位
延遲1:
MOV R3，#100
延遲2:
MOV·R4，248號
DJNZ R4，美元
DJNZ R3，延遲2
DJNZ R2，延遲1
DJNZ DLY，延遲
浸水使柔軟
結束