;******************************************************************
org 0x0000
Start
clrf STATUS ; |B0
clrf PORTA ; |B0
clrf PORTB ; |B0
goto Init ; |B0
;
; program initialization
;
Init bsf STATUS,RP0 ; bank 1 |B1
clrf ANSEL ; setup PORT A for digital I/O |B1
;
; setup INTOSC for 8-MHz operation
;
movlw b'01110000' ; |B1
movwf OSCCON ; select 8-MHz INTOSC clock |B1
Stable btfss OSCCON,IOFS ; INTOSC frequency stable? |B1
goto Stable ; no, branch and wait |B1
bcf STATUS,RP0 ; bank 0 |B0
;