Char. LCD and 18F452 on 20 MHz not work

[samettin]

My english is bad, sorry
With this code problem is finish.

Xtal = 20 MHz
Osc Config = HS

Need first code:

pause 1000
LCDOUT $FE,1
pause 500

after initialising lcd:

LCDOUT $FE,1,"HELLO WORLD"

But PAUSE and PAUSEUS working at value/5.

Example:

PAUSE 5000

working to 1 Second.

I edited in "pbppic18.lib" also PAUSE problem is finish.
with 4 MHz xtal pauseus macro.

;****************************************************************
;* PAUSEUS    : Pause n microseconds at 4MHz                    *
;*                                                              *
;* Input      : R0 + 1, W = microseconds                        *
;* Output     : None                                            *
;*                                                              *
;* Notes      : minimum 19us                                    *
;****************************************************************

      if (OSC == 4)
  LIST
PAUSEUS clrf	R0 + 1		; 1
PAUSEUSL addlw	-23		; 1 Subtract overhead
             movwf   R0                        ; 1
	movlw	-4		; ********changed -1 to -4***********
	bnc	pauseush	             ; 1 / 2
	nop			; 1
pauseusloop CLRWDT?NOP		; 1
	addwf	R0, F		; 1
	bc	pauseusloop	; 1 / 2
	nop			; 1
pauseush addwf	R0, F		; 1
	decf	R0 + 1, F	; 1
	bc	pauseusloop	; 1 / 2
	btfsc	R0, 0		; 1 / 2
	bra	$ + 2		; 2 / 0
	btfss	R0, 1		; 1 / 2
	bra	pauseusdone	; 2 / 0
	bra	$ + 2		; 0 / 2
	nop			; 0 / 1
pauseusdone return		; 2 + 3 (call + setup)
  NOLIST
      endif

Thanks for your interesting.

Best regards.