com.u

操作系统SunOS 4.1.3版本的源码

|*
|*		Weitek Single Precision ALU Instructions
|*
|*	Operations with two operands and one result
routine c.ssub w01010000000 lnop ssub
routine c.sdiff w01010000100 lnop sdiff
routine c.ssubm w01010001000 lnop ssubm
routine c.sadd w01010100000 lnop sadd
routine c.ssum w01010100100 lnop ssum
routine c.saddm w01010101000 lnop saddm
	;		las csla;		reg;		;	rcssp ptr3;
	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;
|*	Operations with one operand and one result
routine c.sneg w01010010000 lnop sneg
routine c.sident w01010110000 lnop sident
routine c.sabs w01010111000 lnop sabs
routine c.sexct w01011100000 lnop sexct
routine c.swdnrm w01011100100 lnop swdnrm
routine c.sinxct w01011101000 lnop sinxct
routine c.sfloat w01011110100 lnop sfloat
	;		lasf fmap csla;		reg;		;	;
	call wait2;	;			;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*	Operations with two operands and no result
routine c.scmp w01011000000 lnop scmp
routine c.scmpm w01011001000 lnop scmpm
	;		las csla;		reg;		;	rcssp ptr3;
	call wait3;	lbsf fmap csla;		reg;		;	;
	call wait1;	csuxa usp;		;		;	;
	jwerr werr cstat;woea;			;		;	;
	call idle1;	;			;		;	;
|*	Operations with one operand and no result
routine c.scmp0 w01011010000 lnop scmp0
	call wait3;	lasf fmap csla;		reg;		;	rcssp ptr3;
	call wait1;	csuxa usp;		;		;	;
	jwerr werr cstat;woea;			;		;	;
	call idle1;	;			;		;	;
|*	Operations with one operand and one integer result (i.e. from l.s.
|*	portion of Weitek chip)
routine c.scvtint w01011110000 lnop scvtint
	;		lasf fmap csla;		reg;		;	rcssp ptr3;
	call wait2;	;			;		recclk;	rcssp ptr1;
	;		csuxa ulsw;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Weitek Double Precision ALU Instructions
|*
|*	Operations with two operands and one result
routine c.dsub w01010000001 lnop dsub
routine c.ddiff w01010000101 lnop ddiff
routine c.dsubm w01010001001 lnop dsubm
routine c.dadd w01010100001 lnop dadd
routine c.dsum w01010100101 lnop dsum
routine c.daddm w01010101001 lnop daddm
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	rcsmsw ptr3;
	;		lbm csla;		reg;		;	rcslsw ptr3;
	;		lblf fmap csla;		reg;		recclk;	rcsmsw ptr1;
	call wait2;	;			;		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;
|*	Operations with one operand and one result
routine c.dneg w01010010001 lnop dneg
routine c.dident w01010110001 lnop dident
routine c.dabs w01010111001 lnop dabs
routine c.dexct w01011100001 lnop dexct
routine c.dwdnrm w01011100101 lnop dwdnrm
routine c.dinxct w01011101001 lnop dinxct
routine c.dfloat w01011110101 lnop dfloat
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lalf fmap csla;		reg;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	call wait1;	;			;		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;
|*	Operations with two operands and no result
routine c.dcmp w01011000001 lnop dcmp
routine c.dcmpm w01011001001 lnop dcmpm
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	rcsmsw ptr3;
	;		lbm csla;		reg;		;	rcslsw ptr3;
	call wait3;	lblf fmap csla;		reg;		;	;
	call wait1;	csuxa umsw;		;		;	;
	jwerr werr cstat;woea;			;		;	;
	call idle1;	;			;		;	;
|*	Operations with one operand and no result
routine c.dcmp0 w01011010001 lnop dcmp0
	;		lam csla;		reg;		;	rcslsw ptr2;
	call wait3;	lalf fmap csla;		reg;		;	;
	call wait1;	csuxa umsw;		;		;	;
	jwerr werr cstat;woea;			;		;	;
	call idle1;	;			;		;	;
|*	Operations with one operand and one integer result (i.e. from l.s.
|*	portion of Weitek chip)
routine c.dcvtint w01011110001 lnop dcvtint
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lalf fmap csla;		reg;		;	;
	;		;			;		recclk;	rcsmsw ptr1;
	call wait1;	;			;		;	rcslsw ptr1;
	;		csuxa ulsw;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Weitek Single Precision ALU Convert Instructions
|*
routine c.dcvts w01011111000 lnop dcvts
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lalf fmap csla;		reg;		;	;
	call wait2;	;			;		recclk;	rcsmsw ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
routine c.scvtd w01011111001 lnop scvtd
	;		lasf fmap csla;		reg;		;	rcssp ptr3;
	;		;			;		recclk;	rcsmsw ptr1;
	call wait1;	;			;		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;
|*
|*		Weitek Single Precision ALU Divide Instructions
|*
routine c.sdiv w01010001100 lnop sdiv
routine c.sdiva w01010011100 lnop sdiva
routine c.sdivb w01010101100 lnop sdivb
routine c.sdivab w01010111100 lnop sdivab
	;		las csla;		reg;		;	rcssp ptr3;	lpreg!13
|#				(Note: 13 will cause a delay of 28)
	call wait;	lbsf fmap csla;		reg;		recclk;	rcssp ptr1;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Weitek Double Precision ALU Divide Instructions
|*
routine c.ddiv w01010001101 lnop ddiv
routine c.ddiva w01010011101 lnop ddiva
routine c.ddivb w01010101101 lnop ddivb
routine c.ddivab w01010111101 lnop ddivab
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	rcsmsw ptr3;
	;		lbm csla;		reg;		;	rcslsw ptr3;
	;		lblf fmap csla;		reg;		recclk;	rcsmsw ptr1;	lpreg!27
|#				(Note: 27 will cause a delay of 56)
	call wait;	;			;		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;
|*
|*		Weitek Single Precision Multiply Instructions
|*
routine c.smul w01010000010 lnop smul
routine c.smwa w01010000110 lnop smwa
routine c.smwb w01010001010 lnop smwb
routine c.smwab w01010001110 lnop smwab
routine c.smma w01010010010 lnop smma
routine c.smmb w01010010110 lnop smmb
routine c.smmab w01010011010 lnop smmab
routine c.smn w01010011110 lnop smn
routine c.smwan w01010100010 lnop smwan
routine c.smwbn w01010100110 lnop smwbn
routine c.smwabn w01010101010 lnop smwabn
routine c.smman w01010101110 lnop smman
routine c.smmbn w01010110010 lnop smmbn
routine c.smmabn w01010110110 lnop smmabn
routine c.smwama w01010111010 lnop smwama
routine c.smwamb w01010111110 lnop smwamb
routine c.smwamab w01011000010 lnop smwamab
routine c.smwbma w01011000110 lnop smwbma
routine c.smwbmb w01011001010 lnop smwbmb
routine c.smwbmab w01011001110 lnop smwbmab
routine c.smwabma w01011010010 lnop smwabma
routine c.smwabmb w01011010110 lnop smwabmb
routine c.smwabmab w01011011010 lnop smwabmab
routine c.smwaman w01011011110 lnop smwaman
routine c.smwambn w01011100010 lnop smwambn
routine c.smwamabn w01011100110 lnop smwamabn
routine c.smwbman w01011101010 lnop smwbman
routine c.smwbmbn w01011101110 lnop smwbmbn
routine c.smwbmabn w01011110010 lnop smwbmabn
routine c.smwabman w01011110110 lnop smwabman
routine c.smwabmbn w01011111010 lnop smwabmbn
routine c.smwabmabn w01011111110 lnop smwabmabn
	;		las cslm;		reg;		;	rcssp ptr3;
	call wait3;	lbsf fmap cslm;		reg;		recclk;	rcssp ptr1;
	;		csuxm usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woem;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Weitek Double Precision Multiply Instructions
|*
routine c.dmul w01010000011 lnop dmul
routine c.dmwa w01010000111 lnop dmwa
routine c.dmwb w01010001011 lnop dmwb
routine c.dmwab w01010001111 lnop dmwab
routine c.dmma w01010010011 lnop dmma
routine c.dmmb w01010010111 lnop dmmb
routine c.dmmab w01010011011 lnop dmmab
routine c.dmn w01010011111 lnop dmn
routine c.dmwan w01010100011 lnop dmwan
routine c.dmwbn w01010100111 lnop dmwbn
routine c.dmwabn w01010101011 lnop dmwabn
routine c.dmman w01010101111 lnop dmman
routine c.dmmbn w01010110011 lnop dmmbn
routine c.dmmabn w01010110111 lnop dmmabn
routine c.dmwama w01010111011 lnop dmwama
routine c.dmwamb w01010111111 lnop dmwamb
routine c.dmwamab w01011000011 lnop dmwamab
routine c.dmwbma w01011000111 lnop dmwbma
routine c.dmwbmb w01011001011 lnop dmwbmb
routine c.dmwbmab w01011001111 lnop dmwbmab
routine c.dmwabma w01011010011 lnop dmwabma
routine c.dmwabmb w01011010111 lnop dmwabmb
routine c.dmwabmab w01011011011 lnop dmwabmab
routine c.dmwaman w01011011111 lnop dmwaman
routine c.dmwambn w01011100011 lnop dmwambn
routine c.dmwamabn w01011100111 lnop dmwamabn
routine c.dmwbman w01011101011 lnop dmwbman
routine c.dmwbmbn w01011101111 lnop dmwbmbn
routine c.dmwbmabn w01011110011 lnop dmwbmabn
routine c.dmwabman w01011110111 lnop dmwabman
routine c.dmwabmbn w01011111011 lnop dmwabmbn
routine c.dmwabmabn w01011111111 lnop dmwabmabn
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	rcslsw ptr3;
	;		lblf fmap cslm;		reg;		;	rcsmsw ptr3;
	;		lbm cslm;		reg;		recclk;	rcsmsw ptr1;
	call wait3;	;			;		recclk;	rcslsw ptr1;
	;		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 Copy Register Instruction
|*
routine cs.cpreg w01000100000 lnop ssub
	;		;			;		recclk;	ptr1;
	;		;			;		recoe;	ramwe rcssp ptr1;
	call idle1;	;			;		recoe;	ramwe ptr1;
|*
|*		Double Precision Copy Register Instruction
|*
routine cd.cpreg w01000100001 lnop ssub
	;		;			;		recclk;	rcslsw ptr2;
	;		;			;		;	ptr1;
	;		;			;		recoe;	ramwe rcsmsw ptr1;
	;		;			;		recoe recclk;ramwe ptr1;
	;		;			;		recoe;	ramwe rcslsw ptr1;
	call idle1;	;			;		recoe;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 +/- (Reg 2 * Reg 4)
|*		Single Precision Instruction
|*
routine cs.r3Ar2Mr4 w01000100010 lnop sadd
routine cs.r3Sr2Mr4 w01000100100 lnop ssub
	;		las cslm;		reg;		;	rcssp ptr4;
	;		lbsf smul cslm;		reg;		;	rcssp ptr3;
	;		las csla;		reg;		recclk;	rcssp ptr1;
	call wait1;	;			reg;		;	;
	call wait1;	csuxm usp;		;		;	;
	jwerr werr cstat;lbsf fmap csla woem;	;		;	;
	call wait2;	;			;		;	;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 +/- (Reg 2 * Reg 4)
|*		Double Precision Instruction
|*
routine cd.r3Ar2Mr4 w01000100011 lnop dadd
routine cd.r3Sr2Mr4 w01000100101 lnop dsub
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	rcslsw ptr4;
	;		lblf dmul cslm;		reg;		;	rcsmsw ptr4;
	;		lbm cslm;		reg;		;	rcsmsw ptr3;
	;		lam csla;		reg;		;	rcslsw ptr3;
	;		lal csla;		reg;		recclk;	rcsmsw ptr1;
	call wait1;	;			;		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;	;			;		;	ramwe ptr1;
|*
|*		Reg 1 <- - Reg 3 + (Reg 2 * Reg 4)
|*		Single Precision Instruction
|*
routine cs.Nr3Ar2Mr4 w01000100110 lnop ssub
	;		las cslm;		reg;		;	rcssp ptr4;
	;		lbsf smul cslm;		reg;		;	rcssp ptr3;
	;		lbs csla;		reg;		recclk;	rcssp ptr1;
	call wait1;	;			reg;		;	;
	call wait1;	csuxm usp;		;		;	;
	jwerr werr cstat;lasf fmap csla woem;	;		;	;
	call wait2;	;			;		;	;
	;		csuxa usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woea;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <- - Reg 3 + (Reg 2 * Reg 4)
|*		Double Precision Instruction
|*
routine cd.Nr3Ar2Mr4 w01000100111 lnop dsub
	;		lam cslm;		reg;		;	rcslsw ptr2;
	;		lal cslm;		reg;		;	rcslsw ptr4;
	;		lblf dmul cslm;		reg;		;	rcsmsw ptr4;
	;		lbm cslm;		reg;		;	rcsmsw ptr3;
	;		lbm csla;		reg;		;	rcslsw ptr3;
	;		lbl csla;		reg;		recclk;	rcsmsw ptr1;
	call wait1;	;			;		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;	;			;		;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 * (Reg 2 +/- Reg 4)
|*		Single Precision Instruction
|*
routine cs.r3Mr2Ar4 w01000101000 lnop sadd
routine cs.r3Mr2Sr4 w01000101010 lnop ssub
	;		las csla;		reg;		;	rcssp ptr4;
	;		lbsf fmap csla;		reg;		;	rcssp ptr3;
	call wait2;	las cslm;		reg;		recclk;	rcssp ptr1;
	call wait1;	csuxa usp;		;		;	;
	jwerr werr cstat;lbsf smul cslm woea;	;		;	;
	call wait2;	;			;		;	;
	;		csuxm usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woem;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 * (Reg 2 +/- Reg 4)
|*		Double Precision Instruction
|*
routine cd.r3Mr2Ar4 w01000101001 lnop dadd
routine cd.r3Mr2Sr4 w01000101011 lnop dsub
	;		lam csla;		reg;		;	rcslsw ptr2;
	;		lal csla;		reg;		;	rcsmsw ptr4;
	;		lbm csla;		reg;		;	rcslsw ptr4;
	;		lblf fmap csla;		reg;		;	rcsmsw ptr3;
	;		lam cslm;		reg;		;	rcslsw ptr3;
	;		lal cslm;		reg;		recclk;	rcsmsw ptr1;
	;		;			;		;	;
	;		csuxa ulsw;		;		recclk;	rcslsw ptr1;
	;		csuxa umsw;		;		;	;
	jwerr werr cstat;lblf dmul cslm woea;	;		;	;
	;		lbm cslm woea;		;		;	;
	call xdfin.mul;	;			;		;	;
|	;		;			;		;	;
|	;		;			;		;	;
|	;		;			;		;	;
|	;		csuxm umsw;		;		;	;
|	;		csuxm ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woem;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woem;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			;		;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 * (-Reg 2 + Reg 4)
|*		Single Precision Instruction
|*
routine cs.r3MNr2Ar4 w01000101100 lnop ssub
	;		lbs csla;		reg;		;	rcssp ptr4;
	;		lasf fmap csla;		reg;		;	rcssp ptr3;
	call wait2;	las cslm;		reg;		recclk;	rcssp ptr1;
	call wait1;	csuxa usp;		;		;	;
	jwerr werr cstat;lbsf smul cslm woea;	;		;	;
	call wait2;	;			;		;	;
	;		csuxm usp;		;		;	;
	;		;			;		;	ptr1;
	jwerr ser1 cstat;woem;			dtor;		;	ramwe rcssp ptr1;
	call idle1;	;			dtor;		;	ramwe ptr1;
|*
|*		Reg 1 <- Reg 3 * (-Reg 2 + Reg 4)
|*		Double Precision Instruction
|*
routine cd.r3MNr2Ar4 w01000101101 lnop dsub
	;		lbm csla;		reg;		;	rcslsw ptr2;
	;		lbl csla;		reg;		;	rcsmsw ptr4;
	;		lam csla;		reg;		;	rcslsw ptr4;
	;		lalf fmap csla;		reg;		;	rcsmsw ptr3;
	;		lam cslm;		reg;		;	rcslsw ptr3;
	call wait1;	lal cslm;		reg;		recclk;	rcsmsw ptr1;
	;		csuxa ulsw;		;		recclk;	rcslsw ptr1;
	;		csuxa umsw;		;		;	;
	jwerr werr cstat;lblf dmul cslm woea;	;		;	;
	;		lbm cslm woea;		;		;	;
	call xdfin.mul;	;			;		;	;
|	;		;			;		;	;
|	;		;			;		;	;
|	;		;			;		;	;
|	;		csuxm umsw;		;		;	;
|	;		csuxm ulsw;		;		;	ptr1;
|	jwerr der1 cstat;woem;			dtor;		;	ramwe rcsmsw ptr1;
|	;		woem;			dtor;		;	ramwe rcslsw ptr1;
|	call idle1;	;			;		;	ramwe ptr1;
|*