![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to movel.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry|
Return to movel.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* MOVL instruction test */ ! 2: /* */ ! 3: /* constant definitions */ ! 4: ! 5: .set HIGH,31 ! 6: .set IPL,8 ! 7: .set ZERO,0 ! 8: .set ONES,0xffffffff ! 9: .set DV,128 ! 10: .set FU,64 ! 11: .set IV,32 ! 12: .set T,16 ! 13: .set N,8 ! 14: .set Z,4 ! 15: .set V,2 ! 16: .set C,1 ! 17: .set NEGVAL,0xff0fffff ! 18: ! 19: .globl _movl ! 20: _movl: ! 21: bicpsw $(IV|T) /* disable overflow,trace exceptions */ ! 22: movlmr: /* MOVE MEMORY TO REGISTER */ ! 23: callf $4,_setjmp /* save context for error return */ ! 24: movab movlmr,_stpc /* save address of subtest start */ ! 25: movl $1,_subtst /* subtest number */ ! 26: movl $1,_no_opr /* number of operands in use */ ! 27: movl $NEGVAL,_opr /* first operand */ ! 28: movl $NEGVAL,negval /* restore original value of negval */ ! 29: 0: bispsw $(Z|V) /* set z,v flags */ ! 30: bicpsw $(N|C) /* clear n,c flag */ ! 31: movl negval,r4 /* move negative value to r4 mem to reg */ ! 32: movpsl actpsl ! 33: jgeq error1 /* error if n flag not set */ ! 34: jeql error1 /* error if z flag set */ ! 35: jvs error1 /* error if v flag set */ ! 36: jcc error1 /* error if c flag not set */ ! 37: jmp 1f ! 38: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 39: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 40: movl $2,_ercode /* error code flag failure */ ! 41: jmp *badrtn ! 42: 1: cmpl negval,r4 /* compare r4 to negval */ ! 43: jeql 1f ! 44: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 45: movl $1,_ercode /* error code data miscompare */ ! 46: movl r4,_actual /* actual data */ ! 47: movl negval,_expected /* expected data */ ! 48: jmp *badrtn ! 49: 1: cmpl $NEGVAL,negval /* make sure source unchanged */ ! 50: jeql movlrr /* no error then continue */ ! 51: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 52: movl $3,_ercode /* error code operand miscompare */ ! 53: movl negval,_actual /* actual data */ ! 54: movl $NEGVAL,_expected /* expected data */ ! 55: jmp *badrtn ! 56: movlrr: /* MOVE REGISTER TO REGISTER */ ! 57: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 58: am2: callf $4,_setjmp /* save context for error return */ ! 59: movab am2,_stpc /* save address of subtest start */ ! 60: movl $2,_subtst /* subtest number */ ! 61: movl $1,_no_opr /* number of operands in use */ ! 62: movl $NEGVAL,_opr /* first operand */ ! 63: 0: movl negval,r3 /* move negval to r3*/ ! 64: bispsw $(Z|V|C) /* set z,v,c flags */ ! 65: bicpsw $N /* clear N flag */ ! 66: movl r3,r4 /* move r3 to r4 */ ! 67: movpsl actpsl ! 68: jgeq error2 /* error if n flag not set */ ! 69: jeql error2 /* error if z flag set */ ! 70: jvs error2 /* error if v flag set */ ! 71: jcc error2 /* error if c flag not set */ ! 72: jmp 1f ! 73: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 74: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 75: movl $2,_ercode /* error code flag failure */ ! 76: jmp *badrtn ! 77: 1: movl r4,r5 /* move r4 to r5 */ ! 78: movl r5,r6 /* move r5 to r6 */ ! 79: movl r6,r7 /* move r6 to r7 */ ! 80: movl r7,r8 /* move r7 to r8 */ ! 81: movl r8,r9 /* move r8 to r9 */ ! 82: movl r9,r10 /* move r9 to r10 */ ! 83: movl r10,r11 /* move r10 to r11 */ ! 84: movl r11,r12 /* move r11 to r12 */ ! 85: cmpl negval,r12 /* compare r12 to negval */ ! 86: jeql 1f ! 87: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 88: movl $1,_ercode /* error code data miscompare */ ! 89: movl r12,_actual /* actual data */ ! 90: movl negval,_expected /* expected data */ ! 91: jmp *badrtn ! 92: 1: cmpl r3,r11 /* make sure source unchanged */ ! 93: jeql movlmm ! 94: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 95: movl $1,_ercode /* error code data miscompare */ ! 96: movl r3,_actual /* actual data */ ! 97: movl negval,_expected /* expected data */ ! 98: jmp *badrtn ! 99: movlmm: /* MOVE REGISTER TO MEMORY */ ! 100: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 101: am3: callf $4,_setjmp /* save context for error return */ ! 102: movab am3,_stpc /* save address of subtest start */ ! 103: movl $3,_subtst /* subtest number */ ! 104: movl $1,_no_opr /* number of operands in use */ ! 105: movl zero,_opr /* first operand */ ! 106: 0: movl zero,r3 /* load starting register */ ! 107: bispsw $(N|V|C) /* set n,v,c flags */ ! 108: bicpsw $Z /* clear z flag */ ! 109: movl r3,negval /* clear negval */ ! 110: movpsl actpsl ! 111: jlss error3 /* error if n flag set */ ! 112: jneq error3 /* error if z flag not set */ ! 113: jvs error3 /* error if v flag set */ ! 114: jcc error3 /* error if c flag not set */ ! 115: jmp 1f ! 116: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 117: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 118: movl $2,_ercode /* error code flag failure */ ! 119: jmp *badrtn ! 120: 1: cmpl $ZERO,negval /* compare negval to 0 */ ! 121: jeql 1f ! 122: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 123: movl $1,_ercode /* error code data miscompare */ ! 124: movl negval,_actual /* actual data */ ! 125: movl $ZERO,_expected /* expected data */ ! 126: jmp *badrtn ! 127: 1: cmpl $ZERO,zero /* compare source to 0 */ ! 128: jneq error3 /* error if value changed */ ! 129: jeql aldn ! 130: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 131: movl $3,_ercode /* error code operand miscompare */ ! 132: movl zero,_actual /* actual data */ ! 133: movl $ZERO,_expected /* expected data */ ! 134: jmp *badrtn ! 135: ! 136: ! 137: ! 138: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 139: jmp *return ! 140: ! 141: /* test data */ ! 142: .align 2 ! 143: negval: .long NEGVAL ! 144: zero: .long 0 ! 145: actpsl: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.