MYREG	EQU 0x32	
	CNTVAL EQU D'200'
	MOVLW	CNTVAL	
	MOVWF	MYREG		
	BCF	TRISB,1	
AGAIN	BTG	PORTB,1 	
	DECF	MYREG,F	
	BNZ	AGAIN