From fa81b115cff7d9b1f10e3e4d03f19860bef694cc Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Mon, 9 Jan 2012 23:08:09 +0000 Subject: added otti bicycle led control git-svn-id: https://svn.spreadspace.org/pic/trunk@10 a09c6847-51d9-44de-8ef2-e725cf50f3c7 --- otti-led/Makefile | 26 ++++++++++++++ otti-led/otti-led.asm | 94 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 120 insertions(+) create mode 100644 otti-led/Makefile create mode 100644 otti-led/otti-led.asm diff --git a/otti-led/Makefile b/otti-led/Makefile new file mode 100644 index 0000000..ee3ac67 --- /dev/null +++ b/otti-led/Makefile @@ -0,0 +1,26 @@ +## +## spreadspace pic utils +## +## +## Copyright (C) 2011 Christian Pointner +## +## This file is part of spreadspace pic utils. +## +## spreadspace pic utils is free software: you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation, either version 3 of the License, or +## any later version. +## +## spreadspace pic utils is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with spreadspace pic utils. If not, see . +## + +PROJECT := otti-led +PROC_TYPE := 10F206 + +include ../include.mk diff --git a/otti-led/otti-led.asm b/otti-led/otti-led.asm new file mode 100644 index 0000000..96e2a4f --- /dev/null +++ b/otti-led/otti-led.asm @@ -0,0 +1,94 @@ + ;; + ;; spreadspace pic utils + ;; + ;; + ;; Copyright (C) 2011 Christian Pointner + ;; + ;; This file is part of spreadspace pic utils. + ;; + ;; spreadspace pic utils is free software: you can redistribute it and/or modify + ;; it under the terms of the GNU General Public License as published by + ;; the Free Software Foundation, either version 3 of the License, or + ;; any later version. + ;; + ;; spreadspace pic utils is distributed in the hope that it will be useful, + ;; but WITHOUT ANY WARRANTY; without even the implied warranty of + ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;; GNU General Public License for more details. + ;; + ;; You should have received a copy of the GNU General Public License + ;; along with spreadspace pic utils. If not, see . + ;; + ;; ------------------------------------- + ;; PREAMBLE + + LIST p=10F206 + include "p10f206.inc" + __config _MCLRE_OFF & _CP_OFF & _WDT_OFF + + ;; ------------------------------------- + ;; DEFINES + +CNT EQU H'0008' + + ;; ------------------------------------- + ;; OFFSET + org 0 + + ;; ------------------------------------- + ;; INIT +init + bsf CMCON0,NOT_COUTEN + bcf CMCON0,CMPON + movlw b'11000001' + option + movlw b'11111011' + tris GPIO + bcf GPIO,GP2 + + goto main + + ;; ------------------------------------- + ;; MAINLOOP +wait_1ms + movwf CNT + clrf TMR0 +wait_1ms_loop + movf TMR0,w + btfss STATUS,Z + goto wait_1ms_loop +wait_1ms_loop2 + movf TMR0,w + btfsc STATUS,Z + goto wait_1ms_loop2 + decfsz CNT,f + goto wait_1ms_loop + return + +main + bcf GPIO,GP2 + movlw .255 + call wait_1ms + bsf GPIO,GP2 + movlw .4 + call wait_1ms + + bcf GPIO,GP2 + movlw .255 + call wait_1ms + bsf GPIO,GP2 + movlw .4 + call wait_1ms + + bcf GPIO,GP2 + movlw .255 + call wait_1ms + bsf GPIO,GP2 + movlw .40 + call wait_1ms + + goto main + + ;; ------------------------------------- + ;; END + end -- cgit v1.2.3