;NewIdea.asm
        ;Project: "xxx" - for F84A and then for a 508A  


	ORG 0		;Start of memory for the program
SetUp	MOVLW 08	;Load W with 0000 1000
	TRIS 06		;Make RB3, (GP3) input	
	OPTION 0DFh  	;Make GP2 an output & disable weak pullups	
	GOTO Main

Delay1	MOVLW 05	;5 loops of this routine 
	MOVWF 0E	
Del2	MOVLW 0B0h	;Create 0B inner loops
	MOVWF 0Dh	;File 0D will be decremented
Del3	DECFSZ 0Dh,1	;Loop for 0B loops 
	GOTO Del3
	DECFSZ 0Eh,1	;Loop 5 lots of 0B loops
	GOTO Del2
	RETURN	

Main	BSF 06,5	;Make GP5 HIGH
	NOP
	NOP
	BCF 06,0
	CALL Delay1
	GOTO Main

	END			;Tells assembler end of program