REDIRECT(P77NEW,ICL9LPNEW)
REDIRECT(P77DISP,ICL9LPDISPOSE)
REDIRECT(P77WRWST,ICL9LPWRITEWDSTR)
REDIRECT(P77WRLN,ICL9LPWRITELINE)
REDIRECT(P77WRSTR,ICL9LPWRITESTR)
REDIRECT(P77HALT,ICL9LPHALT)
REDIRECT(P77WRFCH,ICL9LPWRITECHAR)
REDIRECT(P77WRINT,ICL9LPWRITEINT)
REDIRECT(P77PAGE,ICL9LPPAGE)
REDIRECT(P77CLOCK,ICL9LPCLOCK)
REDIRECT(P77FINSH,ICL9LPFINISHRUN)
REDIRECT(P77CODE,ICL9LPCHARCODEIS)
REDIRECT(P77CASER,ICL9LPCASEERROR)
PERFORM