📄 k8nlcd.asm
字号:
ORG 0000H
;LJMP RETSE ;无LCD显示 无串行输出
MOV R0,#02H ;8键先自动再按键 BC板调好程序
NH1: MOV A,#00H
MOV P0,A
LCALL T1S
MOV P1,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
MOV A,#0FFH
MOV P0,A
LCALL T1S
MOV P1,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
DJNZ R0,NH1
KN01: INC A
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
CJNE A,#0FH,KN01
LCALL T3S
LCALL T3S
KN1: MOV A,#0FH
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
MOV R0,#04H
KN11: DEC A
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
CJNE A,#00H,KN11
KN2: MOV R0,#04H
KN21: MOV A,#0FH
MOV P0,A
LCALL T1S
MOV P1,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
SWAP A
MOV P0,A
LCALL T1S
MOV P1,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
SWAP A
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
MOV P0,A
LCALL T1S
MOV P1,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
SWAP A
MOV P2,A
LCALL T1S
MOV P3,A
LCALL T1S
DJNZ R0,KN21
KN3: MOV R0,#02H
KN31: MOV A,#0AAH
MOV P0,A
LCALL T1S
MOV A,#55H
MOV P0,A
LCALL T1S
MOV A,#0AAH
MOV P0,A
LCALL T1S
MOV A,#55H
MOV P0,A
LCALL T1S
MOV P1,#0AAH
MOV P1,A
LCALL T1S
MOV A,#55H
MOV P1,A
LCALL T1S
MOV A,#0AAH
MOV P1,A
LCALL T1S
MOV A,#55H
MOV P1,A
LCALL T1S
MOV A,#0AAH
MOV P2,A
LCALL T1S
MOV A,#55H
MOV P2,A
LCALL T3S
MOV A,#0AAH
MOV P2,A
LCALL T1S
MOV A,#55H
MOV P2,A
LCALL T1S
MOV A,#0AAH
MOV P3,A
LCALL T1S
MOV A,#55H
MOV P3,A
LCALL T1S
MOV A,#0AAH
MOV P3,A
LCALL T1S
MOV A,#55H
MOV P3,A
LCALL T1S
DJNZ R0,KN31
KN4: MOV R0,#04H
KN41: MOV A,#81H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#42H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#24H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#18H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#24H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#42H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#81H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,#00H
LCALL T1S
DJNZ R0,KN41
KN5: MOV R0,#04H
KN51: MOV A,#03H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#0CH
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#30H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#0C0H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#30H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#0CH
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#03H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
DJNZ R0,KN51
KN6: MOV R0,#02H
KN61: MOV A,#01H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#80H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#02H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#04H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#04H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#20H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
MOV A,#08H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
MOV A,#10H
MOV P0,A
MOV P1,A
MOV P2,A
MOV P3,A
LCALL T1S
DJNZ R0,KN61
KN15: MOV R0,#02H
QQ5: CLR A
MOV A,#55H
MOV P0,A
MOV P2,A
MOV A,#0AAH
MOV P0,A
MOV P2,A
DJNZ R0,QQ5
LJMP MAT
RETSE: AJMP MAT
MAT: MOV SP,#5BH
CLR EA
CLR A
LJMP ST1
ST1: MOV A,#0FFH
MOV P1,A
LLP: MOV A,P1
CJNE A,#0FFH,L0
SJMP LLP
L0: LCALL D10MS
MOV A,P1
CJNE A,#0FFH,L1
SJMP LLP
L1: JNB ACC.0,KK0
JNB ACC.1,KK1
JNB ACC.2,KK2
JNB ACC.3,KK3
JNB ACC.4,KK4
JNB ACC.5,KK5
JNB ACC.6,KK6
JNB ACC.7,KK7
JMP ST1
KK0: LJMP K0
KK1: LJMP K1
KK2: LJMP K2
KK3: LJMP K3
KK4: LJMP K4
KK5: LJMP K5
KK6: LJMP K6
KK7: LJMP K7
K0: CLR A
;MOV R7,A
MOV 20H,#02H
ZH1: MOV A,#00H
MOV P0,A
LCALL T1S
MOV P2,A
LCALL T1S
MOV A,#0FFH
MOV P0,A
LCALL T1S
MOV P2,A
LCALL T1S
DJNZ 20H,ZH1
MOV R6,#05H
MOV A,#00H
MOV P0,A
MOV P2,A
LCALL T3S
K01: INC A
INC A
INC A
INC A
INC A
MOV P0,A
MOV P2,A
LCALL T3S
LCALL T3S
DJNZ R6,K01
MOV P0,#80H
MOV P2,#80H
LJMP MAT
K1: MOV A,#0FH
MOV P0,A
MOV P2,A
MOV R0,#08H
K011: DEC A
MOV P0,A
MOV P2,A
LCALL T1S
CJNE A,#00H,K011
MOV P0,#01H
MOV P2,#01H
LJMP MAT
K2: MOV R0,#08H
K21: MOV A,#0FH
MOV P0,A
LCALL T1S
SWAP A
MOV P0,A
LCALL T1S
MOV P2,A
LCALL T1S
SWAP A
MOV P2,A
LCALL T1S
DJNZ R0,K21
MOV P0,#02H
MOV P2,#02H
LJMP MAT
K3: MOV R0,#03H
K31: MOV A,#0AAH
MOV P0,A
LCALL T1S
MOV A,#55H
MOV P0,A
LCALL T1S
MOV A,#0AAH
MOV P0,A
LCALL T1S
MOV A,#55H
MOV P0,A
LCALL T1S
MOV A,#0AAH
MOV P2,A
LCALL T1S
MOV A,#55H
MOV P2,A
LCALL T1S
MOV A,#0AAH
MOV P2,A
LCALL T1S
MOV A,#55H
MOV P2,A
LCALL T1S
DJNZ R0,K31
MOV P0,#03H
MOV P2,#03H
LJMP MAT
K4: MOV R0,#04H
K41: MOV A,#81H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#42H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#24H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#18H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#24H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#42H
MOV P0,A
MOV P2,A
LCALL T1S
MOV A,#81H
MOV P0,A
MOV P2,A
LCALL T1S
DJNZ R0,K41
MOV P0,#04H
MOV P2,#04H
LJMP MAT
K5: MOV A,#0FH
MOV P0,#00H
MOV 22H,#0FH
YT01: MOV P2,A
LOP: JB P3.4,LOP
LP1: JNB P3.4,LP1
DEC A
;MOV R1,A
LCALL T1S
DJNZ 22H,YT01
MOV P2,A
MOV P0,#00H
SETB P0.7
LJMP MAT
K6: MOV A,#00H
MOV P0,#00H
MOV 23H,#0FH
YT1: MOV P2,A
LOOP: JB P3.4,LOOP
LOP1: JNB P3.4,LOP1
INC A
;MOV R1,A
LCALL T1S
DJNZ 23H,YT1
MOV P2,A
SETB P0.0
LJMP MAT
K7: ;MOV SCON,#00H
;MOV IE,#84H
mov A,#01h
MOV 20H,#0AH
OUT: MOV P0,A
MOV P2,A
;MOV SBUF,A
INC A
LCALL T6S
DJNZ 20H,OUT
CLR A
;MOV SBUF,A
LCALL T1S
;MOV SBUF,A
MOV P0,#07H
MOV P2,#07H
LJMP MAT
T6S: MOV R4,#04H
WE0: LCALL T3S
DJNZ R4,WE0
RET
T3S: MOV R3,#50
WE1: LCALL T5MS
DJNZ R3,WE1
RET
T1S: MOV R3,#20
WE11: LCALL T5MS
DJNZ R3,WE11
RET
T5MS: MOV R2,#20
WE2: MOV R1,#250
WE3: DJNZ R1,WE3
DJNZ R2,WE2
RET
TXD3: MOV TMOD,#20H
MOV PCON,#00H
RET
D10MS: MOV R2,#0AH
OK1: MOV R1,250
OK2: DJNZ R1,OK2
DJNZ R2,OK1
RET
DELAY: MOV R7,#68H
DL: MOV R6,#0FFH
DL1: DJNZ R6,DL1
DJNZ R7,DL
RET
MOV R0,#03H
WQ2: CLR A
MOV P0,A
MOV P2,A
MOV A,#55H
MOV P0,A
MOV P2,A
MOV A,#0AAH
MOV P0,A
MOV P2,A
DJNZ R0,WQ2
MOV P0,#0FH
MOV P2,#0FH
LJMP MAT
DE1: MOV R7,#02H
DE2: MOV R6,#0FFH
DE3: DJNZ R6,DE3
DJNZ R7,DE2
RET
TAB0: DB 01H,02H,03H,04H,05H,06H,07H,08H
DB 09H,0AH,0BH,0CH,0DH,0EH,0FH,10H
DB 11H,22H,33H,44H,55H,66H,77H,88H
DB 99H,0AAH,0BBH,0CCH,0DDH,0EEH,0FFH
DB 81H,42H,24H,18H,18H,24H,42H,81H
DB 03H,0CH,30H,0C0H,0FH,0F0H,0FFH,00H,00H
TAB1: DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
DB 0EFH,0EDH,6DH,0F1H,9DH,93H,3DH,0E5H,0CDH
DB 0EFH,0EDH,6DH,0F1H,9DH,93H,3DH,0E5H,0CDH
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -