;
; efe.charge.asm
; (c) Neil Gershenfeld CBA MIT 8/29/04
;
; definitions
;
.include "tn15def.inc"
.equ txpin = PB0 ; serial transmit pin
.equ ledpin = PB4; LED pin
.def bitcnt = R16 ; bit counter
.def temp = R17	; temporary storage
.def temp1 = R18 ; temporary storage
.def txbyte = R19 ; data byte
.def low_up = R20 ; low byte step up
.def high_up = R21 ; high byte step up
;
; start of code
;
.cseg
.org 0
rjmp reset ; jump to reset routine
;
; putchar routine
; assumes no line driver (doesn't invert bits)
;
.equ sb = 1 ;  number of stop bits
putchar:
   ldi bitcnt, 9+sb ; 1+8+sb
   com txbyte ; invert everything
   sec ; set start bit
   putchar0:
      brcc putchar1 ; if carry set
      sbi PORTB, txpin ; send a '0'
      rjmp  putchar2 ; else	
   putchar1:
      cbi PORTB, txpin ; send a '1'
      nop
   putchar2:
      rcall bitdelay ; one bit delay
      rcall  bitdelay
      lsr txbyte ; get next bit
      dec bitcnt ; if not all bits sent
      brne putchar0 ; send next
   ret ; else return
;
; serial bit delay routine
;
.equ b = 35 ; OSCCAL 0xff, 5V
bitdelay:
   ldi temp, b
   bitloop: dec temp
   brne bitloop
   ret
;
; routine to wait for sample to settle
;
.equ delay = 10
settle:
   ldi temp1, delay
   sloop1:
      ldi temp, delay
      sloop0:
         dec temp
         brne sloop0
      dec temp1
      brne sloop1
   ret
;
; print delay
;
.equ count = 255
print_delay:
   ldi temp1, count
   delay_loop1:
      ldi temp, count
      delay_loop:
         dec temp
         brne delay_loop	
      dec temp1
      brne delay_loop1
   ret
;
; main program
;
reset:	   
   ldi temp, 0xff ; maximum RC clock
   out OSCCAL, temp
   sbi PORTB, txpin; init comm pin
   sbi DDRB, txpin
   sbi PORTB, ledpin; init LED pin
   sbi DDRB, ledpin
   ;
   ; init A/D
   ;
   cbi ADMUX, REFS1 ; use Vcc as reference
   cbi ADMUX, REFS0 ; "
   cbi ADMUX, ADLAR ; right-adjust result
   sbi ADCSR, ADEN ; enable A/D
   cbi ADCSR, ADFR ; set for single-shot
   cbi ADCSR, ADIE ; disable A/D interrupt
   cbi ADCSR, ADPS2 ; set prescaler
   cbi ADCSR, ADPS1 ; "
   cbi ADCSR, ADPS0 ; "
   sbi PORTB, PB1 ; output on PB1
   sbi DDRB, PB1 
   cbi ADMUX, MUX2 ; input on ADC1
   cbi ADMUX, MUX1 ; "
   sbi ADMUX, MUX0 ; "
   ;
   ; infinite main loop
   ;
   loop:
      ;
      ; settle sample and start upward step response
      ;
      cbi PORTB, PB1
      rcall settle
      sbi PORTB, PB1
      ;
      ; wait for delay
      ;
      nop
      ;
      ; read response
      ;
      sbi ADCSR, ADSC ; start conversion
      adloop1up:
         sbic ADCSR, ADSC ; loop until complete
         rjmp adloop1up
      ;
      ; save conversion
      ;
      in low_up, ADCL ; save low byte
      in high_up, ADCH ; save high byte
      ;
      ; start downward step response
      ;
      cbi PORTB, PB1
      ;
      ; wait for delay
      ;
      nop
      ;
      ; read response
      ;
      sbi ADCSR, ADSC ; start conversion
      adloop1down:
         sbic ADCSR, ADSC ; loop until complete
         rjmp adloop1down
      ;
      ; send downward conversion
      ;
      in txbyte, ADCL ; send low byte
      rcall putchar
      in txbyte,ADCH ; send high byte
      rcall putchar
      ;
      ; send upward conversion
      ;
      mov txbyte, low_up
      rcall putchar
      mov txbyte, high_up
      rcall putchar
      ;
      ; send 1 2 3 4 for framing
      ;
      ldi txbyte, 1
      rcall putchar
      ldi txbyte, 2
      rcall putchar
      ldi txbyte, 3
      rcall putchar
      ldi txbyte, 4
      rcall putchar
      ;
      ; print delay
      ;
      sbi PORTB, ledpin
      rcall print_delay
      cbi PORTB, ledpin
      rjmp loop