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