List　　p=16f84

　　　　　　include　　"p16f84.inc"



　　　　　　Status　　equ　　　　0x03

　　　　　　TrisA　　equ　　　　0x85

　　　　　　TrisB　　equ　　　　0x86

　　　　　　Porta　　equ　　　　0x05

　　　　　　PortB　　equ　　　　0x06



Start 　　ORG 　　0x00

　　 BSF 　　03,5 Go to page1 for setting-up the ports

　　 MOVLW 　　00h Put 00 into W

　　 MOVWF 　　05h Make all RA lines output

　　 MOVWF 　　06h Make all RB lines output

　　 BCF 　　03,5 Go to Page0 for programming

　　

Flash　　　　MOVLW 　　0FFh Put 02 into W to

　　 MOVWF 　　06h Reset the 4017

　　　　 　　CALL 　　DelA

MOVLW 　　00h

MOVWF 　　06h

　　　　　　CALL　　DelA

GOTO 　　Flash

DelA DECFSZ 　　1Ah,1

GOTO 　　DelA

DECFSZ 　　1Bh,1

GOTO 　　DelA

RETURN

END-List　　p=16f84

　　　　　　include　　"p16f84.inc"



　　　　　　Status　　equ　　　　0x03

　　　　　　TrisA　　equ　　　　0x85

　　　　　　TrisB　　equ　　　　0x86

　　　　　　Porta　　equ　　　　0x05

　　　　　　PortB　　equ　　　　0x06



Start　 　　ORG 　　0x00

　　　　　　BSF 　　03,5　　　 Go to page1 for setting-up the ports

　　　　　　MOVLW 　　00h　　　　Put 00 into W　　　　　　

　　　　　　MOVWF 　　05h　　　　Make all RA lines output　　　　

　　　　　　MOVWF 　　06h　　　　Make all RB lines output

　　　　　　BCF 　　03,5　　　 Go to Page0 for programming

　　　　　　

Flash　　　　MOVLW 　　0FFh　　　　Put 02 into W to

　　　　　　MOVWF 　　06h　　　　Reset the 4017　

　　　　　 　　CALL 　　DelA

　　　　　　MOVLW 　　00h

　　　　　　MOVWF 　　06h

　　　　　　　CALL　　DelA

　　　　　　GOTO 　　Flash

DelA　　　　DECFSZ 　　1Ah,1

　　　　　　GOTO 　　DelA

　　　　　　DECFSZ 　　1Bh,1

　　　　　　GOTO 　　DelA

　　　　　　RETURN

　　　　　　END