
















	cexit:
		CJS	savepregs
		CONT	DZ D=BR, pswapbase+pad  OR  ALDCA
		CONT	DZ D=BR, regarea+14  OR  ALDCA
		CONT	ZB  AND  HLDCA			// C stack
		LDCT	putpregs  DZ D=CSH  SUB  LDCA
		JSRP	F  DZ D=BR, prcache  OR  HLDCA
		CONT	DZ D=CSH  OR  RAMF B=R0
		CJS	loadcregs  ZA  AND  HLDIR
		CONT	DZ D=BR, regarea+5  OR  ALDCA
		CONT	DZ SHR1  OR  RAMA A=ir0 B=ir0  LDIR
		CONT	ZB  AND  HLDCA
		CJV	ZB  SUBR  RAMF B=sp  LDCA
		CONT	ZQ  OR  CWR
