; Copyright (c) 1998,
MICROCHIP Technology Inc
;PIC单片机 www.pic16.com
;*******************************************
TITLE "PS7219 TEST" ；标题
LIST
P=16C711 ；处理器为PIC16C711单片机
#INCLUDE
P16c711.INC
TIMER1 EQU H'000C'
；定义延时寄存器
TIMER2 EQU H'000D'
SENT_ADDRESS EQU H'000E' ；定义发送地址寄存器
SENT_DATA EQU H'000F' ；定义发送数据寄存器
LED1 EQU H'0010'
LED2 EQU H'0011'
LED3 EQU H'0012'
LED4 EQU H'0013'
LED5 EQU H'0014'
LED6 EQU H'0015'
LED7 EQU H'0016'
LED8 EQU H'0017'
COUNT EQU H'0018'
NO_OP EQU 0X00
；定义控制寄存器
DIGIT1 EQU 0X01
DIGIT2
EQU 0X02
DIGIT3 EQU 0X03
DIGIT4
EQU 0X04
DIGIT5 EQU 0X05
DIGIT6
EQU 0X06
DIGIT7 EQU 0X07
DIGIT8
EQU 0X08
DECODE EQU 0X09
INTSEN
EQU 0X0A
SCAN EQU 0X0B
SHUT EQU
0X0C
FLASH EQU 0X0D
DISPLAY EQU
0X0F
LOAD EQU 0 ；通讯引脚定义
DOUT EQU 1
CLK EQU 2
ORG 0
GOTO START ；程序开始
ORG
H'0010'
;*************************
; 延时子程序
;*************************
T1
MOVLW 33 ；延时子程序T1
MOVWF
TIMER1
DEL_LOP
CLRWDT
DECFSZ TIMER1,1
GOTO DEL_LOP
RETURN
T2
MOVLW
0X04 ；延时子程序T2
MOVWF TIMER1
MOVLW
0XFF
LOOP2
MOVWF TIMER2
LOOP1
CLRWDT
DECFSZ
TIMER2,1
GOTO LOOP1
DECFSZ
TIMER1,1
GOTO LOOP2
RETURN
SEND
MOVLW 8
；数据传送子程序SEND
MOVWF COUNT
BCF
PORTA,LOAD ；初始化LOAD引脚
CALL T1
SET_LP1
BCF STATUS,C ；发送8位地址
BSF PORTA,CLK
RLF SENT_ADDRESS,1
BCF PORTA,DOUT
BTFSC STATUS,C
BSF PORTA,DOUT
BCF PORTA,CLK
CALL T1 ；调用延时子程序T1
DECFSZ COUNT,1
；COUNT减一为1零则结束传送
GOTO SET_LP1
BSF
PORTA,CLK
MOVLW 8
MOVWF COUNT
BSF PORTA,LOAD
SET_LP2
BCF
STATUS,C ；发送8位数据
BSF PORTA,CLK
RLF
SENT_DATA,1
BCF PORTA,DOUT
BTFSC
STATUS,C
BSF PORTA,DOUT
BCF
PORTA,CLK
CALL T1 ；调用延时子程序T1
DECFSZ COUNT,1 ；COUNT减一为零则结束传送
GOTO SET_LP2
BSF PORTA,CLK
CALL T1
BSF PORTA,LOAD
BSF
PORTA,DOUT
RETURN ；子程序返回
START
BSF STATUS,RP0 ；主程序
MOVLW 0X18
MOVWF TRISA
MOVLW 0XFF
MOVWF TRISB
BCF
STATUS,RP0
CALL T1
CALL T1
MOVLW 0X12
MOVWF PORTA
BCF
PORTA,LOAD
CON_COM
CALL T1
；初始化PS7219内部RAM
MOVLW 0X0A ；设置亮度为最亮
MOVWF SENT_ADDRESS
MOVLW 0X0F
MOVWF SENT_DATA
CALL SEND
；调用串行通讯子程序
CALL T1
MOVLW 0X0B
；设置扫描界线为8位
MOVWF SENT_ADDRESS
MOVLW 0X07
MOVWF SENT_DATA
CALL SEND ；调用串行通讯子程序
CALL T1
MOVLW 0X09 ；设置每位译码方式为BCD译码
MOVWF
SENT_ADDRESS
MOVLW 0XFF
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X0C ；设置工作方式为正常
MOVWF
SENT_ADDRESS
MOVLW 0X01
MOVWF
SENT_DATA
CALL SEND
LED_CON
CALL T1 ；LED显示控制部分
MOVLW 0X01 ；LED1显示为1
MOVWF
SENT_ADDRESS
MOVLW 0X01
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X02 ；LED2显示为2
MOVWF
SENT_ADDRESS
MOVLW 0X02
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X03 ；LED3显示为3
MOVWF
SENT_ADDRESS
MOVLW 0X03
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X04 ；LED4显示为4
MOVWF
SENT_ADDRESS
MOVLW 0X04
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X05 ；LED5显示为5
MOVWF
SENT_ADDRESS
MOVLW 0X05
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X06 ；LED6显示为6
MOVWF
SENT_ADDRESS
MOVLW 0X06
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X07 ；LED7显示为7
MOVWF
SENT_ADDRESS
MOVLW 0X07
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X08 ；LED8显示为8
MOVWF
SENT_ADDRESS
MOVLW 0X08
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X0F ；进入测试模式
MOVWF
SENT_ADDRESS
MOVLW 0X01
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X0F ；退出测试模式
MOVWF
SENT_ADDRESS
MOVLW 0X00
MOVWF
SENT_DATA
CALL SEND
CALL T1
MOVLW 0X0D ；使能8位LED闪烁
MOVWF
SENT_ADDRESS
MOVLW 0XFF
MOVWF
SENT_DATA
CALL SEND
FINISH CLRWDT
；清Watch Dog
GOTO FINISH
END ；结束 PIC单片机 www.pic16.com 返回
|
