MYREG EQU 0x08
	ORG	0
	MOVLW	0x55		
BACK	MOVWF	PORTB			
	RCALL	DELAY		
	COMPF	PORTB,F		
	BRA	BACK		
DELAY	MOVLW	0xFF		
	MOVWF	MYREG
AGAIN	NOP			
	NOP
	DECF	MYREG,F
	BNZ	AGAIN		
	RETURN		
	END