![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to moveb.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 moveb.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* MOVB instruction test */ ! 2: /* MOVL,MOVW have been tested prior to this test. */ ! 3: /* constant definitions */ ! 4: ! 5: .set HIGH,31 ! 6: .set IPL,8 ! 7: .set ZERO,0 ! 8: .set ONES,0xffffffff ! 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: .set NEGNO,0xa0ffffff ! 16: .set NEGVAL,0xff0fffff ! 17: .set WORD,0xffff ! 18: .set BYTE,0xff ! 19: .set MASKHW,0x55550000 ! 20: .set MASKLB,0x55 ! 21: .set MASKB,0x55555500 ! 22: .globl _moveb ! 23: _moveb: /* MOVE MEMORY TO REGISTER */ ! 24: callf $4,_setjmp /* save context for error return */ ! 25: movab _moveb,_stpc /* save starting address of subtest */ ! 26: movl $1,_subtst /* subtest number */ ! 27: movl $1,_no_opr /* number of operands in use */ ! 28: movl negno,_opr /* first operand */ ! 29: 0: movl $MASKHW,r4 /* initialize r4 = 0x55550000 */ ! 30: bispsw $(Z|V|C) /* set z,v,c flags */ ! 31: bicpsw $N /* clear n flag */ ! 32: movb negno,r4 /* move word 0xa0 to r4 */ ! 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 expr4,r4 /* compare r4 to 0xffffffa0 */ ! 43: jeql 1f /* error if not equal; z flag not set */ ! 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 expr4,_expected /* expected data */ ! 48: jmp *badrtn ! 49: 1: bicpsw $Z ! 50: cmpl $NEGNO,negno /* make sure source unchanged */ ! 51: jeql movwrr /* error if not equal; z flag not set */ ! 52: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 53: movl $3,_ercode /* error code operand miscompare */ ! 54: movl negno,_actual /* actual data */ ! 55: movl $NEGNO,_expected /* expected data */ ! 56: jmp *badrtn ! 57: movwrr: /* MOVE REGISTER TO REGISTER */ ! 58: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 59: am2: callf $4,_setjmp /* save context for error return */ ! 60: movab am2,_stpc /* save starting address of subtest */ ! 61: movl $2,_subtst /* subtest number */ ! 62: movl $1,_no_opr /* number of operands in use */ ! 63: movl $MASKLB,_opr /* first operand */ ! 64: 0: movl $MASKLB,r3 /* initialize r3 = 0x55 */ ! 65: movl r3,expval ! 66: movl $0xffffffff,r4 /* initialize r4 = 0xffffffff */ ! 67: bispsw $(Z|N|V) /* set Z,V,N flags */ ! 68: bicpsw $C /* clear C flag */ ! 69: movb r3,r4 /* move r3 to r4 */ ! 70: jlss error2 /* error if n flag set */ ! 71: jeql error2 /* error if z flag set */ ! 72: jvs error2 /* error if v flag set */ ! 73: jcc error2 /* error if c flag not set */ ! 74: jmp 1f ! 75: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 76: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 77: movl $2,_ercode /* error code flag failure */ ! 78: jmp *badrtn ! 79: 1: cmpl r4,expval ! 80: jeql 1f /* error if not equal; z flag not set */ ! 81: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 82: movl $1,_ercode /* error code data miscompare */ ! 83: movl r4,_actual /* actual data */ ! 84: movl expval,_expected /* expected data */ ! 85: jmp *badrtn ! 86: 1: movb r4,r5 ! 87: movb r5,r6 /* move r5 to r6 */ ! 88: movb r6,r7 /* move r6 to r7 */ ! 89: movb r7,r9 /* move r7 to r9 */ ! 90: movl r9,oldval /* save value of source = 0x00000055 */ ! 91: movb r9,r11 /* move r9 to r11 */ ! 92: cmpl expval,r11 /* compare r11 to 0x00000055 */ ! 93: jeql 1f /* error if not equal; z flag not set */ ! 94: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 95: movl $1,_ercode /* error code data miscompare */ ! 96: movl r11,_actual /* actual data */ ! 97: movl expval,_expected /* expected data */ ! 98: jmp *badrtn ! 99: 1: bicpsw $Z ! 100: cmpl oldval,r9 /* make sure source unchanged */ ! 101: jeql m3 /* error if not equal; z flag not set */ ! 102: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 103: movl $1,_ercode /* error code data miscompare */ ! 104: movl r9,_actual /* actual data */ ! 105: movl oldval,_expected /* expected data */ ! 106: jmp *badrtn ! 107: ! 108: m3: ! 109: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 110: am3: callf $4,_setjmp /* save context for error return */ ! 111: movab am3,_stpc /* save starting address of subtest */ ! 112: movl $3,_subtst /* subtest number */ ! 113: movl $1,_no_opr /* number of operands in use */ ! 114: movl $-16,_opr /* first operand */ ! 115: 0: movl $0x0,r4 ! 116: movb $-16,r3 /* move byte 0xf0 to r3 */ ! 117: movl r3,expval /* save source */ ! 118: bispsw $(Z|V) ! 119: bicpsw $(C|N) ! 120: movb r3,r4 /* move 0xfffffff0 to r4 */ ! 121: jgeq error3 /* error if n flag not set */ ! 122: jeql error3 /* error if z flag set */ ! 123: jvs error3 /* error if v flag set */ ! 124: jcc error3 /* error if c flag not set */ ! 125: jmp 1f ! 126: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 127: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 128: movl $2,_ercode /* error code flag failure */ ! 129: jmp *badrtn ! 130: 1: cmpl r4,expval ! 131: jeql 1f /* error if not equal; z flag not set */ ! 132: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 133: movl $1,_ercode /* error code data miscompare */ ! 134: movl r4,_actual /* actual data */ ! 135: movl expval,_expected /* expected data */ ! 136: jmp *badrtn ! 137: 1: bicpsw $Z ! 138: cmpl r3,expval ! 139: jeql movbmm /* error if not equal; z flag not set */ ! 140: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 141: movl $3,_ercode /* error code operand miscompare */ ! 142: movl r3,_actual /* actual data */ ! 143: movl expval,_expected /* expected data */ ! 144: jmp *badrtn ! 145: movbmm: /* MOVE MEMORY TO MEMORY */ ! 146: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 147: am4: callf $4,_setjmp /* save context for error return */ ! 148: movab am4,_stpc /* save starting address of subtest */ ! 149: movl $4,_subtst /* subtest number */ ! 150: movl $1,_no_opr /* number of operands in use */ ! 151: movl $0xff000000,_opr /* first operand */ ! 152: 0: movl $0x0,tstloc ! 153: movl $0xff000000,oprd ! 154: movl oprd,oldval /* save source */ ! 155: bispsw $(Z|V) /* set z,v flags */ ! 156: bicpsw $(C|N) /* clear n,c flag */ ! 157: movb oprd,tstloc+3 ! 158: jgeq error4 /* error if n flag not set */ ! 159: jeql error4 /* error if z flag set */ ! 160: jvs error4 /* error if v flag set */ ! 161: jcc error4 /* error if c flag not set */ ! 162: jmp 1f ! 163: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 164: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 165: movl $2,_ercode /* error code flag failure */ ! 166: jmp *badrtn ! 167: 1: cmpl $0x000000ff,tstloc /* compare tstloc to expected value */ ! 168: jeql 1f /* error if not equal; z flag not set */ ! 169: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 170: movl $1,_ercode /* error code data miscompare */ ! 171: movl tstloc,_actual /* actual data */ ! 172: movl $0x000000ff,_expected /* expected data */ ! 173: jmp *badrtn ! 174: 1: bicpsw $Z ! 175: cmpl oprd,oldval /* make sure source unchanged */ ! 176: jeql m5 /* error if not equal; z flag not set */ ! 177: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 178: movl $3,_ercode /* error code operand miscompare */ ! 179: movl oprd,_actual /* actual data */ ! 180: movl oldval,_expected /* expected data */ ! 181: jmp *badrtn ! 182: ! 183: m5: ! 184: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 185: am5: callf $4,_setjmp /* save context for error return */ ! 186: movab am5,_stpc /* save starting address of subtest */ ! 187: movl $5,_subtst /* subtest number */ ! 188: movl $1,_no_opr /* number of operands in use */ ! 189: movl $0x55,_opr /* first operand */ ! 190: 0: movl $0x55,tstloc ! 191: movl tstloc,oldval /* save source */ ! 192: bispsw $(N|V|Z) /* set n,v,z flags */ ! 193: bicpsw $C /* clear c flag */ ! 194: movb tstloc+3,oprd+3 ! 195: jlss error5 /* error if n flag set */ ! 196: jeql error5 /* error if z flag set */ ! 197: jvs error5 /* error if v flag set */ ! 198: jcc error5 /* error if c flag not set */ ! 199: jmp 1f ! 200: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 201: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 202: movl $2,_ercode /* error code flag failure */ ! 203: jmp *badrtn ! 204: 1: cmpl $0xff000055,oprd /* compare oprd to expected value */ ! 205: jeql 1f /* error if not equal; z flag not set */ ! 206: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 207: movl $1,_ercode /* error code data miscompare */ ! 208: movl oprd,_actual /* actual data */ ! 209: movl $0xff000055,_expected /* expected data */ ! 210: jmp *badrtn ! 211: 1: bicpsw $Z ! 212: cmpl tstloc,oldval /* make sure source unchanged */ ! 213: jeql movbdm /* error if not equal; z flag not set */ ! 214: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 215: movl $3,_ercode /* error code operand miscompare */ ! 216: movl tstloc,_actual /* actual data */ ! 217: movl oldval,_expected /* expected data */ ! 218: jmp *badrtn ! 219: movbdm: /* MOVE DATA TO MEMORY */ ! 220: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 221: am6: callf $4,_setjmp /* save context for error return */ ! 222: movab am6,_stpc /* save starting address of subtest */ ! 223: movl $6,_subtst /* subtest number */ ! 224: movl $1,_no_opr /* number of operands in use */ ! 225: movl $-1,_opr /* first operand */ ! 226: 0: movl $0x0,tstloc ! 227: bispsw $(Z|V) /* set z,v flags */ ! 228: bicpsw $(C|N) /* clear n,c flag */ ! 229: movb $-1,tstloc+3 ! 230: jgeq error6 /* error if n flag not set */ ! 231: jeql error6 /* error if z flag set */ ! 232: jvs error6 /* error if v flag set */ ! 233: jcc error6 /* error if c flag not set */ ! 234: jmp 1f ! 235: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 236: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 237: movl $2,_ercode /* error code flag failure */ ! 238: jmp *badrtn ! 239: 1: cmpl $0x000000ff,tstloc /* compare tstloc to expected value */ ! 240: jeql movbrm /* error if not equal; z flag not set */ ! 241: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 242: movl $1,_ercode /* error code data miscompare */ ! 243: movl tstloc,_actual /* actual data */ ! 244: movl $0x000000ff,_expected /* expected data */ ! 245: jmp *badrtn ! 246: ! 247: movbrm: /* MOVE DATA TO MEMORY */ ! 248: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 249: am7: callf $4,_setjmp /* save context for error return */ ! 250: movab am7,_stpc /* save starting address of subtest */ ! 251: movl $7,_subtst /* subtest number */ ! 252: movl $1,_no_opr /* number of operands in use */ ! 253: movl $0xaa,_opr /* first operand */ ! 254: 0: movl $0x0,tstloc ! 255: movl $0xaa,tmp /* load tmp to sign extend r5 contents */ ! 256: movb tmp+3,r3 ! 257: bispsw $(Z|V) /* set z,v flags */ ! 258: bicpsw $(C|N) /* clear n,c flag */ ! 259: movb r3,tstloc+3 ! 260: jgeq error7 /* error if n flag not set */ ! 261: jeql error7 /* error if z flag set */ ! 262: jvs error7 /* error if v flag set */ ! 263: jcc error7 /* error if c flag not set */ ! 264: jmp 1f ! 265: error7: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 266: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 267: movl $2,_ercode /* error code flag failure */ ! 268: jmp *badrtn ! 269: 1: cmpl $0x000000aa,tstloc /* compare tstloc to expected value */ ! 270: jeql movbdr /* error if not equal; z flag not set */ ! 271: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 272: movl $1,_ercode /* error code data miscompare */ ! 273: movl tstloc,_actual /* actual data */ ! 274: movl $0x000000aa,_expected /* expected data */ ! 275: jmp *badrtn ! 276: ! 277: movbdr: /* MOVE DATA TO REGISTER */ ! 278: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 279: am8: callf $4,_setjmp /* save context for error return */ ! 280: movab am8,_stpc /* save starting address of subtest */ ! 281: movl $8,_subtst /* subtest number */ ! 282: movl $1,_no_opr /* number of operands in use */ ! 283: movl $0x55,_opr /* first operand */ ! 284: 0: movl $MASKHW,r5 /* initialize r5 = 0x55550000 */ ! 285: bispsw $(Z|V|C) /* set z,v,c flags */ ! 286: bicpsw $N /* clear n flag */ ! 287: movb $-0x60,r5 /* move word 0xa0 to r5 */ ! 288: jgeq error8 /* error if n flag not set */ ! 289: jeql error8 /* error if z flag set */ ! 290: jvs error8 /* error if v flag set */ ! 291: jcc error8 /* error if c flag not set */ ! 292: jmp 1f ! 293: error8: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 294: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 295: movl $2,_ercode /* error code flag failure */ ! 296: jmp *badrtn ! 297: 1: cmpl expr4,r5 /* compare r5 to 0xffffffa0 */ ! 298: jeql aldn /* error if not equal; z flag not set */ ! 299: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 300: movl $1,_ercode /* error code data miscompare */ ! 301: movl r5,_actual /* actual data */ ! 302: movl expr4,_expected /* expected data */ ! 303: jmp *badrtn ! 304: ! 305: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 306: jmp *return ! 307: ! 308: /* test data */ ! 309: .align 2 ! 310: expval: .long 0x0 ! 311: oldval: .long 0x0 ! 312: negno: .long NEGNO ! 313: expr4: .long 0xffffffa0 ! 314: tstloc: .long 0x0 ! 315: oprd: .long 0x0 ! 316: tmp: .long 0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.