I can't find my TI routines, so I guess you will have to make your own. Main: rcall get_ti_byte rcall send_EPP rjmp Main send_EPP: out PORTB, DATA PA: sbic PORTA, WAIT rjmp PA cbi PORTA, STROBE PB: sbis PORTA, WAIT rjmp PB sbi PORTA, STROBE ret More to come!!! Grant