历史上的今天
今天是：2024年10月19日（星期六）
2019年10月19日 | PIC16F877A单片机led的动态显示
2019-10-19 来源：eefocus
list p=16F877A,R=DEC
include "p16F877A.inc"
;;;;;user variables;;;;;;;;
Count2 equ 23H
Count3 equ 24H
data_out1 equ 25H
data_out2 equ 26H
;;;;;;;reset vector;;;;;;;;;
org 0x00
goto mainline
;;;;;;delay program;;;;;;;
delay_2ms
movlw 0x05
movwf Count2
lp0 movlw 0xff
movwf Count3
lp1 decfsz Count3,F
goto lp1
decfsz Count2,F
goto lp0
return
delay_250ms
movlw 0x41
movwf Count2
movlw 0xff
movwf Count3
decfsz Count3,F
goto $-1
decfsz Count2,F
goto $-5
movlw 0xff
movwf Count2
movlw 0xff
movwf Count3
decfsz Count3,F
goto $-1
decfsz Count2,F
goto $-5
return
;;;;;;main program;;;;;;;;;
mainline
banksel TRISA
movlw 0x00
movwf TRISA
movlw 0xff
movwf TRISB
movlw 0x00
movwf TRISC
movwf TRISD
movwf TRISE
banksel PORTA
movlw 0x00
movwf PORTA
movwf PORTB
movwf PORTC
movwf PORTD
movwf PORTE
banksel INTCON
bcf INTCON,PEIE
lp
btfsc PORTB,0
goto lp
call delay_250ms
wait1
btfss PORTB,2
goto led1
btfss PORTB,3
goto led2
goto wait1
lp2
movf PORTA,W
movwf data_out1
L2
btfsc PORTB,1
goto L2
call delay_250ms
wait2
btfss PORTB,2
goto led3
btfss PORTB,3
goto led4
goto wait2
led1
call delay_250ms
movlw 0x00
movwf PORTA
movlw 0x01
movwf PORTA
movlw 0xfe
movwf PORTC
goto lp2
led2
call delay_250ms
movlw 0x00
movwf PORTA
movlw 0x02
movwf PORTA
movlw 0xfe
movwf PORTC
goto lp2
led3
call delay_250ms
movlw 0x01
movwf PORTA
movlw 0xfd
movwf PORTC
call delay_2ms
banksel PORTC
movlw 0x00
movwf PORTC
movlw 0xfe
movwf PORTC
movf data_out1,W
movwf PORTA
call delay_2ms
call delay_2ms
led4
call delay_250ms
movlw 0x02
movwf PORTA
movlw 0xfd
movwf PORTC
call delay_2ms
banksel PORTC
movlw 0x00
movwf PORTC
movlw 0xfe
movwf PORTC
movf data_out1,W
movwf PORTA
call delay_2ms
end
下一篇:PIC单片机的LCD例程1
史海拾趣
|
采用飞思卡尔公司最近推出的一站式连接解决方案MCF52259，80MHZ主频，属于coldfire处理器系列的v2核心，在整个coldfire系列中算是低端-中端的过度产品，跟现在热门的STM32高端产品在一个水平线上。这次的开发板支持以下功能： 支持一路4线RS232（T ...… 查看全部问答＞ |
|
本帖最后由 paulhyde 于 2014-9-15 09:19 编辑 图1的电路是一种利用市电交流信号、达林顿光耦合器和斯密特整形电路组成的100Hz方波发生器。交流电通过变压器T1降压，二极管D1～D4整流形成脉动的电压，为光耦离器TIL119的光发射二极管D5提供发射电 ...… 查看全部问答＞ |
|
SQL Server Compact 3.5+wince开发，现在碰到个问题 菜鸟一枚，刚弄wince开发。现在碰到一个在很多老鸟看来很简单的问题，我想问一下。 参照MSDN的做法，在wince窗体上拖了sdf文件。由于本机的wince仿真程序有问题，就直接生成解决方案，然后把bin目录下的exe文件和该sdf文件拿到wince设备下调试，但 ...… 查看全部问答＞ |
|
//任意整数倍的分频器module CLK_Division(CLK_In,CLK_In_N,CLK_Out); input CLK_In; input [31:0] CLK_In_N; output CLK_Out;&nbs ...… 查看全部问答＞ |