cr.u

操作系统SunOS 4.1.3版本的源码

|*	@(#)cr.u 1.1 92/07/30 Copyright Sun Microsystems, Inc.  1988
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <-- reg2 
|*
routine cs.cpreg 001000100000 	halt;          			regtotmp;	rcssp imm2;
	;			halt;				;		ptr1;	
        call idle1;		halt;				tmptoreg;	rcssp ptr1;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <-- reg2 
|*
routine cd.cpreg 001000100001 	dnop halt;          		regtotmp;	rcsmsw imm2;
        ;                       dnop halt;          		regtotmp;	rcslsw imm2;
	;			dnop halt;			;		ptr1;	
        ;                       dnop halt;			tmptoreg;       rcsmsw ptr1;
        call idle1;		dnop halt;			tmptoreg;	rcslsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <-- reg3 + ( reg2 * reg4 )
|*
routine cs.r3Ar2Mr4 001000100010 enra halt;			regtoti;        rcssp imm2;
        ;                       smul enrb halt;			regtoti;        rcssp ptr4;
        ;                       smul;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	sadd aluamul enrb halt;		regtoti;	rcssp ptr3;
	;			;				;		ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <-- reg3 + ( reg2 * reg4 )
|*
routine cd.r3Ar2Mr4 001000100011 dnop enra loaddp halt;		regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;		regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       dmul enrb loaddp halt;          regtoti;        rcslsw ptr4;
        ;                       dmul;				regtotmp;	rcslsw ptr1;
        ;                       dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        jtierr hang cstat;	dadd aluamul enrb loaddp halt;	regtoti;        rcslsw ptr3;
        ;                       dnop;				;               ptr1;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <-- reg3 - ( reg2 * reg4 )
|*
routine cs.r3Sr2Mr4 001000100100 enra halt;			regtoti;        rcssp imm2;
        ;                       smul enrb halt;          	regtoti;        rcssp ptr4;
        ;                       smul;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	srsub aluamul enrb halt;	regtoti;	rcssp ptr3;
        ;                       ;				;               ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <-- reg3 - ( reg2 * reg4 )
|*
routine cd.r3Sr2Mr4 001000100101 dnop enra loaddp halt;         regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       dmul enrb loaddp halt;          regtoti;        rcslsw ptr4;
        ;                       dmul;				regtotmp;	rcslsw ptr1;
        ;                       dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        jtierr hang cstat;	drsub aluamul enrb loaddp halt;	regtoti;	rcslsw ptr3;
        ;                       dnop;				;               ptr1;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <--  - reg3 + ( reg2 * reg4 )
|*
routine cs.Nr3Sr2Mr4 001000100110 enra halt;			regtoti;        rcssp imm2;
        ;                       smul enrb halt;          	regtoti;        rcssp ptr4;
        ;                       smul;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	ssub aluamul enrb halt;		regtoti;	rcssp ptr3;
        ;                       ;				;               ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <--  - reg3 + ( reg2 * reg4 )
|*
routine cd.Nr3Sr2Mr4 001000100111 dnop enra loaddp halt;	regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       dmul enrb loaddp halt;          regtoti;        rcslsw ptr4;
        ;                       dmul;				regtotmp;	rcslsw ptr1;
        ;                       dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        jtierr hang cstat;	dsub aluamul enrb loaddp halt;	regtoti;        rcslsw ptr3;
        ;                       dnop;				;               ptr1;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <--  reg3 * ( reg2 + reg4 )
|*
routine cs.r3Mr2Ar4 001000101000 enra halt;          		regtoti;        rcssp imm2;
        ;                       sadd enrb halt;          	regtoti;        rcssp ptr4;
        ;                       sadd;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	smul mulaalu enrb halt;		regtoti;	rcssp ptr3;
	;			;				;		ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <--  reg3 * ( reg2 + reg4 )
|*
routine cd.r3Mr2Ar4 001000101001 dnop enra loaddp halt;		regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       dadd enrb loaddp halt;          regtoti;        rcslsw ptr4;
        ;                       dadd;				regtotmp;	rcslsw ptr1;
        jtierr hang cstat;	dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        ;                       dmul mulaalu enrb loaddp halt;	regtoti;        rcslsw ptr3;
        ;                       dmul;				;		;
	;			dnop halt;			;		;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <--  reg3 * ( reg2 - reg4 )
|*
routine cs.r3Mr2Sr4 001000101010 enra halt;          		regtoti;        rcssp imm2;
        ;                       ssub enrb halt;          	regtoti;        rcssp ptr4;
        ;                       ssub;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	smul mulaalu enrb halt;		regtoti;	rcssp ptr3;
        ;                       ;				;               ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <--  reg3 * ( reg2 - reg4 )
|*
routine cd.r3Mr2Sr4 001000101011 dnop enra loaddp halt;		regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       dsub enrb loaddp halt;          regtoti;        rcslsw ptr4;
        ;                       dsub;				regtotmp;	rcslsw ptr1;
        jtierr hang cstat;	dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        ;                       dmul mulaalu enrb loaddp halt;	regtoti;        rcslsw ptr3;
	;			dmul;				;		;
        ;                       dnop halt;			;		ptr1;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision 
|*		reg1 <--  reg3 * ( - reg2 + reg4 )
|*
routine cs.r3MNr2Ar4 001000101100 enra halt;          		regtoti;        rcssp imm2;
        ;                       srsub enrb halt;          	regtoti;        rcssp ptr4;
        ;                       srsub;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	smul mulaalu enrb halt;		regtoti;	rcssp ptr3;
        ;                       ;				;               ptr1;
        jtierr ser1 cstat;      tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision 
|*		reg1 <--  reg3 * ( - reg2 + reg4 )
|*
routine cd.r3MNr2Ar4 001000101101 dnop enra loaddp halt;	regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr4;
        ;                       drsub enrb loaddp halt;		regtoti;        rcslsw ptr4;
        ;                       drsub;				;		ptr3;
        jtierr hang cstat;	dnop enrb loaddp halt;		regtoti;	rcsmsw ptr3;
        ;                       dmul mulaalu enrb loaddp halt;	regtoti;        rcslsw ptr3;
        ;                       dmul;				regtotmp;	rcslsw ptr1;
        ;                       dnop halt;			;		;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision Matrix Operation
|*		reg1 <--  (reg2) * (reg3) + (reg2 + 1) * (reg3 + 1)
|*
routine cs.X2 001000101110 	enra halt;			regtoti;        rcssp imm2;
        ;                       smul enrb halt;          	regtoti;        rcssp ptr3;	ptr2+
        ;                       smul;				;		ptr2;	
        jtierr hang cstat;	enra srccmul clkcc halt;	regtoti;	rcssp ptr2;	ptr3+
        ;                       smul enrb srccmul halt;		regtoti;        rcssp ptr3;
        ;                       smul;				regtotmp;	rcssp ptr1;
        jtierr hang cstat;	sadd aluamul alubcreg halt;	;		;
	;			;				;		ptr1;
        jtierr ser1 cstat;	tioe tisp halt;			titoreg;        rcssp ptr1;
        pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision Matrix Operation
|*		reg1 <--  (reg2) * (reg3) + (reg2 + 1) * (reg3 + 1)
|*
routine cd.X2 001000101111 	dnop enra loaddp halt;          regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				;		ptr2;		ptr3+
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
        jtierr hang cstat;	dnop enra srccmul clkcc loaddp halt;regtoti;	rcslsw ptr2;
        ;                       dnop enrb srccmul loaddp halt;	regtoti;        rcsmsw ptr3;
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				regtotmp;	rcslsw ptr1;
        ;                       dnop halt;			;		;
        jtierr hang cstat;	dadd aluamul alubcreg halt;	;		;
	;			dnop;				;		ptr1;
        jtierr der1 cstat;      dnop tioe tilsw halt;		titoreg;        rcslsw ptr1;
        call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision Matrix Operation
|*		reg1 <--  (reg2)*(reg3) + (reg2 + 1)*(reg3 + 1)
|*			  + (reg2 + 2)*(reg3 + 2)
|*
routine cs.X3 001000110000 	enra halt;			regtoti;        rcssp imm2;
        ;                       smul enrb halt;			regtoti;        rcssp ptr3; 	ptr2+
        ;                       smul;				;		ptr2;		ptr3+
        jtierr hang cstat;	enra srccmul clkcc halt;	regtoti;	rcssp ptr2;
        ;                       smul enrb srccmul halt;		regtoti;        rcssp ptr3;	ptr2+
        ;                       ;				;		;		ptr3+
        jtierr hang cstat;	sadd aluamul alubcreg halt;	;		;		
	;			;				;		;
X3fins:
        jtierr hang cstat;	tioe tisp halt;			titotmp;	rcssp ptr2;
        ;                       enra halt;          		regtoti;        rcssp ptr2;
        ;                       smul enrb halt;			regtoti;        rcssp ptr3;
	;			smul;				;		rcssp ptr1;
	jtierr hang cstat;	sadd aluamul enrb halt;		tmptoti;	rcssp ptr1;
	;			sadd aluamul halt;		regtotmp;	rcssp ptr1;
	;			halt;				;		ptr1;
	jtierr ser1 cstat;	tioe tisp halt;			titoreg;	rcssp ptr1;
	pipe idl1;		halt;				;		imm2;
|*
|*		Command Register Instructions
|*		Double Precision Matrix Operation
|*		reg1 <--  (reg2)*(reg3) + (reg2 + 1)*(reg3 + 1)
|*			  + (reg2 + 2)*(reg3 + 2)
|*
routine cd.X3 001000110001 	dnop enra loaddp halt;          regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				;		ptr2;		ptr3+
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
        jtierr hang cstat;	dnop enra srccmul clkcc loaddp halt;regtoti;	rcslsw ptr2;
        ;                       dnop enrb srccmul loaddp halt;  regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				;		;		ptr3+
        ;                       dnop halt;			;		;
        jtierr hang cstat;	dadd aluamul alubcreg halt;	;		;
	;			dnop;				;		;
X3find:
        jtierr hang cstat;	dnop tioe tilsw halt;		titotmp;	rcslsw;
        ;			dnop tioe timsw halt;		titotmp;	rcsmsw ptr2;
        ;                       dnop enra loaddp halt;          regtoti;        rcsmsw ptr2;
        ;                       dnop enra loaddp halt;		regtoti;        rcslsw ptr2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr3;
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
	;			dmul;				;		;
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hang cstat;	dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	;			dnop halt;			regtotmp;	rcslsw ptr1;
	;			dnop halt;			;		ptr1;
	jtierr der1 cstat;	dnop tioe tilsw halt;		titoreg;	rcslsw ptr1;
	call idle1;		dnop tioe timsw halt;		titoreg;	rcsmsw ptr1;
|*
|*		Command Register Instructions
|*		Single Precision Matrix Operation
|*		reg1 <--  (reg2)*(reg3) + (reg2 + 1)*(reg3 + 1)
|*			  + (reg2 + 2)*(reg3 + 2) + (reg2 +3)*(reg3+3)
|*
routine cs.X4 001000110010 	enra halt;          		regtoti;        rcssp imm2;
        ;                       smul enrb halt;			regtoti;        rcssp ptr3;	ptr2+
        ;                       smul;				;		ptr2;		ptr3+
        jtierr hang cstat;	enra srccmul clkcc halt;	regtoti;	rcssp ptr2;
        ;                       smul enrb srccmul halt;		regtoti;        rcssp ptr3;	ptr2+
        ;                       smul;				;		;		ptr3+
        jtierr hang cstat;	sadd aluamul alubcreg halt;	;		;
	;			;				;		;
        jtierr hang cstat;	tioe tisp halt;			titotmp;	rcssp ptr2;
        ;                       enra halt;          		regtoti;        rcssp ptr2;
        ;                       smul enrb halt;			regtoti;        rcssp ptr3;	ptr2+
	;			smul;				;		;		ptr3+
	jtierr hang cstat;	sadd aluamul enrb halt;		tmptoti;	;
	call X3fins;		sadd aluamul;			;		;
|*
|*		Command Register Instructions
|*		Double Precision Matrix Operation
|*		reg1 <--  (reg2)*(reg3) + (reg2 + 1)*(reg3 + 1)
|*			  + (reg2 + 2)*(reg3 + 2) + (reg2 +3)*(reg3+3)
|*
routine cd.X4 001000110011 	dnop enra loaddp halt;          regtoti;        rcsmsw imm2;
        ;                       dnop enra loaddp halt;          regtoti;        rcslsw imm2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				;		ptr2;		ptr3+
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr2;
        jtierr hang cstat;	dnop enra srccmul clkcc loaddp halt;regtoti;	rcslsw ptr2;
        ;                       dnop enrb srccmul loaddp halt;	regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
        ;                       dmul;				;		;		ptr3+
        ;                       dnop halt;			;		;
        jtierr hang cstat;	dadd aluamul alubcreg halt;	;		;
	;			dnop;				;		;
        jtierr hang cstat;	dnop tioe tilsw halt;		titotmp;	rcslsw;
        ;			dnop tioe timsw halt;		titotmp;	rcsmsw;
        ;                       dnop enra loaddp halt;          regtoti;        rcsmsw ptr2;
        ;                       dnop enra loaddp halt;		regtoti;        rcslsw ptr2;
        ;                       dnop enrb loaddp halt;          regtoti;        rcsmsw ptr3;	ptr2+
        ;                       dmul enrb loaddp halt;		regtoti;        rcslsw ptr3;
	;			dmul;				;		;		ptr3+
	;			dnop enrb loaddp halt;		tmptoti;	rcsmsw;
	jtierr hang cstat;	dadd aluamul enrb loaddp halt;	tmptoti;	rcslsw;
	call X3find;		dnop;				;		;
|*
|*
|*		2 X 2, 3 X 3, 4 X 4 Matrix Move
|*		Single Precision
|*		Moves elements from ptr2 to ptr1
|*
routine cs.MV2 001001100010	halt;				;		;
	;			halt;				;		ptr2;		lpreg!4
	call msmovelp;		halt;				regtotmp;	rcssp ptr2;
routine cs.MV3 001001100100	halt;				;		;
	;			halt;				;		ptr2;		lpreg!9
	call msmovelp;		halt;				regtotmp;	rcssp ptr2;
routine cs.MV4 001001100110	halt;				;		;
	;			halt;				;		ptr2;		lpreg!16
	call msmovelp;		halt;				regtotmp;	rcssp ptr2;
|*		Move matrix at ptr2 to ptr1
msmovelp:
	;			halt;				;		ptr1;		ptr2+
	;			halt;				tmptoreg;	rcssp ptr1;	lpreg-
	jloop msmovelp;		halt;				;		ptr2;		ptr1+
	;			halt;				regtotmp;	rcssp ptr2;
	pipe idl1;		halt;				;		imm2;
|*
|*		2 X 2, 3 X 3, 4 X 4 Matrix Move
|*		Double Precision
|*		Moves elements from ptr2 to ptr1
|*
routine cd.MV2 001001100011	halt;				;		;
	;			halt;				;		ptr2;		lpreg!4