×
本程序是用51单片机来软件解码pt2262编码，是一个无线服务呼叫器的代码已经成功的在产品的应用，有LED显示.
并有原理图与pcb文件以及完整的代码提供下载：
http://www.51hei.com/ziliao/file/37724122PT2272.rar
APP下载
登录
; =========================================================
; ================================================================
; PT2272 模拟解码器（接收来自射频解码模块的2262格式串行数据流）
; 管理三位数码管显示器
; 利用AT24C32实现堆栈式掉电缓存保护，通过特殊的清除发射器清除堆栈
; 显示器具有两级亮度变化
; 具有蜂鸣器，新的编码收到后，蜂鸣器鸣响2/3次，显示器高亮，三秒后正常
;
; CPU: AT89C2051@12MHz
;
; COPYRIGHT yanggt@163.net SEP 9, 2004
; ===============================================================
; ===================================================================
EESIZE EQU 32768 ;EEPROM容量(32768/16384/8192/4096/2048/1024/512)
PWDF EQU 50H ;EEPROM中用于标识历史记录有效
MYA0_3 EQU 00010101B ;有效识别码，不匹配则不响应
MYCLRL EQU 00H ;主控手机编码值（目前为 0000H）
MYCLRH EQU 00H ;根据A4-A11计算得到(00 D7 D6 D5 D4 D3 D2 D1)(D0)
BELONT EQU 40 ;声音鸣响时间
BELOFT EQU 20 ;静音时间
SCL BIT P3.0 ;AT24C32（4K字节）
SDA BIT P3.1
SIGPIN BIT P3.2 ;接收信号入口
BELL BIT P3.3 ;蜂鸣器控制
VSEL BIT P1.0 ;LED亮度选择，H=高亮度
U0E BIT P3.5 ;个位LED位选
U1E BIT P3.4 ;十位LED位选
U2E BIT P3.7 ;百位LED位选
BELLSW BIT 78H ;蜂鸣器运行期间=1
EEEMPTY BIT 79H ;EEPROM空标志
BELLON BIT 7AH ;通知蜂鸣器鸣响
CODEOK BIT 7BH ;收到的编码正确
TMK250 BIT 7CH ;250us标志，每250us置位一次
SIGING BIT 7DH ;手机发射信号正在持续=1,无信号=0
LEDHIGH BIT 7EH ;显示器亮度标志=0：正常；=1：高亮
TOUTMK BIT 7FH ;显示器降低亮度时间已到=1
RBUF81 DATA 20H ;后8位第一次采样结果A4-A11
RBUF82 DATA 21H ;后8位第二次采样结果A4-A11
RBUF44 DATA 22H ;前4位第12次采样结果A0-A3
SIGPOT DATA 23H ;接收引脚上次电平，直接保存P3口全部内容
SIGMSK EQU 04H ;SIG----P3.2
TCNTL DATA 24H ;定时计数器（4ms时基）
TCNTH DATA 25H
TMX16 DATA 26H ;16*250=4000us=4ms
BELLTM DATA 27H ;鸣响时间
DBUF0 DATA 28H ;个位显示缓冲区
DBUF1 DATA 29H ;十位
DBUF2 DATA 2AH ;百位
EEPTRL DATA 2BH ;EEPROM当前位置指针
EEPTRH DATA 2CH
EEPOL DATA 2DH ;保存清除指针
EEPOH DATA 2EH ;
RES2F DATA 2FH ;使用其中的标志位
EEBUF DATA 30H ;30-37H, I2C缓冲区
BELLCNT DATA 38H ;鸣响次数计数器（3/2/1）
BELLTMK DATA 39H
CODEL DATA 40H ;接收到编码低位
CODEH DATA 41H ; 高位
CODELK DATA 42H ;保存上一个编码
CODEHK DATA 43H ;
CODE1L DATA 44H
CODE1H DATA 45H
; =======================================================
; =============================================================
ORG 0000H
LJMP START
; ===================================================================
; 250us进入一次，每16次(4ms)切换一次显示位
; ==================================================================
ORG 000BH ;定时器0中断入口，独占 R7
TM0SUB: SETB TMK250
TM0_4MS:DJNZ TMX16, TM0_E
MOV TMX16, #10H
JNB BELLSW, TM0_CLY
DJNZ BELLTM, TM0_CLY
SETB BELLON
TM0_CLY:JB TOUTMK, TM0_0 ;每4ms执行一次
DJNZ TCNTL, TM0_0
DJNZ TCNTH, TM0_0
SETB TOUTMK
TM0_0: CJNE R7, #0, TM0_1 ;当前显示位
CLR U2E
MOV P1, DBUF0
INC R7
SETB U0E
RETI
TM0_1: CJNE R7, #1, TM0_2
CLR U0E
MOV P1, DBUF1
INC R7
SETB U1E
RETI
TM0_2: CLR U1E
MOV P1, DBUF2
MOV R7, #0
SETB U2E
RETI
TM0_E: RETI
; ===============================================================
; =======================================================
START: MOV P1, #00H ;关闭显示器，正常亮度
CLR BELLON
CLR BELL
ACALL EECHK ;检查EEPROM，确定指针，提取其中最后一个历史记录号码
ACALL TOBUF
MOV TMX16, #10H ;中断计数寄存器置初始值16
SETB TOUTMK ;延迟定时器处于停止状态
CLR U0E
CLR U1E
CLR U2E
MOV R7, #00H ;从第一位开始显示
MOV TMOD, #12H ;TIMER0, MODE 2, TIMER1, MODE 1
MOV TL0, #06H
MOV TH0, #06H ;时间=250us
SETB TR0
SETB ET0
SETB EA
MOV A, #6-1 ;开机时蜂鸣器自动鸣响
ACALL BELL_S
MOV BELLTM, #BELONT-20
ACALL LEDOFF
CLR LEDHIGH ;关闭高亮度
MOV SIGPOT, #00H ;假设开始时接收引脚=0
CLR SIGING
SETB F0
;=--=--=--=--=--=--=--=--=--=--==--=--=--=--=--=--
MAIN: JNB BELLSW, MAIN_S0
ACALL BELL_M
MAIN_S0:JNB LEDHIGH, MAIN_00 ;显示器普通亮度，不检查标志
JNB TOUTMK, MAIN_0
ACALL LEDOFF ;显示器回到正常亮度
CLR LEDHIGH
JB EEEMPTY, MAIN_0 ;没有尚未确认的编码
AJMP MAIN_01
MAIN_00:JB EEEMPTY, MAIN_0 ;没有尚未确认的编码
JNB TOUTMK, MAIN_0
MOV A, #2-1
ACALL BELL_S ;鸣响
MAIN_01:MOV TCNTL, #LOW(5000/4) ;高亮度持续3000ms=3s后恢复
MOV TCNTH, #HIGH(5000/4)
CLR TOUTMK
MOV BELLTM, #30
MAIN_0: MOV A, P3 ;监视SIG引脚电平变化
XCH A, SIGPOT
XRL A, SIGPOT
ANL A, #SIGMSK
JZ MAIN ;A=0表示引脚电平无变化
SETB F0
ACALL GETCOD ;开始接收，出错后直接返回
JC MAIN ;接收代码无效，舍弃。
ACALL FIND
JC MAIN ;C=1，表示代码无效，什么也不发生
MOV CODE1L, CODEL
MOV CODE1H, CODEH
CLR F0
ACALL GETCOD ;开始接收，出错后直接返回
SETB F0
JC MAIN ;接收代码无效，舍弃。
ACALL FIND
JC MAIN ;C=1，表示代码无效，什么也不发生
MOV B, A
MOV A, CODE1L
XRL A, CODEL
JNZ MAIN_0D
MOV A, CODE1H
XRL A, CODEH
JZ MAIN_0C
MAIN_0D:MOV CODE1L, CODEL
MOV CODE1H, CODEH
CLR F0
ACALL GETCOD ;开始接收，出错后直接返回
SETB F0
JC MAIN ;接收代码无效，舍弃。
ACALL FIND
JC MAIN ;C=1，表示代码无效，什么也不发生
MOV B, A
MOV A, CODE1L
XRL A, CODEL
JNZ MAIN_E
MOV A, CODE1H
XRL A, CODEH
JNZ MAIN_E
MAIN_0C:MOV A, B
JNZ MAIN_1 ;A=1：主控手机，转去退栈
MOV BELLCNT, #4-1
MOV A, CODEL
XRL A, CODELK
JNZ MAIN_0A
MOV A, CODEH
XRL A, CODEHK
JZ MAIN_0B
;这里可以进行编码过滤=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MAIN_0A:MOV BELLCNT, #6-1
ACALL EEPUSH ;其他手机，转去保存、显示
ACALL TOBUF
MAIN_0B:SETB TOUTMK
MOV TCNTL, #LOW(3000/4) ;高亮度持续3000ms=3s后恢复
MOV TCNTH, #HIGH(3000/4)
CLR TOUTMK
SETB LEDHIGH ;显示器进入高亮状态
MOV A, BELLCNT
ACALL BELL_S ;鸣响
MOV BELLTM, #BELONT
AJMP MAIN
MAIN_1: MOV A, CODEL ;核对手机号码
XRL A, #MYCLRL
JNZ MAIN_E
MOV A, CODEH
XRL A, #MYCLRH
JNZ MAIN_E
ACALL EEPOP ;执行退栈操作
MAIN_E: AJMP MAIN
; =============================================================
; 主程序结束
; ============================================================
BELL_S: MOV BELLCNT, A
SETB BELLSW
SETB BELL
RET
; ===============================================================
BELL_M: JBC BELLON, BELLM
RET
BELLM: MOV A, BELLCNT
BELLM0: JNB ACC.0, BELLM1
MOV BELLTM, #BELOFT ;A.0=1,正在鸣响，应该关闭
CLR BELL
AJMP BELLM9
BELLM1: MOV BELLTM, #BELONT ;静音状态，应该打开
SETB BELL
BELLM9: DJNZ BELLCNT, BELLME
CLR BELLSW
CLR BELL
BELLME: RET
; ===================================================================
LEDOFF: ANL DBUF0, #0FEH
ANL DBUF1, #0FEH
ANL DBUF2, #0FEH
RET
; ================================================================
; ============================================================
TM1SET: CLR TR1 ;1,ACALL=2
CLR TF1 ;1
MOV TL1, DPL ;2
MOV TH1, DPH ;2
SETB TR1 ;1
RET ;2, TOTAL=2+1+1+2+2+1+2=11us
; =====================================================================
; 接收代码，收到两个相同的编码即认可。
; 发射结束后接收下一个。
; =============================================================
GETCOD: NOP
GETC_S: MOV DPTR, #65535-50000 ;在50ms内搜索至少持续4ms的低电平 [***]
ACALL TM1SET
GETC_S0:MOV R6, #16 ;16*250us=4000us=4ms
GETC_S1:CLR TMK250
GETC_S2:JB TF1, GETC_E ;这里超时认为目前无发射器工作，或上次发射已结束。
JB SIGPIN, GETC_S0
JNB TMK250, GETC_S2
DJNZ R6, GETC_S1
MOV R5, #4*2 ;首先接收A0-A3，共4位，8个采样点
MOV DPTR, #65535-8000 ;在接下来的8ms内必须出现上升沿 [***]
ACALL TM1SET
GETC_0: JB TF1, GETC_E ;这里超时认为目前无发射器工作，或上次发射已结束。
JNB SIGPIN, GETC_0
; JB SIGING, GETC_F ;上次发射尚未结束，直接返回，不接收编码。
; AJMP GETC_20
JNB SIGING, GETC_20 ;上次发射尚未结束，直接返回，不接收编码。
JNB F0, GETC_20
AJMP GETC_F
GETC_1P:MOV DPTR, #65535-1250+11+2 ;在接下来的1250us内必须出现低电平 [***]
ACALL TM1SET
GETC_1: JB TF1, GETC_F ;超时
JB SIGPIN, GETC_1
MOV DPTR, #65535-1250+11+2 ;在接下来的1250us内必须出现上升沿 [***]
ACALL TM1SET
GETC_2: JB TF1, GETC_F ;超时
JNB SIGPIN, GETC_2
GETC_20:MOV DPTR, #65535-500+11+2 ;固定延迟500us后采样
ACALL TM1SET
JNB TF1, $
MOV C, SIGPIN ;采样接收信号
MOV A, RBUF44
RLC A
MOV RBUF44, A
DJNZ R5, GETC_1P ;循环接收4个数据位，进行8次采样
MOV R5, #8*2 ;接收A4-A11，共8个数据位，16个采样点
MOV R0, #RBUF81 ;RBUF81存放第一次采样值
GETC_3P:MOV DPTR, #65535-1250+11+2 ;在接下来的1250us内必须出现低电平 [***]
ACALL TM1SET
GETC_3: JB TF1, GETC_F ;超时
JB SIGPIN, GETC_3
MOV DPTR, #65535-1250+11+2 ;在接下来的1250us内必须出现上升沿 [***]
ACALL TM1SET
GETC_4: JB TF1, GETC_F ;超时
JNB SIGPIN, GETC_4
GETC_40:MOV DPTR, #65535-500+11+2 ;固定延迟500us后采样
ACALL TM1SET
JNB TF1, $
MOV C, SIGPIN ;采样接收信号
MOV A, @R0
RLC A
MOV @R0, A
XRL 00H, #RBUF81 ;在RBUF81和RBUF82之间切换
XRL 00H, #RBUF82
DJNZ R5, GETC_3P ;循环接收8个数据位，进行16次采样
SETB SIGING
CLR C
RET
GETC_E: CLR SIGING
GETC_F: SETB C
RET
; ===========================================================
; ===============================================================
FIND: MOV A, RBUF44 ;分析代码
CJNE A, #MYA0_3, FIND_E
MOV R4, RBUF81
MOV R5, RBUF82
MOV R6, #7
MOV R0, #00H
MOV R1, #00H
FIND_L: MOV A, R0 ;结果乘以 3
CLR C
RLC A
MOV B, A
MOV A, R1
RLC A
XCH A, B
ADD A, R0
MOV R0, A
MOV A, B
ADDC A, R1
MOV R1, A ;结果乘以 3 结束
MOV A, R4
RLC A
MOV R4, A ;D7-->C
MOV A, R5
RL A
MOV R5, A
ANL A, #01H ;D7-->A.0
ADDC A, R0 ;A.0+C+R0
MOV R0, A
MOV A, R1
ADDC A, #00H
MOV R1, A
DJNZ R6, FIND_L ;确定A4-A10的编码结果
CLR A
MOV C, RBUF81.0 ;分析代码，确定是否主控手机
MOV ACC.0, C
MOV C, RBUF82.0
ADDC A, #00H ;A=(0,1,2)。A=0:非主控手机；A=1:主控手机；A=2:无效手机
JB ACC.1, FIND_E ;A=2!
MOV CODEL, R0
MOV CODEH, R1
CLR C
RET ;A=0/1
FIND_E: SETB C
RET
; ===============================================================
; ======================================================================
EECHK: MOV EEPTRL, #00H ;0000H记录不用，因为0000H用于判断EEPROM是否空
MOV EEPTRH, #00H
MOV EEBUF, #00H
MOV EEBUF+1, #00H
EECHK0: MOV CODEL, EEBUF ;放到编码缓冲区
MOV CODEH, EEBUF+1
ANL CODEH, #0FH
MOV DPL, EEPTRL ;读取栈底的两个字节
MOV DPH, EEPTRH
INC DPTR
INC DPTR ;指向下一个记录，但是暂时不修改指针
MOV A, DPH
ADD A, #HIGH(65536-EESIZE) ;???
JC EECHK9 ;已经检查完所有记录空间。
MOV EEPOL, DPL
MOV EEPOH, DPH ;暂时保存在这里
MOV R0, #EEBUF
MOV B, #02H
ACALL I2CD_R
MOV A, EEBUF+1
ANL A, #0F0H
XRL A, #PWDF
JNZ EECHK9
MOV EEPTRL, EEPOL
MOV EEPTRH, EEPOH
AJMP EECHK0
EECHK9: CLR EEEMPTY ;假设非空
MOV A, EEPTRL
ORL A, EEPTRH
JNZ EECHKE
SETB EEEMPTY ;声明EEPROM空
EECHKE: RET
; =======================================================================
; =============================================================
EEPUSH: MOV EEBUF, CODEL ;写入EEPROM栈，采用实栈顶
MOV EEBUF+1, CODEH
ORL EEBUF+1, #PWDF ;标志，50H
MOV DPL, EEPTRL
MOV DPH, EEPTRH
INC DPTR ;每个记录进入，指针加 2
INC DPTR
MOV A, DPH ;进行堆栈溢出检查
ADD A, #HIGH(65536-EESIZE)
JC EEPUSHE
ANL DPL, #0FEH
MOV EEPTRL, DPL
MOV EEPTRH, DPH
MOV R0, #EEBUF
MOV B, #02H
ACALL I2CD_W
CLR EEEMPTY ;声明EEPROM非空
EEPUSHE:RET
; ============================================================
; ================================================================
EEPOP: MOV A, EEPTRL ;EEPROM退出操作
ORL A, EEPTRH
JZ EEPOPB
EEPOP0: MOV EEPOL, EEPTRL
MOV EEPOH, EEPTRH
CLR C ;指针减 2，指向上一个数据
MOV A, EEPTRL
SUBB A, #02H
MOV EEPTRL, A
MOV A, EEPTRH
SUBB A, #00H
MOV EEPTRH, A ;指针已经更新
MOV A, EEPTRL ;检查退出一个记录后，堆栈是否变空？
ORL A, EEPTRH
JNZ EEPOP1
MOV CODEL, A
MOV CODEH, A
SETB EEEMPTY ;声明EEPROM空
AJMP EEPOP9
EEPOP1: MOV DPL, EEPTRL ;读取栈顶记录
MOV DPH, EEPTRH
MOV R0, #EEBUF
MOV B, #02H
ACALL I2CD_R
MOV CODEL, EEBUF ;放到编码缓冲区
MOV CODEH, EEBUF+1
ANL CODEH, #0FH ;屏蔽掉标志
EEPOP9: MOV EEBUF, #00H ;清除刚才已经退栈的记录
MOV EEBUF+1, #00H
MOV DPL, EEPOL
MOV DPH, EEPOH
MOV R0, #EEBUF
MOV B, #02H
ACALL I2CD_W
ACALL TOBUF ;送到显示缓冲区
ACALL LEDOFF
EEPOPB: MOV A, #2-1
ACALL BELL_S ;鸣响
; MOV BELLTM, #30
EEPOPE: RET
; ======================================================
; =====================================================================
TOBUF: MOV A, CODEL ;填写显示缓冲区
MOV B, CODEH ;/100
MOV R2, #00H
TOBUF_0:CLR C
SUBB A, #100
XCH A, B
SUBB A, #00H
XCH A, B
JC TOBUF_8
INC R2
AJMP TOBUF_0
TOBUF_8:ADD A, #100
MOV B, #10
DIV AB
MOV DPTR, #FONT
MOVC A, @A+DPTR
MOV DBUF1, A
MOV A, B
MOVC A, @A+DPTR
MOV DBUF0, A
MOV A, R2
MOVC A, @A+DPTR
MOV DBUF2, A
MOV CODELK, CODEL
MOV CODEHK, CODEH
RET
; =================================================================
; ===========================================================
DELAY: PUSH ACC ;延迟时间=A*10ms
MOV A, #20
DLY1: PUSH ACC
MOV A, #250
DJNZ ACC, $ ;500us
POP ACC
DJNZ ACC, DLY1
POP ACC
DJNZ ACC, DELAY
RET
;======= I2C 子程序 =========================================
; I2CD_W, I2CD_R ;LAYER 1
; I2C_O, I2C_I ;LAYER 2
; I2C_BG, I2C_ED ;LAYER 3
;==========================================================
; 向存储器写入几个字节，最多8个字节。
; 入口：DPTR 要写的EEPROM存储单元地址。
; R0 指向要写入字节在RAM的首地址。
; B 写入字节个数。
; 出口：如果 C=1,说明写出错。
I2CD_W: ACALL I2C_BG
MOV A, #10100000B ;写命令
ACALL I2C_O
JC I2CD_WE ;C=1, 未收到 ACK 位，出错,不再继续处理，直接返回
MOV A, DPH
ACALL I2C_O
JC I2CD_WE
MOV A, DPL
ACALL I2C_O
JC I2CD_WE
I2CD_WL:MOV A, @R0
ACALL I2C_O
JC I2CD_WE
INC R0
DJNZ B, I2CD_WL
ACALL I2C_ED
CLR C
RET
I2CD_WE:ACALL I2C_ED
SETB C
RET
; ========================================================
; 从 EEPROM 读入几个字节
; 入口：DPTR 要读的存储单元地址。
; R0 指向要读缓冲区在RAM的首地址。
; B 读入字节个数。
; 出口：读到的内容在缓冲区中，如果 C=1,说明读出错。
I2CD_R: ACALL I2C_BG
MOV A, #10100000B ;先发送[写]命令
ACALL I2C_O
JC I2CD_RE ;C=1, 未收到 ACK 位，出错,不再继续处理，直接返回
MOV A, DPH ;发送地址低位
ACALL I2C_O
JC I2CD_RE
MOV A, DPL ;发送地址低位
ACALL I2C_O
JC I2CD_RE
ACALL I2C_BG
MOV A, #10100001B ;发送读命令
ACALL I2C_O
JC I2CD_RE
I2CD_IB:MOV DPL, #08H ;取得一个字节
SETB SDA
I2CD_IL:SETB SCL ;SCL=1
NOP
MOV C, SDA ;MCU 采样 SDA，送到 C 中
RLC A ;C->ACC.0
CLR SCL ;SCL=0
DJNZ DPL, I2CD_IL ;得到的一个字节在 ACC 中
MOV @R0, A
INC R0
MOV A, B
XRL A, #01H
JZ I2CD_GO
CLR SDA
NOP
I2CD_GO:SETB SCL
NOP
CLR SCL
DJNZ B, I2CD_IB ;取得不止一个字节
ACALL I2C_ED
CLR C
RET
I2CD_RE:ACALL I2C_ED
SETB C
RET
; =================================================================
;向 IIC 总线发送一个字节
I2C_O: PUSH B
MOV B, #08H
I2C_OLP:RLC A ;ACC.7 -> C
MOV SDA, C
SETB SCL ;SCL=1
NOP
CLR SCL ;SCL=0
DJNZ B, I2C_OLP
SETB SDA ;准备接收 ACK 位
SETB SCL ;SCL=1, [SDA=1]
NOP
MOV C, SDA
CLR SCL
POP B
RET ;C=1, 未收到 ACK 位，出错, C=0, 收到 ACK 位，正常
; =====================================================
I2C_BG: SETB SCL ;确保SCL=HIGH
CLR SDA ;向 IIC 总线发送开始位
NOP
CLR SCL
RET
; =========================================================================================
I2C_ED: CLR SDA
SETB SCL
NOP
SETB SDA ;向 IIC 总线发送停止位
RET
; ================================================================
;最好显示000-999=1000个，否则容易造成误解，这里显示全部2187个，0-9,A-F,H,L,P,U,Y
; ==============================================================
FONT: DB 0FDH ;"0"
DB 061H ;"1"
DB 0DBH ;"2"
DB 0F3H ;"3"
DB 067H ;"4"
DB 0B7H ;"5"
DB 0BFH ;"6"
DB 0E1H ;"7"
DB 0FFH ;"8"
DB 0F7H ;"9"
DB 0EFH ;"A"
DB 03FH ;"B"
DB 09DH ;"C"
DB 07BH ;"D"
DB 09FH ;"E"
DB 08FH ;"F"
DB 06FH ;"H"
DB 071H ;"J"
DB 01DH ;"L"
DB 0CFH ;"P"
DB 07DH ;"U"
DB 077H ;"Y"
; ==================================================
END
『本文转载自网络,版权归原作者所有,如有侵权请联系删除』
热门文章
更多
如何升级STM32单片机的代码
