text1.asm

IO口蜂鸣器输出频率的采集

T0IN BIT P3.2
CHANGESIGN BIT 20H
JISHIH EQU 10H
JISHIL EQU 11H
BEISHU EQU 12H
JIESHU EQU 13H
SHUJU1 EQU 14H
SHUJU2 EQU 15H



ORG 0000H
LJMP START
ORG 0003H
LJMP INT0BREAK
ORG 000BH
LJMP T0BREAK




ORG 0100H

START:     MOV TMOD,#00101001B
           MOV SCON,#01000000B
           MOV TH0,#00H
	        MOV TL0,#00H
	        MOV TH1,#0FDH
	        MOV TL1,#0FDH
			  MOV R2,#05
	        MOV SHUJU1,#00H
	        CLR CHANGESIGN
			  SETB T0IN 
           SETB TR1
			  SETB TR0
	        SETB IT0			  
			  SETB ET0
			  SETB EX0
			  SETB EA
			  LJMP MAIN

MAIN:     JNB CHANGESIGN,MAIN 
          CLR CHANGESIGN
          MOV SBUF,SHUJU1
          JNB TI,$
          CLR TI
			 LJMP MAIN
          

INT0BREAK:MOV JISHIH,TH0
			 MOV JISHIL,TL0
			 MOV TH0,#00H
			 MOV TL0,#00H
JUDGENEXT:MOV A,JISHIH
			 CLR C
			 SUBB A,#04H
			 JC JUDGENEXT1   
			 MOV A,JISHIH
			 CLR C
			 SUBB A,#05H
			 JNC YIZHU
 			 MOV A,JISHIL
			 CLR C
			 SUBB A,#36H
			 JC JUDGENEXT1
			 LJMP YIZHU



JUDGENEXT1:MOV A,JISHIH
           CLR C
			  SUBB A,#02H
			  JC JUDGENEXT2
			  MOV A,JISHIH
			  CLR C
			  SUBB A,#03H
			  JNC ERZHU
			  MOV A,JISHIL
			  CLR C
			  SUBB A,#1BH
			  JC JUDGENEXT2
			  LJMP ERZHU


JUDGENEXT2:MOV A,JISHIH
           CLR C
			  SUBB A,#01H
			  JC SHIZHU
			  MOV A,JISHIH
			  CLR C
			  SUBB A,#02H
			  JNC SANZHU
			  MOV A,JISHIL
			  CLR C
			  SUBB A,#0DH
			  JC SHIZHU
			  LJMP SANZHU

SHIZHU:MOV BEISHU,#01H
       LJMP CHULI
SANZHU:MOV BEISHU,#02H
       LJMP CHULI
ERZHU:MOV BEISHU,#03H
       LJMP CHULI
YIZHU:MOV BEISHU,#04H
       LJMP CHULI

CHULI:    MOV R0,BEISHU
CHULIXX:  DJNZ R0,CHULI12
			 LJMP JUDGEOOXX
CHULI12:  MOV A,JISHIH
          CLR C
			 RRC A
			 MOV JISHIH,A
			 MOV A,JISHIL
			 RRC A
			 MOV JISHIL,A
			 LJMP CHULIXX
JUDGEOOXX:  MOV A,JISHIH
            CLR C
            SUBB A,#01H
            JNC L12JI
            MOV A,JISHIL
            CLR C
				SUBB A,#254
				JNC L12JI
				MOV A,JISHIL
				CLR C
				SUBB A,#241
				JNC L11JI
				MOV A,JISHIL
				CLR C
				SUBB A,#227
				JNC L10JI
				MOV A,JISHIL
				CLR C
				SUBB A,#213
				JNC L9JI
				MOV A,JISHIL
				CLR C
				SUBB A,#201
				JNC L8JI
				MOV A,JISHIL
				CLR C
				SUBB A,#190
				JNC L7JI
				MOV A,JISHIL
				CLR C
				SUBB A,#179
				JNC L6JI
				MOV A,JISHIL
				CLR C
				SUBB A,#169
				JNC L5JI
				MOV A,JISHIL
				CLR C
				SUBB A,#160
				JNC L4JI
				MOV A,JISHIL
				CLR C
				SUBB A,#151
				JNC L3JI
				MOV A,JISHIL
				CLR C
				SUBB A,#142
				JNC L2JI
				LJMP L1JI
L12JI:       MOV JIESHU,#12
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L11JI:       MOV JIESHU,#11
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L10JI:       MOV JIESHU,#10
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L9JI:        MOV JIESHU,#9
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L8JI:        MOV JIESHU,#8
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L7JI:        MOV JIESHU,#7
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L6JI:        MOV JIESHU,#6
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L5JI:        MOV JIESHU,#5
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L4JI:        MOV JIESHU,#4
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L3JI:        MOV JIESHU,#3
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L2JI:        MOV JIESHU,#2
             LCALL JUDGEYINJIE
				 LJMP CHUNRU
L1JI:        MOV JIESHU,#1
             LCALL JUDGEYINJIE
				 LJMP CHUNRU

JUDGEYINJIE: MOV R0,BEISHU
LOOP23:      DJNZ R0,JUDGE12
				 LJMP OUTIOIJO
JUDGE12:     MOV A,JIESHU
             ADD A,#12
				 MOV JIESHU,A
				 LJMP LOOP23
OUTIOIJO:    RET

CHUNRU:      MOV A,JIESHU
             CJNE A,SHUJU1,DIFFENT
             LJMP OUTINT0

DIFFENT:     MOV A,JIESHU
             CJNE A,SHUJU2,DIFFENT1
				 DJNZ R2,OUTINT0				 
             MOV SHUJU1,JIESHU
             SETB CHANGESIGN
             LJMP OUTINT0


DIFFENT1:    MOV SHUJU2,JIESHU
             MOV R2,#2
             LJMP OUTINT0




OUTINT0:     RETI

  

T0BREAK:   MOV TH0,#00H
           MOV TL0,#00H
			  RETI
			  












END