Use macros.

        ORG     0
PNO     SET     0       ; which page am I on?


        P1CALL  SUB1

        P1GOTO  PROC1

        ORG     h'800'
PNO     SET     1

SUB1    ....

PROC1   .....


P1CALL  MACRO   A
        IF      PNO==0
        BSF     PCLATH,3
        ENDIF
        CALL    A
        IF      PNO==0
        BCF     PCLATH,3
        ENDIF
        ENDM

You can write P0CALL, P1GOTO, etc.

  <edtodd@sni.net>    Ed Todd