Return to reg_mode.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry

Power 6/32 Unix version 1.2b

/*		REGISTER ADDRESSING MODE TEST				*/
/*									*/
/*									*/
/*									*/
/*	Syst.s - Constants						*/
/*									*/
	.set	IPL,8
	.set	HIGH,31
	.set	ZERO,0
	.set	ONES,0xffffffff
	.set	N,8
	.set	Z,4
	.set	V,2
	.set	C,1
	.set	T,16
	.set	IV,32
	.set	FU,64
	.set	DV,128
	.set	PSWMASK,0x003f



	.globl	_r_mode
_r_mode: 
	callf	$4,_setjmp		/* save context */
 	movab	_r_mode,_stpc		/* save subtest pc */
	movl	$1,_subtst		/* subtest number */
	movl	$3,_no_opr		/* number of operands */
0:	movl	$0x55555555,r3
	movl	$0xaaaaaaaa,r4
	movl	$-1,r5
	movl	r3,_opr			/* first operand */
	movl	r4,_opr + 4		/* second operand */
	movl	r5,_opr + 8		/* third operand */
	andl3   r3,r4,r5		/*funny way of zeroing r3	*/
	cmpl	r5,$0			/*r3 = 0 ?			*/
	beql	1f			/*if yes, goto next		*/
er1:	bbs	$0,_scoplp,0b		/* if set loop on error */
	movl	$1,_ercode		/* error code data miscompare */
	movl	r5,_actual		/* actual data */
	movl	$0,_expected		/* expected data */
	jmp	*badrtn			/*display error			*/
				/*					*/
1:
	bbs	$0,_force_lp,0b		/* if set loop on subtest */
	movl	$0,_ercode			/*no error*/	
	jmp	*return			/*end of test, goto monitor	*/

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.