会员注册
发布信息

PIC单片机在ICD1上做LED灯的循环闪烁程序
    本程序是一个LED灯的循环闪烁程序,用INT键来切换*
;* 闪烁模式 *
;*************************************************
include
;*----
MODESEL equ 20h
MODESELB equ 21h
Count equ 22h
Count1 equ 23h
Count2 equ 24h
PORTDB equ 25h

;*-----

org 0
goto start
org 4
goto ISR

org 10
start
clrf PORTD ;清D口
movlw 00h
movwf MODESEL ;初始化模式选择寄存器
movwf MODESELB
movlw b'10010000'
movwf INTCON ;初始化中断控制
bsf STATUS,RP0
clrf TRISD ;设D口全为输出
movlw b'10111111'
OPTION ;选择INT下降沿有效

bcf STATUS,RP0
call FMsel
movwf PORTDB
movwf PORTD
main btfsc PORTB,0 ;\
goto $+6 ; \
call Delay ; 按键去抖动
btfsc PORTB,0
goto $+3 ; /
call FMsel ;/
movwf PORTDB
movf MODESELB,W ;
movwf MODESEL ;
call LongDelay
bcf STATUS,C
rlf PORTDB,1
btfsc STATUS,C
bsf PORTDB,0
movf PORTDB,W
movwf PORTD
goto main

;*----------
Delay ; call指令占用2个指令周期
clrf Count ; 清 Count占用1个指令周期
Dloop
decfsz Count,f ; 这两行指令将延时
goto Dloop ; (256 * 3) -1 个指令周期
return ; return占用2个指令周期

;*----------------
LongDelay
clrf Count
clrf Count1
movlw 0x01
movwf Count2
LDloop
decfsz Count,f
goto LDloop
decfsz Count1,f
goto LDloop
decfsz Count2,f
goto LDloop
return

;*---------------
FMsel
movf MODESEL,w
movwf MODESELB
movf MODESEL,w
addwf PCL
retlw b'11111000'
retlw b'11110000'
retlw b'11100000'
retlw b'11000000'
retlw b'10000000'
movlw 00h
movwf MODESELB
bsf INTCON,GIE
retlw b'11111000'
return

;*-------------
ISR
btfss INTCON,INTF
goto $+3
bcf INTCON,INTF
incf MODESEL
retfie
end


相关阅读:  
  • PIC单片机循环程序应用实例
  • PIC单片机循环程序应用实例?_电路图
  • PIC单片机循环程序应用实例
  • PIC单片机循环程序实例
  • PIC单片机如何实现程序循环
  • PICC编译环境编写PIC单片机程序的探讨
  • pic单片机c语言程序设计(1)
  • PIC单片机循环程序应用实例?
  • 【程序】单片机PIC16F877单片机的程序设计
  • pic单片机存储体0或1的选用说明(程序)
  • PIC单片机c语言教程1-中断子程序
  • 单片机控制LED点阵左移循环显示程序
  • 【程序】51单片机P1口八个LED灯做三路流水灯实验
  • 单片机C语言程序设计:闪烁的LED
  • PIC系列8位单片机源程序的组成
  • pic单片机c语言教程6-浮点数开方程序子程序设计
  • 【程序】51单片机P1口八个LED灯做加法运算实验
  • 单片机制作:数字电位器X9241与PIC单片机的接口及程序
  • Windows下PIC8位单片机源程序汇编和固化(六)
  • pic系列单片机程序设计基础一
  •  
     
     

    时间:2011年04月22日 22:20:16 来源:未知 作者: 上一篇:PIC16系列单片机与PC机 下一篇:用PIC12C508509单片机控制一个步进电机源程序  (电脑版  手机版)
    Copyright by www.chinabaike.com;All rights reserved.