📄
字号:
;********************************
; 键盘统计
;********************************
JPTJ:
MOV R0,#JSQ1D
MOV R2,#00000001B
MOV R3,#11111110B
MOV R7,#8
JPTJ1:
MOV A,@R0
CJNE A,#80H,JPTJ2
JPTJ2:
JC JPTJ3
;有键
MOV A,R2
ORL A,DYJP ;低音键盘
MOV DYJP,A
LJMP JPTJ4
JPTJ3:
;无键
MOV A,R3
ANL A,DYJP
MOV DYJP,A
JPTJ4:
MOV A,R2
RL A
MOV R2,A
MOV A,R3
RL A
MOV R3,A
INC R0
DJNZ R7,JPTJ1
;------------
MOV JSQDJ,#0
MOV R2,#00000001B
MOV R7,#8
JPTJ5:
MOV A,DYJP
ANL A,R2
JZ JPTJ6
;有键
INC JSQDJ ;低音键数量计数器
JPTJ6:
DJNZ R7,JPTJ5
;-----------------------
MOV R0,#JSQ1G
MOV R2,#00000001B
MOV R3,#11111110B
MOV R7,#8
JPTJ1A:
MOV A,@R0
CJNE A,#80H,JPTJ2A
JPTJ2A:
JC JPTJ3A
;有键
MOV A,R2
ORL A,GYJP
MOV GYJP,A
LJMP JPTJ4A
JPTJ3A:
;无键
MOV A,R3
ANL A,GYJP
MOV GYJP,A
JPTJ4A:
MOV A,R2
RL A
MOV R2,A
MOV A,R3
RL A
MOV R3,A
INC R0
DJNZ R7,JPTJ1A
;------------
MOV JSQGJ,#0
MOV R2,#00000001B
MOV R7,#8
JPTJ5A:
MOV A,GYJP
ANL A,R2
JZ JPTJ6A
;有键
INC JSQGJ ;高音键数量计数器
JPTJ6A:
DJNZ R7,JPTJ5A
RET
;********************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -