xdp.u

操作系统SunOS 4.1.3版本的源码

	;			dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dcvts enra loaddp halt;		tmptoti;	rcslsw;
	;			dcvts;				;		;
	jtierr bail.out;	dnop tioe timsw halt;		;		ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Extended Instruction
|*		reg1 <--  reg2 + operand
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.cadd  0111100xxxx1	enra halt;			regtoti;	rcsmsw imm2;
	;			;				;		;
	;			sadd enrb halt;			adtoti;		;
	jclr clp idl2;		;				;		;
	;			sadd;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enrb halt;			optoti;		ptr2;
	;			sadd enra halt;			regtoti;	rcslsw ptr2;
	;			sadd;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*
|*		Extended Instruction
|*		reg1 <--  reg2 - operand
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.csub  0111101xxxx1 	enra halt;			regtoti;	rcsmsw imm2;
	;			;				;		;
	;			ssub enrb halt;			adtoti;		;
	jclr clp idl2;		;				;		;
	;			ssub;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enrb halt;			optoti;		ptr2;
	;			ssub enra halt;			regtoti;	rcslsw ptr2;
	;			ssub;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*
|*		Extended Instruction
|*		reg1 <--  reg2 * operand
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.cmul  0111110xxxx1	scvtd enra loaddp halt;		adtoti;		;
	;			scvtd enra loaddp halt;		adtoti;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			dnop;				;		ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			dnop;				;		ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb tioe timsw loaddp halt;titoreg;	rcsmsw ptr5;
	;			dnop enrb tioe tilsw loaddp halt;titoreg;	rcslsw ptr5;
	jclr clp idl2;		;				;		;
	;			scvtd enra loaddp halt;		optoti;		;
	;			scvtd enra loaddp halt;		optoti;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD3
	;			dnop enra tioe timsw loaddp halt;titoreg;	rcsmsw ptr5;
	;			dmul enra tioe tilsw loaddp halt;titoreg;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;	ptr5!0x700+0xD0
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hang cstat;	dsub aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr hang cstat;	dnop enra tioe timsw loaddp halt;;		;
	;			dcvts enra tioe tilsw loaddp halt;;		;
	;			dcvts;				;		;
	jtierr hang cstat;	dnop halt;			;		ptr1;
	;			dnop tioe tisp halt;		titoreg;	rcsmsw ptr1;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;	ptr5!0x700+0xD0
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD3
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hang cstat;	dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr hang cstat;	dnop enra tioe timsw loaddp halt;;		;
	;			dcvts enra tioe tilsw loaddp halt;;		;
	;			dcvts;				;		;
	jtierr hang cstat;	dnop halt;			;		ptr1;
	call idle1;		dnop tioe tisp halt;		titoreg;	rcslsw ptr1;
|*
|*		Extended Instruction
|*		reg1 <--  reg2 / operand
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine xd.cdiv  0111111xxxx1	scvtd enra loaddp halt;		adtoti;		;
	;			scvtd enra loaddp halt;		adtoti;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw ptr2; 
	;			dnop;				;		ptr5;	ptr5!0x700+0xD0
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb tioe timsw loaddp halt;titoreg;	rcsmsw ptr5;
	;			dnop enrb tioe tilsw loaddp halt;titoreg;	rcslsw ptr5;
	jclr clp idl2;		;				;		;
	;			snop enra halt;			optoti;		ptr5;	ptr5!szero
	;			scmp enrb halt;			regtoti;	rcssp ptr5;
	;			;				;		;
	jeq imzero;		scvtd enra loaddp halt;		optoti;		;
	;			scvtd enra loaddp halt;		optoti;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD3
	;			dnop enra enrb tioe timsw loaddp halt;titoreg;	rcsmsw ptr5;
	;			dmul enra enrb tioe tilsw loaddp halt;titoreg;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD2
	;			dnop enra enrb loaddp halt;	regtoti;	rcsmsw ptr5;
	;			dmul enra enrb loaddp halt;	regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	jtierr hang cstat;	dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	;			dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD4
	jtierr hang cstat;	dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			dnop;				;		ptr5; 	ptr5!0x700+0xD3
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;	ptr5!0x700+0xD2
	;			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;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	jtierr hang cstat;	dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	;			dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr hang cstat;	dnop enra tioe timsw loaddp halt;;		;
	;			dnop enra tioe tilsw loaddp halt;;		ptr5;	ptr5!0x700+0xD4
	;			ddiv enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			ddiv enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			dnop halt;			;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul halt;			;		;
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	jtierr hang cstat;	dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dcvts enra loaddp halt;		tmptoti;	rcslsw;
	;			dcvts;				;		;	ptr5!0x700+0xD2
	jtierr hang cstat;	dnop halt;			;		ptr1;
	;			dnop tioe tisp halt;		titoreg;	rcsmsw ptr1;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;	ptr5!0x700+0xD3
	;			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;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hang cstat;	drsub aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop;				;		;
	jtierr hang cstat;	dnop enra tioe timsw loaddp halt;;		;
	;			dnop enra tioe tilsw loaddp halt;;		ptr5;	ptr5!0x700+0xD4
	;			ddiv enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			ddiv enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			dnop halt;			;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dnop;				;		;
	;			dmul;				;		;
	;			dmul halt;			;		;
	jtierr hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	jtierr hang cstat;	dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dcvts enra loaddp halt;		tmptoti;	rcslsw;
	;			dcvts;				;		;
	jtierr hang cstat;	dnop halt;			;		ptr1;
	call idle1;		dnop tioe tisp halt;		titoreg;	rcslsw ptr1;
imzero:
|* get here if y.im == 0
	;			enra halt;			regtoti;	rcsmsw ptr2;
	;			;				;		;
	;			sdiv enrb halt;			adtoti;		;
	;			halt;				;		;
	;			halt;				;		;
	;			;				;		;
	;			;				;		;
	;			halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enra halt;			regtoti;	rcslsw ptr2;
	;			;				;		;
	;			sdiv enrb halt;			adtoti;		;
	;			halt;				;		;
	;			halt;				;		;
	;			;				;		;
	;			;				;		;
	;			halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;