cr.u

操作系统SunOS 4.1.3版本的源码

	;			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 ptr3;
	;			dabs enra loaddp halt;		regtoti;	rcslsw ptr3;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	call dfinhypot;		dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
dfinhypot:
	;			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;
|*
|*		Command Register Instruction
|*		reg1 <-- - reg2
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.neg 001000010101 	sneg enra halt;			regtoti;	rcsmsw imm2;
	;			;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			;				;		ptr2;
	;			sneg enra halt;			regtoti;	rcslsw ptr2;
	;			;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*
|*		Command Register Instruction
|*		reg1 <-- cabs (reg2)
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.abs 001000010111 	scvtd enra loaddp halt;		regtoti;	rcsmsw imm2;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw imm2;
	;			dnop;				;		;
	;			dnop enra enrb tioe timsw loaddp halt;;		;
	;			dmul enra enrb tioe tilsw loaddp halt;;		;
	;			dmul;				;		;
	;			dmul;				;		;
	jtierr bail.out;	dmul tioe timsw halt;		titotmp;	rcsmsw;
	;			dmul tioe tilsw halt;		titotmp;	rcslsw;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr2;
	;			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 hang cstat;	dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop halt;			;		;
	;			dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dcvts enra loaddp halt;		tmptoti;	rcslsw;
	;			dcvts;				;		;
	jtierr bail.out;	dnop tioe tisp halt;		;		ptr1;
	call idle1;		dnop tioe tisp halt;		titoreg;	rcssp ptr1;
|*
|*		Command Register Instruction
|*		reg1 <--  reg2 + reg3
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.add 001000011001 	enra halt;			regtoti;	rcsmsw imm2;
	;			sadd enrb halt;			regtoti;	rcsmsw ptr3;
	;			sadd;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enra halt;			regtoti;	rcslsw ptr2;
	;			sadd enrb halt;			regtoti;	rcslsw ptr3;
	;			sadd;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*
|*		Command Register Instruction
|*		reg1 <--  reg2 - reg3
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.sub 001000011011 	enra halt;			regtoti;	rcsmsw imm2;
	;			ssub enrb halt;			regtoti;	rcsmsw ptr3;
	;			ssub;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enra halt;			regtoti;	rcslsw ptr2;
	;			ssub enrb halt;			regtoti;	rcslsw ptr3;
	;			ssub;				;		;
	jtierr hang cstat;	halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;
|*
|*		Command Register Instruction
|*		reg1 <--  reg2 * reg3
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.mul 001000011101 	scvtd enra loaddp halt;		regtoti;	rcsmsw imm3;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw imm3;
	;			dnop tioe timsw;		;		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;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr3;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr3;
	;			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;				;		;
	jtierr hang cstat;	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;				;		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;				;		;
	jtierr hang cstat;	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;				;		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;
|*
|*		Command Register Instruction
|*		
|*		Complex Instruction:  MSW of operand has real part
|*				      LSW of operand has imag part
routine c.div 001000011111 	snop enra halt;			regtoti;	rcslsw imm3;
	;			;				;		;	ptr5!szero
	;			scmp enrb halt;			regtoti;	rcssp ptr5;
	;			;				;		;
	jeq cimzero;		scvtd enra loaddp halt;		regtoti;	rcsmsw imm3;
	;			scvtd enra loaddp halt;		regtoti;	rcsmsw imm3;
	;			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;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr3;
	;			scvtd enra loaddp halt;		regtoti;	rcslsw ptr3;
	;			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;
cimzero:
|* get here if y.im == 0
	;			enra halt;			regtoti;	rcsmsw ptr2;
	;			sdiv enrb halt;			regtoti;	rcsmsw ptr3;
	;			halt;				;		;
	;			halt;				;		;
	;			;				;		;
	;			;				;		;
	;			halt;				;		ptr1;
	;			tioe tisp halt;			titoreg;	rcsmsw ptr1;
	;			enra halt;			regtoti;	rcslsw ptr2;
	;			sdiv enrb halt;			regtoti;	rcsmsw ptr3;
	;			halt;				;		;
	;			halt;				;		;
	;			;				;		;
	;			;				;		;
	;			halt;				;		ptr1;
	call idle1;		tioe tisp halt;			titoreg;	rcslsw ptr1;