单片机流水字幕程序.docVIP

DAY EQU 33H ;本显示采用BCD码显示 MON EQU 34H YEAR1 EQU 35H YEAR2 EQU 36H ORG 0000H AJMP MAIN ORG 001BH AJMP SERVE MAIN:MOV DAY,#01H MOV MON,#03H MOV YEAR1,#10H MOV YEAR2,#20H MOV TMOD,#10H MOV 20H,#14H CLR A MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H SETB ET1 SETB EA MOV TH1,#3CH MOV TL1,#0B0H SETB TR1 KEY:LCALL DISP MOV P2,#0F0H MOV A,P2 CPL A ANL A,#0F0H JZ KEY SKEY1:MOV A,#00 MOV R0,A MOV R1,A MOV R3,#0FEH SKEY2:MOV A,R3 MOV P2,A NOP NOP NOP MOV A,P2 MOV R1,A CPL A ANL A,#0F0H S123:JNZ SKEY3 INC R0 SETB C MOV A,R3 RLC A MOV R3,A MOV A,R0 CJNE A,#04H,SKEY2 LJMP KEY SKEY3:MOV A,R1 JNB ACC.4,SKEY5 JNB ACC.5,SKEY6 JNB ACC.6,SKEY7 JNB ACC.7,SKEY8 AJMP KEY SKEY5:MOV A,#00H MOV R2,A AJMP DKEY SKEY6:MOV A,#01H MOV R2,A AJMP DKEY SKEY7:MOV A,#02H MOV R2,A AJMP DKEY SKEY8:mov a,#03h MOV R2,A AJMP DKEY DKEY: MOV A,R0 //ACALL DECODE //AJMP KEY DECODE: MOV A,R0 MOV B,#04H MUL AB ADD A,R2 JNZ NK1 INC DAY MOV A,#0 ADD A,DAY DA A MOV DAY,A MOV A,DAY LCALL JW AJMP OUT1 /* LOOP2:LCALL DISP MOV P2,#0FH MOV A,P2 CJNE A,#0FH,LOOP2 LJMP KEY */ NK1: CJNE A,#01H,NK2 INC P1 INC MON MOV A,#0 ADD A,MON DA A MOV MON,A CJNE A,#13H,NOPP MOV MON,#01H INC YEAR1 MOV A,#0 ADD A,YEAR1 DA A MOV YEAR1,A NOPP:AJMP OUT1 NK2:CJNE A,#2,NK3 INC YEAR1 MOV A,#0 ADD A,YEAR1 DA A MOV YEAR1,A AJMP OUT1 NK3:CJNE A,#3,NK4 //若是3号键，天减1 MOV A,#0 ADD A,DAY DA A MOV DAY,A LCALL JW2 AJMP OUT1 NK4:CJNE A,#4,NK5 DEC MON MOV A,MON A