LIST P=18F27J53
 #INCLUDE "P18F27J53.INC"
	CBLOCK	0x20	
	T1
	T2
	T3

	ENDC

	ORG	0
	CALL	DELAY
START
	MOVLW	B'00000000'
	MOVWF	TRISC
LOOP
	MOVLW	B'00000010'
	MOVWF	PORTC
	CALL     DELAY
	MOVLW	B'00000001'
	MOVWF	PORTC
	CALL     DELAY
	GOTO 	LOOP

DELAY					
	MOVLW	d'20'			
	MOVWF	T1			
DEL
	MOVLW	d'100'
	MOVWF	T2			
DEL1
	MOVLW	d'20'
	MOVWF	T3			
DEL2
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	T3,f		
	GOTO	DEL2		
	DECFSZ	T2,f		
	GOTO	DEL1
	DECFSZ	T1,f		
	GOTO	DEL
	RETURN			
END