xdp.u

操作系统SunOS 4.1.3版本的源码

        ;			dnop halt;			;        	ptr1;
	jtierr hang cstat;	dnop tioe tilsw halt;		titoreg;	rcslsw ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*              Double Precision Multiply/Add Instruction
|*		reg1 <-- operand * (reg3 - reg2)
|*
routine xd.opMr3Sr2 0111010xxxx1 dnop enra loaddp halt;		regtoti;	rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;	rcslsw imm2;
        jclr idle1 idl2;        ;                               ;               ;
	;			dnop;				;		ptr3;
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        ;			drsub enrb loaddp halt;		regtoti;	rcslsw ptr3;
	;			drsub halt;			regtotmp;	rcslsw ptr1;
	call xdaddfin;		drsub halt;				;		;
|*
|*		Extended Instruction
|*		reg1 <- square root (operand)
|*		Double Precision
|*
routine xd.sqrt  0101100xxxx1 	dnop enra loaddp halt;		adtoti;		;
	jclr idle1 idl2;	dnop;				;		;
	;			dsqrt enra loaddp halt;		optoti;		;
	;			dnop;				;		ptr1;
	;			dnop halt;			regtotmp;	rcslsw ptr1;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul;				;		;
	;			dmul;				;		ptr1;
	jtierr der1 cstat;	dnop tioe tilsw halt;		titoreg;	rcslsw ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Extended Instruction
|*		reg1 <- hypot (reg2, operand)
|*		Double Precision
|*
routine xd.hypot 0101101xxxx1	dnop enra enrb loaddp halt;	regtoti;	rcsmsw imm2;
        ;                       dmul enra enrb loaddp halt;	regtoti;	rcslsw imm2;
	jclr clp idl2;		dmul;				;		;
	;			dmul;				;		;
	;			dmul;				;		;	lpreg!0x01
	jtierr hardway;		dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop enra enrb loaddp halt;	adtoti;		;
	;			dmul enra enrb loaddp halt;	optoti;		;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hardway;		dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr hard2;		dnop enra tioe timsw loaddp halt;;		;
	;			dsqrt enra tioe tilsw loaddp halt;;		;
	;			dnop;				;		ptr1;
	;			dnop halt;			regtotmp;	rcslsw ptr1;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop;				tmptoreg;	rcslsw ptr5;
	;			dnop;				;		;	lpreg!0x0
	;			dmul;				;		;
	;			dmul;				;		;
	;			dmul;				;		ptr1;
	jtierr hardway cstat;	dnop tioe tilsw halt;		titoreg;	rcslsw ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
hard2:
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop halt;			;		;
hardway:
|*  compare abs(reg2) to abs(operand)
	;			dnop;				;		;
	;			dnop enrb loaddp halt;		adtoti;		;
	;			dnop enrb loaddp halt;		optoti;		ptr2;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			dcmpm enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			dcmpm;				;		;
	jtierr cklpreg cstat;	dcmpm halt;			;		;
	;			dnop halt;			;		;
	jge hyptyox;		dnop enra loaddp halt;		adtoti;		;
	;			dnop enra loaddp halt;		optoti;		ptr2;
	;			ddiv enrb loaddp halt;		regtoti;	rcsmsw ptr2;
	;			ddiv enrb loaddp halt;		regtoti;	rcslsw ptr2;
	;			dnop;				;		ptr1;
	;			dnop halt;			regtotmp;	rcslsw ptr1;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop;				tmptoreg;	rcslsw ptr5;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul halt;			;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	;			dnop enra enrb loaddp halt;	tmptoti;	rcsmsw;
	;			dmul enra enrb loaddp halt;	tmptoti;	rcslsw;
	;			dmul;				;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			dabs enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	call finhypot;		dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
hyptyox:
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			dnop;				;		;
	;			ddiv enrb loaddp halt;		adtoti;		;
	;			ddiv enrb loaddp halt;		optoti;		;
	;			dnop;				;		ptr1;
	;			dnop halt;			regtotmp;	rcslsw ptr1;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop;				tmptoreg;	rcslsw ptr5;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul halt;			;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	;			dnop enra enrb loaddp halt;	tmptoti;	rcsmsw;
	;			dmul enra enrb loaddp halt;	tmptoti;	rcslsw;
	;			dmul;				;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			dnop enra loaddp halt;		adtoti;		;
	;			dabs enra loaddp halt;		optoti;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	call finhypot;		dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
finhypot:
	;			dnop;				;		ptr5;	ptr5!done
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dsqrt enra tioe tilsw loaddp halt;;		;
	;			dnop;				;		;
	;			dnop halt;			;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul;				;		;
	;			dmul;				;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	;			dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dnop enra loaddp halt;		tmptoti;	rcslsw;
	;			dnop;				;		ptr5;	ptr5!done
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			ddiv enrb loaddp halt;		tmptoti;	rcsmsw;
	;			ddiv enrb loaddp halt;		tmptoti;	rcslsw;
	;			dnop;				;		;
	;			dnop halt;			;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul halt;			;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	;			dnop enra loaddp halt;		tmptoti;	rcsmsw;	ptr5!0x700+0xD1
	;			dnop enra loaddp halt;		tmptoti;	rcslsw ptr5;
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dadd aluamul;			;		;
	;			dadd aluamul;			;		ptr1;
	jtierr ser15 cstat;	dnop tioe tilsw halt;		titoreg;	rcslsw ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
cklpreg:	
	;			;				;		ptr5;	ptr5!0x700+0xD2
	jloop hang;		;				regtotmp;	rcslsw ptr5;
	;			;				;		ptr1;
	call hang;		;				tmptoreg;	rcslsw ptr1;
ser15:
	;			;				;		ptr5;	ptr5!0x700+0xD2
	;			;				regtotmp;	rcslsw ptr5;
	;			;				;		ptr1;
	call hang;		;				tmptoreg;	rcslsw ptr1;
	
|*
|*		Extended Instruction
|*		reg1 <-- - operand
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.cneg  0101110xxxx1	sneg enra halt;			adtoti;		;
	;			;				;		;
	jclr clp idl2;		;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			sneg enra halt;			optoti;		;
	;			;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*		Extended Instruction
|*		reg1 <-- cabs (operand)
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.cabs  0101111xxxx1	scvtd enra loaddp halt;		adtoti;		;
	;			scvtd enra loaddp halt;		adtoti;		;
	;			dnop;				;		;
	;			dnop enra enrb tioe timsw loaddp halt;;		;
	;			dmul enra enrb tioe tilsw loaddp halt;;		;
	;			dmul;				;		;
	jclr clp idl2;		;				;		;
	;			dmul;				;		;
	jtierr bail.out;	dmul tioe timsw halt;		titotmp;	rcsmsw;
	;			dmul tioe tilsw halt;		titotmp;	rcslsw;
	;			scvtd enra loaddp halt;		optoti;		;
	;			scvtd enra loaddp halt;		optoti;		;
	;			dnop;				;		;
	;			dnop enra enrb tioe timsw loaddp halt;;		;
	;			dmul enra enrb tioe tilsw loaddp halt;;		;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr bail.out;	dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr bail.out;	dnop enra tioe timsw loaddp halt;;		;
	;			dsqrt enra tioe tilsw loaddp halt;;		;
	;			dnop;				;		;
	;			dnop halt;			;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul;				;		;
	;			dmul;				;		;
	jtierr bail.out;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;