FANG$*    EQU       0400310
PIRCB$*   EQU       0400163
          END       .