Hello everyone!

I would be very grateful if someone could look through the following
snipped of code and check for any obvious mistakes.
I am basically trying to write values to consecutive byte in eeprom
data memory,  starting at address 0.
My problem is that the program seems to get stuck waiting for the
write to finish. I have checked and double checked all register
and bit location declarations.



;=== Procedure init_eedata ===
init_eedata
   movlw   0
   movwf   eeadr

   movlw   .126
   call    write_eedata
   movlw   .48
   call    write_next_eedata
   movlw   .109
; etc
; etc

   return

;=== Procedure write_eedata ===
; Procedure expects the data to be written in w and the address in
; eeadr
write_next_eedata
   incf    eeadr,  same ; go to next address

write_eedata
   movwf   eedata       ; data to be written
   bsf eecon1, wren     ; enable writes to data eeprom
   bsf status, rp0      ; bank 1
   bcf intcon, gie      ; no interrupts
   movlw   55           ; taken directly from databook
   movwf   eecon2
   movlw   h'aa'
   movwf   eecon2
   bsf eecon1, wr       ; start write
;  bsf intcon, gie      ; enable interrupts
;                         Commented out because I am not using
;                         interrupts
   bcf eecon1, wren     ; disable eedata writes
writing
   btfss   eecon1, eeif ; wait for write to finish
   goto    writing
   bcf     eecon1, eeif ; clear eeprom interrupt flag

   return

Thanks
    Roland