44600 #include "rundecs.h"
44610     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
44620 (**)
44630 (**)
44640 FUNCTION ROUTNP(PROC: ASPROC; NPARAMS: SIZERANGE):OBJECTP;
44650   VAR NEWRT: OBJECTP;
44660   BEGIN
44670   ENEW(NEWRT, PROUTINESIZE);
44680   WITH NEWRT^ DO
44690     BEGIN
44700 (*-02() FIRSTWORD := SORTSHIFT * ORD(PASCROUT); ()-02*)
44710 (*+02() PCOUNT:=0; SORT:=PASCROUT; ()+02*)
44720     PPROCBL := PROC;
44730     PPARAMS := NPARAMS;
44740     OSCOPE := 1; (*GLOBAL*)
44750     END;
44760   ROUTNP := NEWRT
44770   END;
44780 (**)
44790 (**)
44800 (*-02()
44810   BEGIN
44820   END ;
44830 ()-02*)
44840 (*+01()
44850 BEGIN (*OF MAIN PROGRAM*)
44860 END (*OF EVERYTHING*).
44870 ()+01*)