KEYTM？EQU 31H
KEYSCAN？EQU 32H
DATEQU 33H
DCNT？EQU 37H
T0LEQU 38H
t0河曲39H
速度？EQU 3AH
掃描的？EQU公司
CHKCNT？EQU 3CH
DLYCNT？EQU 3DH
ORG 0000H
LJMP總管
ORG 000BH
LJMP T0ISR
ORG 0030H
主要:
MOV SP，#5FH
MOV TMOD，#01H
MOV T0L，#0F0H
MOV T0H，#0D8H
MOV TH0，#0D8H
MOV TL0，#0F0H
MOV·基瓦爾，#0
MOV P2，#00H
MOV DCNT，#0
MOV掃描，#0
MOV 33H，#10H
MOV 34H，#10H
MOV 35H，#10H
MOV 36H，#10H
MOV CHKCNT，#11H
MOV速度，#100
MOV DLYCNT，#0
SETB電子藝界
SETB ET0
SETB TR0
循環:
LCALL KEYSEL
基瓦爾·MOV
CJNE A，#0FFH，LOOP1
SJMP環路
LOOP1:
CJNE A，#10，LOOP2？；“開”開始LED測試。
MOV區，#0FFH
SJMP環路
環路2:
CJNE A，#14，LOOP3？；“-”是快
MOV A，速度
CLR C
SUBB A，#10
MOV·斯畢德
SJMP環路
環路3:
CJNE A，#15，LOOP4？；“+”是慢的
MOV A，速度
添加壹個，#10
MOV·斯畢德
SJMP環路
環路4:
CJNE A，#11，LOOP5？；“=”停止測試並接受數字鍵。
MOV 33H，#10H
MOV 34H，#10H
MOV 35H，#10H
MOV 36H，#10H
MOV DCNT，#0
SJMP環路
環路5:
CJNE A，#10，LOOP6數字鍵
環路6:
JC環路7
LJMP環路
環路7:
MOV 33H，34H
MOV 34H，35H
MOV 35小時，36小時
MOV 36H，基瓦爾
LJMP環路
；-
KEYSEL:？
MOV？KEYVAL，#0
MOV？按鍵掃描，#0EFH
LCALL？GETKEY
MOV？壹、KEYTM
JZ？按鍵1
MOV？基瓦爾
SJMP？KEYRTN
KEYS1:？
MOV？按鍵掃描，#0DFH
LCALL？GETKEY
MOV？壹、KEYTM
JZ？按鍵2
CLR？C
補充？壹個，#4
MOV？基瓦爾
SJMP？KEYRTN
按鍵2:？
MOV？鑰匙掃描，#0BFH
LCALL？GETKEY
MOV？壹、KEYTM
JZ？按鍵3
CLR？C
補充？壹、8號
MOV？基瓦爾
SJMP？KEYRTN
KEYS3:？
MOV？鍵掃描，#7FH
LCALL？GETKEY
MOV？壹、KEYTM
JZ？KEYRTN
CLR？C
補充？a，#12
MOV？基瓦爾
KEYRTN:？
LCALL CHGKEY
浸水使柔軟
；-
GETKEY:？
MOV KEYTM，#0
MOV？按鍵掃描
MOV？P3
nototherwiseprovided（for）除非另有規定
MOV？壹、P3
ANL？a，#0FH
XRL？a，#0FH
JZ？諾基
MOV R2，#10
LCALL延遲
MOV？壹、P3
ANL？a，#0FH
XRL？a，#0FH
JZ？諾基
MOV？壹、P3
ANL？a，#0FH
MOV？R7，A
SF:
MOV？壹、P3
ANL？a，#0FH
XRL？a，#0FH
JNZ？芬蘭
MOV？a，R7
CJNE？a，#0EH，NK1
MOV？KEYTM，#1
SJMP？諾基
NK1:
CJNE？a，#0DH，NK2
MOV？KEYTM，#2
SJMP？諾基
NK2:
CJNE？a，#0BH，NK3
MOV？KEYTM，#3
SJMP？諾基
NK3:
CJNE？a，#07H，無鍵
MOV？KEYTM，#4
NOKEY:？浸水使柔軟
；-
延遲:
MOV R3，50號
延遲1:
MOV R4，#100
DJNZ R4，美元
DJNZ R3，延遲1
DJNZ R2，延遲
浸水使柔軟
；-
T0ISR:
推送ACC
CLR TR0
MOV TH0，T0H
MOV TL0，T0L
SETB TR0
MOV·DPTR，#LEDTAB
MOV A，DCNT？；分段顯示
JZ T000
MOV A，中國
MOVC A，@A+DPTR
MOV P2，#0FH
CPL A
MOV P0，A
INC DLYCNT
MOV A，DLYCNT
CJNE A，速度，T021
MOV DLYCNT，#0
INC CHKCNT
MOV A，中國
CJNE A，#1AH，T020
T020:
JC T021
MOV CHKCNT，#11H
T021:？
流行ACC
雷蒂
t000:；數字顯示
MOV R0，#日期
MOV A，掃描
添加A，R0
MOV R0，A
MOV A，掃描
JNZ T001
MOV P2，#01H
SJMP T0DIS
T001:
十二月A
JNZ T002
MOV P2，#02H
SJMP T0DIS
T002:
十二月A
JNZ T003
MOV·P2，#04H
SJMP T0DIS
T003:
MOV·P2，#08H
T0DIS:
MOV A，@R0
MOVC A，@A+DPTR
CPL A
MOV P0，A
公司掃描
MOV A，掃描
ANL A，#03H
MOV·斯坎萊德
流行ACC
雷蒂
；-
CHGKEY:
基瓦爾·MOV
JZ KV16
十二月A
JNZ KV01
MOV·基瓦爾，7號
浸水使柔軟
KV01:
十二月A
JNZ KV02
MOV·基瓦爾，第四名
浸水使柔軟
KV02:
十二月A
JNZ KV03
MOV·基瓦爾，#1
浸水使柔軟
KV03:
十二月A
JNZ KV04
MOV·基瓦爾，#10
浸水使柔軟
KV04:
十二月A
JNZ KV05
MOV·基瓦爾，8號
浸水使柔軟
KV05:
十二月A
JNZ KV06
MOV·基瓦爾，5號
浸水使柔軟
KV06:
十二月A
JNZ KV07
MOV·基瓦爾，第二名
浸水使柔軟
KV07:
十二月A
JNZ KV08
MOV·基瓦爾，#0
浸水使柔軟
KV08:
十二月A
JNZ KV09
MOV·基瓦爾，第九名
浸水使柔軟
KV09:
十二月A
JNZ KV10
MOV·基瓦爾，6號
浸水使柔軟
KV10:
十二月A
JNZ KV11
MOV·基瓦爾，第三名
浸水使柔軟
KV11:
十二月A
JNZ KV12
MOV·基瓦爾，#11
浸水使柔軟
KV12:
十二月A
JNZ KV13
MOV·基瓦爾，#12
浸水使柔軟
KV13:
十二月A
JNZ KV14
MOV·基瓦爾，#13
浸水使柔軟
KV14:
十二月A
JNZ KV15
MOV·基瓦爾，#14
浸水使柔軟
KV15:
十二月A
JNZ KV16
MOV·基瓦爾，#15
浸水使柔軟
KV16:
MOV·基瓦爾
浸水使柔軟
；-
LEDTAB:？DB 0FCH？；"0"?00H
DB 60H？；"1"?01H
DB 0DAH？；"2"?02H
DB 0F2H？；"3"?03H
DB 66H？；"4"?04H
DB 0B6H？；"5"?05H
DB 0BEH？；"6"?06H
DB 0E0H？；"7"?07H
DB 0FEH？；"8"?08H
DB 0F6H？；"9"?09H
DB 0EEH？；A。0AH
DB 3EH？；" B "0BH
DB 9CH？；" C "0CH
DB 7AH？；D。0DH
DB 9EH？；" E "0EH
DB 8EH？；F。0FH
DB 00H？；" "?10H
DB 80H
DB 40H
DB 20H
DB 10H
DB 08H
DB 04H
DB 02H
DB 01H
DB 0FFH
；-
結束