summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2012-01-09 23:08:09 (GMT)
committerChristian Pointner <equinox@spreadspace.org>2015-02-24 23:04:04 (GMT)
commitfa81b115cff7d9b1f10e3e4d03f19860bef694cc (patch)
tree4901068fb54fc54c26aa1e447993bfa8204ec37d
parentb7607e98e553344b1dd953df9f70db18531ce818 (diff)
added otti bicycle led control
git-svn-id: https://svn.spreadspace.org/pic/trunk@10 a09c6847-51d9-44de-8ef2-e725cf50f3c7
-rw-r--r--otti-led/Makefile26
-rw-r--r--otti-led/otti-led.asm94
2 files changed, 120 insertions, 0 deletions
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 <equinox@spreadspace.org>
+##
+## 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 <http://www.gnu.org/licenses/>.
+##
+
+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 <equinox@spreadspace.org>
+ ;;
+ ;; 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 <http://www.gnu.org/licenses/>.
+ ;;
+ ;; -------------------------------------
+ ;; 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