diff options
Diffstat (limited to 'software/ihu/ttx.inc')
| -rw-r--r-- | software/ihu/ttx.inc | 230 |
1 files changed, 0 insertions, 230 deletions
diff --git a/software/ihu/ttx.inc b/software/ihu/ttx.inc deleted file mode 100644 index 8fa1479..0000000 --- a/software/ihu/ttx.inc +++ /dev/null @@ -1,230 +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/>. - ;; - - ;; ------------------------------------- -ttx_send_byte - bsf STATUS,RP0 - bcf TTX_SDA - bcf STATUS,RP0 - movwf TTX_BYTE - xorwf TTX_CSUM,f - movlw .8 - movwf TTX_BIT_CNT -ttx_send_next_bit - btfsc TTX_BYTE,7 - bsf TTX_SDA - btfss TTX_BYTE,7 - bcf TTX_SDA - bsf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - bcf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - rlf TTX_BYTE,f - decfsz TTX_BIT_CNT,f - goto ttx_send_next_bit - bsf STATUS,RP0 - bsf TTX_SDA - bcf STATUS,RP0 - return - - ;; ------------------------------------- -ttx_recv_byte - movlw .8 - movwf TTX_BIT_CNT -ttx_recv_next_bit - bsf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - bcf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - rlf TTX_BYTE,f - btfsc TTX_SDA - bsf TTX_BYTE,0 - btfss TTX_SDA - bcf TTX_BYTE,0 - decfsz TTX_BIT_CNT,f - goto ttx_recv_next_bit - return - - ;; ------------------------------------- -ttx_break - movlw .13 - movwf TTX_BIT_CNT -ttx_wait_octet - decfsz TTX_BIT_CNT,f - goto ttx_wait_octet - return - - ;; ------------------------------------- -ttx_send_frame - movwf TTX_BYTE - andlw b'00001111' - movwf TTX_BYTE_CNT - bsf TTX_SCL - movlw .3 - bcf TTX_SCL - call wait_ms - - clrf TTX_CSUM - movf TTX_BYTE,w - call ttx_send_byte - - movf TTX_BYTE_CNT,f - btfsc STATUS,Z - goto ttx_get_csum - -ttx_next_byte - call ttx_break - movf INDF,w - call ttx_send_byte - - incf FSR,f - decfsz TTX_BYTE_CNT,f - goto ttx_next_byte - -ttx_get_csum - return - - call ttx_break - call ttx_recv_byte - movf TTX_BYTE,w - xorwf TTX_CSUM,w - btfss STATUS,Z - goto ttx_csum_error - retlw .0 - -ttx_csum_error - retlw .1 - - ;; ------------------------------------- -ttx_send - call ttx_send_frame - return - - movwf TTX_BYTE - movwf TXREG - call ttx_break - - bsf TTX_SDA - bsf STATUS,RP0 - bcf TTX_SDA - bcf STATUS,RP0 - btfss TTX_BYTE,0 - bcf TTX_SDA - bsf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - bcf TTX_SCL - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - nop - bsf STATUS,RP0 - bsf TTX_SDA - bcf STATUS,RP0 - movf TTX_BYTE,w - return - ;; ------------------------------------- |