Return to movw.s CVS log

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

Power 6/32 Unix version 1.2b

	.globl	_movwall
_movwall:
	movl	$0xaabbccdd,l1
	movl	$0xffffffff,l2
	callf	$4,_setjmp	/* save context for error return */
	movab	_movwall,_stpc	/* save subtest starting address */
	movl	$1,_subtst	/* subtest number */
	movl	$1,_no_opr	/* number of operands in use */
	movl	l1,_opr		/* first operand */
0:	movw	l1,l2
	cmpl	$0xaabbffff,l2
	jeql	nxt1
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l2,_actual	/* actual data */
	movl	$0xaabbffff,_expected	/* expected data */
	jmp	*badrtn
nxt1:
	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
am2:	callf	$4,_setjmp	/* save context for error return */
	movab	am2,_stpc	/* save subtest starting address */
	movl	$2,_subtst	/* subtest number */
0:	movl	$0xffffffff,l2
	movw	l1,l2+2
	cmpl	$0xffffaabb,l2
	jeql	nxt2
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l2,_actual	/* actual data */
	movl	$0xffffaabb,_expected	/* expected data */
	jmp	*badrtn
nxt2:
	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
am3:	callf	$4,_setjmp	/* save context for error return */
	movab	am3,_stpc	/* save subtest starting address */
	movl	$3,_subtst	/* subtest number */
0:	movl	$0xffffffff,l2
	movw	l1+2,l2
	cmpl	$0xccddffff,l2
	jeql	nxt3
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l2,_actual	/* actual data */
	movl	$0xccddffff,_expected	/* expected data */
	jmp	*badrtn
nxt3:
	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
am4:	callf	$4,_setjmp	/* save context for error return */
	movab	am4,_stpc	/* save subtest starting address */
	movl	$4,_subtst	/* subtest number */
0:	movl	$0xffffffff,l2
	movw	l1+2,l2+2
	cmpl	$0xffffccdd,l2
	jeql	nxt4
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l2,_actual	/* actual data */
	movl	$0xffffccdd,_expected	/* expected data */
	jmp	*badrtn
nxt4:
	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
am5:	callf	$4,_setjmp	/* save context for error return */
	movab	am5,_stpc	/* save subtest starting address */
	movl	$5,_subtst	/* subtest number */
0:	movw	l1,l1+2
	cmpl	$0xaabbaabb,l1
	jeql	nxt5
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l1,_actual	/* actual data */
	movl	$0xaabbaabb,_expected	/* expected data */
	jmp	*badrtn
nxt5:
	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
am6:	callf	$4,_setjmp	/* save context for error return */
	movab	am6,_stpc	/* save subtest starting address */
	movl	$6,_subtst	/* subtest number */
0:	movl	$0xaabbccdd,l1
	movw	l1+2,l1
	cmpl	$0xccddccdd,l1
	jeql	aldn
	bbs	$0,_scoplp,0b	/* if set scope loop on error */
	movl	$1,_ercode	/* error code data miscompare */
	movl	l1,_actual	/* actual data */
	movl	$0xccddccdd,_expected	/* expected data */
	jmp	*badrtn


aldn:	bbs	$0,_force_lp,0b	/* if set loop on last subtest */
	jmp	*return		/* good, return to monitor */


	.align	2
l1:
	.long	0xaabbccdd
l2:
	.long	0xffffffff	

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