	list      p=12F83	; list directive to define processor
	#include  ..\m0-4.asm
	config_
 	
#define	OPTIONinit	b'11001000'	; no wakup, no pullup, Clock 1:1
#define TRISIOinit 	b'00001000'	; 0 output, 1,2 output	
;#define GPIOinit 4	b'00000000'	; GPIO  all LOW 
;****************************************************************************************
	nointr683
	init_			; reasonable initiation of special function registers 


	cblock	_MINRAM			; start of variables
	 SyS1
	endc
#define STACK		_MAXRAM
	delay .5000000
	goto mloop
flflop	

#define	hiSide	SyS1,2
	do_		GPIO,=,GPIO,AND,b'11111000',lit8

	do_		SyS1,=,SyS1,XOR,b'00000100',lit8
	delay 	.100
    if_m hiSide,is_on,1
	  do_	GPIO,=,GPIO,OR,b'00010010',lit8
	else_m
	  do_	GPIO,=,GPIO,OR,b'00000100',lit8
	end_m
	retlw 0
	
mloop
	call flflop
	delay .10000
	do_		GPIO,=,GPIO,AND,b'11111000',lit8

	goto mloop

		end