summaryrefslogtreecommitdiff
path: root/otti-led/otti-led.asm
blob: 96e2a4fc2b6615a635a3c3242f420a59873dca88 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
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