Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_ap115_bb-ju01b-bb - d36com.c14
There are 3 other files named d36com.c14 in the archive. Click here to see a list.
 DEL 58/35	;14C1
		TESTS1			;ASSERT THAT WE'RE IN SECTION 1
 DEL 15/56	;14C2
		TESTS1			;ASSERT THAT WE'RE IN SECTION 1
 REP 16/57	;14C3
	DNCPYW:	TESTS1			;ASSERT THAT WE'RE IN SECTION 1
		EXCH T1,T3		;CHANGE TO T1/COUNT, T2/TO, T3/FROM
 WIT
	DNCPYW:	EXCH T1,T3		;CHANGE TO T1/COUNT, T2/TO, T3/FROM
 REP 16/76	;14C4
		MOVE T1,UPTIME##	;GET JIFFIES OF UPTIME
		IMULI T1,TIMBAS		;MAKE IT MILLI-
		PUSH P,T2		;SAVE T2 FOR CALLER
		IDIVI T1,JIFSEC##	; SECONDS OF UPTIME
 WIT
		PUSH P,T2		;SAVE T2 FOR CALLER
		MOVE T1,UPTIME##	;GET JIFFIES OF UPTIME
		MULI T1,TIMBAS		;MAKE IT MILLI-
		DIVI T1,JIFSEC##	; SECONDS OF UPTIME
 INS 1/90	;14C5
		SUBTTL	DCNMOV	- SET MEMORY OFFLINE Support


	IFN FTOPS10,<
		INTERNAL DCNMOV
		XNENT	DCNMOV

		CALL SCTMOV##		;Have SCLINK move any name/address pages
		RET
	>; END IFN FTOPS10
 DEL 1/94	;14C6
		SUBTTL TESTSB -- Assert that Code is Running in section 1

	;Called only by TESTS1 macro, in TOPS10, defined in D36PAR


	IFN FTOPS10,<
	IFN FTDEBUG,<
	IFN FTXMON,<

	TESTSB::BUG.(HLT,COMSC0,D36COM,SOFT,<Section 1 assertion failed>,,<

	Cause:	We are supposed to be running in section one or greater and yet
		the TESTS1 macro has found that we are running in section zero.
		In order to make extended addressing work, the code must be
		running in section one or greater.

	Action:	This BUG. is called with a PUSHJ P, so look on the top of the
		stack for the address of the TESTS1 macro that detected the fault.
		Find the code that fell into section zero and fix it.
	>)
		POP P,CX		;GET RETURN ADDRESS
		HRLI CX,1		;FORCE IT TO SECTION 1
		XJRST CX		;RETURN TO CALLER IN SECTION 1

	>;END IFN FTXMON
	>;END IFN FTDEBUG
	>;END IFN FTOPS10

 SUM 128377