恳请高手帮忙看看，单片机测速仪程序和仿真图。不显示...

2019-07-16 03:15发布

本帖最后由和哈哈哈和于 2012-12-9 20:54 编辑

DISPBUF EQU 5AH
SecCoun EQU 59H
SpCoun EQU 57H ?
Count EQU 56H
SpCalc bit 00h
Hidden EQU 16
ORG 0000H
AJMP START
ORG 1BH
JMP tiMER1
ORG 30H
START: MOV SP,#5FH
   MOV P1,#0FFH
   MOV P0,#0FFH
   MOV P2,#0FFH
   MOV TMOD,#00010101B
MOV TH1,#HIGH(65536-5000)
   MOV TL1,#LOW(65536-5000)
   SETB TR1
   SETB ET1
   SETB EA
LOOP:JNB SpCalc ,LOOP

   MOV R2,SpCoun
   MOV R3,SpCoun+1
   MOV R6,#0
   MOV R7,#60
   call MULD
MULD:  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,#10H
HB3: 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,A
   MOV A,R4
   ANL A,#0FH
   MOV DISPBUF+2,A
   MOV A,R5
   ANL A,#0F0H
   SWAP A
   MOV DISPBUF+3,A
   MOV A,R5
   ANL A,#0FH
   MOV DISPBUF+4,A
   CLR SpCalc
   JMP LOOP
TIMER1: PUSH ACC
      PUSH PSW
      SETB RS0
      JNB TR0,SETTR0
      JMP GO1
SETTR0:
      SETB TR0
GO1: INC SecCoun
   MOV A,SecCoun
   CJNE A,#251,Go2
   CLR TR0
   MOV SpCoun,TH0
   MOV SpCoun+1,TL0
   CLR A
   MOV TH0,A
   MOV TL0,A
   SETB SpCalc
   MOV SecCoun,#0
Go2: INC COUNT
   MOV A,COUNT
   CLR C
   SUBB A,#6
   JZ N1
   JMP N2
N1: MOV COUNT,#0
N2: 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 ACC
  SETB RS0
RETI
BitTab: DB 07Fh,0BFH,0DFH,0EFH,0F7H,0FBH
DISPTAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END