RCOUNT EQU 0x20			
CNTVAL EQU 0x3			
	ORG	0000H			
	MOVLW	0x50 			
	MOVWF	TBLPTRL		
	MOVLW	0x02 			
	MOVWF	TBLPTRH		
	MOVLW	CNTVAL 		
	MOVWF	RCOUNT		
	CLRF	TRISB			
B6	TBLRD*			
	MOVFF	TABLAT,PORTB	
	INCF	TBLPTRL,F		
	DECF	RCOUNT,F		
	BNZ	B6 			
HERE	GOTO	HERE			
	ORG	0x250
MYDATA DB	"USA"
	END