![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to or_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 or_w3.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: ! 4: /* ORW3 (or word 3 operand) test */ ! 5: ! 6: /*Test name = orw3 */ ! 7: /*Description = */ ! 8: /* This test checks 'orw3' instruction as follows: */ ! 9: /* source mask destination Z N C V(flags) */ ! 10: /* ___________ ____ ___________ _____________ */ ! 11: /* 0xaaaa 0xaaaa 0x7fffffaa 0 0 1 0 */ ! 12: /* 0xaaaa 0x5555 0x7fffffff 0 0 1 0 */ ! 13: /* 0x0000 0x0000 0x00000000 1 0 x 0 */ ! 14: /* R R R --- */ ! 15: /* M M M --- */ ! 16: /* R M M --- */ ! 17: /* M R R --- */ ! 18: /* */ ! 19: /* */ ! 20: /* */ ! 21: /* Constants */ ! 22: /* */ ! 23: .set MASK1B3,0xaa ! 24: .set MASK1W3,0xaaaa ! 25: .set MASK1L3,0xaaaaaaaa ! 26: .set MASK2B3,0x55 ! 27: .set MASK2W3,0x5555 ! 28: .set MASK2L3,0x55555555 ! 29: .set MASK3B3,0x00 ! 30: .set MASK3W3,0x0000 ! 31: .set MASK3L3,0x00000000 ! 32: .set SOURCE1B3,0xaa ! 33: .set SOURCE1W3,0xaaaa ! 34: .set SOURCE1L3,0xaaaaaaaa ! 35: .set SOURCE2B3,0xaa ! 36: .set SOURCE2W3,0xaaaa ! 37: .set SOURCE2L3,0xaaaaaaaa ! 38: .set SOURCE3B3,0x00 ! 39: .set SOURCE3W3,0x0000 ! 40: .set SOURCE3L3,0x00000000 ! 41: .set INIT1B3,0x7fffff00 ! 42: .set INIT1W3,0x7fff0000 ! 43: .set INIT1L3,0x00000000 ! 44: .set INIT3B3,0x7fffffff ! 45: .set INIT3W3,INIT3B3 ! 46: .set INIT3L3,INIT3B3 ! 47: .set EXP1B3,0x7fffffaa ! 48: .set EXP1W3,0x7fffaaaa ! 49: .set EXP1L3,0xaaaaaaaa ! 50: .set EXP2B3,0x7fffffff ! 51: .set EXP2W3,0x7fffffff ! 52: .set EXP2L3,0xffffffff ! 53: .set EXP3B3,0x00000000 ! 54: .set EXP3W3,EXP3B3 ! 55: .set EXP3L3,EXP3B3 ! 56: ! 57: /* */ ! 58: /* */ ! 59: /* */ ! 60: /* Syst.s - constants */ ! 61: /* */ ! 62: .set IPL,8 ! 63: .set HIGH,31 ! 64: .set ZERO,0 ! 65: .set ONES,0xffffffff ! 66: .set N,8 ! 67: .set Z,4 ! 68: .set V,2 ! 69: .set C,1 ! 70: .set T,16 ! 71: .set IV,32 ! 72: .set FU,64 ! 73: .set DV,128 ! 74: .set PSWMASK,0x003f ! 75: /* */ ! 76: ! 77: .globl _orw3 ! 78: _orw3: ! 79: callf $4,_setjmp /* save context for error return */ ! 80: movab _orw3,_stpc /* starting address of subtest */ ! 81: movl $1,_subtst /* subtest number */ ! 82: movl $2,_no_opr /* number of operands in use */ ! 83: movl $MASK1W3,_opr /* first operand */ ! 84: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 85: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 86: movl $MASK1W3,r3 /*mask */ ! 87: movl $SOURCE1W3,r4 /*source */ ! 88: movl $INIT1W3,r5 /*destination */ ! 89: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 90: orw3 r3,r4,r5 /*try it reg reg reg */ ! 91: jeql error1 /*error if Z = 1 */ ! 92: jlss error1 /*error if N =1 */ ! 93: jcc error1 /*error if C = 0 */ ! 94: jvs error1 /*error if V = 1 */ ! 95: jmp 1f ! 96: error1: movpsl _actual /* actual data */ ! 97: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 98: movl $2,_ercode /* error code flag failure */ ! 99: jmp *badrtn ! 100: 1: cmpl r5,$0xaaaa /*if dest <> expected value, */ ! 101: jeql o2 /* if no error continue */ ! 102: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 103: movl $1,_ercode /* error code data miscompare */ ! 104: movl r5,_actual /* actual data */ ! 105: movl $0xaaaa,_expected /* expected data */ ! 106: jmp *badrtn ! 107: ! 108: /* Now try another mask(0x5555) */ ! 109: /* */ ! 110: ! 111: o2: ! 112: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 113: ao2: callf $4,_setjmp /* save context for error return */ ! 114: movab ao2,_stpc /* starting address of subtest */ ! 115: movl $2,_subtst /* subtest number */ ! 116: movl $2,_no_opr /* number of operands in use */ ! 117: movl $MASK2W3,_opr /* first operand */ ! 118: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 119: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 120: movl $MASK2W3,r3 /*mask */ ! 121: movl $SOURCE2W3,r4 /*source */ ! 122: movl $INIT1W3,dest /*destination */ ! 123: bispsw $(Z|V) /*overflow & zero bits ON */ ! 124: orw3 r3,r4,dest+2 /* try again reg reg mem */ ! 125: jeql error2 /*error if Z = 1 */ ! 126: jlss error2 /*error if N =1 */ ! 127: jcc error2 /*error if C = 0 */ ! 128: jvs error2 /*error if V = 1 */ ! 129: jmp 1f ! 130: error2: movpsl _actual /* actual data */ ! 131: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 132: movl $2,_ercode /* error code flag failure */ ! 133: jmp *badrtn ! 134: 1: movl $0x7fffffff,r6 ! 135: cmpl dest,r6 /*if dest <> expected value, */ ! 136: jeql o3 /* if no error continue */ ! 137: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 138: movl $1,_ercode /* error code data miscompare */ ! 139: movl dest,_actual /* actual data */ ! 140: movl r6,_expected /* expected data */ ! 141: jmp *badrtn ! 142: ! 143: ! 144: /* Now try another mask(0x0000), source(0x0000) & dest(0x0000) */ ! 145: ! 146: o3: ! 147: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 148: ao3: callf $4,_setjmp /* save context for error return */ ! 149: movab ao3,_stpc /* starting address of subtest */ ! 150: movl $3,_subtst /* subtest number */ ! 151: movl $2,_no_opr /* number of operands in use */ ! 152: movl $MASK3W3,_opr /* first operand */ ! 153: movl $SOURCE3W3,_opr + 4 /* second operand */ ! 154: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 155: movl $MASK3W3,r3 /*mask */ ! 156: movl $INIT3W3,r5 /*destination */ ! 157: bispsw $(N|V) /*overflow & negetive bits ON */ ! 158: orw3 r3,$SOURCE3W3,r5/* reg to data to reg */ ! 159: jneq error3 /*error if Z = 0 */ ! 160: jlss error3 /*error if N = 1 */ ! 161: jcc error3 /*error if C = 0 */ ! 162: jvs error3 /*error if V = 1 */ ! 163: jmp 1f ! 164: error3: movpsl _actual /* actual data */ ! 165: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 166: movl $2,_ercode /* error code flag failure */ ! 167: jmp *badrtn ! 168: 1: cmpl r5,$EXP3W3 /*if dest <> expected value, */ ! 169: jeql orw3mmm /* if no error continue */ ! 170: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 171: movl $1,_ercode /* error code data miscompare */ ! 172: movl r5,_actual /* actual data */ ! 173: movl $EXP3W3,_expected /* expected data */ ! 174: jmp *badrtn ! 175: ! 176: /* */ ! 177: /* now try source = M, mask = M, destination = M */ ! 178: orw3mmm: ! 179: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 180: ao4: callf $4,_setjmp /* save context for error return */ ! 181: movab ao4,_stpc /* starting address of subtest */ ! 182: movl $4,_subtst /* subtest number */ ! 183: movl $2,_no_opr /* number of operands in use */ ! 184: movl $MASK3W3,_opr /* first operand */ ! 185: movl $SOURCE3W3,_opr + 4 /* second operand */ ! 186: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 187: movl $MASK1W3,mask /*mask */ ! 188: movl $SOURCE1W3,source/*source */ ! 189: movl $INIT1W3,dest /*destination */ ! 190: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 191: orw3 mask+2,source+2,dest+2/*try it mem mem mem */ ! 192: jeql error4 /*error if Z = 1 */ ! 193: jgeq error4 /*error if N =0 */ ! 194: jcc error4 /*error if C = 0 */ ! 195: jvs error4 /*error if V = 1 */ ! 196: jmp 1f ! 197: error4: movpsl _actual /* actual data */ ! 198: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 199: movl $2,_ercode /* error code flag failure */ ! 200: jmp *badrtn ! 201: 1: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 202: jeql o5 /* if no error continue */ ! 203: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 204: movl $1,_ercode /* error code data miscompare */ ! 205: movl dest,_actual /* actual data */ ! 206: movl $EXP1W3,_expected /* expected data */ ! 207: jmp *badrtn ! 208: ! 209: /* Now try another mask(0x5555) */ ! 210: /* */ ! 211: ! 212: o5: ! 213: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 214: ao5: callf $4,_setjmp /* save context for error return */ ! 215: movab ao5,_stpc /* starting address of subtest */ ! 216: movl $5,_subtst /* subtest number */ ! 217: movl $2,_no_opr /* number of operands in use */ ! 218: movl $MASK2W3,_opr /* first operand */ ! 219: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 220: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 221: movl $MASK2W3,mask /*mask */ ! 222: movl $SOURCE2W3,source/*source */ ! 223: movl $INIT1W3,r5 /*destination */ ! 224: bispsw $(Z|V) /*overflow & zero bits ON */ ! 225: orw3 mask+2,source+2,r5/*try it mem mem reg */ ! 226: jeql error5 /*error if Z = 1 */ ! 227: jgeq error5 /*error if N =0 */ ! 228: jcc error5 /*error if C = 0 */ ! 229: jvs error5 /*error if V = 1 */ ! 230: jmp 1f ! 231: error5: movpsl _actual /* actual data */ ! 232: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 233: movl $2,_ercode /* error code flag failure */ ! 234: jmp *badrtn ! 235: 1: movl $EXP2L3,r6 ! 236: cmpl r5,r6 /*if dest <> expected value, */ ! 237: jeql o6 /* if no error continue */ ! 238: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 239: movl $1,_ercode /* error code data miscompare */ ! 240: movl r5,_actual /* actual data */ ! 241: movl r6,_expected /* expected data */ ! 242: jmp *badrtn ! 243: /* */ ! 244: /* Now try another mask(0x0000), source(0x0000), & dest(0x0000) */ ! 245: /* */ ! 246: o6: ! 247: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 248: ao6: callf $4,_setjmp /* save context for error return */ ! 249: movab ao6,_stpc /* starting address of subtest */ ! 250: movl $6,_subtst /* subtest number */ ! 251: movl $2,_no_opr /* number of operands in use */ ! 252: movl $MASK3W3,_opr /* first operand */ ! 253: movl $SOURCE3W3,_opr + 4 /* second operand */ ! 254: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 255: movl $MASK3W3,mask /*mask */ ! 256: movl $SOURCE3W3,r4 /*source */ ! 257: movl $INIT3W3,dest /*destination */ ! 258: bispsw $(N|V) /*overflow & negetive bits ON */ ! 259: orw3 mask+2,r4,dest+2/*try it mem reg mem */ ! 260: jneq error6 /*error if Z = 0 */ ! 261: jlss error6 /*error if N = 1 */ ! 262: jcc error6 /*error if C = 0 */ ! 263: jvs error6 /*error if V = 1 */ ! 264: jmp 1f ! 265: error6: movpsl _actual /* actual data */ ! 266: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 267: movl $2,_ercode /* error code flag failure */ ! 268: jmp *badrtn ! 269: 1: movl $0x7fff0000,r6 ! 270: cmpl dest,r6 /*if dest <> expected value, */ ! 271: jeql orw3mrm /* if no error continue */ ! 272: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 273: movl $1,_ercode /* error code data miscompare */ ! 274: movl dest,_actual /* actual data */ ! 275: movl r6,_expected /* expected data */ ! 276: jmp *badrtn ! 277: /* */ ! 278: /* Now use mask = R, source & destination = M */ ! 279: /* */ ! 280: orw3mrm: ! 281: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 282: ao7: callf $4,_setjmp /* save context for error return */ ! 283: movab ao7,_stpc /* starting address of subtest */ ! 284: movl $7,_subtst /* subtest number */ ! 285: movl $2,_no_opr /* number of operands in use */ ! 286: movl $MASK1W3,_opr /* first operand */ ! 287: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 288: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 289: movl $MASK1W3,r3 /*mask */ ! 290: movl $SOURCE1W3,source/*source */ ! 291: movl $INIT1W3,dest /*destination */ ! 292: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 293: orw3 r3,source+2,dest+2/*try it reg mem mem */ ! 294: jeql error7 /*error if Z = 1 */ ! 295: jgeq error7 /*error if N =0 */ ! 296: jcc error7 /*error if C = 0 */ ! 297: jvs error7 /*error if V = 1 */ ! 298: jmp 1f ! 299: error7: movpsl _actual /* actual data */ ! 300: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 301: movl $2,_ercode /* error code flag failure */ ! 302: jmp *badrtn ! 303: 1: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 304: jeql o8 /* if no error continue */ ! 305: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 306: movl $1,_ercode /* error code data miscompare */ ! 307: movl dest,_actual /* actual data */ ! 308: movl $EXP1W3,_expected /* expected data */ ! 309: jmp *badrtn ! 310: /* */ ! 311: /* Now try another mask(0x5555) */ ! 312: /* */ ! 313: o8: ! 314: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 315: ao8: callf $4,_setjmp /* save context for error return */ ! 316: movab ao8,_stpc /* starting address of subtest */ ! 317: movl $8,_subtst /* subtest number */ ! 318: movl $2,_no_opr /* number of operands in use */ ! 319: movl $MASK2W3,_opr /* first operand */ ! 320: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 321: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 322: movl $MASK2W3,mask /*mask */ ! 323: movl $INIT1W3,dest /*destination */ ! 324: bispsw $(Z|V) /*overflow & zero bits ON */ ! 325: orw3 mask+2,$SOURCE2W3,dest+2 /*try it mem data mem */ ! 326: jeql error8 /*error if Z = 1 */ ! 327: jlss error8 /*error if N =1 */ ! 328: jcc error8 /*error if C = 0 */ ! 329: jvs error8 /*error if V = 1 */ ! 330: jmp 1f ! 331: error8: movpsl _actual /* actual data */ ! 332: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 333: movl $2,_ercode /* error code flag failure */ ! 334: jmp *badrtn ! 335: 1: cmpl dest,$EXP2W3 /*if dest <> expected value, */ ! 336: jeql o9 /* if no error continue */ ! 337: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 338: movl $1,_ercode /* error code data miscompare */ ! 339: movl dest,_actual /* actual data */ ! 340: movl $EXP2W3,_expected /* expected data */ ! 341: jmp *badrtn ! 342: /* */ ! 343: /* Now try another mask(0x0000), source(0x0000), & dest(0x0000) */ ! 344: /* */ ! 345: o9: ! 346: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 347: ao9: callf $4,_setjmp /* save context for error return */ ! 348: movab ao9,_stpc /* starting address of subtest */ ! 349: movl $9,_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 $SOURCE3W3,r4 /*source */ ! 355: movl $INIT3W3,dest /*destination */ ! 356: bispsw $(N|V) /*overflow & negetive bits ON */ ! 357: orw3 $MASK3W3,r4,dest+2/*try it data reg mem */ ! 358: jneq error9 /*error if Z = 0 */ ! 359: jlss error9 /*error if N = 1 */ ! 360: jcc error9 /*error if C = 0 */ ! 361: jvs error9 /*error if V = 1 */ ! 362: jmp 1f ! 363: error9: movpsl _actual /* actual data */ ! 364: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 365: movl $2,_ercode /* error code flag failure */ ! 366: jmp *badrtn ! 367: 1: movl $0x7fff0000,r6 ! 368: cmpl dest,r6 /*if dest <> expected value, */ ! 369: jeql orw3rmm /* if no error continue */ ! 370: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 371: movl $1,_ercode /* error code data miscompare */ ! 372: movl dest,_actual /* actual data */ ! 373: movl r6,_expected /* expected data */ ! 374: jmp *badrtn ! 375: ! 376: /* */ ! 377: /* Now try mask = M, source = R, dest = M */ ! 378: /* */ ! 379: orw3rmm: ! 380: ! 381: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 382: ao10: callf $4,_setjmp /* save context for error return */ ! 383: movab ao10,_stpc /* starting address of subtest */ ! 384: movl $0xa,_subtst /* subtest number */ ! 385: movl $2,_no_opr /* number of operands in use */ ! 386: movl $MASK1W3,_opr /* first operand */ ! 387: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 388: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 389: movl $INIT1W3,dest /*destination */ ! 390: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 391: orw3 $MASK1W3,$SOURCE1W3,dest+2/*try it data data mem */ ! 392: jeql error10 /*error if Z = 1 */ ! 393: jlss error10 /*error if N =0 */ ! 394: jcc error10 /*error if C = 0 */ ! 395: jvs error10 /*error if V = 1 */ ! 396: jmp 1f ! 397: error10: movpsl _actual /* actual data */ ! 398: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 399: movl $2,_ercode /* error code flag failure */ ! 400: jmp *badrtn ! 401: 1: cmpl dest,$EXP1W3 /*if dest <> expected value, */ ! 402: jeql o11 /* if no error continue */ ! 403: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 404: movl $1,_ercode /* error code data miscompare */ ! 405: movl dest,_actual /* actual data */ ! 406: movl $EXP1W3,_expected /* expected data */ ! 407: jmp *badrtn ! 408: ! 409: /* Now try another mask(0x5555) */ ! 410: /* */ ! 411: ! 412: o11: ! 413: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 414: ao11: callf $4,_setjmp /* save context for error return */ ! 415: movab ao11,_stpc /* starting address of subtest */ ! 416: movl $0xb,_subtst /* subtest number */ ! 417: movl $2,_no_opr /* number of operands in use */ ! 418: movl $MASK2W3,_opr /* first operand */ ! 419: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 420: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 421: movl $SOURCE2W3,r4 /*source */ ! 422: movl $INIT1W3,r5 /*destination */ ! 423: bispsw $(Z|V) /*overflow & zero bits ON */ ! 424: orw3 $MASK2W3,r4,r5 /*try it data reg reg */ ! 425: jeql error11 /*error if Z = 1 */ ! 426: jlss error11 /*error if N =1 */ ! 427: jcc error11 /*error if C = 0 */ ! 428: jvs error11 /*error if V = 1 */ ! 429: jmp 1f ! 430: error11: movpsl _actual /* actual data */ ! 431: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 432: movl $2,_ercode /* error code flag failure */ ! 433: jmp *badrtn ! 434: 1: movl $0xffff,r6 ! 435: cmpl r5,r6 /*if dest <> expected value, */ ! 436: jeql o12 /* if no error continue */ ! 437: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 438: movl $1,_ercode /* error code data miscompare */ ! 439: movl r5,_actual /* actual data */ ! 440: movl r6,_expected /* expected data */ ! 441: jmp *badrtn ! 442: /* */ ! 443: /* Now try another mask(0x0000), mask(0x0000), dest(0x0000) */ ! 444: /* */ ! 445: o12: ! 446: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 447: ao12: callf $4,_setjmp /* save context for error return */ ! 448: movab ao12,_stpc /* starting address of subtest */ ! 449: movl $0xc,_subtst /* subtest number */ ! 450: movl $2,_no_opr /* number of operands in use */ ! 451: movl $MASK3W3,_opr /* first operand */ ! 452: movl $SOURCE3W3,_opr + 4 /* second operand */ ! 453: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 454: movl $MASK3W3,mask /*mask */ ! 455: movl $SOURCE3W3,r4 /*source */ ! 456: movl $INIT3W3,dest /*destination */ ! 457: bispsw $(N|V) /*overflow & negetive bits ON */ ! 458: orw3 mask+2,r4,dest+2 /*try it */ ! 459: jneq error1 /*error if Z = 0 */ ! 460: jlss error1 /*error if N = 1 */ ! 461: jcc error1 /*error if C = 0 */ ! 462: jvs error1 /*error if V = 1 */ ! 463: jmp 1f ! 464: error12: movpsl _actual /* actual data */ ! 465: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 466: movl $2,_ercode /* error code flag failure */ ! 467: jmp *badrtn ! 468: 1: movl $0x7fff0000,r6 ! 469: cmpl dest,r6 /*if dest <> expected value, */ ! 470: jeql orw3mrr /* if no error continue */ ! 471: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 472: movl $1,_ercode /* error code data miscompare */ ! 473: movl dest,_actual /* actual data */ ! 474: movl r6,_expected /* expected data */ ! 475: jmp *badrtn ! 476: /* */ ! 477: /* Now try mask = R, source = M, dest = R */ ! 478: /* */ ! 479: orw3mrr: ! 480: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 481: ao13: callf $4,_setjmp /* save context for error return */ ! 482: movab ao13,_stpc /* starting address of subtest */ ! 483: movl $0xd,_subtst /* subtest number */ ! 484: movl $2,_no_opr /* number of operands in use */ ! 485: movl $MASK1W3,_opr /* first operand */ ! 486: movl $SOURCE1W3,_opr + 4 /* second operand */ ! 487: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 488: movl $MASK1W3,r3 /*mask */ ! 489: movl $SOURCE1W3,source/*source */ ! 490: movl $INIT1W3,r5 /*destination */ ! 491: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 492: orw3 r3,source+2,r5 /*try it */ ! 493: jeql error13 /*error if Z = 1 */ ! 494: jgeq error13 /*error if N =1 */ ! 495: jcc error13 /*error if C = 0 */ ! 496: jvs error13 /*error if V = 1 */ ! 497: jmp 1f ! 498: error13: movpsl _actual /* actual data */ ! 499: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 500: movl $2,_ercode /* error code flag failure */ ! 501: jmp *badrtn ! 502: 1: movl $0xffffaaaa,r6 ! 503: cmpl r5,r6 /*if dest <> expected value, */ ! 504: jeql o14 /* if no error continue */ ! 505: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 506: movl $1,_ercode /* error code data miscompare */ ! 507: movl r5,_actual /* actual data */ ! 508: movl r6,_expected /* expected data */ ! 509: jmp *badrtn ! 510: ! 511: /* Now try another mask(0x5555) */ ! 512: /* */ ! 513: ! 514: o14: ! 515: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 516: ao14: callf $4,_setjmp /* save context for error return */ ! 517: movab ao14,_stpc /* starting address of subtest */ ! 518: movl $0xe,_subtst /* subtest number */ ! 519: movl $2,_no_opr /* number of operands in use */ ! 520: movl $MASK2W3,_opr /* first operand */ ! 521: movl $SOURCE2W3,_opr + 4 /* second operand */ ! 522: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 523: movl $MASK2W3,r3 /*mask */ ! 524: movl $SOURCE2W3,source/*source */ ! 525: movl $INIT1W3,r5 /*destination */ ! 526: bispsw $(Z|V) /*overflow & zero bits ON */ ! 527: orw3 r3,source+2,r5 /*try it */ ! 528: jeql error14 /*error if Z = 1 */ ! 529: jgeq error14 /*error if N =0 */ ! 530: jcc error14 /*error if C = 0 */ ! 531: jvs error14 /*error if V = 1 */ ! 532: jmp 1f ! 533: error14: movpsl _actual /* actual data */ ! 534: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 535: movl $2,_ercode /* error code flag failure */ ! 536: jmp *badrtn ! 537: 1: movl $-1,r6 ! 538: cmpl r5,r6 /*if dest <> expected value, */ ! 539: jeql o15 /* if no error continue */ ! 540: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 541: movl $1,_ercode /* error code data miscompare */ ! 542: movl r5,_actual /* actual data */ ! 543: movl r6,_expected /* expected data */ ! 544: jmp *badrtn ! 545: /* */ ! 546: /* Now try another mask(0x0000), mask(0x0000), & dest(0x0000) */ ! 547: /* */ ! 548: o15: ! 549: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 550: ao15: callf $4,_setjmp /* save context for error return */ ! 551: movab ao15,_stpc /* starting address of subtest */ ! 552: movl $0xf,_subtst /* subtest number */ ! 553: movl $2,_no_opr /* number of operands in use */ ! 554: movl $MASK3W3,_opr /* first operand */ ! 555: movl $SOURCE3W3,_opr + 4 /* second operand */ ! 556: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 557: movl $MASK3W3,r3 /*mask */ ! 558: movl $SOURCE3W3,source/*source */ ! 559: movl $INIT3W3,r5 /*destination */ ! 560: bispsw $(N|V) /*overflow & negetive bits ON */ ! 561: orw3 r3,source+2,r5 /*try it */ ! 562: jneq error15 /*error if Z = 0 */ ! 563: jlss error15 /*error if N = 1 */ ! 564: jcc error15 /*error if C = 0 */ ! 565: jvs error15 /*error if V = 1 */ ! 566: jmp 1f ! 567: error15: movpsl _actual /* actual data */ ! 568: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 569: movl $2,_ercode /* error code flag failure */ ! 570: jmp *badrtn ! 571: 1: cmpl r5,$EXP3W3 /*if dest <> expected value, */ ! 572: jeql aldn /* if no error continue */ ! 573: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 574: movl $1,_ercode /* error code data miscompare */ ! 575: movl r5,_actual /* actual data */ ! 576: movl r6,_expected /* expected data */ ! 577: jmp *badrtn ! 578: ! 579: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 580: jmp *return ! 581: ! 582: /* */ ! 583: /* Variables */ ! 584: /* */ ! 585: .align 2 ! 586: mask: .space 4 ! 587: source: .space 4 ! 588: dest: .space 4 ! 589: ! 590: /* */ ! 591: /* End of file */ ! 592:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.