📄 新建 文本文档.txt
字号:
DT:MOV A,2BH
CJNE A,#08H,XXI
MOV A,2AH
CJNE A,#08H,WWI
MOV 2AH,#00H ;clr 2ah,是错误的！！！
MOV 2BH,#00H
RETI
XXI:LCALL YY
LCALL SX
LCALL BM
LCALL MAIN
INC 2BH
CLR A
MOV 3DH,#00H
MOV 3EH,#00H
MOV 3FH,#00H
RETI
WWI:LCALL DDF
INC 2AH
RETI
DT:JNB 20H.3,XXI
JNB 21H.3,WWI
JNB 22H.3,TTI
MOV 20H,#00H
MOV 21H,#00H
MOV 22H,#00H
RETI
XXI:LCALL YY
LCALL SX
LCALL BM
LCALL MAIN
INC 20H
CLR A
CLR 3DH
CLR 3EH
CLR 3FH
RETI
WWI:LCALL DDF
INC 21H
RETI
TTI:LCALL DDFF
INC 22H
RETI
DDF:MOV R2,#00H
MOV R3,#00H
WGQ_A:MOV A,R2
MOV DPTR,#HB
MOVC A,@A+DPTR
MOV 24H,A
INC R2
WGQ_B:MOV A,R3
MOV DPTR,#HB1
MOVC A,@A+DPTR
MOV 22H,A
INC R3
LCALL XIAN
CJNE R3,#56,WGQ_A
RET
DT:LCALL YY
LCALL SX
LCALL BM
LCALL MAIN
CLR A
CLR 3DH
CLR 3EH
CLR 3FH
RETI
DT:LCALL DDF
LCALL SX
LCALL BM
LCALL MAIN
CLR A
CLR 3DH
CLR 3EH
CLR 3FH
RETI
SK3: JB K3,JP ;检测按键K3
ACALL YS ;调用20ms延时消抖动
JB K3,JP ;如果K3为高电平，则是抖动
K3DD: JNB K3,K3DD ;等待K3按键释放
LCALL DU
LCALL XIANX
JB F0,WZX
SETB F0
AJMP JP
SUAN:MOV A,33H
CJNE A,#5,SS1
MOV A,34H
CJNE A,#31,RET_B
SETB 20H.1 ;20H.1 SHENRI
RET
SS1:CJNE A,#8,RET_B
MOV A,34H
CJNE A,#5,SS2
SETB 20H.2 ;20H.2 ZHOUNINA
RET
SS2:CJNE A,#7,RET_B
SETB 20H.3 ;20H.3 QIXI
RET_B:RET
JB 20H.4,V1
LCALL ZHENG
INC 21H
MOV A,21H
CJNE A,#08H,RET_A
SETB 20H.4
V1:LCALL ;YAOXIANSHID
INC 21H
MOV A,21H
CJNE A,#10H,RET_A
MOV 21H,#00H
MOV 20H,#00H
RET_A:RETI
;QI
DB 0FFH,0FFH,0FBH,0FFHH,0FBH,0E3H,0FBH,0FDH,0FBH,0FDH,0FBH,0FDH,0FBH,0FDH,0FBH,0FDH
DB 80H,03H,0FDH,0FFH,0FDH,0FFH,0FDH,0FFH,0FDH,0FFH,0FDH,0FFH,0FDH,0FFH,0FFH,0FFH
;XI
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0C7H,0FFH,0D9H,0FFH,0DEH,7FH,0DFH,0BFH,0DFH,50H
DB 0DEH,0EFH,01DH,0F7H,0E3H,0FBH,0FBH,0FBH,0FDH,0FDH,0FEH,0FDH,0FFH,0FDH,0FFH,0FFH
;KUAI
DB 0FFH,0FFH,0FFH,0FDH,0FEH,0FCH,0E0H,0F9H,0EEH,0F3H,0EEH,0EFH,0EEH,09FH,00H,07FH
DB 0EEH,8FH,0EEH,0F3H,0EEH,0FDH,0F2H,0FEH,0EFH,0FFH,00H,00H,0FFH,0FFH,0F1H,0FFH
;LE
DB 0FFH,0FFH,0FFH,0FFH,0FDH,0E3H,0BDH,0CFH,3DH,0BFH,3DH,0FFH,0BDH,0FFH,0A0H,03H
DB 9DH,0FDH,0DDH,0FBH,0DDH,0B7H,0DDH,1FH,0C0H,0CFH,0FDH,0E7H,0FFH,0FBH,0FFH,0FFH
;XIANG
DB 0FFH,0FFH,0FFH,0FFH,80H,00H,0BBH,0BDH,0BBH,0BDH,0BBH,0BDH,0BBH,0BDH,80H,00H
DB 0FFH,0FFH,0F6H,7FH,0F5H,0FFH,0F3H,0FFH,00H,00H,0F4H,0FFH,0F7H,03FH,0F7H,0DFH
;SHI
DB 0FFH,0FFH,0FFH,0FBH,0FFH,0F180H,0CFH,0BEH,0BFH,0BEH,0FFH,0BEH,0FFH,0BEH,8FH
DB 80H,0F3H,0FFH,0FDH,0FFH,0F6H,0FFH,0FBH,0DCH,01H,8DH,0FFH,7DH,0FFH,0FDH,0FFH
;SAN
DB 0FFH,0FFH,0FFH,0FBH,0DFH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH
DB 0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DEH,0FBH,0DFH,0FBH,0FFH,0FFH
;ZH0U
DB 0FFH,0FFH,0FFH,0FFH,80H,01H,0BFH,0FEH,0BDH,0FDH,0ADH,07H,0ADH,6FH,81H,6FH
DB 0ADH,6FH,0ADH,07H,0BDH,0FFH,0BFH,0FFH,80H,0FH,0FFH,0F3H,0FFH,0FDH,0FFH,0FEH
;NIAN
DB 0FFH,0FFH,0FFH,0DFH,0BFH,0D0H,0BBH,0DFH,0BBH,0DFH,0BBH,0DFH,0BFH,0D0H,80H,00H
DB 0BBH,0DFH,0BBH,0DFH,0BFH,0D0H,38H,1FH,0CFH,0DFH,0F7H,0DFH,0FBH,0D0H,0FDH,0DFH
MOV DPTR,#QI
LCALL XSDF
MOV DPTR,#XI
LCALL XSDF
MOV DPTR,#KUAI
LCALL XSDF
MOV DPTR,#LE
LCALL XSDF
MOV DPTR,#XIANG
LCALL XSDF
MOV DPTR,#SHI
LCALL XSDF
MOV DPTR,#SAN
LCALL XSDF
MOV DPTR,#ZHOU
LCALL XSDF
MOV DPTR,#NIAN
LCALL XSDF
XSDF:MOV 28H,#00H
MOV 29H,#01H
MOV R7,#16
QS:MOV A,28H
MOVC A,@A+DPTR
MOV 22H,A
MOV A,29H
MOVC A,@A+DPTR
MOV 24H,A
INC 28H
INC 28H
INC 29H
INC 29H
LCALL XIAN
DJNZ R7,QS
RET
BXB:ANL A,#0FH ;此变位需倒位
MOV @R0,A
MOV A,3DH
RL A
RL A
RL A
RL A
ANL A,#0FH
MOV @R1,A
LCALL LF1
RET
MAOH:MOV P0,#0FFH
MOV P2,#0FFH
LCALL YS
MOV P0,#0BFH
MOV P2,#0DDH
LCALL YS
MOV P0,#0FFH
MOV P2,#0FFH
LCALL YS
RET
INC 31H
MOV A,31H
CJNE A,#0AH,CX1
MOV 31H,#10H
LCALL XIE1
CX1:CJNE A,#1AH,CX2
MOV 31H,#20H
LCALL XIE1
CX2:CJNE A,#2AH,CX3
MOV 31H,#30H
LCALL XIE1
CX3:CJNE A,#3AH,CX4
MOV 31H,#40H
LCALL XIE1
CX4:CJNE A,#4AH,CX5
MOV 31H,#50H
LCALL XIE1
CX5:CJNE A,#5AH,CXZ
MOV 31H,#00H
CXZ:LCALL XIE1
INC 32H
MOV A,32H
CJNE A,#OAH,FCX1
MOV 32H,#10H
LCALL XIE2
FCX1:CJNE A,#1AH,FCX2
MOV 32H,#20H
LCALL XIE2
FCX2:CJNE A,#24H,FCX3
MOV 32H,#00H
FCX3:LCALL XIE2
KDD:JB K3,KDDX
LCALL YY
JB K3,KDDX
LCALL ZFJ
KDDX:JB K2,KDDY
LCALL YY
JB K2,KDDY
LCALL SJF
KDDY:JB K1,KDD
LCALL YY
JB K1,KDD
LCALL FJF
ZFJ:JNB K3,ZFJ
JNB F0,TTZ
SETB EA
SETB EX1
CLR IT1 ;NO
MOV COM,#8Eh ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,#80H
LCALL XIE ; 调用写入数据子程序
CLR F0
MOV P0,#0FFH
MOV P2,#0FFH
AJMP KDD
TTZ:CLR EA
CLR EX1
SETB IT1 ;YES
MOV COM,#8Eh ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,#00H
LCALL XIE ; 调用写入数据子程序
SETB F0
MOV P0,31H
MOV P2,32H
AJMP KDD
SJF:JNB K2,SJF
INC 31H
MOV A,31H
CJNE A,#0AH,CX1
MOV 31H,#10H
LCALL XIE1
CX1:CJNE A,#1AH,CX2
MOV 31H,#20H
LCALL XIE1
CX2:CJNE A,#2AH,CX3
MOV 31H,#30H
LCALL XIE1
CX3:CJNE A,#3AH,CX4
MOV 31H,#40H
LCALL XIE1
CX4:CJNE A,#4AH,CX5
MOV 31H,#50H
LCALL XIE1
CX5:CJNE A,#5AH,CXZ
MOV 31H,#00H
CXZ:LCALL XIE1
LCALL XIANX
RET
FJF:JNB K3,FJF
INC 32H
MOV A,32H
CJNE A,#0AH,FCX1
MOV 32H,#10H
LCALL XIE2
FCX1:CJNE A,#1AH,FCX2
MOV 32H,#20H
LCALL XIE2
FCX2:CJNE A,#24H,FCX3
MOV 32H,#00H
FCX3:LCALL XIE2
LCALL XIANX
RET
HH:MOV P0,#0FFH
MOV P2,#0FFH
WZX:JB F0,JP
SK3:JB K3,HH ;检测按键K3
ACALL YS ;调用20ms延时消抖动
JB K3,HH ;如果K3为高电平，则是抖动
K3DD:JNB K3,K3DD ;等待K3按键释放
LCALL SX
LCALL BM
CPL F0
MOV COM,#80h ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,#80H
LCALL XIE ; 调用写入数据子程序
JB F0,JP
MOV COM,#80h ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,#00H
LCALL XIE ; 调用写入数据子程序
JNB F0,SK3
XIE2:MOV COM,#84h ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,32H
LCALL XIE ; 调用写入数据子程序
AJMP JP
XIE1:MOV COM,#82h ;命令字节为BEh
MOV BYT,#1 ;多字节写入模式此模块为8 个
MOV R0,#XMT; 数据地址覆给R0
MOV XMT,31H
LCALL XIE ; 调用写入数据子程序
AJMP JP
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -