PIC16F73编写的门禁读卡器解码并显示的源程序.doc

所使用编译器的版本，HI-TECH PICC Version 9.50PL1（正版）本例是一个用PIC16F73编写的门禁读卡器解码并显示的源程序;门禁读卡头为韦根26编码格式，数据“0为DATAO线上出现400US的低电平加2000US的高电平; 数据”1为DATA1线上出现400US的低电平加2000US的高电平; 无数据输出时DATA0,DATA1线上为高电平;晶振4MHZ;*LIST P=16F73,R=DEC ;定义器件为16F73，默认数制为十进制#INCLUDE#DEFINE DATE164 PORTA,0 ;定义164数据位#DEFINE CLK164 PORTA,1 ;定义164时钟位 #DEFINE ENABLE164 PORTA,2 ;定义164显示使能位;中断保护寄存器W_TEMP EQU 20H ;W中间寄存器STATUS_TEMP EQU 21H ;STATUS中间寄存器;延时寄存器COUNT0_DELAY EQU 22H ;延时记数用寄存器COUNT1_DELAY EQU 23H ;显示寄存器DATE_ZJ EQU 24H ;显示数据寄存器TEMP_JZ EQU 25H ;显示间址寄存器BZ_TEMP EQU 26H ;刷新标志寄存器COUNT_FMBCD EQU 27H ;发码次数寄存器QIAN EQU 28H ;显示千位寄存器BAI EQU 29H ;百SHI EQU 2AH ;十GE EQU 2BH ;个;移位数据寄存器TEMP_YIWEI EQU 2DH;韦根解码寄存器TEMP_QIAN EQU 30H ;韦根解码数据寄存器TEMP_BAI EQU 31HTEMP_SHI EQU 32HTEMP_GE EQU 33HCOUNT_WG EQU 34H ;韦根数据位数寄存器;-数制转换寄存器DATE_7 EQU 35H DATE_6 EQU 36HDATE_5 EQU 37HDATE_4 EQU 38HDATE_3 EQU 39HDATE_2 EQU 3AHDATE_1 EQU 3BH;- ORG 00H NOP GOTO START;-中断子程序- ORG 04HPBDPZD MOVWF W_TEMP ;现场保护 SWAPF STATUS,0 MOVWF STATUS_TEMP CALL SHUJU_JS;-INEND BCF INTCON,RBIF ;清PORTB中断标志位 SWAPF STATUS_TEMP,W ;恢复中断前STATUS，W的值 MOVWF STATUS SWAPF W_TEMP,1 SWAPF W_TEMP,0 ;（用SWAPF才不会影响STATUS的值） RETFIE;-显示代码表-TB ADDWF PCL,1 RETLW 03H ;0 RETLW 9FH ;1 RETLW 25H ;2 RETLW 0DH ;3 RETLW 99H ;4 RETLW 49H ;5 RETLW 0C1H ;6 RETLW 1FH ;7 RETLW 01H ;8 RETLW 19H ;9 RETLW 11H ;A RETLW 0C1H ;B RETLW 63H ;C RETLW 0A1H ;D RETLW 61H ;E RETLW 71H ;F RETLW 0FFH ;关显示 RETURN;!;-主程序-;! ORG 60HSTART;-寄存器全部清零 MOVLW 20H MOVWF FSRST: CLRF 00H INCF FSR,1 BTFSS FSR,6 GOTO ST ;- BCF STATUS,RP0 ;选体0 BCF STATUS,RP1 ; CLRF PORTA ;清RA,RB,RC口 CLRF PORTB CLRF PORTC;- BSF STATUS,RP0 ;选体1 MOVLW 06H MOVWF ADCON1 ;RA口设置为普通I/O口 MOVLW 00H MOVWF TRISA ;RA口设置为输出口 MOVLW 0FFH MOVWF TRISB ;RB口设置为输入口 MOVLW 06H MOVWF TRISC ;CCP1,CCP2为输入口 BCF STATUS,RP0 ;恢复体0;-程序测试子程序（初始显示1234) MOVLW 01H ;1 MOVWF QIAN MOVLW 02H ;2 MOVWF BAI MOVLW 03H ;3 MOVWF SHI MOVLW 04H ;4 MOVWF GE CALL XIANSHI;- BCF INTCON,RBIF BSF INTCON,RBIE ;开RB口电平中断 BSF INTCON,GIE ;开总中断;*;*主程序内核*MAIN NOP MOVLW 1AH ;设置韦根解码位数 MOVWF COUNT_WG BTFSS PORTB,1 ;判断是否需要移位操作 CALL AJYW BTFSS PORTB,2 ;判断是否需要显示转换 CALL XSZH BTFSC BZ_TEMP,0 ;判断是否需要数制转换 CALL BINZHEX BTFSC BZ_TEMP,1 ;判断是否需要显示刷新 CALL XIANSHI GOTO MAIN;*;=数据接收子程序=SHUJU_JS CLRF TEMP_GE ;清韦根解码数据寄存器 CLRF TEMP_SHI CLRF TEMP_BAI CLRF TEMP_QIAN CLRF TMR1L ;清TMR1寄存器 CLRF TMR1H CLRF T1CON ;TMR1计数分配比1:1 BCF PIR1,TMR1IF ;清TMR1中断标志位;- BTFSS PORTB,6 ;判断数据是0? GOTO SHUJU_JS0L BTFSS PORTB,7 ;判断数据是1? GOTO SHUJU_JS1L GOTO SHUJU_WAN;-数据0SHUJU_JS0L BCF T1CON,TMR1ON ;关闭TMR1 CLRF TMR1L ;清TMR1寄存器 CLRF TMR1H BSF T1CON,TMR1ON ;启动TMR1 BTFSC PIR1,TMR1IF ;如TMR1计数溢出则是错误接收 GOTO SHUJU_WAN BTFSS PORTB,6 GOTO $-3 BCF STATUS,C ;将数据0压入数据寄存器 RLF TEMP_GE,1 RLF TEMP_SHI,1 RLF TEMP_BAI,1 RLF TEMP_QIAN,1 DECFSZ COUNT_WG,1 ;判断26位数据是否接收完毕 GOTO SHUJU_JSH ;未接收完毕则转向测高电平脉宽 GOTO SHUJU_BZ ;数据接收完毕则置刷新标志位;-数据1SHUJU_JS1L BCF T1CON,TMR1ON ;关闭TMR1 CLRF TMR1L ;清TMR1寄存器 CLRF TMR1H BSF T1CON,TMR1ON ;启动TMR1 BTFSC PIR1,TMR1IF ;如TMR1计数溢出则是错误接收 GOTO SHUJU_WAN BTFSS PORTB,7 GOTO $-3 BSF STATUS,C ;将数据1压入数据寄存器 RLF TEMP_GE,1 RLF TEMP_SHI,1 RLF TEMP_BAI,1 RLF TEMP_QIAN,1 DECFSZ COUNT_WG,1 ;判断26位数据是否接收完毕 GOTO SHUJU_JSH ;未接收完毕则转向测高电平脉宽 GOTO SHUJU_BZ ;数据接收完毕则置刷新标志位;-测高电平脉宽SHUJU_JSH BCF T1CON,TMR1ON ;关闭TMR1 CLRF TMR1L ;清TMR1寄存器 CLRF TMR1H BSF T1CON,TMR1ON ;启动TMR1SHUJU_JSH_1 BTFSC PIR1,TMR1IF ;如TMR1计数溢出则是错误接收 GOTO SHUJU_WAN BTFSS PORTB,6 GOTO SHUJU_JS0L BTFSS PORTB,7 GOTO SHUJU_JS1L GOTO SHUJU_JSH_1;-SHUJU_BZ BSF BZ_TEMP,0 ;置数制转换标志位 SHUJU_WAN RETURN;-二进制转十六进制码-BINZHEX BCF BZ_TEMP,0 ;清数制转换标志位 MOVLW 03H ;取TEMP_QIAN的低二位存入DATE_7 ANDWF TEMP_QIAN,0 MOVWF DATE_7;- MOVLW 0F0H ;取TEMP_BAI的高四位存入DATA_6 ANDWF TEMP_BAI,0 MOVWF DATE_6 SWAPF DATE_6,1 MOVLW 0FH ;取TEMP_BAI的低四位存入DATE_5 ANDWF TEMP_BAI,0 MOVWF DATE_5;- MOVLW 0F0H ;取TEMP_SHI的高四位存入DATA_4 ANDWF TEMP_SHI,0 MOVWF DATE_4 SWAPF DATE_4,1 MOVLW 0FH ;取TEMP_SHI的低四位存入DATE_3 ANDWF TEMP_SHI,0 MOVWF DATE_3;- MOVLW 0F0H ;取TEMP_GE的高四位存入DATA_2 ANDWF TEMP_GE,0 MOVWF DATE_2 SWAPF DATE_2,1 MOVLW 0FH ;取TEMP_GE的低四位存入DATE_1 ANDWF TEMP_GE,0 MOVWF DATE_1;- MOVF DATE_7,0 MOVWF QIAN MOVF DATE_6,0 MOVWF BAI MOVF DATE_5,0 MOVWF SHI MOVF DATE_4,0 MOVWF GE;- BINZHEX_WAN BSF BZ_TEMP,1 ;置刷新标志位 RETURN;=移位显示子程序=AJYW CALL DELAY20MS ;延时判断按键的有效性 BTFSC PORTB,1 GOTO AJYW_WAN ;是干扰则返回主程序 BTFSS PORTB,1 ;判断按键是否松开 GOTO $-1 MOVF QIAN,0 ;进行移位操作 MOVWF TEMP_YIWEI MOVF BAI,0 MOVWF QIAN MOVF SHI,0 MOVWF BAI MOVF GE,0 MOVWF SHI MOVF TEMP_YIWEI,0 MOVWF GE BSF BZ_TEMP,1 ;置刷新标志位AJYW_WAN RETURN ;=显示转换子程序=XSZH CALL DELAY20MS ;延时判断按键的有效性 BTFSC PORTB,2 GOTO XSZH_WAN ;是干扰则返回主程序 BTFSS PORTB,2 ;判断按键是否松开 GOTO $-1;- BTFSC BZ_TEMP,2 ;判断韦根显示标志位 GOTO XSZH_1;-显示韦根数据的低三位 BSF BZ_TEMP,2 ;韦根显示标志位取反 MOVF DATE_1,0 MOVWF GE MOVF DATE_2,0 MOVWF SHI MOVF DATE_3,0 MOVWF BAI MOVLW 10H MOVWF QIAN GOTO XSZH_2;- 显示韦根数据的高四位XSZH_1 BCF BZ_TEMP,2 ;韦根显示标志位取反 MOVF DATE_7,0 MOVWF QIAN MOVF DATE_6,0 MOVWF BAI MOVF DATE_5,0 MOVWF SHI MOVF DATE_4,0 MOVWF GE;-XSZH_2 BSF BZ_TEMP,1 ;置刷新标志位XSZH_WAN RETURN ;=显示子程序=XIANSHI BCF BZ_TEMP,1 ;清刷新标志位 MOVLW 28H MOVWF TEMP_JZXIANSHI_1 BTFSC TEMP_JZ,2 GOTO XIANSHI_WAN MOVF TEMP_JZ,0 MOVWF FSR MOVF 00H,0 CALL TB MOVWF DATE_ZJ CALL FSBCD INCF TEMP_JZ,1 GOTO XIANSHI_1 XIANSHI_WAN RETURN;*BCD码发送子程序*FSBCD MOVLW 08H ;发送循环次数 MOVWF COUNT_FMBCD BCF ENABLE164 ;关显示 BCF STATUS,0FSBCD_1 BCF CLK164 RLF DATE_ZJ,1 BTFSS STATUS,0 GOTO FSBCD_2 BSF DATE164 GOTO FSBCD_3FSBCD_2 BCF DATE164 NOPFSBCD_3 BSF CLK164 ;产生时钟上升沿 DECFSZ COUNT_FMBCD,1 ;发送完毕否? GOTO FSBCD_1 BSF ENABLE164 ;开显示 RETURN ;=延时20MS子程序=DELAY20MS MOVLW 28H MOVWF COUNT0_DELAYDELAY20MS_1 MOVLW 5DH MOVWF COUNT1_DELAY DECFSZ COUNT1_DELAY,1 GOTO $-1 DECFSZ COUNT0_DELAY,1 GOTO DELAY20MS_1 RETURN;- ENDPIC16F73的遥控器程序默认分类 2008-04-28 09:51:38 阅读29 评论0 字号：大中小订阅 include COUNT EQU 20HCOUNT1 EQU 21HCOUNT2 EQU 22H ADDRES EQU 23H SENDBUF EQU 24H ;存键值TXBUF EQU 25HMM EQU 26H ;10MS DELAYNN EQU 27HAA EQU 28H ; DELAY1BB EQU 29HTVDATA EQU 2AH ;= ORG 10HSTART BSF STATUS,RP0 MOVLW B11111111 ;RA4频道下翻 MOVWF TRISA MOVLW B00000001 MOVWF TRISB ;RB0频道上翻 RB1 LED MOVLW B11111110 MOVWF TRISC ;RC0 红外输出BCF STATUS,RP0 ; BCF PORTC,0 ;红外输出口 BSF PORTB,1 ;复位时RB1 LED闪二下，表示工作正常。CALL DELAY1BCF PORTB,1CALL DELAY1BSF PORTB,1CALL DELAY1BCF PORTB,1CALL DELAY1;=键扫描=MAIN BTFSS PORTB,0 ;RB0频道上翻 GOTO SCHUP ;PORTB常态是高电平，低电平有键按下。BTFSS PORTA,4 ;RA4频道下翻 GOTO SCHDOWN GOTO MAIN ;=频道上翻=SCHUP CALL DELAY ;键去抖BTFSC PORTB,0 GOTO MAIN BTFSS PORTB,0 ;键释放？GOTO $-1BSF PORTB,1;MOVLW B00110100 ;TV ADRESS（写入自己的彩电地址码）MOVWF ADDRESMOVLW B00000001 ;TV DATAMOVWF TVDATACALL SEND ;发送一次红外信号MOVLW B00110100 ;TV ADRESSMOVWF ADDRESMOVLW B00000001 ;TV DATAMOVWF TVDATACALL SEND ;发送一次红外信号GOTO MAIN;=频道下翻=SCHDOWN CALL DELAY ;键去抖BTFSC PORTA,4 GOTO MAIN BTFSS PORTA,4 ;键释放？GOTO $-1BSF PORTA,4;MOVLW B00110100 ;TV ADRESSMOVWF ADDRESMOVLW B00000010 ;TV DATAMOVWF TVDATACALL SEND ;发送一次红外信号MOVLW B00110100 ;TV ADRESSMOVWF ADDRESMOVLW B00000010 ;TV DATAMOVWF TVDATACALL SEND ;发送一次红外信号GOTO MAIN;=发送8.07mS+4.0MS组成的头码= （一般是9MS+4.5MS）SEND MOVLW 0XFFCALL POUSE MOVLW 0X34 CALL POUSE ;4.0MS MOVLW 0XC8 CALL DELAY2 ;=发送地址= MOVF ADDRES,0 CALL TVADDRESS;=中间插一断560uS+4MS低= MOVLW 0X14 CALL POUSE MOVLW 0XC8 CALL DELAY2 ;=发送数据= MOVF TVDATA,0 CALL TVADDRESS;=结尾560US POUSE+22.7MS低电平= MOVLW 0X13 CALL POUSE BCF PORTC,0 CALL DELAY ;3MSCALL DELAY ;3MSCALL DELAY ;3MSCALL DELAY ;3MSCALL DELAY ;3MSCALL DELAY ;3MSCALL DELAY ;3MSRETURN ;=560uS 高38K频=POUSE MOVWF COUNT ;560uS=0X14K38 BSF PORTC,0 ;(0XFF+ 0X34)*26.9=8.07mS NOP ;(0XFF+ 0X4E)*26.9=9mS NOP NOP NOP NOP NOP NOP NOP NOP NOP BCF PORTC,0 NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DECFSZ COUNT,1 GOTO K38RETURN;=发送TV地址和数据码= TVADDRESS MOVWF TXBUF ;注意PC示波器先收到的是低位！ MOVLW 0X08 MOVWF COUNT1TLP BTFSC TXBUF,0 ;地址码为0就发0，为1就发1。 GOTO IDONE;=TV 发送0子程序= MOVLW 0X14 MOVWF COUNT ; 560uSTVZERO BSF PORTC,0 NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP BCF PORTC,0 NOP NOP NOP NOP NOP NOP NOP NOP