LIST	P=16F84
	INCLUDE	<16F84.INC>

	__CONFIG CP_OFF&_PWRTE_ON&_WTD_OFF&_XT_OSC

PDe10	EQU	H'10'
PDe11	EQU	H'11'
PDe12	EQU	H'12'

	ORG	0
	GOTO	PRIN
	ORG	5
	GOTO	PRIN

PRIN	BSF	STATUS,RP0
	MOVLW	B'00000000'
	MOVWF	TRISB
	CLR	TRISA
	BCF	STATUS,RP0

BUCLE	MOVLW	0X01
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB
	CALL	DEMORA_2
	MOVLW	0X02
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB
	CALL	DEMORA_2
	GOTO	BUCLE

DEMORA	MOVLW	.14
	MOVWF	PDe10
Ploop0	MOVLW	.72
	MOVWF	PDe11
Ploop1	MOVLW	.247
	MOVWF	PDe12
Ploop2	CLRWTD
	DECFSZ	PDe12,1
	GOTO	Ploop2
	DECFSZ	PDe11
	GOTO	Ploop1
	DECFSZ	PDe10
	GOTO	Ploop0
	GOTO	PDelL1
PDelL1	CLRWTD
	RETURN

DEMORA_2
	MOVLW	.239
	MOVWF	PDe10
Ploop3	MOVLW	.232
	MOVWF	PDe11
Ploop4	CLRWDT
	GOTO	PDelL2
PDelL2	GOTO	PDelL3
PDelL3	CLRWDT
	DECFSZ	PDe11
	GOTO	Ploop4
	DECFSZ	PDe10
	GOTO	Ploop3
PDelL4	GOTO	PDelL5
PDelL5	GOTO	PDelL6
PDelL6	GOTO	PDelL7
PDelL7	CLRWDT
	RETURN

	END