summaryrefslogtreecommitdiff
path: root/software/ttx/ttx.asm
diff options
context:
space:
mode:
Diffstat (limited to 'software/ttx/ttx.asm')
-rw-r--r--software/ttx/ttx.asm82
1 files changed, 82 insertions, 0 deletions
diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm
new file mode 100644
index 0000000..316ce46
--- /dev/null
+++ b/software/ttx/ttx.asm
@@ -0,0 +1,82 @@
+ ;;
+ ;; mur.sat
+ ;;
+ ;; Somewhen in the year 2011, mur.at will have a nano satellite launched
+ ;; into a low earth orbit (310 km above the surface of our planet). The
+ ;; satellite itself is a TubeSat personal satellite kit, developed and
+ ;; launched by interorbital systems. mur.sat is a joint venture of mur.at,
+ ;; ESC im Labor and realraum.
+ ;;
+ ;; Please visit the project hompage at sat.mur.at for further information.
+ ;;
+ ;;
+ ;; Copyright (C) 2011 Christian Pointner <equinox@spreadspace.org>
+ ;;
+ ;; This file is part of mur.sat.
+ ;;
+ ;; mur.sat 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.
+ ;;
+ ;; mur.sat 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 mur.sat. If not, see <http://www.gnu.org/licenses/>.
+ ;;
+ ;; -------------------------------------
+ ;; PREAMBLE
+
+ LIST p=10F206
+ include "p10f206.inc"
+ __config _MCLRE_OFF & _CP_OFF & _WDT_OFF
+
+ ;; -------------------------------------
+ ;; DEFINES
+
+CNT0 EQU H'0008'
+CNT1 EQU H'0009'
+
+ ;; -------------------------------------
+ ;; OFFSET
+ org 0
+
+ ;; -------------------------------------
+ ;; INIT
+init
+ bsf CMCON0,NOT_COUTEN
+ bcf CMCON0,CMPON
+ movlw b'11000110'
+ option
+ movlw b'11111011'
+ tris GPIO
+ bcf GPIO,GP2
+
+ ;; -------------------------------------
+ ;; 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 GPIO,f
+
+ goto main
+
+ ;; -------------------------------------
+ ;; END
+ end