pic16f877 + LCD

Доброго времени суток!
Вот такой казус у меня с pic16f877:
К нему прилеплены кнопки, лампочки, кварец 4MHz и ЖКД.
Написал прогу на микропаскале - работает отлично. Кнопки нажимаются, ЖКД показывает все, что требуется, ламочки горят.
При последующих наворотах проги не уложился в шароварное ограничение размера выходного файла. Перешел на асм ). В асме написал все то же самое (даже лучше). Оттестил все это в протеусе и залил.
На ЖКД кроме тестовых блоков на первой строке ничего. Лампочки горят исправно. Во всяком случае, я могу ими управлять. Думаю, что не проходит инициализация ЖКД. Набор процедур я утянул отсюда: http://ouwehand.net/~peter/lcd/lcd2.shtml. Ничего там не менял.
На всякий случай, еще раз скажу, что обе проги, на паскале и асме, в протеусе на одной и той же схеме работают. Чиво делать? как дебажить?
Привожу кусок кода с инициализацией портов и ЖКД:
ЗЫ: В битах конфигурации - HS, а все остальное - выкл.

;===============================
#DEFINE	BANK0	BCF	STATUS, RP0
#DEFINE	BANK1	BSF	STATUS,	RP0
;===============================
	ORG	0
	GOTO	BEGIN

	INCLUDE	"TEXT.INC"
;============================================
BEGIN
	CALL	INITPORTS			;
RESET	
	CALL	LCD_GREET			;
	GOTO	BUTTONS				;
;============================================
INITPORTS
	BANK1					;
	MOVLW	0xF0			;
	MOVWF	TRISD			;
	MOVLW	0xC0			;
	MOVWF	TRISC			;
	BANK0				;
	CLRF	COUNT			;
	CALL	LCDINIT			; Init Display
	MOVLW	.17			; lock and light up red lamp
	MOVWF	PORTC			;
	CLRF	PORT			;
	CLRF	FLAG			;	
	CLRF	MSEC
	CLRF	SEC
	CLRF	PIR1
	CLRF	PIR2
	CLRF	TMR1H
	CLRF	TMR1L
	BANKSEL	PIE1
	CLRF	PIE1
	CLRF	PIE2
	CLRF	STATUS
	RETURN
;============================================

Ладно, сформулируем вопрос по другому. Зависание происходит в этом куске библиотеки ЖКД:

LCDBUSY
    BSF         STATUS,RP0          ; Select Register page 1
    MOVLW       0x0FF               ; Set PORTB for input
    MOVWF       LCD_DATA_TRIS
    BCF         STATUS, RP0         ; Select Register page 0
    BCF         LCD_CTRL, LCD_RS    ; Set LCD for command mode
    BSF         LCD_CTRL, LCD_RW    ; Setup to read busy flag
    BSF         LCD_CTRL, LCD_E     ; LCD E-line High
    MOVF        LCD_DATA, W         ; Read busy flag + DDram address
    BCF         LCD_CTRL, LCD_E     ; LCD E-line Low
    ANDLW       0x80                ; Check Busy flag, High = Busy
    BTFSS       STATUS, Z
    GOTO        LCDBUSY
LCDNOTBUSY
    BCF         LCD_CTRL, LCD_RW
    BSF         STATUS, RP0         ; Select Register page 1
    MOVLW       0x000
    MOVWF       LCD_DATA_TRIS       ; Set PORTB for output
    BCF         STATUS, RP0         ; Select Register page 0
    RETURN

Т.е. на седьмую ножку порта B ничего не приходит. Какие могут быть предложения? Можно, конечно поставить задержку, вместо опроса, но какое тогда время задержки выбрать?

[xelos]

эээ, а инициализация экрана?

Да, я уже фкурил )
По причине хренового питания у меня не происходил хардверный ресет ) Если я правильно понял все прочитанные мной мануалы ) Теперь фсе пучком. Только после первой инициализации фключается только первая строка, а после второй - обе...