1 files changed, 94 insertions, 0 deletions
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