ihu and rtc work now

git-svn-id: https://svn.spreadspace.org/mur.sat@794 7de4ea59-55d0-425e-a1af-a3118ea81d4c

6 files changed, 134 insertions, 613 deletions

diff --git a/software/ihu/Makefile b/software/ihu/Makefile
index 7325908..a5184a8 100644
--- a/software/ihu/Makefile
+++ b/software/ihu/Makefile
@@ -8,10 +8,10 @@
 ##  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
diff --git a/software/ihu/i2c.inc b/software/ihu/i2c.inc
index 85d323f..bbd424f 100644
--- a/software/ihu/i2c.inc
+++ b/software/ihu/i2c.inc
@@ -8,10 +8,10 @@
   ;;  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
@@ -29,6 +29,20 @@
   ;;
 
   ;; -------------------------------------
+i2c_init
+  bsf       STATUS,RP0 		; make them outputs first
+  bcf       I2C_SDA		; every write access is read-update-write
+  bcf       I2C_SCL		; therefore the second bcf SDA sets SCL again
+  bcf       STATUS,RP0		; because of the external pull-up
+  bcf       I2C_SCL
+  bcf       I2C_SDA
+  bsf       STATUS,RP0
+  bsf       I2C_SDA
+  bsf       I2C_SCL
+  bcf       STATUS,RP0
+  return
+
+  ;; -------------------------------------
 i2c_start
   bsf       STATUS,RP0
   bcf       I2C_SDA
@@ -36,7 +50,7 @@ i2c_start
   bcf       I2C_SCL
   bcf       STATUS,RP0
   return
-  
+
   ;; ------------------
 i2c_restart
   bsf       STATUS,RP0
@@ -51,7 +65,7 @@ i2c_restart
   bcf       I2C_SCL
   bcf       STATUS,RP0
   return
-  
+
   ;; ------------------
 i2c_stop
   bsf       STATUS,RP0
@@ -60,7 +74,7 @@ i2c_stop
   bsf       I2C_SDA
   bcf       STATUS,RP0
   return
-  
+
   ;; ------------------
 i2c_send_byte
   movwf     I2C_BYTE
@@ -86,12 +100,12 @@ i2c_send_byte_next
   bsf       I2C_SDA
   bsf       I2C_SCL
   bcf       STATUS,RP0
-  movf      PORTB,w
+  movf      I2C_PORT,w
   bsf       STATUS,RP0
   bcf       I2C_SCL
   bcf       I2C_SDA
   bcf       STATUS,RP0
-  andlw     b'00010000'
+  andlw     I2C_SDA_MASK
   movwf     I2C_BYTE
   swapf     I2C_BYTE,f
   return
@@ -132,7 +146,7 @@ i2c_ack
   bcf       I2C_SCL
   bcf       STATUS,RP0
   return
-  
+
   ;; ------------------
 i2c_nack
   bsf       STATUS,RP0
diff --git a/software/ihu/ihu.asm b/software/ihu/ihu.asm
index 6c33b5c..eef9547 100644
--- a/software/ihu/ihu.asm
+++ b/software/ihu/ihu.asm
@@ -44,59 +44,52 @@
 #define       SOLAR_C0      PORTA,0
 #define       SOLAR_C1      PORTA,1
 #define       SOLAR_C2      PORTA,2
-#define       SOLAR_C3      PORTA,3
+#define       VREF          PORTA,3
 #define       OWIRE         PORTA,4
-#define       SOLAR_C4      PORTA,5
+#define       OW_TEMP       PORTA,5
+;#define       OSC2          PORTA,6
+;#define       OSC1          PORTA,7
 ;; PortB
-#define       DTMF_INT      PORTB,0
-#define       BAT_V         PORTB,1
-#define       SOLAR_V       PORTB,2
-#define       BAT_C         PORTB,3
-#define       I2C_SDA       PORTB,4
-#define       I2C_SCL       PORTB,5
-#define       RTC_INT       PORTB,6
-#define       RTC_RST       PORTB,7
+#define       CTR_INT       PORTB,0
+#define       POWER_FAIL    PORTB,1
+#define       CAPGOOD       PORTB,2
+#define       BAT_INT       PORTB,3
+#define       DEPLOY        PORTB,4
+#define       RTC_RST       PORTB,5
+;#define       PGC           PORTB,6
+;#define       PGD           PORTB,7
 ;; PortC
-#define       MPU_PWRDWN    PORTC,0
-#define       MPU_RESET     PORTC,1
-#define       UNDEF_C2      PORTC,2
-#define       UNDEF_C3      PORTC,3
-#define       UNDEF_C4      PORTC,4
-#define       UNDEF_C5      PORTC,5
+#define       MPU_RST       PORTC,0
+#define       CTR_RST       PORTC,1
+#define       BAT_RST       PORTC,2
+#define       SPI_SCK       PORTC,3
+#define       SPI_MISO      PORTC,4
+#define       SPI_MOSI      PORTC,5
 #define       MPU_TX        PORTC,6
 #define       MPU_RX        PORTC,7
 ;; PortD
-#define       DTMF_D0       PORTD,0
-#define       DTMF_D1       PORTD,1
-#define       DTMF_D2       PORTD,2
-#define       DTMF_D3       PORTD,3
-#define       DTMF_PWRDWN   PORTD,4
-#define       TTX_RESET     PORTD,5
-#define       TTX_SCL       PORTD,6
-#define       TTX_SDA       PORTD,7
+#define       I2C_SCL       PORTD,0
+#define       I2C_SDA       PORTD,1
+I2C_PORT      EQU           PORTD
+I2C_SDA_MASK  EQU	    b'00000010'
+#define       CTR_SS        PORTD,2
+#define       BAT_SS        PORTD,3
+#define       MPU_EN        PORTD,4
+#define       HEAT_EN       PORTD,5
+#define       RADIO_SILENCE PORTD,6
+#define       MAIN_OFF      PORTD,7
 ;; PortE
-#define       SOLAR_C5      PORTE,0
-#define       SOLAR_C6      PORTE,1
-#define       SOLAR_C7      PORTE,2
+#define       SOLAR_V0      PORTE,0
+#define       SOLAR_V1      PORTE,1
+#define       SOLAR_V2      PORTE,2
 
   ;;   variables
   ;;     page 0 only
 TMP           EQU H'0020'
-TTX_BYTE      EQU H'0021'
-TTX_BIT_CNT   EQU H'0022'
-TTX_BYTE_CNT  EQU H'0023'
-TTX_CSUM      EQU H'0024'
-
-RTC_BYTE_CNT  EQU H'0028'
 
 WAIT_CNT      EQU H'002F'
 
-DTMF_BUF      EQU H'0030'       ; 5Bytes for incoming DTMF commands
-DTMF_BUF_END  EQU H'0034'
-DTMF_BUF_PTR  EQU H'0035'
-DTMF_CS       EQU H'0036'
-DTMF_TIMEOUT  EQU H'0037'
-
+RTC_BYTE_CNT  EQU H'0028'
 RTC_TOD0      EQU H'003A'
 RTC_TOD1      EQU H'003B'
 RTC_TOD2      EQU H'003C'
@@ -105,43 +98,6 @@ RTC_TOD3      EQU H'003D'
 BUF           EQU H'0040'
 BUF_END       EQU H'004F'
 
-ADC_SOLAR_C0  EQU H'0050'
-ADC_SOLAR_C1  EQU H'0051'
-ADC_SOLAR_C2  EQU H'0052'
-ADC_SOLAR_C3  EQU H'0053'
-ADC_SOLAR_V0  EQU H'0054'
-ADC_SOLAR_C4  EQU H'0055'
-ADC_SOLAR_C5  EQU H'0056'
-ADC_SOLAR_C6  EQU H'0057'
-ADC_SOLAR_C7  EQU H'0058'
-ADC_SOLAR_V1  EQU H'0059'
-SOL_POWERL    EQU H'005A'
-SOL_POWERH    EQU H'005B'
-
-SOL_CALC_0    EQU H'005C'
-SOL_CALC_1    EQU H'005D'
-SOL_CALC_2    EQU H'005E'
-SOL_CALC_3    EQU H'005F'
-SOL_CALC_4    EQU H'0060'
-SOL_CALC_5    EQU H'0061'
-SOL_CALC_6    EQU H'0062'
-SOL_CALC_7    EQU H'0063'
-SOL_CALC_8    EQU H'0064'
-SOL_CALC_9    EQU H'0065'
-SOL_CALC_CNT  EQU H'0066'
-
-  ;;   variables
-  ;;     page 2 only
-CALC_ACC0     EQU H'0110'
-CALC_ACC1     EQU H'0111'
-CALC_ACC2     EQU H'0112'
-CALC_ACC3     EQU H'0113'
-CALC_TEMP0    EQU H'0114'
-CALC_TEMP1    EQU H'0115'
-CALC_TEMP2    EQU H'0116'
-CALC_TEMP3    EQU H'0117'
-
-
   ;;     all pages
 I2C_BYTE      EQU H'0070'
 I2C_BIT_CNT   EQU H'0071'
@@ -157,12 +113,12 @@ STATUS_TEMP   EQU H'007F'
 
   ;; -------------------------------------
   ;; Reset Vector
-  org	      0
+  org	    0
   goto      init
 
   ;; -------------------------------------
   ;; Interrupt Vector
-  org	      4
+  org	    4
   ;; save context
   movwf     W_TEMP
   swapf     STATUS,W
@@ -175,63 +131,21 @@ STATUS_TEMP   EQU H'007F'
 
   ;;  dispatch interrupt sources
   btfsc     INTCON,INTF
-  goto      int_dtmf
+  goto      int_ctr
   btfsc     INTCON,RBIF
-  goto      int_rtc
+  goto      int_portchange
   btfsc     PIR1,RCIF
   goto      int_uart_rx
-  btfsc     PIR1,TMR1IF
-  goto      int_tmr1
   goto      interrupt_end
-int_dtmf
-  movf      DTMF_BUF_PTR,w
-  movwf     FSR
-  movf      PORTD,w
-  andlw     b'00001111'
-  xorwf     DTMF_CS,f
-  movwf     INDF
-  incf      DTMF_BUF_PTR,f
-  movlw     DTMF_BUF_END
-  subwf     DTMF_BUF_PTR,w
-  btfss     STATUS,C
-  goto      int_dtmf_end
-  btfsc     STATUS,Z
-  goto      int_dtmf_end
 
-  ;;  DTMF command complete
-  movlw     .1
-  movwf     TMP
-
-int_dtmf_end
-  bcf       T1CON,TMR1ON
-  clrf      TMR1L
-  clrf      TMR1H
-  movlw     .6
-  movwf     DTMF_TIMEOUT
-  bsf       T1CON,TMR1ON
+int_ctr
   bcf       INTCON,INTF
   goto      interrupt_end
 
-int_tmr1
-  decfsz    DTMF_TIMEOUT,f
-  goto      int_tmr1_end
-  bsf       DTMF_PWRDWN
-  bcf       T1CON,TMR1ON
-  movlw     DTMF_BUF
-  movwf     DTMF_BUF_PTR
-  clrf      DTMF_CS
-  bcf       DTMF_PWRDWN
-
-int_tmr1_end
-  bcf       PIR1,TMR1IF
-  goto      interrupt_end
 
-int_rtc
+int_portchange
   btfsc     RTC_RST
   call      rtc_init
-  goto      int_rtc_end
-
-int_rtc_end
   bcf       INTCON,RBIF
   goto      interrupt_end
 
@@ -265,76 +179,61 @@ init
   ;; bank 3
   bsf       STATUS,RP0
   bsf       STATUS,RP1
-  movlw     b'00000000'
+  movlw     b'00010000'		; TX inverted, 8bit Baudrate, no auto baud detect
   movwf     BAUDCTL
-  movlw     b'11111111'
-  movwf     ANSEL
-  movlw     b'00000111'
-  movwf     ANSELH
+  movlw     b'11101111'  	; AN0-AN3,AN5-AN7 as analog
+  movwf     ANSEL		; AN4 as digital
+  clrf      ANSELH		; AN8-AN13 as digital
 
   ;; bank 1
   bsf       STATUS,RP0
   bcf       STATUS,RP1
-  movlw     b'01110000'
-  movwf     WPUB
-  movlw     b'11000000'
-  movwf     IOCB
-  movlw     b'01000001'
-  movwf     OPTION_REG
-  clrf      PSTRCON
-  movlw     b'00010000'
+  movlw     b'00111111'		; Weak Pull-UPS for
+  movwf     WPUB		;   RTC_RST, DEPLOY, CAPGOOD, POWER_FAIL, BAT_INT, CTR_INT
+  movlw     b'00100000'		; Port Change Interrup on
+  movwf     IOCB		;   RTC_RST
+  movlw     b'00000010'		; Weak-Pull-UPs enabled, INT -> falling edge, TMR0 internal clock
+  movwf     OPTION_REG		; Prescaler @ TMR0, Prescaler 1:8
+  clrf      PSTRCON		; disable pulse steering
+  movlw     b'00010000'		; preselct 125 kHz, clock source as configured by configuration word
   movwf     OSCCON
-  movlw     b'11111111'
+  movlw     b'11001111'		; input: RA0-RA3(analog),RA6-RA7(OSC); output: RA4-RA5(1wire)
   movwf     TRISA
-  movlw     b'11111111'
+  movlw     b'11111111'		; input: all (interrupts and stats)
   movwf     TRISB
-  movlw     b'11111100'
+  ;; movlw     b'11010000'		; input: SPI_MISO,RX,TX; output: (MPU|CTR|BAT)_RST,SPI_(CLK|MOSI)
+  movlw     b'11111111'		; input: all; output: none
   movwf     TRISC
-  movlw     b'10001111'
+  movlw     b'00000011'         ; input: I2C_(SDA|SCL); output: (CTR,BAT)_SS, (MPU|HEAT)_EN, RADIO_SILENCE, MAIN_OFF
   movwf     TRISD
-  movlw     b'11111111'
+  movlw     b'11111111'         ; intput all (analog)
   movwf     TRISE
+  movlw     b'00010000'         ; result left justified, V_REF_low = 0, V_REF_high = AN3
   clrf      ADCON1
-  movlw     b'00100100'
+  movlw     b'00100100'         ; Baudrate = High Speed, async mode, transmit enabled, 8bit
   movwf     TXSTA
-  movlw     .12
+  movlw     .25               	; Baudrate = 19200 (@ 8MHz)
   movwf     SPBRG
   clrf      SPBRGH
-  movlw     b'00100001'
+  movlw     b'00100000'         ; enable UART RX Interrupt
   movwf     PIE1
   clrf      PIE2
 
   ;; bank 0
   bcf       STATUS,RP0
   bcf       STATUS,RP1
-  movlw     b'01000001'
+  movlw     b'01000001'		; CLK = FOSC/8, select AN0, ADC on
   movwf     ADCON0
-  movlw     b'10010000'
+  movlw     b'10010000'		; enable Serial Port, 8bit, enable continues receive, disable address detection
   movwf     RCSTA
-  movlw     B'01011000'
+  movlw     B'01011000'		; enabble Peripherial, INT and Port Change
   movwf     INTCON
 
-  clrf      PORTB
-
-  bcf       DTMF_PWRDWN
-  movlw     DTMF_BUF
-  movwf     DTMF_BUF_PTR
-  clrf      DTMF_CS
-  clrf      TMR1L
-  clrf      TMR1H
-  movlw     b'00110000'
-  movwf     T1CON
-
-  bcf       TTX_SCL
-  bcf       TTX_SDA
-  nop
-  bcf       TTX_RESET     ;reset TTX
+  call      i2c_init
   clrf      TMR0
-
   bsf       INTCON,GIE
   clrf      TMP
 
-  bsf       TTX_RESET
   goto      main
 
   ;; -------------------------------------
@@ -360,8 +259,8 @@ wait_loop
 uart_rx_byte
   btfsc     RCSTA,FERR
   goto      uart_rx_fe
-  movf      RCREG,w             ; TODO: move to input string
-  movwf     TMP
+  movf      RCREG,w             ; TODO: check parity
+  movwf     TMP			; TODO: move to input string
   return
 
 uart_rx_fe
@@ -369,10 +268,7 @@ uart_rx_fe
   return
 
   ;; -------------------------------------
-  include   "math.inc"
-
-  ;; -------------------------------------
-  include   "ttx.inc"
+  ;; include   "math.inc"
 
   ;; -------------------------------------
   include   "i2c.inc"
@@ -381,13 +277,13 @@ uart_rx_fe
   include   "rtc.inc"
 
   ;; -------------------------------------
-  include   "temp.inc"
+  ;; include   "temp.inc"
 
   ;; -------------------------------------
-  include   "adc.inc"
+  ;; include   "adc.inc"
 
   ;; -------------------------------------
-  include   "solar.inc"
+  ;; include   "solar.inc"
 
   ;; -------------------------------------
   ;; MAINLOOP
@@ -395,65 +291,6 @@ main
 ;  sleep
 ;  nop
   ;; --------------------
-  ;; TTX Test
-  ;; movf      TMP,w
-  ;; btfsc     STATUS,Z
-  ;; goto      main
-
-  ;; movlw     BUF
-  ;; movwf     FSR
-  ;; movlw     0x50
-  ;; call      ttx_send
-
-  ;; clrf      TMP
-  ;; goto      main
-
-;;   xorlw     .0
-;;   btfss     STATUS,Z
-;;   goto      main_error
-
-;;   movlw     'O'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     'K'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     '\r'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     '\n'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   goto      main
-
-;; main_error
-;;   movlw     'E'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     'R'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     'R'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     '\r'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   movlw     '\n'
-;;   movwf     TXREG
-;;   movlw     .1
-;;   call      wait_ms
-;;   goto      main
-
-  ;; --------------------
   ;; ADC Test
   ;; call      adc_get_solar
   ;; call      solar_calc_power
@@ -526,61 +363,60 @@ main
   ;; goto      main
 
   ;; --------------------
-  ;; DTMF Test program
+  ;; RTC Test program
   movf      TMP,f
   btfsc     STATUS,Z
   goto      main
 
-  movlw     BUF
-  movwf     FSR
-  swapf     DTMF_BUF+3,w
-  andlw     b'11110000'
-  call      ttx_send
+  call      rtc_get_time
 
-  movf      DTMF_BUF,w
-  call      dtmfSign
+  swapf     RTC_TOD3,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movf      DTMF_BUF+1,w
-  call      dtmfSign
+  movf      RTC_TOD3,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movf      DTMF_BUF+2,w
-  call      dtmfSign
+  swapf     RTC_TOD2,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movf      DTMF_BUF+3,w
-  call      dtmfSign
+  movf      RTC_TOD2,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movf      DTMF_BUF+4,w
-  call      dtmfSign
+  swapf     RTC_TOD1,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movlw     ' '
+  movf      RTC_TOD1,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
-  movf      DTMF_CS,f
-  btfsc     STATUS,Z
-  movlw     '!'
-  btfss     STATUS,Z
-  movlw     'x'
+  swapf     RTC_TOD0,w
+  call      digit
   movwf     TXREG
   movlw     .1
   call      wait_ms
 
+  movf      RTC_TOD0,w
+  call      digit
+  movwf     TXREG
+  movlw     .1
+  call      wait_ms
 
   movlw     '\r'
   movwf     TXREG
@@ -588,92 +424,11 @@ main
   call      wait_ms
   movlw     '\n'
   movwf     TXREG
-  movlw     .1
-  call      wait_ms
-
 
   clrf      TMP
-  movlw     DTMF_BUF
-  movwf     DTMF_BUF_PTR
-  clrf      DTMF_CS
-
   goto      main
 
   ;; --------------------
-  ;; RTC Test program
-  ;; movf      TMP,f
-  ;; btfsc     STATUS,Z
-  ;; goto      main
-
-  ;; call      rtc_get_time
-
-  ;; swapf     RTC_TOD3,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; movf      RTC_TOD3,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; swapf     RTC_TOD2,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; movf      RTC_TOD2,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; swapf     RTC_TOD1,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; movf      RTC_TOD1,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; swapf     RTC_TOD0,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; movf      RTC_TOD0,w
-  ;; andlw     b'00001111'
-  ;; call      digit
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-
-  ;; movlw     '\r'
-  ;; movwf     TXREG
-  ;; movlw     .1
-  ;; call      wait_ms
-  ;; movlw     '\n'
-  ;; movwf     TXREG
-
-  ;; clrf      TMP
-  ;; goto      main
-
-  ;; --------------------
   ;; Temp Test program
   ;; movf      TMP,f
   ;; btfsc     STATUS,Z
@@ -681,14 +436,12 @@ main
 
   ;; call      temp_read_value
   ;; swapf     OWIRE_BYTE,w
-  ;; andlw     b'00001111'
   ;; call      digit
   ;; movwf     TXREG
   ;; movlw     .1
   ;; call      wait_ms
 
   ;; movf      OWIRE_BYTE,w
-  ;; andlw     b'00001111'
   ;; call      digit
   ;; movwf     TXREG
   ;; movlw     .1
diff --git a/software/ihu/rtc.inc b/software/ihu/rtc.inc
index 7dc4e1d..cb1dc3d 100644
--- a/software/ihu/rtc.inc
+++ b/software/ihu/rtc.inc
@@ -8,10 +8,10 @@
   ;;  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
@@ -45,8 +45,10 @@ RTC_REG_TCH  EQU H'09'
 
 RTC_INIT_CTL EQU b'00001000'
 ;; RTC_INIT_TCH EQU b'10101011'    ; trickle charger enabled with diode and 4kohm
-RTC_INIT_TCH EQU b'00001011'    ; trickle charger disabled
- 
+;; RTC_INIT_TCH EQU b'10101010'    ; trickle charger enabled with diode and 2kohm
+RTC_INIT_TCH EQU b'10101001'    ; trickle charger enabled with diode and 250ohm
+;; RTC_INIT_TCH EQU b'00001100'    ; trickle charger disabled
+
  ;; -------------------------------------
 rtc_init
   call      i2c_start
@@ -55,14 +57,14 @@ rtc_init
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
   goto      rtc_error_ack
-  
+
   movlw     RTC_REG_STAT
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
   goto      rtc_error_ack
 
   call      i2c_restart
-  
+
   movlw     RTC_ADDR_R
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
@@ -73,10 +75,10 @@ rtc_init
 
   btfsc     I2C_BYTE,7
   goto      rtc_init_after_clock_fail
-  
+
   call      i2c_stop
   return
-  
+
 rtc_init_after_clock_fail
   call      i2c_restart
 
@@ -84,7 +86,7 @@ rtc_init_after_clock_fail
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
   goto      rtc_error_ack
-  
+
   movlw     RTC_REG_TOD0
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
@@ -99,7 +101,7 @@ rtc_init_clear
   goto      rtc_error_ack
   decfsz    RTC_BYTE_CNT,f
   goto      rtc_init_clear
-  
+
   movlw     RTC_INIT_CTL
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
@@ -128,14 +130,14 @@ rtc_get_time
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
   goto      rtc_error_ack
-  
+
   movlw     RTC_REG_TOD0
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
   goto      rtc_error_ack
 
   call      i2c_restart
-  
+
   movlw     RTC_ADDR_R
   call      i2c_send_byte
   btfsc     I2C_BYTE,0
@@ -153,7 +155,7 @@ rtc_get_time_loop
   call      i2c_nack
   call      i2c_stop
   return
-  
+
 rtc_get_time_next
   incf      FSR,f
   call      i2c_ack
diff --git a/software/ihu/tables.inc b/software/ihu/tables.inc
index 1ce2beb..3e42a41 100644
--- a/software/ihu/tables.inc
+++ b/software/ihu/tables.inc
@@ -8,10 +8,10 @@
   ;;  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
@@ -31,6 +31,7 @@
   ;; -------------------------------------
   ;; digit
 digit
+  andlw     b'00001111'
   addwf     PCL,f
   retlw     '0'
   retlw     '1'
@@ -49,25 +50,6 @@ digit
   retlw     'E'
   retlw     'F'
 
-dtmfSign
-  addwf     PCL,f
-  retlw     'D'
-  retlw     '1'
-  retlw     '2'
-  retlw     '3'
-  retlw     '4'
-  retlw     '5'
-  retlw     '6'
-  retlw     '7'
-  retlw     '8'
-  retlw     '9'
-  retlw     '0'
-  retlw     '*'
-  retlw     '#'
-  retlw     'A'
-  retlw     'B'
-  retlw     'C'
-   
 mul10
   addwf     PCL,f
   retlw     .0
@@ -103,7 +85,7 @@ daysL
   retlw     .18
   retlw     .49
   retlw     .79
-  
+
 daysH
   addwf     PCL,f
   retlw     .0
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
-  ;; -------------------------------------