diff options
author | Christian Pointner <equinox@mur.at> | 2012-03-04 21:14:42 +0000 |
---|---|---|
committer | Christian Pointner <equinox@mur.at> | 2012-03-04 21:14:42 +0000 |
commit | 5a3bb8920b733baf572aa89d4c63c88003e26763 (patch) | |
tree | 6385624f99d290d6dde174911df72708a4a1e2e2 /software/ttx_crx/ttx.inc | |
parent | added datasheet for PMGD370XN (diff) |
moved ttx_crx to ctr
git-svn-id: https://svn.spreadspace.org/mur.sat@272 7de4ea59-55d0-425e-a1af-a3118ea81d4c
Diffstat (limited to 'software/ttx_crx/ttx.inc')
-rw-r--r-- | software/ttx_crx/ttx.inc | 294 |
1 files changed, 0 insertions, 294 deletions
diff --git a/software/ttx_crx/ttx.inc b/software/ttx_crx/ttx.inc deleted file mode 100644 index 2e45f28..0000000 --- a/software/ttx_crx/ttx.inc +++ /dev/null @@ -1,294 +0,0 @@ - ;; - ;; mur.sat - ;; - ;; Somewhen in the year 2012, 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@mur.at> - ;; - ;; 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/>. - ;; - - ;; ------------------------------------- -dottime - movwf TMR0 - bcf INTCON,T0IF -dot_inner - btfss INTCON,T0IF - goto dot_inner - clrwdt - return - - ;; ------------------------------------- -send_char - movwf CHAR - movlw 'Z' + 1 - subwf CHAR,w - btfsc STATUS,C - return - movlw ' ' - subwf CHAR,f - btfss STATUS,C - return - btfsc STATUS,Z - return - - movf CHAR,w - call getcw - movwf ELEMENT - movf CHAR,w - call getcwlen - movwf ELECNT - movf ELECNT,f - btfsc STATUS,Z - return - movf CHAR,w - xorwf PARITY,f - -char_next_element - bsf PORTA,CW_OUT - btfss ELEMENT,7 - movf DOT,w - btfsc ELEMENT,7 - movf DASH,w - call dottime - bcf PORTA,CW_OUT - - rlf ELEMENT,f - - decfsz ELECNT,f - goto char_espace - return - -char_espace - movf ESPACE,w - call dottime - goto char_next_element - - ;; ------------------------------------- -send_callsign - movlw .6 - movwf CHARCNT - -callsign_next_char - call callsign - call send_char - decfsz CHARCNT,f - goto callsign_cspace - return - -callsign_cspace - movf CSPACE,w - call dottime - movf CHARCNT,w - goto callsign_next_char - - ;; ------------------------------------- -send_base32 - movwf PENTLECNT - -case0 - rrf INDF0,w - movwf PENTLE0 - rrf PENTLE0,f - rrf PENTLE0,w - andlw b'00011111' - call base32 - call send_char - decfsz PENTLECNT,f - goto case1 - return - -case1 - movf CSPACE,w - call dottime - rlf INDF0,w - movwf PENTLE0 - rlf PENTLE0,w - andlw b'00011100' - movwf PENTLE0 - incf FSR0L,f - swapf INDF0,w - movwf PENTLE1 - rrf PENTLE1,f - rrf PENTLE1,w - andlw b'00000011' - iorwf PENTLE0,w - call base32 - call send_char - decfsz PENTLECNT,f - goto case2 - return - -case2 - movf CSPACE,w - call dottime - rrf INDF0,w - andlw b'00011111' - call base32 - call send_char - decfsz PENTLECNT,f - goto case3 - return - -case3 - movf CSPACE,w - call dottime - swapf INDF0,w - andlw b'00010000' - movwf PENTLE0 - incf FSR0L,f - swapf INDF0,w - andlw b'00001111' - iorwf PENTLE0,w - call base32 - call send_char - decfsz PENTLECNT,f - goto case4 - return - -case4 - movf CSPACE,w - call dottime - rlf INDF0,w - andlw b'00011110' - movwf PENTLE0 - incf FSR0L,f - btfsc INDF0,7 - bsf PENTLE0,0 - movf PENTLE0,w - call base32 - call send_char - decfsz PENTLECNT,f - goto case5 - return - -case5 - movf CSPACE,w - call dottime - rrf INDF0,w - movwf PENTLE0 - rrf PENTLE0,w - andlw b'00011111' - call base32 - call send_char - decfsz PENTLECNT,f - goto case6 - return - -case6 - movf CSPACE,w - call dottime - swapf INDF0,w - movwf PENTLE0 - rrf PENTLE0,w - andlw b'00011000' - movwf PENTLE0 - incf FSR0L,f - swapf INDF0,w - movwf PENTLE1 - rrf PENTLE1,w - andlw b'00000111' - iorwf PENTLE0,w - call base32 - call send_char - decfsz PENTLECNT,f - goto case7 - return - -case7 - movf CSPACE,w - call dottime - movf INDF0,w - andlw b'00011111' - call base32 - call send_char - decfsz PENTLECNT,f - goto caseend - return - -caseend - movf CSPACE,w - call dottime - incf FSR0L,f - goto case0 - - ;; ------------------------------------- -send_cnt - rlf BEACONCNTL,w - movwf TMP2 - rlf BEACONCNTH,w - movwf TMP1 - movlw TMP1 - movwf FSR0L - clrf FSR0H - movlw .3 - call send_base32 - return - - ;; ------------------------------------- -send_parity - movf PARITY,w - btfsc PARITY,5 - xorlw b'00000001' - andlw b'00011111' - call base32 - call send_char - - movf WSPACE,w - call dottime - return - - ;; ------------------------------------- -send_beacon - bsf PORTA,CW_ENABLE - movf TUNE,w - call dottime - clrf PARITY - - movlw START_CHAR - call send_char - - movf WSPACE,w - call dottime - - call send_callsign - - movf WSPACE,w - call dottime - - call send_cnt - - movf WSPACE,w - call dottime - - call send_parity - - incfsz BEACONCNTL,f - goto beacon_end - incf BEACONCNTH,f - ;; TODO write new cnt value to EEPROM - -beacon_end - bcf PORTA,CW_ENABLE - return - ;; ------------------------------------- |