camera12f629.asm

车载改装自动摄像机应用,PIC12F629的精巧应用范例,本人精心打造,无私提供,

;本程序实现的功能是，自动开启CAMERA
;该程序可用于PIC12F629/675
 
; 程序求助:下面是12F629的程序:内部振荡,功能G口闪烁,但写入后就一直亮,是怎么回事? 
 LIST      P=PIC12F629          
 #INCLUDE  P12F629.INC
 __CONFIG(3184)
 GP     equ 5h  ;定义GP口
 status equ 3h  ;定义状态寄存器
; 
 org 0000h  ;复位地址多少？
 goto main  ;
 org 06h  ;
main    ;
 BANKSEL TRISIO  ;
; clrf GPIO  ;
 movlw 00h  ;
; tris GP  ;
 movwf TRISIO  ;置GP为输出
 BANKSEL GPIO  ;
LOOP    ;
 movlw 0FFh  ;
 movwf GPIO  ;点亮GP
 call delay  ;
 call delay  ;
 call delay  ;
 call delay  ;
;
 movlw 00h  ;
 movwf GPIO  ;关GP
 call delay  ;
 call delay  ; 
 call delay  ;
 call delay  ;
 goto LOOP  ;
delay    ;延时程序
 movlw 0ffh  ;
 movwf 21h  ;
 movlw 0ffh  ;
 movwf 22h  ;
 decfsz 22h,1  ;
 goto $-1  ;
 decfsz 21h,1  ;
 goto $-4  ;
 retlw 0  ;
 end   ;


;LIST P=PIC12F675
;#include <P12F675.INC>
;__CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_Internal RC No Clock_OSC
; ORG 00h
; NOP
; bcf STATUS,RP0 ;Bank 0
; clrf GPIO ;Init GPIO
; movlw 07h ;Set GP<2:0> to
; movwf CMCON ;digital IO
; bsf STATUS,RP0 ;Bank 1
; clrf ANSEL ;Digital I/O
; movlw 0Ch ;Set GP<3:2> as inputs
; movwf TRISIO ;and set GP<5,4,1,0> as outputs
; bcf STATUS,RP0
; bsf GPIO,1
;LOOP
; GOTO LOOP