![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to moval.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 moval.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* MOVAL instruction test */ ! 2: /* MOVL,MOVW,MOVB have been tested prior to this test */ ! 3: /* Privilege registers */ ! 4: ! 5: .set IPL,0x8 ! 6: .set MAPEN,0x9 ! 7: ! 8: /* PSL fields */ ! 9: .set IV,32 ! 10: .set T,16 ! 11: .set N,8 ! 12: .set Z,4 ! 13: .set V,2 ! 14: .set C,1 ! 15: ! 16: /* constants */ ! 17: .set DISABLE,0 ! 18: .set ENABLE,1 ! 19: .set MAXPOSL,0x7fffffff ! 20: .set MAXNEGL,0x80000000 ! 21: .set MAXPOSW,0x7fff ! 22: .set MAXNEGW,0x8000 ! 23: .set MAXPOSB,0x7f ! 24: .set MAXNEGB,0x80 ! 25: .set ZERO,0 ! 26: .set ONES,0xffffffff ! 27: .set HIGH,31 /* highest interrupt priority */ ! 28: .set DISP,2 ! 29: .set LONG,4 ! 30: .set WORD,2 ! 31: .set BYTE,1 ! 32: ! 33: .globl _moval ! 34: _moval: ! 35: callf $4,_setjmp /* save context for error return */ ! 36: movab _moval,_stpc /* save address of subtest start */ ! 37: movl $1,_subtst /* subtest number */ ! 38: movl $1,_no_opr /* number of operands in use */ ! 39: movl $MAXPOSL,_opr /* first operand */ ! 40: 0: bicpsw $(IV|T) /* disable exceptions */ ! 41: moval1: ! 42: movl $MAXPOSL,tstloc /* initialize tstloc */ ! 43: bispsw $(N|Z|V|C) /* set n,z,v,c flags */ ! 44: moval tstloc,r3 /* move address tstloc to r3 */ ! 45: jlss error1 /* error if any of the n,z,v */ ! 46: jeql error1 /* flags still set */ ! 47: jvs error1 ! 48: jcc error1 /* error if c flag clear */ ! 49: jmp 1f ! 50: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 51: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 52: movl $2,_ercode /* error code flag miscompare */ ! 53: jmp *badrtn ! 54: 1: cmpl r3,result /* check if r3 has valid adr. */ ! 55: jeql m2 /* error if not */ ! 56: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 57: movl $1,_ercode /* error code data miscompare */ ! 58: movl r3,_actual /* actual data */ ! 59: movl result,_expected /* expected data */ ! 60: jmp *badrtn ! 61: /* MOVE ADDRESS FROM REGISTER TO MEMORY */ ! 62: m2: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 63: am2: callf $4,_setjmp /* save context for error return */ ! 64: movab am2,_stpc /* save address of subtest start */ ! 65: movl $2,_subtst /* subtest number */ ! 66: 0: moval (r3),temp /* move register to memory */ ! 67: cmpl temp,result /* compare result */ ! 68: jeql 1f /* error if not */ ! 69: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 70: movl $1,_ercode /* error code data miscompare */ ! 71: movl temp,_actual /* actual data */ ! 72: movl result,_expected /* expected data */ ! 73: jmp *badrtn ! 74: 1: cmpl r3,result /* Check source operand */ ! 75: jeql chkflag /* error if not */ ! 76: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 77: movl $3,_ercode /* error code operand was changed */ ! 78: movl r3,_actual /* actual data */ ! 79: movl result,_expected /* expected data */ ! 80: jmp *badrtn ! 81: /* TESTING CONDITION FLAGS */ ! 82: chkflag: ! 83: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 84: am3: callf $4,_setjmp /* save context for error return */ ! 85: movab am3,_stpc /* save address of subtest start */ ! 86: movl $3,_subtst /* subtest number */ ! 87: movl $1,_no_opr /* number of operands in use */ ! 88: movl $MAXNEGL,_opr /* first operand */ ! 89: 0: movl $0,temp /* clear temp */ ! 90: movl $MAXNEGL,r3 /* set r3 = $MAXNEGL */ ! 91: bispsw $(Z|V|C) /* set z,v,c flags */ ! 92: bicpsw $N /* clear n flag */ ! 93: moval (r3),temp /* move adr. in r3 to temp */ ! 94: jgeq error2 /* error if n flag not set */ ! 95: jeql error2 /* error if z flag still set */ ! 96: jvs error2 /* error if v flag still set */ ! 97: jcc error2 /* error if c flag clear */ ! 98: jmp 1f ! 99: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 100: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 101: movl $2,_ercode /* error code flag miscompare */ ! 102: jmp *badrtn ! 103: 1: cmpl temp,$MAXNEGL /* check address in temp */ ! 104: jeql m4 /* error if not */ ! 105: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 106: movl $1,_ercode /* error code data miscompare */ ! 107: movl temp,_actual /* actual data */ ! 108: movl $MAXNEGL,_expected /* expected data */ ! 109: jmp *badrtn ! 110: ! 111: m4: ! 112: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 113: am4: callf $4,_setjmp /* save context for error return */ ! 114: movab am4,_stpc /* save address of subtest start */ ! 115: movl $4,_subtst /* subtest number */ ! 116: movl $1,_no_opr /* number of operands in use */ ! 117: movl $0,_opr /* first operand */ ! 118: 0: movl $ONES,temp /* set temp = 0xffffffff */ ! 119: movl $0,r3 /* set r3 = $0 */ ! 120: bispsw $(N|V) /* set n,v flags */ ! 121: bicpsw $(Z|C) /* clear z,c flag */ ! 122: moval (r3),temp /* move adr. in r3 to temp */ ! 123: jlss error3 /* error if n flag still set */ ! 124: jneq error3 /* error if z flag not set */ ! 125: jvs error3 /* error if v flag still set */ ! 126: jcc error3 /* error if c flag clear */ ! 127: jmp 1f ! 128: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 129: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 130: movl $2,_ercode /* error code flag miscompare */ ! 131: jmp *badrtn ! 132: 1: cmpl temp,$0 /* check address in temp */ ! 133: jeql m5 /* error if not */ ! 134: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 135: movl $1,_ercode /* error code data miscompare */ ! 136: movl temp,_actual /* actual data */ ! 137: movl $0,_expected /* expected data */ ! 138: jmp *badrtn ! 139: /* CHECKING INDEXING MODE */ ! 140: m5: ! 141: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 142: am5: callf $4,_setjmp /* save context for error return */ ! 143: movab am5,_stpc /* save address of subtest start */ ! 144: movl $5,_subtst /* subtest number */ ! 145: movl $1,_no_opr /* number of operands in use */ ! 146: movl $DISP,_opr /* first operand */ ! 147: 0: movl $DISP,r3 /* set r3 = DISP = 2 */ ! 148: bispsw $(N|Z|V|C) /* set n,z,v,c flags */ ! 149: moval tstloc[r3],r4 /* move address tstloc to r4 */ ! 150: jlss error4 /* error if any of the n,z,v */ ! 151: jeql error4 /* flags still set */ ! 152: jvs error4 ! 153: jcc error4 /* error if c flag clear */ ! 154: jmp 1f ! 155: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 156: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 157: movl $2,_ercode /* error code flag miscompare */ ! 158: jmp *badrtn ! 159: 1: cmpl r4,resul1 /* check if r4 has valid adr. */ ! 160: jeql aldn /* error if not */ ! 161: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 162: movl $1,_ercode /* error code data miscompare */ ! 163: movl r4,_actual /* actual data */ ! 164: movl resul1,_expected /* expected data */ ! 165: jmp *badrtn ! 166: ! 167: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 168: jmp *return ! 169: ! 170: ! 171: /* test data */ ! 172: .align 2 /* align on longword boundery */ ! 173: tstloc: .long 0 ! 174: result: .long tstloc ! 175: resul1: .long tstloc+(DISP*LONG) ! 176: temp: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.