











	cbackup:
		CONT	ZB  SUBR  RAMF B=pc
		CONT	DZ RTL1  OR  RAMA A=ir0 B=ir0
	cpnoop:
		CONT	ZB  SUBR  RAMF B=pc
		CONT	AB A=R0 B=R0  SUBR  QREG
		CONT	DZ RTL1  OR  RAMA A=ir0 B=ir0
	cfexit:
		CONT	DZ BR, cstartProlog  OR  LDIR
	fexit:
		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	ZB  AND  HLDCA
		JUMP	noop  ZA A=sp  OR  LDCA
		CONT	ZA A=R0  OR  CWR
