电子发烧友

本帖最后由 和哈哈哈和 于 2012-12-9 20:54 编辑 DISPBUF EQU 5AH SecCoun EQU 59HSpCoun EQU 57H ?Count EQU 56H SpCalc bit 00h Hidden EQU 16 ORG 0000HAJMP STARTORG 1BHJMP TIMER1ORG 30HSTART: MOV SP,#5FH MOV P1,#0FFH MOV P0,#0FFH MOV P2,#0FFH MOV TMOD,#00010101BMOV TH1,#HIGH(65536-5000) MOV TL1,#LOW(65536-5000) SETB TR1 SETB ET1 SETB EALOOP:JNB SpCalc ,LOOP MOV R2,SpCoun MOV R3,SpCoun+1 MOV R6,#0 MOV R7,#60 call MULDMULD:MOV A,R3 MOV B,R7 MUL AB MOV R4,B MOV R5,A MOV A,R3 MOV B,R6 MUL AB ADD A,R4 MOV R4,A CLR A ADDC A,B MOV R3,A MOV A,R2 MOV B,R7 MUL AB ADD A,R4 MOV R4,A MOV A,R3 ADDC A,B MOV R3,A CLR A RLC A XCH A,R2 MOV B,R6 MUL AB ADD A,R3 MOV R3,A MOV A,R2 ADDC A,B MOV R2,A RET MOV A,R4 MOV R6,A MOV A,R5 MOV R7,A CALL HB2 HB2: CLR A MOV R3,A MOV R4,A MOV R5,A MOV R2,#10HHB3: MOV A,R7 RLC A MOV R7,A MOV A,R6 RLC A MOV R6,A MOV A,R5 ADDC A,R5 DA A MOV R5,A MOV A,R4 ADDC A,R4 DA A MOV R4,A MOV A,R3 ADDC A,R3 MOV R3,A DJNZ R2,HB2 RET CBCD: MOV DISPBUF,R3 MOV A,R4 ;ANL A,#0F0H SWAP A MOV DISPBUF+1,AMOV A,R4ANL A,#0FHMOV DISPBUF+2,AMOV A,R5ANL A,#0F0HSWAP AMOV DISPBUF+3,AMOV A,R5ANL A,#0FHMOV DISPBUF+4,ACLR SpCalc JMP LOOPTIMER1: PUSH ACCPUSH PSW SETB RS0 JNB TR0,SETTR0 JMP GO1SETTR0:SETB TR0GO1: INC SecCoun MOV A,SecCounCJNE A,#251,Go2 CLR TR0 MOV SpCoun,TH0MOV SpCoun+1,TL0 CLR AMOV TH0,AMOV TL0,A SETB SpCalc MOV SecCoun,#0Go2: INC COUNTMOV A,COUNTCLR CSUBB A,#6JZ N1JMP N2N1: MOV COUNT,#0N2: MOV A,#DISPBUF ADD A,COUNT MOV R0,A MOV A,@R0 MOV DPTR,#DISPTAB MOVC A,@A+DPTR MOV P0,A MOV A,COUNT MOV DPTR,#BitTab MOVC A,@A+DPTR ORL P2,#11110000B ANL P2,A MOV TH1,#HIGH(65536-5000) MOV TL1,#LOW(65536-5000) POP PSW POP ACCSETB RS0 RETIBitTab: DB 07Fh,0BFH,0DFH,0EFH,0F7H,0FBHDISPTAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90HEND

2012-12-08 23:45

1.关于单片机的时钟电路3. 恳请高手帮忙看看，单片机测速仪程序和仿真图。不显示3.初学者在和同学做51的课题，有关程序的问题4. 关于电源匹配的问题 5. stc90c516rd+输出引脚驱动光耦

2012-12-10 10:23

  在道路上，交警手上的测速仪是个很好的工具，你知道它是怎么工作的吗？目前国际上流行的交警测速仪有激光测速仪和雷达测速仪两种，那么这两种

2010-12-02 10:03

有没有大神有 基于单片机的自行车测速仪表的程序

2016-12-24 16:01