Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/algfun.c08
There are 14 other files named algfun.c08 in the archive. Click here to see a list.
 REP 3/1	;08C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 REP 15/50	;08C2
					MOVE	T,OPMVLP
		    GLOAD;
 WIT
	;**; [352] AFTER TEXT ";..LOAD THE VALUE" IN ALGFUN, INSERT, JBS, 23-MAR-84
		  IF SYM IS IN A NON-ZERO AC	;[352]
	EDT352:			TRNE	SYM,-1	;[352] ANY LOCATION ASSIGNED TO SYM?
				TRNE	SYM,^-17 ;[352] IS IT AN AC?
				 JRST	FALSE	;[352] NO TO EITHER ONE
		  THEN			;[352] YES, CHECK FOR POSSIBLE AC CONFLICT
		    BEGIN		;[352] AND POKE LAC IF NECESSARY.  THEN LET
		      IF; AC CONFLICT	;[352] GLOAD FIGURE OUT WHAT AC TO USE
				PUSH	SP,SYM	;[352] SAVE SYM FOR A MOMENT
				HRLI	SYM,0	;[352] SYM HAS ONLY AC NUMBER NOW
				SUB	SYM,LAC	;[352] SPACE UNTIL AC CONFLICT
				SKIPGE	SYM	;[352] NO CONFLICT IF SYM .GE. LAC
				CAMGE	SYM,[-3];[352] L.R. WANTS 3 AC'S, OTHERS LESS
				 JRST	FALSE	;[352] NO CONFLICT POSSIBLE, OK
		      THEN; LAC := AC(SYM)	;[352] POKE LAC SO GLOAD ALLOCATES OK
				POP	SP,SYM	;[352] RESTORE SYM
				HRRM	SYM,LAC	;[352] AND SET LAC
		      ELSE; RESTORE SYM	;[352]
				POP	SP,SYM	;[352]
		      FI		;[352]
		    ENDD		;[352]
		  FI			;[352]
					MOVE	T,OPMVLP
		  GLOAD;
 SUM 153439