ssincos.u

操作系统SunOS 4.1.3版本的源码

	;			dnop enra tioe timsw loaddp halt;;		;
	;			dsub enra tioe tilsw loaddp halt;;		;
	;			dsub;				;		ptr5;	ptr5!done
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			drsub alubalu enra loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		;	
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dnop enra tioe tilsw loaddp halt;;		;	ptr5!deight
qnochange:
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		ptr5;	ptr5!0x700+0xE1
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			drsub aluamul enrb loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
|* get new n:
getnewn:
	;			dnop;				;		ptr5;	ptr5!0x700+0xE2
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!d1o8
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dnop enra tioe tilsw loaddp halt;;		;
	;			dnop;				;		ptr5;	ptr5!dzero
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dcmp enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!dhalf
	jlt nislt0;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5; 
	;			dsub enrb loaddp halt;		regtoti;	rcslsw ptr5;
contwithn:
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dcvtint enra tioe tilsw loaddp halt;;		;
	;			dnop;				;		;
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		ptr5;	ptr5!szero
	;			i2cmp enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!c_sithree
	jeq keepgoing;		i2sftll enrb halt;		regtoti;	rcssp ptr5;
|* modify q[2]
	;			i2sftll;			;		;
	;			dfloat enra tioe tisp halt;	;		;
	;			dfloat enra tioe tisp halt;	;		;
	;			dnop;				;		;
	;			dnop enrb tioe timsw loaddp halt;;		;
	;			dnop enrb tioe tilsw loaddp halt;;		;
	;			dnop;				;		ptr5;	ptr5!0x700+0xE2
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dsub enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		;
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
keepgoing:
|* get t = q[k]
	;			;				;		ptr5;	ptr5!0x700+0xDC
	;			i2cmp enra halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!c_sitwo
	;			i2add enrb halt;		regtitmp;	rcssp ptr5;
	;			;				;		;	
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		ptr5;	ptr5!c_sione
	;			i2cmp enrb halt;		regtoti;	rcssp ptr5;	
	;			;				;		ptr5;	ptr5!0x700+0xDF
forloop2:
	;			i2sub halt;			;		;
	;			;				;		ptr5;	ptr5+
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		;
	jne forloop2;		halt;				;		;
	;			;				;		ptr5;
|* Do:  for ( i= k -1; i >= 0; i--) t += q[i]
|* Translated to:
|*		for ( i = 1; i <= k -1; i++) t = t + q[i]
|* Load t in C reg
|* Set RA to k + 1 and store in tmp
|* set ptr5 to address of q[0], minus 1
|* Loop until i = 1:
|*  		incr ptr5
|*		add ptr5 to C reg and store in C
|*		load RA from tmp
|*		decr and save in tmp
|*		check to see if i = 1;
|*
	;			dnop enra loaddp halt;		regtotmp;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtotmp;	rcslsw ptr5;
	;			dnop;				;		;	
	;			dnop srccalu clkcc;		;		;
	;			;				;		ptr5;	ptr5!0x700+0xDC
	;			i2cmp enra halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!c_sione
	;			i2add enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		;
	;			i2cmp enra tioe tisp halt;	titotmp;	rcssp;
	;			;				;		ptr5;	ptr5!0x700+0xDF
forloop3:
	;			;				;		ptr5;	ptr5+
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd alubcreg enra loaddp halt;	regtoti;	rcslsw ptr5;
	;			dadd alubcreg;			;		;
	;			dnop srccalu clkcc;		;		;
	;			i2sub enra halt;		tmptoti;	rcssp;
	;			;				;		;
	;			i2cmp enra tioe tisp halt;	titotmp;	rcssp;
	;			;				;		;
	jgt forloop3;		dnop halt;			;		;
	;			dnop halt;			;		ptr5;
	;			dnop;				;		ptr5;	ptr5!dzero
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dcmp aluacreg enrb loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!dhalf
	jlt tis0;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dsub aluacreg enrb loaddp halt;	regtoti;	rcslsw ptr5;
contt:
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dcvtint enra tioe tilsw loaddp halt;;		;
	;			dcvtint;			;		ptr5;	ptr5!0x700+0xDE
	;			dfloat enra tioe tisp loaddp halt;titoreg;	rcssp ptr5;
	;			dfloat enra tioe tisp loaddp halt;;		;
	;			dnop;				;		;
	;			dnop enrb tioe timsw loaddp halt;;		;
	;			dsub aluacreg enrb tioe tilsw loaddp halt;;	;
	;			dnop;				;		ptr5;	ptr5!0x700+0xDF
	;			dnop enra tioe timsw loaddp halt;titoreg;	rcsmsw ptr5;
	;			dnop enra tioe tilsw loaddp halt;titoreg;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!dhalf
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dcmp enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!dmone
	jle continue;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xDF
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			;				;		ptr5;	ptr5!c_sione
	;			i2cmp enra halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xDE
	;			i2add enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;
	;			tioe tisp halt;			titoreg;	rcssp ptr5;
continue:
	;			;				;		ptr5;	ptr5!0x700+0xDF
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!c_dtwom19
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dcpmam enrb loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!dpio2
	jlt modifyt;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dmul;				;		;
tismod:
	;			dnop;				;		;
	;			dnop tioe timsw halt;		titotmp;	rcsmsw;
	;			dnop tioe tilsw halt;		titotmp;	rcslsw;
	;			dnop;				;		ptr5;	ptr5!dzero
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enrb loaddp halt;		regtoti;	rcslsw ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dcmp enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			;				;		ptr5;	ptr5!c_siseven
	jlt adjustt;		i2cmp enra halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xDE
	;			i2land enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xD0
	;			tioe tisp halt;			titoreg;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xD1
	;			;				tmptoreg;	rcsmsw ptr5;
	call stlepio4;		;				tmptoreg;	rcslsw ptr5;
adjustt:
	;			i2negy2 enra halt;		regtoti;	rcssp ptr5;
	;			;				;		;
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		ptr5;	ptr5!c_siseven
	;			i2land enrb;			regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xD0
	;			tioe tisp halt;			titoreg;	rcssp ptr5;
	;			;				;		;
	;			dnop enra loaddp halt;		tmptoti;	rcsmsw;
	;			dneg enra loaddp halt;		tmptoti;	rcslsw;
	;			;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop tioe timsw halt;		titoreg;	rcsmsw ptr5;
	call stlepio4;		dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
forfv:
|* RA has k1 + i
|* Setup pointer 5 at (base - 1), increment k1 times:
|* Add 2 to k1:
	;			;				;		ptr5;	ptr5!c_sitwo
	;			i2add enrb halt;		regtitmp;	rcssp ptr5;
	;			;				;		;	
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		ptr5;	ptr5!c_sione
	;			i2cmp enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xB8
forloop:
	;			i2sub halt;			;		;
	;			;				;		ptr5;	ptr5+
	;			i2cmp enra tioe tisp halt;	;		;
	;			;				;		;
	jne forloop;		halt;				;		;
	;			;				;		ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dnop enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xD1
	;			dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmmb enrb loaddp halt;		regtoti;	rcslsw ptr5;
	rtn;			dmmb;				;		;
setk1eq0:
	;			;				;		ptr5;	ptr5!szero
	;			;				regtotmp;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xDA
	jmp contdiv;		;				;		ptr5;
	;			;				tmptoreg;	rcssp ptr5;
nislt0:
	jmp contwithn;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5; 
	;			dadd enrb loaddp halt;		regtoti;	rcslsw ptr5;
tis0:
	jmp contt;		dnop enrb loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd aluacreg enrb loaddp halt;	regtoti;	rcslsw ptr5;
modifyt:
	;			dnop;				;		ptr5;	ptr5!0x700+0xDE
	;			dfloat enra loaddp halt;	regtoti;	rcssp ptr5;
	;			dfloat enra loaddp halt;	regtoti;	rcssp ptr5;
	;			dnop;				;		ptr5;	ptr5!0x700+0xE0
	;			dnop enrb tioe timsw loaddp halt;;		;
	;			dnop enrb tioe tilsw loaddp halt;;		;
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dsub enra loaddp halt;		regtoti;	rcslsw ptr5;
	;			dsub;				;		ptr5;	ptr5!0x700+0xDF
	;			dnop srccalu clkcc tioe timsw halt;titoreg;	rcsmsw ptr5;
	;			dnop tioe tilsw halt;		titoreg;	rcslsw ptr5;
	;			;				;		ptr5;	ptr5!0x700+0xDC
	;			i2cmp enra halt;		regtoti;	rcssp ptr5;
	;			;				;		ptr5;	ptr5!c_sione
	;			i2add enrb halt;		regtoti;	rcssp ptr5;
	;			;				;		;
	;			i2cmp enra tioe tisp halt;	titotmp;	rcssp;
	;			;				;		ptr5;	ptr5!0x700+0xDF
forloop4:
	;			;				;		ptr5;	ptr5+
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd alubcreg enra loaddp halt;	regtoti;	rcslsw ptr5;
	;			dadd alubcreg;			;		;
	;			dnop srccalu clkcc;		;		;
	;			i2sub enra halt;		tmptoti;	rcssp;
	;			;				;		;
	;			i2cmp enra tioe tisp halt;	titotmp;	rcssp;
	;			;				;		;
	jgt forloop4;		dnop halt;			;		;
	;			dnop halt;			;		ptr5;
	;			dnop;				;		ptr5;	ptr5!dpio2
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dmul alubcreg enra loaddp halt;	regtoti;	rcslsw ptr5;
	call tismod;		dmul alubcreg;			;		;
q0minus:
	;			dsub halt;			;		;
	;			dsub halt;			;		;
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dsub enra tioe tilsw loaddp halt;;		;
	;			dsub;				;		ptr5;	ptr5!done
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd alubalu enra loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		;	
	;			dnop enra tioe timsw loaddp halt;;		;	ptr5!deight
	call nochange;		dnop enra tioe tilsw loaddp halt;;		;	
q1minus:
	;			dsub halt;			;		;
	;			dsub halt;			;		;
	;			dnop;				;		;
	;			dnop enra tioe timsw loaddp halt;;		;
	;			dsub enra tioe tilsw loaddp halt;;		;
	;			dsub;				;		ptr5;	ptr5!done
	;			dnop enra loaddp halt;		regtoti;	rcsmsw ptr5;
	;			dadd alubalu enra loaddp halt;	regtoti;	rcslsw ptr5;
	;			dnop;				;		;	
	;			dnop enra tioe timsw loaddp halt;;		;	ptr5!deight
	call qnochange;		dnop enra tioe tilsw loaddp halt;;		;