














	intexit:
		CONT	ZB  SUBR  RAMF B=pc
		CONT	AB A=R0 B=R0  SUBR  QREG
		CONT	DZ RTL1  OR  RAMA A=ir0 B=ir0
		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
		CONT	ZA A=sp  OR  RAMF B=R0
		CJS	loadcregs  ZA  AND  HLDIR
		CONT	DZ D=BR, regarea+5  OR  ALDCA
		CONT	ZA A=sp  OR LDCA
		CONT	ZB  AND  HLDCA
		CONT	ZA A=R0  OR  CWR
		LDCT	trap  DZ  SHL1  OR  RAMA A=ir0 B=ir0
		JRP	F  DA D=CAIR MASK A=ir0  OR  RAMF B=ir0
		CONT	DZ D=BR, interrupt+256  OR  QREG
