Led01

;http://www.archimon-tx8.blogspot.com
list p=12F683
#include "p12f683.inc"

errorlevel -302 ; suppress message 302
__config   _FCMEN_OFF & _IESO_OFF & _CP_OFF & _CPD_OFF & _BOD_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT

;Ubicacion de variables en banco de memoria

COUNT1 equ 0x20   ;el banco de memoria comienza en la posicion 0x20
COUNT2 equ 0x21

;Inicio de programa

org     0x00

movlw   0x07
movwf   CMCON0       ;Comparadores OFF

;configuracion de puerto
bsf    STATUS,RP0    ;seleccionamos banco 1
movlw   b'01100001'  ;bit 1 y 2(LTS HTS) indican si los osc. son estables. Bit 7 no implementado
movwf   OSCCON       ;Oscilador interno a 4MHz (default)
clrf    ANSEL        ;puerto digital
movlw   b'00001000'  ;Bit 7 y 8 no implementados, Bit 3 solo como entrada
movwf   TRISIO       ;Utilizaremos solo el GP5(PIN2) como salida.
bcf    STATUS,RP0

;Codigo de programa

INICIO   bsf  GPIO,5    ;Poner a 1 GP5
         call DELAY
         bcf  GPIO,5    ;Poner a 0 GP5
         call DELAY
         goto INICIO

DELAY movlw 0xFF  ; Subrutina de retardo
      movwf COUNT1  ; 256x256=65536 cuentas
      movwf COUNT2
LOOP  decfsz COUNT1,1 ; Decrementa COUNT1
      goto LOOP  ; Salta si COUNT1=0
      movlw 0xFF
      movwf COUNT1  ; COUNT1=FF
      decfsz COUNT2,1 ; Decrementa COUNT2
      goto LOOP  ; Salta si COUNT2=0
      return   ; Retorno de subrutina

end   ; Fin de programa