; Generated by WinPicProg 1.91, (c) Nigel Goodwin 2002.
LIST P=12F508, F=INHX8M
include "P12F508.inc"
__CONFIG 0x000A
ORG 0x0000
MOVWF OSCCAL
CLRF FSR
Label_000A GOTO Label_0001
Label_0001 CLRF 0x07
CLRF FSR
GOTO Label_0002
Label_0004 GOTO Label_0003
ORG 0x01E2
Label_0003 MOVLW 0x3D
TRIS GPIO
RETLW 0x00
Label_0002 CLRF 0x07
CALL Label_0004
GOTO Label_0005
Label_0005 BSF GPIO , 01
MOVLW 0xF9
MOVWF 0x08
Label_0006 CLRWDT
DECFSZ 0x08 , f
GOTO Label_0006
GOTO Label_0007
Label_0007 CLRWDT
MOVLW 0x01
MOVWF 0x0F
MOVF 0x0F , W
ADDWF 0x07 , f
BCF GPIO , 01
MOVLW 0xF9
MOVWF 0x08
Label_0008 CLRWDT
DECFSZ 0x08 , f
GOTO Label_0008
GOTO Label_0009
Label_0009 CLRWDT
GOTO Label_0005
GOTO Label_0005
GOTO Label_000A
END