转速表计数器的设计制作之程序代码.doc

BZW0 EQU 20H BZW1 EQU BZW0+1 Hour EQU BZW1+1 Minuter EQU HOUR+1 FLASHBIT EQU MINUTER+1 ; =55H show no flash ; =03H show led8 flash ; =02H show led7 flash ; =01H show led6 flash ; =00H show led5 flash KEYFLAG EQU FLASHBIT+1 ; D0=1 show PRG Down ; D1=1 show YZ Down ; D2=1 show JST Down Zszl EQU KEYFLAG+1 Zszh EQU Zszl+1 Yzszl EQU Zszh+1 Yzszh EQU Yzszl+1 Jszl EQU Yzszh+1 Jszh EQU Jszl+1 AAL00 EQU Jszh+1 AAH00 EQU AAL00+1 YZSZL1 EQU AAH00+1 YZSZH1 EQU YZSZL1+1 JSZL1 EQU YZSZH1+1 JSZH1 EQU JSZL1+1 Disbuf0 EQU JSZH1+1 ;Disbuf0-Disbuf3 display number or Couner Disbuf1 EQU Disbuf0+1 Disbuf2 EQU Disbuf1+1 Disbuf3 EQU Disbuf2+1 Disbuf4 EQU Disbuf3+1 ;Disbuf4-Disbuf7 display time or speed Disbuf5 EQU Disbuf4+1 Disbuf6 EQU Disbuf5+1 Disbuf7 EQU Disbuf6+1 Zscs EQU Disbuf7+1 DDcs1 EQU Zscs+1 DDcs2 EQU DDcs1+1 KEYCOU EQU DDCS2+1 FLASHFLAG EQU KEYCOU+1 FLASHC EQU FLASHFLAG+1 JSZL10 EQU FLASHC+1 JSZH10 EQU JSZL10+1 JSZL11 EQU JSZH10+1 JSZH11 EQU JSZL11+1 STAKk EQU JSZH11+1 stakkk equ stakk+1 stak equ stakkk+1 ywk1equ stak+1ywk2equ ywk1+1ywk3equ ywk2+1ywk4equ ywk3+1ywk5equ ywk4+1ywk6equ ywk5+1ywk7equ ywk6+1ywk8equ ywk7+1ywk9equ ywk8+1ywk10equ ywk9+1ywk11equ ywk10+1ywk12equ ywk11+1ywk13equ ywk12+1ywk14equ ywk13+1ywk15equ ywk14+1ywkendequ ywk15+1check equ stak ORG 0000H LJMP START ORG 0003H CLR EX0 RETI ORG 000BH LJMP TIME0 ORG 0013H CLR EX1 RETI ORG 001BH LJMP TIME1 ORG 0023H ljmp ssint ORG 00100H START: MOV R0, #0 MOV R1, #0 LOOP: DJNZ R1, LOOP DJNZ R0, LOOP MOV IE, #00H MOV SP, #STAK MOV TMOD, #16H MOV R0, #20H MOV R1, #STAK-20H CLR A Clear: MOV R0, A INC R0 djnz R1, Clear MOV TL0, #0FFH MOV TH0, #0FFH MOV TL1, #0f0H MOV TH1, #0d8H mov 0cdh, #0ffh mov 0cch, #0eeh mov 0cbh, #0ffh mov 0cah, #0eeh mov scon, #50h mov 0c8h, #34h MOV ZSCS, #64H SETB EA SETB ES SETB TR1 SETB ET1 SETB ET0 SETB TR0 lcall read1 mov a, check lcall read lcall readsum SETB BZW1.2 MAIN: LCALL KEY LCALL DATT LCALL SENDZS LCALL SENDYZ LCALL SENDJS LCALL CONTROL LCALL DISPLAY LJMP MAIN KEY: MOV A, P3 JNB P3.7,yz JNB P3.6, JST jnb p0.4,abcjmp abcdabc:lcall ywxsabcd: MOV KEYCOU, #0 CLR BZW1.0 LJMP KEYRET YZ: MOV KEYFLAG, #02H INC KEYCOU MOV A, KEYCOU CJNE A, #10H, KEYRET jb bzw0.1, keyret MOV A, stakk INC A CJNE A, #0AH, YZZ MOV A, #00H YZZ: MOV stakk, A lcall write lcall readsum SETB BZW1.2 LJMP KEYRETJST: MOV KEYFLAG, #04H INC KEYCOU MOV A, KEYCOU CJNE A, #10H, KEYRET CLR BZW1.2 JB BZW0.1, JST23 SETB BZW0.1 CLR BZW0.5 MOV R0, #AAL00 MOV R5, #02H CLR ACLEAR1: MOV R0, A INC R0 DJNZ R5, CLEAR1 LJMP KEYRETJST23: CLR BZW0.1 SETB BZW0.3 SETB BZW1.1 KEYRET: RET DATT: JNB BZW0.1, DATT3 MOV R5, AAH00 MOV R4, AAL00 MOV R3, #00H MOV R2, #60 LCALL DUDIV MOV JSZH10, R5 MOV JSZL10, R4 MOV YZSZL1, YZSZL MOV YZSZH1, YZSZH MOV JSZL11, JSZL10 MOV JSZH11, JSZH10 MOV R0, #YZSZL1 MOV R1, #JSZL11 MOV R3, #02H LCALL MSUB JB BZW0.7, DATT22 MOV A, R0 INC R0 ORL A, R0 CJNE A,#00H, DATT3 DATT22: CLR BZW0.1 SETB BZW0.3 DATT3: JB BZW0.5, DATT31 LJMP DATTRET DATT31: CLR BZW0.5 MOV A, ZSZL MOV B, ZSZH ORL A, B CJNE A, #00H, DATT310 JB BZW0.4, DATT32 CLR BZW0.6 MOV DDCS1, #0C8H MOV DDCS2, #12H SETB BZW0.4 SJMP DATTRET DATT310: CLR BZW0.4 SETB BZW0.0 CLR BZW0.2 MOV FLASHBIT, #55H SJMP DATTRET DATT32: JNB BZW0.6, DATTRET CLR BZW0.0 DATTRET: RET MSUB: CLR BZW0.7 MOV A, R0 MOV R2, A MOV A, R3 MOV R7, A CLR C LP0: MOV A, R0 SUBB A, R1 MOV R0, A INC R0 INC R1 DJNZ R7, LP0 JNC LP1 SETB BZW0.7 LP1: MOV A, R2 MOV R0, A RET TIME0: PUSH Acc PUSH PSW MOV A, #01H CLR C ADD A, JSZL MOV JSZL, A CLR A ADDC A, JSZH MOV JSZH, A JNB BZW0.1, TIME01 MOV A, #01H CLR C ADD A, AAL00 MOV AAL00, A CLR A ADDC A, AAH00 MOV AAH00, A TIME01: POP PSW POP Acc RETI TIME1: PUSH Acc PUSH PSW MOV TH1, #0d8H MOV TL1, #0f0H DJNZ ZSCS, TIME1RET SETB BZW0.5 MOV ZSZH, JSZH MOV ZSZL, JSZL MOV JSZL, #00H MOV JSZH, #00H MOV ZSCS, #64H TIME1RET: POP PSW POP Acc RETI SENDZS: JNB BZW0.0, SZRET MOV R2, ZSZL MOV R3, ZSZH LCALL B16BCD MOV A, R4 ANL A, #0FH MOV DISBUF3, A MOV A, R4 ANL A, #0F0H SWAP A MOV DISBUF2, A MOV A, R5 ANL A, #0FH MOV DISBUF1, A MOV A, R5 ANL A, #0F0H SWAP A MOV DISBUF0, A SZRET: RET SENDYZ: JNB BZW1.2, SYRET MOV R2, YZSZL MOV R3, YZSZH LCALL B16BCD LCALL SEND SYRET: RET SENDJS: JB BZW1.2, SJRET MOV R2, JSZL10 MOV R3, JSZH10 LCALL B16BCD LCALL SEND SJRET: RET DISPLAY: mov a,disbuf0 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00000001b lcall delay1 mov p2,#00000000b mov a,disbuf1 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00000010b lcall delay1 mov p2,#00000000b mov a,disbuf2 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00000100b lcall delay1 mov p2,#00000000b mov a,disbuf3 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00001000b lcall delay1 mov p2,#00000000b mov a,disbuf4 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00010000b lcall delay1 mov p2,#00000000b mov a,disbuf5 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#00100000b lcall delay1 mov p2,#00000000b mov a,disbuf6 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#01000000b lcall delay1 mov p2,#00000000b mov a,disbuf7 mov dptr,#seg movc a,a+dptr mov p1,a mov p2,#10000000b lcall delay1 mov p2,#00000000b RET ; (00) (01) (02) (03) (04) SEG: DB 03FH,006H,05BH,04FH,066H ; (05) (06) (07) (08) (09) DB 06DH,07DH,007H,07FH,06FH DELAY1: MOV R1, #0A0H DEL11: NOP DJNZ R1, DEL11 RET CONTROL: JB BZW0.1, CON1 SETB P3.5 LJMP CONRET CON1: CLR P3.5 CONRET: RET B16BCD: CLR A MOV R4, A MOV R5, A MOV R6, A MOV R7, #10H LDP: CLR C MOV A, R2 RLC A MOV R2, A MOV A, R3 RLC A MOV R3, A MOV A, R4 ADDC A, R4 DA A MOV R4, A MOV A, R5 ADDC A, R5 DA A MOV R5, A MOV A, R6 ADDC A, R6 DA A MOV R6, A DJNZ R7, LDP RET SEND: MOV A, R4 ANL A, #0FH MOV DISBUF7, A MOV A, R4 ANL A, #0F0H SWAP A MOV DISBUF6, A MOV A, R5 ANL A, #0FH MOV DISBUF5, A MOV A, R5 ANL A, #0F0H SWAP A MOV DISBUF4, A RET DUDIV:CLR A MOV R7, A MOV R6, A MOV R0, #10H DIVLP:CLR C MOV A, R4 RLC A MOV R4, A MOV A, R5 RLC A MOV R5, A MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A MOV R7, A DIVLP1: MOV A, R6 SUBB A, R2 MOV R1, A MOV A, R7 SUBB A, R3 JC SMALL MOV R7, A MOV A, R1 MOV R6, A INC R4 SJMP DIVLP1 SMALL:DJNZ R0, DIVLP MOV A, R7 JB ACC.7, ADD1 CLR C MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A SUBB A, R3 JC RETURN JNZ ADD1 MOV A, R6 SUBB A, R2 JC RETURN ADD1: MOV A, R4 CLR C ADD A, #01H MOV R4, A MOV A, R5 ADDC A, #00H MOV R5, A RETURN: RETREAD1: LCALL BEGN MOV A, #0A0H LCALL TB MOV A, #20H LCALL TB lcall begn LCALL BEGN mov a, #0a1h LCALL TB LCALL RB MOV check, A CLR P3.3 SETB P3.2 NOP NOP SETB P3.3 NOP NOP LCALL STOP RET READ: LCALL BEGN MOV A, #0A0H LCALL TB MOV A, #10H LCALL TB lcall begn LCALL BEGN mov a, #0a1h LCALL TB LCALL RB MOV STAKK, A CLR P3.3 SETB P3.2 NOP NOP SETB P3.3 NOP NOP LCALL STOP RET WRITE: LCALL BEGN MOV A, #0A0H LCALL TB MOV A, #10H LCALL TB MOV A, stakk LCALL TB MOV A, stakkk LCALL TB LCALL STOP RET TB: MOV R6, #08H TB1: CLR P3.3 NOP RLC A MOV P3.2, C SETB P3.3 NOP DJNZ R6, TB1 CLR P3.3 setb p3.2 nop nop SETB P3.3 tb2: mov a, p3 JB P3.2, TB2 RET RB: MOV R7, #08H CLR P3.3 SETB P3.2 NOP NOP RB1: SETB P3.3 NOP MOV C, P3.2 RLC A CLR P3.3 NOP DJNZ R7, RB1 RET BEGN: SETB P3.3 SETB P3.2 CLR P3.2 NOP NOP CLR P3.3 RET STOP: CLR P3.3 CLR P3.2 NOP NOP SETB P3.3 SETB P3.2 RET readsum: mov a, stakk mov r5, A CLR C SUBB A, #0AH JC CJL3 CLR A SJMP CJL31 CJL3: MOV A, R5 CJL31: MOV DPTR, #SUMABB MOV R0, A CLR C ADD A, R0 MOV R0, A MOVC A, A+DPTR MOV YZSZL, A MOV A, R0 INC A MOVC A, A+DPTR MOV YZSZH, A RET SUMABB: DB 64H, 00H, 0C8H, 00H, 2CH, 01H DB 90H, 01H, 0F4H, 01H, 58H, 02H DB 0BCH, 02H, 20H, 03H, 84H, 03H, 0E8H, 03H ssint: nop clr es push acc push psw jNb RI , sin sjmp sin1 sin: ajmp sint sin1: mov a, sbuf clr ri cjne a,#74h, sin2 sjmp sin3 sin2: ajmp sint sin3: mov sbuf, #74h jnb ti, $ clr ti nop mov sbuf , disbuf0 jnb ti , $ clr ti nop mov sbuf , disbuf1 jnb ti , $ clr ti nop mov sbuf , disbuf2 jnb ti , $ clr ti nop mov sbuf , disbuf3 jnb ti , $ clr ti nop nop mov sbuf, disbuf4 jnb ti, $ clr ti nop NOP mov sbuf, disbuf5 jnb ti, $ clr ti nop mov sbuf, disbuf6 jnb ti, $ clr ti nop nop mov sbuf ,disbuf7 jnb ti, $ clr ti nop ljmp sint SINT: nop pop psw pop acc clr ti clr ri setb es retiywxs: lcall delay1 jb p0.4,abc1jmp abcd1abc1:retabcd1: jnb p0.4,$ lcall main0 retRESET:NOPL0:CLR p0.7MOV R2,#200L1:NOPDJNZ R2,L1SETB p0.7MOV R2,#30L4:DJNZ R2,L4CLR CORL C,p0.7JC L3MOV R6,#80L5:ORL C,p0.7JC L3DJNZ R6,L5SJMP L0L3:MOV R2,#250L2:DJNZ R2,L2RETWRITE00:MOV R3,#8WR1:SETB p0.7MOV R4,#8RRC ACLR p0.7WR2:DJNZ R4,WR2MOV p0.7,CMOV R4,#20WR3:DJNZ R4,WR3DJNZ R3,WR1SETB p0.7RETREAD00:MOV R6,#8RE1:CLR p0.7MOV R4,#6NOPSETB p0.7RE2:DJNZ R4,RE2MOV C,p0.7RRC AMOV R5,#30RE3:DJNZ R5,RE3DJNZ R6,RE1MOV 3DH,ASETB p0.7RETDEL1000:MOV ywk1,#08HDEL100:MOV ywk2,#0FAHDEL10:MOV ywk3,#0FAHDEL1:DJNZ ywk3,DEL1DJNZ ywk2,DEL100DJNZ ywk1,DEL1000RETMAIN0:clr tr0clr tr1MOV SP,#60HCLR RS1CLR RS0MOV ywk4,#0B0HRDTMP:CLR RS1CLR RS0LCALL RESETMOV A,#0CCHLCALL WRITE00M