46900 #include "rundecs.h"
46910     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
46920 (**)
46930 (**)
46940 (*-01() (*-05()
46950 FUNCTION SELECTT(PRIMARY: OBJECTP; STRUCTOFF: INTEGER): ASNAKED;
46960 (*PSELECT*)
46970   VAR TEMP: NAKEGER;
46980     BEGIN
46990     WITH TEMP, NAK DO
47000       BEGIN
47010 (*+11() ASNAK := 0;  (*TO ENSURE THAT BIT IS CLEAR*) ()+11*)
47020       STOWEDVAL := PRIMARY;
47030       POSITION := STRUCTOFF+PRIMARY^.OFFSET;
47040       SELECTT := ASNAK
47050       END
47060     END;
47070 (**)
47080 (**)
47090 FUNCTION SELECTS(PRIMARY: OBJECTP; STRUCTOFF: INTEGER): ASNAKED;
47100   VAR TEMP: NAKEGER;
47110     BEGIN
47120     WITH TEMP, NAK DO
47130       BEGIN
47140 (*+11() ASNAK := 0; ()+11*)  (* TO ENSURE THAT BIT IS CLEAR *)
47150       STOWEDVAL := PRIMARY;
47160       POSITION := STRUCTOFF+STRUCTCONST;
47170       SELECTS := ASNAK
47180       END
47190     END;
47200  (**)
47210  (**)
47220 FUNCTION SELECTN(TEMP: NAKEGER; STRUCTOFF: INTEGER): ASNAKED;
47230     BEGIN WITH TEMP DO
47240       BEGIN NAK.POSITION := NAK.POSITION+STRUCTOFF; SELECTN := ASNAK END;
47250     END;
47260 ()-05*) ()-01*)
47270 (**)
47280 (**)
47290 (*-02() BEGIN END ; ()-02*)
47300 (*+01()
47310 BEGIN (*OF MAIN PROGRAM*)
47320 END (*OF EVERYTHING*).
47330 ()+01*)