diff options
Diffstat (limited to 'otti-led')
-rw-r--r-- | otti-led/Makefile | 26 | ||||
-rw-r--r-- | otti-led/otti-led.asm | 94 |
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 |