Google
 

Trailing-Edge - PDP-10 Archives - bb-l014q-bm_tops20_v6_1_atpch17 - autopatch/forerr.c17
There are 2 other files named forerr.c17 in the archive. Click here to see a list.
 REP 2/1	;17C1
		TV	FORERR	ERROR HANDLER,11(5025)
 WIT
		TV	FORERR	ERROR HANDLER,11(5030)
 INS 481/1	;17C2
	***** End V10 Development *****

	5030	MRB	21-Jan-87
		Change routine SIXPTR not to use OWGBP all the time. When
		the address of the string and FOROTS are both in section
		zero then use a local BP (in case we're running on a KS).
 INS 109/6	;17C3

	;[5030] If address of string and FOROTS are in section 0 then use
	;[5030] a local byte pointer instead of a One Word Global (OWGBP).

		TLNE	T2,000037	;[5030]Is address in Non-Zero section?
		 JRST	SIXLOP		;[5030]It's non-zero! use a OWGBP
					;[5030]String is in Sect 0 where's OTS
		XMOVEI	T1,.		;[5030]What section are we running in?
		TLNN	T1,000037	;[5030]Is it section zero also?
		HLL	T2,[POINT 6]	;[5030]Yes, use a local BP
					;[5030]No,then use the OWGBP

 SUM 70589