summaryrefslogtreecommitdiff
path: root/blink-12F/blink.asm
diff options
context:
space:
mode:
Diffstat (limited to 'blink-12F/blink.asm')
-rw-r--r--blink-12F/blink.asm72
1 files changed, 72 insertions, 0 deletions
diff --git a/blink-12F/blink.asm b/blink-12F/blink.asm
new file mode 100644
index 0000000..3f9b5f1
--- /dev/null
+++ b/blink-12F/blink.asm
@@ -0,0 +1,72 @@
+ ;;
+ ;; 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=12F519
+ include "p12f519.inc"
+ __config _CPDF_OFF & _IOSCFS_4MHz & _MCLRE_OFF & _CP_OFF & _WDTE_OFF & _IntRC_OSC
+
+ ;; -------------------------------------
+ ;; DEFINES
+
+CNT0 EQU H'0008'
+CNT1 EQU H'0009'
+
+ ;; -------------------------------------
+ ;; OFFSET
+ org 0
+
+ ;; -------------------------------------
+ ;; INIT
+init
+ movlw b'11000110'
+ option
+ movlw b'11111011'
+ tris PORTB
+ bcf PORTB,2
+
+ ;; -------------------------------------
+ ;; MAINLOOP
+main
+ movlw .255
+ movwf CNT0
+
+outer
+ movlw .255
+ movwf CNT1
+
+inner
+ decfsz CNT1,f
+ goto inner
+
+ decfsz CNT0,f
+ goto outer
+
+ movlw b'00000100'
+ xorwf PORTB,f
+
+ goto main
+
+ ;; -------------------------------------
+ ;; END
+ end