![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to and_w3.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 and_w3.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: /* ANDW3 (and word 3 operand) test */ ! 4: ! 5: /*Test name = andw3 */ ! 6: /*Description = */ ! 7: /* This test checks 'andw3' instruction as follows: */ ! 8: /* source mask destination Z N C V(flags) */ ! 9: /* ___________ ____ ___________ _____________ */ ! 10: /* 0xaaaa 0xaaaa 0x7fffaaaa 0 0 1 0 */ ! 11: /* 0xaaaa 0x5555 0x7fff0000 1 0 1 0 */ ! 12: /* R R R --- */ ! 13: /* M M M --- */ ! 14: /* R M M --- */ ! 15: /* M R R --- */ ! 16: /* */ ! 17: /* */ ! 18: /* Constants */ ! 19: /* */ ! 20: .set MASK1B3,0xaa ! 21: .set MASK1W3,0xaaaa ! 22: .set MASK1L3,0xaaaaaaaa ! 23: .set MASK2B3,0x55 ! 24: .set MASK2W3,0x5555 ! 25: .set MASK2L3,0x55555555 ! 26: .set SOURCE1B3,0xaa ! 27: .set SOURCE1W3,0xaaaa ! 28: .set SOURCE1L3,0xaaaaaaaa ! 29: .set SOURCE2B3,0xaa ! 30: .set SOURCE2W3,0xaaaa ! 31: .set SOURCE2L3,0xaaaaaaaa ! 32: .set INITIAL3,0x7fffffff ! 33: .set EXP1B3,0x7fffffaa ! 34: .set EXP1W3,0x7fffaaaa ! 35: .set EXP1L3,0xaaaaaaaa ! 36: .set EXP2B3,0x7fffff00 ! 37: .set EXP2W3,0x7fff0000 ! 38: .set EXP2L3,0x00000000 ! 39: ! 40: /* */ ! 41: /* */ ! 42: /* */ ! 43: /* Syst.s - constants */ ! 44: /* */ ! 45: .set IPL,8 ! 46: .set HIGH,31 ! 47: .set ZERO,0 ! 48: .set ONES,0xffffffff ! 49: .set N,8 ! 50: .set Z,4 ! 51: .set V,2 ! 52: .set C,1 ! 53: .set T,16 ! 54: .set IV,32 ! 55: .set FU,64 ! 56: .set DV,128 ! 57: .set PSWMASK,0x003f ! 58: ! 59: .globl _andw3 ! 60: _andw3: callf $4,_setjmp /* save context for error return */ ! 61: movab _andw3,_stpc /* subtest address */ ! 62: movl $1,_subtst /* subtest number */ ! 63: movl $2,_no_opr /* number of operands in use */ ! 64: movl $MASK1W3,_opr /* first operand */ ! 65: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 66: 0: movl $MASK1W3,r3 /*mask */ ! 67: movl $SOURCE1W3,r4 /*source */ ! 68: movl $INITIAL3,r5 /*destination */ ! 69: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 70: andw3 r3,r4,r5 /*try it reg reg reg */ ! 71: jeql error1 /*error if Z = 1 */ ! 72: jlss error1 /*error if N = 1 */ ! 73: jcc error1 /*error if C = 0 */ ! 74: jvs error1 /*error if V = 1 */ ! 75: movl $0xaaaa,r4 ! 76: cmpl r5,$0xaaaa /*if dest <> expected value, */ ! 77: jeql a2 /* if correct continue */ ! 78: movl $1,_ercode /* error code data miscompare */ ! 79: bbs $0,_scoplp,0b /* if set loop on error */ ! 80: movl r5,_actual /* actual data */ ! 81: movl $0xaaaa,_expected /* expected data */ ! 82: jmp *badrtn ! 83: error1: movpsl _actual /* actual = psl */ ! 84: bbs $0,_scoplp,0b /* if set loop on error */ ! 85: movl $2,_ercode /* error code flag miscompare */ ! 86: jmp *badrtn ! 87: ! 88: /* Now try another mask(0x55) */ ! 89: /* */ ! 90: a2: bbs $0,_force_lp,0b /* if set loop on error */ ! 91: aa2: callf $4,_setjmp /* save context for error return */ ! 92: movab aa2,_stpc /* subtest address */ ! 93: movl $2,_subtst /* subtest number */ ! 94: movl $2,_no_opr /* number of operands in use */ ! 95: movl $MASK2W3,_opr /* first operand */ ! 96: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 97: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 98: movl $MASK2W3,mask /*mask */ ! 99: movl $INITIAL3,r5 /*destination */ ! 100: bispsw $(N|V) /*overflow & negetive bits ON */ ! 101: andw3 mask+2,$SOURCE2W3,r5/* try again mem data reg */ ! 102: jneq error2 /*error if Z = 0 */ ! 103: jlss error2 /*error if N = 1 */ ! 104: jcc error2 /*error if C = 1 */ ! 105: jvs error2 /*error if V = 1 */ ! 106: cmpl r5,$0 /*if dest <> expected value, */ ! 107: jeql andw3mmm /* if correct continue */ ! 108: movl $1,_ercode /* error code data miscompare */ ! 109: bbs $0,_scoplp,0b /* if set loop on error */ ! 110: movl r5,_actual /* actual data */ ! 111: movl $0,_expected /* expected data */ ! 112: jmp *badrtn ! 113: error2: movpsl _actual /* actual = psl it is incorrect */ ! 114: bbs $0,_scoplp,0b /* if set loop on error */ ! 115: movl $2,_ercode /* error code flag miscompare */ ! 116: jmp *badrtn ! 117: /* */ ! 118: /* now try source = M, mask = M, destination = M */ ! 119: andw3mmm: ! 120: ! 121: bbs $0,_force_lp,0b /* if set loop on error */ ! 122: aa3: callf $4,_setjmp /* save context for error return */ ! 123: movab aa3,_stpc /* subtest address */ ! 124: movl $3,_subtst /* subtest number */ ! 125: movl $2,_no_opr /* number of operands in use */ ! 126: movl $MASK1W3,_opr /* first operand */ ! 127: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 128: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 129: movl $MASK1W3,mask /*mask */ ! 130: movl $SOURCE1W3,source/*source */ ! 131: movl $INITIAL3,dest /*destination */ ! 132: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 133: andw3 mask+2,source+2,dest+2/*try it mem mem mem */ ! 134: jeql error3 /*error if Z = 1 */ ! 135: jgeq error3 /*error if N = 1 */ ! 136: jcc error3 /*error if C = 0 */ ! 137: jvs error3 /*error if V = 1 */ ! 138: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 139: jeql a4 /* if correct continue */ ! 140: movl $1,_ercode /* error code data miscompare */ ! 141: bbs $0,_scoplp,0b /* if set loop on error */ ! 142: movl dest,_actual /* actual data */ ! 143: movl $EXP1W3,_expected /* expected data */ ! 144: jmp *badrtn ! 145: error3: movpsl _actual /* actual = psl it is incorrect */ ! 146: bbs $0,_scoplp,0b /* if set loop on error */ ! 147: movl $2,_ercode /* error code flag miscompare */ ! 148: jmp *badrtn ! 149: ! 150: /* Now try another mask(0x55) */ ! 151: /* */ ! 152: ! 153: a4: bbs $0,_force_lp,0b /* if set loop on error */ ! 154: aa4: callf $4,_setjmp /* save context for error return */ ! 155: movab aa4,_stpc /* subtest address */ ! 156: movl $4,_subtst /* subtest number */ ! 157: movl $2,_no_opr /* number of operands in use */ ! 158: movl $MASK2W3,_opr /* first operand */ ! 159: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 160: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 161: movl $MASK2W3,mask /*mask */ ! 162: movl $SOURCE2W3,source/*source */ ! 163: movl $INITIAL3,r5 /*destination */ ! 164: bispsw $(N|V) /*overflow & negetive bits ON */ ! 165: andw3 mask+2,source+2,r5/* try again mem mem reg */ ! 166: jneq error4 /*error if Z = 0 */ ! 167: jlss error4 /*error if N = 1 */ ! 168: jcc error4 /*error if C = 1 */ ! 169: jvs error4 /*error if V = 1 */ ! 170: movl $0x0,r4 ! 171: cmpl r5,r4 /*if dest <> expected value, */ ! 172: jeql andw3mrm /* if correct continue */ ! 173: movl $1,_ercode /* error code data miscompare */ ! 174: bbs $0,_scoplp,0b /* if set loop on error */ ! 175: movl r5,_actual /* actual data */ ! 176: movl $0,_expected /* expected data */ ! 177: jmp *badrtn ! 178: error4: movpsl _actual /* actual = psl it is incorrect */ ! 179: bbs $0,_scoplp,0b /* if set loop on error */ ! 180: movl $2,_ercode /* error code flag miscompare */ ! 181: jmp *badrtn ! 182: /* */ ! 183: /* Now use mask = R, source & destination = M */ ! 184: andw3mrm: ! 185: bbs $0,_force_lp,0b /* if set loop on error */ ! 186: aa5: callf $4,_setjmp /* save context for error return */ ! 187: movab aa5,_stpc /* subtest address */ ! 188: movl $5,_subtst /* subtest number */ ! 189: movl $2,_no_opr /* number of operands in use */ ! 190: movl $MASK1W3,_opr /* first operand */ ! 191: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 192: 0: ! 193: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 194: movl $MASK1W3,r3 /*mask */ ! 195: movl $SOURCE1W3,source/*source */ ! 196: movl $INITIAL3,dest /*destination */ ! 197: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 198: andw3 r3,source+2,dest+2 /*try it reg mem mem */ ! 199: jeql error5 /*error if Z = 1 */ ! 200: jlss error5 /*error if N = 1 */ ! 201: jcc error5 /*error if C = 0 */ ! 202: jvs error5 /*error if V = 1 */ ! 203: movl $EXP1W3,r4 ! 204: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 205: jeql a6 /* if correct continue */ ! 206: movl $1,_ercode /* error code data miscompare */ ! 207: bbs $0,_scoplp,0b /* if set loop on error */ ! 208: movl dest,_actual /* actual data */ ! 209: movl $EXP1W3,_expected /* expected data */ ! 210: jmp *badrtn ! 211: error5: movpsl _actual /* actual = psl it is incorrect */ ! 212: bbs $0,_scoplp,0b /* if set loop on error */ ! 213: movl $2,_ercode /* error code flag miscompare */ ! 214: jmp *badrtn ! 215: /* */ ! 216: /* Now try another mask(0x55) */ ! 217: /* */ ! 218: a6: bbs $0,_force_lp,0b /* if set loop on error */ ! 219: aa6: callf $4,_setjmp /* save context for error return */ ! 220: movab aa6,_stpc /* subtest address */ ! 221: movl $6,_subtst /* subtest number */ ! 222: movl $2,_no_opr /* number of operands in use */ ! 223: movl $MASK2W3,_opr /* first operand */ ! 224: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 225: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 226: movl $INITIAL3,dest /*destination */ ! 227: bispsw $(N|V) /*overflow & negetive bits ON */ ! 228: andw3 $MASK2W3,$SOURCE2W3,dest+2/* try again data data mem */ ! 229: jneq error6 /*error if Z = 0 */ ! 230: jlss error6 /*error if N = 1 */ ! 231: jcc error6 /*error if C = 1 */ ! 232: jvs error6 /*error if V = 1 */ ! 233: movl $EXP2W3,r4 ! 234: cmpl dest,$EXP2W3 /*if dest <> expected value, */ ! 235: jeql andw3rmm /* if correct continue */ ! 236: movl $1,_ercode /* error code data miscompare */ ! 237: bbs $0,_scoplp,0b /* if set loop on error */ ! 238: movl dest,_actual /* actual data */ ! 239: movl $EXP2W3,_expected /* expected data */ ! 240: jmp *badrtn ! 241: error6: movpsl _actual /* actual = psl it is incorrect */ ! 242: bbs $0,_scoplp,0b /* if set loop on error */ ! 243: movl $2,_ercode /* error code flag miscompare */ ! 244: jmp *badrtn ! 245: /* */ ! 246: /* Now try mask = M, source = R, dest = M */ ! 247: /* */ ! 248: andw3rmm: ! 249: bbs $0,_force_lp,0b /* if set loop on error */ ! 250: aa7: callf $4,_setjmp /* save context for error return */ ! 251: movab aa7,_stpc /* subtest address */ ! 252: movl $7,_subtst /* subtest number */ ! 253: movl $2,_no_opr /* number of operands in use */ ! 254: movl $MASK1W3,_opr /* first operand */ ! 255: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 256: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 257: movl $MASK1W3,mask /*mask */ ! 258: movl $SOURCE1W3,r4 /*source */ ! 259: movl $INITIAL3,dest /*destination */ ! 260: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 261: andw3 mask+2,r4,dest+2/*try it mem reg mem */ ! 262: jeql error7 /*error if Z = 1 */ ! 263: jlss error7 /*error if N = 1 */ ! 264: jcc error7 /*error if C = 0 */ ! 265: jvs error7 /*error if V = 1 */ ! 266: movl $EXP1W3,r4 ! 267: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 268: jeql a8 /* if correct continue */ ! 269: movl $1,_ercode /* error code data miscompare */ ! 270: bbs $0,_scoplp,0b /* if set loop on error */ ! 271: movl dest,_actual /* actual data */ ! 272: movl $EXP1W3,_expected /* expected data */ ! 273: jmp *badrtn ! 274: error7: movpsl _actual /* actual = psl it is incorrect */ ! 275: bbs $0,_scoplp,0b /* if set loop on error */ ! 276: movl $2,_ercode /* error code flag miscompare */ ! 277: jmp *badrtn ! 278: ! 279: /* Now try another mask(0x55) */ ! 280: /* */ ! 281: ! 282: a8: bbs $0,_force_lp,0b /* if set loop on error */ ! 283: aa8: callf $4,_setjmp /* save context for error return */ ! 284: movab aa8,_stpc /* subtest address */ ! 285: movl $8,_subtst /* subtest number */ ! 286: movl $2,_no_opr /* number of operands in use */ ! 287: movl $MASK2W3,_opr /* first operand */ ! 288: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 289: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 290: movl $SOURCE2W3,r4 /*source */ ! 291: movl $INITIAL3,dest /*destination */ ! 292: bispsw $(N|V) /*overflow & negetive bits ON */ ! 293: andw3 $MASK2W3,r4,dest+2/* try again data reg mem */ ! 294: jneq error8 /*error if Z = 0 */ ! 295: jlss error8 /*error if N = 1 */ ! 296: jcc error8 /*error if C = 1 */ ! 297: jvs error8 /*error if V = 1 */ ! 298: movl $EXP2W3,r4 ! 299: cmpl dest,$EXP2W3 /*if dest <> expected value, */ ! 300: jeql andw3mrr /* if correct continue */ ! 301: movl $1,_ercode /* error code data miscompare */ ! 302: bbs $0,_scoplp,0b /* if set loop on error */ ! 303: movl dest,_actual /* actual data */ ! 304: movl $EXP2W3,_expected /* expected data */ ! 305: jmp *badrtn ! 306: error8: movpsl _actual /* actual = psl it is incorrect */ ! 307: bbs $0,_scoplp,0b /* if set loop on error */ ! 308: movl $2,_ercode /* error code flag miscompare */ ! 309: jmp *badrtn ! 310: /* */ ! 311: /* Now try mask = R, source = M, dest = R */ ! 312: /* */ ! 313: andw3mrr: ! 314: bbs $0,_force_lp,0b /* if set loop on error */ ! 315: aa9: callf $4,_setjmp /* save context for error return */ ! 316: movab aa9,_stpc /* subtest address */ ! 317: movl $9,_subtst /* subtest number */ ! 318: movl $2,_no_opr /* number of operands in use */ ! 319: movl $MASK1W3,_opr /* first operand */ ! 320: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 321: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 322: movl $MASK1W3,r3 /*mask */ ! 323: movl $SOURCE1W3,source/*source */ ! 324: movl $INITIAL3,r5 /*destination */ ! 325: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 326: andw3 r3,source+2,r5 /*try it reg mem reg */ ! 327: jeql error9 /*error if Z = 1 */ ! 328: jlss error9 /*error if N = 1 */ ! 329: jcc error9 /*error if C = 0 */ ! 330: jvs error9 /*error if V = 1 */ ! 331: cmpl r5,$0xaaaa /*if dest <> expected value, */ ! 332: jeql a10 /* if correct continue */ ! 333: movl $1,_ercode /* error code data miscompare */ ! 334: bbs $0,_scoplp,0b /* if set loop on error */ ! 335: movl r5,_actual /* actual data */ ! 336: movl $0xaaaa,_expected /* expected data */ ! 337: jmp *badrtn ! 338: error9: movpsl _actual /* actual = psl it is incorrect */ ! 339: bbs $0,_scoplp,0b /* if set loop on error */ ! 340: movl $2,_ercode /* error code flag miscompare */ ! 341: jmp *badrtn ! 342: ! 343: /* Now try another mask(0x55) */ ! 344: /* */ ! 345: ! 346: a10: bbs $0,_force_lp,0b /* if set loop on error */ ! 347: aa10: callf $4,_setjmp /* save context for error return */ ! 348: movab aa10,_stpc /* subtest address */ ! 349: movl $0xa,_subtst /* subtest number */ ! 350: movl $2,_no_opr /* number of operands in use */ ! 351: movl $MASK2W3,_opr /* first operand */ ! 352: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 353: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 354: movl $SOURCE2W3,r4 /*source */ ! 355: movl $INITIAL3,r5 /*destination */ ! 356: bispsw $(N|V) /*overflow & negetive bits ON */ ! 357: andw3 $MASK2W3,r4,r5 /* try again data reg reg */ ! 358: jneq error10 /*error if Z = 0 */ ! 359: jlss error10 /*error if N = 1 */ ! 360: jcc error10 /*error if C = 1 */ ! 361: jvs error10 /*error if V = 1 */ ! 362: cmpl r5,$0 /*if dest <> expected value, */ ! 363: jeql a11 /* if correct continue */ ! 364: movl $1,_ercode /* error code data miscompare */ ! 365: bbs $0,_scoplp,0b /* if set loop on error */ ! 366: movl r5,_actual /* actual data */ ! 367: movl $0,_expected /* expected data */ ! 368: jmp *badrtn ! 369: error10: movpsl _actual /* actual = psl it is incorrect */ ! 370: bbs $0,_scoplp,0b /* if set loop on error */ ! 371: movl $2,_ercode /* error code flag miscompare */ ! 372: jmp *badrtn ! 373: ! 374: a11: bbs $0,_force_lp,0b /* if set loop on error */ ! 375: aa11: callf $4,_setjmp /* save context for error return */ ! 376: movab aa11,_stpc /* subtest address */ ! 377: movl $0xb,_subtst /* subtest number */ ! 378: movl $2,_no_opr /* number of operands in use */ ! 379: movl $MASK1W3,_opr /* first operand */ ! 380: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 381: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 382: movl $MASK1W3,r3 /*mask */ ! 383: movl $INITIAL3,r5 /*destination */ ! 384: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 385: andw3 r3,$SOURCE1W3,r5/*try it reg data reg */ ! 386: jeql error11 /*error if Z = 1 */ ! 387: jlss error11 /*error if N = 1 */ ! 388: jcc error11 /*error if C = 0 */ ! 389: jvs error11 /*error if V = 1 */ ! 390: cmpl r5,$0xaaaa /*if dest <> expected value, */ ! 391: jeql a12 /* if correct continue */ ! 392: movl $1,_ercode /* error code data miscompare */ ! 393: bbs $0,_scoplp,0b /* if set loop on error */ ! 394: movl r5,_actual /* actual data */ ! 395: movl $0xaaaa,_expected /* expected data */ ! 396: jmp *badrtn ! 397: error11: movpsl _actual /* actual = psl it is incorrect */ ! 398: bbs $0,_scoplp,0b /* if set loop on error */ ! 399: movl $2,_ercode /* error code flag miscompare */ ! 400: jmp *badrtn ! 401: ! 402: a12: bbs $0,_force_lp,0b /* if set loop on error */ ! 403: aa12: callf $4,_setjmp /* save context for error return */ ! 404: movab aa12,_stpc /* subtest address */ ! 405: movl $0xc,_subtst /* subtest number */ ! 406: movl $2,_no_opr /* number of operands in use */ ! 407: movl $MASK1W3,_opr /* first operand */ ! 408: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 409: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 410: movl $MASK1W3,r3 /*mask */ ! 411: movl $SOURCE1W3,r4 /*source */ ! 412: movl $INITIAL3,dest /*destination */ ! 413: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 414: andw3 r3,r4,dest+2 /*try it reg reg mem */ ! 415: jeql error12 /*error if Z = 1 */ ! 416: jlss error12 /*error if N = 1 */ ! 417: jcc error12 /*error if C = 0 */ ! 418: jvs error12 /*error if V = 1 */ ! 419: movl $0x7fffaaaa,r4 ! 420: cmpl dest,r4 /*if dest <> expected value, */ ! 421: jeql aldn /* if correct continue */ ! 422: movl $1,_ercode /* error code data miscompare */ ! 423: bbs $0,_scoplp,0b /* if set loop on error */ ! 424: movl dest,_actual /* actual data */ ! 425: movl $0xffffaaaa,_expected /* expected data */ ! 426: jmp *badrtn ! 427: error12: movpsl _actual /* actual = psl it is incorrect */ ! 428: bbs $0,_scoplp,0b /* if set loop on error */ ! 429: movl $2,_ercode /* error code flag miscompare */ ! 430: jmp *badrtn ! 431: aldn: bbs $0,_force_lp,0b /* if set loop on error */ ! 432: jmp *return /*good pass, goto monitor */ ! 433: ! 434: /* */ ! 435: /* Variables */ ! 436: /* */ ! 437: .align 2 ! 438: mask: .space 4 ! 439: source: .space 4 ! 440: dest: .space 4 ! 441: ! 442: /* */ ! 443: /* End of file */ ! 444:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.