📄 新建 文本文档 (3).txt
字号:
ORG 0000H
AJMP MAIN
ORG 0008H
LJMP NTT0
MAIN:MOV A,#60H
MOVB KEYB,#OFFH
JIAN: MOV A,#P1
CJNE A,#OFFH,AN1
LJMP IAN
AN1:CJNE A,#OFEH,AN2
LCALL WOSHO
LJMP JIAN
AN2:CJNE A,#0F0H,AN3
LCALL XIAN1
LJMP JIAN
AN3: CJNE A,#0FBH,AN4
LALL XIAN2
LJMP JIAN
AN4: CJNE A,#0F7H,AN5
LCALL XIAN3
LJMP JIAN
AN5: CJNE A,#0EFH,AN6
LCALL XIAN4
LJMP JIAN
AN6: CJNE A, #00FH,AN7
LCALL DELAY
JB P1.3 NN
NN: LCAL FANHUI
LJMP JIAN
AN7: CJNE A,#0BH,
LCALL SONGPC
BACK: LJMP JIAN
显示数据程序:
XIAN: MOV 27H,31H
MOV 28H,32H
MOV A,27H
ANL A,#0F0H
MOV 11H,A
ANL A,#0FH
MOV 12H,A
MOV A,28H
ANL A,#0F0H
SWAP A
MOV 13H,A
MOV A,28H
ANL A,#0FH
MOV 14H,A
LOOP1: MOV A,11H
MOVX @R1,A
LCALL DS2
MOV A,12H
ORL A,#20H
MOVX @R1,A
LCALL DS2
MOV A,13H
ORL 1,#40H
MOVX @R1,A
LCALL DS2
MOV A,14H
ORL A,#80H
MOVX @R1,A
LCALL DS2
RET
DS2: MOV R1,#04H
DEC: MOV R2,#0FFH
DJNZ R2,$
DJNZ R1,DEC
RET
存储程序:
WRITE: SETB P3.4
NOP
CLR P3.4
MOV A,#06H
LCALL SS
SETB P3.4
CLR P3.4
MOV A,#02H
LCALL SS
MOV A,#40H
LCALL SS
MOV A,#EEH
CALL DISP
LCALL SS
SETB P3.4
AJMP lyx25045
SS: MOV R5,#8
SS1: RLC A
MOV P3.6 ,C
CLR P3.5
SETB P3.5
DJNZ R5,ss1
RET
JS: MOV R5,#8
JS1 : SETB P3.5
CLR P3.5
MOV C,P3.7
RLC A
DJNZ R5,js1
RET
DISP: PUSH A
MOV DPTR,#ledtab
MOV R4,A
ANL A,#0FH
MOVC A,@A+DPTR
MOV r3,A
LCALL led1
LCALL DELAY
MOV A,R4
ANL A,#0F0H
SWAP A
MOVC A,@A+DPTR
MOV r3,A
LCALL led2
LCALL DELAY
LCALL jp
POP A
RET
LED: LCALL SEL5
MOV P0,R3
LCALL DELAY
RET
LED2: LCALL SEL4
MOV P0,R3
MOV R2,#1
LALL DELAY
RET
LED3: LCALL SEL3
MOV P0,R3
MOV R2,#1
LCALL DELAY
RET
LED4: LCALL SEL2
MOV P0,R3
MOV R2,#1
LCALL DELAY
RET
SEL1: CLR P2.5
CLR P2.6
CLR P2.7
RET
SEL2: CLR P2.5
CLR P2.6
SETB P2.7
RET
SEL3: CLR P2.7
SETB P2.6
CLR P2.5
RET
SEL4: CLR P2.5
SETB P2.6
SETB P2.7
RET
SEL5: SETB P2.5
CLR P2.6
CLR P2.7
RET
SEL7: SETB P2.5
SETB P2.6
CLR P2.7
RET
SEL8: SETB P2.5
SETB P2.6
SETB P2.7
RET
LEDTAB: DB 7EH,0CH,0B6H,9EH,0CCH,0DAH,0FAH,0EH,0FEH,0DEH,0EEH,0F8H,072H,0BCH,0F2H,0E2H
DELAY: MOV R6,#02H
dl2: MOV R7,#100H
dl1: NOP
DJNZ R7,dl1
DJNZ R6,dl2
RET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -