xtn.u

操作系统SunOS 4.1.3版本的源码

|*
|*		Single Precision Add Instruction
|*		Single Precision Subtract Instruction
|*
routine xs.add w100110xxxx0 lbs sadd
routine xs.sub w100111xxxx0 lbs ssub
	;		lasf fmap csla;		reg;		;	;
	;		;			;		;	;
	;		;			;		;	;
	;		;			;		;	;
	jclr clp idl2;	csuxa usp;		;		recclk;	rcssp imm2;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Double Precision Add Instruction
|*		Double Precision Subtract Instruction
|*
routine xd.add w100110xxxx1 lbm dadd
routine xd.sub w100111xxxx1 lbm dsub
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	;
	jclr clp1 idl2;	lblf fmap csla;		opdlsw;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
xdfin.alu:
	;		;			;		;	;
xdfin.alu2:
	;		csuxa umsw;		;		;	;
	;		csuxa ulsw;		;		;	ptr1;
	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
	;		woea;			dtor;		;	ramwe rcslsw ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Single Precision Multiply Instruction
|*
routine xs.mul w101000xxxx0 las smul
	call wait3;	lbsf fmap cslm;		reg;		;	;
	jclr clp idl2;	csuxm usp;		;		recclk;	rcssp imm2;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woem;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Double Precision Multiply Instruction
|*
routine xd.mul w101000xxxx1 lbm dmul
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	;
	jclr clp3 idl2;	lblf fmap cslm;		opdlsw;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
xdfin.mul:
	;		;			;		;	;
	;		;			;		;	;
	;		;			;		;	;
	;		csuxm umsw;		;		;	;
	;		csuxm ulsw;		;		;	ptr1;
	jwerr der1 cstat;woem;			dtor;		;	ramwe rcsmsw ptr1;
	;		woem;			dtor;		;	ramwe rcslsw ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Single Precision Divide Instruction
|*
routine xs.div w101001xxxx0 lbs sdiv
	;		lasf fmap csla;		reg;		;	;
	;		;			;		;	;
	;		;			;		;	;	lpreg!11
	jclr clp24 idl2;;			;		;	;
|#				(Note: 11 will cause a delay of 24)
	call wait;	;			;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Double Precision Divide Instruction
|*
routine xd.div w101001xxxx1 lbm ddiv
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	;
	jclr clp56 idl2;lblf fmap csla;		opdlsw;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
|#				(Note: 25 will cause a delay of 52)
	;		;			;		;	;	lpreg!25
	call wait;	;			;		;	;
	call xdfin.alu2;;			;		;	;
|	;		csuxa umsw;		;		;	;
|	;		csuxa ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woea;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Single Precision Backwards Subtract Instruction
|*
routine xs.b.sub w101010xxxx0 las ssub
	call wait3;	lbsf fmap csla;		reg;		;	;
	jclr clp idl2;	csuxa usp;		;		recclk;	rcssp imm2;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Double Precision Backwards Subtract Instruction
|*
routine xd.b.sub w101010xxxx1 lam dsub
	;		lbm csla;		reg;		;	rcslsw ptr2;
	;		lbl csla;		reg;		;	;
	jclr clp1 idl2;	lalf fmap csla;		opdlsw;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	call xdfin.alu;	;			;		recclk;	rcslsw ptr1;
|	;		;			;		;	;
|	;		csuxa umsw;		;		;	;
|	;		csuxa ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woea;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Single Precision Backwards Divide Instruction
|*
routine xs.b.div w101011xxxx0 las sdiv
	;		lbsf fmap csla;		reg;		;	;
	;		;			;		;	;
	;		;			;		;	;	lpreg!11
	jclr clp24 idl2;;			;		recclk;	rcssp imm2;
|#				(Note: 11 will cause a delay of 24)
	call wait;	;			;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Double Precision Backwards Divide Instruction
|*
routine xd.b.div w101011xxxx1 lam ddiv
	;		lbm csla;		reg;		;	rcslsw ptr2;
	;		lbl csla;		reg;		;	;
	jclr clp56 idl2;lalf fmap csla;		opdlsw;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
|#				(Note: 25 will cause a delay of 52)
	;		;			;		;	;	lpreg!25
	call wait;	;			;		;	;
	call xdfin.alu2;;			;		;	;
|	;		csuxa umsw;		;		;	;
|	;		csuxa ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woea;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- Reg 3 +/- (Reg 2 * Operand)
|*		Single Precision Instruction
|*
routine xs.r3Ar2Mop w110000xxxx0 las sadd
routine xs.r3Sr2Mop w110001xxxx0 las ssub
	call wait3;	lbsf smul cslm;		reg;		;	;
	;		csuxm usp;		;		;	;
	;		;			;		;	;
	jwerr werr cstat;lbs csla woem;		;		;	;
	jclr clp2 idl2;	;			;		;	rcssp imm3;
	call wait3;	lasf fmap csla;		reg;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- Reg 3 +/- (Reg 2 * Operand)
|*		Double Precision Instruction
|*
routine xd.r3Ar2Mop w110000xxxx1 lbm dadd
routine xd.r3Sr2Mop w110001xxxx1 lbm dsub
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	;
	jclr clp3 idl2;	lblf dmul cslm;		opdlsw;		;	rcsmsw imm3;
	;		lam csla;		reg;		;	rcslsw ptr3;
	;		lal csla;		reg;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
	;		;			;		;	;
	;		csuxm umsw;		;		;	;
	;		csuxm ulsw;		;		;	;
	jwerr werr cstat;lbm csla woem;		;		;	;
	;		lblf fmap csla woem;	;		;	;
	;		;			;		;	;
	call xdfin.alu;	;			;		;	;
|	;		;			;		;	;
|	;		csuxa umsw;		;		;	;
|	;		csuxa ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woea;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- - Reg 3 + (Reg 2 * Operand)
|*		Single Precision Instruction
|*
routine xs.Nr3Ar2Mop w110010xxxx0 las ssub
	call wait3;	lbsf smul cslm;		reg;		;	;
	;		csuxm usp;		;		;	;
	;		;			;		;	;
	jwerr werr cstat;las csla woem;		;		;	;
	jclr clp2 idl2;	;			;		;	rcssp imm3;
	call wait3;	lbsf fmap csla;		reg;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- - Reg 3 + (Reg 2 * Operand)
|*		Double Precision Instruction
|*
routine xd.Nr3Ar2Mop w110010xxxx1 lbm dsub
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	;
	jclr clp3 idl2;	lblf dmul cslm;		opdlsw;		;	rcsmsw imm3;
	;		lbm csla;		reg;		;	rcslsw ptr3;
	;		lbl csla;		reg;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	;		;			;		recclk;	rcslsw ptr1;
	;		;			;		;	;
	;		csuxm umsw;		;		;	;
	;		csuxm ulsw;		;		;	;
	jwerr werr cstat;lam csla woem;		;		;	;
	;		lalf fmap csla woem;	;		;	;
	;		;			;		;	;
	call xdfin.alu;	;			;		;	;
|	;		;			;		;	;
|	;		csuxa umsw;		;		;	;
|	;		csuxa ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woea;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woea;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- Reg 3 * (Reg 2 +/- Operand)
|*		Single Precision Instruction
|*
routine xs.r3Mr2Aop w110011xxxx0 lbs sadd
routine xs.r3Mr2Sop w110100xxxx0 lbs ssub
	call wait3;	lasf fmap csla;		reg;		;	;
	;		csuxa usp;		;		;	;
	;		;			;		;	;
	jwerr werr cstat;las cslm woea;		;		;	;
	jclr clp2 idl2;	;			;		;	rcssp imm3;
	call wait3;	lbsf smul cslm;		reg;		recclk;	rcssp ptr1;
	;		csuxm usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woem;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <-- Reg 3 * (Reg 2 +/- Operand)
|*		Double Precision Instruction
|*
routine xd.r3Mr2Aop w110011xxxx1 lbm dadd
routine xd.r3Mr2Sop w110100xxxx1 lbm dsub
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	;
	jclr clp3 idl2;	lblf fmap csla;		opdlsw;		;	rcsmsw imm3;