Added PHS1 and moved some code there from PHS to reduced routine size
Removed refs to removed routine ^A1AEKEY6 which are not needed.