;******************************************************************************************
;  PIC18F14K50 Sample Program
;   Project      :
;   Program Name :
;   Programer    :
;   Create date  :  Version 1.0    H21.12.20
;   History      :
;   Laungage     :  MPASM
;******************************************************************************************
;  (1)Description
;
;******************************************************************************************

	LIST	P=PIC18F14K50,ST=OFF,R=DEC
	INCLUDE	"P18F14K50.inc"

	config CPUDIV=NOCLKDIV	;CPU System Clock Selection bit(No CPU System Clock divide)
	config USBDIV = OFF	;USB Clock Selection bit(USB Clock comes directly from the OSC1/OSC2 oscillator block; no divide)
	config FOSC = HS	;Oscillator Selection bits(HS oscillator)
	config PLLEN = ON 	;X PLL Enable bit(Oscillator multiplied by 4)
	config PCLKEN = OFF 	;Primary Clock Enable Bit(Primary clock is under software control)
	config FCMEN = OFF
	config IESO = OFF	;Internal/External Oscillator Switchover bit(Oscillator Switchover mode disabled)
	config PWRTEN = OFF,BOREN = OFF,BORV = 19
	config WDTEN = OFF,WDTPS = 1
	config MCLRE = OFF	;MCLR Pin Enable bit(RE3 input pin enabled; MCLR disabled)
	config HFOFST = OFF,STVREN = OFF,LVP = OFF,BBSIZ = OFF,XINST = OFF
	config CP0 = OFF,CP1 = OFF,CPB = OFF,CPD = OFF,WRT0 = OFF,WRT1 = OFF,WRTB = OFF,WRTC = OFF,WRTD = OFF,EBTR0 = OFF,EBTR1 = OFF,EBTRB = OFF

LP0	EQU	00H
LP1	EQU	01H
LP2	EQU	02H
LP3	EQU	03H
LEDLST	EQU	04H

	ORG	0h
	GOTO	START
	ORG	8h
	GOTO	START
	ORG	18h
	GOTO	START
START
	MOVLW	B'00000000'
	MOVWF	TRISC
	MOVLW	B'11111111'
	MOVWF	PORTC
	MOVLW	B'00000001'
	MOVWF	LEDLST
MAIN
	CALL	MOVLED
	CALL	WAT

	GOTO	MAIN

;******************************************************************************************
;   Function Name : MOVLED
;   Title         : 
;   Input         : 
;   Output        : 
;******************************************************************************************
MOVLED
	MOVF	LEDLST,W
	MOVWF	PORTC
	RLCF	LEDLST
;
	MOVF	LEDLST,W
	XORLW	H'00'
	BTFSS	STATUS,Z
	RETURN
	MOVLW	B'00000000'
	MOVWF	LEDLST
	RLCF	LEDLST

	RETURN

;******************************************************************************************
;   Function Name : WAT
;   Title         : 
;   Input         : 
;   Output        : 
;******************************************************************************************
WAT
	MOVLW	H'64'
	MOVWF	LP2
WAT2
	MOVLW	H'64'
	MOVWF	LP1
WAT1
	MOVLW	H'64'
	MOVWF	LP0
WAT0
	DECFSZ	LP0
	GOTO	WAT0
	DECFSZ	LP1
	GOTO	WAT1
	DECFSZ	LP2
	GOTO	WAT2
	RETURN

	END