My english is bad, sorry 
With this code problem is finish. 
Xtal = 20 MHz
Osc Config = HS
Need first code:
Code:
pause 1000
LCDOUT $FE,1
pause 500
after initialising lcd:
Code:
LCDOUT $FE,1,"HELLO WORLD"
But PAUSE and PAUSEUS working at value/5.
Example:
working to 1 Second.
I edited in "pbppic18.lib" also PAUSE problem is finish.
with 4 MHz xtal pauseus macro.
Code:
;****************************************************************
;* 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.
Bookmarks