Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93h-bb - 7,6/ap016/forerr.c16
There are 8 other files named forerr.c16 in the archive. Click here to see a list.
 REP 2/1	;16C1
		TV	FORERR	ERROR HANDLER,11(5025)
 WIT
		TV	FORERR	ERROR HANDLER,11(5030)
 INS 481/1	;16C2
	***** 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	;16C3

	;[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