;*********************************************************************
;                                                                    *
;     	PIC16C5X Tutorial 7: Paging			     	     *                                                
;								     *
;*********************************************************************
;*	TARGET PIC16C5X
;*********************************************************************
;*	@version 	0.1, 10 October	2001
;*	@author		James Caska
;*********************************************************************
;*
;*	Runs on Processors without change
;*
;*	PIC16c54
;*	PIC16c55
;*	PIC16c56
;*	PIC16c57
;*
;*********************************************************************

	#include <p16C5X.inc>

	list      p=16C57     

   
DELAYCOUNTER	EQU	.8


	ORG	.0
PAGENUMBER
	RETLW	.1



Delay1msapprox
	MOVLW	.255
	MOVWF	DELAYCOUNTER
Delay1msapprox.loop	
	NOP
	DECFSZ	DELAYCOUNTER,F
	GOTO	Delay1msapprox.loop
	RETLW	.0


	
START
	;==========================================
	;Autogenerated configuration code PIC16C5X
	;Config Wiz V0.1, www.virtualbreadboard.com
	;==========================================
	;======Begin PORT Configuration
	;======PORT B
	MOVLW   .0	;PORTB Configuration Bits
	TRIS	PORTB
	
MAIN
	
	BCF	STATUS,	PA0	;Set Page0
	BCF	STATUS,	PA1
	CALL	PAGENUMBER
	MOVWF	PORTB
	CALL	Delay1msapprox

	BSF	STATUS,	PA0	;Set Page1
	CALL	PAGENUMBER
	BCF	STATUS,	PA0	;Set Page0
	MOVWF	PORTB
	CALL	Delay1msapprox

	BSF	STATUS,	PA1	;Set Page2
	CALL	PAGENUMBER
	BCF	STATUS,	PA1	;Set Page0
	MOVWF	PORTB
	CALL	Delay1msapprox

	BSF	STATUS,	PA0	;Set Page3
	BSF	STATUS,	PA1	
	CALL	PAGENUMBER
	BCF	STATUS,	PA0	;Set Page0
	BCF	STATUS,	PA1
	MOVWF	PORTB
	CALL	Delay1msapprox

	GOTO	MAIN


	;PIC16C56/57 Page1
	ORG	200H
	RETLW	.2

	;PIC16C57 Page2
	ORG	400H
	RETLW	.4

	;PIC16C57 Page3
	ORG	600H
	RETLW	.8



	;PIC16C54/55 Reset
	ORG	1FFH
	GOTO	START

	;PIC16C56 Reset
	ORG	3FFH
	GOTO	START

	;PIC16C57 Reset
	ORG	7FFH
	GOTO	START



	END